{-# LINE 1 "Bindings/Nettle/Hash/Legacy.hsc" #-} {-# LANGUAGE ForeignFunctionInterface #-} 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" #-}