56/376: Remove cruft

[Ludovic Courtès]

civodul pushed a commit to tag 1.8
in repository guix.

commit 5bcb98271103c6c2ca3b993d8b1b0eb9eadcbc1c
Author: Eelco Dolstra <address@hidden>
Date:   Mon Jul 14 12:39:33 2014 +0200

    Remove cruft
---
 scripts/copying-collector.pl |  111 ------------------------------------------
 scripts/remove-patches.pl    |   16 ------
 2 files changed, 0 insertions(+), 127 deletions(-)

diff --git a/scripts/copying-collector.pl b/scripts/copying-collector.pl
deleted file mode 100755
index 2e8be2d..0000000
--- a/scripts/copying-collector.pl
+++ /dev/null
@@ -1,111 +0,0 @@
-#! /usr/bin/perl -w
-
-use strict;
-
-my @paths = `nix-store -qR /home/eelco/.nix-profile/bin/firefox`;
-
-my %copyMap;
-my %rewriteMap;
-
-
-my $counter = 0;
-
-foreach my $path (@paths) {
-    chomp $path;
-
-    $path =~ /^(.*)\/([^-]+)-(.*)$/ or die "invalid store path `$path'";
-    my $hash = $2;
-
-#    my $newHash = "deadbeef" . (sprintf "%024d", $counter++);
-    my $newHash = "deadbeef" . substr($hash, 0, 24);
-    my $newPath = "/home/eelco/chroot/$1/$newHash-$3";
-
-    die unless length $newHash == length $hash;
-
-    $copyMap{$path} = $newPath;
-    $rewriteMap{$hash} = $newHash;
-}
-
-
-my %rewriteMap2;
-
-
-sub rewrite;
-sub rewrite {
-    my $src = shift;
-    my $dst = shift;
-
-    if (-l $dst) {
-
-        my $target = readlink $dst or die;
-
-        foreach my $srcHash (keys %rewriteMap2) {
-            my $dstHash = $rewriteMap{$srcHash};
-            print "  $srcHash -> $dstHash\n";
-            $target =~ s/$srcHash/$dstHash/g;
-        }
-
-        unlink $dst or die;
-
-        symlink $target, $dst;
-        
-    }
-
-    elsif (-f $dst) {
-
-        print "$dst\n";
-
-        foreach my $srcHash (keys %rewriteMap2) {
-            my $dstHash = $rewriteMap{$srcHash};
-            print "  $srcHash -> $dstHash\n";
-
-            my @stats = lstat $dst or die;
-            
-            system "sed s/$srcHash/$dstHash/g < '$dst' > '$dst.tmp'";
-            die if $? != 0;
-            rename "$dst.tmp", $dst or die;
-
-            chmod $stats[2], $dst or die;
-        }
-
-    }
-
-    elsif (-d $dst) {
-
-        chmod 0755, $dst;
-        
-        opendir(DIR, "$dst") or die "cannot open `$dst': $!";
-        my @files = readdir DIR;
-        closedir DIR;
-        
-        foreach my $file (@files) {
-            next if $file eq "." || $file eq "..";
-            rewrite "$src/$file", "$dst/$file";
-        }
-    }
-}
-
-
-foreach my $src (keys %copyMap) {
-    my $dst = $copyMap{$src};
-    print "$src -> $dst\n";
-
-    if (!-e $dst) {
-        system "cp -prd $src $dst";
-        die if $? != 0;
-
-        my @refs = `nix-store -q --references $src`;
-
-        %rewriteMap2 = ();
-        foreach my $ref (@refs) {
-            chomp $ref;
-
-            $ref =~ /^(.*)\/([^-]+)-(.*)$/ or die "invalid store path `$ref'";
-            my $hash = $2;
-
-            $rewriteMap2{$hash} = $rewriteMap{$hash};
-        }
-
-        rewrite $src, $dst;
-    }
-}
diff --git a/scripts/remove-patches.pl b/scripts/remove-patches.pl
deleted file mode 100755
index 401771a..0000000
--- a/scripts/remove-patches.pl
+++ /dev/null
@@ -1,16 +0,0 @@
-#! /usr/bin/perl -w -I/home/eelco/nix/scripts
-
-use strict;
-use readmanifest;
-
-for my $p (@ARGV) {
-
-    my %narFiles;
-    my %patches;
-
-    readManifest $p, \%narFiles, \%patches;
-
-    %patches = ();
-    
-    writeManifest $p, \%narFiles, \%patches;
-}