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

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-24 17:01:20 +01:00
parent ca1bf54519
commit 59a2062f6a
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
libflac/flac-decoder.rkt
View File

@@ -86,6 +86,7 @@
(letrec ((reader (lambda (frame-nr) (letrec ((reader (lambda (frame-nr)
(if (flac-handle-stop-reading handle) (if (flac-handle-stop-reading handle)
(begin (begin
(displayln (format "handling stop at: ~a" (current-milliseconds)))
(set-flac-handle-reading! handle #f) (set-flac-handle-reading! handle #f)
'stopped-reading) 'stopped-reading)
(let* ((st (ffi-handler 'state))) (let* ((st (ffi-handler 'state)))
@@ -137,10 +138,12 @@
(define (flac-stop handle) (define (flac-stop handle)
(let ((ct (current-milliseconds))) (let ((ct (current-milliseconds)))
(displayln (format "requesting stop at: ~a" ct))
(set-flac-handle-stop-reading! handle #t) (set-flac-handle-stop-reading! handle #t)
(while (flac-handle-reading handle) (while (flac-handle-reading handle)
(sleep 0.01)) (sleep 0.01))
(let ((ct* (current-milliseconds))) (let ((ct* (current-milliseconds)))
(displayln (format "stop came back at: ~a" ct*))
(displayln (format "flac-stop took: ~a ms" (- ct* ct)))) (displayln (format "flac-stop took: ~a ms" (- ct* ct))))
) )
) )