Artifact 58a67dafa2cd536f76bdccd4f440f67b14b2ab91:
- File sdl2/hints-functions.ss — part of check-in [e0fdb312bb] at 2016-12-14 16:32:00 on branch trunk — upgraded SDL2.0 API to 2.0.5, added README for SDL2 ffi (user: aldo size: 734)
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0010: 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 73 64 6c 2d sdl-bool-t sdl- 0020: 73 65 74 2d 68 69 6e 74 2d 77 69 74 68 2d 70 72 set-hint-with-pr 0030: 69 6f 72 69 74 79 20 28 28 6e 61 6d 65 20 73 74 iority ((name st 0040: 72 69 6e 67 29 20 28 76 61 6c 75 65 20 73 74 72 ring) (value str 0050: 69 6e 67 29 20 28 70 72 69 6f 72 69 74 79 20 73 ing) (priority s 0060: 64 6c 2d 68 69 6e 74 2d 70 72 69 6f 72 69 74 79 dl-hint-priority 0070: 2d 74 29 29 20 22 53 44 4c 5f 53 65 74 48 69 6e -t)) "SDL_SetHin 0080: 74 57 69 74 68 50 72 69 6f 72 69 74 79 22 29 0a tWithPriority"). 0090: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 00a0: 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 73 64 6c 2d sdl-bool-t sdl- 00b0: 73 65 74 2d 68 69 6e 74 20 28 28 6e 61 6d 65 20 set-hint ((name 00c0: 73 74 72 69 6e 67 29 20 28 76 61 6c 75 65 20 73 string) (value s 00d0: 74 72 69 6e 67 29 29 20 22 53 44 4c 5f 53 65 74 tring)) "SDL_Set 00e0: 48 69 6e 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 Hint").(define-s 00f0: 64 6c 2d 66 75 6e 63 20 73 74 72 69 6e 67 20 73 dl-func string s 0100: 64 6c 2d 67 65 74 2d 68 69 6e 74 20 28 28 6e 61 dl-get-hint ((na 0110: 6d 65 20 73 74 72 69 6e 67 29 29 20 22 53 44 4c me string)) "SDL 0120: 5f 47 65 74 48 69 6e 74 22 29 0a 28 64 65 66 69 _GetHint").(defi 0130: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 6c 2d ne-sdl-func sdl- 0140: 62 6f 6f 6c 2d 74 20 73 64 6c 2d 67 65 74 2d 68 bool-t sdl-get-h 0150: 69 6e 74 2d 62 6f 6f 6c 65 61 6e 20 28 28 6e 61 int-boolean ((na 0160: 6d 65 20 73 74 72 69 6e 67 29 20 28 64 65 66 61 me string) (defa 0170: 75 6c 74 5f 76 61 6c 75 65 20 73 64 6c 2d 62 6f ult_value sdl-bo 0180: 6f 6c 2d 74 29 29 20 22 53 44 4c 5f 47 65 74 48 ol-t)) "SDL_GetH 0190: 69 6e 74 42 6f 6f 6c 65 61 6e 22 29 0a 28 64 65 intBoolean").(de 01a0: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f fine-sdl-func vo 01b0: 69 64 20 73 64 6c 2d 61 64 64 2d 68 69 6e 74 2d id sdl-add-hint- 01c0: 63 61 6c 6c 62 61 63 6b 20 28 28 6e 61 6d 65 20 callback ((name 01d0: 73 74 72 69 6e 67 29 20 28 63 61 6c 6c 62 61 63 string) (callbac 01e0: 6b 20 73 64 6c 2d 68 69 6e 74 2d 63 61 6c 6c 62 k sdl-hint-callb 01f0: 61 63 6b 2d 74 29 20 28 75 73 65 72 64 61 74 61 ack-t) (userdata 0200: 20 76 6f 69 64 2a 29 29 20 22 53 44 4c 5f 41 64 void*)) "SDL_Ad 0210: 64 48 69 6e 74 43 61 6c 6c 62 61 63 6b 22 29 0a dHintCallback"). 0220: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0230: 20 76 6f 69 64 20 73 64 6c 2d 64 65 6c 2d 68 69 void sdl-del-hi 0240: 6e 74 2d 63 61 6c 6c 62 61 63 6b 20 28 28 6e 61 nt-callback ((na 0250: 6d 65 20 73 74 72 69 6e 67 29 20 28 63 61 6c 6c me string) (call 0260: 62 61 63 6b 20 73 64 6c 2d 68 69 6e 74 2d 63 61 back sdl-hint-ca 0270: 6c 6c 62 61 63 6b 2d 74 29 20 28 75 73 65 72 64 llback-t) (userd 0280: 61 74 61 20 76 6f 69 64 2a 29 29 20 22 53 44 4c ata void*)) "SDL 0290: 5f 44 65 6c 48 69 6e 74 43 61 6c 6c 62 61 63 6b _DelHintCallback 02a0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 02b0: 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 63 6c 65 unc void sdl-cle 02c0: 61 72 2d 68 69 6e 74 73 20 28 29 20 22 53 44 4c ar-hints () "SDL 02d0: 5f 43 6c 65 61 72 48 69 6e 74 73 22 29 0a _ClearHints").