aupvlist.h

diff --git a/Bindings/AudioFile/PVList.hsc b/Bindings/AudioFile/PVList.hsc
new file mode 100644 (file)
index 0000000..bb9d852
--- /dev/null
+++ b/Bindings/AudioFile/PVList.hsc
@@ -0,0 +1,24 @@
+#include <bindings.dsl.h>
+#include <aupvlist.h>
+
+module Bindings.AudioFile.PVList where
+#strict_import
+
+#num AU_PVTYPE_LONG
+#num AU_PVTYPE_DOUBLE
+#num AU_PVTYPE_PTR
+
+#opaque_t  _AUpvlist
+#synonym_t AUpvlist, Ptr <_AUpvlist>
+
+#pointer AU_NULL_PVLIST
+
+#ccall AUpvnew        , CInt -> IO <AUpvlist>
+#ccall AUpvgetmaxitems, <AUpvlist> -> IO CInt
+#ccall AUpvfree       , <AUpvlist> -> IO CInt
+#ccall AUpvsetparam   , <AUpvlist> -> CInt -> IO CInt
+#ccall AUpvsetvaltype , <AUpvlist> -> CInt -> CInt -> IO CInt
+#ccall AUpvsetval     , <AUpvlist> -> CInt -> Ptr () -> IO CInt
+#ccall AUpvgetparam   , <AUpvlist> -> CInt -> Ptr CInt -> IO CInt
+#ccall AUpvgetvaltype , <AUpvlist> -> CInt -> Ptr CInt -> IO CInt
+#ccall AUpvgetval     , <AUpvlist> -> CInt -> Ptr () -> IO CInt

diff --git a/bindings-audiofile.cabal b/bindings-audiofile.cabal
index 4368cb1786635e0ea434c3923fdcfa1f8586cb5d..6c981a8e851c8baacf6f68058e4b16fd7559ca86 100644 (file)
--- a/bindings-audiofile.cabal
+++ b/bindings-audiofile.cabal
@@ -30,6 +30,7 @@ Library
 
     Exposed-Modules:
         Bindings.AudioFile.VFS
+        Bindings.AudioFile.PVList
 
     Extensions:
         ForeignFunctionInterface