1pragma Ada_2005; 2pragma Style_Checks (Off); 3 4with Interfaces.C; use Interfaces.C; 5with System; 6limited with stdio_h; 7with SDL_SDL_stdinc_h; 8with Interfaces.C.Strings; 9 10package SDL_SDL_rwops_h is 11 12 13 RW_SEEK_SET : constant := 0; -- ../include/SDL/SDL_rwops.h:115 14 RW_SEEK_CUR : constant := 1; -- ../include/SDL/SDL_rwops.h:116 15 RW_SEEK_END : constant := 2; -- ../include/SDL/SDL_rwops.h:117 16 -- arg-macro: function SDL_RWseek (ctx, offset, wh(ctx).seek(ctx, offset, whence 17 -- return ctx).seek(ctx, offset, whence; 18 -- arg-macro: function SDL_RWtell (ctx) 19 -- return ctx).seek(ctx, 0, RW_SEEK_CUR; 20 -- arg-macro: function SDL_RWread (ctx, ptr, size,(ctx).read(ctx, ptr, size, n 21 -- return ctx).read(ctx, ptr, size, n; 22 -- arg-macro: function SDL_RWwrite (ctx, ptr, size,(ctx).write(ctx, ptr, size, n 23 -- return ctx).write(ctx, ptr, size, n; 24 -- arg-macro: function SDL_RWclose (ctx) 25 -- return ctx).close(ctx; 26 27 type anon_10; 28 type anon_11; 29 type anon_12 is record 30 data : System.Address; -- ../include/SDL/SDL_rwops.h:71 31 size : aliased int; -- ../include/SDL/SDL_rwops.h:72 32 left : aliased int; -- ../include/SDL/SDL_rwops.h:73 33 end record; 34 pragma Convention (C_Pass_By_Copy, anon_12); 35 type anon_11 is record 36 append : aliased int; -- ../include/SDL/SDL_rwops.h:68 37 h : System.Address; -- ../include/SDL/SDL_rwops.h:69 38 buffer : aliased anon_12; -- ../include/SDL/SDL_rwops.h:74 39 end record; 40 pragma Convention (C_Pass_By_Copy, anon_11); 41 type anon_13 is record 42 autoclose : aliased int; -- ../include/SDL/SDL_rwops.h:79 43 fp : System.Address; -- ../include/SDL/SDL_rwops.h:80 44 end record; 45 pragma Convention (C_Pass_By_Copy, anon_13); 46 type anon_14 is record 47 base : access SDL_SDL_stdinc_h.Uint8; -- ../include/SDL/SDL_rwops.h:84 48 here : access SDL_SDL_stdinc_h.Uint8; -- ../include/SDL/SDL_rwops.h:85 49 stop : access SDL_SDL_stdinc_h.Uint8; -- ../include/SDL/SDL_rwops.h:86 50 end record; 51 pragma Convention (C_Pass_By_Copy, anon_14); 52 type anon_15 is record 53 data1 : System.Address; -- ../include/SDL/SDL_rwops.h:89 54 end record; 55 pragma Convention (C_Pass_By_Copy, anon_15); 56 type anon_10 (discr : unsigned := 0) is record 57 case discr is 58 when 0 => 59 win32io : aliased anon_11; -- ../include/SDL/SDL_rwops.h:75 60 when 1 => 61 stdio : aliased anon_13; -- ../include/SDL/SDL_rwops.h:81 62 when 2 => 63 mem : aliased anon_14; -- ../include/SDL/SDL_rwops.h:87 64 when others => 65 unknown : aliased anon_15; -- ../include/SDL/SDL_rwops.h:90 66 end case; 67 end record; 68 pragma Convention (C_Pass_By_Copy, anon_10); 69 pragma Unchecked_Union (anon_10); 70 type SDL_RWops is record 71 seek : access function 72 (arg1 : access SDL_RWops; 73 arg2 : int; 74 arg3 : int) return int; -- ../include/SDL/SDL_rwops.h:47 75 read : access function 76 (arg1 : access SDL_RWops; 77 arg2 : System.Address; 78 arg3 : int; 79 arg4 : int) return int; -- ../include/SDL/SDL_rwops.h:53 80 write : access function 81 (arg1 : access SDL_RWops; 82 arg2 : System.Address; 83 arg3 : int; 84 arg4 : int) return int; -- ../include/SDL/SDL_rwops.h:59 85 close : access function (arg1 : access SDL_RWops) return int; -- ../include/SDL/SDL_rwops.h:62 86 c_type : aliased SDL_SDL_stdinc_h.Uint32; -- ../include/SDL/SDL_rwops.h:64 87 hidden : anon_10; -- ../include/SDL/SDL_rwops.h:91 88 end record; 89 pragma Convention (C_Pass_By_Copy, SDL_RWops); -- ../include/SDL/SDL_rwops.h:42 90 91 function SDL_RWFromFile (file : Interfaces.C.Strings.chars_ptr; mode : Interfaces.C.Strings.chars_ptr) return access SDL_RWops; -- ../include/SDL/SDL_rwops.h:99 92 pragma Import (C, SDL_RWFromFile, "SDL_RWFromFile"); 93 94 function SDL_RWFromFP (fp : System.Address; autoclose : int) return access SDL_RWops; -- ../include/SDL/SDL_rwops.h:102 95 pragma Import (C, SDL_RWFromFP, "SDL_RWFromFP"); 96 97 function SDL_RWFromMem (mem : System.Address; size : int) return access SDL_RWops; -- ../include/SDL/SDL_rwops.h:105 98 pragma Import (C, SDL_RWFromMem, "SDL_RWFromMem"); 99 100 function SDL_RWFromConstMem (mem : System.Address; size : int) return access SDL_RWops; -- ../include/SDL/SDL_rwops.h:106 101 pragma Import (C, SDL_RWFromConstMem, "SDL_RWFromConstMem"); 102 103 function SDL_AllocRW return access SDL_RWops; -- ../include/SDL/SDL_rwops.h:108 104 pragma Import (C, SDL_AllocRW, "SDL_AllocRW"); 105 106 procedure SDL_FreeRW (area : access SDL_RWops); -- ../include/SDL/SDL_rwops.h:109 107 pragma Import (C, SDL_FreeRW, "SDL_FreeRW"); 108 109 function SDL_ReadLE16 (src : access SDL_RWops) return SDL_SDL_stdinc_h.Uint16; -- ../include/SDL/SDL_rwops.h:131 110 pragma Import (C, SDL_ReadLE16, "SDL_ReadLE16"); 111 112 function SDL_ReadBE16 (src : access SDL_RWops) return SDL_SDL_stdinc_h.Uint16; -- ../include/SDL/SDL_rwops.h:132 113 pragma Import (C, SDL_ReadBE16, "SDL_ReadBE16"); 114 115 function SDL_ReadLE32 (src : access SDL_RWops) return SDL_SDL_stdinc_h.Uint32; -- ../include/SDL/SDL_rwops.h:133 116 pragma Import (C, SDL_ReadLE32, "SDL_ReadLE32"); 117 118 function SDL_ReadBE32 (src : access SDL_RWops) return SDL_SDL_stdinc_h.Uint32; -- ../include/SDL/SDL_rwops.h:134 119 pragma Import (C, SDL_ReadBE32, "SDL_ReadBE32"); 120 121 function SDL_ReadLE64 (src : access SDL_RWops) return SDL_SDL_stdinc_h.Uint64; -- ../include/SDL/SDL_rwops.h:135 122 pragma Import (C, SDL_ReadLE64, "SDL_ReadLE64"); 123 124 function SDL_ReadBE64 (src : access SDL_RWops) return SDL_SDL_stdinc_h.Uint64; -- ../include/SDL/SDL_rwops.h:136 125 pragma Import (C, SDL_ReadBE64, "SDL_ReadBE64"); 126 127 function SDL_WriteLE16 (dst : access SDL_RWops; value : SDL_SDL_stdinc_h.Uint16) return int; -- ../include/SDL/SDL_rwops.h:141 128 pragma Import (C, SDL_WriteLE16, "SDL_WriteLE16"); 129 130 function SDL_WriteBE16 (dst : access SDL_RWops; value : SDL_SDL_stdinc_h.Uint16) return int; -- ../include/SDL/SDL_rwops.h:142 131 pragma Import (C, SDL_WriteBE16, "SDL_WriteBE16"); 132 133 function SDL_WriteLE32 (dst : access SDL_RWops; value : SDL_SDL_stdinc_h.Uint32) return int; -- ../include/SDL/SDL_rwops.h:143 134 pragma Import (C, SDL_WriteLE32, "SDL_WriteLE32"); 135 136 function SDL_WriteBE32 (dst : access SDL_RWops; value : SDL_SDL_stdinc_h.Uint32) return int; -- ../include/SDL/SDL_rwops.h:144 137 pragma Import (C, SDL_WriteBE32, "SDL_WriteBE32"); 138 139 function SDL_WriteLE64 (dst : access SDL_RWops; value : SDL_SDL_stdinc_h.Uint64) return int; -- ../include/SDL/SDL_rwops.h:145 140 pragma Import (C, SDL_WriteLE64, "SDL_WriteLE64"); 141 142 function SDL_WriteBE64 (dst : access SDL_RWops; value : SDL_SDL_stdinc_h.Uint64) return int; -- ../include/SDL/SDL_rwops.h:146 143 pragma Import (C, SDL_WriteBE64, "SDL_WriteBE64"); 144 145end SDL_SDL_rwops_h; 146