From: PHO <pho@cielonegro.org>
Date: Tue, 21 Sep 2010 14:31:07 +0000 (+0900)
Subject: Bindings.APR.Queue
X-Git-Tag: RELEASE-0.1~8
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=commitdiff_plain;h=b1aadff325debe370648cef68c45d898655f3855

Bindings.APR.Queue
---

diff --git a/Bindings/APR/Queue.hsc b/Bindings/APR/Queue.hsc
new file mode 100644
index 0000000..7be6737
--- /dev/null
+++ b/Bindings/APR/Queue.hsc
@@ -0,0 +1,19 @@
+#include <bindings.dsl.h>
+#include <apr_queue.h>
+
+module Bindings.APR.Queue where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.Pools
+
+#opaque_t apr_queue_t
+
+#ccall apr_queue_create , Ptr (Ptr <apr_queue_t>) -> CUInt -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#ccall apr_queue_push   , Ptr <apr_queue_t> -> Ptr () -> IO <apr_status_t>
+#ccall apr_queue_pop    , Ptr <apr_queue_t> -> Ptr (Ptr ()) -> IO <apr_status_t>
+#ccall apr_queue_trypush, Ptr <apr_queue_t> -> Ptr () -> IO <apr_status_t>
+#ccall apr_queue_trypop , Ptr <apr_queue_t> -> Ptr (Ptr ()) -> IO <apr_status_t>
+#ccall apr_queue_size   , Ptr <apr_queue_t> -> IO CUInt
+#ccall apr_queue_interrupt_all, Ptr <apr_queue_t> -> IO <apr_status_t>
+#ccall apr_queue_term   , Ptr <apr_queue_t> -> IO <apr_status_t>
diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal
index 6186431..7fe6de3 100644
--- a/bindings-apr-util.cabal
+++ b/bindings-apr-util.cabal
@@ -45,6 +45,7 @@ Library
         Bindings.APR.MD4
         Bindings.APR.MD5
         Bindings.APR.MemCache
+        Bindings.APR.Queue
         Bindings.APR.ResList
         Bindings.APR.XLate