mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

queryPathInfo(): return hash in base-32 if desired

Browse source 
Cherry-picked from the no-manifests branch.
This commit is contained in:
Eelco Dolstra 2012-07-17 16:55:45 -04:00
parent 3a9fdf2747
commit 220818f758
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
perl/lib/Nix/Store.xs
View file

@ -86,7 +86,7 @@ SV * queryDeriver(char * path)
} }
SV * queryPathInfo(char * path) SV * queryPathInfo(char * path, int base32)
PPCODE: PPCODE:
try { try {
doInit(); doInit();
@ -95,7 +95,7 @@ SV * queryPathInfo(char * path)
XPUSHs(&PL_sv_undef); XPUSHs(&PL_sv_undef);
else else
XPUSHs(sv_2mortal(newSVpv(info.deriver.c_str(), 0))); XPUSHs(sv_2mortal(newSVpv(info.deriver.c_str(), 0)));
string s = "sha256:" + printHash(info.hash); string s = "sha256:" + (base32 ? printHash32(info.hash) : printHash(info.hash));
XPUSHs(sv_2mortal(newSVpv(s.c_str(), 0))); XPUSHs(sv_2mortal(newSVpv(s.c_str(), 0)));
mXPUSHi(info.registrationTime); mXPUSHi(info.registrationTime);
mXPUSHi(info.narSize); mXPUSHi(info.narSize);