catchup merge
authorMatt Davies <mattd@symbian.org>
Wed, 29 Jul 2009 12:51:39 +0100
changeset 285 2796eb7c8c41
parent 284 e5f3b53baae0 (diff)
parent 282 4dfae3e04808 (current diff)
child 286 b2c612c53eeb
catchup merge
--- a/common/build.xml	Wed Jul 29 12:26:02 2009 +0100
+++ b/common/build.xml	Wed Jul 29 12:51:39 2009 +0100
@@ -875,7 +875,7 @@
           <propertyregex override="yes" property="yarpfile"  input="@{logfile}" regexp=".*[\\|\/](.*)_compile\.log" replace="\1_yarp.csv"/>
           <propertyregex override="yes" property="yarpfile_short"  input="${yarpfile}" regexp="[^_]*_[^_]*_[^_]*_(.+)_[^_]*_yarp\.csv" replace="YARP_\1"/>
           <echo message="Yarping @{logfile}..."/>
-          <exec executable="perl" dir="${build.drive}" failonerror="false" output="${build.log.dir}/analysis/${build.id}_yarp.log" append="true">
+          <exec executable="perl" dir="${build.drive}" failonerror="false" output="${build.log.dir}/analysis/${yarpfile}.log" append="true">
             <arg value="${sf.common.config.dir}/tools/analysis/yarp.pl"/>
             <arg value="@{logfile}"/>
             <arg value="${build.log.dir}/analysis/${yarpfile}"/>
--- a/common/tools/analysis/yarp.pl	Wed Jul 29 12:26:02 2009 +0100
+++ b/common/tools/analysis/yarp.pl	Wed Jul 29 12:51:39 2009 +0100
@@ -71,11 +71,23 @@
     my $failures = 0;
     while( my $line = <FILE>)
     {
+      if(defined $recipe)
+      {
+        if(defined $recipe->{'content'})
+        {
+          my $ref = $recipe->{'content'}; 
+          push(@$ref, $line);
+        }
+      }
       ++$counter;
       if($line =~ m/^<recipe\s+(\S.+)>/)
       {
         $recipe = XMLin($line."</recipe>");
         $recipe->{'line'} = $counter;
+        my @content;
+        push(@content, $line);
+        $recipe->{'content'} = \@content;
+        
 #        print Dumper($recipe);
       }
       elsif($line =~ m/<\/recipe>/)
@@ -160,7 +172,12 @@
     }
     print OUT ",";
   }
-  print OUT "\n";            
+  print OUT "\n";
+  my $content = $recipe->{'content'};
+  for my $line (@$content)
+  {
+    print $line;
+  }              
   #print Dumper($recipe);
 
 }