X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=blobdiff_plain;f=Bindings%2FAPR%2FMD4.hsc;fp=Bindings%2FAPR%2FMD4.hsc;h=ac3b86ff2b0f6a3f6da2d5cf99ee59dfe991258c;hp=0000000000000000000000000000000000000000;hb=468cc5fe8177261bc46c989e885ac96ab40a2345;hpb=c2eb5e1556aaff2501098944197ee80f0a15da14

diff --git a/Bindings/APR/MD4.hsc b/Bindings/APR/MD4.hsc
new file mode 100644
index 0000000..ac3b86f
--- /dev/null
+++ b/Bindings/APR/MD4.hsc
@@ -0,0 +1,25 @@
+#include <bindings.dsl.h>
+#include <apr_md4.h>
+
+module Bindings.APR.MD4 where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.XLate
+
+#num APR_MD4_DIGESTSIZE
+
+#starttype struct apr_md4_ctx_t
+#  array_field state , <apr_uint32_t>
+#  array_field count , <apr_uint32_t>
+#  array_field buffer, CUChar
+#  if APR_HAS_XLATE
+#    field xlate, Ptr <apr_xlate_t>
+#  endif
+#stoptype
+
+#ccall   apr_md4_init     , Ptr <apr_md4_ctx_t> -> IO <apr_status_t>
+#cinline apr_md4_set_xlate, Ptr <apr_md4_ctx_t> -> Ptr <apr_xlate_t> -> IO <apr_status_t>
+#ccall   apr_md4_update   , Ptr <apr_md4_ctx_t> -> Ptr CUChar -> <apr_size_t> -> IO <apr_status_t>
+#ccall   apr_md4_final    , Ptr CUChar -> Ptr <apr_md4_ctx_t> -> IO <apr_status_t>
+#ccall   apr_md4          , Ptr CUChar -> Ptr CUChar -> <apr_size_t> -> IO <apr_status_t>