## @file BuildEnvXML.pl
# @ingroup userscripts clientscripts
#
# Uses information which is defined in the BuildEnvXML.xml to set up a machine
# specific environment, such as path for compilers. 
#
# @todo Document this script.
#
# Copyright (c) 2009 Symbian Foundation  Ltd. All rights reserved.
#

package BuildEnvXML;

use Getopt::Long;
use BuildEnvXML qw(&getToolEnvironment &getLastErrorMsg);

my $toolenvxml = "";
my $dbgfile = "";
my $sbsconfig = "";
my $toolsconfig = "";

GetOptions ("xml=s" => \$toolenvxml, "dbg:s" => \$dbgfile, "sbs:s" => \$sbsconfig, "tools:s" => \$sbsconfig); 

my @contexts = @ARGV;

if ($toolenvxml eq "")
{
	print ("ERROR: XML file cannot be found!\n");
}

# Checking the SBS config to test only what's necessary for that build
if ($sbsconfig =~ /armv5/i)
{
	push @contexts, "ARMv5";
}

# Checking the tools config to test only what's necessary for that build
if ($sbsconfig =~ /tools[^2]?(,|$|_)/i)
{
	push @contexts, "tools";
}

my $sErrMsg;
my $result = 0;

if (-e $dbgfile)
{
	unlink($dbgfile);
}

&setDbgFile($dbgfile);

foreach my $context (@contexts){
	print "\n\n### Checking $context Tools ###\n";
	my $sSystemPath = &getToolEnvironment($toolenvxml, $context);

	$sErrMsg = &getLastErrorMsg;
	if ($sErrMsg eq "") { $sErrMsg = "\nAll OK.\n";}
	if($sErrMsg =~ /ERROR/)
	{
		print "\n$context Tools VERIFICATION FAILED:";
		print $sErrMsg."\n\n";
		$result = -1;
	}else{
		print "\n$context tools VERIFICATION PASSED:";
		print $sErrMsg."\n\n";
	}
}
if ($result ne 0)
{
	print "\n ==> PROGRAM STOPPED!!\n";
}
exit($result);