Replace parse_testcodec.pl with a bit more powerful script.

It can compare more than one result file at a time giving additional speedup colums, is more robust
(RaaA results don't have the "MHz needed for realtime" line which is handled with this one) and
has a mode to output the results in a form readable by spreadsheet software for nice graphs.
Needs Ruby 1.9.x

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@28305 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 0 insertions, 121 deletions

diff --git a/utils/parse_testcodec.pl b/utils/parse_testcodec.pl
deleted file mode 100755
index c31b54e..0000000
--- a/utils/parse_testcodec.pl
+++ /dev/null
@@ -1,121 +0,0 @@
-#!/usr/bin/perl
-
-#parse test codec output files and give wiki formatted results.  
-
-
-if(scalar(@ARGV) != 2 && scalar(@ARGV) != 1){
-	print "Usage: parser_testcodec.pl new_results old_results (compares two results)\n".
-	"       parser_testcodec.pl new_results (formats just one result)\n";  
-}
- 
-my %newfile;
-
-#open new benchmark file
-open FILE, $ARGV[0];
-while ($line = <FILE>){
-	chomp $line;
-	$filename=$line;
-	#print $filename."\n";
-	
-	$line = <FILE>;
-	$line = <FILE>;
-	$line =~ m/-\s([0-9\.]*)s/;
-	$decodetime = $1;
-	
-	$line = <FILE>;
-	$line = <FILE>;
-	$line =~ m/([0-9\.]*)\%/;
-	$realtime = $1;
-	
-	$line = <FILE>;
-	$line =~ m/([0-9\.]*)MHz/;
-	$mhz=$1;
-	#consume blank line
-	$line = <FILE>;
-	
-	#store in hash
-	$newfile{$filename} = [$realtime, $mhz, $decodetime];
-	
-	#| flac_5.flac | 175906 of 175906 | Decode time - 27.74s | File duration - 175.90s | 634.10% realtime | 12.61MHz |
-	#print "| $filename | Decode time - $decodetime"."s | $realtime"."% realtime | $mhz"."MHz |\n";
-	#print "$filename\t$realtime\t$mhz\n";
-
-	
-}	
-
-#open old benchmark file
-my %oldfile;
-open FILE, $ARGV[1];
-while ($line = <FILE>){
-	chomp $line;
-	$filename=$line;
-	#print $filename."\n";
-	
-	$line = <FILE>;
-	$line = <FILE>;
-	$line =~ m/-\s([0-9\.]*)s/;
-	$decodetime = $1;
-	
-	$line = <FILE>;
-	$line = <FILE>;
-	$line =~ m/([0-9\.]*)\%/;
-	$realtime = $1;
-	
-	$line = <FILE>;
-	$line =~ m/([0-9\.]*)MHz/;
-	$mhz=$1;
-		
-	#consume blank line
-	$line = <FILE>;
-	
-	#store in hash
-	$oldfile{$filename} = [$realtime, $mhz, $decodetime];
-	
-
-	
-}
-
-my @keylist;
-
-@keylist = sort {$a cmp  $b}  keys(%newfile);
-#print for wiki
-my $oldkey = "nothing_";
-foreach $key (@keylist){
-	
-	#check if this is a new format and add the table heading
-	$oldkey =~ m/([a-z1-9]*)/;
-	
-	if(!($key =~ m/$1_/i)){
-		print "| *MP3*  |||||\n" if($key =~ m/lame/);
-		print "| *AAC-LC*  |||||\n" if($key =~ m/nero/);
-		print "| *Vorbis*  |||||\n" if($key =~ m/vorbis/);
-		print "| *WMA Standard*  |||||\n" if($key =~ m/wma_/);
-		print "| *WAVPACK*  |||||\n" if($key =~ m/wv/);
-		print "| *Nero AAC-HE*  |||||\n" if($key =~ m/aache/);
-		print "| *Apple Lossless*  |||||\n" if($key =~ m/applelossless/);
-		print "| *Monkeys Audio*  |||||\n" if($key =~ m/ape/);
-		print "| *Musepack*  |||||\n" if($key =~ m/mpc/);
-		print "| *FLAC*  |||||\n" if($key =~ m/flac/);
-		print "| *Cook (RA)*  |||||\n" if($key =~ m/cook/);
-		print "| *AC3 (A52)*  |||||\n" if($key =~ m/a52/);
-		print "| *atrac3*  |||||\n" if($key =~ m/atrac3/);
-		print "| *True Audio*  |||||\n" if($key =~ m/true/);
-		print "| *MP2*  |||||\n" if($key =~ m/toolame/);
-		#potiential future rockbox codecs
-		print "| *atrac*  |||||\n" if($key =~ m/atrac1/);
-		print "| *WMA Professional*  |||||\n" if($key =~ m/wmapro/);
-		print "| *WMA Lossless*  |||||\n" if($key =~ m/wmal/);
-		
-	}
-	
-	if(defined($oldfile{$key})){
-		$str=sprintf("%1.2f",($oldfile{$key}->[1]-$newfile{$key}->[1])/$oldfile{$key}->[1]*100+100	);
-		print "| $key | $newfile{$key}->[0]"."% realtime | Decode time - $newfile{$key}->[2]s | ".sprintf("%2.2f",$newfile{$key}->[1])."MHz | ".$str."%|\n";
-	}elsif(scalar(@ARGV) ==2){
-		print "| $key | $newfile{$key}->[0]"."% realtime | Decode time - $newfile{$key}->[2]s | $newfile{$key}->[1]"."MHz | - |\n";
-	} else{
-		
-		print "| $key | ". $newfile{$key}->[0]."% realtime | Decode time - $newfile{$key}->[2]s | ".sprintf("%2.2f",$newfile{$key}->[1])."MHz |\n";
-	}
-	$oldkey=$key;
-}
\ No newline at end of file