@rem

@rem Copyright (c) 2002-2009 Nokia Corporation and/or its subsidiary(-ies).

@rem All rights reserved.

@rem This component and the accompanying materials are made available

@rem under the terms of the License "Eclipse Public License v1.0"

@rem which accompanies this distribution, and is available

@rem at the URL "http://www.eclipse.org/legal/epl-v10.html".

@rem

@rem Initial Contributors:

@rem Nokia Corporation - initial contribution.

@rem

@rem Contributors:

@rem

@rem Description:

@rem

@perl -x romlaunch.bat %*

@goto end

#! usr\bin\perl

my $KFilename="rom.bat";

# 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;

			}

		}

	if (defined($devicepath))

		{

		return $devicepath;

		}

	else

		{

		die "The '$KFilename' launcher cannot be used without the tools coresidency stubs.\n".

		  "Alternatively, please set EPOCROOT before calling '$KFilename' directly.\n";

		}

	}

# Main

use lib getDevicesPath();

use lib getDevicesPath()."/perllib";

use CDevicesCLAccessor;

my $devicepath=getDevicesPath();

$devicepath=~s/[^\/]+\/?$//; # Remove last path element

my $deviceObject = New CDevicesCLAccessor($devicepath."/devices.xml");

if (!defined($ENV{EPOCROOT}))

	{

	# Need to set EPOCROOT

	my $deviceName;

	if (defined($EHV{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".

		  "the '$KFilename' launcher. Alternatively, set EPOCROOT and run\n".

		  "'$KFilename' directly\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.\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($KFilename." ".join(" ",@args));

__END__

:end