-- |

-- Module      : Crypto.Hash.RIPEMD160

-- License     : BSD-style

-- Maintainer  : Vincent Hanquez <vincent@snarc.org>

-- Stability   : experimental

-- Portability : unknown

--

-- module containing the binding functions to work with the

-- RIPEMD160 cryptographic hash.

--

{-# LANGUAGE ForeignFunctionInterface #-}

{-# LANGUAGE DeriveDataTypeable #-}

{-# LANGUAGE DataKinds #-}

{-# LANGUAGE TypeFamilies #-}

module Crypto.Hash.RIPEMD160 ( RIPEMD160 (..) ) where

import           Crypto.Hash.Types

import           Foreign.Ptr (Ptr)

import           Data.Data

import           Data.Typeable

import           Data.Word (Word8, Word32)

-- | RIPEMD160 cryptographic hash algorithm

data RIPEMD160 = RIPEMD160

    deriving (Show,Data,Typeable)

instance HashAlgorithm RIPEMD160 where

    type HashBlockSize           RIPEMD160 = 64

    type HashDigestSize          RIPEMD160 = 20

    type HashInternalContextSize RIPEMD160 = 128

    hashBlockSize  _          = 64

    hashDigestSize _          = 20

    hashInternalContextSize _ = 128

    hashInternalInit          = c_ripemd160_init

    hashInternalUpdate        = c_ripemd160_update

    hashInternalFinalize      = c_ripemd160_finalize

foreign import ccall unsafe "cryptonite_ripemd160_init"

    c_ripemd160_init :: Ptr (Context a)-> IO ()

foreign import ccall "cryptonite_ripemd160_update"

    c_ripemd160_update :: Ptr (Context a) -> Ptr Word8 -> Word32 -> IO ()

foreign import ccall unsafe "cryptonite_ripemd160_finalize"

    c_ripemd160_finalize :: Ptr (Context a) -> Ptr (Digest a) -> IO ()