#!/usr/bin/perl+
−
# Copyright (c) 2010 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:+
−
# Mike Kinghan, mikek@symbian.org, for Symbian Foundation Ltd - initial contribution.+
−
+
−
# Routines to get/set some essential paths.+
−
+
−
use strict;+
−
use Cwd;+
−
use Cwd 'abs_path';+
−
use File::Spec;+
−
+
−
# get the package directory+
−
sub get_pkg_dir()+
−
{+
−
	return abs_path("..");	+
−
}+
−
+
−
# get the epoc32 directory without insisting it exists+
−
sub get_epoc32_path()+
−
{+
−
	my $epocroot = get_epocroot();+
−
	my $epoc32 = File::Spec->catfile($epocroot,"epoc32");+
−
	return $epoc32;+
−
}+
−
+
−
# get the epoc32 directory, insisting it exists+
−
sub get_epoc32_dir()+
−
{+
−
	my $epoc32 = get_epoc32_path();+
−
	die "*** Error: directory \"$epoc32\" does not exist ***",+
−
		unless ( -d "$epoc32");	+
−
	return $epoc32;+
−
}+
−
+
−
# Get the EPOCROOT directory, using the environment setting if it exists,+
−
# otherwise assuming the parent of the package dir.+
−
sub get_epocroot()+
−
{+
−
	my $epocroot = $ENV{'EPOCROOT'};+
−
    unless ($epocroot) {+
−
		$epocroot = abs_path(File::Spec->catfile("..",".."));+
−
		if (-d "$epocroot") {+
−
        	print ">>> EPOCROOT not defined. Assuming \"$epocroot\"\n";+
−
		} else {+
−
			die "*** Error: EPOCROOT not defined and guess \"$epocroot\" " .+
−
				"does not exist ***";+
−
		}+
−
    	$ENV{'EPOCROOT'}=$epocroot;+
−
		print ">>> EPOCROOT=\"$epocroot\"\n";+
−
    }+
−
	if (! -d "$epocroot") {+
−
		die "*** Error: directory \"$epocroot\" does not exist ***";+
−
	}+
−
	else {+
−
		my $epoc32 = File::Spec->catfile($epocroot,"epoc32");+
−
		unless ( -d "$epoc32") {+
−
			print "!!! Warning: No epoc32 die under EPOCROOT !!!\n";+
−
		}+
−
	}+
−
	return $epocroot;+
−
}+
−
+
−
sub get_sbs_home()+
−
{+
−
	my $sbs_home = $ENV{'SBS_HOME'};+
−
	unless($sbs_home) {+
−
		$sbs_home = File::Spec->catfile(get_pkg_dir(),"sbsv2","raptor");+
−
		if ( -d "$sbs_home") {+
−
        	print ">>> SBS_HOME not defined. Assuming \"$sbs_home\"\n";+
−
		} else {+
−
			die "*** Error: SBS_HOME not defined and guess \"$sbs_home\" " .+
−
				"does not exist ***";+
−
		}+
−
		$ENV{'SBS_HOME'} = $sbs_home;+
−
	}+
−
	unless ( -d "$sbs_home") {+
−
		die "*** Error: directory \"$sbs_home\" does not exist ***";+
−
	}+
−
	return $sbs_home;+
−
}+
−
+
−
1;+
−
+
−