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

Dus...

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-07 11:54:48 +02:00
parent 15ef81d30a
commit dc144b2f9f
2 changed files with 0 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-errors.rkt
-10
View File
@@ -42,7 +42,6 @@
(define (raise-audio-error* code source line message . args) (define (raise-audio-error* code source line message . args)
(displayln (format "raise-audio-error*: code=~a source=~a line=~a message=~a args=~a" code source line message args))
(let* ((msg (apply format (cons message args))) (let* ((msg (apply format (cons message args)))
(src* (file-name-from-path (build-path source))) (src* (file-name-from-path (build-path source)))
(msg* (format "~a at ~a, line ~a" msg src* line))) (msg* (format "~a at ~a, line ~a" msg src* line)))
@@ -57,15 +56,6 @@
((_ code message ...) ((_ code message ...)
(let ((src (syntax-source stx)) (let ((src (syntax-source stx))
(line (syntax-line stx))) (line (syntax-line stx)))
#`(displayln code)
#`(displayln (list message ...))
#`(displayln '#,src)
#`(displayln '#,line)
#`(raise-audio-error* code '#,src '#,line message ...))))) #`(raise-audio-error* code '#,src '#,line message ...)))))
(define (test x)
(if (> x 10)
(raise-audio-error 'file-notd-found "File not found: ~a" "c:/muziek/a.flac")
#t))
audio-player.rkt
-8
View File
@@ -70,7 +70,6 @@
(<= p n)))) (<= p n))))
(define (is-return? retval sym) (define (is-return? retval sym)
;(displayln retval)
(if (list? retval) (if (list? retval)
(if (null? retval) (if (null? retval)
#f #f
@@ -83,12 +82,10 @@
) )
(define (to-ret-value ret) (define (to-ret-value ret)
(displayln ret)
(if (list? ret) (if (list? ret)
(if (null? ret) (if (null? ret)
(raise-audio-error 'audio-error "audio-player: no return value, empty list returned") (raise-audio-error 'audio-error "audio-player: no return value, empty list returned")
(let ((r (car ret))) (let ((r (car ret)))
(displayln ret)
(if (eq? r 'error) (if (eq? r 'error)
(let ((msg (cadr ret)) (let ((msg (cadr ret))
(code (caddr ret))) (code (caddr ret)))
@@ -269,11 +266,6 @@
(syntax-rules () (syntax-rules ()
((_ handle cmd args ...) ((_ handle cmd args ...)
(let ((rv ((audio-play-rpc handle) cmd args ...))) (let ((rv ((audio-play-rpc handle) cmd args ...)))
(displayln rv)
(displayln (internal-audio-retval-kind rv))
(displayln (internal-audio-retval-code rv))
(displayln (internal-audio-retval-info rv))
(displayln (internal-audio-retval-retval rv))
(if (eq? (internal-audio-retval-kind rv) 'error) (if (eq? (internal-audio-retval-kind rv) 'error)
(raise-audio-error (internal-audio-retval-code rv) (internal-audio-retval-info rv)) (raise-audio-error (internal-audio-retval-code rv) (internal-audio-retval-info rv))
(internal-audio-retval-retval rv)))) (internal-audio-retval-retval rv))))