diff -r 000000000000 -r 83f4b4db085c toolsandutils/productionbldtools/InstallSupplementaryKit.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolsandutils/productionbldtools/InstallSupplementaryKit.pl	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,350 @@
+#!perl
+
+# InstallSupplementaryKit.pl - Source Code Integration Script
+
+# Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "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:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+# Versions:
+# 1.0  Initial
+# 1.1  No warnings about pre-existing directories
+# 1.2  MCL version, adds -buildfromclean flag to move epoc32 directory and -platform flag
+# 
+#
+
+
+use Getopt::Long;
+use File::Path;
+use File::CheckTree;
+
+
+# ---------------------------- Global variables -------------------------------
+
+my $JarFile = "";
+my $TargetDirectory = "";
+my $BuildFromClean = 0;
+my $Platform = "";
+my $Options = "";
+
+# start the program
+main();
+
+
+
+
+# ---------------------------- Start of Main() --------------------------------
+sub main()
+{
+	if (@ARGV)
+	{
+		CommandLineInterface();
+	}
+	else
+	{
+		UserInterface();
+	}
+
+
+	# extract any *.sdkpkg files from the Jar file into the target directory
+	system("unzip -o  \"$JarFile\"  \"*.sdkpkg\"  -d \"$TargetDirectory\"");
+
+	print "\n";
+
+	# install each Jar file and delete it when done
+	foreach my $Package (<$TargetDirectory\\*.sdkpkg>)
+	{
+		# if -o specified, only install the required options
+		# (if -b specified, combine up into \bin\generic and \bin\techview)
+
+		if ( ($Options ne "") )
+		{	
+			if ( ($Package =~ /bin\.GT-/i) && ($Options =~ /G/i) )
+			{
+				# GT binaries
+				print "  installing $Package\n";
+				if ($BuildFromClean == 1)
+				{
+					system("unzip -o -q \"$Package\"  -x \"package.xml\"  -d \"$TargetDirectory\"");
+				}
+				else
+				{
+					# install to temporary location then move
+					system("unzip -o -q \"$Package\"  -x \"package.xml\"  -d \"$TargetDirectory\\tmp\"");
+			 		MoveDirectory("$TargetDirectory\\tmp\\bin\\techview", "$TargetDirectory\\bin\\TechView\\generic");
+					rmtree "$TargetDirectory\\tmp" or print "Unable to remove \"$TargetDirectory\\tmp\" - $!\n";
+				}
+			}
+			elsif ( ($Package =~ /bin\.GT-/i) && ($Options !~ /G/i) )
+			{
+				print "  excluded   $Package\n";
+			}
+
+			elsif ( ($Package =~ /bin\.TechView-/i) && ($Options =~ /U/i) )
+			{
+				# TechView binaries
+				print "  installing $Package\n";
+				if ($BuildFromClean == 1)
+				{
+					system("unzip -o -q \"$Package\"  -x \"package.xml\"  -d \"$TargetDirectory\"");
+				}
+				else
+				{
+					# install to temporary location then move
+					system("unzip -o -q \"$Package\"  -x \"package.xml\"  -d \"$TargetDirectory\\tmp\"");
+			 		MoveDirectory("$TargetDirectory\\tmp\\bin\\techview", "$TargetDirectory\\bin\\TechView\\TechView");
+					rmtree "$TargetDirectory\\tmp" or print "Unable to remove \"$TargetDirectory\\tmp\" - $!\n";
+				}
+			}
+			elsif ( ($Package =~ /bin\.TechView-/i) && ($Options !~ /U/i) )
+			{
+				print "  excluded   $Package\n";
+			}
+
+			elsif ( ($Package =~ /doc\./i) && ($Options =~ /D/i) )
+			{
+				# documentation - install to 'doc' location then move
+				print "  installing $Package\n";
+				system("unzip -o -q \"$Package\"  -x \"package.xml\"  -d \"$TargetDirectory\"");
+			}
+			elsif ( ($Package =~ /doc/i) && ($Options !~ /D/i) )
+			{
+				print "  excluded   $Package\n";
+			}
+
+			elsif ( ( ($Package =~ /\.bin\./i) && ($Options =~ /(G|U)/i) ) ||
+				( ($Package =~ /\.src\./i) && ($Options =~ /S/i) ) ||
+				( ($Package !~ /\.src\./i) && ($Package !~ /\.bin\./i) ) )
+			{
+				# non-specific binaries or sources or non-binaries, non-sources
+				system("unzip -o -q \"$Package\"  -x \"package.xml\"  -d \"$TargetDirectory\"");
+				print "  installing $Package\n";
+			}
+			elsif ( ( ($Package =~ /\.src\./i) && ($Options !~ /S/i) ) ||
+				( ($Package =~ /\.bin\./i) && ($Options !~ /(G|U)/i) ) )
+			{
+				print "  excluded   $Package\n";
+			}
+			else
+			{
+				print "Failed to install $Package\n";
+			}
+		}
+	
+		# otherwise install everything else regardless (non-BFC or no options specified)
+		else
+		{
+			# sources in BuildFromClean installation, everything if BFC with no options, or non-BFC
+			print "  installing $Package\n";
+			system("unzip -o -q \"$Package\"  -x \"package.xml\"  -d \"$TargetDirectory\"");
+		}
+		unlink $Package or print "Unable to delete $Package file from \"$TargetDirectory\"\n";
+	}
+	
+
+	# move files from [sdkroot]\src to src\, delete [sdkroot] directory
+	if ( -e "$TargetDirectory\\\[sdkroot\]" )
+	{
+ 		MoveDirectory("$TargetDirectory\\\[sdkroot\]", "$TargetDirectory");
+		rmdir "$TargetDirectory\\\[sdkroot\]" or print "Unable to remove \"$TargetDirectory\\\[sdkroot\]\" - $!\n";
+	}
+
+
+	# rename 'doc' directory to 'documentation' 
+	if ( -e "$TargetDirectory\\doc") 
+	{
+ 		MoveDirectory("$TargetDirectory\\doc", "$TargetDirectory\\documentation");
+		rmdir "$TargetDirectory\\doc" or print "Unable to remove \"$TargetDirectory\\doc\" - $!\n";
+	}
+
+
+	# move binary directories if platform defined for BuildFromClean - moves epoc32 tree from bin\TechView to \bin\%platform%
+	if ( ($BuildFromClean == 1) && (-e "$TargetDirectory\\bin\\TechView") && ($Platform ne "") )
+	{
+	 	MoveDirectory("$TargetDirectory\\bin\\TechView", "$TargetDirectory\\bin\\$Platform");
+		rmdir "$TargetDirectory\\bin\\TechView" or print "Unable to remove \"$TargetDirectory\\bin\\TechView\" - $!\n";
+	}
+
+
+	# remove the [meta] tree (usually only contains licence text)
+	rmtree ("$TargetDirectory\\\[meta\]", 0, 1);
+}
+
+# ------------------- Start ofCommandLineInterface() -------------------------
+
+
+sub CommandLineInterface()
+{
+	%CmdLineOptions = ();
+	my $help;
+	if ( (GetOptions( \%CmdLineOptions, "jarfile|j=s" => \$JarFile, "target|t=s" => \$TargetDirectory, "help|h|?" => \$help, "buildfromclean|b" => \$BuildFromClean, "platform|p=s" => \$Platform, "options|o=s" => \$Options) == 0) || ($JarFile eq "") || ($TargetDirectory eq "") || ($help == 1) )
+	{
+		Usage();
+		exit; 
+	}
+
+
+	if ( ($BuildFromClean == 1) && ($Platform eq "") && ($ENV{'Platform'} eq "") )
+	{
+		Usage();
+		print "\nN.B. -platform required if -b specified\n";
+		exit; 
+	}
+	elsif ( ($BuildFromClean == 1) && ($Platform eq "") )
+	{
+		$Platform = $ENV{'Platform'} ;
+	}
+
+	# NAHEED --- Prevent stopping of the scripts if the Suplementary
+	# product is not present. Rather than die just display a 
+	# WARNING ....
+	# check that Kit zips are in stated directory
+	if (! -e $JarFile)
+	{
+		print "Warning: Jar file $JarFile not found.\n";
+		exit;
+	}
+	
+	
+	# ensure target directory exists or can be created
+	if (! -d $TargetDirectory)
+	{
+		mkpath ($TargetDirectory) or die "Could not find or create $TargetDirectory\n";
+	}
+	
+}
+
+
+# ------------------------ Start of UserInterface() ---------------------------
+
+
+sub UserInterface()
+{
+	# get name of Supplementary Kit to install
+	do	# ensure file exists
+	{
+		print "Enter name of Supplementary Kit (*.jar) : ";
+		chomp( $JarFile = <STDIN> );
+	} while (! -e $JarFile) ;
+
+
+	# get location to write extracted files to
+	do	# ensure directory exists or can be created
+	{
+		print "Enter directory to extract files to : ";
+		chomp( $TargetDirectory = <STDIN> );
+	} while ( (! -d $TargetDirectory) and (! mkpath ($TargetDirectory)) ) ;
+
+
+	# get Platform name - try environment, else ask user
+	if ($ENV{'Platform'} eq "")
+	{
+		print "Enter platform name  : ";
+		chomp( $Platform = <STDIN> );
+	}
+	else
+	{
+		$Platform = $ENV{'Platform'} ;
+	}
+	
+	
+	# get build from clean flag
+	my $answer = "";
+	do
+	{
+		print "Build from clean (epoc32 tree combination) (Y/N) ? ";
+		chomp ($answer = <STDIN>);
+	} while ($answer !~ /[YN]/i);
+	if ($answer =~ /Y/i)
+	{
+		$BuildFromClean = 1;
+	}
+	
+	
+	# get installation options
+	print "Enter installation options : ";
+	chomp($Options = <STDIN>);
+}
+
+
+# ------------------------ Start of MoveDirectory() ---------------------------
+
+
+# Recursively moves directory tree
+
+sub MoveDirectory($$)
+{
+	my ($aFrom, $aTo) = @_;
+
+	opendir(DIR, $aFrom) or die "Path $aFrom not found!\n";
+
+	foreach my $entry (readdir(DIR))
+	{
+		if (($entry ne ".") and ($entry ne ".."))
+		{
+			if (-d $aFrom."/".$entry)
+			{ 
+				if (!(makepath ($aTo."/".$entry)))
+				{
+					print "Warning: Could not create $aTo/$entry - $!\n";
+				}
+				MoveDirectory($aFrom."/".$entry, $aTo."/".$entry);
+				rmdir $aFrom."/".$entry or print "Warning: Unable to remove $aFrom/$entry - $!\n";
+			}
+			else
+			{
+				rename $aFrom."/".$entry, $aTo."/".$entry or print "Warning: Unable to move $aFrom/$entry - $!\n";
+			}
+		}
+	}
+
+	closedir(DIR);
+}
+
+# -------------------------- Start of makepath() ------------------------------
+
+sub makepath($)
+	{
+	my ($path) = @_;
+
+	if (-d $path)
+		{
+		return -1;
+		}
+	else
+		{
+		return mkpath($path);
+		}
+	}
+
+# ---------------------------- Start of Usage() -------------------------------
+
+sub Usage()
+{
+	print <<ENDOFUSAGETEXT;
+	
+INSTALLSUPPLEMENTARYKIT.PL    Version 1.2    Copyright (c) 2003 Symbian Ltd
+                                             All Rights Reserved
+                                  
+Usage:
+  perl InstallSupplementaryKit.pl  [options]
+ 
+where options are:
+  -b[uildfromclean]       combines unpacked files into build from clean locations
+  -j[arfile] <path>       fully qualified file name of Kit's .jar
+  -o[ptions] DGUS         installation options ( D=documentation,  G=GT, U=UI(TechView),  S=source )
+  -p[latform] <platform>  build platform - used with -b to create binaries installation directory path
+                          (moves epoc32 tree from \\bin\TechView into \\bin\\<platform>)
+  -t[arget] <path>        path to directory to unpack Kit into
+   
+ENDOFUSAGETEXT
+}