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
c'MD5_DIGEST_SIZE = 16
c'MD5_DIGEST_SIZE :: (Num a) => a
c'MD5_DATA_SIZE = 64
c'MD5_DATA_SIZE :: (Num a) => a
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 ()
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 ())
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 ())
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 ())
c'MD2_DIGEST_SIZE = 16
c'MD2_DIGEST_SIZE :: (Num a) => a
c'MD2_DATA_SIZE = 16
c'MD2_DATA_SIZE :: (Num a) => a
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 ()
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 ())
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 ())
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 ())
c'MD4_DIGEST_SIZE = 16
c'MD4_DIGEST_SIZE :: (Num a) => a
c'MD4_DATA_SIZE = 64
c'MD4_DATA_SIZE :: (Num a) => a
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 ()
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 ())
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 ())
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 ())
c'RIPEMD160_DIGEST_SIZE = 20
c'RIPEMD160_DIGEST_SIZE :: (Num a) => a
c'RIPEMD160_DATA_SIZE = 64
c'RIPEMD160_DATA_SIZE :: (Num a) => a
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 ()
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 ())
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 ())
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 ())
c'SHA1_DIGEST_SIZE = 20
c'SHA1_DIGEST_SIZE :: (Num a) => a
c'SHA1_DATA_SIZE = 64
c'SHA1_DATA_SIZE :: (Num a) => a
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 ()
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 ())
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 ())
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 ())
c'GOSTHASH94_DIGEST_SIZE = 32
c'GOSTHASH94_DIGEST_SIZE :: (Num a) => a
c'GOSTHASH94_DATA_SIZE = 32
c'GOSTHASH94_DATA_SIZE :: (Num a) => a
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 ()
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 ())
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 ())
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 ())