nixos/nix
1
1
Fork 0
mirror of https://github.com/NixOS/nix.git synced 2025-11-17 16:02:43 +01:00
Code Activity

* Descriptors now have a "system" field specifying the platform that

Browse source 
the build or run action should be perfomed on.  This ensures that
  descriptors have different hashes on different platforms.
This commit is contained in:
Eelco Dolstra 2003-03-24 12:49:40 +00:00
parent 9d2f128252
commit 2dc84e5569
16 changed files with 1480 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

85
src/nix-instantiate
View file

@ -1,85 +0,0 @@
#! /usr/bin/perl -w
use strict;
use FileHandle;
use File::Spec;
my $outdir = File::Spec->rel2abs($ARGV[0]);
my $netdir = File::Spec->rel2abs($ARGV[1]);
my %donetmpls = ();
sub fetchFile {
my $loc = shift;
if ($loc =~ /^([+\w\d\.\/-]+)$/) {
return $1;
} elsif ($loc =~ /^url\((.*)\)$/) {
my $url = $1;
$url =~ /\/([^\/]+)$/ || die "invalid url $url";
my $fn = "$netdir/$1";
if (! -f $fn) {
print "fetching $url...\n";
system "cd $netdir; wget --quiet -N $url";
if ($? != 0) {
unlink($fn);
die;
}
}
return $fn;
} else {
die "invalid file specified $loc";
}
}
sub convert {
my $descr = shift;
if (defined $donetmpls{$descr}) {
return $donetmpls{$descr};
}
my ($x, $dir, $fn) = File::Spec->splitpath($descr);
print "$descr\n";
my $IN = new FileHandle;
my $OUT = new FileHandle;
my $outfile = "$outdir/$fn";
open $IN, "< $descr" or die "cannot open $descr";
open $OUT, "> $outfile" or die "cannot create $outfile";
while (<$IN>) {
chomp;
if (/^(\w+)\s*=\s*([^\#\s]*)\s*(\#.*)?$/) {
my ($name, $loc) = ($1, $2);
my $file = fetchFile($loc);
$file = File::Spec->rel2abs($file, $dir);
my $out = `md5sum $file`;
die unless ($? == 0);
$out =~ /^([0-9a-f]+)\s/;
my $hash = $1;
print $OUT "$name = $hash\n";
} elsif (/^(\w+)\s*<-\s*([+\w\d\.\/-]+)\s*(\#.*)?$/) {
my $name = $1;
my $file = $2;
$file = File::Spec->rel2abs($file, $dir);
$file = convert($file);
my $out = `md5sum $file`;
die unless ($? == 0);
$out =~ /^([0-9a-f]+)\s/;
my $hash = $1;
print $OUT "$name <- $hash\n";
} else {
print $OUT "$_\n";
}
}
$donetmpls{$descr} = $outfile;
return $outfile;
}
for (my $i = 2; $i < scalar @ARGV; $i++) {
convert(File::Spec->rel2abs($ARGV[$i]));
}