From: PHO <pho@cielonegro.org>
Date: Tue, 19 Oct 2010 14:02:48 +0000 (+0900)
Subject: aupvlist.h
X-Git-Tag: RELEASE-0.1~2
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-audiofile.git;a=commitdiff_plain;h=2d2f19596774a43276f206649a1e73f52c2431e7

aupvlist.h
---

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