Artifact 9d9cec609bd1b6d7a701f048c03f300265a0621c:

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

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 69 6e 69 74 20 28 28   int sdl-init ((
0020: 66 6c 61 67 73 20 75 69 6e 74 33 32 29 29 20 22  flags uint32)) "
0030: 53 44 4c 5f 49 6e 69 74 22 29 0a 28 64 65 66 69  SDL_Init").(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 69 6e 69 74 2d 73 75 62 2d 73 79 73  sdl-init-sub-sys
0060: 74 65 6d 20 28 28 66 6c 61 67 73 20 75 69 6e 74  tem ((flags uint
0070: 33 32 29 29 20 22 53 44 4c 5f 49 6e 69 74 53 75  32)) "SDL_InitSu
0080: 62 53 79 73 74 65 6d 22 29 0a 28 64 65 66 69 6e  bSystem").(defin
0090: 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20  e-sdl-func void 
00a0: 73 64 6c 2d 71 75 69 74 2d 73 75 62 2d 73 79 73  sdl-quit-sub-sys
00b0: 74 65 6d 20 28 28 66 6c 61 67 73 20 75 69 6e 74  tem ((flags uint
00c0: 33 32 29 29 20 22 53 44 4c 5f 51 75 69 74 53 75  32)) "SDL_QuitSu
00d0: 62 53 79 73 74 65 6d 22 29 0a 28 64 65 66 69 6e  bSystem").(defin
00e0: 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74 33  e-sdl-func uint3
00f0: 32 20 73 64 6c 2d 77 61 73 2d 69 6e 69 74 20 28  2 sdl-was-init (
0100: 28 66 6c 61 67 73 20 75 69 6e 74 33 32 29 29 20  (flags uint32)) 
0110: 22 53 44 4c 5f 57 61 73 49 6e 69 74 22 29 0a 28  "SDL_WasInit").(
0120: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20  define-sdl-func 
0130: 76 6f 69 64 20 73 64 6c 2d 71 75 69 74 20 28 29  void sdl-quit ()
0140: 20 22 53 44 4c 5f 51 75 69 74 22 29 0a            "SDL_Quit").