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

module path possibly needs runtime-path.

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-17 23:14:00 +02:00
parent 9cb7b43cc3
commit 5cff13f55a
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-player.rkt
+4 -1
View File
@@ -3,6 +3,7 @@
(require racket/place (require racket/place
racket/contract racket/contract
racket/async-channel racket/async-channel
racket/runtime-path
"audio-placed-player.rkt" "audio-placed-player.rkt"
"private/utils.rkt" "private/utils.rkt"
(prefix-in ffi: ffi/unsafe) (prefix-in ffi: ffi/unsafe)
@@ -32,6 +33,8 @@
audio-known-exts? audio-known-exts?
) )
(define-runtime-path placed-player-module "audio-placed-player.rkt")
(define-struct audio-play (define-struct audio-play
(valid? cb-state cb-eof-stream rpc au-place evt-thread state) (valid? cb-state cb-eof-stream rpc au-place evt-thread state)
#:mutable #:mutable
@@ -93,7 +96,7 @@
) )
(if use-place (if use-place
(begin (begin
(set! cmd-ch (dynamic-place "audio-placed-player.rkt" 'placed-player)) (set! cmd-ch (dynamic-place placed-player-module 'placed-player))
(set! cmd-put (λ (data) (place-channel-put cmd-ch data))) (set! cmd-put (λ (data) (place-channel-put cmd-ch data)))
(set! au-pl cmd-ch) (set! au-pl cmd-ch)
(set! dead-guard (λ () (let ((evt (place-dead-evt au-pl))) (set! dead-guard (λ () (let ((evt (place-dead-evt au-pl)))
play-test.rkt
+4
View File
@@ -69,10 +69,14 @@
(dbg-sound "audio-play! -> ~a" (audio-play! h (car play-queue)))) (dbg-sound "audio-play! -> ~a" (audio-play! h (car play-queue))))
) )
(displayln "Making audio player")
(define h (make-audio-player audio-player-state (define h (make-audio-player audio-player-state
audio-player-eof audio-player-eof
#:use-place place-mode)) #:use-place place-mode))
(displayln "done")
(sl-log-to-display) (sl-log-to-display)
(audio-player-eof h) (audio-player-eof h)