# Copyright (c) 2004-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:
#
# Full build
use strict;
my $ARGC = @ARGV;
if (($ARGV[0] eq "-h") ||
($ARGV[0] eq "--h") ||
($ARGV[0] eq "-help") ||
($ARGV[0] eq "--help") ||
($ARGV[0] eq "help")
)
{
print "fullMmBuild\n\n";
print "Syntax : fullMmBuild [-x] [-k] [-c] [-f] [-eabi] [-y] [-a] [-g] [-s] [-dir=directory] [-a3flog]\n";
print "-x include optional elements\n";
print "-k keep going\n";
print "-c clean build\n";
print "-f build A3F and A3F DevSound instead of Legacy DevSound\n";
print "-l build Legacy DevSound instead of A3F (ignored if -f given)\n";
print "-eabi build rom for armv5 EABI\n";
print "-arm4 build the extra components for arm4\n";
print "-y build for ccover (wins only)\n";
print "-a call mmbuildrom with MMAutoExec.iby\n";
print "-g include build of gccxml target, to allow check of BC etc\n";
print "-s skip setup and makefile stages (useful on rebuild following minor changes)\n";
print "-dir location of TestTools\\Build directory\n";
print "-a3flog enables A3F logging\n";
print "-iclTestdata builds ICL test data\n";
exit 0;
}
use Getopt::Long;
my %optctl = ();
keys(%optctl)=8;
unless (GetOptions (\%optctl, "x", "c", "k", "f", "eabi" ,"y", "a", "g", "s", "l", "dir=s","arm4","a3flog","iclTestdata"))
{exit 1;}
my $ccover_target = "wins";
my $eka2IdentifyFile = "$ENV{EPOCROOT}epoc32\\release\\winscw\\udeb\\winsgui.dll"; # if file present, is EKA2 build
my $x86gccIdentifyFile = "$ENV{EPOCROOT}epoc32\\release\\x86gcc\\udeb\\euser.dll"; # if file present, x86 environment present
# main
{
my $auto = "-a " if ($optctl{"a"});
my $optional = "-x " if ($optctl{"x"});
my $eabi = "-eabi " if ($optctl{"eabi"});
my $keep = "-k " if ($optctl{"k"});
my $target = ""; # default to all
my $gccxml = "-g " if ($optctl{"g"});
my $skipSetup = "-s " if ($optctl{"s"});
my $iclTest = " --iclTestdata " if ($optctl{"iclTestdata"});
$target = " " . $ccover_target if ($optctl{"y"});
################## A3F Section #######################################
my $a3f_define = 'SYMBIAN_MULTIMEDIA_A3FDEVSOUND';
my $search_item = '#define\s+'.$a3f_define; # looking for this
my $hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\Symbian_OS.hrh"; # assign hrh file and location
my $found_search_item = 0; #false
# print "HRH filename is : $hrh_filename\n";
if ($optctl{"f"})
{
# This displays the content of the hash table
# use it to confirm the "f" entry has been added.
#
# my $key; # holds the command line options
# my $value; # redundant for hash entry as only a key is used.
# while (($key, $value) = each(%optctl))
# {
# print $key.", ".$value."\n";
# }
# opens up the hrh file for reading
open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
my @file_data=<FILEHANDLE>; # read all file data into array
#check the contents of the array (i.e. the contents of the file)
for(@file_data)
{
# print "$_\n"; #display the line in the file
# search line for string of interest: =~ is equals, !~ is not equal
if(($_ =~ m/$search_item/i))
{
$found_search_item = 1; #found the macro
# print "Search item found: $_\n"; #display the line containing the search item
}
else
{
# Search item not found, do nothing
}
} #for loop
close(FILEHANDLE) or die "Can't close file $hrh_filename.\n"; # readonly file
if(!$found_search_item) #search item has not been found
{
# print warning
print "Modifying file $hrh_filename to enable A3F as -f flag has been used.\n";
# open file for append
open(FILEHANDLE, ">>", $hrh_filename) or die "Unable to open $hrh_filename for appending. $!\n";
print FILEHANDLE "\n#define $a3f_define\n"; # append macro to the file
close(FILEHANDLE) or die "Can't close appended file $hrh_filename.\n"; # readonly file
}
# Now remove the "f" from the hash table so there is no chance of it being passed
# to mmbuildrom.
######## NOTE removal of flag from Hash table ############
delete($optctl{f});
# This displays the content of the hash table
# use it to confirm the "f" entry has been removed.
#
# while (($key, $value) = each(%optctl))
# {
# print $key.", ".$value."\n";
# }
} # if $optctl{"f"}
elsif ($optctl{"l"})
{
########### Remove the macro from the hrh as "-l" but not "-f" is specified ###############
$found_search_item = 0 ; # false
# opens up the original hrh file for reading
open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
# temporary file
my $temp_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\temp_Symbian_OS.hrh";
# open temporary file for writing
open(TEMPFILEHANDLE, ">", $temp_hrh_filename) or die "can't open tempory file $temp_hrh_filename. $!\n";
my @file_data=<FILEHANDLE>; # read all original hrh file data into array
#check the contents of the array (i.e. the contents of the file)
for(@file_data)
{
# print "$_\n"; #display the line in the file
# search line for string of interest: =~ is equals, !~ is not equal
if(($_ =~ m/(.*)$search_item(.*)/i))
{
#display a warning message (only do so once)
if( !$found_search_item )
{
print "Modifying file $hrh_filename to disable A3F as -l has been given.\n";
}
# write line excluding the #define bit to temp file. (to preserve any other bits in this line. e.g.: comment delimiters)
print TEMPFILEHANDLE $1." ".$2."\n";
$found_search_item = 1 ; # true
# Do not write line to the file as we want to remove it.
}
else
{
print TEMPFILEHANDLE $_; # copy unchanged line to temporary file
}
} #for loop
close(FILEHANDLE) or die "Can't close file $hrh_filename.$!\n"; # readonly file
close(TEMPFILEHANDLE) or die "Can't close file $temp_hrh_filename. $!\n"; # temp file
if($found_search_item)
{
my $orig_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\orig.hrh";
rename($hrh_filename, $orig_hrh_filename) or die "can't rename $hrh_filename to $orig_hrh_filename: $!\n";
rename($temp_hrh_filename, $hrh_filename) or die "can't rename $temp_hrh_filename to $hrh_filename: $!\n";
unlink $orig_hrh_filename; # delete the original as it is no longer needed
}
else
{
unlink $temp_hrh_filename; # no changes to be made so delete the temporary file
}
} # main else for A3F
################## End A3F Section ####################################
################## A3F Logging Section ####################################
my $search_item = "SYMBIAN_MULTIMEDIA_A3F_ENABLE_LOGGING"; # looking for this
my $hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\Symbian_OS.hrh"; # assign hrh file and location
my $found_search_item = 0; #false
if ($optctl{"a3flog"})
{
# opens up the hrh file for reading
open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
my @file_data=<FILEHANDLE>; # read all file data into array
#check the contents of the array (i.e. the contents of the file)
for(@file_data)
{
# search line for string of interest: =~ is equals, !~ is not equal
if(($_ =~ m/$search_item/i))
{
$found_search_item = 1; #found the macro
}
else
{
# Search item not found, do nothing
}
} #for loop
close(FILEHANDLE) or die "Can't close file $hrh_filename.\n"; # readonly file
if(!$found_search_item) #search item has not been found
{
# open file for append
open(FILEHANDLE, ">>", $hrh_filename) or die "Unable to open $hrh_filename for appending. $!\n";
print FILEHANDLE "\n#define $search_item\n"; # append macro to the file
close(FILEHANDLE) or die "Can't close appended file $hrh_filename.\n"; # readonly file
}
# Now remove the "log" from the hash table so there is no chance of it being passed
# to anything called in this file.
######## NOTE removal of flag from Hash table ############
delete($optctl{log});
} # if $optctl{"log"}
else
{
########### Remove the macro from the hrh as "-a3flog" is not specified ###############
$found_search_item = 0 ; # false
# opens up the original hrh file for reading
open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
# temporary file
my $temp_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\temp_Symbian_OS.hrh";
# open temporary file for writing
open(TEMPFILEHANDLE, ">", $temp_hrh_filename) or die "can't open tempory file $temp_hrh_filename. $!\n";
my @file_data=<FILEHANDLE>; # read all original hrh file data into array
#check the contents of the array (i.e. the contents of the file)
for(@file_data)
{
# search line for string of interest: =~ is equals, !~ is not equal
if(($_ =~ m/$search_item/i))
{
#display a warning message
print "Removing $_ from file $hrh_filename as -a3flog flag has not been used to indicate an A3F logging build is required.\n";
$found_search_item = 1 ; # true
# Do not write line to the file as we want to remove it.
}
else
{
# Ensure the last newline after the macro is not written to the file.
# the last new line was added by the macro append in the previous section.
# The asssumes the macro is the last entry in the file. If it is not then
# the if statement should be removed and the print statement left on its own
# to copy the last line to file.
if(!$found_search_item)
{
print TEMPFILEHANDLE $_; # copy unchanged line to temporary file
}
}
} #for loop
close(FILEHANDLE) or die "Can't close file $hrh_filename.$!\n"; # readonly file
close(TEMPFILEHANDLE) or die "Can't close file $temp_hrh_filename. $!\n"; # temp file
if($found_search_item)
{
my $orig_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\orig.hrh";
rename($hrh_filename, $orig_hrh_filename) or die "can't rename $hrh_filename to $orig_hrh_filename: $!\n";
rename($temp_hrh_filename, $hrh_filename) or die "can't rename $temp_hrh_filename to $hrh_filename: $!\n";
unlink $orig_hrh_filename; # delete the original as it is no longer needed
}
else
{
unlink $temp_hrh_filename; # no changes to be made so delete the temporary file
}
} # main else for A3F
################## End A3F Logging Section ####################################
if($optctl{"dir"})
{
my $dir = $optctl{"dir"};
chdir $dir or die "Can't cd $dir - $!";
}
my $targetToolsDir = "..\\..\\..\\..\\..\\TargetTools\\Build";
my $testToolsDir = "..\\..\\..\\..\\..\\os\\mm\\mmtestenv\\mmtesttools\\Build";
my $targetToolsExists = 0;
if (-d $targetToolsDir)
{
$targetToolsExists = 1;
print "TargetTools directory exists: $targetToolsDir\n"
}
# DEF113945:DRM tests fail due to the change from DEF112928
my $rtaUtilsDir = "..\\..\\..\\..\\..\\Rtautils\\Build";
my $rtaUtilsExists = 0;
if (-d $rtaUtilsDir)
{
$rtaUtilsExists = 1;
print "RtaUtils directory exists: $rtaUtilsDir\n";
}
# DEF113945:DRM tests fail due to the change from DEF112928
my $testExecuteDir = "..\\..\\..\\..\\..\\Testexecute\\Build";
my $testExecuteExists = 0;
if (-d $testExecuteDir)
{
$testExecuteExists = 1;
print "TestExecute directory exists: $testExecuteDir\n";
}
my $command;
# mmbuild [-x] [-k] setup
$command = "mmbuild " . $optional . $keep . "setup" . $iclTest;
if ($skipSetup ne "")
{
print "Skipping setup...\n";
}
else
{
(system ($command)==0 )or die "Couldn't execute $command";
}
if ($optctl{"c"})
{
# mmbuild -t clean (throw away result - so we ignore any no-export errors)
$command = "mmbuild -t clean >\$NULL 2>&1";
print $command, "\n";
(system ($command)==0 )or die "Couldn't execute $command";
}
# mmbuild [-k] [-g] build
$command = "mmbuild ". $keep. $gccxml. $skipSetup. "build" . $target . $iclTest;
(system ($command)==0 )or die "Couldn't execute $command";
# mmbuild -t [-k] build
$command = "mmbuild -t ". $keep. $skipSetup. "build" . $target . $iclTest;
(system ($command)==0 )or die "Couldn't execute $command";
# mmbuild -t -b [-k] build
$command = "mmbuild -t -b ". $keep. $skipSetup. "build" . $target . $iclTest;
(system ($command)==0 )or die "Couldn't execute $command";
if (!$optctl{"y"})
{
# DEF113945:DRM tests fail due to the change from DEF112928
if ($rtaUtilsExists)
{
$command = "testExtras_Rtautils";
chdir $rtaUtilsDir or die "Can't cd $rtaUtilsDir - $!";
(system ($command)==0 )or die "Couldn't execute $command";
chdir $testToolsDir or die "Can't cd $testToolsDir - $!";
}
# DEF113945:DRM tests fail due to the change from DEF112928
if($testExecuteExists)
{
$command = "testExtras_Testexecute";
chdir $testExecuteDir or die "Can't cd $testExecuteDir - $!";
(system ($command)==0 )or die "Couldn't execute $command";
chdir $testToolsDir or die "Can't cd $testToolsDir - $!";
}
# mmBuildRom [-x]
$command = "mmBuildRom -t -d " .$auto . $optional .$eabi;
print $command, "\n";
(system ($command)==0 )or die "Couldn't execute $command";
}
}