Sysdeftools additional support for merging misordered system definitions. More extensive validation. Minor bug fixes. Bash wrappers for perl scripts for unix installs.
# 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:
#
use FindBin; # for FindBin::Bin
use Getopt::Long;
my $PerlLibPath; # fully qualified pathname of the directory containing our Perl modules
BEGIN {
# check user has a version of perl that will cope
require 5.005_03;
# establish the path to the Perl libraries: currently the same directory as this script
$PerlLibPath = $FindBin::Bin; # X:/epoc32/tools
$PerlLibPath =~ s/\//\\/g; # X:\epoc32\tools
$PerlLibPath .= "\\";
}
use lib $PerlLibPath;
use E32env;
use CheckSource;
use FCLoggerUTL;
use featurevariantparser;
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
$ENV{MAKE} = 'make' unless defined $ENV{MAKE};
}
# command data structure
my %Commands=(
BUILD=>{
build=>1,
program=>1,
what=>1,
function=>'Combines commands EXPORT,MAKEFILE,LIBRARY,RESOURCE,TARGET,FINAL',
subcommands=>['EXPORT','MAKEFILE', 'LIBRARY', 'RESOURCE', 'TARGET', 'FINAL'],
savespace=>1,
instructionset=>1,
debug=>1,
no_debug=>1,
logfc=>1,
checksource=>1,
wrap=>1, #To support Compiler wrapper option along with BUILD command
},
CLEAN=>{
build=>1,
program=>1,
function=>'Removes everything built with ABLD TARGET',
what=>1,
},
CLEANALL=>{
program=>1,
function=>'Removes everything built with ABLD TARGET',
what=>1,
},
CLEANEXPORT=>{
function=>'Removes files created by ABLD EXPORT',
what=>1,
noplatform=>1,
},
CLEANMAKEFILE=>{
program=>1,
function=>'Removes files generated by ABLD MAKEFILE',
what=>1,
hidden=>1,
},
EXPORT=>{
noplatform=>1,
what=>1,
function=>'Copies the exported files to their destinations',
},
FINAL=>{
build=>1,
program=>1,
function=>'Allows extension makefiles to execute final commands',
},
FREEZE=>{
program=>1,
remove=>1,
function=>'Freezes exported functions in a .DEF file',
},
HELP=>{
noplatform=>1,
function=>'Displays commands, options or help about a particular command',
notest=>1,
},
LIBRARY=>{
program=>1,
function=>'Creates import libraries from the frozen .DEF files',
},
LISTING=>{
build=>1,
program=>1,
function=>'Creates assembler listing file for corresponding source file',
source=>1,
},
MAKEFILE=>{
program=>1,
function=>'Creates makefiles or IDE workspaces',
what=>1,
savespace=>1,
instructionset=>1,
debug=>1,
no_debug=>1,
logfc=>1,
wrap=>1, #To support Compiler wrapper option along with MAKEFILE command
},
REALLYCLEAN=>{
build=>1,
program=>1,
function=>'As CLEAN, but also removes exported files and makefiles',
what=>1,
subcommands=>['CLEANEXPORT', 'CLEAN', 'CLEANALL'],
},
RESOURCE=>{
build=>1,
program=>1,
function=>'Creates resource files, bitmaps and AIFs',
},
# ROMFILE=>{
# function=>'Under development - syntax not finalised',
# noverbose=>1,
# nokeepgoing=>1,
# hidden=>1,
# },
ROMFILE=>{
noverbose=>1,
build=>1,
program=>1,
function=>'generates an IBY file to include in a ROM'
},
SAVESPACE=>{
build=>1,
program=>1,
what=>1,
function=>'As TARGET, but deletes intermediate files on success',
hidden=>1, # hidden because only used internally from savespace flag
},
TARGET=>{
build=>1,
program=>1,
what=>1,
function=>'Creates the main executable and also the resources',
savespace=>1,
checksource=>1,
wrap=>1, #To support Compiler wrapper option along with TARGET command
},
TIDY=>{
build=>1,
program=>1,
function=>'Removes executables which need not be released',
}
);
# get the path to the bldmake-generated files
# we can perhaps work this out from the current working directory in later versions
my $BldInfDir;
my $PrjBldDir;
BEGIN {
$BldInfDir=shift @ARGV;
$PrjBldDir=$E32env::Data{BldPath};
$PrjBldDir=~s-^(.*)\\-$1-o;
$PrjBldDir.=$BldInfDir;
$PrjBldDir=~m-(.*)\\-o; # remove backslash because some old versions of perl can't cope
unless (-d $1) {
die "ABLD ERROR: Project Bldmake directory \"$PrjBldDir\" does not exist\n";
}
}
# check the platform module exists and then load it
BEGIN {
unless (-e "${PrjBldDir}Platform.pm") {
die "ABLD ERROR: \"${PrjBldDir}Platform.pm\" not yet created\n";
}
}
use lib $PrjBldDir;
use Platform;
# change directory to the BLD.INF directory - we might begin to do
# things with relative paths in the future.
chdir($BldInfDir) or die "ABLD ERROR: Can't CD to \"$BldInfDir\"\n";
# MAIN PROGRAM SECTION
{
# PROCESS THE COMMAND LINE
my %Options=();
unless (@ARGV) {
&Usage();
}
# Process options and check that all are recognised
# modified start: added functionality checkwhat
unless (GetOptions(\%Options, 'checkwhat|cw','check|c', 'keepgoing|k', 'savespace|s', 'verbose|v',
'what|w', 'remove|r', 'instructionset|i=s',
'checksource|cs', 'debug','no_debug', 'logfc|fc','wrap:s')) {
exit 1;
}
# modified end: added functionality checkwhat
# check the option combinations
# modified start: added functionality checkwhat
if ($Options{checkwhat} ) {
$Options{check}=1;
}
# modified end: added functionality checkwhat
if (($Options{check} and $Options{what})) {
&Options;
}
if (($Options{check} or $Options{what}) and ($Options{keepgoing} or $Options{savespace} or $Options{verbose})) {
&Options();
}
if ($Options{checksource} and $Options{what}) {
&Options();
}
# take the test parameter out of the command-line if it's there
my $Test='';
if (@ARGV && $ARGV[0]=~/^test$/io) {
$Test='test';
shift @ARGV;
}
# if there's only the test parameter there, display usage
unless (@ARGV) {
&Usage();
}
# get the command parameter out of the command line
my $Command=uc shift @ARGV;
unless (defined $Commands{$Command}) {
&Commands();
}
my %CommandHash=%{$Commands{$Command}};
# check the test parameter is not specified where it shouldn't be
if ($Test and $CommandHash{notest}) {
&Help($Command);
}
# check the options are suitable for the commands
# -verbose and -keepgoing have no effect in certain cases
if ($Options{what} or $Options{check}) {
unless ($CommandHash{what}) {
&Help($Command);
}
}
#Function Call Logger
if ($Options{logfc}) {
unless ($CommandHash{logfc}) {
&Help($Command);
}
}
if ($Options{savespace}) {
unless ($CommandHash{savespace}) {
&Help($Command);
}
}
if ($Options{instructionset}) {
unless ($CommandHash{instructionset}) {
&Help($Command);
}
}
if ($Options{debug}) {
unless ($CommandHash{debug}) {
&Help($Command);
}
}
if ($Options{no_debug}) {
unless ($CommandHash{no_debug}) {
&Help($Command);
}
}
if ($Options{keepgoing}) {
if ($CommandHash{nokeepgoing}) {
&Help($Command);
}
}
if ($Options{verbose}) {
if ($CommandHash{noverbose}) {
&Help($Command);
}
}
if ($Options{remove}) {
unless ($CommandHash{remove}) {
&Help($Command);
}
}
if ($Options{checksource}) {
unless ($CommandHash{checksource}) {
&Help($Command);
}
}
#Compiler Wrapper support
if (exists $Options{wrap}) {
unless ($CommandHash{wrap}) {
&Help($Command);
}
}
# process help command if necessary
if ($Command eq 'HELP') {
if (@ARGV) {
my $Tmp=uc shift @ARGV;
if (defined $Commands{$Tmp}) {
&Help($Tmp);
}
elsif ($Tmp eq 'OPTIONS') {
&Options();
}
elsif ($Tmp eq 'COMMANDS') {
&Commands();
}
}
&Usage();
}
# process parameters
my ($Plat, $Bld, $Program, $Source)=('','','','');
my %MakefileVariations;
my $FeatureVariantArg;
# platform parameter first
unless ($CommandHash{noplatform}) {
unless ($Plat=uc shift @ARGV) {
$Plat='ALL'; # default
}
else {
# Explicit feature variant platforms take the form <base platform>.<variant name>
# e.g. armv5.variant1.
# If valid, we actually create and invoke a distinct variation of the "base" makefile
if ($Plat =~ /^(\S+)\.(\S+)$/)
{
$Plat = $1;
$FeatureVariantArg = uc($2);
if (!$Platform::FeatureVariantSupportingPlats{$Plat})
{
die "This project does not support platform \"$Plat\.$FeatureVariantArg\"\n";
}
else
{
$MakefileVariations{$Plat} = &GetMakefileVariations($Plat, $FeatureVariantArg);
}
}
COMPARAM1 : {
if (grep(/^$Plat$/, ('ALL', @Platform::Plats))) {
last COMPARAM1;
}
if ($Plat =~ /(.*)EDG$/) {
my $SubPlat = $1;
if (grep(/^$SubPlat$/, ('ALL', @Platform::Plats))) {
last COMPARAM1;
}
}
# check whether the platform might in fact be a build, and
# set the platform and build accordingly if it is
if ($CommandHash{build}) {
if ($Plat=~/^(UDEB|UREL|DEB|REL)$/o) {
$Bld=$Plat;
$Plat='ALL';
last COMPARAM1;
}
}
# check whether the platform might in fact be a program, and
# set the platform, build and program accordingly if it is
if ($CommandHash{program}) {
if (((not $Test) and grep /^$Plat$/, @{$Platform::Programs{ALL}})
or ($Test and grep /^$Plat$/, @{$Platform::TestPrograms{ALL}})) {
$Program=$Plat;
$Plat='ALL';
$Bld='ALL';
last COMPARAM1;
}
}
# report the error
if ($CommandHash{build} and $CommandHash{program}) {
die "This project does not support platform, build or $Test program \"$Plat\"\n";
}
if ($CommandHash{build} and not $CommandHash{program}) {
die "This project does not support platform or build \"$Plat\"\n";
}
if ($CommandHash{program} and not $CommandHash{build}) {
die "This project does not support platform or $Test program \"$Plat\"\n";
}
if (not ($CommandHash{build} or $CommandHash{program})) {
die "This project does not support platform \"$Plat\"\n";
}
}
}
}
#Compiler Wrapper support
my $CompilerWrapperFlagMacro = "";
if(exists $Options{wrap})
{
my $error = "Environment variable 'ABLD_COMPWRAP' is not set\n";
# If tool name for wrapping compiler is set in environment variable
if($ENV{ABLD_COMPWRAP})
{
$CompilerWrapperFlagMacro =" ABLD_COMPWRAP_FLAG=-wrap" . ($Options{wrap} ? "=$Options{wrap}":"");
}
elsif($Options{keepgoing})
{
# If Tool name is not set and keepgoing option is specified then ignore -wrap option and continue processing
print $error;
delete $Options{wrap};
}
else
{
# Issue error and exit if neither keepgoing option nor tool name is specified
die $error;
}
}
# process the build parameter for those commands which require it
if ($CommandHash{build}) {
unless ($Bld) {
unless ($Bld=uc shift @ARGV) {
$Bld='ALL'; # default
}
else {
COMPARAM2 : {
if ($Bld=~/^(ALL|UDEB|UREL|DEB|REL)$/o) {
# Change for TOOLS, TOOLS2 and VC6TOOLS platforms
if ($Plat ne 'ALL') {
if (($Plat!~/TOOLS2?$/o and $Bld=~/^(DEB|REL)$/o) or ($Plat=~/TOOLS2?$/o and $Bld=~/^(UDEB|UREL)$/o)) {
die "Platform \"$Plat\" does not support build \"$Bld\"\n";
}
}
last COMPARAM2;
}
# check whether the build might in fact be a program, and
# set the build and program if it is
if ($CommandHash{program}) {
if (((not $Test) and grep /^$Bld$/, @{$Platform::Programs{$Plat}})
or ($Test and grep /^$Bld$/, @{$Platform::TestPrograms{$Plat}})) {
$Program=$Bld;
$Bld='ALL';
last COMPARAM2;
}
my $Error="This project does not support build or $Test program \"$Bld\"";
if ($Plat eq 'ALL') {
$Error.=" for any platform\n";
}
else {
$Error.=" for platform \"$Plat\"\n";
}
die $Error;
}
my $Error="This project does not support build \"$Bld\"";
if ($Plat eq 'ALL') {
$Error.=" for any platform\n";
}
else {
$Error.=" for platform \"$Plat\"\n";
}
die $Error;
}
}
}
}
# get the program parameter for those commands which require it
if ($CommandHash{program}) {
unless ($Program) {
unless ($Program=uc shift @ARGV) {
$Program=''; #default - means ALL
}
else {
# check that the program is supported
unless (((not $Test) and grep /^$Program$/, @{$Platform::Programs{$Plat}})
or ($Test and grep /^$Program$/, @{$Platform::TestPrograms{$Plat}})) {
my $Error="This project does not support $Test program \"$Program\"";
if ($Plat eq 'ALL') {
$Error.=" for any platform\n";
}
else {
$Error.=" for platform \"$Plat\"\n";
}
die $Error;
}
}
}
}
# get the source file parameter for those commands which require it
if ($CommandHash{source}) {
unless ($Source=uc shift @ARGV) {
$Source=''; #default - means ALL
}
else {
$Source=" SOURCE=$Source";
}
}
# check for too many arguments
if (@ARGV) {
&Help($Command);
}
if ( $Options{instructionset} )
{ # we have a -i option.
if ($Plat eq 'ARMV5')
{
if ( !( ( uc( $Options{instructionset} ) eq "ARM") || ( uc( $Options{instructionset} ) eq "THUMB" ) ) ) {
# Only ARM and THUMB options are valid.
&Options();
}
}
else
{ # Can only use -i for armv5 builds.
&Options();
}
}
# process CHECKSOURCE_OVERRIDE
if ($ENV{CHECKSOURCE_OVERRIDE} && (($Plat =~ /^ARMV5/) || ($Plat eq 'WINSCW')) && ($Command eq 'TARGET') && !$Options{what})
{
$Options{checksource} = 1;
}
my $checksourceMakeVariables = " ";
if ($Options{checksource}) {
$checksourceMakeVariables .= "CHECKSOURCE_VERBOSE=1 " if ($Options{verbose});
}
# expand the platform list
my @Plats;
unless ($CommandHash{noplatform}) {
if ($Plat eq 'ALL') {
@Plats=@Platform::RealPlats;
# Adjust the "ALL" list according to the availability of compilers
@Plats=grep !/WINSCW$/o, @Plats unless (defined $ENV{MWSym2Libraries});
@Plats=grep !/WINS$/o, @Plats unless (defined $ENV{MSDevDir});
@Plats=grep !/X86$/o, @Plats unless (defined $ENV{MSDevDir});
@Plats=grep !/X86SMP$/o, @Plats unless (defined $ENV{MSDevDir});
@Plats=grep !/X86GCC$/o, @Plats unless (defined $ENV{MSDevDir});
@Plats=grep !/X86GMP$/o, @Plats unless (defined $ENV{MSDevDir});
if ($CommandHash{build}) {
# remove unnecessary platforms if just building for tools, or building everything but tools
# so that the makefiles for other platforms aren't created with abld build
if ($Bld=~/^(UDEB|UREL)$/o) {
@Plats=grep !/TOOLS2?$/o, @Plats;
}
elsif ($Bld=~/^(DEB|REL)$/o) {
@Plats=grep /TOOLS2?$/o, @Plats;
}
}
}
else
{
@Plats=($Plat);
}
foreach $Plat (@Plats)
{
# Skip platforms resolved above
next if $MakefileVariations{$Plat};
# Implicit feature variant platforms apply when a default feature variant exists and the platform supports it
# If valid, we actually create and invoke a distinct variation of the "base" makefile
if ($Platform::FeatureVariantSupportingPlats{$Plat} && featurevariantparser->DefaultExists())
{
if($Command eq "REALLYCLEAN")
{
my @myfeature = featurevariantparser->GetBuildableFeatureVariants();
push @{$MakefileVariations{$Plat}}, ".".$_ foreach(@myfeature);
}
else
{
$MakefileVariations{$Plat} = &GetMakefileVariations($Plat, "DEFAULT");
}
}
else
{
# For non-feature variant platforms we always store a single makefile variation of nothing i.e.
# we use the "normal" makefile generated for the platform
$MakefileVariations{$Plat} = &GetMakefileVariations($Plat, "");
}
}
foreach $Plat (@Plats) {
foreach my $makefileVariation (@{$MakefileVariations{$Plat}}) {
unless (-e "$PrjBldDir$Plat$makefileVariation$Test.make") {
die "ABLD ERROR: \"$PrjBldDir$Plat$makefileVariation$Test.make\" not yet created\n";
}
}
}
undef $Plat;
}
# set up a list of commands where there are sub-commands
my @Commands=($Command);
if ($CommandHash{subcommands}) {
@Commands=@{$CommandHash{subcommands}};
if ($Command eq 'BUILD') { # avoid makefile listings here
if ($Options{what} or $Options{check}) {
@Commands=grep !/^MAKEFILE$/o, @{$CommandHash{subcommands}};
}
}
}
# implement savespace if necessary
if ($Options{savespace}) {
foreach $Command (@Commands) {
if ($Command eq 'TARGET') {
$Command='SAVESPACE';
}
}
}
# set up makefile call flags and macros from the options
my $KeepgoingFlag='';
my $KeepgoingMacro='';
my $NoDependencyMacro='';
my $VerboseMacro=' VERBOSE=-s';
if ($Options{keepgoing}) {
$KeepgoingFlag=' -k';
$KeepgoingMacro=' KEEPGOING=-k';
}
if ($Options{verbose}) {
$VerboseMacro='';
}
my $RemoveMacro='';
if ($Options{remove}) {
$RemoveMacro=' EFREEZE_ALLOW_REMOVE=1';
}
if ( ($Options{savespace}) and ($Options{keepgoing}) ){
$NoDependencyMacro=' NO_DEPENDENCIES=-nd';
}
my $AbldFlagsMacro="";
$AbldFlagsMacro = "-iarm " if (uc $Options{instructionset} eq "ARM");
$AbldFlagsMacro = "-ithumb " if (uc $Options{instructionset} eq "THUMB");
if ($Options{debug}) {
$AbldFlagsMacro .= "-debug ";
}
elsif($Options{no_debug}) {
$AbldFlagsMacro .= "-no_debug ";
}
#Function call logging flag for makmake
if ($Options{logfc}) {
#Check the availability and version of logger
if (&FCLoggerUTL::PMCheckFCLoggerVersion()) {
$AbldFlagsMacro .= "-logfc ";
}
}
if(!($AbldFlagsMacro eq "") ){
$AbldFlagsMacro =" ABLD_FLAGS=\"$AbldFlagsMacro\"";
}
# set up a list of make calls
my @Calls;
# handle the exports related calls first
if (($Command)=grep /^(.*EXPORT)$/o, @Commands) { # EXPORT, CLEANEXPORT
unless (-e "${PrjBldDir}EXPORT$Test.make") {
die "ABLD ERROR: \"${PrjBldDir}EXPORT$Test.make\" not yet created\n";
}
unless ($Options {checksource}) {
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
unless ($Options{what} or $Options{check}) {
push @Calls, "$ENV{MAKE} -r $KeepgoingFlag -f \"${PrjBldDir}EXPORT$Test.make\" $Command$VerboseMacro$KeepgoingMacro";
}
else {
push @Calls, "$ENV{MAKE} -r -f \"${PrjBldDir}EXPORT$Test.make\" WHAT";
}
}
else {
unless ($Options{what} or $Options{check}) {
push @Calls, "make -r $KeepgoingFlag -f \"${PrjBldDir}EXPORT$Test.make\" $Command$VerboseMacro$KeepgoingMacro";
}
else {
push @Calls, "make -r -f \"${PrjBldDir}EXPORT$Test.make\" WHAT";
}
}
}
@Commands=grep !/EXPORT$/o, @Commands;
}
# then do the rest of the calls
COMMAND: foreach $Command (@Commands) {
if ($Options {checksource} && ($Command eq "TARGET" || $Command eq "SAVESPACE")) {
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
push @Calls, "$ENV{MAKE} -r -f \"".$PrjBldDir."EXPORT.make\"".$checksourceMakeVariables."CHECKSOURCE";
}
else {
push @Calls, "make -r -f \"".$PrjBldDir."EXPORT.make\"".$checksourceMakeVariables."CHECKSOURCE";
}
}
my $Plat;
PLATFORM: foreach $Plat (@Plats) {
# set up a list of builds to carry out commands for if appropriate
my @Blds=($Bld);
if (${$Commands{$Command}}{build}) {
if ($Bld eq 'ALL') {
unless ($Plat=~/TOOLS2?$/o) { # change for platforms TOOLS, TOOLS2 and VC6TOOLS
@Blds=('UDEB', 'UREL');
}
else {
@Blds=('DEB', 'REL');
}
}
else {
# check the build is suitable for the platform - TOOLS, TOOLS2 and VC6TOOLS are annoyingly atypical
unless (($Plat!~/TOOLS2?$/o and $Bld=~/^(UDEB|UREL)$/o) or ($Plat=~/TOOLS2?$/o and $Bld=~/^(DEB|REL)$/o)) {
next;
}
}
}
else {
@Blds=('IRRELEVANT');
}
# You get CHECKSOURCE_GENERIC "for free" if no component is specified in the call
if ($Options {checksource} && ($Command eq "TARGET" || $Command eq "SAVESPACE") && $Program) {
foreach my $makefileVariation (@{$MakefileVariations{$Plat}}) {
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
push @Calls, "$ENV{MAKE} -r -f \"$PrjBldDir$Plat$makefileVariation$Test.make\"".$checksourceMakeVariables."CHECKSOURCE_GENERIC";
}
else {
push @Calls, "make -r -f \"$PrjBldDir$Plat$makefileVariation$Test.make\"".$checksourceMakeVariables."CHECKSOURCE_GENERIC";
}
}
}
my $LoopBld;
foreach $LoopBld (@Blds) {
my $CFG='';
if ($LoopBld ne 'IRRELEVANT') {
$CFG=" CFG=$LoopBld";
}
if ($Options {checksource}) {
if ($Command eq "TARGET" || $Command eq "SAVESPACE") {
foreach my $makefileVariation (@{$MakefileVariations{$Plat}}) {
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
push @Calls, "$ENV{MAKE} -r -f \"$PrjBldDir$Plat$makefileVariation$Test.make\"".$checksourceMakeVariables."CHECKSOURCE$Program$CFG";
}
else {
push @Calls, "make -r -f \"$PrjBldDir$Plat$makefileVariation$Test.make\"".$checksourceMakeVariables."CHECKSOURCE$Program$CFG";
}
}
}
next;
}
unless ($Options{what} or $Options{check}) {
if ($Program) { # skip programs if they're not supported for a platform
unless ($Test) {
unless (grep /^$Program$/, @{$Platform::Programs{$Plat}}) {
next PLATFORM;
}
}
else {
unless (grep /^$Program$/, @{$Platform::TestPrograms{$Plat}}) {
next PLATFORM;
}
}
}
my $AbldFlagsMacroTmp="";
my $CompilerWrapperFlagMacroTemp="";
if ($Command eq "MAKEFILE")
{ # Only want ABLD_FLAGS for Makefile
$AbldFlagsMacroTmp=$AbldFlagsMacro;
if(exists ($Options{wrap}))
{
# Require ABLD_COMPWRAP_FLAG when --wrap option is specified
$CompilerWrapperFlagMacroTemp = $CompilerWrapperFlagMacro;
}
}
foreach my $makefileVariation (@{$MakefileVariations{$Plat}}) {
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
if ( ($Command eq "TARGET") && (-e $PerlLibPath . "tracecompiler.pl") )
{
not scalar grep(/tracecompiler\.pl $Plat/,@Calls) and push @Calls, "perl " . $PerlLibPath . "tracecompiler.pl $Plat $Program";
}
push @Calls, "$ENV{MAKE} -r $KeepgoingFlag -f \"$PrjBldDir$Plat$makefileVariation$Test.make\""
." $Command$Program$CFG$Source$VerboseMacro" .
"$KeepgoingMacro$RemoveMacro$NoDependencyMacro" .
"$AbldFlagsMacroTmp$CompilerWrapperFlagMacroTemp";
#Compiler Wrapper support
if ( exists($Options{wrap}) && ($Options{wrap} eq "") && ($Command eq "TARGET") )
{
my $CFGCOMPWRAP='';
if ($LoopBld ne 'IRRELEVANT')
{
$CFGCOMPWRAP =" CFG=COMPWRAP".$LoopBld;
}
push @Calls, "$ENV{MAKE} -r $KeepgoingFlag -f \"$PrjBldDir$Plat$makefileVariation$Test.make\""." TARGET$Program$CFGCOMPWRAP";
}
}
else {
push @Calls, "make -r $KeepgoingFlag -f \"$PrjBldDir$Plat$makefileVariation$Test.make\""
." $Command$Program$CFG$Source$VerboseMacro" .
"$KeepgoingMacro$RemoveMacro$NoDependencyMacro" .
"$AbldFlagsMacroTmp$CompilerWrapperFlagMacroTemp";
#Compiler Wrapper support
if ( exists($Options{wrap}) && ($Options{wrap} eq "") && ($Command eq "TARGET") )
{
my $CFGCOMPWRAP='';
if ($LoopBld ne 'IRRELEVANT')
{
$CFGCOMPWRAP =" CFG=COMPWRAP".$LoopBld;
}
push @Calls, "make -r $KeepgoingFlag -f \"$PrjBldDir$Plat$makefileVariation$Test.make\""." TARGET$Program$CFGCOMPWRAP";
}
}
}
next;
}
unless (${$Commands{$Command}}{what}) {
next COMMAND;
}
if ($Program) { # skip programs if they're not supported for a platform
unless ($Test) {
unless (grep /^$Program$/, @{$Platform::Programs{$Plat}}) {
next PLATFORM;
}
}
else {
unless (grep /^$Program$/, @{$Platform::TestPrograms{$Plat}}) {
next PLATFORM;
}
}
}
my $Makefile='';
if ($Command=~/MAKEFILE$/o) {
$Makefile='MAKEFILE';
}
foreach my $makefileVariation (@{$MakefileVariations{$Plat}}) {
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
push @Calls, "$ENV{MAKE} -r -f \"$PrjBldDir$Plat$makefileVariation$Test.make\" WHAT$Makefile$Program $CFG";
}
else {
push @Calls, "make -r -f \"$PrjBldDir$Plat$makefileVariation$Test.make\" WHAT$Makefile$Program $CFG";
}
}
}
}
}
# make the required calls
my $Call;
my %checkSourceUniqueOutput;
unless ($Options{what} or $Options{check}) {
foreach $Call (@Calls) {
print " $Call\n" unless ($Options{checksource} && !$Options {verbose});
open PIPE, "$Call |";
$|=1; # bufferring is disabled
while (<PIPE>) {
if ($Options {checksource})
{
if ($Options{verbose})
{
print $_;
}
else
{
$checkSourceUniqueOutput{$_} = 1;
}
}
else
{
print;
}
}
close PIPE;
}
print $_ foreach (sort keys %checkSourceUniqueOutput);
}
else {
my %WhatCheck; # check for duplicates
foreach $Call (@Calls) {
open PIPE, "$Call |";
while (<PIPE>) {
next if (/(Nothing to be done for|Entering directory|Leaving directory) \S+\.?$/o);
# releasables split on whitespace - quotes possible -stripped out
while (/("([^"\t\n\r\f]+)"|([^ "\t\n\r\f]+))/go) {
my $Releasable=($2 ? $2 : $3);
$Releasable =~ s/\//\\/g; # convert forward slash into backslash
unless ($WhatCheck{$Releasable}) {
$WhatCheck{$Releasable}=1;
if ($Options{what}) {
print "$Releasable\n";
}
else {
if (!-e $Releasable) {
print STDERR "MISSING: $Releasable\n";
}
# modified start: added functionality checkwhat
elsif ($Options{checkwhat}) {
print "$Releasable\n";
}
# modified end: added functionality checkwhat
}
}
}
}
close PIPE;
}
}
}
sub Usage () {
print <<ENDHERESTRING;
Common usage : abld [test] command [options] [platform[.Feature Variant]] [build] [program]
where command is build, target, etc.
(type \"abld help commands\" for a list of commands)
where options are -c, -k, etc.
(type \"abld help options\" for a list of options)
where parameters depend upon the command
(type \"abld help <command>\" for command-specific help)
where parameters default to 'ALL' if unspecified
ENDHERESTRING
print
"project platforms:\n",
" @Platform::Plats\n"
;
if (%Platform::FeatureVariantSupportingPlats)
{
my @featureVariants;
foreach my $featureVariantSupportingPlat (keys %Platform::FeatureVariantSupportingPlats)
{
push @featureVariants, $featureVariantSupportingPlat.".".$_ foreach (featurevariantparser->GetValidVariants());
}
if (@featureVariants)
{
@featureVariants = map{uc($_)} @featureVariants;
print
"feature variant platforms:\n",
" @featureVariants\n";
}
}
exit 1;
}
# modified start: added functionality checkwhat
sub Options () {
print <<ENDHERESTRING;
Options (case-insensitive) :
-c or -check check the releasables are present
-cw or -checkwhat combined check and what
-k or -keepgoing build unrelated targets on error
-s or -savespace delete intermediate files on success
-v or -verbose display tools calls as they happen
-w or -what list the releasables
-r or -remove allow FREEZE to remove exports
-i thumb or -i arm override for build ARMV5 platform options
-cs or -checksource checks source conformance to Symbian's filename policy
-debug or -no_debug enable/disable generation of symbolic debug information for ARM ABI compliant platforms
-fc or -logfc enable function call logging
-wrap[=proxy] enable invocation of external wrapper tool
possible combinations :
(([-check]|[-what]|[-checkwhat])|([-k][-s][-v][-i [thumb|arm]][-cs][-debug|-no_debug][-fc][-wrap[=proxy]]))
ENDHERESTRING
exit;
}
# modified end: added functionality checkwhat
sub Help ($) {
my ($Command)=@_;
my %CommandHash=%{$Commands{$Command}};
print 'ABLD';
unless ($CommandHash{notest}) {
print ' [test]';
}
print " $Command ";
if ($Command eq 'HELP') {
print '([OPTIONS|COMMANDS]|[<command>])';
}
else {
if ($CommandHash{what}) {
print '(([-c]|[-w])|';
}
if ($CommandHash{savespace}) {
print '[-s]';
}
if ($CommandHash{instructionset}) {
print '[-i thumb|arm]';
}
if ($CommandHash{remove}) {
print '[-r]';
}
if ($CommandHash{checksource}) {
print '[-cs]';
}
unless ($CommandHash{nokeepgoing}) {
print '[-k]';
}
unless ($CommandHash{noverbose}) {
print '[-v]';
}
if ($CommandHash{debug}) {
print '[-debug|-no_debug]';
}
if ($CommandHash{logfc}) {
print '[-logfc]|[-fc]';
}
if ($CommandHash{what}) {
print '))';
}
unless ($CommandHash{noplatform}) {
print ' [<platform>]';
}
if ($CommandHash{build}) {
print ' [<build>]';
}
if ($CommandHash{program}) {
print ' [<program>]';
}
if ($CommandHash{source}) {
print ' [<source>]';
}
if ($CommandHash{wrap}) {
print '[-wrap[=proxy]]';
}
}
print
"\n",
"\n",
"$CommandHash{function}\n"
;
exit;
}
sub Commands () {
print "Commands (case-insensitive):\n";
foreach (sort keys %Commands) {
next if ${$Commands{$_}}{hidden};
my $Tmp=$_;
while (length($Tmp) < 12) {
$Tmp.=' ';
}
print " $Tmp ${$Commands{$_}}{function}\n";
}
exit;
}
sub GetMakefileVariations ($$)
{
my ($plat, $featureVariantArg) = @_;
my @variations = ();
if (!$featureVariantArg)
{
push @variations, "";
}
else
{
my @resolvedVariants = featurevariantparser->ResolveFeatureVariant($featureVariantArg);
# modified start: makefile improvement
my %temp_hash =("default" => "");
foreach (@resolvedVariants){
$temp_hash{$_}="";
}
push @variations, ".".$_ foreach (keys %temp_hash);
}
# modified end: makefile improvement
return \@variations;
}