comparison bindings/sb-alien/library.lisp @ 673:e1f7cab30701

rename struct adbfoo to struct adb_foo

(or nearest idiomatic equivalent in the appropriate language)

This should have minimal impact on ABI compatibility, but is still formally
a backward-incompatible change (and is potentially an API incompatibility
too, though everyone should be using the typedefed synonyms.

   (adb (* adb-t))
   (status (* adb-status-t)))
 (define-int-checking-function %status (adb datum) %%status)
 
 (define-alien-type adb-query-id-t
-  (struct adbqueryid
+  (struct adb-query-id
     (datum (* adb-datum-t))
     (sequence-length (unsigned 32))
     (flags (unsigned 32))
     (sequence-start (unsigned 32))))
 
 (define-alien-type adb-query-parameters-t
-  (struct adbqueryparameters
+  (struct adb-query-parameters
     (accumulation (unsigned 32))
     (distance (unsigned 32))
     (npoints (unsigned 32))
     (ntracks (unsigned 32))))
 
 (define-alien-type adb-keylist-t
-  (struct adbkeylist
+  (struct adb-key-list
     (nkeys (unsigned 32))
     (keys (* c-string))))
 
 (define-alien-type adb-query-refine-t
-  (struct adbqueryrefine
+  (struct adb-query-refine
     (flags (unsigned 32))
     (include adb-keylist-t)
     (exclude adb-keylist-t)
     (radius double)
     (absolute-threshold double)
     (relative-threshold double)
     (duration-ratio double)
     (hopsize (unsigned 32))))
 
 (define-alien-type adb-query-spec-t
-  (struct adbqueryspec
+  (struct adb-query-spec
     (qid adb-query-id-t)
     (params adb-query-parameters-t)
     (refine adb-query-refine-t)))
 
 (define-alien-type adb-result-t
-  (struct adbresult
+  (struct adb-result
     (qkey c-string)
     (ikey c-string)
     (qpos (unsigned 32))
     (ipos (unsigned 32))
     (dist double)))
 
 (define-alien-type adb-query-results-t
-  (struct adbqueryresults
+  (struct adb-query-results
     (nresults (unsigned 32))
     (results (* adb-result-t))))
 
 (define-alien-routine ("audiodb_query_spec" %%query) (* adb-query-results-t)
   (adb (* adb-t))

   (results (* adb-query-results-t)))
 (define-int-checking-function %free-query-results (adb spec results)
   %%free-query-results)
 
 (define-alien-type adb-track-entry-t
-  (struct adbtrackentry
+  (struct adb-track-entry
     (nvectors (unsigned 32))
     (key c-string)))
 
 (define-alien-type adb-liszt-results-t
-  (struct adblisztresults
+  (struct adb-liszt-results
     (nresults (unsigned 32))
     (entries (* adb-track-entry-t))))
 
 (define-alien-routine ("audiodb_liszt" %%liszt) (* adb-liszt-results-t)
   (adb (* adb-t)))