X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=Bindings%2FAPR%2FResList.hsc;fp=Bindings%2FAPR%2FResList.hsc;h=205c5339dcd10576d422db5e7d88a5295b31b1a1;hb=531c5fa16ade6fac6a74f7e2df4fa0466cfc5f67;hp=0000000000000000000000000000000000000000;hpb=55a632d352415ddc4e02001529b7e94f37ce32f5;p=bindings-apr-util.git

diff --git a/Bindings/APR/ResList.hsc b/Bindings/APR/ResList.hsc
new file mode 100644
index 0000000..205c533
--- /dev/null
+++ b/Bindings/APR/ResList.hsc
@@ -0,0 +1,24 @@
+#include <bindings.dsl.h>
+#include <apr_reslist.h>
+
+module Bindings.APR.ResList where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.Pools
+import Bindings.APR.Time
+
+#if APR_HAS_THREADS
+#  opaque_t apr_reslist_t
+#  callback apr_reslist_constructor, Ptr (Ptr ()) -> Ptr () -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#  callback apr_reslist_destructor , Ptr () -> Ptr () -> Ptr <apr_pool_t> -> IO <apr_status_t>
+
+#  ccall apr_reslist_create , Ptr (Ptr <apr_reslist_t>) -> CInt -> CInt -> CInt -> <apr_interval_time_t> -> <apr_reslist_constructor> -> <apr_reslist_destructor> -> Ptr () -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#  ccall apr_reslist_destroy, Ptr <apr_reslist_t> -> IO <apr_status_t>
+#  ccall apr_reslist_acquire, Ptr <apr_reslist_t> -> Ptr (Ptr ()) -> IO <apr_status_t>
+#  ccall apr_reslist_release, Ptr <apr_reslist_t> -> Ptr () -> IO <apr_status_t>
+
+#  ccall apr_reslist_timeout_set   , Ptr <apr_reslist_t> -> <apr_interval_time_t> -> IO ()
+#  ccall apr_reslist_acquired_count, Ptr <apr_reslist_t> -> IO <apr_uint32_t>
+#  ccall apr_reslist_invalidate    , Ptr <apr_reslist_t> -> Ptr () -> IO <apr_status_t>
+#endif