Artifact b02d27839857d086ce19376b57a22184be029a8e:
- File sdl2/log-functions.ss — part of check-in [c9770d8f7f] at 2016-08-17 07:47:19 on branch trunk — added sdl2 (user: ovenpasta@pizzahack.eu size: 1465)
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 6c 6f 67 2d 73 65 void sdl-log-se 0020: 74 2d 61 6c 6c 2d 70 72 69 6f 72 69 74 79 20 28 t-all-priority ( 0030: 28 70 72 69 6f 72 69 74 79 20 73 64 6c 2d 6c 6f (priority sdl-lo 0040: 67 2d 70 72 69 6f 72 69 74 79 2d 74 29 29 20 22 g-priority-t)) " 0050: 53 44 4c 5f 4c 6f 67 53 65 74 41 6c 6c 50 72 69 SDL_LogSetAllPri 0060: 6f 72 69 74 79 22 29 0a 28 64 65 66 69 6e 65 2d ority").(define- 0070: 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 sdl-func void sd 0080: 6c 2d 6c 6f 67 2d 73 65 74 2d 70 72 69 6f 72 69 l-log-set-priori 0090: 74 79 20 28 28 63 61 74 65 67 6f 72 79 20 69 6e ty ((category in 00a0: 74 29 20 28 70 72 69 6f 72 69 74 79 20 73 64 6c t) (priority sdl 00b0: 2d 6c 6f 67 2d 70 72 69 6f 72 69 74 79 2d 74 29 -log-priority-t) 00c0: 29 20 22 53 44 4c 5f 4c 6f 67 53 65 74 50 72 69 ) "SDL_LogSetPri 00d0: 6f 72 69 74 79 22 29 0a 28 64 65 66 69 6e 65 2d ority").(define- 00e0: 73 64 6c 2d 66 75 6e 63 20 73 64 6c 2d 6c 6f 67 sdl-func sdl-log 00f0: 2d 70 72 69 6f 72 69 74 79 2d 74 20 73 64 6c 2d -priority-t sdl- 0100: 6c 6f 67 2d 67 65 74 2d 70 72 69 6f 72 69 74 79 log-get-priority 0110: 20 28 28 63 61 74 65 67 6f 72 79 20 69 6e 74 29 ((category int) 0120: 29 20 22 53 44 4c 5f 4c 6f 67 47 65 74 50 72 69 ) "SDL_LogGetPri 0130: 6f 72 69 74 79 22 29 0a 28 64 65 66 69 6e 65 2d ority").(define- 0140: 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 sdl-func void sd 0150: 6c 2d 6c 6f 67 2d 72 65 73 65 74 2d 70 72 69 6f l-log-reset-prio 0160: 72 69 74 69 65 73 20 28 29 20 22 53 44 4c 5f 4c rities () "SDL_L 0170: 6f 67 52 65 73 65 74 50 72 69 6f 72 69 74 69 65 ogResetPrioritie 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 6c 6f func void sdl-lo 01a0: 67 20 28 28 66 6d 74 20 73 74 72 69 6e 67 29 29 g ((fmt string)) 01b0: 20 22 53 44 4c 5f 4c 6f 67 22 29 0a 28 64 65 66 "SDL_Log").(def 01c0: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 ine-sdl-func voi 01d0: 64 20 73 64 6c 2d 6c 6f 67 2d 76 65 72 62 6f 73 d sdl-log-verbos 01e0: 65 20 28 28 63 61 74 65 67 6f 72 79 20 69 6e 74 e ((category int 01f0: 29 20 28 66 6d 74 20 73 74 72 69 6e 67 29 29 20 ) (fmt string)) 0200: 22 53 44 4c 5f 4c 6f 67 56 65 72 62 6f 73 65 22 "SDL_LogVerbose" 0210: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0220: 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6c 6f 67 2d nc void sdl-log- 0230: 64 65 62 75 67 20 28 28 63 61 74 65 67 6f 72 79 debug ((category 0240: 20 69 6e 74 29 20 28 66 6d 74 20 73 74 72 69 6e int) (fmt strin 0250: 67 29 29 20 22 53 44 4c 5f 4c 6f 67 44 65 62 75 g)) "SDL_LogDebu 0260: 67 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d g").(define-sdl- 0270: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6c 6f func void sdl-lo 0280: 67 2d 69 6e 66 6f 20 28 28 63 61 74 65 67 6f 72 g-info ((categor 0290: 79 20 69 6e 74 29 20 28 66 6d 74 20 73 74 72 69 y int) (fmt stri 02a0: 6e 67 29 29 20 22 53 44 4c 5f 4c 6f 67 49 6e 66 ng)) "SDL_LogInf 02b0: 6f 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d o").(define-sdl- 02c0: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6c 6f func void sdl-lo 02d0: 67 2d 77 61 72 6e 20 28 28 63 61 74 65 67 6f 72 g-warn ((categor 02e0: 79 20 69 6e 74 29 20 28 66 6d 74 20 73 74 72 69 y int) (fmt stri 02f0: 6e 67 29 29 20 22 53 44 4c 5f 4c 6f 67 57 61 72 ng)) "SDL_LogWar 0300: 6e 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d n").(define-sdl- 0310: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6c 6f func void sdl-lo 0320: 67 2d 65 72 72 6f 72 20 28 28 63 61 74 65 67 6f g-error ((catego 0330: 72 79 20 69 6e 74 29 20 28 66 6d 74 20 73 74 72 ry int) (fmt str 0340: 69 6e 67 29 29 20 22 53 44 4c 5f 4c 6f 67 45 72 ing)) "SDL_LogEr 0350: 72 6f 72 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 ror").(define-sd 0360: 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d l-func void sdl- 0370: 6c 6f 67 2d 63 72 69 74 69 63 61 6c 20 28 28 63 log-critical ((c 0380: 61 74 65 67 6f 72 79 20 69 6e 74 29 20 28 66 6d ategory int) (fm 0390: 74 20 73 74 72 69 6e 67 29 29 20 22 53 44 4c 5f t string)) "SDL_ 03a0: 4c 6f 67 43 72 69 74 69 63 61 6c 22 29 0a 28 64 LogCritical").(d 03b0: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 efine-sdl-func v 03c0: 6f 69 64 20 73 64 6c 2d 6c 6f 67 2d 6d 65 73 73 oid sdl-log-mess 03d0: 61 67 65 20 28 28 63 61 74 65 67 6f 72 79 20 69 age ((category i 03e0: 6e 74 29 20 28 70 72 69 6f 72 69 74 79 20 73 64 nt) (priority sd 03f0: 6c 2d 6c 6f 67 2d 70 72 69 6f 72 69 74 79 2d 74 l-log-priority-t 0400: 29 20 28 66 6d 74 20 73 74 72 69 6e 67 29 29 20 ) (fmt string)) 0410: 22 53 44 4c 5f 4c 6f 67 4d 65 73 73 61 67 65 22 "SDL_LogMessage" 0420: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0430: 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6c 6f 67 2d nc void sdl-log- 0440: 6d 65 73 73 61 67 65 76 20 28 28 63 61 74 65 67 messagev ((categ 0450: 6f 72 79 20 69 6e 74 29 20 28 70 72 69 6f 72 69 ory int) (priori 0460: 74 79 20 73 64 6c 2d 6c 6f 67 2d 70 72 69 6f 72 ty sdl-log-prior 0470: 69 74 79 2d 74 29 20 28 66 6d 74 20 73 74 72 69 ity-t) (fmt stri 0480: 6e 67 29 20 28 61 70 20 76 61 2d 6c 69 73 74 29 ng) (ap va-list) 0490: 29 20 22 53 44 4c 5f 4c 6f 67 4d 65 73 73 61 67 ) "SDL_LogMessag 04a0: 65 56 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c eV").(define-sdl 04b0: 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6c -func void sdl-l 04c0: 6f 67 2d 67 65 74 2d 6f 75 74 70 75 74 2d 66 75 og-get-output-fu 04d0: 6e 63 74 69 6f 6e 20 28 28 63 61 6c 6c 62 61 63 nction ((callbac 04e0: 6b 20 28 2a 20 73 64 6c 2d 6c 6f 67 2d 6f 75 74 k (* sdl-log-out 04f0: 70 75 74 2d 66 75 6e 63 74 69 6f 6e 2d 74 29 29 put-function-t)) 0500: 20 28 75 73 65 72 64 61 74 61 20 28 2a 20 76 6f (userdata (* vo 0510: 69 64 2a 29 29 29 20 22 53 44 4c 5f 4c 6f 67 47 id*))) "SDL_LogG 0520: 65 74 4f 75 74 70 75 74 46 75 6e 63 74 69 6f 6e etOutputFunction 0530: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0540: 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 6c 6f 67 unc void sdl-log 0550: 2d 73 65 74 2d 6f 75 74 70 75 74 2d 66 75 6e 63 -set-output-func 0560: 74 69 6f 6e 20 28 28 63 61 6c 6c 62 61 63 6b 20 tion ((callback 0570: 73 64 6c 2d 6c 6f 67 2d 6f 75 74 70 75 74 2d 66 sdl-log-output-f 0580: 75 6e 63 74 69 6f 6e 2d 74 29 20 28 75 73 65 72 unction-t) (user 0590: 64 61 74 61 20 76 6f 69 64 2a 29 29 20 22 53 44 data void*)) "SD 05a0: 4c 5f 4c 6f 67 53 65 74 4f 75 74 70 75 74 46 75 L_LogSetOutputFu 05b0: 6e 63 74 69 6f 6e 22 29 0a nction").