haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Separate multiples/simple hash at the type level

Browse Source
This commit is contained in:
Vincent Hanquez 2015-11-19 11:00:56 +00:00
parent f3edfc70f1
commit 3fc6dd17a9
1 changed files with 62 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
gen/Gen.hs
View File

@ -9,38 +9,49 @@ import Template
readTemplate templateFile = parseTemplate <$> readFile templateFile readTemplate templateFile = parseTemplate <$> readFile templateFile
writeTemplate file vars multi template = writeFile file (renderTemplate template vars multi) writeTemplate file vars multi template = writeFile file (renderTemplate template vars multi)
{-
newtype Bits = Bits Int
deriving (Show,Eq,Num)
newtype Bytes = Bytes Int
deriving (Show,Eq,Num)
-}
data GenHashModule = GenHashModule data GenHashModule = GenHashModule
{ ghmModuleName :: String { ghmModuleName :: String
, ghmHeaderFile :: String , ghmHeaderFile :: String
, ghmHashName :: String , ghmHashName :: String
, ghmContextSize :: Int -- in bytes , ghmContextSize :: Int -- in bytes
, ghmDigestSize :: Int -- in bytes , ghmCustomizable :: HashCustom
, ghmBlockLength :: Int -- in bytes
, ghmCustomizable :: [(Int, Int)] -- list of (digest output size in *bits*, block size in bytes)
} deriving (Show,Eq) } deriving (Show,Eq)
data HashCustom =
HashSimple Int -- digest size in bits
Int -- block length in bytes
| HashMulti [(Int, Int)] -- list of (digest output size in *bits*, block size in bytes)
deriving (Show,Eq)
hashModules = hashModules =
-- module header hash ctx dg blk -- module header hash ctx dg blk
[ GenHashModule "BLAKE2s" "blake2.h" "blake2s" 185 256 64 [] [ GenHashModule "BLAKE2s" "blake2.h" "blake2s" 185 (HashSimple 256 64)
, GenHashModule "BLAKE2sp" "blake2.h" "blake2sp" 2185 256 64 [] , GenHashModule "BLAKE2sp" "blake2.h" "blake2sp" 2185 (HashSimple 256 64)
, GenHashModule "BLAKE2b" "blake2.h" "blake2b" 361 512 128 [] , GenHashModule "BLAKE2b" "blake2.h" "blake2b" 361 (HashSimple 512 128)
, GenHashModule "BLAKE2bp" "blake2.h" "blake2sp" 2325 512 128 [] , GenHashModule "BLAKE2bp" "blake2.h" "blake2sp" 2325 (HashSimple 512 128)
, GenHashModule "MD2" "md2.h" "md2" 96 128 16 [] , GenHashModule "MD2" "md2.h" "md2" 96 (HashSimple 128 16)
, GenHashModule "MD4" "md4.h" "md4" 96 128 64 [] , GenHashModule "MD4" "md4.h" "md4" 96 (HashSimple 128 64)
, GenHashModule "MD5" "md5.h" "md5" 96 128 64 [] , GenHashModule "MD5" "md5.h" "md5" 96 (HashSimple 128 64)
, GenHashModule "SHA1" "sha1.h" "sha1" 96 160 64 [] , GenHashModule "SHA1" "sha1.h" "sha1" 96 (HashSimple 160 64)
, GenHashModule "SHA224" "sha256.h" "sha224" 192 224 64 [] , GenHashModule "SHA224" "sha256.h" "sha224" 192 (HashSimple 224 64)
, GenHashModule "SHA256" "sha256.h" "sha256" 192 256 64 [] , GenHashModule "SHA256" "sha256.h" "sha256" 192 (HashSimple 256 64)
, GenHashModule "SHA384" "sha512.h" "sha384" 256 384 128 [] , GenHashModule "SHA384" "sha512.h" "sha384" 256 (HashSimple 384 128)
, GenHashModule "SHA512" "sha512.h" "sha512" 256 512 128 [] , GenHashModule "SHA512" "sha512.h" "sha512" 256 (HashSimple 512 128)
, GenHashModule "SHA512t" "sha512.h" "sha512t" 264 512 128 [(224,128),(256,128)] , GenHashModule "SHA512t" "sha512.h" "sha512t" 264 (HashMulti [(224,128),(256,128)])
, GenHashModule "Keccak" "keccak.h" "keccak" 360 512 64 [(224,144),(256,136),(384,104),(512,72)] , GenHashModule "Keccak" "keccak.h" "keccak" 360 (HashMulti [(224,144),(256,136),(384,104),(512,72)])
, GenHashModule "SHA3" "sha3.h" "sha3" 360 512 64 [(224,144),(256,136),(384,104),(512,72)] , GenHashModule "SHA3" "sha3.h" "sha3" 360 (HashMulti [(224,144),(256,136),(384,104),(512,72)])
, GenHashModule "RIPEMD160" "ripemd.h" "ripemd160" 128 160 64 [] , GenHashModule "RIPEMD160" "ripemd.h" "ripemd160" 128 (HashSimple 160 64)
, GenHashModule "Skein256" "skein256.h" "skein256" 96 256 32 [(224,32),(256,32)] , GenHashModule "Skein256" "skein256.h" "skein256" 96 (HashMulti [(224,32),(256,32)])
, GenHashModule "Skein512" "skein512.h" "skein512" 160 512 64 [(224,64),(256,64),(384,64),(512,64)] , GenHashModule "Skein512" "skein512.h" "skein512" 160 (HashMulti [(224,64),(256,64),(384,64),(512,64)])
, GenHashModule "Tiger" "tiger.h" "tiger" 96 192 64 [] , GenHashModule "Tiger" "tiger.h" "tiger" 96 (HashSimple 192 64)
, GenHashModule "Whirlpool" "whirlpool.h" "whirlpool" 168 512 64 [] , GenHashModule "Whirlpool" "whirlpool.h" "whirlpool" 168 (HashSimple 512 64)
] ]
renderHashModules genOpts = do renderHashModules genOpts = do
@ -48,40 +59,40 @@ renderHashModules genOpts = do
hashLenTemplate <- readTemplate "template/hash-len.hs" hashLenTemplate <- readTemplate "template/hash-len.hs"
forM_ hashModules $ \ghm -> do forM_ hashModules $ \ghm -> do
let vars = [ ("MODULENAME" , ghmModuleName ghm) let baseVars = [ ("MODULENAME" , ghmModuleName ghm)
, ("HEADER_FILE" , ghmHeaderFile ghm) , ("HEADER_FILE" , ghmHeaderFile ghm)
, ("HASHNAME" , ghmHashName ghm) , ("HASHNAME" , ghmHashName ghm)
-- context size (compat) , ("CTX_SIZE_BYTES" , show (ghmContextSize ghm))
, ("SIZECTX" , show (ghmContextSize ghm)) , ("CTX_SIZE_WORD64" , show (ghmContextSize ghm `div` 8))
, ("SIZECTX8" , show (ghmContextSize ghm `div` 8)) ] :: Attrs
, ("DIGESTSIZE" , show (ghmDigestSize ghm `div` 8))
, ("BLOCKLEN" , show (ghmBlockLength ghm))
-- context size
, ("CTX_SIZE_BYTES" , show (ghmContextSize ghm))
, ("CTX_SIZE_WORD64" , show (ghmContextSize ghm `div` 8))
, ("DIGEST_SIZE_BITS" , show (ghmDigestSize ghm))
, ("DIGEST_SIZE_BYTES", show (ghmDigestSize ghm `div` 8))
, ("BLOCK_SIZE_BYTES" , show (ghmBlockLength ghm))
] :: Attrs
let mainDir = "Crypto/Hash" let mainDir = "Crypto/Hash"
mainName = mainDir </> (ghmModuleName ghm ++ ".hs") mainName = mainDir </> (ghmModuleName ghm ++ ".hs")
createDirectoryIfMissing True mainDir createDirectoryIfMissing True mainDir
let tpl = let (tpl, addVars, multiVars) =
if not $ null $ ghmCustomizable ghm case ghmCustomizable ghm of
then hashLenTemplate HashSimple digestSize blockLength ->
else hashTemplate (hashTemplate,
let multi = [ ("CUSTOMIZABLE", map (\(outputSizeBits, customBlockSize) -> [ ("DIGEST_SIZE_BITS" , show digestSize)
[ ("CUSTOM_BITSIZE", show outputSizeBits) , ("DIGEST_SIZE_BYTES", show (digestSize`div` 8))
, ("CUSTOM_DIGEST_SIZE_BITS", show outputSizeBits) , ("BLOCK_SIZE_BYTES" , show blockLength)
, ("CUSTOM_DIGEST_SIZE_BYTES", show (outputSizeBits `div` 8)) ]
, ("CUSTOM_BLOCK_SIZE_BYTES", show customBlockSize) , []
]) (ghmCustomizable ghm) )
) HashMulti customSizes ->
] :: [(String, [Attrs])] (hashLenTemplate, [],
[ ("CUSTOMIZABLE", map (\(outputSizeBits, customBlockSize) ->
[ ("CUSTOM_BITSIZE", show outputSizeBits)
, ("CUSTOM_DIGEST_SIZE_BITS", show outputSizeBits)
, ("CUSTOM_DIGEST_SIZE_BYTES", show (outputSizeBits `div` 8))
, ("CUSTOM_BLOCK_SIZE_BYTES", show customBlockSize)
]) customSizes
)
]
)
writeTemplate mainName vars multi tpl writeTemplate mainName (baseVars ++ addVars) multiVars tpl
main = do main = do
renderHashModules () renderHashModules ()