tools/filterWarnings.pl

   1 #!/usr/bin/perl
   2
   3 sub usage
   4 {
   5 }
   6
   7
   8 sub numerically
   9 {
  10         return -($a <=> $b);
  11 }
  12
  13 while (<>)
  14 {
  15         s/\s+/ /;
  16
  17         chomp;
  18
  19         foreach $compare (keys %warnings)
  20         {
  21          @current = split(/\s+/, $_);
  22          @compare = split(/\s+/, $compare);
  23
  24          if (scalar(@current) == scalar(@compare))
  25          {
  26           $count = 0;
  27           $out = "";
  28           while (@current)
  29           {
  30            $a = shift @current;
  31            $b = shift @compare;
  32
  33            if ($a eq $b)
  34            {
  35             $out .= " $a";
  36            }
  37            else
  38            {
  39             $out .= " XXXX";
  40             $count += 1;
  41            }
  42           }
  43
  44           if ($count <= $similar)
  45           {
  46            $out =~ s/^ //;
  47            if ($warnings{$out} ne $warnings{$compare})
  48            {
  49             $warnings{$out} = $warnings{$compare};
  50             delete $warnings{$compare};
  51            }
  52
  53            $_ = $out;
  54           }
  55           else
  56           {
  57           }
  58          }
  59         }
  60
  61         $warnings{$_} += 1 if ($repeat == 0)
  62 }
  63
  64
  65 foreach (keys %warnings)
  66 {
  67         push(@warnings, sprintf("%5d %s", $warnings{$_}, $_));
  68 }
  69
  70 foreach (sort numerically @warnings)
  71 {
  72         print $_, "\n";
  73 }