* A script to instantiate package descriptors from templates.

This commit is contained in:
Eelco Dolstra 2003-03-20 16:52:30 +00:00
parent 8999f923ea
commit b3594e9eaf

23
src/nix-instantiate Executable file
View file

@ -0,0 +1,23 @@
#! /usr/bin/perl -w
my $descr = $ARGV[0];
open DESCR, "< $descr";
while (<DESCR>) {
chomp;
if (/^(\w+)\s*=\s*([\w\d\.\/-]+)\s*(\#.*)?$/) {
my $name = $1;
my $file = $2;
my $out = `md5sum $file`;
$out =~ /^([0-9a-f]+)\s/;
my $hash = $1;
print "$name = $hash\n";
} else {
print "$_\n";
}
}
close DESCR;