-

libao/libao.rkt

@@ -16,6 +16,7 @@
          ao-close
          ao-default-driver-id
          ao-at-second
+         ao-music-duration
          ao-bufsize-async
          ao-clear-async
          ao-set-async-mode!
@@ -232,6 +233,11 @@
       (ffi:ao_is_at_second_async (ao-handle-async-player handle))
       (scm:ao_is_at_second_async (ao-handle-async-player handle))))
 
+(define (ao-music-duration handle)
+  (if (eq? libao-async-mode 'ffi)
+      (ffi:ao_music_duration_async (ao-handle-async-player handle))
+      (scm:ao_music_duration_async (ao-handle-async-player handle))))
+
 (define (ao-bufsize-async handle)
   (if (eq? libao-async-mode 'ffi)
       (ffi:ao_bufsize_async (ao-handle-async-player handle))