* A script to instantiate package descriptors from templates.

1 files changed, 23 insertions, 0 deletions

diff --git a/src/nix-instantiate b/src/nix-instantiate
new file mode 100755
index 0000000000..242bcfaf93
--- /dev/null
+++ b/src/nix-instantiate
@@ -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;