xiph opusfile support and taglib write support.

2026-06-07 23:49:38 +02:00
parent cf87fa7ed8
commit 4b6adc404e
8 changed files with 905 additions and 303 deletions
@@ -33,6 +33,8 @@
         audio-ao-buf-ms!
         audio-ao-buf-ms
         audio-known-exts?
+         audio-param!
+         audio-param
         )

 (define-runtime-path placed-player-module "audio-placed-player.rkt")
@@ -52,6 +54,9 @@
 (define (percentage? p)
  (and (number? p) (>= p 0)))

+(define (any? x)
+  #t)
+
 (define (max-percentage? n)
  (λ (p) (and (percentage? p)
              (<= p n))))
@@ -280,7 +285,14 @@
 (define/contract (audio-ao-buf-ms handle)
  (-> audio-play? (or/c integer? boolean?))
  ((audio-play-rpc handle) 'ao-buf-ms))
-  
+
+(define/contract (audio-param! handle param value)
+  (-> audio-play? symbol? any? any?)
+  ((audio-play-rpc handle) 'param! param value))
+
+(define/contract (audio-param handle param)
+  (-> audio-play? symbol? any?)
+  ((audio-play-rpc handle) 'param param))