puck/lix
0
0
Fork 0
forked from lix-project/lix
Code Pull requests Activity

experimental/hash

Browse source 
adding primop function calculating hash of a string

Signed-off-by: Marc Weber <marco-oweber@gmx.de>
This commit is contained in:
Marc Weber 2013-02-07 00:03:46 +01:00 committed by Eelco Dolstra
parent 8add116acd
commit 01a5ea9914
3 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/libexpr/primops.cc
View file

@ -1107,6 +1107,30 @@ static void prim_unsafeDiscardOutputDependency(EvalState & state, Value * * args
}
static void prim_hash(EvalState & state, Value * * args, Value & v)
{
PathSet context;
string type = state.forceStringNoCtx(*args[0]);
string s = state.forceStringNoCtx(*args[1]);
HashType ht;
if (type == "md5"){
ht = htMD5;
} else if (type == "sha256"){
ht = htSHA256;
} else {
throw Error(format("bad hash type `%1%'") % type);
}
Hash h = hashString(ht, s);
string hash = printHash(h);
mkString(v, hash, context);
};
/*************************************************************
* Versions
*************************************************************/
@ -1235,6 +1259,8 @@ void EvalState::createBaseEnv()
addPrimOp("__unsafeDiscardStringContext", 1, prim_unsafeDiscardStringContext);
addPrimOp("__unsafeDiscardOutputDependency", 1, prim_unsafeDiscardOutputDependency);
addPrimOp("__hash", 2, prim_hash);
// Versions
addPrimOp("__parseDrvName", 1, prim_parseDrvName);
addPrimOp("__compareVersions", 2, prim_compareVersions);

1
tests/lang/eval-okay-hash.exp Normal file
View file

@ -0,0 +1 @@
[ "6c69ee7f211c640419d5366cc076ae46" "bb3438fbabd460ea6dbd27d153e2233b" "900a4469df00ccbfd0c145c6d1e4b7953dd0afafadd7534e3a4019e8d38fc663" "ad0387b3bd8652f730ca46d25f9c170af0fd589f42e7f23f5a9e6412d97d7e56" ]

6
tests/lang/eval-okay-hash.nix Normal file
View file

@ -0,0 +1,6 @@
let
md5 = builtins.hash "md5";
sha256 = builtins.hash "sha256";
strings = [ "text 1" "text 2" ];
in
(builtins.map md5 strings) ++ (builtins.map sha256 strings)