lix-project/lix
20
57
Fork 31
Code Issues 347 Code Review (Gerrit) Projects 3 Releases Wiki Activity

* A script to instantiate package descriptors from templates.

Browse source
This commit is contained in:
Eelco Dolstra 2003-03-20 16:52:30 +00:00
parent 8999f923ea
commit b3594e9eaf
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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;