Bindings.APR.Hooks

diff --git a/Bindings/APR/Hooks.hsc b/Bindings/APR/Hooks.hsc
new file mode 100644 (file)
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 20188386ccc3125c8be94bf68b2028b251f1203e..3f18e62df66249f0615e4a7ef378d3bf82abb725 100644 (file)
--- 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