#include #include 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 , # array_field count , # array_field buffer, CUChar # if APR_HAS_XLATE # field xlate, Ptr # endif #stoptype #ccall apr_md4_init , Ptr -> IO #cinline apr_md4_set_xlate, Ptr -> Ptr -> IO #ccall apr_md4_update , Ptr -> Ptr CUChar -> -> IO #ccall apr_md4_final , Ptr CUChar -> Ptr -> IO #ccall apr_md4 , Ptr CUChar -> Ptr CUChar -> -> IO