From: PHO <pho@cielonegro.org>
Date: Sat, 11 Sep 2010 15:21:39 +0000 (+0900)
Subject: Bindings.APR.Hooks
X-Git-Tag: RELEASE-0.1~16
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=ae2834332707ca9fd79d936d671a9eed93d4a641;p=bindings-apr-util.git

Bindings.APR.Hooks
---

diff --git a/Bindings/APR/Hooks.hsc b/Bindings/APR/Hooks.hsc
new file mode 100644
index 0000000..69c8115
--- /dev/null
+++ b/Bindings/APR/Hooks.hsc
@@ -0,0 +1,22 @@
+#include <bindings.dsl.h>
+#include <apr_hooks.h>
+
+module Bindings.APR.Hooks where
+#strict_import
+import Bindings.APR.Pools
+import Bindings.APR.Tables
+
+#num APR_HOOK_REALLY_FIRST
+#num APR_HOOK_FIRST
+#num APR_HOOK_MIDDLE
+#num APR_HOOK_LAST
+#num APR_HOOK_REALLY_LAST
+
+#globalvar apr_hook_global_pool  , Ptr <apr_pool_t>
+#globalvar apr_hook_debug_enabled, CInt
+#globalvar apr_hook_debug_current, Ptr CChar
+
+#ccall apr_hook_sort_register , Ptr CChar -> Ptr (Ptr <apr_array_header_t>) -> IO ()
+#ccall apr_hook_sort_all      , Ptr ()
+#ccall apr_hook_debug_show    , Ptr CChar -> Ptr (Ptr CChar) -> Ptr (Ptr CChar) -> IO ()
+#ccall apr_hook_deregister_all, Ptr ()
diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal
index 2018838..3f18e62 100644
--- a/bindings-apr-util.cabal
+++ b/bindings-apr-util.cabal
@@ -36,6 +36,7 @@ Library
         Bindings.APR.Date
         Bindings.APR.DBD
         Bindings.APR.DBM
+        Bindings.APR.Hooks
 
     C-Sources:
         cbits/helper_apr_anylock.c