Replaced hlm_fix_pkg_files with hlm_prep_package to automatically update .ini files
authorMaciej Seroka <maciejs@symbian.org>
Mon, 05 Jul 2010 10:51:02 +0100
changeset 1119 8f963b9f9cb4
parent 1118 14c8058c3fa1
child 1130 049433d43559
Replaced hlm_fix_pkg_files with hlm_prep_package to automatically update .ini files
common/tools/ats/hlm_fix_pkg_files.pl
common/tools/ats/hlm_prep_package.pl
--- a/common/tools/ats/hlm_fix_pkg_files.pl	Sat Jul 03 23:16:32 2010 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,63 +0,0 @@
-#!/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 files.
-
-use strict;
-use File::Copy;
-use Tie::File;
-use File::Find;
-
-my @files;
-my @lines;
-my $file;
-my $n;
-my $file_fixed;
-sub Wanted;
-
-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;
-}
-
-sub Wanted {
-    # only operate on .pkg files
-	/.pkg$/ or return;
-    push (@files, $File::Find::name);
-}
\ No newline at end of file
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/ats/hlm_prep_package.pl	Mon Jul 05 10:51:02 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