[kaffe] CVS kaffe (doogie): Print out the total errors for each compiler group.

[Kaffe CVS]

PatchSet 5605 
Date: 2004/12/11 00:45:49
Author: doogie
Branch: HEAD
Tag: (none) 
Log:
Print out the total errors for each compiler group.

Members: 
	scripts/sort-warnings.pl:1.11->1.12 
	ChangeLog:1.3150->1.3151 

Index: kaffe/scripts/sort-warnings.pl
diff -u kaffe/scripts/sort-warnings.pl:1.11 kaffe/scripts/sort-warnings.pl:1.12
--- kaffe/scripts/sort-warnings.pl:1.11	Sat Dec 11 00:42:31 2004
+++ kaffe/scripts/sort-warnings.pl	Sat Dec 11 00:45:49 2004
@@ -83,6 +83,7 @@
 my %error_counts;
 my %errors;
 my $total_errors = 0;
+my %compiler_errors;
 
 for ( my $i = 0; $i < @Registry::warnings; $i++ ) {
 	my $warning = $Registry::warnings[ $i ];
@@ -114,12 +115,16 @@
 		$count++;
 		$total_errors++;
 	}
+	$compiler_errors{ $compiler } += $count;
 print( STDERR "$count\n" ) if ( !$disabled{ $compiler } );
 	$text = $scanned . $text;
 }
 #print( STDERR join( "\n", keys( %file_errors ) ) . "\n" );
-print( "\nTotal Errors: $total_errors\n\n" );
-
+print( "\nTotal Errors: $total_errors\n" );
+while ( my ( $compiler, $count ) = each( %compiler_errors ) ) {
+	print( "Compiler($compiler) Errors: $count\n" ) if ( !$disabled{ $compiler } );
+}
+print( "\n" );
 #print( Dumper( \%errors ) );
 foreach my $file ( sort( { $file_errors{ $b } <=> $file_errors{ $a } } keys( %file_errors ) ) ) {
 	my $count = $file_errors{ $file };
Index: kaffe/ChangeLog
diff -u kaffe/ChangeLog:1.3150 kaffe/ChangeLog:1.3151
--- kaffe/ChangeLog:1.3150	Sat Dec 11 00:42:27 2004
+++ kaffe/ChangeLog	Sat Dec 11 00:45:43 2004
@@ -1,6 +1,11 @@
 2004-12-10  Adam Heath  <doogie at brainfood.com>
 
 	* scripts/sort-warnings.pl:
+	  Print out the total errors for each compiler group.
+
+2004-12-10  Adam Heath  <doogie at brainfood.com>
+
+	* scripts/sort-warnings.pl:
 	  Fix prepending on @INC.
 
 2004-12-10  Dalibor Topic  <robilad at kaffe.org>