common/tools/analysis/parse_yarp_files.pl
author Simon Howkins <simonh@symbian.org>
Fri, 07 Aug 2009 14:33:52 +0100
changeset 340 aee074ee2646
parent 206 62976b2583f7
permissions -rw-r--r--
Changed preference for selecting package definition files, so that it takes the one from our tree in preference to the one in the package itself. This means that we can just delete items from our tree when we're happy to switch to using the one in the package (as this will vary from package to package). Added sorting of the attributes when outputting the system definition, to match the de facto standard in the system definition we started with.
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";