From: PHO <pho@cielonegro.org>
Date: Thu, 23 Sep 2010 13:47:39 +0000 (+0900)
Subject: Bindings.APR.SHA1
X-Git-Tag: RELEASE-0.1~5
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=commitdiff_plain;h=4975306385f041ebb0f22e1abbea5dc445b338af

Bindings.APR.SHA1
---

diff --git a/Bindings/APR/SHA1.hsc b/Bindings/APR/SHA1.hsc
new file mode 100644
index 0000000..cf9d7cf
--- /dev/null
+++ b/Bindings/APR/SHA1.hsc
@@ -0,0 +1,26 @@
+#include <bindings.dsl.h>
+#include <apr_sha1.h>
+
+module Bindings.APR.SHA1 where
+#strict_import
+import Bindings.APR
+
+#num APR_SHA1_DIGESTSIZE
+
+#globalarray APR_SHA1_ID, CChar
+
+#num APR_SHA1PW_IDLEN
+
+#starttype struct apr_sha1_ctx_t
+#  array_field digest  , <apr_uint32_t>
+#  field       count_lo, <apr_uint32_t>
+#  field       count_hi, <apr_uint32_t>
+#  array_field data    , <apr_uint32_t>
+#  field       local   , CInt
+#stoptype
+
+#ccall apr_sha1_base64       , Ptr CChar -> CInt -> Ptr CChar -> IO ()
+#ccall apr_sha1_init         , Ptr <apr_sha1_ctx_t> -> IO ()
+#ccall apr_sha1_update       , Ptr <apr_sha1_ctx_t> -> Ptr CChar -> CUInt -> IO ()
+#ccall apr_sha1_update_binary, Ptr <apr_sha1_ctx_t> -> Ptr CUInt -> CUInt -> IO ()
+#ccall apr_sha1_final        , Ptr CUChar -> Ptr <apr_sha1_ctx_t> -> IO ()
diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal
index 052cd4c..9b5aed5 100644
--- a/bindings-apr-util.cabal
+++ b/bindings-apr-util.cabal
@@ -49,6 +49,7 @@ Library
         Bindings.APR.RMM
         Bindings.APR.ResList
         Bindings.APR.SDBM
+        Bindings.APR.SHA1
         Bindings.APR.XLate
 
     C-Sources:
@@ -59,6 +60,7 @@ Library
         cbits/helper_apr_ldap_init.c
         cbits/helper_apr_md4.c
         cbits/helper_apr_sdbm.c
+        cbits/helper_apr_sha1.c
 
     Extensions:
         ForeignFunctionInterface
diff --git a/cbits/helper_apr_sha1.c b/cbits/helper_apr_sha1.c
new file mode 100644
index 0000000..8fae529
--- /dev/null
+++ b/cbits/helper_apr_sha1.c
@@ -0,0 +1,4 @@
+#include <bindings.cmacros.h>
+#include <apr_sha1.h>
+
+BC_GLOBALARRAY(APR_SHA1PW_ID, char)