From 5bcb98271103c6c2ca3b993d8b1b0eb9eadcbc1c Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Mon, 14 Jul 2014 12:39:33 +0200 Subject: [PATCH] Remove cruft --- scripts/copying-collector.pl | 111 ----------------------------------- scripts/remove-patches.pl | 16 ----- 2 files changed, 127 deletions(-) delete mode 100755 scripts/copying-collector.pl delete mode 100755 scripts/remove-patches.pl diff --git a/scripts/copying-collector.pl b/scripts/copying-collector.pl deleted file mode 100755 index 2e8be2d41..000000000 --- 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 401771a27..000000000 --- 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; -}