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

	}