From ae2834332707ca9fd79d936d671a9eed93d4a641 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Sun, 12 Sep 2010 00:21:39 +0900
Subject: [PATCH] Bindings.APR.Hooks

---
 Bindings/APR/Hooks.hsc  | 22 ++++++++++++++++++++++
 bindings-apr-util.cabal |  1 +
 2 files changed, 23 insertions(+)
 create mode 100644 Bindings/APR/Hooks.hsc

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
-- 
2.40.0