Remove obsolete -fdebugging flag
[ghc-hetmet.git] / compiler / count_lines
1 #! /usr/bin/perl
2 #
3 %DirCount = ();
4 %ModCount = ();
5 %DirComments = ();
6 %ModComments = ();
7
8 foreach $f ( @ARGV ) {
9
10     if ( $f =~ /\.lhs$/ ) {
11         open(INF, "../utils/unlit/unlit $f - |") || die "Couldn't unlit $f!\n";
12     } else {
13         open(INF, "< $f") || die "Couldn't open $f!\n";
14     }
15     $cnt = 0;
16     while (<INF>) {
17         s/--.*//;
18         s/{-.*-}//;
19         next if /^\s*$/;
20         $cnt++;
21     }
22     close(INF);
23
24     $f_wc = `wc $f`; die "wc failed: $f\n" if $? != 0;
25     if ( $f_wc =~ /\s*(\d+)\s*(\d+)\s*(\d+)/ ) {
26         $comments = $1 - $cnt;
27     } else {
28         die "Can't grok wc format: $f_wc";
29     }
30
31     if ( $f =~ /(.*)\/(.*)/ ) {
32         local($dir) = $1;
33         local($mod) = $2;
34         $DirCount{$dir} += $cnt;
35         $ModCount{$mod} += $cnt;
36         $DirComments{$dir} += $comments;
37         $ModComments{$mod} += $comments;
38     } else {
39         print STDERR "not counted in a directory: $f\n";
40         $ModCount{$f} += $cnt;
41         $ModComments{$f} += $comments;
42     }
43 }
44
45 # print the info
46 $tot = 0;
47 $totcmts = 0;
48 foreach $d (sort (keys %DirCount)) {
49     printf "%-20s %6d %6d\n", $d, $DirCount{$d}, $DirComments{$d};
50     $tot     += $DirCount{$d};
51     $totcmts += $DirComments{$d};
52 }
53 printf "\n%-20s %6d %6d\n\n\n", 'TOTAL:', $tot, $totcmts;
54
55 $tot = 0;
56 $totcmts = 0;
57 printf "\n                      Code  Comments\n";
58 foreach $m (sort (keys %ModCount)) {
59     printf "%-20s %6d %6d\n", $m, $ModCount{$m}, $ModComments{$m};
60     $tot += $ModCount{$m};
61     $totcmts += $ModComments{$m};
62 }
63 printf "\n%-20s %6d %6d\n", 'TOTAL:', $tot, $totcmts;