Thunderchez: Hex Artifact Content

Artifact 0e99bf4def51ebd4bae90d2073c104d254c4bb1a:

File sdl2/rwops-functions.ss — part of check-in [0e3c53a30e] at 2018-01-08 17:10:49 on branch trunk — SDL_Image added (user: ovenpasta@users.noreply.github.com size: 1884)
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
0010: 20 28 2a 20 73 64 6c 2d 72 77 2d 6f 70 73 2d 74   (* sdl-rw-ops-t
0020: 29 20 73 64 6c 2d 72 77 2d 66 72 6f 6d 2d 66 69  ) sdl-rw-from-fi
0030: 6c 65 20 28 28 66 69 6c 65 20 73 74 72 69 6e 67  le ((file string
0040: 29 20 28 6d 6f 64 65 20 73 74 72 69 6e 67 29 29  ) (mode string))
0050: 20 22 53 44 4c 5f 52 57 46 72 6f 6d 46 69 6c 65   "SDL_RWFromFile
0060: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66  ").(define-sdl-f
0070: 75 6e 63 20 28 2a 20 73 64 6c 2d 72 77 2d 6f 70  unc (* sdl-rw-op
0080: 73 2d 74 29 20 73 64 6c 2d 72 77 2d 66 72 6f 6d  s-t) sdl-rw-from
0090: 2d 66 70 20 28 28 66 70 20 28 2a 20 66 69 6c 65  -fp ((fp (* file
00a0: 29 29 20 28 61 75 74 6f 63 6c 6f 73 65 20 73 64  )) (autoclose sd
00b0: 6c 2d 62 6f 6f 6c 2d 74 29 29 20 22 53 44 4c 5f  l-bool-t)) "SDL_
00c0: 52 57 46 72 6f 6d 46 50 22 29 0a 28 64 65 66 69  RWFromFP").(defi
00d0: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73  ne-sdl-func (* s
00e0: 64 6c 2d 72 77 2d 6f 70 73 2d 74 29 20 73 64 6c  dl-rw-ops-t) sdl
00f0: 2d 72 77 2d 66 72 6f 6d 2d 6d 65 6d 20 28 28 6d  -rw-from-mem ((m
0100: 65 6d 20 76 6f 69 64 2a 29 20 28 73 69 7a 65 20  em void*) (size 
0110: 69 6e 74 29 29 20 22 53 44 4c 5f 52 57 46 72 6f  int)) "SDL_RWFro
0120: 6d 4d 65 6d 22 29 0a 28 64 65 66 69 6e 65 2d 73  mMem").(define-s
0130: 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 72  dl-func (* sdl-r
0140: 77 2d 6f 70 73 2d 74 29 20 73 64 6c 2d 72 77 2d  w-ops-t) sdl-rw-
0150: 66 72 6f 6d 2d 63 6f 6e 73 74 2d 6d 65 6d 20 28  from-const-mem (
0160: 28 6d 65 6d 20 76 6f 69 64 2a 29 20 28 73 69 7a  (mem void*) (siz
0170: 65 20 69 6e 74 29 29 20 22 53 44 4c 5f 52 57 46  e int)) "SDL_RWF
0180: 72 6f 6d 43 6f 6e 73 74 4d 65 6d 22 29 0a 28 64  romConstMem").(d
0190: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28  efine-sdl-func (
01a0: 2a 20 73 64 6c 2d 72 77 2d 6f 70 73 2d 74 29 20  * sdl-rw-ops-t) 
01b0: 73 64 6c 2d 61 6c 6c 6f 63 2d 72 77 20 28 29 20  sdl-alloc-rw () 
01c0: 22 53 44 4c 5f 41 6c 6c 6f 63 52 57 22 29 0a 28  "SDL_AllocRW").(
01d0: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20  define-sdl-func 
01e0: 76 6f 69 64 20 73 64 6c 2d 66 72 65 65 2d 72 77  void sdl-free-rw
01f0: 20 28 28 61 72 65 61 20 28 2a 20 73 64 6c 2d 72   ((area (* sdl-r
0200: 77 2d 6f 70 73 2d 74 29 29 29 20 22 53 44 4c 5f  w-ops-t))) "SDL_
0210: 46 72 65 65 52 57 22 29 0a 28 64 65 66 69 6e 65  FreeRW").(define
0220: 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 2a 20  -sdl-func void* 
0230: 73 64 6c 2d 6c 6f 61 64 2d 66 69 6c 65 2d 72 77  sdl-load-file-rw
0240: 20 28 28 73 72 63 20 28 2a 20 73 64 6c 2d 72 77   ((src (* sdl-rw
0250: 2d 6f 70 73 2d 74 29 29 20 28 64 61 74 61 73 69  -ops-t)) (datasi
0260: 7a 65 20 28 2a 20 73 69 7a 65 2d 74 29 29 20 28  ze (* size-t)) (
0270: 66 72 65 65 73 72 63 20 69 6e 74 29 29 20 22 53  freesrc int)) "S
0280: 44 4c 5f 4c 6f 61 64 46 69 6c 65 5f 52 57 22 29  DL_LoadFile_RW")
0290: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e  .(define-sdl-fun
02a0: 63 20 75 69 6e 74 38 20 73 64 6c 2d 72 65 61 64  c uint8 sdl-read
02b0: 2d 75 38 20 28 28 73 72 63 20 28 2a 20 73 64 6c  -u8 ((src (* sdl
02c0: 2d 72 77 2d 6f 70 73 2d 74 29 29 29 20 22 53 44  -rw-ops-t))) "SD
02d0: 4c 5f 52 65 61 64 55 38 22 29 0a 28 64 65 66 69  L_ReadU8").(defi
02e0: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74  ne-sdl-func uint
02f0: 31 36 20 73 64 6c 2d 72 65 61 64 2d 6c 2d 65 31  16 sdl-read-l-e1
0300: 36 20 28 28 73 72 63 20 28 2a 20 73 64 6c 2d 72  6 ((src (* sdl-r
0310: 77 2d 6f 70 73 2d 74 29 29 29 20 22 53 44 4c 5f  w-ops-t))) "SDL_
0320: 52 65 61 64 4c 45 31 36 22 29 0a 28 64 65 66 69  ReadLE16").(defi
0330: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74  ne-sdl-func uint
0340: 31 36 20 73 64 6c 2d 72 65 61 64 2d 62 2d 65 31  16 sdl-read-b-e1
0350: 36 20 28 28 73 72 63 20 28 2a 20 73 64 6c 2d 72  6 ((src (* sdl-r
0360: 77 2d 6f 70 73 2d 74 29 29 29 20 22 53 44 4c 5f  w-ops-t))) "SDL_
0370: 52 65 61 64 42 45 31 36 22 29 0a 28 64 65 66 69  ReadBE16").(defi
0380: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74  ne-sdl-func uint
0390: 33 32 20 73 64 6c 2d 72 65 61 64 2d 6c 2d 65 33  32 sdl-read-l-e3
03a0: 32 20 28 28 73 72 63 20 28 2a 20 73 64 6c 2d 72  2 ((src (* sdl-r
03b0: 77 2d 6f 70 73 2d 74 29 29 29 20 22 53 44 4c 5f  w-ops-t))) "SDL_
03c0: 52 65 61 64 4c 45 33 32 22 29 0a 28 64 65 66 69  ReadLE32").(defi
03d0: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74  ne-sdl-func uint
03e0: 33 32 20 73 64 6c 2d 72 65 61 64 2d 62 2d 65 33  32 sdl-read-b-e3
03f0: 32 20 28 28 73 72 63 20 28 2a 20 73 64 6c 2d 72  2 ((src (* sdl-r
0400: 77 2d 6f 70 73 2d 74 29 29 29 20 22 53 44 4c 5f  w-ops-t))) "SDL_
0410: 52 65 61 64 42 45 33 32 22 29 0a 28 64 65 66 69  ReadBE32").(defi
0420: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74  ne-sdl-func uint
0430: 36 34 20 73 64 6c 2d 72 65 61 64 2d 6c 2d 65 36  64 sdl-read-l-e6
0440: 34 20 28 28 73 72 63 20 28 2a 20 73 64 6c 2d 72  4 ((src (* sdl-r
0450: 77 2d 6f 70 73 2d 74 29 29 29 20 22 53 44 4c 5f  w-ops-t))) "SDL_
0460: 52 65 61 64 4c 45 36 34 22 29 0a 28 64 65 66 69  ReadLE64").(defi
0470: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74  ne-sdl-func uint
0480: 36 34 20 73 64 6c 2d 72 65 61 64 2d 62 2d 65 36  64 sdl-read-b-e6
0490: 34 20 28 28 73 72 63 20 28 2a 20 73 64 6c 2d 72  4 ((src (* sdl-r
04a0: 77 2d 6f 70 73 2d 74 29 29 29 20 22 53 44 4c 5f  w-ops-t))) "SDL_
04b0: 52 65 61 64 42 45 36 34 22 29 0a 28 64 65 66 69  ReadBE64").(defi
04c0: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 69 7a 65  ne-sdl-func size
04d0: 2d 74 20 73 64 6c 2d 77 72 69 74 65 2d 75 38 20  -t sdl-write-u8 
04e0: 28 28 64 73 74 20 28 2a 20 73 64 6c 2d 72 77 2d  ((dst (* sdl-rw-
04f0: 6f 70 73 2d 74 29 29 20 28 76 61 6c 75 65 20 75  ops-t)) (value u
0500: 69 6e 74 38 29 29 20 22 53 44 4c 5f 57 72 69 74  int8)) "SDL_Writ
0510: 65 55 38 22 29 0a 28 64 65 66 69 6e 65 2d 73 64  eU8").(define-sd
0520: 6c 2d 66 75 6e 63 20 73 69 7a 65 2d 74 20 73 64  l-func size-t sd
0530: 6c 2d 77 72 69 74 65 2d 6c 2d 65 31 36 20 28 28  l-write-l-e16 ((
0540: 64 73 74 20 28 2a 20 73 64 6c 2d 72 77 2d 6f 70  dst (* sdl-rw-op
0550: 73 2d 74 29 29 20 28 76 61 6c 75 65 20 75 69 6e  s-t)) (value uin
0560: 74 31 36 29 29 20 22 53 44 4c 5f 57 72 69 74 65  t16)) "SDL_Write
0570: 4c 45 31 36 22 29 0a 28 64 65 66 69 6e 65 2d 73  LE16").(define-s
0580: 64 6c 2d 66 75 6e 63 20 73 69 7a 65 2d 74 20 73  dl-func size-t s
0590: 64 6c 2d 77 72 69 74 65 2d 62 2d 65 31 36 20 28  dl-write-b-e16 (
05a0: 28 64 73 74 20 28 2a 20 73 64 6c 2d 72 77 2d 6f  (dst (* sdl-rw-o
05b0: 70 73 2d 74 29 29 20 28 76 61 6c 75 65 20 75 69  ps-t)) (value ui
05c0: 6e 74 31 36 29 29 20 22 53 44 4c 5f 57 72 69 74  nt16)) "SDL_Writ
05d0: 65 42 45 31 36 22 29 0a 28 64 65 66 69 6e 65 2d  eBE16").(define-
05e0: 73 64 6c 2d 66 75 6e 63 20 73 69 7a 65 2d 74 20  sdl-func size-t 
05f0: 73 64 6c 2d 77 72 69 74 65 2d 6c 2d 65 33 32 20  sdl-write-l-e32 
0600: 28 28 64 73 74 20 28 2a 20 73 64 6c 2d 72 77 2d  ((dst (* sdl-rw-
0610: 6f 70 73 2d 74 29 29 20 28 76 61 6c 75 65 20 75  ops-t)) (value u
0620: 69 6e 74 33 32 29 29 20 22 53 44 4c 5f 57 72 69  int32)) "SDL_Wri
0630: 74 65 4c 45 33 32 22 29 0a 28 64 65 66 69 6e 65  teLE32").(define
0640: 2d 73 64 6c 2d 66 75 6e 63 20 73 69 7a 65 2d 74  -sdl-func size-t
0650: 20 73 64 6c 2d 77 72 69 74 65 2d 62 2d 65 33 32   sdl-write-b-e32
0660: 20 28 28 64 73 74 20 28 2a 20 73 64 6c 2d 72 77   ((dst (* sdl-rw
0670: 2d 6f 70 73 2d 74 29 29 20 28 76 61 6c 75 65 20  -ops-t)) (value 
0680: 75 69 6e 74 33 32 29 29 20 22 53 44 4c 5f 57 72  uint32)) "SDL_Wr
0690: 69 74 65 42 45 33 32 22 29 0a 28 64 65 66 69 6e  iteBE32").(defin
06a0: 65 2d 73 64 6c 2d 66 75 6e 63 20 73 69 7a 65 2d  e-sdl-func size-
06b0: 74 20 73 64 6c 2d 77 72 69 74 65 2d 6c 2d 65 36  t sdl-write-l-e6
06c0: 34 20 28 28 64 73 74 20 28 2a 20 73 64 6c 2d 72  4 ((dst (* sdl-r
06d0: 77 2d 6f 70 73 2d 74 29 29 20 28 76 61 6c 75 65  w-ops-t)) (value
06e0: 20 75 69 6e 74 36 34 29 29 20 22 53 44 4c 5f 57   uint64)) "SDL_W
06f0: 72 69 74 65 4c 45 36 34 22 29 0a 28 64 65 66 69  riteLE64").(defi
0700: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 69 7a 65  ne-sdl-func size
0710: 2d 74 20 73 64 6c 2d 77 72 69 74 65 2d 62 2d 65  -t sdl-write-b-e
0720: 36 34 20 28 28 64 73 74 20 28 2a 20 73 64 6c 2d  64 ((dst (* sdl-
0730: 72 77 2d 6f 70 73 2d 74 29 29 20 28 76 61 6c 75  rw-ops-t)) (valu
0740: 65 20 75 69 6e 74 36 34 29 29 20 22 53 44 4c 5f  e uint64)) "SDL_
0750: 57 72 69 74 65 42 45 36 34 22 29 0a              WriteBE64").