# HG changeset patch # User Brendan Donegan # Date 1278322894 -3600 # Node ID c0d6044491e0e94471a63ba29803e4e5829767fb # Parent 95d30b851e369822582a7400e8821a6bc3ef6ff2# Parent 4af748f40e05164fe00b339748677f0bf8a1ccba Merge diff -r 4af748f40e05 -r c0d6044491e0 common/build.xml --- a/common/build.xml Wed Jun 30 10:54:16 2010 +0100 +++ b/common/build.xml Mon Jul 05 10:41:34 2010 +0100 @@ -124,6 +124,12 @@ + + + + + + diff -r 4af748f40e05 -r c0d6044491e0 common/templates/run-qmake.ant.xml.ftl diff -r 4af748f40e05 -r c0d6044491e0 common/tools/ats/hlm_prep_package.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/common/tools/ats/hlm_prep_package.pl Mon Jul 05 10:41:34 2010 +0100 @@ -0,0 +1,95 @@ +#!/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. +# Maciej Seroka, maciej@symbian.org +# +# Description: +# This is a script for fixing pkg and ini files. + +use strict; +use File::Copy; +use Tie::File; +use File::Find; + +my @files; +my @ini_files; +my @lines; +my $file; +my $n; +my $file_fixed; +sub Wanted; +sub Parse_ini; + +my $package_path; +if ($ARGV[0]) { + $package_path = $ARGV[0]; + } +else { die "Missing parameter \"package path\". For example: D:\\sf\\app\\musicplayer"; } + +find(\&Wanted, $package_path); + +Copy a pkg file and replace \armv5\urel with $(platform)\$(target) +foreach $file (@files) { #Replace "//v800020/Publish" with "http://cdn.symbian,org" + copy($file,$file . ".orig") or die ("Cannot copy file \"$file\". $!\n"); + tie (@lines, 'Tie::File', $file, recsep => "\n") or die ("Cannot tie file \"$file\". $!\n"); + $n = 0; + $file_fixed = 0; + foreach (@lines) { + if (lc(@lines[$n]) =~ m/epoc32\\release\\armv5\\urel\\/) { + @lines[$n] = lc(@lines[$n]); + @lines[$n] =~ s/\\armv5\\urel\\/\\\$(platform)\\\$(target)\\/; + $file_fixed = 1; + } + if (lc(@lines[$n]) =~ m/epoc32\\release\\armv5\\udeb\\/) { + @lines[$n] = lc(@lines[$n]); + @lines[$n] =~ s/\\armv5\\udeb\\/\\\$(platform)\\\$(target)\\/; + $file_fixed = 1; + } + $n++; + } + if ($file_fixed) { print $file . " fixed.\n"; } + untie @lines; +} + +find(\&Parse_ini, $package_path); + +foreach $file (@ini_files) { + if ($file =~ m/\/init\//) { # Only operate on files from /init/ directories + copy($file,$file . ".orig") or die ("Cannot copy file \"$file\". $!\n"); + tie (@lines, 'Tie::File', $file, recsep => "\n") or die ("Cannot tie file \"$file\". $!\n"); + $n = 0; + $file_fixed = 0; + foreach (@lines) { + if (lc(@lines[$n]) =~ m/^separateprocesses/) { + @lines[$n] = '#' . @lines[$n]; + $file_fixed = 1; + } + if (lc(@lines[$n]) =~ m/^uitestingsupport/) { + @lines[$n] = '#' . @lines[$n]; + $file_fixed = 1; + } + $n++; + } + if ($file_fixed) { print $file . " fixed.\n"; } + untie @lines; + } +} + +sub Wanted { + # only operate on .pkg files + /.pkg$/ or return; + push (@files, $File::Find::name); +} + +sub Parse_ini { + # only operate on .ini files + /\.ini$/ or return; + push (@ini_files, $File::Find::name); +} \ No newline at end of file