Artifact 03d839a0ce6feec6a96266a89936ee091491a57b:

• File sdl2/timer-functions.ss — part of check-in [c9770d8f7f] at 2016-08-17 07:47:19 on branch trunk — added sdl2 (user: ovenpasta@pizzahack.eu size: 502)

0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
0010: 20 75 69 6e 74 33 32 20 73 64 6c 2d 67 65 74 2d   uint32 sdl-get-
0020: 74 69 63 6b 73 20 28 29 20 22 53 44 4c 5f 47 65  ticks () "SDL_Ge
0030: 74 54 69 63 6b 73 22 29 0a 28 64 65 66 69 6e 65  tTicks").(define
0040: 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74 36 34  -sdl-func uint64
0050: 20 73 64 6c 2d 67 65 74 2d 70 65 72 66 6f 72 6d   sdl-get-perform
0060: 61 6e 63 65 2d 63 6f 75 6e 74 65 72 20 28 29 20  ance-counter () 
0070: 22 53 44 4c 5f 47 65 74 50 65 72 66 6f 72 6d 61  "SDL_GetPerforma
0080: 6e 63 65 43 6f 75 6e 74 65 72 22 29 0a 28 64 65  nceCounter").(de
0090: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69  fine-sdl-func ui
00a0: 6e 74 36 34 20 73 64 6c 2d 67 65 74 2d 70 65 72  nt64 sdl-get-per
00b0: 66 6f 72 6d 61 6e 63 65 2d 66 72 65 71 75 65 6e  formance-frequen
00c0: 63 79 20 28 29 20 22 53 44 4c 5f 47 65 74 50 65  cy () "SDL_GetPe
00d0: 72 66 6f 72 6d 61 6e 63 65 46 72 65 71 75 65 6e  rformanceFrequen
00e0: 63 79 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c  cy").(define-sdl
00f0: 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 64  -func void sdl-d
0100: 65 6c 61 79 20 28 28 6d 73 20 75 69 6e 74 33 32  elay ((ms uint32
0110: 29 29 20 22 53 44 4c 5f 44 65 6c 61 79 22 29 0a  )) "SDL_Delay").
0120: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
0130: 20 73 64 6c 2d 74 69 6d 65 72 2d 69 64 2d 74 20   sdl-timer-id-t 
0140: 73 64 6c 2d 61 64 64 2d 74 69 6d 65 72 20 28 28  sdl-add-timer ((
0150: 69 6e 74 65 72 76 61 6c 20 75 69 6e 74 33 32 29  interval uint32)
0160: 20 28 63 61 6c 6c 62 61 63 6b 20 73 64 6c 2d 74   (callback sdl-t
0170: 69 6d 65 72 2d 63 61 6c 6c 62 61 63 6b 2d 74 29  imer-callback-t)
0180: 20 28 70 61 72 61 6d 20 76 6f 69 64 2a 29 29 20   (param void*)) 
0190: 22 53 44 4c 5f 41 64 64 54 69 6d 65 72 22 29 0a  "SDL_AddTimer").
01a0: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
01b0: 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 73 64 6c 2d   sdl-bool-t sdl-
01c0: 72 65 6d 6f 76 65 2d 74 69 6d 65 72 20 28 28 69  remove-timer ((i
01d0: 64 20 73 64 6c 2d 74 69 6d 65 72 2d 69 64 2d 74  d sdl-timer-id-t
01e0: 29 29 20 22 53 44 4c 5f 52 65 6d 6f 76 65 54 69  )) "SDL_RemoveTi
01f0: 6d 65 72 22 29 0a                                mer").