Artifact e538318b18342bbb014ab0ffe6ce46eabe11cccf:
- File sdl2/mixer.sls — part of check-in [242c211156] at 2018-01-08 17:10:50 on branch trunk — Initial SDL_Mixer support (user: ovenpasta@users.noreply.github.com size: 2143)
0000: 23 21 72 36 72 73 0a 0a 28 6c 69 62 72 61 72 79 #!r6rs..(library 0010: 0a 20 20 20 20 28 73 64 6c 32 20 6d 69 78 65 72 . (sdl2 mixer 0020: 29 0a 20 20 28 65 78 70 6f 72 74 0a 20 20 20 3b ). (export. ; 0030: 3b 3b 69 6e 69 74 0a 20 20 20 73 64 6c 2d 6d 69 ;;init. sdl-mi 0040: 78 65 72 2d 6c 69 62 72 61 72 79 2d 69 6e 69 74 xer-library-init 0050: 0a 20 20 20 6d 69 78 2d 69 6e 69 74 0a 20 20 20 . mix-init. 0060: 6d 69 78 2d 71 75 69 74 0a 20 20 20 6d 69 78 2d mix-quit. mix- 0070: 6c 69 6e 6b 65 64 2d 76 65 72 73 69 6f 6e 0a 0a linked-version.. 0080: 20 20 20 3b 3b 3b 6f 70 65 6e 20 66 75 6e 63 0a ;;;open func. 0090: 20 20 20 6d 69 78 2d 6f 70 65 6e 2d 61 75 64 69 mix-open-audi 00a0: 6f 0a 20 20 20 6d 69 78 2d 6f 70 65 6e 2d 61 75 o. mix-open-au 00b0: 64 69 6f 2d 64 65 76 69 63 65 0a 20 20 20 6d 69 dio-device. mi 00c0: 78 2d 61 6c 6c 6f 63 61 74 65 2d 63 68 61 6e 6e x-allocate-chann 00d0: 65 6c 73 0a 20 20 20 6d 69 78 2d 71 75 65 72 79 els. mix-query 00e0: 2d 73 70 65 63 0a 20 20 20 6d 69 78 2d 6c 6f 61 -spec. mix-loa 00f0: 64 2d 77 61 76 2d 72 77 0a 20 20 20 6d 69 78 2d d-wav-rw. mix- 0100: 6c 6f 61 64 2d 6d 75 73 0a 20 20 20 6d 69 78 2d load-mus. mix- 0110: 6c 6f 61 64 2d 6d 75 73 2d 72 77 0a 20 20 20 6d load-mus-rw. m 0120: 69 78 2d 6c 6f 61 64 2d 6d 75 73 2d 74 79 70 65 ix-load-mus-type 0130: 2d 72 77 0a 20 20 20 6d 69 78 2d 71 75 69 63 6b -rw. mix-quick 0140: 2d 6c 6f 61 64 2d 77 61 76 0a 20 20 20 6d 69 78 -load-wav. mix 0150: 2d 71 75 69 63 6b 2d 6c 6f 61 64 2d 72 61 77 0a -quick-load-raw. 0160: 0a 20 20 20 3b 3b 3b 6d 65 6d 6f 72 79 0a 20 20 . ;;;memory. 0170: 20 6d 69 78 2d 66 72 65 65 2d 63 68 75 6e 6b 0a mix-free-chunk. 0180: 20 20 20 6d 69 78 2d 66 72 65 65 2d 6d 75 73 69 mix-free-musi 0190: 63 0a 20 20 20 6d 69 78 2d 67 65 74 2d 6e 75 6d c. mix-get-num 01a0: 2d 63 68 75 6e 6b 2d 64 65 63 6f 64 65 72 73 0a -chunk-decoders. 01b0: 20 20 20 6d 69 78 2d 67 65 74 2d 63 68 75 6e 6b mix-get-chunk 01c0: 2d 64 65 63 6f 64 65 72 0a 20 20 20 6d 69 78 2d -decoder. mix- 01d0: 68 61 73 2d 63 68 75 6e 6b 2d 64 65 63 6f 64 65 has-chunk-decode 01e0: 72 0a 20 20 20 6d 69 78 2d 67 65 74 2d 6e 75 6d r. mix-get-num 01f0: 2d 6d 75 73 69 63 2d 64 65 63 6f 64 65 72 73 0a -music-decoders. 0200: 20 20 20 6d 69 78 2d 67 65 74 2d 6d 75 73 69 63 mix-get-music 0210: 2d 64 65 63 6f 64 65 72 0a 20 20 20 6d 69 78 2d -decoder. mix- 0220: 68 61 73 2d 6d 75 73 69 63 2d 64 65 63 6f 64 65 has-music-decode 0230: 72 0a 20 20 20 6d 69 78 2d 67 65 74 2d 6d 75 73 r. mix-get-mus 0240: 69 63 2d 74 79 70 65 0a 20 20 20 6d 69 78 2d 73 ic-type. mix-s 0250: 65 74 2d 70 6f 73 74 2d 6d 69 78 0a 20 20 20 6d et-post-mix. m 0260: 69 78 2d 68 6f 6f 6b 2d 6d 75 73 69 63 0a 20 20 ix-hook-music. 0270: 20 6d 69 78 2d 68 6f 6f 6b 2d 6d 75 73 69 63 2d mix-hook-music- 0280: 66 69 6e 69 73 68 65 64 0a 20 20 20 6d 69 78 2d finished. mix- 0290: 67 65 74 2d 6d 75 73 69 63 2d 68 6f 6f 6b 2d 64 get-music-hook-d 02a0: 61 74 61 0a 20 20 20 6d 69 78 2d 63 68 61 6e 6e ata. mix-chann 02b0: 65 6c 2d 66 69 6e 69 73 68 65 64 0a 20 20 20 6d el-finished. m 02c0: 69 78 2d 72 65 67 69 73 74 65 72 2d 65 66 66 65 ix-register-effe 02d0: 63 74 0a 20 20 20 6d 69 78 2d 75 6e 72 65 67 69 ct. mix-unregi 02e0: 73 74 65 72 2d 65 66 66 65 63 74 0a 20 20 20 6d ster-effect. m 02f0: 69 78 2d 75 6e 72 65 67 69 73 74 65 72 2d 61 6c ix-unregister-al 0300: 6c 2d 65 66 66 65 63 74 73 0a 20 20 20 6d 69 78 l-effects. mix 0310: 2d 73 65 74 2d 70 61 6e 6e 69 6e 67 0a 20 20 20 -set-panning. 0320: 6d 69 78 2d 73 65 74 2d 70 6f 73 69 74 69 6f 6e mix-set-position 0330: 0a 20 20 20 6d 69 78 2d 73 65 74 2d 64 69 73 74 . mix-set-dist 0340: 61 6e 63 65 0a 20 20 20 6d 69 78 2d 73 65 74 2d ance. mix-set- 0350: 72 65 76 65 72 73 65 2d 73 74 65 72 65 6f 0a 20 reverse-stereo. 0360: 20 20 6d 69 78 2d 72 65 73 65 72 76 65 2d 63 68 mix-reserve-ch 0370: 61 6e 6e 65 6c 73 0a 20 20 20 6d 69 78 2d 67 72 annels. mix-gr 0380: 6f 75 70 2d 63 68 61 6e 6e 65 6c 0a 20 20 20 6d oup-channel. m 0390: 69 78 2d 67 72 6f 75 70 2d 63 68 61 6e 6e 65 6c ix-group-channel 03a0: 73 0a 20 20 20 6d 69 78 2d 67 72 6f 75 70 2d 61 s. mix-group-a 03b0: 76 61 69 6c 61 62 6c 65 0a 20 20 20 6d 69 78 2d vailable. mix- 03c0: 67 72 6f 75 70 2d 63 6f 75 6e 74 0a 20 20 20 6d group-count. m 03d0: 69 78 2d 67 72 6f 75 70 2d 6f 6c 64 65 73 74 0a ix-group-oldest. 03e0: 20 20 20 6d 69 78 2d 67 72 6f 75 70 2d 6e 65 77 mix-group-new 03f0: 65 72 0a 20 20 20 6d 69 78 2d 70 6c 61 79 2d 63 er. mix-play-c 0400: 68 61 6e 6e 65 6c 2d 74 69 6d 65 64 0a 20 20 20 hannel-timed. 0410: 6d 69 78 2d 70 6c 61 79 2d 6d 75 73 69 63 0a 20 mix-play-music. 0420: 20 20 6d 69 78 2d 66 61 64 65 2d 69 6e 2d 6d 75 mix-fade-in-mu 0430: 73 69 63 0a 20 20 20 6d 69 78 2d 66 61 64 65 2d sic. mix-fade- 0440: 69 6e 2d 6d 75 73 69 63 2d 70 6f 73 0a 20 20 20 in-music-pos. 0450: 6d 69 78 2d 66 61 64 65 2d 69 6e 2d 63 68 61 6e mix-fade-in-chan 0460: 6e 65 6c 2d 74 69 6d 65 64 0a 20 20 20 6d 69 78 nel-timed. mix 0470: 2d 76 6f 6c 75 6d 65 0a 20 20 20 6d 69 78 2d 76 -volume. mix-v 0480: 6f 6c 75 6d 65 2d 63 68 75 6e 6b 0a 20 20 20 6d olume-chunk. m 0490: 69 78 2d 76 6f 6c 75 6d 65 2d 6d 75 73 69 63 0a ix-volume-music. 04a0: 20 20 20 6d 69 78 2d 68 61 6c 74 2d 63 68 61 6e mix-halt-chan 04b0: 6e 65 6c 0a 20 20 20 6d 69 78 2d 68 61 6c 74 2d nel. mix-halt- 04c0: 67 72 6f 75 70 0a 20 20 20 6d 69 78 2d 68 61 6c group. mix-hal 04d0: 74 2d 6d 75 73 69 63 0a 20 20 20 6d 69 78 2d 65 t-music. mix-e 04e0: 78 70 69 72 65 2d 63 68 61 6e 6e 65 6c 0a 20 20 xpire-channel. 04f0: 20 6d 69 78 2d 66 61 64 65 2d 6f 75 74 2d 63 68 mix-fade-out-ch 0500: 61 6e 6e 65 6c 0a 20 20 20 6d 69 78 2d 66 61 64 annel. mix-fad 0510: 65 2d 6f 75 74 2d 67 72 6f 75 70 0a 20 20 20 6d e-out-group. m 0520: 69 78 2d 66 61 64 65 2d 6f 75 74 2d 6d 75 73 69 ix-fade-out-musi 0530: 63 0a 20 20 20 6d 69 78 2d 66 61 64 69 6e 67 2d c. mix-fading- 0540: 6d 75 73 69 63 0a 20 20 20 6d 69 78 2d 66 61 64 music. mix-fad 0550: 69 6e 67 2d 63 68 61 6e 6e 65 6c 0a 20 20 20 6d ing-channel. m 0560: 69 78 2d 70 61 75 73 65 0a 20 20 20 6d 69 78 2d ix-pause. mix- 0570: 72 65 73 75 6d 65 0a 20 20 20 6d 69 78 2d 70 61 resume. mix-pa 0580: 75 73 65 64 0a 20 20 20 6d 69 78 2d 70 61 75 73 used. mix-paus 0590: 65 2d 6d 75 73 69 63 0a 20 20 20 6d 69 78 2d 72 e-music. mix-r 05a0: 65 73 75 6d 65 2d 6d 75 73 69 63 0a 20 20 20 6d esume-music. m 05b0: 69 78 2d 72 65 77 69 6e 64 2d 6d 75 73 69 63 0a ix-rewind-music. 05c0: 20 20 20 6d 69 78 2d 70 61 75 73 65 64 2d 6d 75 mix-paused-mu 05d0: 73 69 63 0a 20 20 20 6d 69 78 2d 73 65 74 2d 6d sic. mix-set-m 05e0: 75 73 69 63 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 usic-position. 05f0: 20 6d 69 78 2d 70 6c 61 79 69 6e 67 0a 20 20 20 mix-playing. 0600: 6d 69 78 2d 70 6c 61 79 69 6e 67 2d 6d 75 73 69 mix-playing-musi 0610: 63 0a 20 20 20 6d 69 78 2d 73 65 74 2d 6d 75 73 c. mix-set-mus 0620: 69 63 2d 63 6d 64 0a 20 20 20 6d 69 78 2d 73 65 ic-cmd. mix-se 0630: 74 2d 73 79 6e 63 68 72 6f 2d 76 61 6c 75 65 0a t-synchro-value. 0640: 20 20 20 6d 69 78 2d 67 65 74 2d 73 79 6e 63 68 mix-get-synch 0650: 72 6f 2d 76 61 6c 75 65 0a 20 20 20 6d 69 78 2d ro-value. mix- 0660: 73 65 74 2d 73 6f 75 6e 64 2d 66 6f 6e 74 73 0a set-sound-fonts. 0670: 20 20 20 6d 69 78 2d 67 65 74 2d 73 6f 75 6e 64 mix-get-sound 0680: 2d 66 6f 6e 74 73 0a 20 20 20 6d 69 78 2d 65 61 -fonts. mix-ea 0690: 63 68 2d 73 6f 75 6e 64 2d 66 6f 6e 74 0a 20 20 ch-sound-font. 06a0: 20 6d 69 78 2d 67 65 74 2d 63 68 75 6e 6b 0a 20 mix-get-chunk. 06b0: 20 20 6d 69 78 2d 63 6c 6f 73 65 2d 61 75 64 69 mix-close-audi 06c0: 6f 0a 20 20 20 29 0a 20 20 20 28 69 6d 70 6f 72 o. ). (impor 06d0: 74 20 28 63 68 65 7a 73 63 68 65 6d 65 29 20 0a t (chezscheme) . 06e0: 09 20 20 20 28 66 66 69 2d 75 74 69 6c 73 29 0a . (ffi-utils). 06f0: 09 20 20 20 28 73 64 6c 32 29 0a 09 20 20 20 28 . (sdl2).. ( 0700: 6f 6e 6c 79 20 28 73 72 66 69 20 73 31 20 6c 69 only (srfi s1 li 0710: 73 74 73 29 20 66 6f 6c 64 29 0a 09 20 20 20 28 sts) fold).. ( 0720: 6f 6e 6c 79 20 28 74 68 75 6e 64 65 72 2d 75 74 only (thunder-ut 0730: 69 6c 73 29 20 73 74 72 69 6e 67 2d 72 65 70 6c ils) string-repl 0740: 61 63 65 20 73 74 72 69 6e 67 2d 73 70 6c 69 74 ace string-split 0750: 29 20 0a 09 20 20 20 28 6f 6e 6c 79 20 28 73 72 ) .. (only (sr 0760: 66 69 20 73 31 33 20 73 74 72 69 6e 67 73 29 20 fi s13 strings) 0770: 73 74 72 69 6e 67 2d 64 65 6c 65 74 65 20 73 74 string-delete st 0780: 72 69 6e 67 2d 73 75 66 66 69 78 3f 20 73 74 72 ring-suffix? str 0790: 69 6e 67 2d 70 72 65 66 69 78 3f 29 0a 09 20 20 ing-prefix?).. 07a0: 20 28 73 72 66 69 20 73 31 34 20 63 68 61 72 2d (srfi s14 char- 07b0: 73 65 74 73 29 29 0a 20 20 20 28 69 6e 63 6c 75 sets)). (inclu 07c0: 64 65 20 22 6d 69 78 2d 66 75 6e 63 74 69 6f 6e de "mix-function 07d0: 73 2e 73 73 22 29 0a 20 20 20 28 69 6e 63 6c 75 s.ss"). (inclu 07e0: 64 65 20 22 6d 69 78 2d 74 79 70 65 73 2e 73 73 de "mix-types.ss 07f0: 22 29 0a 20 20 20 28 64 65 66 69 6e 65 20 28 73 "). (define (s 0800: 64 6c 2d 6d 69 78 65 72 2d 6c 69 62 72 61 72 79 dl-mixer-library 0810: 2d 69 6e 69 74 20 2e 20 6c 29 0a 20 20 20 20 20 -init . l). 0820: 28 6c 6f 61 64 2d 73 68 61 72 65 64 2d 6f 62 6a (load-shared-obj 0830: 65 63 74 20 28 69 66 20 28 6e 75 6c 6c 3f 20 6c ect (if (null? l 0840: 29 20 22 6c 69 62 53 44 4c 32 5f 6d 69 78 65 72 ) "libSDL2_mixer 0850: 2e 73 6f 22 20 6c 29 29 29 29 0a 0a 0a 0a 0a .so" l)))).....