Working racket lib ao async backend

2026-05-08 00:59:13 +02:00
parent b69f29075f
commit be0399796d
3 changed files with 140 additions and 88 deletions
@@ -19,6 +19,7 @@
         ao-at-music-id
         ao-bufsize-async
         ao-reuse-buf-len-async
+         ao-sample-queue-len-async
         ao-clear-async
         ao-pause
         ao-set-volume!
@@ -208,6 +209,11 @@
  (ffi:ao_reuse_buf_len (ao-handle-async-player handle))
  )

+(rc:define/contract (ao-sample-queue-len-async handle)
+  (rc:-> ao-handle? integer?)
+  (ffi:ao_sample_queue_len (ao-handle-async-player handle))
+  )
+
 (rc:define/contract (ao-set-volume! handle percentage)
  (rc:-> ao-handle? number? void?)
  (ffi:ao_set_volume_async (ao-handle-async-player handle)