Artifact 523aa39870c91c314a591cf431826d4487a3b2c3:
- File sdl2/audio-functions.ss — part of check-in [0e3c53a30e] at 2018-01-08 17:10:49 on branch trunk — SDL_Image added (user: ovenpasta@users.noreply.github.com size: 3905)
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 67 65 74 2d 6e 75 6d int sdl-get-num 0020: 2d 61 75 64 69 6f 2d 64 72 69 76 65 72 73 20 28 -audio-drivers ( 0030: 29 20 22 53 44 4c 5f 47 65 74 4e 75 6d 41 75 64 ) "SDL_GetNumAud 0040: 69 6f 44 72 69 76 65 72 73 22 29 0a 28 64 65 66 ioDrivers").(def 0050: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 74 72 ine-sdl-func str 0060: 69 6e 67 20 73 64 6c 2d 67 65 74 2d 61 75 64 69 ing sdl-get-audi 0070: 6f 2d 64 72 69 76 65 72 20 28 28 69 6e 64 65 78 o-driver ((index 0080: 20 69 6e 74 29 29 20 22 53 44 4c 5f 47 65 74 41 int)) "SDL_GetA 0090: 75 64 69 6f 44 72 69 76 65 72 22 29 0a 28 64 65 udioDriver").(de 00a0: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e fine-sdl-func in 00b0: 74 20 73 64 6c 2d 61 75 64 69 6f 2d 69 6e 69 74 t sdl-audio-init 00c0: 20 28 28 64 72 69 76 65 72 5f 6e 61 6d 65 20 73 ((driver_name s 00d0: 74 72 69 6e 67 29 29 20 22 53 44 4c 5f 41 75 64 tring)) "SDL_Aud 00e0: 69 6f 49 6e 69 74 22 29 0a 28 64 65 66 69 6e 65 ioInit").(define 00f0: 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 -sdl-func void s 0100: 64 6c 2d 61 75 64 69 6f 2d 71 75 69 74 20 28 29 dl-audio-quit () 0110: 20 22 53 44 4c 5f 41 75 64 69 6f 51 75 69 74 22 "SDL_AudioQuit" 0120: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0130: 6e 63 20 73 74 72 69 6e 67 20 73 64 6c 2d 67 65 nc string sdl-ge 0140: 74 2d 63 75 72 72 65 6e 74 2d 61 75 64 69 6f 2d t-current-audio- 0150: 64 72 69 76 65 72 20 28 29 20 22 53 44 4c 5f 47 driver () "SDL_G 0160: 65 74 43 75 72 72 65 6e 74 41 75 64 69 6f 44 72 etCurrentAudioDr 0170: 69 76 65 72 22 29 0a 28 64 65 66 69 6e 65 2d 73 iver").(define-s 0180: 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d dl-func int sdl- 0190: 6f 70 65 6e 2d 61 75 64 69 6f 20 28 28 64 65 73 open-audio ((des 01a0: 69 72 65 64 20 28 2a 20 73 64 6c 2d 61 75 64 69 ired (* sdl-audi 01b0: 6f 2d 73 70 65 63 2d 74 29 29 20 28 6f 62 74 61 o-spec-t)) (obta 01c0: 69 6e 65 64 20 28 2a 20 73 64 6c 2d 61 75 64 69 ined (* sdl-audi 01d0: 6f 2d 73 70 65 63 2d 74 29 29 29 20 22 53 44 4c o-spec-t))) "SDL 01e0: 5f 4f 70 65 6e 41 75 64 69 6f 22 29 0a 28 64 65 _OpenAudio").(de 01f0: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e fine-sdl-func in 0200: 74 20 73 64 6c 2d 67 65 74 2d 6e 75 6d 2d 61 75 t sdl-get-num-au 0210: 64 69 6f 2d 64 65 76 69 63 65 73 20 28 28 69 73 dio-devices ((is 0220: 63 61 70 74 75 72 65 20 69 6e 74 29 29 20 22 53 capture int)) "S 0230: 44 4c 5f 47 65 74 4e 75 6d 41 75 64 69 6f 44 65 DL_GetNumAudioDe 0240: 76 69 63 65 73 22 29 0a 28 64 65 66 69 6e 65 2d vices").(define- 0250: 73 64 6c 2d 66 75 6e 63 20 73 74 72 69 6e 67 20 sdl-func string 0260: 73 64 6c 2d 67 65 74 2d 61 75 64 69 6f 2d 64 65 sdl-get-audio-de 0270: 76 69 63 65 2d 6e 61 6d 65 20 28 28 69 6e 64 65 vice-name ((inde 0280: 78 20 69 6e 74 29 20 28 69 73 63 61 70 74 75 72 x int) (iscaptur 0290: 65 20 69 6e 74 29 29 20 22 53 44 4c 5f 47 65 74 e int)) "SDL_Get 02a0: 41 75 64 69 6f 44 65 76 69 63 65 4e 61 6d 65 22 AudioDeviceName" 02b0: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 02c0: 6e 63 20 73 64 6c 2d 61 75 64 69 6f 2d 64 65 76 nc sdl-audio-dev 02d0: 69 63 65 2d 69 64 2d 74 20 73 64 6c 2d 6f 70 65 ice-id-t sdl-ope 02e0: 6e 2d 61 75 64 69 6f 2d 64 65 76 69 63 65 20 28 n-audio-device ( 02f0: 28 64 65 76 69 63 65 20 73 74 72 69 6e 67 29 20 (device string) 0300: 28 69 73 63 61 70 74 75 72 65 20 69 6e 74 29 20 (iscapture int) 0310: 28 64 65 73 69 72 65 64 20 28 2a 20 73 64 6c 2d (desired (* sdl- 0320: 61 75 64 69 6f 2d 73 70 65 63 2d 74 29 29 20 28 audio-spec-t)) ( 0330: 6f 62 74 61 69 6e 65 64 20 28 2a 20 73 64 6c 2d obtained (* sdl- 0340: 61 75 64 69 6f 2d 73 70 65 63 2d 74 29 29 20 28 audio-spec-t)) ( 0350: 61 6c 6c 6f 77 65 64 5f 63 68 61 6e 67 65 73 20 allowed_changes 0360: 69 6e 74 29 29 20 22 53 44 4c 5f 4f 70 65 6e 41 int)) "SDL_OpenA 0370: 75 64 69 6f 44 65 76 69 63 65 22 29 0a 28 64 65 udioDevice").(de 0380: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 fine-sdl-func sd 0390: 6c 2d 61 75 64 69 6f 2d 73 74 61 74 75 73 2d 74 l-audio-status-t 03a0: 20 73 64 6c 2d 67 65 74 2d 61 75 64 69 6f 2d 73 sdl-get-audio-s 03b0: 74 61 74 75 73 20 28 29 20 22 53 44 4c 5f 47 65 tatus () "SDL_Ge 03c0: 74 41 75 64 69 6f 53 74 61 74 75 73 22 29 0a 28 tAudioStatus").( 03d0: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 03e0: 73 64 6c 2d 61 75 64 69 6f 2d 73 74 61 74 75 73 sdl-audio-status 03f0: 2d 74 20 73 64 6c 2d 67 65 74 2d 61 75 64 69 6f -t sdl-get-audio 0400: 2d 64 65 76 69 63 65 2d 73 74 61 74 75 73 20 28 -device-status ( 0410: 28 64 65 76 20 73 64 6c 2d 61 75 64 69 6f 2d 64 (dev sdl-audio-d 0420: 65 76 69 63 65 2d 69 64 2d 74 29 29 20 22 53 44 evice-id-t)) "SD 0430: 4c 5f 47 65 74 41 75 64 69 6f 44 65 76 69 63 65 L_GetAudioDevice 0440: 53 74 61 74 75 73 22 29 0a 28 64 65 66 69 6e 65 Status").(define 0450: 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 -sdl-func void s 0460: 64 6c 2d 70 61 75 73 65 2d 61 75 64 69 6f 20 28 dl-pause-audio ( 0470: 28 70 61 75 73 65 5f 6f 6e 20 69 6e 74 29 29 20 (pause_on int)) 0480: 22 53 44 4c 5f 50 61 75 73 65 41 75 64 69 6f 22 "SDL_PauseAudio" 0490: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 04a0: 6e 63 20 76 6f 69 64 20 73 64 6c 2d 70 61 75 73 nc void sdl-paus 04b0: 65 2d 61 75 64 69 6f 2d 64 65 76 69 63 65 20 28 e-audio-device ( 04c0: 28 64 65 76 20 73 64 6c 2d 61 75 64 69 6f 2d 64 (dev sdl-audio-d 04d0: 65 76 69 63 65 2d 69 64 2d 74 29 20 28 70 61 75 evice-id-t) (pau 04e0: 73 65 5f 6f 6e 20 69 6e 74 29 29 20 22 53 44 4c se_on int)) "SDL 04f0: 5f 50 61 75 73 65 41 75 64 69 6f 44 65 76 69 63 _PauseAudioDevic 0500: 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d e").(define-sdl- 0510: 66 75 6e 63 20 28 2a 20 73 64 6c 2d 61 75 64 69 func (* sdl-audi 0520: 6f 2d 73 70 65 63 2d 74 29 20 73 64 6c 2d 6c 6f o-spec-t) sdl-lo 0530: 61 64 2d 77 61 76 2d 72 77 20 28 28 73 72 63 20 ad-wav-rw ((src 0540: 28 2a 20 73 64 6c 2d 72 77 2d 6f 70 73 2d 74 29 (* sdl-rw-ops-t) 0550: 29 20 28 66 72 65 65 73 72 63 20 69 6e 74 29 20 ) (freesrc int) 0560: 28 73 70 65 63 20 28 2a 20 73 64 6c 2d 61 75 64 (spec (* sdl-aud 0570: 69 6f 2d 73 70 65 63 2d 74 29 29 20 28 61 75 64 io-spec-t)) (aud 0580: 69 6f 5f 62 75 66 20 28 2a 20 75 69 6e 74 38 29 io_buf (* uint8) 0590: 29 20 28 61 75 64 69 6f 5f 6c 65 6e 20 28 2a 20 ) (audio_len (* 05a0: 75 69 6e 74 33 32 29 29 29 20 22 53 44 4c 5f 4c uint32))) "SDL_L 05b0: 6f 61 64 57 41 56 5f 52 57 22 29 0a 28 64 65 66 oadWAV_RW").(def 05c0: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 ine-sdl-func voi 05d0: 64 20 73 64 6c 2d 66 72 65 65 2d 77 61 76 20 28 d sdl-free-wav ( 05e0: 28 61 75 64 69 6f 5f 62 75 66 20 28 2a 20 75 69 (audio_buf (* ui 05f0: 6e 74 38 29 29 29 20 22 53 44 4c 5f 46 72 65 65 nt8))) "SDL_Free 0600: 57 41 56 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 WAV").(define-sd 0610: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 62 l-func int sdl-b 0620: 75 69 6c 64 2d 61 75 64 69 6f 2d 63 76 74 20 28 uild-audio-cvt ( 0630: 28 63 76 74 20 28 2a 20 73 64 6c 2d 61 75 64 69 (cvt (* sdl-audi 0640: 6f 2d 63 76 74 2d 74 29 29 20 28 73 72 63 5f 66 o-cvt-t)) (src_f 0650: 6f 72 6d 61 74 20 73 64 6c 2d 61 75 64 69 6f 2d ormat sdl-audio- 0660: 66 6f 72 6d 61 74 2d 74 29 20 28 73 72 63 5f 63 format-t) (src_c 0670: 68 61 6e 6e 65 6c 73 20 75 69 6e 74 38 29 20 28 hannels uint8) ( 0680: 73 72 63 5f 72 61 74 65 20 69 6e 74 29 20 28 64 src_rate int) (d 0690: 73 74 5f 66 6f 72 6d 61 74 20 73 64 6c 2d 61 75 st_format sdl-au 06a0: 64 69 6f 2d 66 6f 72 6d 61 74 2d 74 29 20 28 64 dio-format-t) (d 06b0: 73 74 5f 63 68 61 6e 6e 65 6c 73 20 75 69 6e 74 st_channels uint 06c0: 38 29 20 28 64 73 74 5f 72 61 74 65 20 69 6e 74 8) (dst_rate int 06d0: 29 29 20 22 53 44 4c 5f 42 75 69 6c 64 41 75 64 )) "SDL_BuildAud 06e0: 69 6f 43 56 54 22 29 0a 28 64 65 66 69 6e 65 2d ioCVT").(define- 06f0: 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c sdl-func int sdl 0700: 2d 63 6f 6e 76 65 72 74 2d 61 75 64 69 6f 20 28 -convert-audio ( 0710: 28 63 76 74 20 28 2a 20 73 64 6c 2d 61 75 64 69 (cvt (* sdl-audi 0720: 6f 2d 63 76 74 2d 74 29 29 29 20 22 53 44 4c 5f o-cvt-t))) "SDL_ 0730: 43 6f 6e 76 65 72 74 41 75 64 69 6f 22 29 0a 28 ConvertAudio").( 0740: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0750: 28 2a 20 73 64 6c 2d 61 75 64 69 6f 2d 73 74 72 (* sdl-audio-str 0760: 65 61 6d 2d 74 29 20 73 64 6c 2d 6e 65 77 2d 61 eam-t) sdl-new-a 0770: 75 64 69 6f 2d 73 74 72 65 61 6d 20 28 28 73 72 udio-stream ((sr 0780: 63 5f 66 6f 72 6d 61 74 20 73 64 6c 2d 61 75 64 c_format sdl-aud 0790: 69 6f 2d 66 6f 72 6d 61 74 2d 74 29 20 28 73 72 io-format-t) (sr 07a0: 63 5f 63 68 61 6e 6e 65 6c 73 20 75 69 6e 74 38 c_channels uint8 07b0: 29 20 28 73 72 63 5f 72 61 74 65 20 69 6e 74 29 ) (src_rate int) 07c0: 20 28 64 73 74 5f 66 6f 72 6d 61 74 20 73 64 6c (dst_format sdl 07d0: 2d 61 75 64 69 6f 2d 66 6f 72 6d 61 74 2d 74 29 -audio-format-t) 07e0: 20 28 64 73 74 5f 63 68 61 6e 6e 65 6c 73 20 75 (dst_channels u 07f0: 69 6e 74 38 29 20 28 64 73 74 5f 72 61 74 65 20 int8) (dst_rate 0800: 69 6e 74 29 29 20 22 53 44 4c 5f 4e 65 77 41 75 int)) "SDL_NewAu 0810: 64 69 6f 53 74 72 65 61 6d 22 29 0a 28 64 65 66 dioStream").(def 0820: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 ine-sdl-func int 0830: 20 73 64 6c 2d 61 75 64 69 6f 2d 73 74 72 65 61 sdl-audio-strea 0840: 6d 2d 70 75 74 20 28 28 73 74 72 65 61 6d 20 28 m-put ((stream ( 0850: 2a 20 73 64 6c 2d 61 75 64 69 6f 2d 73 74 72 65 * sdl-audio-stre 0860: 61 6d 2d 74 29 29 20 28 62 75 66 20 76 6f 69 64 am-t)) (buf void 0870: 2a 29 20 28 6c 65 6e 20 69 6e 74 29 29 20 22 53 *) (len int)) "S 0880: 44 4c 5f 41 75 64 69 6f 53 74 72 65 61 6d 50 75 DL_AudioStreamPu 0890: 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d t").(define-sdl- 08a0: 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 61 75 64 func int sdl-aud 08b0: 69 6f 2d 73 74 72 65 61 6d 2d 67 65 74 20 28 28 io-stream-get (( 08c0: 73 74 72 65 61 6d 20 28 2a 20 73 64 6c 2d 61 75 stream (* sdl-au 08d0: 64 69 6f 2d 73 74 72 65 61 6d 2d 74 29 29 20 28 dio-stream-t)) ( 08e0: 62 75 66 20 76 6f 69 64 2a 29 20 28 6c 65 6e 20 buf void*) (len 08f0: 69 6e 74 29 29 20 22 53 44 4c 5f 41 75 64 69 6f int)) "SDL_Audio 0900: 53 74 72 65 61 6d 47 65 74 22 29 0a 28 64 65 66 StreamGet").(def 0910: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 ine-sdl-func int 0920: 20 73 64 6c 2d 61 75 64 69 6f 2d 73 74 72 65 61 sdl-audio-strea 0930: 6d 2d 61 76 61 69 6c 61 62 6c 65 20 28 28 73 74 m-available ((st 0940: 72 65 61 6d 20 28 2a 20 73 64 6c 2d 61 75 64 69 ream (* sdl-audi 0950: 6f 2d 73 74 72 65 61 6d 2d 74 29 29 29 20 22 53 o-stream-t))) "S 0960: 44 4c 5f 41 75 64 69 6f 53 74 72 65 61 6d 41 76 DL_AudioStreamAv 0970: 61 69 6c 61 62 6c 65 22 29 0a 28 64 65 66 69 6e ailable").(defin 0980: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s 0990: 64 6c 2d 61 75 64 69 6f 2d 73 74 72 65 61 6d 2d dl-audio-stream- 09a0: 66 6c 75 73 68 20 28 28 73 74 72 65 61 6d 20 28 flush ((stream ( 09b0: 2a 20 73 64 6c 2d 61 75 64 69 6f 2d 73 74 72 65 * sdl-audio-stre 09c0: 61 6d 2d 74 29 29 29 20 22 53 44 4c 5f 41 75 64 am-t))) "SDL_Aud 09d0: 69 6f 53 74 72 65 61 6d 46 6c 75 73 68 22 29 0a ioStreamFlush"). 09e0: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 09f0: 20 76 6f 69 64 20 73 64 6c 2d 61 75 64 69 6f 2d void sdl-audio- 0a00: 73 74 72 65 61 6d 2d 63 6c 65 61 72 20 28 28 73 stream-clear ((s 0a10: 74 72 65 61 6d 20 28 2a 20 73 64 6c 2d 61 75 64 tream (* sdl-aud 0a20: 69 6f 2d 73 74 72 65 61 6d 2d 74 29 29 29 20 22 io-stream-t))) " 0a30: 53 44 4c 5f 41 75 64 69 6f 53 74 72 65 61 6d 43 SDL_AudioStreamC 0a40: 6c 65 61 72 22 29 0a 28 64 65 66 69 6e 65 2d 73 lear").(define-s 0a50: 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c dl-func void sdl 0a60: 2d 66 72 65 65 2d 61 75 64 69 6f 2d 73 74 72 65 -free-audio-stre 0a70: 61 6d 20 28 28 73 74 72 65 61 6d 20 28 2a 20 73 am ((stream (* s 0a80: 64 6c 2d 61 75 64 69 6f 2d 73 74 72 65 61 6d 2d dl-audio-stream- 0a90: 74 29 29 29 20 22 53 44 4c 5f 46 72 65 65 41 75 t))) "SDL_FreeAu 0aa0: 64 69 6f 53 74 72 65 61 6d 22 29 0a 28 64 65 66 dioStream").(def 0ab0: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 ine-sdl-func voi 0ac0: 64 20 73 64 6c 2d 6d 69 78 2d 61 75 64 69 6f 20 d sdl-mix-audio 0ad0: 28 28 64 73 74 20 28 2a 20 75 69 6e 74 38 29 29 ((dst (* uint8)) 0ae0: 20 28 73 72 63 20 28 2a 20 75 69 6e 74 38 29 29 (src (* uint8)) 0af0: 20 28 6c 65 6e 20 75 69 6e 74 33 32 29 20 28 76 (len uint32) (v 0b00: 6f 6c 75 6d 65 20 69 6e 74 29 29 20 22 53 44 4c olume int)) "SDL 0b10: 5f 4d 69 78 41 75 64 69 6f 22 29 0a 28 64 65 66 _MixAudio").(def 0b20: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 ine-sdl-func voi 0b30: 64 20 73 64 6c 2d 6d 69 78 2d 61 75 64 69 6f 2d d sdl-mix-audio- 0b40: 66 6f 72 6d 61 74 20 28 28 64 73 74 20 28 2a 20 format ((dst (* 0b50: 75 69 6e 74 38 29 29 20 28 73 72 63 20 28 2a 20 uint8)) (src (* 0b60: 75 69 6e 74 38 29 29 20 28 66 6f 72 6d 61 74 20 uint8)) (format 0b70: 73 64 6c 2d 61 75 64 69 6f 2d 66 6f 72 6d 61 74 sdl-audio-format 0b80: 2d 74 29 20 28 6c 65 6e 20 75 69 6e 74 33 32 29 -t) (len uint32) 0b90: 20 28 76 6f 6c 75 6d 65 20 69 6e 74 29 29 20 22 (volume int)) " 0ba0: 53 44 4c 5f 4d 69 78 41 75 64 69 6f 46 6f 72 6d SDL_MixAudioForm 0bb0: 61 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c at").(define-sdl 0bc0: 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 71 75 -func int sdl-qu 0bd0: 65 75 65 2d 61 75 64 69 6f 20 28 28 64 65 76 20 eue-audio ((dev 0be0: 73 64 6c 2d 61 75 64 69 6f 2d 64 65 76 69 63 65 sdl-audio-device 0bf0: 2d 69 64 2d 74 29 20 28 64 61 74 61 20 76 6f 69 -id-t) (data voi 0c00: 64 2a 29 20 28 6c 65 6e 20 75 69 6e 74 33 32 29 d*) (len uint32) 0c10: 29 20 22 53 44 4c 5f 51 75 65 75 65 41 75 64 69 ) "SDL_QueueAudi 0c20: 6f 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d o").(define-sdl- 0c30: 66 75 6e 63 20 75 69 6e 74 33 32 20 73 64 6c 2d func uint32 sdl- 0c40: 64 65 71 75 65 75 65 2d 61 75 64 69 6f 20 28 28 dequeue-audio (( 0c50: 64 65 76 20 73 64 6c 2d 61 75 64 69 6f 2d 64 65 dev sdl-audio-de 0c60: 76 69 63 65 2d 69 64 2d 74 29 20 28 64 61 74 61 vice-id-t) (data 0c70: 20 76 6f 69 64 2a 29 20 28 6c 65 6e 20 75 69 6e void*) (len uin 0c80: 74 33 32 29 29 20 22 53 44 4c 5f 44 65 71 75 65 t32)) "SDL_Deque 0c90: 75 65 41 75 64 69 6f 22 29 0a 28 64 65 66 69 6e ueAudio").(defin 0ca0: 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 6e 74 33 e-sdl-func uint3 0cb0: 32 20 73 64 6c 2d 67 65 74 2d 71 75 65 75 65 64 2 sdl-get-queued 0cc0: 2d 61 75 64 69 6f 2d 73 69 7a 65 20 28 28 64 65 -audio-size ((de 0cd0: 76 20 73 64 6c 2d 61 75 64 69 6f 2d 64 65 76 69 v sdl-audio-devi 0ce0: 63 65 2d 69 64 2d 74 29 29 20 22 53 44 4c 5f 47 ce-id-t)) "SDL_G 0cf0: 65 74 51 75 65 75 65 64 41 75 64 69 6f 53 69 7a etQueuedAudioSiz 0d00: 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d e").(define-sdl- 0d10: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 63 6c func void sdl-cl 0d20: 65 61 72 2d 71 75 65 75 65 64 2d 61 75 64 69 6f ear-queued-audio 0d30: 20 28 28 64 65 76 20 73 64 6c 2d 61 75 64 69 6f ((dev sdl-audio 0d40: 2d 64 65 76 69 63 65 2d 69 64 2d 74 29 29 20 22 -device-id-t)) " 0d50: 53 44 4c 5f 43 6c 65 61 72 51 75 65 75 65 64 41 SDL_ClearQueuedA 0d60: 75 64 69 6f 22 29 0a 28 64 65 66 69 6e 65 2d 73 udio").(define-s 0d70: 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c dl-func void sdl 0d80: 2d 6c 6f 63 6b 2d 61 75 64 69 6f 20 28 29 20 22 -lock-audio () " 0d90: 53 44 4c 5f 4c 6f 63 6b 41 75 64 69 6f 22 29 0a SDL_LockAudio"). 0da0: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0db0: 20 76 6f 69 64 20 73 64 6c 2d 6c 6f 63 6b 2d 61 void sdl-lock-a 0dc0: 75 64 69 6f 2d 64 65 76 69 63 65 20 28 28 64 65 udio-device ((de 0dd0: 76 20 73 64 6c 2d 61 75 64 69 6f 2d 64 65 76 69 v sdl-audio-devi 0de0: 63 65 2d 69 64 2d 74 29 29 20 22 53 44 4c 5f 4c ce-id-t)) "SDL_L 0df0: 6f 63 6b 41 75 64 69 6f 44 65 76 69 63 65 22 29 ockAudioDevice") 0e00: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 0e10: 63 20 76 6f 69 64 20 73 64 6c 2d 75 6e 6c 6f 63 c void sdl-unloc 0e20: 6b 2d 61 75 64 69 6f 20 28 29 20 22 53 44 4c 5f k-audio () "SDL_ 0e30: 55 6e 6c 6f 63 6b 41 75 64 69 6f 22 29 0a 28 64 UnlockAudio").(d 0e40: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 efine-sdl-func v 0e50: 6f 69 64 20 73 64 6c 2d 75 6e 6c 6f 63 6b 2d 61 oid sdl-unlock-a 0e60: 75 64 69 6f 2d 64 65 76 69 63 65 20 28 28 64 65 udio-device ((de 0e70: 76 20 73 64 6c 2d 61 75 64 69 6f 2d 64 65 76 69 v sdl-audio-devi 0e80: 63 65 2d 69 64 2d 74 29 29 20 22 53 44 4c 5f 55 ce-id-t)) "SDL_U 0e90: 6e 6c 6f 63 6b 41 75 64 69 6f 44 65 76 69 63 65 nlockAudioDevice 0ea0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0eb0: 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 63 6c 6f unc void sdl-clo 0ec0: 73 65 2d 61 75 64 69 6f 20 28 29 20 22 53 44 4c se-audio () "SDL 0ed0: 5f 43 6c 6f 73 65 41 75 64 69 6f 22 29 0a 28 64 _CloseAudio").(d 0ee0: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 efine-sdl-func v 0ef0: 6f 69 64 20 73 64 6c 2d 63 6c 6f 73 65 2d 61 75 oid sdl-close-au 0f00: 64 69 6f 2d 64 65 76 69 63 65 20 28 28 64 65 76 dio-device ((dev 0f10: 20 73 64 6c 2d 61 75 64 69 6f 2d 64 65 76 69 63 sdl-audio-devic 0f20: 65 2d 69 64 2d 74 29 29 20 22 53 44 4c 5f 43 6c e-id-t)) "SDL_Cl 0f30: 6f 73 65 41 75 64 69 6f 44 65 76 69 63 65 22 29 oseAudioDevice") 0f40: 0a .