From b1aadff325debe370648cef68c45d898655f3855 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Tue, 21 Sep 2010 23:31:07 +0900
Subject: [PATCH] Bindings.APR.Queue

---
 Bindings/APR/Queue.hsc  | 19 +++++++++++++++++++
 bindings-apr-util.cabal |  1 +
 2 files changed, 20 insertions(+)
 create mode 100644 Bindings/APR/Queue.hsc

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
 
-- 
2.40.0