common/tools/analysis/parse_yarp_files.pl
author Dario Sestito <darios@symbian.org>
Wed, 26 May 2010 17:48:56 +0100
changeset 1050 34dcbee2af5e
parent 206 62976b2583f7
permissions -rw-r--r--
Fix: Diamonds summary build info should be more related to the raptor build breakdown from the UH parser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
200
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
     1
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
     2
my @asYarpFiles = ();
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
     3
open(FILE, $ARGV[0]);
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
     4
while ( <FILE> )
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
     5
{
206
62976b2583f7 Fix for Error doesn't correctly report the number of failing raptor recipes
Dario Sestito <darios@symbian.org>
parents: 205
diff changeset
     6
	if ( m/^[^,]*,[^,]*,([^,]*)/ )
200
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
     7
	{
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
     8
		my $sFile = $1;
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
     9
		chomp $sFile;
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    10
#		print "$sFile\n";
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    11
		push(@asYarpFiles, $sFile);
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    12
	}
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    13
}
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    14
close(FILE);
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    15
my $nYarpFiles = scalar(@asYarpFiles);
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    16
#print "Found $nYarpFiles files to parse\n";
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    17
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    18
my $nTotalRecipeErrors = 0;
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    19
for my $nYarpFile (@asYarpFiles)
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    20
{
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    21
	my $nRecipeErrors = 0;
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    22
#	print "Parsing file $nYarpFile...\n";
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    23
	open(FILE, $nYarpFile);
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    24
	while ( <FILE> )
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    25
	{
205
863cc9c0bf03 Added output stream to failures line in yarp. Made the failure string more robust
Dario Sestito <darios@symbian.org>
parents: 204
diff changeset
    26
		if ( m/^Raptor recipe failures:\s+(\d+)$/ )
200
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    27
		{
206
62976b2583f7 Fix for Error doesn't correctly report the number of failing raptor recipes
Dario Sestito <darios@symbian.org>
parents: 205
diff changeset
    28
#			print "Raptor recipe failures: $1\n";
204
7912741ec3b3 Yarp file parser to get number of failures from the correct field
Dario Sestito <darios@symbian.org>
parents: 202
diff changeset
    29
			$nRecipeErrors = $1;
200
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    30
		}
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    31
	}
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    32
	close(FILE);
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    33
#	print "Recipe errors in $nYarpFile: $nRecipeErrors\n";
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    34
	$nTotalRecipeErrors += $nRecipeErrors;
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    35
}
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    36
#print "Total recipe errors across all files: $nTotalRecipeErrors\n";
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    37
0b9c56a7a618 Add missing file pare_yarp_files.pl
Dario Sestito <darios@symbian.org>
parents:
diff changeset
    38
print "$nTotalRecipeErrors";