From a40982f5b44cb06d81aef8a06ef83ad51f53e9df Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Sat, 21 Aug 2010 00:52:53 +0900
Subject: [PATCH] Bindings.APR.Hash

---
 Bindings/APR/Hash.hsc | 30 ++++++++++++++++++++++++++++++
 bindings-apr.cabal    |  1 +
 2 files changed, 31 insertions(+)
 create mode 100644 Bindings/APR/Hash.hsc

diff --git a/Bindings/APR/Hash.hsc b/Bindings/APR/Hash.hsc
new file mode 100644
index 0000000..7f6b96d
--- /dev/null
+++ b/Bindings/APR/Hash.hsc
@@ -0,0 +1,30 @@
+#include <bindings.dsl.h>
+#include <apr_hash.h>
+
+module Bindings.APR.Hash where
+#strict_import
+import Bindings.APR
+import Bindings.APR.Pools
+
+#num APR_HASH_KEY_STRING
+
+#opaque_t apr_hash_t
+#opaque_t apr_hash_index_t
+
+#callback apr_hashfunc_t, Ptr CChar -> Ptr <apr_ssize_t> -> IO CUInt
+
+#ccall apr_hashfunc_default, Ptr CChar -> Ptr <apr_ssize_t> -> IO CUInt
+#ccall apr_hash_make       , Ptr <apr_pool_t> -> IO (Ptr <apr_hash_t>)
+#ccall apr_hash_make_custom, Ptr <apr_hash_t> -> <apr_hashfunc_t> -> IO (Ptr <apr_hash_t>)
+#ccall apr_hash_copy       , Ptr <apr_pool_t> -> Ptr <apr_hash_t> -> IO (Ptr <apr_hash_t>)
+#ccall apr_hash_set        , Ptr <apr_hash_t> -> Ptr () -> <apr_ssize_t> -> Ptr () -> IO ()
+#ccall apr_hash_get        , Ptr <apr_hash_t> -> Ptr () -> <apr_ssize_t> -> IO (Ptr ())
+#ccall apr_hash_first      , Ptr <apr_pool_t> -> Ptr <apr_hash_t> -> IO (Ptr <apr_hash_index_t>)
+#ccall apr_hash_next       , Ptr <apr_hash_index_t> -> IO (Ptr <apr_hash_index_t>)
+#ccall apr_hash_this       , Ptr <apr_hash_index_t> -> Ptr (Ptr ()) -> Ptr <apr_ssize_t> -> Ptr (Ptr ()) -> IO ()
+#ccall apr_hash_count      , Ptr <apr_hash_t> -> IO CUInt
+#ccall apr_hash_clear      , Ptr <apr_hash_t> -> IO ()
+#ccall apr_hash_overlay    , Ptr <apr_pool_t> -> Ptr <apr_hash_t> -> Ptr <apr_hash_t> -> IO (Ptr <apr_hash_t>)
+#ccall apr_hash_merge      , Ptr <apr_pool_t> -> Ptr <apr_hash_t> -> Ptr <apr_hash_t> -> FunPtr (Ptr <apr_pool_t> -> Ptr () -> <apr_ssize_t> -> Ptr () -> Ptr () -> Ptr () -> IO (Ptr ())) -> Ptr () -> IO (Ptr <apr_hash_t>)
+
+#ccall apr_hash_pool_get   , Ptr <apr_hash_t> -> IO (Ptr <apr_pool_t>)
diff --git a/bindings-apr.cabal b/bindings-apr.cabal
index d828489..f656208 100644
--- a/bindings-apr.cabal
+++ b/bindings-apr.cabal
@@ -43,6 +43,7 @@ Library
         Bindings.APR.General
         Bindings.APR.GetOpt
         Bindings.APR.Global.Mutex
+        Bindings.APR.Hash
         Bindings.APR.Pools
         Bindings.APR.Proc.Mutex
         Bindings.APR.Tables
-- 
2.40.0