# 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 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:

#

use strict;

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