wroclaw-git-backups/nix
1
0
Fork 0
mirror of https://github.com/NixOS/nix synced 2025-06-27 12:41:15 +02:00
Code Activity

* download-using-manifests: use the Perl bindings.

Browse source
This commit is contained in:
Eelco Dolstra 2011-11-29 13:01:24 +00:00
parent b1eb8f4249
commit 1749a7b0ae
3 changed files with 45 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -159,3 +159,14 @@ void exportPaths(int fd, int sign, ...)
} catch (Error & e) {
croak(e.what());
}
SV * hashPath(char * algo, int base32, char * path)
PPCODE:
try {
Hash h = hashPath(parseHashType(algo), path).first;
string s = base32 ? printHash32(h) : printHash(h);
XPUSHs(sv_2mortal(newSVpv(s.c_str(), 0)));
} catch (Error & e) {
croak(e.what());
}