hans/racket-sound
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Make sure libao-1.2.2 is loaded in windows.

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-16 09:13:15 +02:00
parent b9051d5dbd
commit 8182b17096
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
libao-async-ffi.rkt
View File

@@ -4,7 +4,7 @@
(require ffi/unsafe (require ffi/unsafe
ffi/unsafe/define ffi/unsafe/define
"private/utils.rkt" "private/utils.rkt"
"libao-ffi.rkt" ;"libao-ffi.rkt"
) )
(provide ao_create_async (provide ao_create_async
@@ -48,6 +48,9 @@
)) ))
(when (eq? (system-type 'os) 'windows)
(void (get-lib '("libao-1.2.2") '(#f))))
(define lib (get-lib '("ao-play-async" "libao-play-async") '(#f))) (define lib (get-lib '("ao-play-async" "libao-play-async") '(#f)))
;(define lib (ffi-lib "/home/hans/src/racket/racket-sound-lib/lib/linux-x86_64/libao-play-async.so")) ;(define lib (ffi-lib "/home/hans/src/racket/racket-sound-lib/lib/linux-x86_64/libao-play-async.so"))
(define-ffi-definer define-libao-async lib (define-ffi-definer define-libao-async lib

3
play-test.rkt
View File

@@ -7,6 +7,7 @@
) )
(define test-file3 #f) (define test-file3 #f)
(define test-file3-id 3)
(let ((os (system-type 'os))) (let ((os (system-type 'os)))
(when (eq? os 'unix) (when (eq? os 'unix)
(set! test-file3 "/muziek/Klassiek-Viool/Alina Ibragimova/Paganini_24 Caprices (2021)/24. 24 Caprices, Op 1 - No. 24 in A minor- Tema con variazioni. Quasi presto.flac")) (set! test-file3 "/muziek/Klassiek-Viool/Alina Ibragimova/Paganini_24 Caprices (2021)/24. 24 Caprices, Op 1 - No. 24 in A minor- Tema con variazioni. Quasi presto.flac"))
@@ -37,7 +38,7 @@
(when (eq? ao-h #f) (when (eq? ao-h #f)
(set! ao-h (ao-open-live bits-per-sample rate channels 'big-endian))) (set! ao-h (ao-open-live bits-per-sample rate channels 'big-endian)))
;(displayln 'ao-play) ;(displayln 'ao-play)
(ao-play ao-h second duration buffer buf-len 'flac) (ao-play ao-h test-file3-id second duration buffer buf-len 'flac)
;(displayln 'done) ;(displayln 'done)
(let ((second-printer (λ (buf-seconds) (let ((second-printer (λ (buf-seconds)
(let ((s (inexact->exact (round (ao-at-second ao-h))))) (let ((s (inexact->exact (round (ao-at-second ao-h)))))