#parse test codec output files.  
 
# flac_5.flac
# 175906 of 175906
# Decode time - 27.74s
# File duration - 175.90s
# 634.10% realtime
#12.61MHz needed for realtime

if(scalar(@ARGV) != 2 && scalar(@ARGV) != 1){
	print "Ussage: parser_testcodec.pl new_results old_results\n        parser_testcodec.pl new_results\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\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];
	

	
}

#print for wiki

foreach $key (keys(%newfile)){
	if(defined($oldfile{$key})){
		print "| $key | $newfile{$key}->[0]"."% realtime | Decode time - $newfile{$key}->[2]s | $newfile{$key}->[1]"."MHz | ".$newfile{$key}->[1]/$oldfile{$key}->[1] ."|\n";
	}else{
		print "| $key | $newfile{$key}->[0]"."% realtime | Decode time - $newfile{$key}->[2]s | $newfile{$key}->[1]"."MHz | - |\n";
	}

}