X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fcount_lines;h=43ca79e68a51ca00dc104606d6428a75a31ea05d;hb=1a252f250cb1e6f4a09568b514c25ca20adc73dc;hp=9fb7b190798ca1d8cffce8e7ad9e96043f9f3111;hpb=83eef621e4a4fbb6c1343304ec638cafd6c9dc09;p=ghc-hetmet.git diff --git a/ghc/compiler/count_lines b/ghc/compiler/count_lines index 9fb7b19..43ca79e 100644 --- a/ghc/compiler/count_lines +++ b/ghc/compiler/count_lines @@ -8,7 +8,7 @@ foreach $f ( @ARGV ) { if ( $f =~ /\.lhs$/ ) { - open(INF, "/home/simonpj/builds/slpj/ghc/utils/unlit/unlit $f - |") || die "Couldn't unlit $f!\n"; + open(INF, "../utils/unlit/unlit $f - |") || die "Couldn't unlit $f!\n"; } else { open(INF, "< $f") || die "Couldn't open $f!\n"; } @@ -38,7 +38,7 @@ foreach $f ( @ARGV ) { } else { print STDERR "not counted in a directory: $f\n"; $ModCount{$f} += $cnt; - $ModComments{$mod} += $comments; + $ModComments{$f} += $comments; } } @@ -54,6 +54,7 @@ printf "\n%-20s %6d %6d\n\n\n", 'TOTAL:', $tot, $totcmts; $tot = 0; $totcmts = 0; +printf "\n Code Comments\n"; foreach $m (sort (keys %ModCount)) { printf "%-20s %6d %6d\n", $m, $ModCount{$m}, $ModComments{$m}; $tot += $ModCount{$m};