lix/scripts/nix-pull.in

116 lines
2.9 KiB
Plaintext
Raw Normal View History

#! /usr/bin/perl -w
use strict;
2003-08-15 09:39:33 +00:00
use IPC::Open2;
my $tmpfile = "@localstatedir@/nix/pull.tmp";
my $conffile = "@sysconfdir@/nix/prebuilts.conf";
my @ids;
2003-07-10 15:24:50 +00:00
my @subs;
2003-07-10 20:13:32 +00:00
my @sucs;
2003-07-10 15:24:50 +00:00
2003-08-15 09:39:33 +00:00
my $fullexpr = "[";
my $first = 1;
open CONFFILE, "<$conffile";
while (<CONFFILE>) {
chomp;
if (/^\s*(\S+)\s*(\#.*)?$/) {
my $url = $1;
print "obtaining list of Nix archives at $url...\n";
2003-07-10 19:27:46 +00:00
system "wget '$url' -O '$tmpfile' 2> /dev/null"; # !!! escape
if ($?) { die "`wget' failed"; }
open INDEX, "<$tmpfile";
while (<INDEX>) {
# Get all links to prebuilts, that is, file names of the
# form foo-HASH-HASH.tar.bz2.
next unless (/HREF=\"([^\"]*)\"/);
my $fn = $1;
next if $fn =~ /\.\./;
next if $fn =~ /\//;
next unless $fn =~ /^([0-9a-z]{32})-([0-9a-z]{32})(.*)\.nar\.bz2$/;
2003-07-10 20:13:32 +00:00
my $hash = $1;
my $id = $2;
my $outname = $3;
my $fsid;
if ($outname =~ /^-/) {
next unless $outname =~ /^-((s-([0-9a-z]{32}))?.*)$/;
$outname = $1;
$fsid = $3;
} else {
$outname = "unnamed";
}
2003-07-10 19:27:46 +00:00
print STDERR "$id ($outname)\n";
2003-07-10 19:27:46 +00:00
# Construct a Fix expression that fetches and unpacks a
# Nix archive from the network.
my $fetch =
"App(IncludeFix(\"fetchurl/fetchurl.fix\"), " .
2003-07-21 22:05:19 +00:00
"[(\"url\", \"$url/$fn\"), (\"md5\", \"$hash\")])";
2003-07-10 19:27:46 +00:00
my $fixexpr =
"App(IncludeFix(\"nar/unnar.fix\"), " .
"[ (\"nar\", $fetch)" .
", (\"name\", \"$outname\")" .
", (\"id\", \"$id\")" .
2003-07-10 19:27:46 +00:00
"])";
2003-08-15 09:39:33 +00:00
if (!$first) { $fullexpr .= "," };
$first = 0;
2003-08-15 09:39:33 +00:00
$fullexpr .= $fixexpr; # !!! O(n^2)?
2003-07-10 19:27:46 +00:00
push @ids, $id;
2003-07-10 19:27:46 +00:00
2003-07-10 20:13:32 +00:00
# Does the name encode a successor relation?
2003-07-21 22:05:19 +00:00
if (defined $fsid) {
push @sucs, $fsid;
push @sucs, $id;
2003-07-10 20:13:32 +00:00
}
2003-07-10 19:27:46 +00:00
}
close INDEX;
unlink $tmpfile;
}
}
2003-07-10 15:24:50 +00:00
2003-08-15 09:39:33 +00:00
$fullexpr .= "]";
# Instantiate Nix expressions from the Fix expressions we created above.
print STDERR "running fix...\n";
my $pid = open2(\*READ, \*WRITE, "fix -") or die "cannot run fix";
2003-08-15 09:39:33 +00:00
print WRITE $fullexpr;
close WRITE;
my $i = 0;
2003-08-15 09:39:33 +00:00
while (<READ>) {
chomp;
die unless /^([0-9a-z]{32})$/;
my $nid = $1;
die unless ($i < scalar @ids);
my $id = $ids[$i++];
push @subs, $id;
push @subs, $nid;
}
2003-08-15 09:39:33 +00:00
waitpid $pid, 0;
$? == 0 or die "fix failed";
# Register all substitutes.
print STDERR "registering substitutes...\n";
2003-07-10 15:24:50 +00:00
system "nix --substitute @subs";
if ($?) { die "`nix --substitute' failed"; }
2003-07-10 20:13:32 +00:00
# Register all successors.
print STDERR "registering successors...\n";
2003-07-10 20:13:32 +00:00
system "nix --successor @sucs";
if ($?) { die "`nix --successor' failed"; }