--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kernel/eka/rombuild/romlaunch.pl	Thu Dec 17 09:24:54 2009 +0200
@@ -0,0 +1,131 @@
+#! usr\bin\perl
+# Copyright (c) 2002-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# 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:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+#
+
+my $KFilename = $0;
+$KFilename =~ s/\\romlaunch\.pl$/\\rom.pl/i;
+my $KEnvironment="perl";
+my $KLauncher="rom.bat";
+
+# Main
+	
+if (!defined($ENV{EPOCROOT}))
+	{
+	# Need to set EPOCROOT
+	
+	my $devicepath=getDevicesPath();
+
+	if (!defined($devicepath))
+		{
+		die "Please set EPOCROOT before launching $KLauncher. Alternatively, install\n".
+		  "a the coresidency tools (tools stubs) and set a default device.\n";
+		}
+
+	push @INC, $devicepath;
+	push @INC, $devicepath."/perllib";
+	require CDevicesCLAccessor;
+
+	$devicepath=~s/[^\/]+\/?$//; # Remove last path element
+	my $deviceObject = New CDevicesCLAccessor($devicepath."/devices.xml");
+
+	my $deviceName;
+
+	if (defined($ENV{EPOCDEVICE}))
+		{
+		# Use EPOCDEVICE as default device
+		$deviceName = $ENV{EPOCDEVICE};
+		}
+	elsif (($deviceObject->getDefaultDevice()) ne "")
+		{
+		# Use main default device
+		$deviceName = $deviceObject->getDefaultDevice($deviceObject);
+		}
+	else
+		{
+		die "Please set a default device (using 'devices -setdefault') before using\n".
+		  "$KLauncher. Alternatively, you can set EPOCROOT yourself.\n";
+		}
+	
+	if ( ($deviceObject->isValidName($deviceName))
+	  || ($deviceObject->isValidAlias($deviceName))
+	  )
+		{
+		# Get path to the epoc32 tree from device
+		my $epocroot = $deviceObject->getEpocRoot($deviceName);
+
+		$epocroot =~ s/^[A-Za-z]://; # Remove leading drive letter
+
+		# Ensure the correct slashes are present
+		$epocroot =~ s/\//\\/g;
+		if ($epocroot !~ /\\$/)
+			{
+			$epocroot = $epocroot."\\";
+			}
+		
+		# Set EPOCROOT
+		$ENV{EPOCROOT} = $epocroot;
+		}
+	else
+		{
+		die "'$deviceName' is not a recognised device name. If EPOCDEVICE is set, ensure\n".
+		  "it is set to a valid device name.\n";
+		}
+	}
+
+# Enclose arguments in quote marks if needed
+
+my @args=@ARGV;
+my $index=scalar(@args);
+
+while ($index > 0)
+	{
+	$index--;
+
+	if ($args[$index] =~ /\s/)
+		{
+		$args[$index] = '"'.$args[$index].'"';
+		}
+	}
+
+# Call tool with arguments
+
+system($KEnvironment." ".$KFilename." ".join(" ",@args));
+
+# getDevicesPath()
+#
+# Discover the location of the devices API. They are expected to be found in an installed set of coresidency
+# stubs, in the path.
+#
+# Parameters: None
+#
+# Returns: The path to the devices API (UNIX style path)
+# 
+# Dies: If no devices API can be found in the path. 
+sub getDevicesPath()
+	{
+	my $devicepath = undef;
+	my $paths = $ENV{PATH};
+	$paths =~ s/\\/\//g;
+	
+	foreach my $path (split(";", $paths))
+		{
+		if (-e "$path/CDevicesCLAccessor.pm")
+			{
+			$devicepath=$path;
+			}
+		}
+	
+	return $devicepath;
+	}