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

adjust for macosx with "brewed" libraries

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-06 17:19:56 +02:00
parent 11a1abce5b
commit 7d662b0670
2 changed files with 11 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
play-test.rkt
+1 -8
View File
@@ -15,16 +15,9 @@
(define test-file4 #f) (define test-file4 #f)
(define test-file3-id 3) (define test-file3-id 3)
(define test-file4-id 4) (define test-file4-id 4)
(let ((os (system-type 'os)))
(when (eq? os 'unix)
(set! test-file3 (build-path tests "idyll.mp3")) (set! test-file3 (build-path tests "idyll.mp3"))
(set! test-file4 (build-path tests "idyll.flac")) (set! test-file4 (build-path tests "idyll.flac"))
)
(when (eq? os 'windows)
(set! test-file3 (build-path tests "idyll.mp3"))
(set! test-file4 (build-path tests "idyll.flac"))
)
)
;(define fmt (ao-mk-format 24 48000 2 'big-endian)) ;(define fmt (ao-mk-format 24 48000 2 'big-endian))
;(define ao-h (ao-open-live #f fmt)) ;(define ao-h (ao-open-live #f fmt))
private/utils.rkt
+6 -3
View File
@@ -67,13 +67,16 @@
(do-for-f)))))) (do-for-f))))))
(define (build-lib-path) (define (build-lib-path p)
(soundlibs-directory)) (if (eq? (system-type 'os) 'macosx)
(let ((brew-lib "/opt/homebrew/lib"))
(cons (soundlibs-directory) (cons brew-lib p)))
(cons (soundlibs-directory) p)))
(define (get-lib* libs-to-try orig-libs versions) (define (get-lib* libs-to-try orig-libs versions)
(let ((libs-path (cons (build-lib-path) (get-lib-search-dirs))))
(unless (soundlibs-available?) (unless (soundlibs-available?)
(download-soundlibs)) (download-soundlibs))
(let ((libs-path (build-lib-path (get-lib-search-dirs))))
(if (null? libs-to-try) (if (null? libs-to-try)
(begin (begin
(displayln (format "Warning: Cannot find library, tried ~a in ~a" orig-libs libs-path)) (displayln (format "Warning: Cannot find library, tried ~a in ~a" orig-libs libs-path))