Initial import

private/audio.rkt

@@ -0,0 +1,16 @@
+#lang racket/base
+
+(provide inspect-flac-sample-rate)
+
+(define (inspect-flac-sample-rate path)
+  (define call-with-id3-tags (dynamic-require 'racket-audio/taglib 'call-with-id3-tags))
+  (define tags-valid? (dynamic-require 'racket-audio/taglib 'tags-valid?))
+  (define tags-sample-rate (dynamic-require 'racket-audio/taglib 'tags-sample-rate))
+  (define sr
+    (call-with-id3-tags path
+      (lambda (tags)
+        (and (tags-valid? tags) (tags-sample-rate tags)))
+      #:mode 'read))
+  (unless (and (integer? sr) (positive? sr))
+    (error 'inspect-flac-sample-rate "cannot determine sample rate for ~a" path))
+  sr)