sl@0: # Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description:
sl@0: #
sl@0: 
sl@0: # Full build equiv that builds WINSCW targets only
sl@0: 
sl@0: use strict;
sl@0: 
sl@0: my $ARGC = @ARGV;
sl@0: if  (($ARGV[0] eq "-h") ||
sl@0:      ($ARGV[0] eq "--h") ||
sl@0:      ($ARGV[0] eq "-help") ||
sl@0:      ($ARGV[0] eq "--help") ||
sl@0:      ($ARGV[0] eq "help")
sl@0: 	 )
sl@0: 	{
sl@0: 	print "\n";
sl@0: 	print "winsMmBuild - Builds for WINSCW only\n\n";
sl@0: 	print "Syntax :	winsMmBuild [-x] [-k] [-c] [-dir=directory] [-a3flog]\n";
sl@0: 	print "-cw		WINSCW build - NOTE: does nothing as this is default\n";
sl@0: 	print "-x		include optional elements\n";
sl@0: 	print "-f		build A3F DevSound instead of DevSound\n";
sl@0: 	print "-l		build Legacy DevSound instead of A3F (ignored if -f given)\n";
sl@0: 	print "-k		keep going\n";
sl@0: 	print "-c		clean build\n";
sl@0: 	print "-dir		location of TestTools\\Build directory\n";
sl@0: 	print "-a3flog		enables A3F logging\n";
sl@0: 	print "-iclTestdata	builds ICL test data\n";
sl@0: 	exit 0;
sl@0: 	}
sl@0: 
sl@0: 
sl@0: use Getopt::Long;
sl@0: my %optctl = ();
sl@0: keys(%optctl)=5;
sl@0: unless (GetOptions (\%optctl, "x", "f", "l", "c", "cw" , "k", "dir=s", "a3flog","iclTestdata")) 
sl@0:   {exit 1;}
sl@0: 
sl@0: my $ccover_target = "winscw";
sl@0: 
sl@0: 	my $targetToolsDir = "..\\..\\..\\..\\..\\TargetTools\\Build";
sl@0: 	my $testToolsDir = "..\\..\\mmtesttools\\Build";
sl@0: 	my $targetToolsExists = 0;
sl@0: 	if (-d $targetToolsDir)
sl@0: 		{
sl@0: 		$targetToolsExists = 1;
sl@0: 		print "TargetTools directory exists: $targetToolsDir\n"
sl@0: 		}
sl@0: 
sl@0: # main 
sl@0: 	{
sl@0: 	
sl@0: 	##################  A3F Section #######################################
sl@0: 	my $a3f_define = 'SYMBIAN_MULTIMEDIA_A3FDEVSOUND';
sl@0: 	my $search_item = '#define\s+'.$a3f_define;  # looking for this
sl@0: 	my $hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\Symbian_OS.hrh"; # assign hrh file and location
sl@0: 	my $found_search_item = 0; #false
sl@0: 	my $iclTest = " --iclTestdata " if ($optctl{"iclTestdata"});
sl@0: 	# print "HRH filename is : $hrh_filename\n";
sl@0: 	
sl@0:  	if ($optctl{"f"})
sl@0: 	 	{
sl@0: 	 	# This displays the content of the hash table
sl@0: 	 	# use it to confirm the "f" entry has been added.
sl@0: 	 	#
sl@0: 	 	#  my $key;  # holds the command line options
sl@0: 	 	#  my $value; # redundant for hash entry as only a key is used.
sl@0: 		#  while (($key, $value) = each(%optctl))
sl@0: 		#  	{
sl@0: 		#   	print $key.", ".$value."\n";
sl@0: 		#  	}
sl@0: 
sl@0: 		# opens up the hrh file for reading
sl@0: 		open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
sl@0: 
sl@0: 		my @file_data=<FILEHANDLE>; # read all file data into array
sl@0: 
sl@0: 		#check the contents of the array (i.e. the contents of the file)
sl@0: 		for(@file_data)
sl@0: 			{
sl@0: 			# print "$_\n";  #display the line in the file
sl@0: 			
sl@0: 			# search line for string of interest: =~ is equals, !~ is not equal
sl@0: 			if(($_ =~ m/$search_item/i))
sl@0: 				{
sl@0: 				$found_search_item = 1;  #found the macro 
sl@0: 				# print "Search item found: $_\n";    #display the line containing the search item
sl@0: 				}
sl@0: 			else
sl@0: 				{
sl@0: 				# Search item not found, do nothing
sl@0: 				}
sl@0: 			} #for loop 
sl@0: 
sl@0: 		close(FILEHANDLE) or die "Can't close file $hrh_filename.\n";  # readonly file
sl@0: 		
sl@0: 		if(!$found_search_item)  #search item has not been found
sl@0: 			{
sl@0: 			# print warning
sl@0: 			print "Modifying file $hrh_filename to enable A3F as -f flag has been used.\n";
sl@0: 			
sl@0: 			# open file for append
sl@0: 			open(FILEHANDLE, ">>", $hrh_filename) or die "Unable to open $hrh_filename for appending. $!\n";
sl@0: 			print FILEHANDLE "\n#define $a3f_define\n"; # append macro to the file
sl@0: 
sl@0: 			close(FILEHANDLE) or die "Can't close appended file $hrh_filename.\n";  # readonly file
sl@0: 			}
sl@0: 			
sl@0: 	 	# Now remove the "f" from the hash table so there is no chance of it being passed
sl@0: 	 	# to anything called in this file.
sl@0: 	 	######## NOTE removal of flag from Hash table ############
sl@0: 	 	delete($optctl{f});   
sl@0: 	 	
sl@0: 	 	# This displays the content of the hash table
sl@0: 	 	# use it to confirm the "f" entry has been removed.
sl@0: 	 	#
sl@0: 		# while (($key, $value) = each(%optctl))
sl@0: 		#  	{
sl@0: 		#  	print $key.", ".$value."\n";
sl@0: 		#  	}
sl@0: 		
sl@0: 	 	} # if $optctl{"f"}
sl@0:  	elsif ($optctl{"l"})
sl@0:  		{
sl@0:  		 ########### Remove the macro from the hrh as "-f" is not specified  ###############
sl@0:  		
sl@0:  		$found_search_item = 0 ; # false
sl@0: 		# opens up the original hrh file for reading
sl@0: 		open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
sl@0: 
sl@0: 		# temporary file
sl@0: 		my $temp_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\temp_Symbian_OS.hrh";
sl@0: 		# open temporary file for writing
sl@0: 		open(TEMPFILEHANDLE, ">", $temp_hrh_filename) or die "can't open tempory file $temp_hrh_filename. $!\n";
sl@0: 		
sl@0: 		my @file_data=<FILEHANDLE>; # read all original hrh file data into array
sl@0: 
sl@0: 		#check the contents of the array (i.e. the contents of the file)
sl@0: 		for(@file_data)
sl@0: 			{
sl@0: 			# print "$_\n";  #display the line in the file
sl@0: 			
sl@0: 			# search line for string of interest: =~ is equals, !~ is not equal
sl@0: 			if(($_ =~ m/(.*)$search_item(.*)/i))
sl@0: 				{
sl@0: 				#display a warning message (only do so once)
sl@0: 				if( !$found_search_item )
sl@0: 					{
sl@0: 					print "Modifying file $hrh_filename to disable A3F as -l flag has been used.\n";
sl@0: 					}
sl@0: 				
sl@0: 				# write line excluding the #define bit to temp file. (to preserve any other bits in this line. e.g.: comment delimiters)
sl@0: 				print TEMPFILEHANDLE $1." ".$2."\n";
sl@0: 				$found_search_item = 1 ; # true
sl@0: 				# Do not write line to the file as we want to remove it.
sl@0: 				}
sl@0: 			else
sl@0: 				{
sl@0: 				print TEMPFILEHANDLE $_;  # copy unchanged line to temporary file
sl@0: 				}
sl@0: 			} #for loop 
sl@0: 
sl@0: 		close(FILEHANDLE) or die "Can't close file $hrh_filename.$!\n";  # readonly file
sl@0: 		close(TEMPFILEHANDLE) or die "Can't close file $temp_hrh_filename. $!\n";  # temp file
sl@0: 		if($found_search_item)
sl@0: 			{
sl@0: 			my $orig_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\orig.hrh";
sl@0: 			rename($hrh_filename, $orig_hrh_filename) or die "can't rename $hrh_filename to $orig_hrh_filename: $!\n";
sl@0: 			rename($temp_hrh_filename, $hrh_filename)  or die "can't rename $temp_hrh_filename to $hrh_filename: $!\n";
sl@0: 			unlink $orig_hrh_filename;  # delete the original as it is no longer needed
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			unlink $temp_hrh_filename;  # no changes to be made so delete the temporary file
sl@0: 			}
sl@0: 		
sl@0:  		}  # main else for A3F
sl@0:  	
sl@0: 	##################  End A3F Section ####################################
sl@0: 	
sl@0: 	##################  A3F Logging Section ####################################
sl@0: 
sl@0: 	my $search_item = "SYMBIAN_MULTIMEDIA_A3F_ENABLE_LOGGING";  # looking for this	
sl@0: 	my $hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\Symbian_OS.hrh"; # assign hrh file and location
sl@0: 	my $found_search_item = 0; #false
sl@0: 	
sl@0:  	if ($optctl{"a3flog"})
sl@0: 	 	{
sl@0: 		# opens up the hrh file for reading
sl@0: 		open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
sl@0: 
sl@0: 		my @file_data=<FILEHANDLE>; # read all file data into array
sl@0: 
sl@0: 		#check the contents of the array (i.e. the contents of the file)
sl@0: 		for(@file_data)
sl@0: 			{
sl@0: 			# search line for string of interest: =~ is equals, !~ is not equal
sl@0: 			if(($_ =~ m/$search_item/i))
sl@0: 				{
sl@0: 				$found_search_item = 1;  #found the macro 
sl@0: 				}
sl@0: 			else
sl@0: 				{
sl@0: 				# Search item not found, do nothing
sl@0: 				}
sl@0: 			} #for loop 
sl@0: 
sl@0: 		close(FILEHANDLE) or die "Can't close file $hrh_filename.\n";  # readonly file
sl@0: 		
sl@0: 		if(!$found_search_item)  #search item has not been found
sl@0: 			{
sl@0: 			# open file for append
sl@0: 			open(FILEHANDLE, ">>", $hrh_filename) or die "Unable to open $hrh_filename for appending. $!\n";
sl@0: 			print FILEHANDLE "\n#define $search_item\n"; # append macro to the file
sl@0: 			close(FILEHANDLE) or die "Can't close appended file $hrh_filename.\n";  # readonly file
sl@0: 			}
sl@0: 			
sl@0: 	 	# Now remove the "log" from the hash table so there is no chance of it being passed
sl@0: 	 	# to anything called in this file.
sl@0: 	 	######## NOTE removal of flag from Hash table ############
sl@0: 	 	delete($optctl{log});   		
sl@0: 	 	} # if $optctl{"log"}
sl@0:  	else
sl@0:  		{
sl@0:  		 ########### Remove the macro from the hrh as "-a3flog" is not specified  ###############
sl@0:  		
sl@0:  		$found_search_item = 0 ; # false
sl@0: 		# opens up the original hrh file for reading
sl@0: 		open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
sl@0: 
sl@0: 		# temporary file
sl@0: 		my $temp_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\temp_Symbian_OS.hrh";
sl@0: 		# open temporary file for writing
sl@0: 		open(TEMPFILEHANDLE, ">", $temp_hrh_filename) or die "can't open tempory file $temp_hrh_filename. $!\n";
sl@0: 		
sl@0: 		my @file_data=<FILEHANDLE>; # read all original hrh file data into array
sl@0: 
sl@0: 		#check the contents of the array (i.e. the contents of the file)
sl@0: 		for(@file_data)
sl@0: 			{
sl@0: 			# search line for string of interest: =~ is equals, !~ is not equal
sl@0: 			if(($_ =~ m/$search_item/i))
sl@0: 				{
sl@0: 				#display a warning message
sl@0: 				print "Removing $_ from file $hrh_filename as -a3flog flag has not been used to indicate an A3F logging build is required.\n";
sl@0: 				$found_search_item = 1 ; # true
sl@0: 				# Do not write line to the file as we want to remove it.
sl@0: 				}
sl@0: 			else
sl@0: 				{
sl@0: 				# Ensure the last newline after the macro is not written to the file.
sl@0: 				# the last new line was added by the macro append in the previous section.
sl@0: 				# The asssumes the macro is the last entry in the file. If it is not then 
sl@0: 				# the if statement should be removed and the print statement left on its own
sl@0: 				# to copy the last line to file.
sl@0: 				if(!$found_search_item)  
sl@0: 					{
sl@0: 					print TEMPFILEHANDLE $_;  # copy unchanged line to temporary file
sl@0: 					}
sl@0: 				}
sl@0: 			} #for loop 
sl@0: 
sl@0: 		close(FILEHANDLE) or die "Can't close file $hrh_filename.$!\n";  # readonly file
sl@0: 		close(TEMPFILEHANDLE) or die "Can't close file $temp_hrh_filename. $!\n";  # temp file
sl@0: 		if($found_search_item)
sl@0: 			{
sl@0: 			my $orig_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\orig.hrh";
sl@0: 			rename($hrh_filename, $orig_hrh_filename) or die "can't rename $hrh_filename to $orig_hrh_filename: $!\n";
sl@0: 			rename($temp_hrh_filename, $hrh_filename)  or die "can't rename $temp_hrh_filename to $hrh_filename: $!\n";
sl@0: 			unlink $orig_hrh_filename;  # delete the original as it is no longer needed
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			unlink $temp_hrh_filename;  # no changes to be made so delete the temporary file
sl@0: 			}
sl@0: 		
sl@0:  		}  # main else for A3F
sl@0:  		
sl@0: 	##################  End A3F Logging Section ####################################
sl@0: 	
sl@0: 
sl@0: 	my $optional = "-x " if ($optctl{"x"});
sl@0: 	my $keep = "-k " if ($optctl{"k"});
sl@0: 	my $target = ""; # default to all
sl@0: 	my $build = "winscw";
sl@0: 
sl@0: 	if($optctl{"dir"})
sl@0: 		{
sl@0: 		my $dir = $optctl{"dir"};
sl@0: 		chdir $dir or die "Can't cd $dir - $!";
sl@0: 		}
sl@0: 
sl@0: 
sl@0: 	if($optctl{"cw"})
sl@0: 		{
sl@0: 		$build = "winscw";
sl@0: 		}
sl@0: 
sl@0: 	my $command;
sl@0: 
sl@0: 	# mmbuild [-x] [-k] setup
sl@0: 	$command = "mmbuild " . $optional . $keep . "setup". $iclTest;
sl@0: 	(system ($command)==0 )or die "Couldn't execute $command";
sl@0: 	
sl@0: 	if ($optctl{"c"})
sl@0: 		{
sl@0: 		# mmbuild -t clean (throw away result - so we ignore any no-export errors)
sl@0: 		$command = "mmbuild -t clean >\$NULL 2>&1";
sl@0: 		print $command, "\n";
sl@0: 		(system ($command)==0 )or die "Couldn't execute $command";
sl@0: 		}
sl@0: 
sl@0: 
sl@0: 
sl@0: 	# mmbuild [-k] build
sl@0: 	$command = "mmbuild ". $keep. "build " . $build. $iclTest;
sl@0: 	(system ($command)==0 )or die "Couldn't execute $command";
sl@0: 
sl@0: 	# mmbuild -t [-k] build
sl@0: 	$command = "mmbuild -t ". $keep. "build ". $build. $iclTest;
sl@0: 	(system ($command)==0 )or die "Couldn't execute $command";
sl@0: 
sl@0: 	# mmbuild -t  -b[-k] build
sl@0: 	$command = "mmbuild -t -b ". $keep. "build ". $build. $iclTest;
sl@0: 	(system ($command)==0 )or die "Couldn't execute $command";
sl@0: 
sl@0: 	}