Bindings.APR.Queue

diff --git a/Bindings/APR/Queue.hsc b/Bindings/APR/Queue.hsc
new file mode 100644 (file)
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 6186431b17cff9f700841737014c2b9fb30518cf..7fe6de370970290665366a9c0e170cd0ae7becff 100644 (file)
--- 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