From 2d2f19596774a43276f206649a1e73f52c2431e7 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Tue, 19 Oct 2010 23:02:48 +0900
Subject: [PATCH] aupvlist.h

---
 Bindings/AudioFile/PVList.hsc | 24 ++++++++++++++++++++++++
 bindings-audiofile.cabal      |  1 +
 2 files changed, 25 insertions(+)
 create mode 100644 Bindings/AudioFile/PVList.hsc

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
diff --git a/bindings-audiofile.cabal b/bindings-audiofile.cabal
index 4368cb1..6c981a8 100644
--- a/bindings-audiofile.cabal
+++ b/bindings-audiofile.cabal
@@ -30,6 +30,7 @@ Library
 
     Exposed-Modules:
         Bindings.AudioFile.VFS
+        Bindings.AudioFile.PVList
 
     Extensions:
         ForeignFunctionInterface
-- 
2.40.0