version info of the ffi modules

libao-async-ffi.rkt

@@ -20,6 +20,7 @@
          ao_set_volume_async
          ao_volume_async
          make-BufferInfo_t
+         ao_version
          )
 
 (define _BufferType_t
@@ -50,6 +51,14 @@
    [endiannes _Endian_t]
    ))
 
+(define (ao_version)
+  (let* ((v (ao_async_version))
+         (patch (remainder v 256))
+         (minor (remainder (quotient v 256) 256))
+         (major (quotient v 65536))
+         )
+    (list major minor patch)))
+
 
 (when (eq? (system-type 'os) 'windows)
   (void (get-lib '("libao-1.2.2") '(#f))))