diff bindings/sb-alien/library.lisp @ 580:633614461994

API for retrieving a track's data.

A new function, audiodb_retrieve_datum() fills a provided adb_datum_t
structure with the data corresponding to a given database key; the
companion audiodb_free_datum() function frees the data in a given datum
appropriately.

Just in case, I continue to require passing in the adb_t * as the first
argument to audiodb_free_datum(), even though it's not currently used:
I couldn't convince myself that _all_ possible implementations could
free a datum without reference to the adb_t.

This meant rewriting the internal code to use a new internal
audiodb_really_free_datum() function, which audiodb_free_datum() also
calls.

Sanity-checked by implementing a binding in sb-alien to this function,
lightly-tested.

All this fixes ticket:20 in Trac.

--- a/bindings/sb-alien/library.lisp	Mon Jul 06 17:13:49 2009 +0000
+++ b/bindings/sb-alien/library.lisp	Tue Jul 14 15:35:36 2009 +0000
@@ -51,6 +51,17 @@
   (datum (* adb-datum-t)))
 (define-int-checking-function %insert-datum (adb datum) %%insert-datum)
 
+(define-alien-routine ("audiodb_retrieve_datum" %%retrieve-datum) int
+  (adb (* adb-t))
+  (key c-string)
+  (datum (* adb-datum-t)))
+(define-int-checking-function %retrieve-datum (adb key datum) %%retrieve-datum)
+
+(define-alien-routine ("audiodb_free_datum" %%free-datum) int
+  (adb (* adb-t))
+  (datum (* adb-datum-t)))
+(define-int-checking-function %free-datum (adb datum) %%free-datum)
+
 (define-alien-type adb-status-t
   (struct adb-status
     (nfiles (unsigned 32))