Artifact 2ee40799bc44aa119ddf117a92919c4df69bcc9d:
- File sdl2/events-functions.ss — part of check-in [c9770d8f7f] at 2016-08-17 07:47:19 on branch trunk — added sdl2 (user: ovenpasta@pizzahack.eu size: 1633)
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0010: 20 76 6f 69 64 20 73 64 6c 2d 70 75 6d 70 2d 65 void sdl-pump-e 0020: 76 65 6e 74 73 20 28 29 20 22 53 44 4c 5f 50 75 vents () "SDL_Pu 0030: 6d 70 45 76 65 6e 74 73 22 29 0a 28 64 65 66 69 mpEvents").(defi 0040: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 ne-sdl-func int 0050: 73 64 6c 2d 70 65 65 70 2d 65 76 65 6e 74 73 20 sdl-peep-events 0060: 28 28 65 76 65 6e 74 73 20 28 2a 20 73 64 6c 2d ((events (* sdl- 0070: 65 76 65 6e 74 2d 74 29 29 20 28 6e 75 6d 65 76 event-t)) (numev 0080: 65 6e 74 73 20 69 6e 74 29 20 28 61 63 74 69 6f ents int) (actio 0090: 6e 20 73 64 6c 2d 65 76 65 6e 74 61 63 74 69 6f n sdl-eventactio 00a0: 6e 2d 74 29 20 28 6d 69 6e 54 79 70 65 20 75 69 n-t) (minType ui 00b0: 6e 74 33 32 29 20 28 6d 61 78 54 79 70 65 20 75 nt32) (maxType u 00c0: 69 6e 74 33 32 29 29 20 22 53 44 4c 5f 50 65 65 int32)) "SDL_Pee 00d0: 70 45 76 65 6e 74 73 22 29 0a 28 64 65 66 69 6e pEvents").(defin 00e0: 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 6c 2d 62 e-sdl-func sdl-b 00f0: 6f 6f 6c 2d 74 20 73 64 6c 2d 68 61 73 2d 65 76 ool-t sdl-has-ev 0100: 65 6e 74 20 28 28 74 79 70 65 20 75 69 6e 74 33 ent ((type uint3 0110: 32 29 29 20 22 53 44 4c 5f 48 61 73 45 76 65 6e 2)) "SDL_HasEven 0120: 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d t").(define-sdl- 0130: 66 75 6e 63 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 func sdl-bool-t 0140: 73 64 6c 2d 68 61 73 2d 65 76 65 6e 74 73 20 28 sdl-has-events ( 0150: 28 6d 69 6e 54 79 70 65 20 75 69 6e 74 33 32 29 (minType uint32) 0160: 20 28 6d 61 78 54 79 70 65 20 75 69 6e 74 33 32 (maxType uint32 0170: 29 29 20 22 53 44 4c 5f 48 61 73 45 76 65 6e 74 )) "SDL_HasEvent 0180: 73 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d s").(define-sdl- 0190: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 66 6c func void sdl-fl 01a0: 75 73 68 2d 65 76 65 6e 74 20 28 28 74 79 70 65 ush-event ((type 01b0: 20 75 69 6e 74 33 32 29 29 20 22 53 44 4c 5f 46 uint32)) "SDL_F 01c0: 6c 75 73 68 45 76 65 6e 74 22 29 0a 28 64 65 66 lushEvent").(def 01d0: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 ine-sdl-func voi 01e0: 64 20 73 64 6c 2d 66 6c 75 73 68 2d 65 76 65 6e d sdl-flush-even 01f0: 74 73 20 28 28 6d 69 6e 54 79 70 65 20 75 69 6e ts ((minType uin 0200: 74 33 32 29 20 28 6d 61 78 54 79 70 65 20 75 69 t32) (maxType ui 0210: 6e 74 33 32 29 29 20 22 53 44 4c 5f 46 6c 75 73 nt32)) "SDL_Flus 0220: 68 45 76 65 6e 74 73 22 29 0a 28 64 65 66 69 6e hEvents").(defin 0230: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s 0240: 64 6c 2d 70 6f 6c 6c 2d 65 76 65 6e 74 20 28 28 dl-poll-event (( 0250: 65 76 65 6e 74 20 28 2a 20 73 64 6c 2d 65 76 65 event (* sdl-eve 0260: 6e 74 2d 74 29 29 29 20 22 53 44 4c 5f 50 6f 6c nt-t))) "SDL_Pol 0270: 6c 45 76 65 6e 74 22 29 0a 28 64 65 66 69 6e 65 lEvent").(define 0280: 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 -sdl-func int sd 0290: 6c 2d 77 61 69 74 2d 65 76 65 6e 74 20 28 28 65 l-wait-event ((e 02a0: 76 65 6e 74 20 28 2a 20 73 64 6c 2d 65 76 65 6e vent (* sdl-even 02b0: 74 2d 74 29 29 29 20 22 53 44 4c 5f 57 61 69 74 t-t))) "SDL_Wait 02c0: 45 76 65 6e 74 22 29 0a 28 64 65 66 69 6e 65 2d Event").(define- 02d0: 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c sdl-func int sdl 02e0: 2d 77 61 69 74 2d 65 76 65 6e 74 2d 74 69 6d 65 -wait-event-time 02f0: 6f 75 74 20 28 28 65 76 65 6e 74 20 28 2a 20 73 out ((event (* s 0300: 64 6c 2d 65 76 65 6e 74 2d 74 29 29 20 28 74 69 dl-event-t)) (ti 0310: 6d 65 6f 75 74 20 69 6e 74 29 29 20 22 53 44 4c meout int)) "SDL 0320: 5f 57 61 69 74 45 76 65 6e 74 54 69 6d 65 6f 75 _WaitEventTimeou 0330: 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d t").(define-sdl- 0340: 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 70 75 73 func int sdl-pus 0350: 68 2d 65 76 65 6e 74 20 28 28 65 76 65 6e 74 20 h-event ((event 0360: 28 2a 20 73 64 6c 2d 65 76 65 6e 74 2d 74 29 29 (* sdl-event-t)) 0370: 29 20 22 53 44 4c 5f 50 75 73 68 45 76 65 6e 74 ) "SDL_PushEvent 0380: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0390: 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 73 65 74 unc void sdl-set 03a0: 2d 65 76 65 6e 74 2d 66 69 6c 74 65 72 20 28 28 -event-filter (( 03b0: 66 69 6c 74 65 72 20 73 64 6c 2d 65 76 65 6e 74 filter sdl-event 03c0: 2d 66 69 6c 74 65 72 2d 74 29 20 28 75 73 65 72 -filter-t) (user 03d0: 64 61 74 61 20 76 6f 69 64 2a 29 29 20 22 53 44 data void*)) "SD 03e0: 4c 5f 53 65 74 45 76 65 6e 74 46 69 6c 74 65 72 L_SetEventFilter 03f0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0400: 75 6e 63 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 73 unc sdl-bool-t s 0410: 64 6c 2d 67 65 74 2d 65 76 65 6e 74 2d 66 69 6c dl-get-event-fil 0420: 74 65 72 20 28 28 66 69 6c 74 65 72 20 28 2a 20 ter ((filter (* 0430: 73 64 6c 2d 65 76 65 6e 74 2d 66 69 6c 74 65 72 sdl-event-filter 0440: 2d 74 29 29 20 28 75 73 65 72 64 61 74 61 20 28 -t)) (userdata ( 0450: 2a 20 76 6f 69 64 2a 29 29 29 20 22 53 44 4c 5f * void*))) "SDL_ 0460: 47 65 74 45 76 65 6e 74 46 69 6c 74 65 72 22 29 GetEventFilter") 0470: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 0480: 63 20 76 6f 69 64 20 73 64 6c 2d 61 64 64 2d 65 c void sdl-add-e 0490: 76 65 6e 74 2d 77 61 74 63 68 20 28 28 66 69 6c vent-watch ((fil 04a0: 74 65 72 20 73 64 6c 2d 65 76 65 6e 74 2d 66 69 ter sdl-event-fi 04b0: 6c 74 65 72 2d 74 29 20 28 75 73 65 72 64 61 74 lter-t) (userdat 04c0: 61 20 76 6f 69 64 2a 29 29 20 22 53 44 4c 5f 41 a void*)) "SDL_A 04d0: 64 64 45 76 65 6e 74 57 61 74 63 68 22 29 0a 28 ddEventWatch").( 04e0: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 04f0: 76 6f 69 64 20 73 64 6c 2d 64 65 6c 2d 65 76 65 void sdl-del-eve 0500: 6e 74 2d 77 61 74 63 68 20 28 28 66 69 6c 74 65 nt-watch ((filte 0510: 72 20 73 64 6c 2d 65 76 65 6e 74 2d 66 69 6c 74 r sdl-event-filt 0520: 65 72 2d 74 29 20 28 75 73 65 72 64 61 74 61 20 er-t) (userdata 0530: 76 6f 69 64 2a 29 29 20 22 53 44 4c 5f 44 65 6c void*)) "SDL_Del 0540: 45 76 65 6e 74 57 61 74 63 68 22 29 0a 28 64 65 EventWatch").(de 0550: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f fine-sdl-func vo 0560: 69 64 20 73 64 6c 2d 66 69 6c 74 65 72 2d 65 76 id sdl-filter-ev 0570: 65 6e 74 73 20 28 28 66 69 6c 74 65 72 20 73 64 ents ((filter sd 0580: 6c 2d 65 76 65 6e 74 2d 66 69 6c 74 65 72 2d 74 l-event-filter-t 0590: 29 20 28 75 73 65 72 64 61 74 61 20 76 6f 69 64 ) (userdata void 05a0: 2a 29 29 20 22 53 44 4c 5f 46 69 6c 74 65 72 45 *)) "SDL_FilterE 05b0: 76 65 6e 74 73 22 29 0a 28 64 65 66 69 6e 65 2d vents").(define- 05c0: 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74 38 20 73 sdl-func uint8 s 05d0: 64 6c 2d 65 76 65 6e 74 2d 73 74 61 74 65 20 28 dl-event-state ( 05e0: 28 74 79 70 65 20 75 69 6e 74 33 32 29 20 28 73 (type uint32) (s 05f0: 74 61 74 65 20 69 6e 74 29 29 20 22 53 44 4c 5f tate int)) "SDL_ 0600: 45 76 65 6e 74 53 74 61 74 65 22 29 0a 28 64 65 EventState").(de 0610: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 fine-sdl-func ui 0620: 6e 74 33 32 20 73 64 6c 2d 72 65 67 69 73 74 65 nt32 sdl-registe 0630: 72 2d 65 76 65 6e 74 73 20 28 28 6e 75 6d 65 76 r-events ((numev 0640: 65 6e 74 73 20 69 6e 74 29 29 20 22 53 44 4c 5f ents int)) "SDL_ 0650: 52 65 67 69 73 74 65 72 45 76 65 6e 74 73 22 29 RegisterEvents") 0660: 0a .