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

[QA] define ARCH_X86 and add an extension exception for windows entropy module

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-21 05:29:24 +01:00
parent 4758df2c3a
commit d151597d09
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
QA.hs
View File

@ -29,6 +29,7 @@ perModuleAllowedExtensions =
, ("Crypto/Internal/WordArray.hs", [UnboxedTuples,MagicHash]) , ("Crypto/Internal/WordArray.hs", [UnboxedTuples,MagicHash])
, ("Crypto/Internal/Hex.hs", [Rank2Types, UnboxedTuples, MagicHash]) , ("Crypto/Internal/Hex.hs", [Rank2Types, UnboxedTuples, MagicHash])
, ("Crypto/Random/Entropy/Backend.hs", [ExistentialQuantification,CPP]) , ("Crypto/Random/Entropy/Backend.hs", [ExistentialQuantification,CPP])
, ("Crypto/Random/Entropy/Windows.hs", [CPP])
, ("Crypto/Cipher/Blowfish/Box.hs", [MagicHash]) , ("Crypto/Cipher/Blowfish/Box.hs", [MagicHash])
, ("Crypto/Cipher/Blowfish.hs", [CPP]) , ("Crypto/Cipher/Blowfish.hs", [CPP])
, ("Crypto/Cipher/AES.hs", [CPP]) , ("Crypto/Cipher/AES.hs", [CPP])
@ -213,12 +214,13 @@ main = do
s' -> w : wordsWhen p s'' where (w, s'') = break p s' s' -> w : wordsWhen p s'' where (w, s'') = break p s'
processCPP file content = do processCPP file content = do
contentProcessed <- readProcess "cpphs" [d minVersionBase] content contentProcessed <- readProcess "cpphs" [d minVersionBase, d arch] content
return $ simpleCPP contentProcessed return $ simpleCPP contentProcessed
where where
d s = "-D" ++ s d s = "-D" ++ s
minVersionBase = "MIN_VERSION_base(a,b,c)=(((a) >= 4) && ((b) >= 7))" minVersionBase = "MIN_VERSION_base(a,b,c)=(((a) >= 4) && ((b) >= 7))"
arch = "ARCH_X86"
-- simple CPP just strip # starting line -- simple CPP just strip # starting line
simpleCPP = unlines . filter (not . isHashStart) . lines simpleCPP = unlines . filter (not . isHashStart) . lines