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

* Working derivate sharing.

Browse source
This commit is contained in:
Eelco Dolstra 2003-07-10 20:13:32 +00:00
parent 81304a6bb5
commit 9bcc31c941
2 changed files with 23 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
scripts/nix-pull
View file

@ -7,6 +7,7 @@ my $tmpfile = "$prefix/var/nix/pull.tmp";
my $conffile = "$etcdir/prebuilts.conf";
my @subs;
my @sucs;
open CONFFILE, "<$conffile";
@ -30,8 +31,9 @@ while (<CONFFILE>) {
my $fn = $1;
next if $fn =~ /\.\./;
next if $fn =~ /\//;
next unless $fn =~ /([0-9a-z]{32})-([0-9a-z]{32})\.nar/;
my $hash = $2;
next unless $fn =~ /-([0-9a-z]{32})(-s-([0-9a-z]{32}))?\.nar/;
my $hash = $1;
my $fshash = $3;
print "registering $hash -> $url/$fn\n";
@ -60,6 +62,12 @@ while (<CONFFILE>) {
push @subs, $hash;
push @subs, $nhash;
# Does the name encode a successor relation?
if (defined $fshash) {
print "NORMAL $fshash -> $hash\n";
push @sucs, $fshash;
push @sucs, $hash;
}
}
close INDEX;
@ -71,3 +79,6 @@ while (<CONFFILE>) {
system "nix --substitute @subs";
if ($?) { die "`nix --substitute' failed"; }
system "nix --successor @sucs";
if ($?) { die "`nix --successor' failed"; }