Added analyse_components.pl and related call to build.xml
authorthomase
Mon, 01 Jun 2009 17:19:32 +0100
changeset 155 1f3285cd5668
parent 154 22e8d3918a31
child 156 0e4f902f4da5
Added analyse_components.pl and related call to build.xml Modified merge_csv.pl to use "7za" instead of "7z"
common/build.xml
common/tools/analysis/analyse_components.pl
common/tools/analysis/merge_csv.pl
--- a/common/build.xml	Mon Jun 01 17:05:47 2009 +0100
+++ b/common/build.xml	Mon Jun 01 17:19:32 2009 +0100
@@ -554,6 +554,14 @@
             <arg value="${sf.common.config.dir}/tools/analysis/merge_csv.pl"/>
             <arg value="${build.id}_what_results.csv"/>
             <arg value="${build.id}_list_results.log"/>
+	    <arg value="${build.drive}/output/zips/postbuild/bin_rnd_internal_initial.zip"/>
+        </exec>
+	<exec executable="perl" dir="${build.log.dir}/analysis" failonerror="false" output="${build.log.dir}/analysis/${build.id}_analysecomponents.log">
+            <arg value="${sf.common.config.dir}/tools/analysis/analyse_components.pl"/>
+            <arg value="${sf.project.location}/${sf.spec.sourcesync.sourcespecfile}"/>
+	    <arg value="${build.id}_what_results.csv_results.csv"/>
+            <arg value="${sf.project.location}/sysdefs/system_model_os_contributed.xml"/>
+	    <arg value="${sf.project.location}/sysdefs/system_model_s60_contributed.xml"/>
         </exec>
 
         <echo message="Running collision analysis"/>
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/analysis/analyse_components.pl	Mon Jun 01 17:19:32 2009 +0100
@@ -0,0 +1,252 @@
+#!/usr/bin/perl
+
+# Copyright (c) 2009 Symbian Foundation Ltd
+# This component and the accompanying materials are made available
+# under the terms of the License "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Symbian Foundation Ltd - initial contribution.
+# 
+# Contributors:
+#
+# Description:
+# Adds info form a file to a CSV
+
+use strict;
+use HTTP::Date;
+
+my $srccsvfile = shift @ARGV;
+my $whatlogfile = shift @ARGV;
+my @sysmodelfiles = @ARGV;
+
+if(! -e $srccsvfile)
+{
+  die "cannot find $srccsvfile\n";
+}
+
+if(! -e $whatlogfile)
+{
+  die "cannot find $whatlogfile\n";
+}
+
+foreach my $sysmodelfile (@sysmodelfiles)
+{
+	if(! -e $sysmodelfile)
+	{
+	  die "cannot find $sysmodelfile\n";
+	}
+}
+
+# Search for timestamp threshold in whatlog file
+# It corresponds to the first timestamp for which the target was genuinly rebuilt
+# Every target that has a timestamp below is considered as not rebuilt properly
+open(WHATLOG,"<$whatlogfile") or die "Error: Couldn't open $whatlogfile\n";
+my %bldtimes;
+my $timestampLimit = 0;
+while (my $line = <WHATLOG>)
+{
+	if($line =~ m/,\s*(\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2})\s*$/){
+		$bldtimes{str2time($1)} = $1;
+	}
+}
+my $previoustime = 0;
+foreach my $decimaltime (sort(keys %bldtimes))
+{
+  if ($previoustime == 0) {$previoustime = $decimaltime;}
+  if ( ($decimaltime - (30*60) ) > $previoustime )
+  {
+	$timestampLimit = $bldtimes{$decimaltime};
+	print "Timestamp Threshold found: $timestampLimit\n";
+	last;
+  }
+}
+close(WHATLOG);
+
+# Create the Package List from sources.csv
+# And assign license type
+# Everything that is not found FCL or MCL are considered RND
+my @pkgList;
+open(SRCCSV,"<$srccsvfile") or die "Error: Couldn't open $srccsvfile\n";
+while (my $line = <SRCCSV>)
+{
+	if ($line =~ m/^source,/) {next;}
+	if ($line =~ m/^([^,]+),\/([^,]+),/){
+		my $pkglicense = $1;
+		my $pkgpath=$2;
+		if ($pkglicense =~ m/^[^,]+\/(\w+)\/(MCL|FCL)\/\w+/i) {$pkglicense = uc($1);}
+		else {$pkglicense = "RND";}
+		push @pkgList, "$pkgpath,$pkglicense";
+	}
+}
+print "Number of Packages to analyse: $#pkgList\n";
+close(SRCCSV);
+
+# Create System Definition Component List
+my @sysdefcomplist;
+foreach my $sysdeffile (@sysmodelfiles)
+{
+	open(SYSDEF,"<$sysdeffile") or die "Error: Couldn't open $sysdeffile\n";
+	while (my $line = <SYSDEF>)
+	{
+		if ($line =~ m/(\s*)<!--\s*(<.*?>)\s*-->/) {next;}
+		if ($line =~m/bldFile=\"([^"]*)"/i)
+		{
+			#push @sysdefcomplist, &getComponentInfo($1);
+			push @sysdefcomplist, $1;
+		}
+	}
+	close(SYSDEF);
+}
+
+# For each package in the list, process the whatlog to verify if it's built clean
+# And build the final summary log
+open(WHATLOG,"<$whatlogfile") or die "Error: Couldn't open $whatlogfile\n";
+my @whatlogs = <WHATLOG>;
+my @outputList;
+foreach my $package (@pkgList)
+{
+	my $corruptbldinfcount = 0;
+	# Write a CSV entry for pkgpath, license
+	my $pkgline = "$package";
+	# Search whatlog and match -> extract bldfiles -> clean vs not_clean
+	$package =~ s/,.*//;
+	foreach my $whatlog (@whatlogs)
+	{	
+		if ($whatlog =~ /^[^,]+,($package\/[^,]+),[^,]*,[^,]*,[^,]*,[^,]*(,([^,]*))?(,([^,]*))?/)
+		{
+			my $bldfilepath = $1;
+			my $status = $3;
+			my $timestamp = $5;
+			if (($status =~ /fail/i) || ($status eq "") ||
+				(($status =~ /untouched/i) and ($timestamp ne "") and (str2time($timestamp) < str2time($timestampLimit))) )
+			{
+				chomp($status);chomp($timestamp);
+				$status = "KO ($status - $timestamp)";
+			}
+			else {$status = "OK"; }
+			#if ($status =~ /KO/ ) {print "$pkgline,$bldfilepath,$status\n";}
+			push @outputList, "$pkgline,$bldfilepath,$status\n";
+		}
+	}
+}
+
+# Write the Full Analysis log
+open(OUTPUT,">PkgComponentAnalysisFull.csv") or die "Error: Couldn't open PkgComponentAnalysisFull.csv for writing\n";
+print OUTPUT "Package Path (from Sources.csv), License, BldFile (from whatlog), Status\n"; 
+print OUTPUT @outputList;
+close(OUTPUT);
+
+# Keep only uniq bldfile in the list
+# And calculate final status
+#my @uniq = keys %{{ map { $_ => 1 } @outputList }};
+my %seen = ();
+my $value; my $remains; my $status;
+foreach my $item (@outputList) {
+	$item =~ /^([^,]+,[^,]+,([^,]+)),([^,]+)/;
+	$remains = $1;
+	$value = $2;
+	$status = $3;
+	chomp($status);
+	if ($status ne "OK") {$status = "KO"};
+    if ($seen{$value}) 
+	{
+		$seen{$value} =~ /^[^,]+,([^,]+)/;
+		my $currentstatus = $1;
+		if ($currentstatus eq "KO")
+		{
+			$status = "KO";
+		}
+	}
+	$seen{$value} = "$remains,$status\n";
+}
+my @uniq = values(%seen);
+
+# Prepend system model info (block name, component name)
+foreach my $line (@uniq)
+{
+	if ($line =~ /^[^,]+,[^,]+,([^,]+),/)
+	{
+		my $bldfile = $1;
+		my $sysmodelinfo = &getSysModelInfo($bldfile);
+		$line = "$sysmodelinfo, $line";
+	}
+}
+
+
+# Write the summary log
+open(OUTPUT,">PkgComponentAnalysisSummary.csv") or die "Error: Couldn't open PkgComponentAnalysisSummary.csv for writing\n";
+print OUTPUT "Package Name, Component Name, Package Path (from Sources.csv), License, BldFile (from whatlog), Status\n"; 
+print OUTPUT @uniq;
+close(OUTPUT);
+close(WHATLOG);
+
+# Status statistics
+my $componentOkCount = 0;
+my $componentKoCount = 0;
+my $totalcompCount = 0;
+foreach my $line (@uniq)
+{
+	if ($line =~ /OK$/) {$componentOkCount++;}
+	else {$componentKoCount++;}
+	$totalcompCount++;
+}
+print "Total number of Components: $totalcompCount\n";
+print "Number of Components Cleanly rebuilt: $componentOkCount\n";
+print "Number of Components not rebuilt properly: $componentKoCount\n";
+
+
+
+sub getSysModelInfo
+{
+	my $bldfilepath = shift;
+	
+	# remove prepending sf dir, and trailing bld.inf
+	$bldfilepath =~ s/^sf\///;
+	$bldfilepath =~ s/\/bld.inf$//i;
+	#print "Looking for bldfile path: $bldfilepath ...\n";
+	
+	my $packageName = "";
+	my $componentName = "";
+	
+	MODEL_LOOP:	foreach my $sysmodelfile (@sysmodelfiles)
+	{
+		open(SYSFILE,"<$sysmodelfile") or die "Error: Couldn't open $sysmodelfile\n";
+		my @model_lines = <SYSFILE>;
+		foreach my $line (@model_lines)
+		{
+			$line =~ s/\\/\//g;
+			
+			if ($line =~ m/bldFile=\"$bldfilepath"/i)
+			{
+				#print "Component $packageName/$componentName found in model $sysmodelfile\n"; 
+				last MODEL_LOOP;
+			}
+			elsif ($line =~ m/<component/)
+			{
+				$line =~m/\slong-name="([^"]*)"/;
+				$componentName = $1;
+			}
+			elsif ($line=~ m/<\/component/)
+			{
+				$componentName = "";
+			}
+			elsif ($line =~ m/<block/)
+			{
+				$line =~m/\slong-name="([^"]*)"/;
+				$packageName = $1;
+			}
+			elsif ($line=~ m/<\/block/)
+			{
+				$packageName = "";				
+			}
+		}
+		close(SYSFILE);
+	}
+	
+	# One mode file remains open if match found
+	if ($packageName ne "") { close(SYSFILE)}
+	
+	return "$packageName, $componentName";
+}
\ No newline at end of file
--- a/common/tools/analysis/merge_csv.pl	Mon Jun 01 17:05:47 2009 +0100
+++ b/common/tools/analysis/merge_csv.pl	Mon Jun 01 17:19:32 2009 +0100
@@ -32,8 +32,8 @@
         my %ziptimes;
         if(defined $zipfile)
           {
-          open(ZIP,"7z l $zipfile 2>&1|")  or die "Error: Couldn't look in $zipfile\n";
-#          print "time,file\n";
+          open(ZIP,"7za l $zipfile 2>&1|")  or die "Error: Couldn't look in $zipfile\n";
+          #print "time,file\n";
           while( my $line = <ZIP>)
             {
             if($line =~ m/^(\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2})\s\S{5}\s+(\d+)\s+\d+\s+(.+)$/) #ignoring packed size...
@@ -44,7 +44,7 @@
               $name =~ s/\\/\//g;
               $name = lc($name);
               $ziptimes{$name} = $time;
-#              print "$time,$name\n";
+              #print "$time,$name\n";
               }
             }
           close ZIP;