tools/gatherWarnings.pl

   1 #!/usr/perl/bin
   2
   3 sub usage
   4 {
   5         die "usage: perl gatherWarnings.pl [-c] [-s ##] [-dv] [-nl] sourceFile ...\n" .
   6                 "\t-c  = count repeated warnings\n" .
   7                 "\t-s  = combine similar warnings that differ by no more than ## words (implies -c)\n" .
   8                 "\t-dv = strip debug view timestamps\n" .
   9                 "\t-nl = strip warning locations\n";
  10 }
  11
  12 while ($ARGV[0] =~ /^-/ && $ARGV[0] ne "-")
  13 {
  14         if ($ARGV[0] eq "-dv")
  15         {
  16                 $debugView = 1;
  17         }
  18         elsif ($ARGV[0] eq "-nl")
  19         {
  20                 $noLocation = 1;
  21         }
  22         elsif ($ARGV[0] eq "-s")
  23         {
  24                 $similar = $ARGV[1];
  25                 $count = 1;
  26                 shift;
  27         }
  28         elsif ($ARGV[0] eq "-c")
  29         {
  30                 $count = 1;
  31         }
  32         else
  33         {
  34                 usage();
  35         }
  36
  37         shift @ARGV;
  38 }
  39
  40 usage if (@ARGV == 0);
  41
  42 sub numerically
  43 {
  44         return -($a <=> $b);
  45 }
  46
  47 while (<>)
  48 {
  49         s/^\s*\d+\s+\d+\.\d+\s+\[\d+\]\s+// if ($debugView);
  50         s/\S+ : WARNING:/WARNING:/ if ($noLocation);
  51         s/\s+/ /;
  52
  53         if (/WARNING:/)
  54         {
  55                 if ($similar)
  56                 {
  57                         chomp;
  58
  59                         foreach $compare (keys %warnings)
  60                         {
  61                                 @current = split(/\s+/, $_);
  62                                 @compare = split(/\s+/, $compare);
  63
  64                                 if (scalar(@current) == scalar(@compare))
  65                                 {
  66                                         $count = 0;
  67                                         $out = "";
  68                                         while (@current)
  69                                         {
  70                                                 $a = shift @current;
  71                                                 $b = shift @compare;
  72
  73                                                 if ($a eq $b)
  74                                                 {
  75                                                         $out .= " $a";
  76                                                 }
  77                                                 else
  78                                                 {
  79                                                         $out .= " XXXX";
  80                                                         $count += 1;
  81                                                 }
  82                                         }
  83
  84                                         if ($count <= $similar)
  85                                         {
  86                                                 $out =~ s/^ //;
  87                                                 if ($warnings{$out} ne $warnings{$compare})
  88                                                 {
  89                                                         $warnings{$out} = $warnings{$compare};
  90                                                         delete $warnings{$compare};
  91                                                 }
  92
  93                                                 $_ = $out;
  94                                         }
  95                                         else
  96                                         {
  97                                         }
  98                                 }
  99                         }
 100
 101                         $warnings{$_} += 1 if ($repeat == 0)
 102                 }
 103                 elsif ($count)
 104                 {
 105                         chomp;
 106                         $warnings{$_} += 1;
 107                 }
 108                 else
 109                 {
 110                         print;
 111                 }
 112         }
 113 }
 114
 115 if ($count)
 116 {
 117         foreach (keys %warnings)
 118         {
 119                 push(@warnings, sprintf("%5d %s", $warnings{$_}, $_));
 120         }
 121
 122         foreach (sort numerically @warnings)
 123         {
 124                 print $_, "\n";
 125         }
 126 }