From 55a632d352415ddc4e02001529b7e94f37ce32f5 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Tue, 21 Sep 2010 15:07:40 +0900
Subject: [PATCH] Bindings.APR.MD5

---
 Bindings/APR/MD5.hsc    | 25 +++++++++++++++++++++++++
 bindings-apr-util.cabal |  1 +
 2 files changed, 26 insertions(+)
 create mode 100644 Bindings/APR/MD5.hsc

diff --git a/Bindings/APR/MD5.hsc b/Bindings/APR/MD5.hsc
new file mode 100644
index 0000000..0e5e872
--- /dev/null
+++ b/Bindings/APR/MD5.hsc
@@ -0,0 +1,25 @@
+#include <bindings.dsl.h>
+#include <apr_md5.h>
+
+module Bindings.APR.MD5 where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.XLate
+
+#num APR_MD5_DIGESTSIZE
+
+#starttype struct apr_md5_ctx_t
+#  array_field state , <apr_uint32_t>
+#  array_field count , <apr_uint32_t>
+#  array_field buffer, CUChar
+#  field       xlate , Ptr <apr_xlate_t>
+#stoptype
+
+#ccall apr_md5_init     , Ptr <apr_md5_ctx_t> -> IO <apr_status_t>
+#ccall apr_md5_set_xlate, Ptr <apr_md5_ctx_t> -> Ptr <apr_xlate_t> -> IO <apr_status_t>
+#ccall apr_md5_update   , Ptr <apr_md5_ctx_t> -> Ptr () -> <apr_size_t> -> IO <apr_status_t>
+#ccall apr_md5_final    , Ptr CUChar -> Ptr <apr_md5_ctx_t> -> IO <apr_status_t>
+#ccall apr_md5          , Ptr CUChar -> Ptr () -> <apr_size_t> -> IO <apr_status_t>
+#ccall apr_md5_encode   , Ptr CChar -> Ptr CChar -> Ptr CChar -> <apr_size_t> -> IO <apr_status_t>
+#ccall apr_password_validate, Ptr CChar -> Ptr CChar -> IO <apr_status_t>
diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal
index f8e900e..496cf69 100644
--- a/bindings-apr-util.cabal
+++ b/bindings-apr-util.cabal
@@ -43,6 +43,7 @@ Library
         Bindings.APR.LDAP.Rebind
         Bindings.APR.LDAP.URL
         Bindings.APR.MD4
+        Bindings.APR.MD5
         Bindings.APR.XLate
 
     C-Sources:
-- 
2.40.0