From 92fdebb1f2bd4d2b0ab407614292ebb81bdbb569 Mon Sep 17 00:00:00 2001
From: Michael Giacomelli <giac2000@hotmail.com>
Date: Mon, 19 Jul 2010 21:53:12 +0000
Subject: Add parse_testcodec.pl, a script for parsing and comparing
 test_codec.c logs and formatting them for the wiki.  Written by me.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@27499 a1c6a512-1295-4272-9138-f99709370657
---
 utils/parse_testcodec.pl | 121 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 121 insertions(+)
 create mode 100755 utils/parse_testcodec.pl

(limited to 'utils')

diff --git a/utils/parse_testcodec.pl b/utils/parse_testcodec.pl
new file mode 100755
index 0000000000..c31b54ebd0
--- /dev/null
+++ b/utils/parse_testcodec.pl
@@ -0,0 +1,121 @@
+#!/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
-- 
cgit v1.2.3