{-# LINE 1 "Bindings/Nettle/Hash/Legacy.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LINE 2 "Bindings/Nettle/Hash/Legacy.hsc" #-}


{-# LINE 4 "Bindings/Nettle/Hash/Legacy.hsc" #-}

{-# LINE 5 "Bindings/Nettle/Hash/Legacy.hsc" #-}

{-# LINE 6 "Bindings/Nettle/Hash/Legacy.hsc" #-}

{-# LINE 7 "Bindings/Nettle/Hash/Legacy.hsc" #-}

{-# LINE 8 "Bindings/Nettle/Hash/Legacy.hsc" #-}

{-# LINE 9 "Bindings/Nettle/Hash/Legacy.hsc" #-}

{-# LINE 10 "Bindings/Nettle/Hash/Legacy.hsc" #-}

module Bindings.Nettle.Hash.Legacy where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word

{-# LINE 13 "Bindings/Nettle/Hash/Legacy.hsc" #-}

c'MD5_DIGEST_SIZE = 16
c'MD5_DIGEST_SIZE :: (Num a) => a

{-# LINE 15 "Bindings/Nettle/Hash/Legacy.hsc" #-}
c'MD5_DATA_SIZE = 64
c'MD5_DATA_SIZE :: (Num a) => a

{-# LINE 16 "Bindings/Nettle/Hash/Legacy.hsc" #-}


{-# LINE 18 "Bindings/Nettle/Hash/Legacy.hsc" #-}
data C'md5_ctx = C'md5_ctx{
} deriving (Eq,Show)
instance Storable C'md5_ctx where
  sizeOf _ = 96
  alignment _ = 8
  peek _p = do
    return $ C'md5_ctx
  poke _p (C'md5_ctx) = do
    return ()

{-# LINE 19 "Bindings/Nettle/Hash/Legacy.hsc" #-}

foreign import ccall "nettle_md5_init" c'nettle_md5_init
  :: Ptr C'md5_ctx -> IO ()
foreign import ccall "&nettle_md5_init" p'nettle_md5_init
  :: FunPtr (Ptr C'md5_ctx -> IO ())

{-# LINE 21 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_md5_update" c'nettle_md5_update
  :: Ptr C'md5_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_md5_update" p'nettle_md5_update
  :: FunPtr (Ptr C'md5_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 22 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_md5_digest" c'nettle_md5_digest
  :: Ptr C'md5_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_md5_digest" p'nettle_md5_digest
  :: FunPtr (Ptr C'md5_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 23 "Bindings/Nettle/Hash/Legacy.hsc" #-}

c'MD2_DIGEST_SIZE = 16
c'MD2_DIGEST_SIZE :: (Num a) => a

{-# LINE 25 "Bindings/Nettle/Hash/Legacy.hsc" #-}
c'MD2_DATA_SIZE = 16
c'MD2_DATA_SIZE :: (Num a) => a

{-# LINE 26 "Bindings/Nettle/Hash/Legacy.hsc" #-}


{-# LINE 28 "Bindings/Nettle/Hash/Legacy.hsc" #-}
data C'md2_ctx = C'md2_ctx{
} deriving (Eq,Show)
instance Storable C'md2_ctx where
  sizeOf _ = 84
  alignment _ = 4
  peek _p = do
    return $ C'md2_ctx
  poke _p (C'md2_ctx) = do
    return ()

{-# LINE 29 "Bindings/Nettle/Hash/Legacy.hsc" #-}

foreign import ccall "nettle_md2_init" c'nettle_md2_init
  :: Ptr C'md2_ctx -> IO ()
foreign import ccall "&nettle_md2_init" p'nettle_md2_init
  :: FunPtr (Ptr C'md2_ctx -> IO ())

{-# LINE 31 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_md2_update" c'nettle_md2_update
  :: Ptr C'md2_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_md2_update" p'nettle_md2_update
  :: FunPtr (Ptr C'md2_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 32 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_md2_digest" c'nettle_md2_digest
  :: Ptr C'md2_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_md2_digest" p'nettle_md2_digest
  :: FunPtr (Ptr C'md2_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 33 "Bindings/Nettle/Hash/Legacy.hsc" #-}

c'MD4_DIGEST_SIZE = 16
c'MD4_DIGEST_SIZE :: (Num a) => a

{-# LINE 35 "Bindings/Nettle/Hash/Legacy.hsc" #-}
c'MD4_DATA_SIZE = 64
c'MD4_DATA_SIZE :: (Num a) => a

{-# LINE 36 "Bindings/Nettle/Hash/Legacy.hsc" #-}


{-# LINE 38 "Bindings/Nettle/Hash/Legacy.hsc" #-}
data C'md4_ctx = C'md4_ctx{
} deriving (Eq,Show)
instance Storable C'md4_ctx where
  sizeOf _ = 96
  alignment _ = 8
  peek _p = do
    return $ C'md4_ctx
  poke _p (C'md4_ctx) = do
    return ()

{-# LINE 39 "Bindings/Nettle/Hash/Legacy.hsc" #-}

foreign import ccall "nettle_md4_init" c'nettle_md4_init
  :: Ptr C'md4_ctx -> IO ()
foreign import ccall "&nettle_md4_init" p'nettle_md4_init
  :: FunPtr (Ptr C'md4_ctx -> IO ())

{-# LINE 41 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_md4_update" c'nettle_md4_update
  :: Ptr C'md4_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_md4_update" p'nettle_md4_update
  :: FunPtr (Ptr C'md4_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 42 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_md4_digest" c'nettle_md4_digest
  :: Ptr C'md4_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_md4_digest" p'nettle_md4_digest
  :: FunPtr (Ptr C'md4_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 43 "Bindings/Nettle/Hash/Legacy.hsc" #-}

c'RIPEMD160_DIGEST_SIZE = 20
c'RIPEMD160_DIGEST_SIZE :: (Num a) => a

{-# LINE 45 "Bindings/Nettle/Hash/Legacy.hsc" #-}
c'RIPEMD160_DATA_SIZE = 64
c'RIPEMD160_DATA_SIZE :: (Num a) => a

{-# LINE 46 "Bindings/Nettle/Hash/Legacy.hsc" #-}


{-# LINE 48 "Bindings/Nettle/Hash/Legacy.hsc" #-}
data C'ripemd160_ctx = C'ripemd160_ctx{
} deriving (Eq,Show)
instance Storable C'ripemd160_ctx where
  sizeOf _ = 104
  alignment _ = 8
  peek _p = do
    return $ C'ripemd160_ctx
  poke _p (C'ripemd160_ctx) = do
    return ()

{-# LINE 49 "Bindings/Nettle/Hash/Legacy.hsc" #-}

foreign import ccall "nettle_ripemd160_init" c'nettle_ripemd160_init
  :: Ptr C'ripemd160_ctx -> IO ()
foreign import ccall "&nettle_ripemd160_init" p'nettle_ripemd160_init
  :: FunPtr (Ptr C'ripemd160_ctx -> IO ())

{-# LINE 51 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_ripemd160_update" c'nettle_ripemd160_update
  :: Ptr C'ripemd160_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_ripemd160_update" p'nettle_ripemd160_update
  :: FunPtr (Ptr C'ripemd160_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 52 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_ripemd160_digest" c'nettle_ripemd160_digest
  :: Ptr C'ripemd160_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_ripemd160_digest" p'nettle_ripemd160_digest
  :: FunPtr (Ptr C'ripemd160_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 53 "Bindings/Nettle/Hash/Legacy.hsc" #-}

c'SHA1_DIGEST_SIZE = 20
c'SHA1_DIGEST_SIZE :: (Num a) => a

{-# LINE 55 "Bindings/Nettle/Hash/Legacy.hsc" #-}
c'SHA1_DATA_SIZE = 64
c'SHA1_DATA_SIZE :: (Num a) => a

{-# LINE 56 "Bindings/Nettle/Hash/Legacy.hsc" #-}


{-# LINE 58 "Bindings/Nettle/Hash/Legacy.hsc" #-}
data C'sha1_ctx = C'sha1_ctx{
} deriving (Eq,Show)
instance Storable C'sha1_ctx where
  sizeOf _ = 104
  alignment _ = 8
  peek _p = do
    return $ C'sha1_ctx
  poke _p (C'sha1_ctx) = do
    return ()

{-# LINE 59 "Bindings/Nettle/Hash/Legacy.hsc" #-}

foreign import ccall "nettle_sha1_init" c'nettle_sha1_init
  :: Ptr C'sha1_ctx -> IO ()
foreign import ccall "&nettle_sha1_init" p'nettle_sha1_init
  :: FunPtr (Ptr C'sha1_ctx -> IO ())

{-# LINE 61 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_sha1_update" c'nettle_sha1_update
  :: Ptr C'sha1_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_sha1_update" p'nettle_sha1_update
  :: FunPtr (Ptr C'sha1_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 62 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_sha1_digest" c'nettle_sha1_digest
  :: Ptr C'sha1_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_sha1_digest" p'nettle_sha1_digest
  :: FunPtr (Ptr C'sha1_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 63 "Bindings/Nettle/Hash/Legacy.hsc" #-}

c'GOSTHASH94_DIGEST_SIZE = 32
c'GOSTHASH94_DIGEST_SIZE :: (Num a) => a

{-# LINE 65 "Bindings/Nettle/Hash/Legacy.hsc" #-}
c'GOSTHASH94_DATA_SIZE = 32
c'GOSTHASH94_DATA_SIZE :: (Num a) => a

{-# LINE 66 "Bindings/Nettle/Hash/Legacy.hsc" #-}


{-# LINE 68 "Bindings/Nettle/Hash/Legacy.hsc" #-}
data C'gosthash94_ctx = C'gosthash94_ctx{
} deriving (Eq,Show)
instance Storable C'gosthash94_ctx where
  sizeOf _ = 104
  alignment _ = 8
  peek _p = do
    return $ C'gosthash94_ctx
  poke _p (C'gosthash94_ctx) = do
    return ()

{-# LINE 69 "Bindings/Nettle/Hash/Legacy.hsc" #-}

foreign import ccall "nettle_gosthash94_init" c'nettle_gosthash94_init
  :: Ptr C'gosthash94_ctx -> IO ()
foreign import ccall "&nettle_gosthash94_init" p'nettle_gosthash94_init
  :: FunPtr (Ptr C'gosthash94_ctx -> IO ())

{-# LINE 71 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_gosthash94_update" c'nettle_gosthash94_update
  :: Ptr C'gosthash94_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_gosthash94_update" p'nettle_gosthash94_update
  :: FunPtr (Ptr C'gosthash94_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 72 "Bindings/Nettle/Hash/Legacy.hsc" #-}
foreign import ccall "nettle_gosthash94_digest" c'nettle_gosthash94_digest
  :: Ptr C'gosthash94_ctx -> CUInt -> Ptr CUChar -> IO ()
foreign import ccall "&nettle_gosthash94_digest" p'nettle_gosthash94_digest
  :: FunPtr (Ptr C'gosthash94_ctx -> CUInt -> Ptr CUChar -> IO ())

{-# LINE 73 "Bindings/Nettle/Hash/Legacy.hsc" #-}