From: PHO <pho@cielonegro.org>
Date: Fri, 20 Aug 2010 15:52:53 +0000 (+0900)
Subject: Bindings.APR.Hash
X-Git-Tag: RELEASE-0.1~21
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr.git;a=commitdiff_plain;h=a40982f5b44cb06d81aef8a06ef83ad51f53e9df

Bindings.APR.Hash
---

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