{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE CPP #-}
module OpenSSL.EVP.Digest.Context where
import OpenSSL.EVP.Digest.Error ( throwIfZero )
import Control.Monad
import Foreign
import Foreign.C
#include "openssl/opensslv.h"
newtype Context = Context (Ptr ())
deriving (Show, Eq)
newContext :: IO Context
newContext = do ctx@(Context p) <- _newContext
when (p == nullPtr) (fail "OpenSSL.EVP.Digest.Context.newContext failed")
return ctx
foreign import ccall unsafe
#if OPENSSL_VERSION_NUMBER < 0x1010000f
"openssl/evp.h EVP_MD_CTX_create"
#else
"openssl/evp.h EVP_MD_CTX_new"
#endif
_newContext :: IO Context
foreign import ccall unsafe
#if OPENSSL_VERSION_NUMBER < 0x1010000f
"openssl/evp.h EVP_MD_CTX_destroy"
#else
"openssl/evp.h EVP_MD_CTX_free"
#endif
freeContext :: Context -> IO ()
resetDigest :: Context -> IO ()
resetDigest ctx =
throwIfZero "OpenSSL.EVP.Digest.resetDigest" (_resetContext ctx)
foreign import ccall unsafe
#if OPENSSL_VERSION_NUMBER < 0x1010000f
"openssl/evp.h EVP_MD_CTX_cleanup"
#else
"openssl/evp.h EVP_MD_CTX_reset"
#endif
_resetContext :: Context -> IO CInt