--- a/common/build.xml Thu Jul 16 11:22:53 2009 +0100
+++ b/common/build.xml Thu Jul 16 16:33:38 2009 +0100
@@ -182,6 +182,25 @@
</then>
</if>
</target>
+
+ <target name="generate-layers">
+ <echo message="canno-file:${canonical.sysdef.file}"/>
+ <echo message="raptor-filters:raptor_${sysdef.configuration}"/>
+
+ <!-- All we want is a sysdef with the config name appended, so just copy it -->
+ <echo message="INFO: Skip GenXML and copy sysdef to sysdef+config name"/>
+ <copy file="${canonical.sysdef.file}" tofile="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}_temp.xml"/>
+
+ <copy file="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}_temp.xml" tofile="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}.xml">
+ <filterchain>
+ <linecontainsregexp negate="true">
+ <regexp pattern="^\s*$"/>
+ </linecontainsregexp>
+ </filterchain>
+ </copy>
+ <copy file="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}.xml" todir="${build.log.dir}/BOM/"/>
+ <delete file="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}_temp.xml"/>
+ </target>
<target name="sf-prebuild">
<echo>[SF-PREBUILD]</echo>
@@ -382,10 +401,18 @@
<if>
<istrue value="${sf.spec.logs.zip.enable}"/>
<then>
- <property name="temp.log.zip" value="${env.TEMP}/build_logs_${sf.spec.job.name}_${build.number}.zip"/>
+ <property name="temp.log.dir" value="${env.TEMP}/${build.id}_output_logs"/>
<echo message="Zip log requested, zipping logs..."/>
- <zip destfile="${temp.log.zip}" basedir="${build.drive}" includes="output/logs/**"/>
- <move file="${temp.log.zip}" todir="${build.log.dir}" failonerror="false"/>
+ <mkdir dir="${temp.log.dir}"/>
+ <zip destfile="${temp.log.dir}/${build.id}_build_logs.zip" basedir="${build.drive}" includes="output/logs/**"/>
+ <zip destfile="${temp.log.dir}/${build.id}_BOM.zip" basedir="${build.drive}">
+ <include name="output/logs/BOM/**"/>
+ <include name="output/logs/deliverables/**"/>
+ <include name="output/logs/releaseables/**"/>
+ </zip>
+ <move todir="${build.log.dir}">
+ <fileset dir="${temp.log.dir}"/>
+ </move>
</then>
</if>
</target>
@@ -446,7 +473,7 @@
</if>
</target>
- <target name="sf-build-noprep" depends="sf-compile,sf-postbuild">
+ <target name="sf-build-noprep" depends="sf-truclean,sf-compile,sf-postbuild">
<echo>[SF-BUILD-NOPREP]</echo>
</target>
@@ -464,7 +491,27 @@
</if>
</target>
- <target name="sf-compile">
+ <target name="sf-truclean">
+ <if>
+ <istrue value="${sf.spec.build.clean.enable}"/>
+ <then>
+ <echo message="Executing truclean step."/>
+ <fmpp sourceFile="${sf.common.config.dir}/templates/truclean.ant.xml.ftl"
+ outputFile="${sf.common.config.dir}/generated/truclean.ant.xml">
+ <data expandProperties="yes">
+ ant: antProperties()
+ data: csv(${sf.spec.sourcesync.sourcespecdir}/${sf.spec.sourcesync.sourcespecfile}, {separator:','})
+ </data>
+ </fmpp>
+ <ant antfile="${sf.common.config.dir}/generated/truclean.ant.xml"/>
+ </then>
+ <else>
+ <echo message="Skipping truclean step."/>
+ </else>
+ </if>
+ </target>
+
+ <target name="sf-compile">
<!-- TODO: add here assigments to raptor-related ant references -->
<!-- hlm:argSet id="sbs.tools.var">
@@ -520,6 +567,7 @@
<arg value="${sf.spec.sourcesync.sourcespecdir}/${sf.spec.sourcesync.sourcespecfile}"/>
<arg value="${sf.common.config.dir}/templates/zip.cfg.xml.ftl.template"/>
<arg value="${sf.common.config.dir}/generated/zip.cfg.xml.ftl"/>
+ <arg value="${build.log.dir}/rnd_excludefile.txt"/>
</exec>
</target>
@@ -530,67 +578,72 @@
</target>
<target name="sf-package-source" depends="sf-preprocess-package-config">
+ <!-- Firstly zip up src & rnd by package -->
<antcall target="sf-zip-content">
<param name="zip.config.file" value="${sf.common.config.dir}/generated/zip.cfg.xml.ftl"/>
<param name="zip.target.name" value="src" />
</antcall>
+ <!-- Then zip up src zips by layer -->
+ <antcall target="sf-zip-content">
+ <param name="zip.config.file" value="${sf.common.config.dir}/generated/zip.cfg.xml.ftl"/>
+ <param name="zip.target.name" value="src-by-layer" />
+ </antcall>
+ <!-- Copy the zips that need to have different names when a PDK is released -->
+ <copy file="${build.drive}/output/zips/bin_rnd_internal_updated.zip" tofile="${build.drive}/output/zips/binaries_epoc_additional.zip" failonerror="false"/>
+ <copy file="${build.drive}/output/zips/bin_rnd_internal_bldmefirst.zip" tofile="${build.drive}/output/zips/binaries_bldmefirst.zip" failonerror="false"/>
</target>
<target name="sf-package-tools" depends="sf-preprocess-package-config">
<echo message="Packaging epoc32 tools - Temporary method"/>
- <exec executable="7za" dir="${build.drive}" output="${build.log.dir}/zip_${build.id}_tools_epoc32.log">
+ <exec executable="7za" dir="${build.drive}" output="${build.log.dir}/zip_${build.id}_tools_epoc32.log">
<arg value="a"/>
<arg value="-tzip"/>
<arg value="-x@${build.log.dir}/rnd_excludefile.txt"/>
<!-- <arg value="-x@${build.log.dir}/*_includefile.txt"/> -->
- <arg value="tools_epoc.zip"/>
+ <arg value="${build.drive}/output/zips/tools_epoc.zip"/>
<arg value="epoc32/tools"/>
- </exec>
- <if><available file="${build.drive}/tools_epoc.zip"/>
- <then><move file="${build.drive}/tools_epoc.zip" todir="${build.drive}/output/zips/"/></then>
- </if>
-
+ </exec>
</target>
-
<target name="sf-package-binary" depends="sf-preprocess-package-config,sf-package-postbuild-rnd">
+ <!-- Warning: Reverting to using the He zipper will also revert to a single zip for the binaries:
+ would need to update the template and possibly the script that populates it -->
<!--antcall target="sf-zip-content">
<param name="zip.config.file" value="${sf.common.config.dir}/generated/zip.cfg.xml.ftl"/>
<param name="zip.target.name" value="bin" />
</antcall-->
-
- <if><available file="${build.drive}/rnd_excludefile.txt" />
- <then>
- <echo message="Packaging with exclude list"/>
+ <parallel>
<exec executable="7za" dir="${build.drive}" output="${build.log.dir}/zip_${build.id}_binaries_epoc32.log">
- <arg value="a"/>
- <arg value="-tzip"/>
- <arg value="-x@${build.drive}/rnd_excludefile.txt"/> <!-- excludes -->
- <arg value="-x!epoc32\tools"/>
- <arg value="-x!epoc32\build"/>
- <arg value="-xr!*.sym"/>
- <arg value="binaries_epoc.zip"/>
- <arg value="epoc32\"/>
+ <arg value="a"/>
+ <arg value="-tzip"/>
+ <arg value="-x@${build.log.dir}/rnd_excludefile.txt"/>
+ <arg value="-x!epoc32\tools"/>
+ <arg value="-x!epoc32\build"/>
+ <arg value="-x!epoc32\release\armv5"/>
+ <arg value="-x!epoc32\release\winscw"/>
+ <arg value="-xr!*.sym"/>
+ <arg value="${build.drive}/output/zips/binaries_epoc.zip"/>
+ <arg value="epoc32\"/>
</exec>
- <move file="${build.drive}/rnd_excludefile.txt" todir="${build.log.dir}/"/>
- </then>
- <else>
- <echo message="Packaging without exclude list"/>
- <exec executable="7za" dir="${build.drive}" output="${build.log.dir}/zip_${build.id}_binaries_epoc32.log">
- <arg value="a"/>
- <arg value="-tzip"/>
- <arg value="-x!epoc32\tools"/>
- <arg value="-x!epoc32\build"/> <!-- excludes -->
- <arg value="-xr!*.sym"/>
- <arg value="binaries_epoc.zip"/>
- <arg value="epoc32\"/>
- </exec>
- </else>
- </if>
- <if><available file="${build.drive}/binaries_epoc.zip"/>
- <then><move file="${build.drive}/binaries_epoc.zip" todir="${build.drive}/output/zips/"/></then>
- </if>
-
+
+ <exec executable="7za" dir="${build.drive}" output="${build.log.dir}/zip_${build.id}_binaries_winscw.log">
+ <arg value="a"/>
+ <arg value="-tzip"/>
+ <arg value="-x@${build.log.dir}/rnd_excludefile.txt"/>
+ <arg value="-xr!*.sym"/>
+ <arg value="${build.drive}/output/zips/binaries_winscw.zip"/>
+ <arg value="epoc32\release\winscw\"/>
+ </exec>
+
+ <exec executable="7za" dir="${build.drive}" output="${build.log.dir}/zip_${build.id}_binaries_armv5.log">
+ <arg value="a"/>
+ <arg value="-tzip"/>
+ <arg value="-x@${build.log.dir}/rnd_excludefile.txt"/>
+ <arg value="-xr!*.sym"/>
+ <arg value="${build.drive}/output/zips/binaries_armv5.zip"/>
+ <arg value="epoc32\release\armv5\"/>
+ </exec>
+ </parallel>
</target>
<target name="sf-package-postbuild-rnd" depends="sf-preprocess-package-config">
@@ -730,69 +783,115 @@
<arg value="${build.log.dir}/analysis/${build.id}_what_results.csv"/>
</exec>
- <echo message="Running yarp over *_compile.log files"/>
- <for param="logfile">
- <path>
- <fileset dir="${build.log.dir}">
- <include name="*_compile.log"/>
- <exclude name="*build_check_compile.log"/>
- </fileset>
- </path>
- <sequential>
- <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">
- <arg value="${sf.common.config.dir}/tools/analysis/yarp.pl"/>
- <arg value="@{logfile}"/>
- <arg value="${build.log.dir}/analysis/${yarpfile}"/>
- </exec>
- <exec executable="cmd" output="${build.drive}/output/logs/analysis/tmp_yarp_files.csv" append="true">
- <arg value="/c"/>
- <arg value="echo"/>
- <arg value="${yarpfile_short},${sf.spec.publish.networkdrive}\${sf.spec.job.name}\builds\${sf.spec.job.codeline}\${build.id}\logs\analysis\${yarpfile},${build.drive}\output\logs\analysis\${yarpfile}"/>
- </exec>
- </sequential>
- </for>
-
- <exec executable="perl" dir="${build.drive}" failonerror="false" outputproperty="sf.job.totalyarperrors">
- <arg value="${sf.common.config.dir}/tools/analysis/parse_yarp_files.pl"/>
- <arg value="${build.drive}/output/logs/analysis/tmp_yarp_files.csv"/>
- </exec>
- <echo message="Total yarp errors: ${sf.job.totalyarperrors}"/>
-
- <fmpp sourceFile="${sf.common.config.dir}/diamonds/sf-run-analysis.xml.ftl" outputFile="${build.drive}/output/logs/sf-run-analysis.xml">
- <data expandProperties="yes">
- ant: antProperties()
- files: csv(${build.drive}/output/logs/analysis/tmp_yarp_files.csv,{separator:',',headers:[name,path,localpath]})
- </data>
- </fmpp>
-
- <echo message="Extracting whatlog information from *whatlog*_compile.log files"/>
- <for param="logfile">
- <path>
- <fileset dir="${build.log.dir}">
- <include name="*whatlog*_compile.log"/>
- </fileset>
- </path>
- <sequential>
- <propertyregex override="yes" property="whatlogfile" input="@{logfile}" regexp=".*[\\|\/].*\.\d+_+(.*)_compile\.log" replace="\1_preprocessed.log"/>
- <echo message="Preprocessing @{logfile}..."/>
- <exec executable="perl" dir="${sf.common.config.dir}/tools/raptor" failonerror="false" output="${build.log.dir}/analysis/${build.id}_whatlog.log" append="true">
- <arg value="${sf.common.config.dir}/tools/raptor/preprocess_log.pl"/>
- <arg value="--in=@{logfile}"/>
- <arg value="--out=${build.log.dir}/analysis/${whatlogfile}"/>
- </exec>
- <echo message="Extracting whatlog info from ${whatlogfile}..."/>
- <exec executable="perl" dir="${sf.common.config.dir}/tools/raptor" failonerror="false" output="${build.log.dir}/analysis/${build.id}_whatlog.log" append="true">
- <arg value="${sf.common.config.dir}/tools/raptor/package_what.pl"/>
- <arg value="--log=${build.log.dir}/analysis/${whatlogfile}"/>
- <arg value="--basedir=${build.log.dir}/deliverables"/>
- <arg value="--append"/>
- </exec>
- </sequential>
- </for>
+
+ <echo message="Preprocessing *_compile.log files"/>
+ <for param="logfile">
+ <path>
+ <fileset dir="${build.log.dir}">
+ <include name="*_compile.log"/>
+ <exclude name="*build_check_compile.log"/>
+ </fileset>
+ </path>
+ <sequential>
+ <propertyregex override="yes" property="preprocessedlogfile" input="@{logfile}" regexp=".*[\\|\/].*\.\d+_+(.*)_compile\.log" replace="\1_compile_preprocessed.log"/>
+ <echo message="Preprocessing @{logfile}..."/>
+ <exec executable="perl" dir="${sf.common.config.dir}/tools/raptor" failonerror="false" input="@{logfile}" output="${build.log.dir}/analysis/${preprocessedlogfile}" error="${build.log.dir}/analysis/${build.id}_preprocess.log" append="true">
+ <arg value="${sf.common.config.dir}/tools/raptor/preprocess_log.pl"/>
+ </exec>
+ </sequential>
+ </for>
+
+ <echo message="Extracting whatlog information from *whatlog*_compile_preprocessed.log files"/>
+ <for param="whatlogfile">
+ <path>
+ <fileset dir="${build.log.dir}/analysis">
+ <include name="*whatlog*_compile_preprocessed.log"/>
+ </fileset>
+ </path>
+ <sequential>
+ <echo message="Extracting whatlog info from @{whatlogfile}..."/>
+ <exec executable="perl" dir="${sf.common.config.dir}/tools/raptor" failonerror="false" output="${build.log.dir}/analysis/${build.id}_whatlog.log" append="true">
+ <arg value="${sf.common.config.dir}/tools/raptor/parse.pl"/>
+ <arg value="--releaseable"/>
+ <arg value="--log=@{whatlogfile}"/>
+ <arg value="--basedir=${build.log.dir}"/>
+ <arg value="--append"/>
+ </exec>
+ </sequential>
+ </for>
+
+ <echo message="Extracting error information from *_compile_preprocessed.log files"/>
+ <for param="raptorlogfile">
+ <path>
+ <fileset dir="${build.log.dir}/analysis">
+ <include name="*_compile_preprocessed.log"/>
+ </fileset>
+ </path>
+ <sequential>
+ <echo message="Extracting error info from @{raptorlogfile}..."/>
+ <exec executable="perl" dir="${sf.common.config.dir}/tools/raptor" failonerror="false" output="${build.log.dir}/analysis/${build.id}_raptorparse.log" append="true">
+ <arg value="${sf.common.config.dir}/tools/raptor/parse.pl"/>
+ <arg value="--error"/>
+ <arg value="--log=@{raptorlogfile}"/>
+ <arg value="--basedir=${build.log.dir}/raptorbits"/>
+ <arg value="--append"/>
+ </exec>
+ </sequential>
+ </for>
+
+ <echo message="Running yarp over *_compile.log files"/>
+ <for param="logfile">
+ <path>
+ <fileset dir="${build.log.dir}">
+ <include name="*_compile.log"/>
+ <exclude name="*build_check_compile.log"/>
+ </fileset>
+ </path>
+ <sequential>
+ <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">
+ <arg value="${sf.common.config.dir}/tools/analysis/yarp.pl"/>
+ <arg value="@{logfile}"/>
+ <arg value="${build.log.dir}/analysis/${yarpfile}"/>
+ </exec>
+ <exec executable="cmd" output="${build.drive}/output/logs/analysis/tmp_yarp_files.csv" append="true">
+ <arg value="/c"/>
+ <arg value="echo"/>
+ <arg value="${yarpfile_short},${sf.spec.publish.networkdrive}\${sf.spec.job.name}\builds\${sf.spec.job.codeline}\${build.id}\logs\analysis\${yarpfile},${build.drive}\output\logs\analysis\${yarpfile}"/>
+ </exec>
+ </sequential>
+ </for>
+
+ <exec executable="perl" dir="${build.drive}" failonerror="false" outputproperty="sf.job.totalyarperrors">
+ <arg value="${sf.common.config.dir}/tools/analysis/parse_yarp_files.pl"/>
+ <arg value="${build.drive}/output/logs/analysis/tmp_yarp_files.csv"/>
+ </exec>
+ <echo message="Total yarp errors: ${sf.job.totalyarperrors}"/>
+
+ <fmpp sourceFile="${sf.common.config.dir}/diamonds/sf-run-analysis.xml.ftl" outputFile="${build.drive}/output/logs/sf-run-analysis.xml">
+ <data expandProperties="yes">
+ ant: antProperties()
+ raptor_summary: csv(${build.log.dir}/raptorbits/summary.csv,{separator:',',headers:[category,subcategory,severity,component,phase,recipe,file,line]})
+ files: csv(${build.drive}/output/logs/analysis/tmp_yarp_files.csv,{separator:',',headers:[name,path,localpath]})
+ </data>
+ </fmpp>
+
+ <!-- Now iterate through the generated TSVs to sort them and remove duplicates -->
+ <for param="tsv">
+ <path>
+ <fileset dir="${build.log.dir}/releaseables">
+ <include name="**/*.tsv"/>
+ </fileset>
+ </path>
+ <sequential>
+ <exec executable="perl" input="@{tsv}" output="@{tsv}">
+ <arg value="${sf.common.config.dir}/tools/sortUnique.pl"/>
+ </exec>
+ </sequential>
+ </for>
</target>
<target name="sf-run-evalid">
--- a/common/common_props.ant.xml Thu Jul 16 11:22:53 2009 +0100
+++ b/common/common_props.ant.xml Thu Jul 16 16:33:38 2009 +0100
@@ -26,7 +26,7 @@
<property name="sf.spec.build.system" value="sbs"/> <!-- sbs|ebs|ec -->
<!-- property name="sf.spec.build.sbsv2.config" value=""/ -->
<!-- property name="sf.spec.build.sbsv2.options" value="-k"/ -->
- <property name="sf.spec.build.clean.enable" value="true"/>
+ <property name="sf.spec.build.clean.enable" value="false"/>
<property name="sf.spec.sysdef.configurations.list" value="s60_build,s60_bldmelast"/>
--- a/common/diamonds/sf-run-analysis.xml.ftl Thu Jul 16 11:22:53 2009 +0100
+++ b/common/diamonds/sf-run-analysis.xml.ftl Thu Jul 16 16:33:38 2009 +0100
@@ -1,11 +1,17 @@
<?xml version="1.0" encoding="utf-8"?>
+
<diamonds-build>
<schema>10</schema>
+
+<#assign raptor_count=0/>
+<#list raptor_summary as raptor_item>
+<#assign raptor_count=raptor_count+1 />
+</#list>
<faults>
<total severity="error">${ant['sf.job.totalyarperrors']}</total>
<total severity="warning">0</total>
- <total severity="warning_rvct_bad">0</total>
+ <total severity="warning_rvct_bad">${raptor_count}</total>
<total severity="warning_rvct_other">0</total>
<total severity="codescanner_high">0</total>
<total severity="codescanner_medium">0</total>
@@ -20,6 +26,11 @@
<url>file:///${f.path}</url>
</file>
</#list>
+ <file>
+ <type>log</type>
+ <name>Raptor summary</name>
+ <url>file:///${ant['sf.spec.publish.networkdrive']}\${ant['sf.spec.job.name']}\builds\${ant['sf.spec.job.codeline']}\${ant['build.id']}\logs\raptorbits\summary.csv</url>
+ </file>
</files>
</diamonds-build>
\ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/templates/truclean.ant.xml.ftl Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,32 @@
+<?xml version="1.0"?>
+<project name="SF-TRUCLEAN" default="all" xmlns:hlm="http://www.nokia.com/helium">
+
+<#assign target_depends=""/>
+<#assign count=0/>
+<#assign dollar="$"/>
+
+<#list data as pkg_detail>
+<target name="sf-truclean-${count}">
+ <sequential>
+ <propertyregex override="yes" property="package" input="${pkg_detail.dst}" regexp=".*sf[\\\/]([^\\^\/]+)[\\\/]([^\\^\/]+)" replace="\1/\2"/>
+ <echo message="Calling truclean script for package ${dollar}{package}"/>
+ <exec executable="perl" dir="${ant['build.drive']}/" failonerror="false" output="${ant['build.log.dir']}/truclean.log">
+ <arg value="${ant['sf.common.config.dir']}/tools/raptor/truclean.pl"/>
+ <arg value="--packageexpr=${dollar}{package}"/>
+ <arg value="--releaseablesdir=${ant['build.drive']}/build_info/logs/releaseables"/>
+ </exec>
+ </sequential>
+</target>
+
+ <#if (count==0)>
+ <#assign target_depends="${target_depends}"+"sf-truclean-${count}"/>
+ </#if>
+ <#if (count>0)>
+ <#assign target_depends="${target_depends}"+","+"sf-truclean-${count}"/>
+ </#if>
+ <#assign count=count+1/>
+</#list>
+
+<target name="all" depends="${target_depends}"/>
+
+</project>
\ No newline at end of file
--- a/common/templates/zip.cfg.xml.ftl.template Thu Jul 16 11:22:53 2009 +0100
+++ b/common/templates/zip.cfg.xml.ftl.template Thu Jul 16 16:33:38 2009 +0100
@@ -38,6 +38,60 @@
<set name="grace.filters" value="rnd" />
</config>
</config>
+ <config name="src-by-layer" abstract="true">
+ <set name="grace.metadata" value="false" />
+ <set name="root.dir" value="${build.output.dir}/zips"/>
+ <!-- Zips of zips for SFL code -->
+ <config>
+ <set name="name" value="src_sfl_adaptation"/>
+ <set name="include" value="src_sfl_adaptation_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_sfl_app"/>
+ <set name="include" value="src_sfl_app_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_sfl_mw"/>
+ <set name="include" value="src_sfl_mw_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_sfl_os"/>
+ <set name="include" value="src_sfl_os_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_sfl_ostools"/>
+ <set name="include" value="src_sfl_ostools_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_sfl_tools"/>
+ <set name="include" value="src_sfl_tools_*.zip"/>
+ </config>
+ <!-- Zips of zips for OSS code -->
+ <config>
+ <set name="name" value="src_oss_adaptation"/>
+ <set name="include" value="src_oss_adaptation_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_oss_app"/>
+ <set name="include" value="src_oss_app_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_oss_mw"/>
+ <set name="include" value="src_oss_mw_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_oss_os"/>
+ <set name="include" value="src_oss_os_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_oss_ostools"/>
+ <set name="include" value="src_oss_ostools_*.zip"/>
+ </config>
+ <config>
+ <set name="name" value="src_oss_tools"/>
+ <set name="include" value="src_oss_tools_*.zip"/>
+ </config>
+ </config>
<!-- Specify this config to package all outputs from the build -->
<config name="bin" abstract="true">
<!-- This config will be populated with exclusions for the rnd bins -->
--- a/common/tools/populateziptemplate.pl Thu Jul 16 11:22:53 2009 +0100
+++ b/common/tools/populateziptemplate.pl Thu Jul 16 16:33:38 2009 +0100
@@ -25,7 +25,8 @@
my $sourcesCSV = shift or die "First arg must be source csv file";
my $template = shift or die "Second arg must be template file";
my $ftl = shift or die "Third arg must be output file";
-shift and die "No more than three arguments please";
+my $rndExcludes = shift or die "Fourth arg must be rnd-excludes file";
+shift and die "No more than four arguments please";
# Load CSV
open my $csvText, "<", $sourcesCSV or die;
@@ -141,6 +142,6 @@
$xml->XMLout($zipConfig, OutputFile => $ftl, XMLDecl => 1, RootName => 'build', KeyAttr => $keyAttr);
# Output all rnd files into exclude list for later
-open FILE, "> rnd_excludefile.txt" or die "Cannot write exludefile!";
-print FILE @allRndFiles;
-close FILE;
\ No newline at end of file
+open my $fh, ">", $rndExcludes or die "Cannot write exlude file!";
+print $fh @allRndFiles;
+close $fh;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/raptor/RaptorCommon.pm Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,35 @@
+# 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:
+# Common constants for the raptor parser suite
+
+package RaptorCommon;
+
+our $CATEGORY_GENERAL = 'general';
+
+our $CATEGORY_RAPTORERROR = 'raptor_error';
+our $CATEGORY_RAPTORERROR_CANNOTPROCESSSCHEMAVERSION = 'cannot_process_schema_version';
+our $CATEGORY_RAPTORERROR_NOBLDINFFOUND = 'no_bld_inf_found';
+
+our $SEVERITY_UNKNOWN = 'unknown';
+our $SEVERITY_CRITICAL = 'critical';
+
+sub dump_fault
+{
+ my ($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line) = @_;
+
+ open(SUMMARY, ">>$::basedir/summary.csv");
+ print SUMMARY "$category,$subcategory,$severity,$component,$phase,$recipe,$file,$line\n";
+ close(SUMMARY);
+}
+
+1;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/raptor/RaptorError.pm Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,107 @@
+# 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:
+# Raptor parser module.
+# Extract, analyzes and dumps raptor errors i.e. content of <error> tags from a raptor log file
+
+package RaptorError;
+
+use strict;
+use RaptorCommon;
+
+our $reset_status = {};
+my $buildlog_status = {};
+my $buildlog_error_status = {};
+
+$reset_status->{name} = 'reset_status';
+$reset_status->{next_status} = {buildlog=>$buildlog_status};
+
+$buildlog_status->{name} = 'buildlog_status';
+$buildlog_status->{next_status} = {error=>$buildlog_error_status};
+
+$buildlog_error_status->{name} = 'buildlog_error_status';
+$buildlog_error_status->{next_status} = {};
+$buildlog_error_status->{on_start} = 'RaptorError::on_start_buildlog_error';
+$buildlog_error_status->{on_end} = 'RaptorError::on_end_buildlog_error';
+$buildlog_error_status->{on_chars} = 'RaptorError::on_chars_buildlog_error';
+
+my $filename = '';
+
+my $characters = '';
+
+my $category = $RaptorCommon::CATEGORY_RAPTORERROR;
+
+sub process
+{
+ my ($text, $component, $phase, $recipe, $file, $line) = @_;
+
+ my $severity = $RaptorCommon::SEVERITY_UNKNOWN;
+
+ if ($text =~ m,Cannot process schema version .* of file,)
+ {
+ $severity = $RaptorCommon::SEVERITY_CRITICAL;
+ my $subcategory = $RaptorCommon::CATEGORY_RAPTORERROR_CANNOTPROCESSSCHEMAVERSION;
+ RaptorCommon::dump_fault($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line);
+ }
+ elsif ($text =~ m,No bld\.inf found at,)
+ {
+ $severity = $RaptorCommon::SEVERITY_CRITICAL;
+ my $subcategory = $RaptorCommon::CATEGORY_RAPTORERROR_NOBLDINFFOUND;
+ RaptorCommon::dump_fault($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line);
+ }
+ else # log everything by default
+ {
+ $severity = $RaptorCommon::SEVERITY_UNKNOWN;
+ my $subcategory = '';
+ RaptorCommon::dump_fault($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line);
+ }
+}
+
+sub on_start_buildlog_error
+{
+ $filename = "$::basedir/errors.txt";
+ print "Writing error file $filename\n" if (!-f$filename);
+ open(FILE, ">>$filename");
+}
+
+sub on_chars_buildlog_error
+{
+ my ($ch) = @_;
+
+ #print "on_chars_buildlog_error\n";
+
+ $characters .= $ch->{Data};
+
+ #print "characters is now -->$characters<--\n";
+}
+
+sub on_end_buildlog_error
+{
+ #print "on_end_buildlog_error\n";
+
+ print FILE $characters if ($characters =~ m,[^\s^\r^\n],);
+ print FILE "\n" if ($characters !~ m,[\r\n]$, );
+ close(FILE);
+
+ # get the line number - not really optimized
+ my $linecount = 0;
+ open(FILE, "$filename");
+ for ($linecount = 0; <FILE>; $linecount++) { }
+ close(FILE);
+
+ process($characters, '', '', '', "errors.txt", $linecount);
+
+ $characters = '';
+}
+
+
+1;
\ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/raptor/RaptorInfo.pm Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,89 @@
+# 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:
+# Raptor parser module.
+# Extract, analyzes and dumps raptor info text i.e. content of <info> tags from a raptor log file
+
+package RaptorInfo;
+
+use strict;
+use RaptorCommon;
+
+our $reset_status = {};
+my $buildlog_status = {};
+my $buildlog_info_status = {};
+
+$reset_status->{name} = 'reset_status';
+$reset_status->{next_status} = {buildlog=>$buildlog_status};
+
+$buildlog_status->{name} = 'buildlog_status';
+$buildlog_status->{next_status} = {info=>$buildlog_info_status};
+
+$buildlog_info_status->{name} = 'buildlog_info_status';
+$buildlog_info_status->{next_status} = {};
+$buildlog_info_status->{on_start} = 'RaptorInfo::on_start_buildlog_info';
+$buildlog_info_status->{on_end} = 'RaptorInfo::on_end_buildlog_info';
+$buildlog_info_status->{on_chars} = 'RaptorInfo::on_chars_buildlog_info';
+
+my $characters = '';
+
+my $category = $RaptorCommon::CATEGORY_RAPTORINFO;
+
+sub process
+{
+ my ($text) = @_;
+
+ my $severity = $RaptorCommon::SEVERITY_UNKNOWN;
+
+ if ($text =~ m,unmatchable,)
+ {
+ $severity = $RaptorCommon::SEVERITY_CRITICAL;
+
+ #dump_error($category, $severity, $text);
+ print "$category, $severity, $text\n";
+ }
+}
+
+sub on_start_buildlog_info
+{
+ my $filename = "$::basedir/info.txt";
+ print "Writing info file $filename\n" if (!-f$filename);
+ open(FILE, ">>$filename");
+}
+
+sub on_chars_buildlog_info
+{
+ my ($ch) = @_;
+
+ #print "on_chars_buildlog_info\n";
+
+ $characters .= $ch->{Data};
+
+ #print "characters is now -->$characters<--\n";
+}
+
+sub on_end_buildlog_info
+{
+ #print "on_end_buildlog_info\n";
+
+ process($characters);
+
+ print FILE $characters if ($characters =~ m,[^\s^\r^\n],);
+ print FILE "\n" if ($characters !~ m,[\r\n]$, );
+
+ $characters = '';
+
+ close(FILE);
+}
+
+
+1;
\ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/raptor/RaptorRecipe.pm Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,128 @@
+# 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:
+# Raptor parser module.
+# Extract, analyzes and dumps raptor recipes i.e. content of <recipe> tags from a raptor log file
+
+package RaptorRecipe;
+
+use strict;
+use RaptorCommon;
+
+our $reset_status = {};
+my $buildlog_status = {};
+my $buildlog_recipe_status = {};
+
+$reset_status->{name} = 'reset_status';
+$reset_status->{next_status} = {buildlog=>$buildlog_status};
+
+$buildlog_status->{name} = 'buildlog_status';
+$buildlog_status->{next_status} = {recipe=>$buildlog_recipe_status};
+
+$buildlog_recipe_status->{name} = 'buildlog_recipe_status';
+$buildlog_recipe_status->{next_status} = {};
+$buildlog_recipe_status->{on_start} = 'RaptorRecipe::on_start_buildlog_recipe';
+$buildlog_recipe_status->{on_end} = 'RaptorRecipe::on_end_buildlog_recipe';
+$buildlog_recipe_status->{on_chars} = 'RaptorRecipe::on_chars_buildlog_recipe';
+
+my $characters = '';
+my $recipe_info = {};
+
+my $category = $RaptorCommon::CATEGORY_RAPTORRECIPE;
+
+sub process
+{
+ my ($text) = @_;
+
+ my $severity = $RaptorCommon::SEVERITY_UNKNOWN;
+
+ if ($text =~ m,Cannot process schema version .* of file,)
+ {
+ $severity = $RaptorCommon::SEVERITY_CRITICAL;
+
+ #dump_recipe($category, $severity, $text);
+ print "$category, $severity, $text\n";
+ }
+}
+
+sub on_start_buildlog_recipe
+{
+ my ($el) = @_;
+
+ $recipe_info = {};
+ $characters = '';
+
+ my $attrstring = '';
+ my $bldinf = '';
+
+ my $attributes = $el->{Attributes};
+ for (keys %{$attributes})
+ {
+ if ($attributes->{$_}->{'LocalName'} eq 'bldinf')
+ {
+ $bldinf = $attributes->{$_}->{'Value'};
+ }
+
+ $attrstring .= "$attributes->{$_}->{'LocalName'}}='$attributes->{$_}->{'Value'}' ";
+
+ }
+
+ if ($bldinf eq '')
+ {
+ print "WARNING: recipe tag with no bldinf attribute. Associating to package unknown/unknown\n";
+ $bldinf = "/sf/unknown/unknown/group/bld.inf";
+ }
+
+ $recipe_info->{bldinf} = $bldinf;
+
+ $characters = "<recipe $attrstring>\n";
+}
+
+sub on_chars_buildlog_recipe
+{
+ my ($ch) = @_;
+
+ #print "on_chars_buildlog_recipe\n";
+
+ $characters .= $ch->{Data};
+
+ #print "characters is now -->$characters<--\n";
+}
+
+sub on_end_buildlog_recipe
+{
+ #print "on_end_buildlog_recipe\n";
+
+ $characters .= "\n</recipe>\n";
+
+ my $normalized = lc($recipe_info->{bldinf});
+ $normalized =~ s,^[A-Za-z]:,,;
+ $normalized =~ s,[\\],/,g;
+
+ $normalized =~ m,^/sf/([^/]+)/([^/]+)/,;
+ my $layer = $1;
+ my $package = $2;
+
+ mkdir("$::basedir/recipes");
+ mkdir("$::basedir/recipes/$layer");
+ mkdir("$::basedir/recipes/$layer/$package");
+
+ my $filename = "$::basedir/recipes/$layer/$package/recipes.txt";
+
+ print "Writing recipes file $filename\n" if (!-f$filename);
+ open(FILE, ">>$filename");
+ print FILE $characters;
+ close(FILE);
+}
+
+
+1;
\ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/raptor/RaptorReleaseable.pm Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,288 @@
+# 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:
+# Raptor parser module.
+# Extract releaseable (whatlog) information
+
+package RaptorReleaseable;
+
+use strict;
+use RaptorCommon;
+
+our $reset_status = {};
+my $buildlog_status = {};
+my $whatlog_status = {};
+my $bitmap_status = {};
+my $resource_status = {};
+my $build_status = {};
+my $export_status = {};
+my $stringtable_status = {};
+my $archive_status = {};
+my $archive_member_status = {};
+my $whatlog_default_status = {};
+
+$reset_status->{name} = 'reset_status';
+$reset_status->{next_status} = {buildlog=>$buildlog_status};
+
+$buildlog_status->{name} = 'buildlog_status';
+$buildlog_status->{next_status} = {whatlog=>$whatlog_status};
+
+$whatlog_status->{name} = 'whatlog_status';
+$whatlog_status->{next_status} = {bitmap=>$bitmap_status, resource=>$resource_status, build=>$build_status, export=>$export_status, stringtable=>$stringtable_status, archive=>$archive_status, '?default?'=>$whatlog_default_status};
+$whatlog_status->{on_start} = 'RaptorReleaseable::on_start_whatlog';
+$whatlog_status->{on_end} = 'RaptorReleaseable::on_end_whatlog';
+
+$bitmap_status->{name} = 'bitmap_status';
+$bitmap_status->{next_status} = {};
+$bitmap_status->{on_start} = 'RaptorReleaseable::on_start_bitmap';
+$bitmap_status->{on_end} = 'RaptorReleaseable::on_end_whatlog_subtag';
+$bitmap_status->{on_chars} = 'RaptorReleaseable::on_chars_whatlog_subtag';
+
+$resource_status->{name} = 'resource_status';
+$resource_status->{next_status} = {};
+$resource_status->{on_start} = 'RaptorReleaseable::on_start_resource';
+$resource_status->{on_end} = 'RaptorReleaseable::on_end_whatlog_subtag';
+$resource_status->{on_chars} = 'RaptorReleaseable::on_chars_whatlog_subtag';
+
+$build_status->{name} = 'build_status';
+$build_status->{next_status} = {};
+$build_status->{on_start} = 'RaptorReleaseable::on_start_build';
+$build_status->{on_end} = 'RaptorReleaseable::on_end_whatlog_subtag';
+$build_status->{on_chars} = 'RaptorReleaseable::on_chars_whatlog_subtag';
+
+$stringtable_status->{name} = 'stringtable_status';
+$stringtable_status->{next_status} = {};
+$stringtable_status->{on_start} = 'RaptorReleaseable::on_start_stringtable';
+$stringtable_status->{on_end} = 'RaptorReleaseable::on_end_whatlog_subtag';
+$stringtable_status->{on_chars} = 'RaptorReleaseable::on_chars_whatlog_subtag';
+
+$archive_status->{name} = 'archive_status';
+$archive_status->{next_status} = {member=>$archive_member_status};
+
+$archive_member_status->{name} = 'archive_member_status';
+$archive_member_status->{next_status} = {};
+$archive_member_status->{on_start} = 'RaptorReleaseable::on_start_archive_member';
+$archive_member_status->{on_end} = 'RaptorReleaseable::on_end_whatlog_subtag';
+$archive_member_status->{on_chars} = 'RaptorReleaseable::on_chars_whatlog_subtag';
+
+$export_status->{name} = 'export_status';
+$export_status->{next_status} = {};
+$export_status->{on_start} = 'RaptorReleaseable::on_start_export';
+
+$whatlog_default_status->{name} = 'whatlog_default_status';
+$whatlog_default_status->{next_status} = {};
+$whatlog_default_status->{on_start} = 'RaptorReleaseable::on_start_whatlog_default';
+
+my $whatlog_info = {};
+my $curbldinf = 'unknown';
+my $curconfig = 'unknown';
+my $curfiletype = 'unknown';
+my $characters = '';
+
+sub on_start_whatlog
+{
+ my ($el) = @_;
+
+ $whatlog_info = {};
+
+ my $bldinf = '';
+ my $config = '';
+ my $attributes = $el->{Attributes};
+ for (keys %{$attributes})
+ {
+ #print "reading attribute $_\n";
+ if ($attributes->{$_}->{'LocalName'} eq 'bldinf')
+ {
+ $bldinf = $attributes->{$_}->{'Value'};
+ #print "bldinf=$bldinf\n";
+ }
+ elsif ($attributes->{$_}->{'LocalName'} eq 'config')
+ {
+ $config = $attributes->{$_}->{'Value'};
+ $config =~ s,\.whatlog$,,;
+ }
+ }
+
+ if ($bldinf eq '')
+ {
+ print "WARNING: whatlog tag with no bldinf attribute. Skipping\n";
+ return;
+ }
+
+ $curbldinf = $bldinf;
+ $curconfig = $config;
+ $whatlog_info->{$curbldinf} = {} if (!defined $whatlog_info->{$curbldinf});
+ $whatlog_info->{$curbldinf}->{$curconfig} = {} if (!defined $whatlog_info->{$curbldinf}->{$curconfig});
+}
+
+sub on_start_whatlog_subtag
+{
+ my ($ft) = @_;
+
+ $curfiletype = $ft;
+ $characters = '';
+ $whatlog_info->{$curbldinf}->{$curconfig}->{$curfiletype} = [] if (! defined $whatlog_info->{$curbldinf}->{$curconfig}->{$curfiletype});
+}
+
+sub on_chars_whatlog_subtag
+{
+ my ($ch) = @_;
+
+ $characters .= $ch->{Data};
+
+ #print "characters is now -->$characters<--\n";
+}
+
+sub on_end_whatlog_subtag
+{
+ $characters = normalize_filepath($characters);
+
+ push(@{$whatlog_info->{$curbldinf}->{$curconfig}->{$curfiletype}}, $characters);
+
+ $curfiletype = 'unknown';
+ $characters = '';
+}
+
+sub on_start_bitmap
+{
+ on_start_whatlog_subtag('bitmap');
+}
+
+sub on_start_resource
+{
+ on_start_whatlog_subtag('resource');
+}
+
+sub on_start_build
+{
+ on_start_whatlog_subtag('build');
+}
+
+sub on_start_stringtable
+{
+ on_start_whatlog_subtag('stringtable');
+}
+
+sub on_start_archive_member
+{
+ on_start_whatlog_subtag('export');
+}
+
+sub on_start_export
+{
+ my ($el) = @_;
+
+ $whatlog_info->{$curbldinf}->{$curconfig}->{export} = [] if (! defined $whatlog_info->{$curbldinf}->{$curconfig}->{export});
+
+ my $destination = '';
+ my $attributes = $el->{Attributes};
+ for (keys %{$attributes})
+ {
+ #print "reading attribute $_\n";
+ if ($attributes->{$_}->{'LocalName'} eq 'destination')
+ {
+ $destination = $attributes->{$_}->{'Value'};
+ #print "destination=$destination\n";
+ last;
+ }
+ }
+
+ if ($destination eq '')
+ {
+ print "WARNING: export tag with no destination attribute. Skipping\n";
+ return;
+ }
+
+ $destination = normalize_filepath($destination);
+
+ push(@{$whatlog_info->{$curbldinf}->{$curconfig}->{export}}, $destination);
+}
+
+sub on_end_whatlog
+{
+ my $unknown_counter = 0;
+
+ for my $bldinf (keys %{$whatlog_info})
+ {
+ for my $config (keys %{$whatlog_info->{$bldinf}})
+ {
+ my $normalized = lc($bldinf);
+ $normalized =~ s,^[A-Za-z]:,,;
+ $normalized =~ s,[\\],/,g;
+
+ $normalized =~ m,^/sf/([^/]+)/([^/]+)/,;
+ my $layer = $1;
+ my $package = $2;
+
+ mkdir("$::basedir/releaseables");
+ mkdir("$::basedir/releaseables/$layer");
+ mkdir("$::basedir/releaseables/$layer/$package");
+
+ my $filename = "$::basedir/releaseables/$layer/$package/info.tsv";
+
+ print "Writing info file $filename\n" if (!-f$filename);
+ open(FILE, ">>$filename");
+
+ for my $filetype (keys %{$whatlog_info->{$bldinf}->{$config}})
+ {
+ for (sort(@{$whatlog_info->{$bldinf}->{$config}->{$filetype}}))
+ {
+ print FILE "$_\t$filetype\t$config\n";
+ }
+ }
+
+ close(FILE);
+ }
+ }
+}
+
+sub normalize_filepath
+{
+ my ($filepath) = @_;
+
+ if ($filepath =~ m,[^\s^\r^\n]+(.*)[\r\n]+(.*)[^\s^\r^\n]+,)
+ {
+ print "WARNING: file path string extends over multiple line: $filepath. Removing all NL's and CR's\n";
+ }
+
+ # strip all CR's and NL's
+ $filepath =~ s,[\r\n],,g;
+
+ # strip all whitespaces at string start/end
+ $filepath =~ s,^\s+,,g;
+ $filepath =~ s,\s+$,,g;
+
+ # remove drive letter and colon from the beginning of the string
+ $filepath =~ s,^[A-Za-z]:,,;
+
+ # normalize slashes
+ $filepath =~ s,\\,/,g;
+ $filepath =~ s,//,/,g;
+
+ if ($filepath !~ m,^/epoc32/,i)
+ {
+ print "WARNING: file '$filepath' doesn't seem valid. Writing to info file anyway\n";
+ }
+
+ return $filepath;
+}
+
+sub on_start_whatlog_default
+{
+ my ($el) = @_;
+
+ my $tagname = $el->{LocalName};
+
+ print "WARNING: unsupported tag '$tagname' in <whatlog> context\n";
+}
+
+1;
\ No newline at end of file
--- a/common/tools/raptor/RaptorSAXHandler.pm Thu Jul 16 11:22:53 2009 +0100
+++ b/common/tools/raptor/RaptorSAXHandler.pm Thu Jul 16 16:33:38 2009 +0100
@@ -22,11 +22,13 @@
return bless {}, $type;
}
-sub set_init_status
+sub add_observer
{
- my ($self, $initialstatus) = @_;
+ my ($self, $name, $initialstatus) = @_;
- $self->{status} = $initialstatus;
+ $self->{observers} = {} if (!defined $self->{observers});
+
+ $self->{observers}->{$name} = $initialstatus;
}
sub start_document
@@ -46,23 +48,30 @@
#print "start_element($tagname)\n";
-
- if (defined $self->{status}->{next_status}->{$tagname})
+ for my $observer (keys %{$self->{observers}})
{
- my $oldstatus = $self->{status};
- $self->{status} = $self->{status}->{next_status}->{$tagname};
- #print "status is now $self->{status}->{name}\n";
- $self->{status}->{next_status}->{$tagname} = $oldstatus;
- &{$self->{status}->{on_start}}($el) if (defined $self->{status}->{on_start});
- }
- elsif (defined $self->{status}->{next_status}->{'?default?'})
- {
- #print "changing to default status\n";
- my $oldstatus = $self->{status};
- $self->{status} = $self->{status}->{next_status}->{'?default?'};
- #print "status is now ?default?\n";
- $self->{status}->{next_status}->{$tagname} = $oldstatus;
- &{$self->{status}->{on_start}}($el) if (defined $self->{status}->{on_start});
+ #print "processing observer $observer: $self->{observers}->{$observer} $self->{observers}->{$observer}->{name}\n";
+ #for (keys %{$self->{observers}->{$observer}->{next_status}}) {print "$_\n";}
+
+ if (defined $self->{observers}->{$observer}->{next_status}->{$tagname})
+ {
+ #print "processing observer $observer\n";
+ my $oldstatus = $self->{observers}->{$observer};
+ $self->{observers}->{$observer} = $self->{observers}->{$observer}->{next_status}->{$tagname};
+ #print "$observer: status is now $self->{observers}->{$observer}->{name}\n";
+ $self->{observers}->{$observer}->{next_status}->{$tagname} = $oldstatus;
+ &{$self->{observers}->{$observer}->{on_start}}($el) if (defined $self->{observers}->{$observer}->{on_start});
+ }
+ elsif (defined $self->{observers}->{$observer}->{next_status}->{'?default?'})
+ {
+ #print "processing observer $observer\n";
+ #print "changing to default status\n";
+ my $oldstatus = $self->{observers}->{$observer};
+ $self->{observers}->{$observer} = $self->{observers}->{$observer}->{next_status}->{'?default?'};
+ #print "status is now ?default?\n";
+ $self->{observers}->{$observer}->{next_status}->{$tagname} = $oldstatus;
+ &{$self->{observers}->{$observer}->{on_start}}($el) if (defined $self->{observers}->{$observer}->{on_start});
+ }
}
}
@@ -75,11 +84,14 @@
#print "end_element($tagname)\n";
- if (defined $self->{status}->{next_status}->{$tagname})
+ for my $observer (keys %{$self->{observers}})
{
- &{$self->{status}->{on_end}}($el) if (defined $self->{status}->{on_end});
- $self->{status} = $self->{status}->{next_status}->{$tagname};
- #print "status is now $self->{status}->{name}\n";
+ if (defined $self->{observers}->{$observer}->{next_status}->{$tagname})
+ {
+ &{$self->{observers}->{$observer}->{on_end}}($el) if (defined $self->{observers}->{$observer}->{on_end});
+ $self->{observers}->{$observer} = $self->{observers}->{$observer}->{next_status}->{$tagname};
+ #print "status is now $self->{observers}->{$observer}->{name}\n";
+ }
}
}
@@ -87,7 +99,10 @@
{
my ($self, $ch) = @_;
- &{$self->{status}->{on_chars}}($ch) if (defined $self->{status}->{on_chars});
+ for my $observer (keys %{$self->{observers}})
+ {
+ &{$self->{observers}->{$observer}->{on_chars}}($ch) if (defined $self->{observers}->{$observer}->{on_chars});
+ }
}
1;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/raptor/RaptorUnreciped.pm Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,63 @@
+# 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:
+# Raptor parser module.
+# Extract, analyzes and dumps text in <buildlog> context which doesn't belong to any <recipe> tags
+
+package RaptorUnreciped;
+
+use strict;
+use RaptorCommon;
+
+our $reset_status = {};
+my $buildlog_status = {};
+my $buildlog_subtag_status = {};
+
+$reset_status->{name} = 'reset_status';
+$reset_status->{next_status} = {buildlog=>$buildlog_status};
+
+$buildlog_status->{name} = 'buildlog_status';
+$buildlog_status->{next_status} = {'?default?'=>$buildlog_subtag_status};
+$buildlog_status->{on_start} = 'RaptorUnreciped::on_start_buildlog';
+$buildlog_status->{on_end} = 'RaptorUnreciped::on_end_buildlog';
+$buildlog_status->{on_chars} = 'RaptorUnreciped::on_chars_buildlog';
+
+$buildlog_subtag_status->{name} = 'buildlog_subtag_status';
+$buildlog_subtag_status->{next_status} = {};
+
+my $characters = '';
+
+sub on_start_buildlog
+{
+ my $filename = "$::basedir/unreciped.txt";
+ print "Writing unreciped file $filename\n" if (!-f$filename);
+ open(FILE, ">>$filename");
+}
+
+sub on_chars_buildlog
+{
+ my ($ch) = @_;
+
+ my $characters = $ch->{Data};
+
+ print FILE $characters if ($characters =~ m,[^\s^\r^\n],);
+
+ #print "characters is now -->$characters<--\n";
+}
+
+sub on_end_buildlog
+{
+ close(FILE);
+}
+
+
+1;
\ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/raptor/RaptorWarning.pm Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,89 @@
+# 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:
+# Raptor parser module.
+# Extract, analyzes and dumps raptor warnings i.e. content of <warning> tags from a raptor log file
+
+package RaptorWarning;
+
+use strict;
+use RaptorCommon;
+
+our $reset_status = {};
+my $buildlog_status = {};
+my $buildlog_warning_status = {};
+
+$reset_status->{name} = 'reset_status';
+$reset_status->{next_status} = {buildlog=>$buildlog_status};
+
+$buildlog_status->{name} = 'buildlog_status';
+$buildlog_status->{next_status} = {warning=>$buildlog_warning_status};
+
+$buildlog_warning_status->{name} = 'buildlog_warning_status';
+$buildlog_warning_status->{next_status} = {};
+$buildlog_warning_status->{on_start} = 'RaptorWarning::on_start_buildlog_warning';
+$buildlog_warning_status->{on_end} = 'RaptorWarning::on_end_buildlog_warning';
+$buildlog_warning_status->{on_chars} = 'RaptorWarning::on_chars_buildlog_warning';
+
+my $characters = '';
+
+my $category = $RaptorCommon::CATEGORY_RAPTORWARNING;
+
+sub process
+{
+ my ($text) = @_;
+
+ my $severity = $RaptorCommon::SEVERITY_UNKNOWN;
+
+ if ($text =~ m,unmatchable,)
+ {
+ $severity = $RaptorCommon::SEVERITY_CRITICAL;
+
+ #dump_error($category, $severity, $text);
+ print "$category, $severity, $text\n";
+ }
+}
+
+sub on_start_buildlog_warning
+{
+ my $filename = "$::basedir/warnings.txt";
+ print "Writing warning file $filename\n" if (!-f$filename);
+ open(FILE, ">>$filename");
+}
+
+sub on_chars_buildlog_warning
+{
+ my ($ch) = @_;
+
+ #print "on_chars_buildlog_warning\n";
+
+ $characters .= $ch->{Data};
+
+ #print "characters is now -->$characters<--\n";
+}
+
+sub on_end_buildlog_warning
+{
+ #print "on_end_buildlog_warning\n";
+
+ process($characters);
+
+ print FILE $characters if ($characters =~ m,[^\s^\r^\n],);
+ print FILE "\n" if ($characters !~ m,[\r\n]$, );
+
+ $characters = '';
+
+ close(FILE);
+}
+
+
+1;
\ No newline at end of file
--- a/common/tools/raptor/package_what.pl Thu Jul 16 11:22:53 2009 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,340 +0,0 @@
-# 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:
-# Extracts whatlog information from a raptor log file
-
-use strict;
-
-use XML::SAX;
-use RaptorSAXHandler;
-use Getopt::Long;
-
-my @logfiles;
-my $basedir = '';
-my $append = 0;
-my $help = 0;
-GetOptions((
- 'log:s' => \@logfiles,
- 'basedir:s' => \$basedir,
- 'append!' => \$append,
- 'help!' => \$help
-));
-
-$help = 1 if (!@logfiles);
-
-if ($help)
-{
- print "Extracts whatlog information from a raptor log file\n";
- print "Usage: perl package_what.pl --log=FILE1 --log=FILE2 [OPTIONS]\n";
- print "where OPTIONS are:\n";
- print "\t--basedir=DIR Generate info files under DIR\n";
- print "\t--append Do not stop if basedir exists but append newly extracted info to already existing.\n";
- exit(0);
-}
-
-my $reset_status = {};
-my $buildlog_status = {};
-my $whatlog_status = {};
-my $bitmap_status = {};
-my $resource_status = {};
-my $build_status = {};
-my $export_status = {};
-my $stringtable_status = {};
-my $archive_status = {};
-my $archive_member_status = {};
-my $whatlog_default_status = {};
-
-$reset_status->{name} = 'reset_status';
-$reset_status->{next_status} = {buildlog=>$buildlog_status};
-
-$buildlog_status->{name} = 'buildlog_status';
-$buildlog_status->{next_status} = {whatlog=>$whatlog_status};
-
-$whatlog_status->{name} = 'whatlog_status';
-$whatlog_status->{next_status} = {bitmap=>$bitmap_status, resource=>$resource_status, build=>$build_status, export=>$export_status, stringtable=>$stringtable_status, archive=>$archive_status, '?default?'=>$whatlog_default_status};
-$whatlog_status->{on_start} = 'main::on_start_whatlog';
-$whatlog_status->{on_end} = 'main::on_end_whatlog';
-
-$bitmap_status->{name} = 'bitmap_status';
-$bitmap_status->{next_status} = {};
-$bitmap_status->{on_start} = 'main::on_start_bitmap';
-$bitmap_status->{on_end} = 'main::on_end_whatlog_subtag';
-$bitmap_status->{on_chars} = 'main::on_chars_whatlog_subtag';
-
-$resource_status->{name} = 'resource_status';
-$resource_status->{next_status} = {};
-$resource_status->{on_start} = 'main::on_start_resource';
-$resource_status->{on_end} = 'main::on_end_whatlog_subtag';
-$resource_status->{on_chars} = 'main::on_chars_whatlog_subtag';
-
-$build_status->{name} = 'build_status';
-$build_status->{next_status} = {};
-$build_status->{on_start} = 'main::on_start_build';
-$build_status->{on_end} = 'main::on_end_whatlog_subtag';
-$build_status->{on_chars} = 'main::on_chars_whatlog_subtag';
-
-$stringtable_status->{name} = 'stringtable_status';
-$stringtable_status->{next_status} = {};
-$stringtable_status->{on_start} = 'main::on_start_stringtable';
-$stringtable_status->{on_end} = 'main::on_end_whatlog_subtag';
-$stringtable_status->{on_chars} = 'main::on_chars_whatlog_subtag';
-
-$archive_status->{name} = 'archive_status';
-$archive_status->{next_status} = {member=>$archive_member_status};
-
-$archive_member_status->{name} = 'archive_member_status';
-$archive_member_status->{next_status} = {};
-$archive_member_status->{on_start} = 'main::on_start_archive_member';
-$archive_member_status->{on_end} = 'main::on_end_whatlog_subtag';
-$archive_member_status->{on_chars} = 'main::on_chars_whatlog_subtag';
-
-$export_status->{name} = 'export_status';
-$export_status->{next_status} = {};
-$export_status->{on_start} = 'main::on_start_export';
-
-$whatlog_default_status->{name} = 'whatlog_default_status';
-$whatlog_default_status->{next_status} = {};
-$whatlog_default_status->{on_start} = 'main::on_start_whatlog_default';
-
-my $whatlog_info = {};
-my $curbldinf = 'unknown';
-my $curconfig = 'unknown';
-my $curfiletype = 'unknown';
-my $characters = '';
-
-if (!$basedir)
-{
- $basedir = time;
-
- print "Using $basedir as basedir.\n";
-}
-if (-d $basedir)
-{
- if ($append)
- {
- print "Directory $basedir exists. Appending new info to it.\n";
- }
- else
- {
- print "Directory $basedir exists. Quitting.\n";
- exit(1);
- }
-}
-mkdir($basedir);
-#print "Created dir $basedir.\n";
-
-my $saxhandler = RaptorSAXHandler->new();
-$saxhandler->set_init_status($reset_status);
-my $parser = XML::SAX::ParserFactory->parser(Handler=>$saxhandler);
-for (@logfiles)
-{
- $parser->parse_uri($_);
-}
-
-
-sub on_start_whatlog
-{
- my ($el) = @_;
-
- #print "on_start_whatlog\n";
-
- $whatlog_info = {};
-
- my $bldinf = '';
- my $config = '';
- my $attributes = $el->{Attributes};
- for (keys %{$attributes})
- {
- #print "reading attribute $_\n";
- if ($attributes->{$_}->{'LocalName'} eq 'bldinf')
- {
- $bldinf = $attributes->{$_}->{'Value'};
- #print "bldinf=$bldinf\n";
- }
- elsif ($attributes->{$_}->{'LocalName'} eq 'config')
- {
- $config = $attributes->{$_}->{'Value'};
- $config =~ s,\.whatlog$,,;
- }
- }
-
- if ($bldinf eq '')
- {
- print "WARNING: whatlog tag with no bldinf attribute. Skipping\n";
- return;
- }
-
- $curbldinf = $bldinf;
- $curconfig = $config;
- $whatlog_info->{$curbldinf} = {} if (!defined $whatlog_info->{$curbldinf});
- $whatlog_info->{$curbldinf}->{$curconfig} = {} if (!defined $whatlog_info->{$curbldinf}->{$curconfig});
-}
-
-sub on_start_whatlog_subtag
-{
- my ($ft) = @_;
-
- $curfiletype = $ft;
- $characters = '';
- $whatlog_info->{$curbldinf}->{$curconfig}->{$curfiletype} = [] if (! defined $whatlog_info->{$curbldinf}->{$curconfig}->{$curfiletype});
-}
-
-sub on_chars_whatlog_subtag
-{
- my ($ch) = @_;
-
- $characters .= $ch->{Data};
-
- #print "characters is now -->$characters<--\n";
-}
-
-sub on_end_whatlog_subtag
-{
- $characters = normalize_filepath($characters);
-
- push(@{$whatlog_info->{$curbldinf}->{$curconfig}->{$curfiletype}}, $characters);
-
- $curfiletype = 'unknown';
- $characters = '';
-}
-
-sub on_start_bitmap
-{
- on_start_whatlog_subtag('bitmap');
-}
-
-sub on_start_resource
-{
- on_start_whatlog_subtag('resource');
-}
-
-sub on_start_build
-{
- on_start_whatlog_subtag('build');
-}
-
-sub on_start_stringtable
-{
- on_start_whatlog_subtag('stringtable');
-}
-
-sub on_start_archive_member
-{
- on_start_whatlog_subtag('export');
-}
-
-sub on_start_export
-{
- my ($el) = @_;
-
- $whatlog_info->{$curbldinf}->{$curconfig}->{export} = [] if (! defined $whatlog_info->{$curbldinf}->{$curconfig}->{export});
-
- my $destination = '';
- my $attributes = $el->{Attributes};
- for (keys %{$attributes})
- {
- #print "reading attribute $_\n";
- if ($attributes->{$_}->{'LocalName'} eq 'destination')
- {
- $destination = $attributes->{$_}->{'Value'};
- #print "destination=$destination\n";
- last;
- }
- }
-
- if ($destination eq '')
- {
- print "WARNING: export tag with no destination attribute. Skipping\n";
- return;
- }
-
- $destination = normalize_filepath($destination);
-
- push(@{$whatlog_info->{$curbldinf}->{$curconfig}->{export}}, $destination);
-}
-
-sub on_end_whatlog
-{
- my $unknown_counter = 0;
-
- for my $bldinf (keys %{$whatlog_info})
- {
- for my $config (keys %{$whatlog_info->{$bldinf}})
- {
- my $normalized = lc($bldinf);
- $normalized =~ s,^[A-Za-z]:,,;
- $normalized =~ s,[\\],/,g;
-
- $normalized =~ m,^/sf/([^/]+)/([^/]+)/,;
- my $layer = $1;
- my $package = $2;
-
- mkdir("$basedir/$layer");
- mkdir("$basedir/$layer/$package");
-
- my $filename = "$basedir/$layer/$package/info.tsv";
-
- print "Writing info file $filename\n" if (!-f$filename);
- open(FILE, ">>$filename");
-
- for my $filetype (keys %{$whatlog_info->{$bldinf}->{$config}})
- {
- for (sort(@{$whatlog_info->{$bldinf}->{$config}->{$filetype}}))
- {
- print FILE "$_\t$filetype\t$config\n";
- }
- }
-
- close(FILE);
- }
- }
-}
-
-sub normalize_filepath
-{
- my ($filepath) = @_;
-
- if ($filepath =~ m,[^\s^\r^\n]+(.*)[\r\n]+(.*)[^\s^\r^\n]+,)
- {
- print "WARNING: file path string extends over multiple line: $filepath. Removing all NL's and CR's\n";
- }
-
- # strip all CR's and NL's
- $filepath =~ s,[\r\n],,g;
-
- # strip all whitespaces at string start/end
- $filepath =~ s,^\s+,,g;
- $filepath =~ s,\s+$,,g;
-
- # remove drive letter and colon from the beginning of the string
- $filepath =~ s,^[A-Za-z]:,,;
-
- # normalize slashes
- $filepath =~ s,\\,/,g;
- $filepath =~ s,//,/,g;
-
- if ($filepath !~ m,^/epoc32/,i)
- {
- print "WARNING: file '$filepath' doesn't seem valid. Writing to info file anyway\n";
- }
-
- return $filepath;
-}
-
-sub on_start_whatlog_default
-{
- my ($el) = @_;
-
- my $tagname = $el->{LocalName};
-
- print "WARNING: unsupported tag '$tagname' in <whatlog> context\n";
-}
\ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/raptor/parse.pl Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,126 @@
+# 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:
+# Run the raptor parsers
+
+use strict;
+use RaptorReleaseable;
+use RaptorError;
+use RaptorWarning;
+use RaptorInfo;
+use RaptorUnreciped;
+use RaptorRecipe;
+
+use XML::SAX;
+use RaptorSAXHandler;
+use Getopt::Long;
+
+my @logfiles;
+my $releaseable_module = 0;
+my $error_module = 0;
+my $warning_module = 0;
+my $info_module = 0;
+my $unreciped_module = 0;
+my $recipe_module = 0;
+our $basedir = '';
+my $append = 0;
+my $help = 0;
+GetOptions((
+ 'log:s' => \@logfiles,
+ 'releaseable!' => \$releaseable_module,
+ 'error!' => \$error_module,
+ 'warning!' => \$warning_module,
+ 'info!' => \$info_module,
+ 'unreciped!' => \$unreciped_module,
+ 'recipe!' => \$recipe_module,
+ 'basedir:s' => \$basedir,
+ 'append!' => \$append,
+ 'help!' => \$help
+));
+
+$help = 1 if (!@logfiles);
+
+if ($help)
+{
+ print "Run the raptor parsers\n";
+ print "Usage: perl parse.pl [MODULES] --log=FILE1 --log=FILE2 ... [OPTIONS]\n";
+ print "where MODULES are:\n";
+ print "\t--releaseable Extract releaseable (whatlog) information\n";
+ print "\t--error Extracts raptor errors, i.e. content of <error> tags\n";
+ print "\t--warning Extracts raptor warnings, i.e. content of <warning> tags\n";
+ print "\t--info Extracts raptor info text i.e. content of <info> tags from a raptor log file\n";
+ print "\t--unreciped Extracts output text in <buildlog> context which doesn't belong to any <recipe> tags\n";
+ print "\t--recipe Extract, analyzes and dumps raptor recipes i.e. content of <recipe> tags from a raptor log file\n";
+ print "where OPTIONS are:\n";
+ print "\t--basedir=DIR Generate output file under DIR\n";
+ print "\t--append Do not stop if basedir exists but append newly extracted info to already existing.\n";
+ exit(0);
+}
+
+if (!$basedir)
+{
+ $basedir = time;
+
+ print "Using $basedir as basedir.\n";
+}
+if (-d $basedir)
+{
+ if ($append)
+ {
+ print "Directory $basedir exists. Appending new info to it.\n";
+ }
+ else
+ {
+ print "Directory $basedir exists. Quitting.\n";
+ exit(1);
+ }
+}
+mkdir($basedir);
+#print "Created dir $basedir.\n";
+
+my $saxhandler = RaptorSAXHandler->new();
+if ($releaseable_module)
+{
+ print "Adding RaptorReleaseable module to the observers\n";
+ $saxhandler->add_observer('RaptorReleaseable', $RaptorReleaseable::reset_status);
+}
+if ($error_module)
+{
+ print "Adding RaptorError module to the observers\n";
+ $saxhandler->add_observer('RaptorError', $RaptorError::reset_status);
+}
+if ($warning_module)
+{
+ print "Adding RaptorWarning module to the observers\n";
+ $saxhandler->add_observer('RaptorWarning', $RaptorWarning::reset_status);
+}
+if ($info_module)
+{
+ print "Adding RaptorInfo module to the observers\n";
+ $saxhandler->add_observer('RaptorInfo', $RaptorInfo::reset_status);
+}
+if ($unreciped_module)
+{
+ print "Adding RaptorUnreciped module to the observers\n";
+ $saxhandler->add_observer('RaptorUnreciped', $RaptorUnreciped::reset_status);
+}
+if ($recipe_module)
+{
+ print "Adding RaptorRecipe module to the observers\n";
+ $saxhandler->add_observer('RaptorRecipe', $RaptorRecipe::reset_status);
+}
+my $parser = XML::SAX::ParserFactory->parser(Handler=>$saxhandler);
+for (@logfiles)
+{
+ $parser->parse_uri($_);
+}
+
--- a/common/tools/raptor/preprocess_log.pl Thu Jul 16 11:22:53 2009 +0100
+++ b/common/tools/raptor/preprocess_log.pl Thu Jul 16 16:33:38 2009 +0100
@@ -1,3 +1,4 @@
+#!perl -w
# 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"
@@ -16,56 +17,49 @@
use Getopt::Long;
-my $infile = '';
-my $outfile = '';
-my $basedir = '';
my $help = 0;
-GetOptions((
- 'in:s' => \$infile,
- 'out:s' => \$outfile,
- 'help!' => \$help
-));
-
-$help = 1 if (!$infile);
+GetOptions(
+ 'help!' => \$help,
+);
if ($help)
{
- print "Preprocess a raptor log, trying to countermeasure a list of known anomalies\n";
- print "Usage: perl preprocess_log.pl --in=INFILE --out=OUTFILE\n";
+ warn <<"EOF";
+Preprocess a raptor log, trying to countermeasure a list of known anomalies
+
+Usage: perl preprocess_log.pl < INFILE > OUTFILE
+EOF
exit(0);
}
-open(INFILE, $infile);
-open(OUTFILE, ">$outfile");
-
-for my $line (<INFILE>)
+while (my $line = <>)
{
- if ($line =~ m,<[^<^>]+>.*&.*</[^<^>]+>,)
+ if ($line =~ m{<[^<^>]+>.*&.*</[^<^>]+>})
{
$line = escape_ampersand($line);
}
- elsif ($line =~ m,<\?xml\s.*encoding=.*\".*\?>,)
+ elsif ($line =~ m{<\?xml\s.*encoding=.*\".*\?>})
{
$line = set_encoding_utf8($line);
}
+ elsif ($line =~ m{<archive.*?[^/]>})
+ {
+ $line = unterminated_archive_tag($line, scalar <>, $.)
+ }
- print OUTFILE $line;
+ print $line;
}
-close(OUTFILE);
-close(INFILE);
-
-
sub escape_ampersand
{
my ($line) = @_;
- print "escape_ampersand\n";
- print "in: $line";
+ warn "escape_ampersand\n";
+ warn "in: $line";
$line =~ s,&,&,g;
- print "out: $line";
+ warn "out: $line";
return $line;
}
@@ -73,11 +67,28 @@
{
my ($line) = @_;
- print "set_encoding_utf8\n";
- print "in: $line";
+ warn "set_encoding_utf8\n";
+ warn "in: $line";
$line =~ s,encoding=".*",encoding="utf-8",;
- print "out: $line";
+ warn "out: $line";
return $line;
-}
\ No newline at end of file
+}
+
+sub unterminated_archive_tag
+{
+ my $line = shift;
+ my $nextLine = shift;
+ my $lineNum = shift;
+
+ if ($nextLine !~ m{(<member>)|(</archive>)})
+ {
+ warn "unterminated_archive_tag\n";
+ warn "in: $line";
+ $line =~ s{>}{/>};
+ warn "out: $line";
+ }
+
+ return $line . $nextLine;
+}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/raptor/truclean.pl Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,110 @@
+# 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:
+# Extracts output text in <buildlog> context which doesn't belong to <recipe>'s
+
+use strict;
+use Getopt::Long;
+
+my $RELEASEABLES_DIR = "/releaseables";
+
+my $releaseablesdir = "";
+my $packageexpr = '';
+my $help = 0;
+GetOptions((
+ 'packageexpr:s' => \$packageexpr,
+ 'releaseablesdir:s' => \$RELEASEABLES_DIR,
+ 'help!' => \$help
+));
+
+$packageexpr =~ m,([^/^\\]+)[/\\]([^/^\\]+),;
+my $layer_expr = $1;
+my $package_expr = $2;
+$help = 1 if (!$layer_expr or !$package_expr);
+
+if ($help)
+{
+ print "Extracts text which doesn't belong to recipes from a raptor log file\n";
+ print "Usage: perl truclean.pl --packageexpr=LAYER_EXPR/PACKAGE_EXPR [OPTIONS]\n";
+ print "where:\n";
+ print "\tLAYER_EXPR can be * or the name of a layer\n";
+ print "\tPACKAGE_EXPR can be * or the name of a package\n";
+ print "and OPTIONS are:\n";
+ print "\t--releaseablesdir=DIR Use DIR as the root of the releaseables dir (default: $RELEASEABLES_DIR\n";
+ exit(0);
+}
+
+$RELEASEABLES_DIR = $releaseablesdir if ($releaseablesdir);
+
+my @layers = ();
+if ($layer_expr eq '*')
+{
+ opendir(DIR, $RELEASEABLES_DIR);
+ @layers = readdir(DIR);
+ closedir(DIR);
+ @layers = grep(!/^\.\.?$/, @layers);
+}
+else
+{
+ push(@layers, $layer_expr);
+}
+#for (@layers) {print "$_\n"};
+
+for my $layer (@layers)
+{
+ my @packages = ();
+ if ($package_expr eq '*')
+ {
+ opendir(DIR, "$RELEASEABLES_DIR/$layer");
+ @packages = readdir(DIR);
+ closedir(DIR);
+ @packages = grep(!/^\.\.?$/, @packages);
+ }
+ else
+ {
+ push(@packages, $package_expr);
+ }
+ #for (@pacakges) {print "$_\n"};
+
+ for my $package (@packages)
+ {
+ print "Processing package $layer/$package...\n";
+
+ open(FILE, "$RELEASEABLES_DIR/$layer/$package/info.tsv");
+ while (<FILE>)
+ {
+ my $line = $_;
+
+ if ($line =~ m,([^\t]*)\t([^\t]*)\t([^\t]*),)
+ {
+ my $file = $1;
+ my $type = $2;
+ my $config = $3;
+
+ if (-f $file)
+ {
+ print "removing file: '$file'\n";
+ unlink($file);
+ }
+ else
+ {
+ print "WARNING: file '$file' doesn't exist.\n";
+ }
+ }
+ else
+ {
+ print "WARNING: line '$line' doesn't match the expected tab-separated pattern\n";
+ }
+ }
+ close(FILE);
+ }
+}
\ No newline at end of file
--- a/common/tools/raptor/unreciped_text.pl Thu Jul 16 11:22:53 2009 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,103 +0,0 @@
-# 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:
-# Extracts output text in <buildlog> context which doesn't belong to <recipe>'s
-
-use strict;
-
-use XML::SAX;
-use RaptorSAXHandler;
-use Getopt::Long;
-
-my @logfiles;
-my $basedir = '';
-my $help = 0;
-GetOptions((
- 'log:s' => \@logfiles,
- 'basedir:s' => \$basedir,
- 'help!' => \$help
-));
-
-$help = 1 if (!@logfiles);
-
-if ($help)
-{
- print "Extracts text which doesn't belong to recipes from a raptor log file\n";
- print "Usage: perl unreciped_text.pl --log=FILE1 --log=FILE2 [OPTIONS]\n";
- print "where OPTIONS are:\n";
- print "\t--basedir=DIR Generate output file under DIR\n";
- exit(0);
-}
-
-my $reset_status = {};
-my $buildlog_status = {};
-my $buildlog_subtag_status = {};
-
-$reset_status->{name} = 'reset_status';
-$reset_status->{next_status} = {buildlog=>$buildlog_status};
-
-$buildlog_status->{name} = 'buildlog_status';
-$buildlog_status->{next_status} = {'?default?'=>$buildlog_subtag_status};
-$buildlog_status->{on_start} = 'main::on_start_buildlog';
-$buildlog_status->{on_end} = 'main::on_end_buildlog';
-$buildlog_status->{on_chars} = 'main::on_chars_buildlog';
-
-$buildlog_subtag_status->{name} = 'buildlog_subtag_status';
-$buildlog_subtag_status->{next_status} = {};
-
-my $characters = '';
-
-if (!$basedir)
-{
- $basedir = time;
-
- print "Using $basedir as basedir.\n";
-}
-if (-d $basedir)
-{
- print "Directory $basedir exists. Quitting.\n";
- exit(1);
-}
-mkdir($basedir);
-#print "Created dir $basedir.\n";
-
-my $saxhandler = RaptorSAXHandler->new();
-$saxhandler->set_init_status($reset_status);
-my $parser = XML::SAX::ParserFactory->parser(Handler=>$saxhandler);
-for (@logfiles)
-{
- $parser->parse_uri($_);
-}
-
-
-sub on_start_buildlog
-{
- my $filename = "$basedir/unreciped.txt";
- print "Writing unreciped file $filename\n" if (!-f$filename);
- open(FILE, ">>$filename");
-}
-
-sub on_chars_buildlog
-{
- my ($ch) = @_;
-
- my $characters = $ch->{Data};
-
- print FILE $characters if ($characters =~ m,[^\s^\r^\n],);
-
- #print "characters is now -->$characters<--\n";
-}
-
-sub on_end_buildlog
-{
- close(FILE);
-}
\ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/sortUnique.pl Thu Jul 16 16:33:38 2009 +0100
@@ -0,0 +1,13 @@
+#!perl -w
+use strict;
+# Sorts the input, removes duplicates, and outputs it
+
+# Read it
+my @content = <>;
+
+# Sort it, and grep to remove duplicates
+my $previous = "\n\n";
+@content = grep {$_ ne $previous && ($previous = $_, 1) } sort @content;
+
+# Write it
+print @content;
--- a/sf-package/package_props.ant.xml Thu Jul 16 11:22:53 2009 +0100
+++ b/sf-package/package_props.ant.xml Thu Jul 16 16:33:38 2009 +0100
@@ -5,7 +5,11 @@
<property name="sf.spec.baseline.enable" value="true"/>
<property name="sf.spec.baseline.select" value="location"/>
<property name="sf.spec.baseline.location" value="\\bishare\Releases\PDK_candidate_2.0.c_flat"/>
- <property name="sf.spec.baseline.getenv_options" value="-i emu -i rnd -i tools"/>
+ <property name="sf.spec.baseline.getenv_options" value="-i emu -i rnd -i tools -i info"/>
+
+ <property name="sf.spec.toolsbaseline.enable" value="false"/>
+
+ <property name="sf.spec.build.clean.enable" value="true"/>
<property name="sf.spec.systemdefinition.assemble" value="false"/>
<property name="sf.spec.sysdef.configurations.list" value="SF"/>
--- a/sf-platform/build.xml Thu Jul 16 11:22:53 2009 +0100
+++ b/sf-platform/build.xml Thu Jul 16 16:33:38 2009 +0100
@@ -86,26 +86,6 @@
</for>
</target>
-
- <target name="generate-layers">
- <echo message="canno-file:${canonical.sysdef.file}"/>
- <echo message="raptor-filters:raptor_${sysdef.configuration}"/>
-
- <!-- All we want is a sysdef with the config name appended, so just copy it -->
- <echo message="INFO: Skip GenXML and copy sysdef to sysdef+config name"/>
- <copy file="${canonical.sysdef.file}" tofile="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}_temp.xml"/>
-
- <copy file="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}_temp.xml" tofile="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}.xml">
- <filterchain>
- <linecontainsregexp negate="true">
- <regexp pattern="^\s*$"/>
- </linecontainsregexp>
- </filterchain>
- </copy>
- <copy file="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}.xml" todir="${build.log.dir}/BOM/"/>
- <delete file="${build.drive}/output/build/canonical_system_definition_${sysdef.configuration}_temp.xml"/>
- </target>
-
<!--
== Name: SF-COMPILE
==