X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=blobdiff_plain;f=Bindings%2FAPR%2FHooks.hsc;fp=Bindings%2FAPR%2FHooks.hsc;h=69c811517e869cfe4869ef1aad5910f78fe9ceac;hp=0000000000000000000000000000000000000000;hb=ae2834332707ca9fd79d936d671a9eed93d4a641;hpb=8cfda548ff9566d805e28a5c1cb5b4c840470575

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 ()