[commit: ghc] master: [ci skip] Kill unused count_bytes script (53a2d46)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/53a2d46d185bcffe005e84b4e7acf6b196f2329e/ghc

>---------------------------------------------------------------

commit 53a2d46d185bcffe005e84b4e7acf6b196f2329e
Author: Austin Seipp <austin at well-typed.com>
Date:   Wed Oct 1 16:36:59 2014 -0500

    [ci skip] Kill unused count_bytes script
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

53a2d46d185bcffe005e84b4e7acf6b196f2329e
 compiler/count_bytes | 43 -------------------------------------------
 1 file changed, 43 deletions(-)

diff --git a/compiler/count_bytes b/compiler/count_bytes
deleted file mode 100644
index 4b8aa37..0000000
--- a/compiler/count_bytes
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/env perl
-#
-%DirCount = ();
-%ModCount = ();
-
-foreach $f ( @ARGV ) {
-    die "Not an .lhs file: $f\n" if $f !~ /\.lhs$/;
-    $f =~ s/\.lhs$/.o/;
-
-    $f_size = `size $f`;
-    die "Size failed?\n" if $? != 0;
-
-    if ( $f_size =~ /(\S+)\s*(\S+)\s*(\S+)\s*(\d+)\s*(\S+)/ ) {
-	$totsz = $4;
-
-	if ( $f =~ /(.*)\/(.*)/ ) {
-	    local($dir) = $1;
-	    local($mod) = $2;
-	    $DirCount{$dir} += $totsz;
-	    $ModCount{$mod} += $totsz;
-	} else {
-	    print STDERR "not counted in a directory: $f\n";
-	    $ModCount{$f} += $totsz;
-	}
-    } else {
-	die "Can't figure out size: $f_size\n";
-    }
-}
-
-# print the info
-$tot = 0;
-foreach $d (sort (keys %DirCount)) {
-    printf "%-20s %6d\n", $d, $DirCount{$d};
-    $tot += $DirCount{$d};
-}
-printf "\n%-20s %6d\n\n\n", 'TOTAL:', $tot;
-
-$tot = 0;
-foreach $m (sort (keys %ModCount)) {
-    printf "%-20s %6d\n", $m, $ModCount{$m};
-    $tot += $ModCount{$m};
-}
-printf "\n%-20s %6d\n", 'TOTAL:', $tot;