Artifact
b9fd5df6ad997491db340a0e004774c7e0edf61e:
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func
0010: 20 69 6e 74 20 73 64 6c 2d 67 61 6d 65 2d 63 6f int sdl-game-co
0020: 6e 74 72 6f 6c 6c 65 72 2d 61 64 64 2d 6d 61 70 ntroller-add-map
0030: 70 69 6e 67 73 2d 66 72 6f 6d 2d 72 77 20 28 28 pings-from-rw ((
0040: 72 77 20 28 2a 20 73 64 6c 2d 72 77 2d 6f 70 73 rw (* sdl-rw-ops
0050: 2d 74 29 29 20 28 66 72 65 65 72 77 20 69 6e 74 -t)) (freerw int
0060: 29 29 20 22 53 44 4c 5f 47 61 6d 65 43 6f 6e 74 )) "SDL_GameCont
0070: 72 6f 6c 6c 65 72 41 64 64 4d 61 70 70 69 6e 67 rollerAddMapping
0080: 73 46 72 6f 6d 52 57 22 29 0a 28 64 65 66 69 6e sFromRW").(defin
0090: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s
00a0: 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c dl-game-controll
00b0: 65 72 2d 61 64 64 2d 6d 61 70 70 69 6e 67 20 28 er-add-mapping (
00c0: 28 6d 61 70 70 69 6e 67 53 74 72 69 6e 67 20 73 (mappingString s
00d0: 74 72 69 6e 67 29 29 20 22 53 44 4c 5f 47 61 6d tring)) "SDL_Gam
00e0: 65 43 6f 6e 74 72 6f 6c 6c 65 72 41 64 64 4d 61 eControllerAddMa
00f0: 70 70 69 6e 67 22 29 0a 28 64 65 66 69 6e 65 2d pping").(define-
0100: 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c sdl-func int sdl
0110: 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 -game-controller
0120: 2d 6e 75 6d 2d 6d 61 70 70 69 6e 67 73 20 28 29 -num-mappings ()
0130: 20 22 53 44 4c 5f 47 61 6d 65 43 6f 6e 74 72 6f "SDL_GameContro
0140: 6c 6c 65 72 4e 75 6d 4d 61 70 70 69 6e 67 73 22 llerNumMappings"
0150: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu
0160: 6e 63 20 73 74 72 69 6e 67 20 73 64 6c 2d 67 61 nc string sdl-ga
0170: 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 2d 6d 61 me-controller-ma
0180: 70 70 69 6e 67 2d 66 6f 72 2d 69 6e 64 65 78 20 pping-for-index
0190: 28 28 6d 61 70 70 69 6e 67 5f 69 6e 64 65 78 20 ((mapping_index
01a0: 69 6e 74 29 29 20 22 53 44 4c 5f 47 61 6d 65 43 int)) "SDL_GameC
01b0: 6f 6e 74 72 6f 6c 6c 65 72 4d 61 70 70 69 6e 67 ontrollerMapping
01c0: 46 6f 72 49 6e 64 65 78 22 29 0a 3b 3b 62 6c 61 ForIndex").;;bla
01d0: 63 6b 6c 69 73 74 65 64 20 70 72 6f 62 61 62 6c cklisted probabl
01e0: 79 20 62 65 63 61 75 73 65 20 69 74 20 75 73 65 y because it use
01f0: 73 20 61 20 73 74 72 75 63 74 20 61 73 20 76 61 s a struct as va
0200: 6c 75 65 2e 0a 28 64 65 66 69 6e 65 20 73 64 6c lue..(define sdl
0210: 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 -game-controller
0220: 2d 6d 61 70 70 69 6e 67 2d 66 6f 72 2d 67 75 69 -mapping-for-gui
0230: 64 20 23 66 29 0a 28 64 65 66 69 6e 65 2d 73 64 d #f).(define-sd
0240: 6c 2d 66 75 6e 63 20 73 74 72 69 6e 67 20 73 64 l-func string sd
0250: 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 l-game-controlle
0260: 72 2d 6d 61 70 70 69 6e 67 20 28 28 67 61 6d 65 r-mapping ((game
0270: 63 6f 6e 74 72 6f 6c 6c 65 72 20 28 2a 20 73 64 controller (* sd
0280: 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 l-game-controlle
0290: 72 2d 74 29 29 29 20 22 53 44 4c 5f 47 61 6d 65 r-t))) "SDL_Game
02a0: 43 6f 6e 74 72 6f 6c 6c 65 72 4d 61 70 70 69 6e ControllerMappin
02b0: 67 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d g").(define-sdl-
02c0: 66 75 6e 63 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 func sdl-bool-t
02d0: 73 64 6c 2d 69 73 2d 67 61 6d 65 2d 63 6f 6e 74 sdl-is-game-cont
02e0: 72 6f 6c 6c 65 72 20 28 28 6a 6f 79 73 74 69 63 roller ((joystic
02f0: 6b 5f 69 6e 64 65 78 20 69 6e 74 29 29 20 22 53 k_index int)) "S
0300: 44 4c 5f 49 73 47 61 6d 65 43 6f 6e 74 72 6f 6c DL_IsGameControl
0310: 6c 65 72 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 ler").(define-sd
0320: 6c 2d 66 75 6e 63 20 73 74 72 69 6e 67 20 73 64 l-func string sd
0330: 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 l-game-controlle
0340: 72 2d 6e 61 6d 65 2d 66 6f 72 2d 69 6e 64 65 78 r-name-for-index
0350: 20 28 28 6a 6f 79 73 74 69 63 6b 5f 69 6e 64 65 ((joystick_inde
0360: 78 20 69 6e 74 29 29 20 22 53 44 4c 5f 47 61 6d x int)) "SDL_Gam
0370: 65 43 6f 6e 74 72 6f 6c 6c 65 72 4e 61 6d 65 46 eControllerNameF
0380: 6f 72 49 6e 64 65 78 22 29 0a 28 64 65 66 69 6e orIndex").(defin
0390: 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 e-sdl-func (* sd
03a0: 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 l-game-controlle
03b0: 72 2d 74 29 20 73 64 6c 2d 67 61 6d 65 2d 63 6f r-t) sdl-game-co
03c0: 6e 74 72 6f 6c 6c 65 72 2d 6f 70 65 6e 20 28 28 ntroller-open ((
03d0: 6a 6f 79 73 74 69 63 6b 5f 69 6e 64 65 78 20 69 joystick_index i
03e0: 6e 74 29 29 20 22 53 44 4c 5f 47 61 6d 65 43 6f nt)) "SDL_GameCo
03f0: 6e 74 72 6f 6c 6c 65 72 4f 70 65 6e 22 29 0a 28 ntrollerOpen").(
0400: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func
0410: 28 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 (* sdl-game-cont
0420: 72 6f 6c 6c 65 72 2d 74 29 20 73 64 6c 2d 67 61 roller-t) sdl-ga
0430: 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 2d 66 72 me-controller-fr
0440: 6f 6d 2d 69 6e 73 74 61 6e 63 65 2d 69 64 20 28 om-instance-id (
0450: 28 6a 6f 79 69 64 20 73 64 6c 2d 6a 6f 79 73 74 (joyid sdl-joyst
0460: 69 63 6b 2d 69 64 2d 74 29 29 20 22 53 44 4c 5f ick-id-t)) "SDL_
0470: 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c 65 72 46 72 GameControllerFr
0480: 6f 6d 49 6e 73 74 61 6e 63 65 49 44 22 29 0a 28 omInstanceID").(
0490: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func
04a0: 73 74 72 69 6e 67 20 73 64 6c 2d 67 61 6d 65 2d string sdl-game-
04b0: 63 6f 6e 74 72 6f 6c 6c 65 72 2d 6e 61 6d 65 20 controller-name
04c0: 28 28 67 61 6d 65 63 6f 6e 74 72 6f 6c 6c 65 72 ((gamecontroller
04d0: 20 28 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e (* sdl-game-con
04e0: 74 72 6f 6c 6c 65 72 2d 74 29 29 29 20 22 53 44 troller-t))) "SD
04f0: 4c 5f 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c 65 72 L_GameController
0500: 4e 61 6d 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 Name").(define-s
0510: 64 6c 2d 66 75 6e 63 20 75 69 6e 74 31 36 20 73 dl-func uint16 s
0520: 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c dl-game-controll
0530: 65 72 2d 67 65 74 2d 76 65 6e 64 6f 72 20 28 28 er-get-vendor ((
0540: 67 61 6d 65 63 6f 6e 74 72 6f 6c 6c 65 72 20 28 gamecontroller (
0550: 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 * sdl-game-contr
0560: 6f 6c 6c 65 72 2d 74 29 29 29 20 22 53 44 4c 5f oller-t))) "SDL_
0570: 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c 65 72 47 65 GameControllerGe
0580: 74 56 65 6e 64 6f 72 22 29 0a 28 64 65 66 69 6e tVendor").(defin
0590: 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74 31 e-sdl-func uint1
05a0: 36 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6 sdl-game-contr
05b0: 6f 6c 6c 65 72 2d 67 65 74 2d 70 72 6f 64 75 63 oller-get-produc
05c0: 74 20 28 28 67 61 6d 65 63 6f 6e 74 72 6f 6c 6c t ((gamecontroll
05d0: 65 72 20 28 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 er (* sdl-game-c
05e0: 6f 6e 74 72 6f 6c 6c 65 72 2d 74 29 29 29 20 22 ontroller-t))) "
05f0: 53 44 4c 5f 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c SDL_GameControll
0600: 65 72 47 65 74 50 72 6f 64 75 63 74 22 29 0a 28 erGetProduct").(
0610: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func
0620: 75 69 6e 74 31 36 20 73 64 6c 2d 67 61 6d 65 2d uint16 sdl-game-
0630: 63 6f 6e 74 72 6f 6c 6c 65 72 2d 67 65 74 2d 70 controller-get-p
0640: 72 6f 64 75 63 74 2d 76 65 72 73 69 6f 6e 20 28 roduct-version (
0650: 28 67 61 6d 65 63 6f 6e 74 72 6f 6c 6c 65 72 20 (gamecontroller
0660: 28 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 (* sdl-game-cont
0670: 72 6f 6c 6c 65 72 2d 74 29 29 29 20 22 53 44 4c roller-t))) "SDL
0680: 5f 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c 65 72 47 _GameControllerG
0690: 65 74 50 72 6f 64 75 63 74 56 65 72 73 69 6f 6e etProductVersion
06a0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f
06b0: 75 6e 63 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 73 unc sdl-bool-t s
06c0: 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c dl-game-controll
06d0: 65 72 2d 67 65 74 2d 61 74 74 61 63 68 65 64 20 er-get-attached
06e0: 28 28 67 61 6d 65 63 6f 6e 74 72 6f 6c 6c 65 72 ((gamecontroller
06f0: 20 28 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e (* sdl-game-con
0700: 74 72 6f 6c 6c 65 72 2d 74 29 29 29 20 22 53 44 troller-t))) "SD
0710: 4c 5f 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c 65 72 L_GameController
0720: 47 65 74 41 74 74 61 63 68 65 64 22 29 0a 28 64 GetAttached").(d
0730: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 efine-sdl-func (
0740: 2a 20 73 64 6c 2d 6a 6f 79 73 74 69 63 6b 2d 74 * sdl-joystick-t
0750: 29 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 ) sdl-game-contr
0760: 6f 6c 6c 65 72 2d 67 65 74 2d 6a 6f 79 73 74 69 oller-get-joysti
0770: 63 6b 20 28 28 67 61 6d 65 63 6f 6e 74 72 6f 6c ck ((gamecontrol
0780: 6c 65 72 20 28 2a 20 73 64 6c 2d 67 61 6d 65 2d ler (* sdl-game-
0790: 63 6f 6e 74 72 6f 6c 6c 65 72 2d 74 29 29 29 20 controller-t)))
07a0: 22 53 44 4c 5f 47 61 6d 65 43 6f 6e 74 72 6f 6c "SDL_GameControl
07b0: 6c 65 72 47 65 74 4a 6f 79 73 74 69 63 6b 22 29 lerGetJoystick")
07c0: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun
07d0: 63 20 69 6e 74 20 73 64 6c 2d 67 61 6d 65 2d 63 c int sdl-game-c
07e0: 6f 6e 74 72 6f 6c 6c 65 72 2d 65 76 65 6e 74 2d ontroller-event-
07f0: 73 74 61 74 65 20 28 28 73 74 61 74 65 20 69 6e state ((state in
0800: 74 29 29 20 22 53 44 4c 5f 47 61 6d 65 43 6f 6e t)) "SDL_GameCon
0810: 74 72 6f 6c 6c 65 72 45 76 65 6e 74 53 74 61 74 trollerEventStat
0820: 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d e").(define-sdl-
0830: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 67 61 func void sdl-ga
0840: 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 2d 75 70 me-controller-up
0850: 64 61 74 65 20 28 29 20 22 53 44 4c 5f 47 61 6d date () "SDL_Gam
0860: 65 43 6f 6e 74 72 6f 6c 6c 65 72 55 70 64 61 74 eControllerUpdat
0870: 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d e").(define-sdl-
0880: 66 75 6e 63 20 73 64 6c 2d 67 61 6d 65 2d 63 6f func sdl-game-co
0890: 6e 74 72 6f 6c 6c 65 72 2d 61 78 69 73 2d 74 20 ntroller-axis-t
08a0: 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c sdl-game-control
08b0: 6c 65 72 2d 67 65 74 2d 61 78 69 73 2d 66 72 6f ler-get-axis-fro
08c0: 6d 2d 73 74 72 69 6e 67 20 28 28 70 63 68 53 74 m-string ((pchSt
08d0: 72 69 6e 67 20 73 74 72 69 6e 67 29 29 20 22 53 ring string)) "S
08e0: 44 4c 5f 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c 65 DL_GameControlle
08f0: 72 47 65 74 41 78 69 73 46 72 6f 6d 53 74 72 69 rGetAxisFromStri
0900: 6e 67 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c ng").(define-sdl
0910: 2d 66 75 6e 63 20 73 74 72 69 6e 67 20 73 64 6c -func string sdl
0920: 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 -game-controller
0930: 2d 67 65 74 2d 73 74 72 69 6e 67 2d 66 6f 72 2d -get-string-for-
0940: 61 78 69 73 20 28 28 61 78 69 73 20 73 64 6c 2d axis ((axis sdl-
0950: 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 2d game-controller-
0960: 61 78 69 73 2d 74 29 29 20 22 53 44 4c 5f 47 61 axis-t)) "SDL_Ga
0970: 6d 65 43 6f 6e 74 72 6f 6c 6c 65 72 47 65 74 53 meControllerGetS
0980: 74 72 69 6e 67 46 6f 72 41 78 69 73 22 29 0a 28 tringForAxis").(
0990: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func
09a0: 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c sdl-game-control
09b0: 6c 65 72 2d 62 75 74 74 6f 6e 2d 62 69 6e 64 2d ler-button-bind-
09c0: 74 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 t sdl-game-contr
09d0: 6f 6c 6c 65 72 2d 67 65 74 2d 62 69 6e 64 2d 66 oller-get-bind-f
09e0: 6f 72 2d 61 78 69 73 20 28 28 67 61 6d 65 63 6f or-axis ((gameco
09f0: 6e 74 72 6f 6c 6c 65 72 20 28 2a 20 73 64 6c 2d ntroller (* sdl-
0a00: 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 2d game-controller-
0a10: 74 29 29 20 28 61 78 69 73 20 73 64 6c 2d 67 61 t)) (axis sdl-ga
0a20: 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 2d 61 78 me-controller-ax
0a30: 69 73 2d 74 29 29 20 22 53 44 4c 5f 47 61 6d 65 is-t)) "SDL_Game
0a40: 43 6f 6e 74 72 6f 6c 6c 65 72 47 65 74 42 69 6e ControllerGetBin
0a50: 64 46 6f 72 41 78 69 73 22 29 0a 28 64 65 66 69 dForAxis").(defi
0a60: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 69 6e 74 ne-sdl-func sint
0a70: 31 36 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 16 sdl-game-cont
0a80: 72 6f 6c 6c 65 72 2d 67 65 74 2d 61 78 69 73 20 roller-get-axis
0a90: 28 28 67 61 6d 65 63 6f 6e 74 72 6f 6c 6c 65 72 ((gamecontroller
0aa0: 20 28 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e (* sdl-game-con
0ab0: 74 72 6f 6c 6c 65 72 2d 74 29 29 20 28 61 78 69 troller-t)) (axi
0ac0: 73 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 s sdl-game-contr
0ad0: 6f 6c 6c 65 72 2d 61 78 69 73 2d 74 29 29 20 22 oller-axis-t)) "
0ae0: 53 44 4c 5f 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c SDL_GameControll
0af0: 65 72 47 65 74 41 78 69 73 22 29 0a 28 64 65 66 erGetAxis").(def
0b00: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 6c ine-sdl-func sdl
0b10: 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 -game-controller
0b20: 2d 62 75 74 74 6f 6e 2d 74 20 73 64 6c 2d 67 61 -button-t sdl-ga
0b30: 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 2d 67 65 me-controller-ge
0b40: 74 2d 62 75 74 74 6f 6e 2d 66 72 6f 6d 2d 73 74 t-button-from-st
0b50: 72 69 6e 67 20 28 28 70 63 68 53 74 72 69 6e 67 ring ((pchString
0b60: 20 73 74 72 69 6e 67 29 29 20 22 53 44 4c 5f 47 string)) "SDL_G
0b70: 61 6d 65 43 6f 6e 74 72 6f 6c 6c 65 72 47 65 74 ameControllerGet
0b80: 42 75 74 74 6f 6e 46 72 6f 6d 53 74 72 69 6e 67 ButtonFromString
0b90: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f
0ba0: 75 6e 63 20 73 74 72 69 6e 67 20 73 64 6c 2d 67 unc string sdl-g
0bb0: 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 72 2d 67 ame-controller-g
0bc0: 65 74 2d 73 74 72 69 6e 67 2d 66 6f 72 2d 62 75 et-string-for-bu
0bd0: 74 74 6f 6e 20 28 28 62 75 74 74 6f 6e 20 73 64 tton ((button sd
0be0: 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c 6c 65 l-game-controlle
0bf0: 72 2d 62 75 74 74 6f 6e 2d 74 29 29 20 22 53 44 r-button-t)) "SD
0c00: 4c 5f 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c 65 72 L_GameController
0c10: 47 65 74 53 74 72 69 6e 67 46 6f 72 42 75 74 74 GetStringForButt
0c20: 6f 6e 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c on").(define-sdl
0c30: 2d 66 75 6e 63 20 73 64 6c 2d 67 61 6d 65 2d 63 -func sdl-game-c
0c40: 6f 6e 74 72 6f 6c 6c 65 72 2d 62 75 74 74 6f 6e ontroller-button
0c50: 2d 62 69 6e 64 2d 74 20 73 64 6c 2d 67 61 6d 65 -bind-t sdl-game
0c60: 2d 63 6f 6e 74 72 6f 6c 6c 65 72 2d 67 65 74 2d -controller-get-
0c70: 62 69 6e 64 2d 66 6f 72 2d 62 75 74 74 6f 6e 20 bind-for-button
0c80: 28 28 67 61 6d 65 63 6f 6e 74 72 6f 6c 6c 65 72 ((gamecontroller
0c90: 20 28 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e (* sdl-game-con
0ca0: 74 72 6f 6c 6c 65 72 2d 74 29 29 20 28 62 75 74 troller-t)) (but
0cb0: 74 6f 6e 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e ton sdl-game-con
0cc0: 74 72 6f 6c 6c 65 72 2d 62 75 74 74 6f 6e 2d 74 troller-button-t
0cd0: 29 29 20 22 53 44 4c 5f 47 61 6d 65 43 6f 6e 74 )) "SDL_GameCont
0ce0: 72 6f 6c 6c 65 72 47 65 74 42 69 6e 64 46 6f 72 rollerGetBindFor
0cf0: 42 75 74 74 6f 6e 22 29 0a 28 64 65 66 69 6e 65 Button").(define
0d00: 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74 38 20 -sdl-func uint8
0d10: 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 72 6f 6c sdl-game-control
0d20: 6c 65 72 2d 67 65 74 2d 62 75 74 74 6f 6e 20 28 ler-get-button (
0d30: 28 67 61 6d 65 63 6f 6e 74 72 6f 6c 6c 65 72 20 (gamecontroller
0d40: 28 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 (* sdl-game-cont
0d50: 72 6f 6c 6c 65 72 2d 74 29 29 20 28 62 75 74 74 roller-t)) (butt
0d60: 6f 6e 20 73 64 6c 2d 67 61 6d 65 2d 63 6f 6e 74 on sdl-game-cont
0d70: 72 6f 6c 6c 65 72 2d 62 75 74 74 6f 6e 2d 74 29 roller-button-t)
0d80: 29 20 22 53 44 4c 5f 47 61 6d 65 43 6f 6e 74 72 ) "SDL_GameContr
0d90: 6f 6c 6c 65 72 47 65 74 42 75 74 74 6f 6e 22 29 ollerGetButton")
0da0: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun
0db0: 63 20 76 6f 69 64 20 73 64 6c 2d 67 61 6d 65 2d c void sdl-game-
0dc0: 63 6f 6e 74 72 6f 6c 6c 65 72 2d 63 6c 6f 73 65 controller-close
0dd0: 20 28 28 67 61 6d 65 63 6f 6e 74 72 6f 6c 6c 65 ((gamecontrolle
0de0: 72 20 28 2a 20 73 64 6c 2d 67 61 6d 65 2d 63 6f r (* sdl-game-co
0df0: 6e 74 72 6f 6c 6c 65 72 2d 74 29 29 29 20 22 53 ntroller-t))) "S
0e00: 44 4c 5f 47 61 6d 65 43 6f 6e 74 72 6f 6c 6c 65 DL_GameControlle
0e10: 72 43 6c 6f 73 65 22 29 0a rClose").