audio decoding

2026-04-21 22:53:25 +02:00
parent 630a0423a0
commit d7f2202091
3 changed files with 41 additions and 2 deletions
@@ -6,6 +6,7 @@
           "private/utils.rkt")

  (provide flac-open
+           flac-valid?
           flac-read
           flac-read-meta
           flac-stream-state
@@ -20,6 +21,9 @@
 ;; Functions to do the good stuff  
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

+  (define (flac-valid? flac-file*)
+    #t)
+
  (define (flac-open flac-file* cb-stream-info cb-audio)
    (let ((flac-file (if (path? flac-file*) (path->string flac-file*) flac-file*)))
      (if (file-exists? flac-file)