Artifact 23b2c68a24156b821097bf04fe54d3afaa4c9708:
- File sdl2/thread-functions.ss — part of check-in [c9770d8f7f] at 2016-08-17 07:47:19 on branch trunk — added sdl2 (user: ovenpasta@pizzahack.eu size: 910)
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0010: 20 28 2a 20 73 64 6c 2d 74 68 72 65 61 64 2d 74 (* sdl-thread-t 0020: 29 20 73 64 6c 2d 63 72 65 61 74 65 2d 74 68 72 ) sdl-create-thr 0030: 65 61 64 20 28 28 66 6e 20 73 64 6c 2d 74 68 72 ead ((fn sdl-thr 0040: 65 61 64 2d 66 75 6e 63 74 69 6f 6e 2d 74 29 20 ead-function-t) 0050: 28 6e 61 6d 65 20 73 74 72 69 6e 67 29 20 28 64 (name string) (d 0060: 61 74 61 20 76 6f 69 64 2a 29 29 20 22 53 44 4c ata void*)) "SDL 0070: 5f 43 72 65 61 74 65 54 68 72 65 61 64 22 29 0a _CreateThread"). 0080: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0090: 20 73 74 72 69 6e 67 20 73 64 6c 2d 67 65 74 2d string sdl-get- 00a0: 74 68 72 65 61 64 2d 6e 61 6d 65 20 28 28 74 68 thread-name ((th 00b0: 72 65 61 64 20 28 2a 20 73 64 6c 2d 74 68 72 65 read (* sdl-thre 00c0: 61 64 2d 74 29 29 29 20 22 53 44 4c 5f 47 65 74 ad-t))) "SDL_Get 00d0: 54 68 72 65 61 64 4e 61 6d 65 22 29 0a 28 64 65 ThreadName").(de 00e0: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 fine-sdl-func sd 00f0: 6c 2d 74 68 72 65 61 64 2d 69 64 2d 74 20 73 64 l-thread-id-t sd 0100: 6c 2d 74 68 72 65 61 64 2d 69 64 20 28 29 20 22 l-thread-id () " 0110: 53 44 4c 5f 54 68 72 65 61 64 49 44 22 29 0a 28 SDL_ThreadID").( 0120: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0130: 73 64 6c 2d 74 68 72 65 61 64 2d 69 64 2d 74 20 sdl-thread-id-t 0140: 73 64 6c 2d 67 65 74 2d 74 68 72 65 61 64 2d 69 sdl-get-thread-i 0150: 64 20 28 28 74 68 72 65 61 64 20 28 2a 20 73 64 d ((thread (* sd 0160: 6c 2d 74 68 72 65 61 64 2d 74 29 29 29 20 22 53 l-thread-t))) "S 0170: 44 4c 5f 47 65 74 54 68 72 65 61 64 49 44 22 29 DL_GetThreadID") 0180: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 0190: 63 20 69 6e 74 20 73 64 6c 2d 73 65 74 2d 74 68 c int sdl-set-th 01a0: 72 65 61 64 2d 70 72 69 6f 72 69 74 79 20 28 28 read-priority (( 01b0: 70 72 69 6f 72 69 74 79 20 73 64 6c 2d 74 68 72 priority sdl-thr 01c0: 65 61 64 2d 70 72 69 6f 72 69 74 79 2d 74 29 29 ead-priority-t)) 01d0: 20 22 53 44 4c 5f 53 65 74 54 68 72 65 61 64 50 "SDL_SetThreadP 01e0: 72 69 6f 72 69 74 79 22 29 0a 28 64 65 66 69 6e riority").(defin 01f0: 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 e-sdl-func void 0200: 73 64 6c 2d 77 61 69 74 2d 74 68 72 65 61 64 20 sdl-wait-thread 0210: 28 28 74 68 72 65 61 64 20 28 2a 20 73 64 6c 2d ((thread (* sdl- 0220: 74 68 72 65 61 64 2d 74 29 29 20 28 73 74 61 74 thread-t)) (stat 0230: 75 73 20 28 2a 20 69 6e 74 29 29 29 20 22 53 44 us (* int))) "SD 0240: 4c 5f 57 61 69 74 54 68 72 65 61 64 22 29 0a 28 L_WaitThread").( 0250: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0260: 76 6f 69 64 20 73 64 6c 2d 64 65 74 61 63 68 2d void sdl-detach- 0270: 74 68 72 65 61 64 20 28 28 74 68 72 65 61 64 20 thread ((thread 0280: 28 2a 20 73 64 6c 2d 74 68 72 65 61 64 2d 74 29 (* sdl-thread-t) 0290: 29 29 20 22 53 44 4c 5f 44 65 74 61 63 68 54 68 )) "SDL_DetachTh 02a0: 72 65 61 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 read").(define-s 02b0: 64 6c 2d 66 75 6e 63 20 73 64 6c 2d 74 6c 73 69 dl-func sdl-tlsi 02c0: 64 2d 74 20 73 64 6c 2d 74 6c 73 2d 63 72 65 61 d-t sdl-tls-crea 02d0: 74 65 20 28 29 20 22 53 44 4c 5f 54 4c 53 43 72 te () "SDL_TLSCr 02e0: 65 61 74 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 eate").(define-s 02f0: 64 6c 2d 66 75 6e 63 20 76 6f 69 64 2a 20 73 64 dl-func void* sd 0300: 6c 2d 74 6c 73 2d 67 65 74 20 28 28 69 64 20 73 l-tls-get ((id s 0310: 64 6c 2d 74 6c 73 69 64 2d 74 29 29 20 22 53 44 dl-tlsid-t)) "SD 0320: 4c 5f 54 4c 53 47 65 74 22 29 0a 28 64 65 66 69 L_TLSGet").(defi 0330: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 ne-sdl-func int 0340: 73 64 6c 2d 74 6c 73 2d 73 65 74 20 28 28 69 64 sdl-tls-set ((id 0350: 20 73 64 6c 2d 74 6c 73 69 64 2d 74 29 20 28 76 sdl-tlsid-t) (v 0360: 61 6c 75 65 20 76 6f 69 64 2a 29 20 28 64 65 73 alue void*) (des 0370: 74 72 75 63 74 6f 72 20 76 6f 69 64 2a 29 29 20 tructor void*)) 0380: 22 53 44 4c 5f 54 4c 53 53 65 74 22 29 0a "SDL_TLSSet").