Add ..\dev\.. to path
# 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:
# This package does various ancillary things for BPABI (Base Platform ABI) platforms
#
#
package BPABIutl;
require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
BPABIutl_Plat_List
BPABIutl_Config_Path
BPABIutl_Get_Config_Variables
);
use E32Variant;
require E32Plat;
my %ConfigPath;
my $variantABIV2Keyword = &Variant_GetMacro();
sub BPABIutl_Plat_List {
# Identify the BPABI platforms to be supported based on the compiler configuration files
# present in the location specified by the environment variable "SYMBIAN_COMPILATION_CONFIG_DIR"
# and in the directory $EPOCROOT\epoc32\tools\compilation_config
my @CompilerConfigPath;
if (exists($ENV{'SYMBIAN_COMPILATION_CONFIG_DIR'}))
{
my $Path = $ENV{SYMBIAN_COMPILATION_CONFIG_DIR};
@CompilerConfigPath = split(/;/, $Path);
}
push @CompilerConfigPath, "$ENV{EPOCROOT}epoc32\\tools\\compilation_config";
my $ConfigDir;
my @BPABIPlats = ();
foreach $ConfigDir (@CompilerConfigPath)
{
opendir DIR, "$ConfigDir";
my @Plats=grep /\.mk$/i, readdir DIR;
my $Plat;
foreach $Plat (@Plats)
{
# The platform name will be same as the name of the configuration file <config.mk>
# with the suffix '.mk' removed
$Plat =~ s/\.mk//;
if ($variantABIV2Keyword) {
if ($Plat =~ /^armv5_abiv2$/i) {
$Plat = "ARMV5";
}
}
else {
if ($Plat =~ /^armv5$/i) {
$Plat = "ARMV5_ABIV2";
}
}
unless (grep /$Plat$/i, @BPABIPlats) {
$Plat = uc $Plat;
push @BPABIPlats, $Plat;
if (!$variantABIV2Keyword && $Plat =~ /^ARMV5_ABIV2$/i) {
$ConfigPath{$Plat} = "$ConfigDir\\ARMV5.mk";
}
else {
$ConfigPath{$Plat} = "$ConfigDir\\$Plat.mk";
}
}
}
}
closedir DIR;
return @BPABIPlats;
}
sub BPABIutl_Config_Path($) {
my ($plat) = @_;
# Returns the Path of the compiler configuration file
if (!keys(%ConfigPath))
{
# Running for first time so initialise ConfigPath
BPABIutl_Plat_List();
}
if (!$ConfigPath{$plat})
{
# Get the root platform name to support hierarchy of customizations
my $CustomizedPlat = &E32Plat::Plat_Root($plat);
# In default ABIV1 mode, the platform name for v2 mode of ARMV5 is ARMV5_ABIV2
if ( !$variantABIV2Keyword && $CustomizedPlat =~ /^ARMV5$/i ){
$ConfigPath{$plat} = $ConfigPath{ARMV5_ABIV2};
}
# In default ABIV2 mode, the platform name for v2 mode of ARMV5 is ARMV5
elsif ( $variantABIV2Keyword && $CustomizedPlat =~ /^ARMV5$/i) {
$ConfigPath{$plat} = $ConfigPath{ARMV5};
}
else{
$ConfigPath{$plat}=$ConfigPath{$CustomizedPlat};
}
}
return "$ConfigPath{$plat}";
}
# routine to extract a set of variables from the compilation configuration
# file. The variables extracted are determined by the extractvars.make file.
# The variables are returned in a hash.
sub BPABIutl_Get_Config_Variables
{
my ($plat) = @_;
my $configfile = BPABIutl_Config_Path($plat);
my $extractvars = "$ENV{EPOCROOT}epoc32\\tools\\compilation_config\\extractvars.make";
my $command = "make CONFIG_FILE=$configfile -s -f $extractvars" ;
my $result = `$command`;
my %vars;
my @lines = split('\n', $result);
foreach my $line (@lines)
{
chomp $line;
if ($line =~ /(\w+)=(.*)/)
{
$vars{$1} = $2;
}
}
return %vars;
}
1;