X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=blobdiff_plain;f=Bindings%2FAPR%2FQueue.hsc;fp=Bindings%2FAPR%2FQueue.hsc;h=7be6737758ca4ef3700fe54b11e74ee73524a1e3;hp=0000000000000000000000000000000000000000;hb=b1aadff325debe370648cef68c45d898655f3855;hpb=531c5fa16ade6fac6a74f7e2df4fa0466cfc5f67

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>