forked from lix-project/lix
a5c6347ff0
This makes things more efficient (we don't need to use an SSH master connection, and we only start a single remote process) and gets rid of locking issues (the remote nix-store process will keep inputs and outputs locked as long as they're needed). It also makes it more or less secure to connect directly to the root account on the build machine, using a forced command (e.g. ‘command="nix-store --serve --write"’). This bypasses the Nix daemon and is therefore more efficient. Also, don't call nix-store to import the output paths.
92 lines
2.3 KiB
Perl
92 lines
2.3 KiB
Perl
package Nix::Store;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Nix::Config;
|
|
|
|
require Exporter;
|
|
|
|
our @ISA = qw(Exporter);
|
|
|
|
our %EXPORT_TAGS = ( 'all' => [ qw( ) ] );
|
|
|
|
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
|
|
|
|
our @EXPORT = qw(
|
|
isValidPath queryReferences queryPathInfo queryDeriver queryPathHash
|
|
queryPathFromHashPart
|
|
topoSortPaths computeFSClosure followLinksToStorePath exportPaths importPaths
|
|
hashPath hashFile hashString
|
|
addToStore makeFixedOutputPath
|
|
derivationFromPath
|
|
);
|
|
|
|
our $VERSION = '0.15';
|
|
|
|
sub backtick {
|
|
open(RES, "-|", @_) or die;
|
|
local $/;
|
|
my $res = <RES> || "";
|
|
close RES or die;
|
|
return $res;
|
|
}
|
|
|
|
if ($Nix::Config::useBindings) {
|
|
require XSLoader;
|
|
XSLoader::load('Nix::Store', $VERSION);
|
|
} else {
|
|
|
|
# Provide slow fallbacks of some functions on platforms that don't
|
|
# support the Perl bindings.
|
|
|
|
use File::Temp;
|
|
use Fcntl qw/F_SETFD/;
|
|
|
|
*hashFile = sub {
|
|
my ($algo, $base32, $path) = @_;
|
|
my $res = backtick("$Nix::Config::binDir/nix-hash", "--flat", $path, "--type", $algo, $base32 ? "--base32" : ());
|
|
chomp $res;
|
|
return $res;
|
|
};
|
|
|
|
*hashPath = sub {
|
|
my ($algo, $base32, $path) = @_;
|
|
my $res = backtick("$Nix::Config::binDir/nix-hash", $path, "--type", $algo, $base32 ? "--base32" : ());
|
|
chomp $res;
|
|
return $res;
|
|
};
|
|
|
|
*hashString = sub {
|
|
my ($algo, $base32, $s) = @_;
|
|
my $fh = File::Temp->new();
|
|
print $fh $s;
|
|
my $res = backtick("$Nix::Config::binDir/nix-hash", $fh->filename, "--type", $algo, $base32 ? "--base32" : ());
|
|
chomp $res;
|
|
return $res;
|
|
};
|
|
|
|
*addToStore = sub {
|
|
my ($srcPath, $recursive, $algo) = @_;
|
|
die "not implemented" if $recursive || $algo ne "sha256";
|
|
my $res = backtick("$Nix::Config::binDir/nix-store", "--add", $srcPath);
|
|
chomp $res;
|
|
return $res;
|
|
};
|
|
|
|
*isValidPath = sub {
|
|
my ($path) = @_;
|
|
my $res = backtick("$Nix::Config::binDir/nix-store", "--check-validity", "--print-invalid", $path);
|
|
chomp $res;
|
|
return $res ne $path;
|
|
};
|
|
|
|
*queryPathHash = sub {
|
|
my ($path) = @_;
|
|
my $res = backtick("$Nix::Config::binDir/nix-store", "--query", "--hash", $path);
|
|
chomp $res;
|
|
return $res;
|
|
};
|
|
}
|
|
|
|
1;
|
|
__END__
|