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

reverted to the C-backend, because the racket version of libao-async just keeps stuttering on linux

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-04 11:25:32 +02:00
parent d06d829f6a
commit 007f18061a
6 changed files with 80 additions and 591 deletions
Download Patch File Download Diff File Expand all files Collapse all files
private/utils.rkt
+50 -10
View File
@@ -19,6 +19,8 @@
warn-sound
fatal-sound
sync-log-sound
integer->int-bytes
int-bytes->integer
)
(sl-def-log racket-sound sound)
@@ -69,18 +71,56 @@
(soundlibs-directory))
(define (get-lib* libs-to-try orig-libs versions)
(unless (soundlibs-available?)
(download-soundlibs))
(if (null? libs-to-try)
(begin
(displayln (format "Warning: Cannot find library, tried ~a in ~a" orig-libs (build-lib-path)))
#f)
(ffi-lib (car libs-to-try) versions
#:get-lib-dirs (λ () (cons (build-lib-path) (get-lib-search-dirs)))
#:fail (λ () (get-lib* (cdr libs-to-try) orig-libs versions))
)))
(let ((libs-path (cons (build-lib-path) (get-lib-search-dirs))))
(unless (soundlibs-available?)
(download-soundlibs))
(if (null? libs-to-try)
(begin
(displayln (format "Warning: Cannot find library, tried ~a in ~a" orig-libs libs-path))
#f)
(ffi-lib (car libs-to-try) versions
#:get-lib-dirs (λ () libs-path)
#:fail (λ ()
(ffi-lib (car libs-to-try) versions
#:fail (λ ()
(get-lib* (cdr libs-to-try) orig-libs versions))))
)
)
)
)
(define (get-lib libs-to-try versions)
(get-lib* libs-to-try libs-to-try versions))
(define-syntax-rule (integer->int-bytes v size signed? big? bs pos)
(if (= size 3)
(if big?
(begin
(bytes-set! bs pos (bitwise-and (arithmetic-shift v -16) #xff))
(bytes-set! bs (+ pos 1) (bitwise-and (arithmetic-shift v -8) #xff))
(bytes-set! bs (+ pos 2) (bitwise-and v #xff)))
(begin
(bytes-set! bs pos (bitwise-and v #xff))
(bytes-set! bs (+ pos 1) (bitwise-and (arithmetic-shift v -8) #xff))
(bytes-set! bs (+ pos 2) (bitwise-and (arithmetic-shift v -16) #xff))))
(integer->integer-bytes v size signed? big? bs pos)))
(define-syntax-rule (int-bytes->integer bs signed? big? start end)
(let ([size (- end start)])
(if (= size 3)
(let* ([b0 (bytes-ref bs start)]
[b1 (bytes-ref bs (+ start 1))]
[b2 (bytes-ref bs (+ start 2))]
[u (if big?
(bitwise-ior (arithmetic-shift b0 16)
(arithmetic-shift b1 8)
b2)
(bitwise-ior b0
(arithmetic-shift b1 8)
(arithmetic-shift b2 16)))])
(if (and signed? (not (zero? (bitwise-and u #x800000))))
(- u #x1000000)
u))
(integer-bytes->integer bs signed? big? start end))))
) ; end of module