From 3f1a1457e9ad91f93151200fe43c7c33ea95417b Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Tue, 25 Mar 2003 11:39:51 +0000
Subject: [PATCH] * Integrate hash into instantiated descriptor file names. *
 Use MD5::Digest.

---
 src/nix-instantiate.in | 32 ++++++++++++++++++++++----------
 1 file changed, 22 insertions(+), 10 deletions(-)

diff --git a/src/nix-instantiate.in b/src/nix-instantiate.in
index e501a2c08..508b9eb28 100755
--- a/src/nix-instantiate.in
+++ b/src/nix-instantiate.in
@@ -3,6 +3,7 @@
 use strict;
 use FileHandle;
 use File::Spec;
+use Digest::MD5;
 
 my $system = "@SYSTEM@";
 
@@ -34,6 +35,15 @@ sub fetchFile {
     }
 }
 
+sub hashFile {
+    my $file = shift;
+    open FILE, "< $file" or die "cannot open $file";
+    # !!! error checking
+    my $hash = Digest::MD5->new->addfile(*FILE)->hexdigest;
+    close FILE;
+    return $hash;
+}
+
 sub convert {
     my $descr = shift;
 
@@ -47,9 +57,9 @@ sub convert {
 
     my $IN = new FileHandle;
     my $OUT = new FileHandle;
-    my $outfile = "$outdir/$fn";
+    my $tmpfile = "$outdir/$fn-tmp";
     open $IN, "< $descr" or die "cannot open $descr";
-    open $OUT, "> $outfile" or die "cannot create $outfile";
+    open $OUT, "> $tmpfile" or die "cannot create $tmpfile";
 
     print $OUT "system : $system\n";
 
@@ -60,26 +70,28 @@ sub convert {
             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;
+	    my $hash = hashFile($file);
             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;
+	    my $hash = hashFile($file);
             print $OUT "$name <- $hash\n";
         } else {
             print $OUT "$_\n";
         }
     }
 
+    close $OUT;
+    close $IN;
+
+    my $hash = hashFile($tmpfile);
+
+    my $outfile = "$outdir/$hash-$fn";
+    rename($tmpfile, $outfile) or die "cannot rename $tmpfile to $outfile";
+
     $donetmpls{$descr} = $outfile;
     return $outfile;
 }