Moving feature configuration out of the buildrom scope.
# 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 "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 armedg modules
#
#
package Armutl;
require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
Armutl_Help_Mmp
Armutl_DoMmp
Armutl_ArmIncDir
Armutl_ArmLibList
Armutl_ArmRT
Armutl_AsmFileList
Armutl_ArmVersion
Armutl_RVCTMajorVersion
Armutl_RVCTMinorVersion
Armutl_RVCTPatchLevel
Armutl_RVCTBuildNumber
Armutl_ArmLibDir
);
use RVCT_plat2set;
my $ArmInc='';
my @ArmLibList=();
my $ArmRT=0;
my @AsmFileList=();
# make sure that some of the tool subroutines still work in case of Plat() does not exists in namespace main
my $Plat = main::Plat() if defined &main::Plat;
my ($RVCTMajorVersion, $RVCTMinorVersion, $RVCTBuildNumber) = RVCT_plat2set::get_version_list($Plat);
my $RVCTVersion = "$RVCTMajorVersion.$RVCTMinorVersion";
my $RVCTPatchLevel = 0;
sub Armutl_Help_Mmp {
# provide the help text for START <armedg platforms> END blocks
print
"ARMINC // include value of RVCT*INC environment variable to search paths\n",
"ARMLIBS // list the ARM supplied libraries to be linked against\n",
"ARMRT // indicates this target froms part of the runtime and so\n",
" // shouldn't be linked against itself or other runtime libs\n",
"ARMNAKEDASM // list .cpp files subject to auto-translation from GCC inline asm to ARM embedded asm\n"
;
}
sub Armutl_DoMmp (@) { # takes platform text
my @PlatTxt=@_;
my $BaseTrg=&main::BaseTrg;
my $BasicTrgType=&main::BasicTrgType;
my $MakeFilePath=&main::MakeFilePath;
my $MMPFILE=&main::MmpFile;
my @UidList=&main::UidList;
# set up START ARMV5|THUMB2 ... END block module variables
my @MmpWarn=();
my $Line;
LINE: foreach $Line (@PlatTxt) {
my $LineInfo=shift @$Line;
$_=shift @$Line;
if (/^ARMINC$/o) {
$ArmInc = RVCT_plat2set::get_inc_path($Plat);
next LINE;
}
if (/^ARMRT$/o) {
$ArmRT = 1;
next LINE;
}
if (/^ARMLIBS$/o) {
my $LibVar = "RVCT${RVCTMajorVersion}${RVCTMinorVersion}LIB";
my $ArmLibDir = RVCT_plat2set::get_lib_path($Plat);
push @MmpWarn, "$LineInfo : No libraries specified for keyword ARMLIBS\n" unless @$Line;
while (@$Line) {
my $lib = shift @$Line;
my $lib_path = RVCT_plat2set::find_lib( $Plat, $lib );
if ($lib_path)
{
push @ArmLibList, $lib_path;
}
else
{
push @MmpWarn, "$LineInfo : arm library file $lib not found.\n" ;
}
}
next LINE;
}
if (/^ARMNAKEDASM$/o) {
push @MmpWarn, "$LineInfo : No files specified for keyword ARMNAKEDASM\n" unless @$Line;
push @AsmFileList, @$Line;
next LINE;
}
push @MmpWarn, "$LineInfo : Unrecognised Keyword \"$_\"\n";
}
undef $Line;
if (@MmpWarn) {
warn
"\nMMPFILE \"$MMPFILE\"\n",
"START .. END BLOCK WARNINGS(S)\n",
@MmpWarn,
"\n"
;
}
undef @MmpWarn;
}
sub Armutl_ArmIncDir() {
$ArmInc;
}
sub Armutl_ArmLibList() {
@ArmLibList;
}
sub Armutl_ArmRT() {
$ArmRT;
}
sub Armutl_AsmFileList() {
@AsmFileList;
}
sub Armutl_ArmVersion() {
return $RVCTVersion;
}
sub Armutl_RVCTMajorVersion() {
return $RVCTMajorVersion;
}
sub Armutl_RVCTMinorVersion() {
return $RVCTMinorVersion;
}
sub Armutl_RVCTPatchLevel() {
return $RVCTPatchLevel;
}
sub Armutl_RVCTBuildNumber() {
return $RVCTBuildNumber;
}
sub Armutl_ArmLibDir() {
my $LibVar = "RVCT${RVCTMajorVersion}${RVCTMinorVersion}LIB";
my $ArmLibDir = $ENV{$LibVar};
return $ArmLibDir;
}
1;