X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-audiofile.git;a=blobdiff_plain;f=Bindings%2FAudioFile%2FPVList.hsc;fp=Bindings%2FAudioFile%2FPVList.hsc;h=bb9d852a27c03e00925979405db613ac769d3447;hp=0000000000000000000000000000000000000000;hb=2d2f19596774a43276f206649a1e73f52c2431e7;hpb=a3d61e7cb5c077f21765b66033636e12088b0a04

diff --git a/Bindings/AudioFile/PVList.hsc b/Bindings/AudioFile/PVList.hsc
new file mode 100644
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