ok

libao/libao.rkt

@@ -0,0 +1,62 @@
+#lang racket/base
+
+(require "libao-ffi.rkt")
+;(require finalizer)
+
+(provide ao-open-live
+         ao-play
+         ao-mk-format
+         ao-close
+         ao-default-driver-id
+         )
+
+(define currently-open   0)
+(define ao-device-handle 0)
+(define ao-devices (make-hash))
+
+(define (ao-mk-format bits rate channels byte-format . matrix)
+  (let ((bf (if (eq? byte-format 'little-endian)
+                AO-FMT-LITTLE
+                (if (eq? byte-format 'big-endian)
+                    AO-FMT-BIG
+                    AO-FMT-NATIVE))))
+    (let ((format (make-ao_sample_format bits rate channels bf #f)))
+      format)))
+
+(define (ao-default-driver-id)
+   (ao_default_driver_id))
+  
+
+(define (ao-open-live driver-id sample-format . options)
+  (when (= currently-open 0)
+    (ao_initialize))
+  (let ((ao-device (ao_open_live driver-id sample-format #f)))
+    (set! currently-open (+ currently-open 1))
+    (when (eq? ao-device _cpointer/null)
+      (set! currently-open (- currently-open 1))
+      (when (= currently-open 0)
+        (ao_shutdown)))
+    (if (eq? ao-device _cpointer/null)
+        #f
+        (begin
+          (set! ao-device-handle (+ ao-device-handle 1))
+          (hash-set! ao-devices ao-device-handle ao-device)
+          ao-device-handle))))
+
+(define (ao-close ao-handle)
+  (let ((ao-device (hash-ref ao-devices ao-handle #f)))
+    (when (eq? ao-device #f)
+        (error (format "Not a valid ao-handle ~a" ao-handle)))
+    (hash-remove! ao-devices ao-handle)
+    (let ((r (ao_close ao-device)))
+      (set! currently-open (- currently-open 1))
+      (when (= currently-open 0)
+        (ao_shutdown))
+      r)))
+
+(define (ao-play)
+  #t)
+
+
+
+