1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/mm/mmtestenv/mmtesttools/Build/winsMmBuild.pl Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,338 @@
1.4 +# Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).
1.5 +# All rights reserved.
1.6 +# This component and the accompanying materials are made available
1.7 +# under the terms of "Eclipse Public License v1.0"
1.8 +# which accompanies this distribution, and is available
1.9 +# at the URL "http://www.eclipse.org/legal/epl-v10.html".
1.10 +#
1.11 +# Initial Contributors:
1.12 +# Nokia Corporation - initial contribution.
1.13 +#
1.14 +# Contributors:
1.15 +#
1.16 +# Description:
1.17 +#
1.18 +
1.19 +# Full build equiv that builds WINSCW targets only
1.20 +
1.21 +use strict;
1.22 +
1.23 +my $ARGC = @ARGV;
1.24 +if (($ARGV[0] eq "-h") ||
1.25 + ($ARGV[0] eq "--h") ||
1.26 + ($ARGV[0] eq "-help") ||
1.27 + ($ARGV[0] eq "--help") ||
1.28 + ($ARGV[0] eq "help")
1.29 + )
1.30 + {
1.31 + print "\n";
1.32 + print "winsMmBuild - Builds for WINSCW only\n\n";
1.33 + print "Syntax : winsMmBuild [-x] [-k] [-c] [-dir=directory] [-a3flog]\n";
1.34 + print "-cw WINSCW build - NOTE: does nothing as this is default\n";
1.35 + print "-x include optional elements\n";
1.36 + print "-f build A3F DevSound instead of DevSound\n";
1.37 + print "-l build Legacy DevSound instead of A3F (ignored if -f given)\n";
1.38 + print "-k keep going\n";
1.39 + print "-c clean build\n";
1.40 + print "-dir location of TestTools\\Build directory\n";
1.41 + print "-a3flog enables A3F logging\n";
1.42 + print "-iclTestdata builds ICL test data\n";
1.43 + exit 0;
1.44 + }
1.45 +
1.46 +
1.47 +use Getopt::Long;
1.48 +my %optctl = ();
1.49 +keys(%optctl)=5;
1.50 +unless (GetOptions (\%optctl, "x", "f", "l", "c", "cw" , "k", "dir=s", "a3flog","iclTestdata"))
1.51 + {exit 1;}
1.52 +
1.53 +my $ccover_target = "winscw";
1.54 +
1.55 + my $targetToolsDir = "..\\..\\..\\..\\..\\TargetTools\\Build";
1.56 + my $testToolsDir = "..\\..\\mmtesttools\\Build";
1.57 + my $targetToolsExists = 0;
1.58 + if (-d $targetToolsDir)
1.59 + {
1.60 + $targetToolsExists = 1;
1.61 + print "TargetTools directory exists: $targetToolsDir\n"
1.62 + }
1.63 +
1.64 +# main
1.65 + {
1.66 +
1.67 + ################## A3F Section #######################################
1.68 + my $a3f_define = 'SYMBIAN_MULTIMEDIA_A3FDEVSOUND';
1.69 + my $search_item = '#define\s+'.$a3f_define; # looking for this
1.70 + my $hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\Symbian_OS.hrh"; # assign hrh file and location
1.71 + my $found_search_item = 0; #false
1.72 + my $iclTest = " --iclTestdata " if ($optctl{"iclTestdata"});
1.73 + # print "HRH filename is : $hrh_filename\n";
1.74 +
1.75 + if ($optctl{"f"})
1.76 + {
1.77 + # This displays the content of the hash table
1.78 + # use it to confirm the "f" entry has been added.
1.79 + #
1.80 + # my $key; # holds the command line options
1.81 + # my $value; # redundant for hash entry as only a key is used.
1.82 + # while (($key, $value) = each(%optctl))
1.83 + # {
1.84 + # print $key.", ".$value."\n";
1.85 + # }
1.86 +
1.87 + # opens up the hrh file for reading
1.88 + open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
1.89 +
1.90 + my @file_data=<FILEHANDLE>; # read all file data into array
1.91 +
1.92 + #check the contents of the array (i.e. the contents of the file)
1.93 + for(@file_data)
1.94 + {
1.95 + # print "$_\n"; #display the line in the file
1.96 +
1.97 + # search line for string of interest: =~ is equals, !~ is not equal
1.98 + if(($_ =~ m/$search_item/i))
1.99 + {
1.100 + $found_search_item = 1; #found the macro
1.101 + # print "Search item found: $_\n"; #display the line containing the search item
1.102 + }
1.103 + else
1.104 + {
1.105 + # Search item not found, do nothing
1.106 + }
1.107 + } #for loop
1.108 +
1.109 + close(FILEHANDLE) or die "Can't close file $hrh_filename.\n"; # readonly file
1.110 +
1.111 + if(!$found_search_item) #search item has not been found
1.112 + {
1.113 + # print warning
1.114 + print "Modifying file $hrh_filename to enable A3F as -f flag has been used.\n";
1.115 +
1.116 + # open file for append
1.117 + open(FILEHANDLE, ">>", $hrh_filename) or die "Unable to open $hrh_filename for appending. $!\n";
1.118 + print FILEHANDLE "\n#define $a3f_define\n"; # append macro to the file
1.119 +
1.120 + close(FILEHANDLE) or die "Can't close appended file $hrh_filename.\n"; # readonly file
1.121 + }
1.122 +
1.123 + # Now remove the "f" from the hash table so there is no chance of it being passed
1.124 + # to anything called in this file.
1.125 + ######## NOTE removal of flag from Hash table ############
1.126 + delete($optctl{f});
1.127 +
1.128 + # This displays the content of the hash table
1.129 + # use it to confirm the "f" entry has been removed.
1.130 + #
1.131 + # while (($key, $value) = each(%optctl))
1.132 + # {
1.133 + # print $key.", ".$value."\n";
1.134 + # }
1.135 +
1.136 + } # if $optctl{"f"}
1.137 + elsif ($optctl{"l"})
1.138 + {
1.139 + ########### Remove the macro from the hrh as "-f" is not specified ###############
1.140 +
1.141 + $found_search_item = 0 ; # false
1.142 + # opens up the original hrh file for reading
1.143 + open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
1.144 +
1.145 + # temporary file
1.146 + my $temp_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\temp_Symbian_OS.hrh";
1.147 + # open temporary file for writing
1.148 + open(TEMPFILEHANDLE, ">", $temp_hrh_filename) or die "can't open tempory file $temp_hrh_filename. $!\n";
1.149 +
1.150 + my @file_data=<FILEHANDLE>; # read all original hrh file data into array
1.151 +
1.152 + #check the contents of the array (i.e. the contents of the file)
1.153 + for(@file_data)
1.154 + {
1.155 + # print "$_\n"; #display the line in the file
1.156 +
1.157 + # search line for string of interest: =~ is equals, !~ is not equal
1.158 + if(($_ =~ m/(.*)$search_item(.*)/i))
1.159 + {
1.160 + #display a warning message (only do so once)
1.161 + if( !$found_search_item )
1.162 + {
1.163 + print "Modifying file $hrh_filename to disable A3F as -l flag has been used.\n";
1.164 + }
1.165 +
1.166 + # write line excluding the #define bit to temp file. (to preserve any other bits in this line. e.g.: comment delimiters)
1.167 + print TEMPFILEHANDLE $1." ".$2."\n";
1.168 + $found_search_item = 1 ; # true
1.169 + # Do not write line to the file as we want to remove it.
1.170 + }
1.171 + else
1.172 + {
1.173 + print TEMPFILEHANDLE $_; # copy unchanged line to temporary file
1.174 + }
1.175 + } #for loop
1.176 +
1.177 + close(FILEHANDLE) or die "Can't close file $hrh_filename.$!\n"; # readonly file
1.178 + close(TEMPFILEHANDLE) or die "Can't close file $temp_hrh_filename. $!\n"; # temp file
1.179 + if($found_search_item)
1.180 + {
1.181 + my $orig_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\orig.hrh";
1.182 + rename($hrh_filename, $orig_hrh_filename) or die "can't rename $hrh_filename to $orig_hrh_filename: $!\n";
1.183 + rename($temp_hrh_filename, $hrh_filename) or die "can't rename $temp_hrh_filename to $hrh_filename: $!\n";
1.184 + unlink $orig_hrh_filename; # delete the original as it is no longer needed
1.185 + }
1.186 + else
1.187 + {
1.188 + unlink $temp_hrh_filename; # no changes to be made so delete the temporary file
1.189 + }
1.190 +
1.191 + } # main else for A3F
1.192 +
1.193 + ################## End A3F Section ####################################
1.194 +
1.195 + ################## A3F Logging Section ####################################
1.196 +
1.197 + my $search_item = "SYMBIAN_MULTIMEDIA_A3F_ENABLE_LOGGING"; # looking for this
1.198 + my $hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\Symbian_OS.hrh"; # assign hrh file and location
1.199 + my $found_search_item = 0; #false
1.200 +
1.201 + if ($optctl{"a3flog"})
1.202 + {
1.203 + # opens up the hrh file for reading
1.204 + open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
1.205 +
1.206 + my @file_data=<FILEHANDLE>; # read all file data into array
1.207 +
1.208 + #check the contents of the array (i.e. the contents of the file)
1.209 + for(@file_data)
1.210 + {
1.211 + # search line for string of interest: =~ is equals, !~ is not equal
1.212 + if(($_ =~ m/$search_item/i))
1.213 + {
1.214 + $found_search_item = 1; #found the macro
1.215 + }
1.216 + else
1.217 + {
1.218 + # Search item not found, do nothing
1.219 + }
1.220 + } #for loop
1.221 +
1.222 + close(FILEHANDLE) or die "Can't close file $hrh_filename.\n"; # readonly file
1.223 +
1.224 + if(!$found_search_item) #search item has not been found
1.225 + {
1.226 + # open file for append
1.227 + open(FILEHANDLE, ">>", $hrh_filename) or die "Unable to open $hrh_filename for appending. $!\n";
1.228 + print FILEHANDLE "\n#define $search_item\n"; # append macro to the file
1.229 + close(FILEHANDLE) or die "Can't close appended file $hrh_filename.\n"; # readonly file
1.230 + }
1.231 +
1.232 + # Now remove the "log" from the hash table so there is no chance of it being passed
1.233 + # to anything called in this file.
1.234 + ######## NOTE removal of flag from Hash table ############
1.235 + delete($optctl{log});
1.236 + } # if $optctl{"log"}
1.237 + else
1.238 + {
1.239 + ########### Remove the macro from the hrh as "-a3flog" is not specified ###############
1.240 +
1.241 + $found_search_item = 0 ; # false
1.242 + # opens up the original hrh file for reading
1.243 + open(FILEHANDLE, "<", $hrh_filename) or die "Unable to open $hrh_filename for reading. $!\n";
1.244 +
1.245 + # temporary file
1.246 + my $temp_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\temp_Symbian_OS.hrh";
1.247 + # open temporary file for writing
1.248 + open(TEMPFILEHANDLE, ">", $temp_hrh_filename) or die "can't open tempory file $temp_hrh_filename. $!\n";
1.249 +
1.250 + my @file_data=<FILEHANDLE>; # read all original hrh file data into array
1.251 +
1.252 + #check the contents of the array (i.e. the contents of the file)
1.253 + for(@file_data)
1.254 + {
1.255 + # search line for string of interest: =~ is equals, !~ is not equal
1.256 + if(($_ =~ m/$search_item/i))
1.257 + {
1.258 + #display a warning message
1.259 + print "Removing $_ from file $hrh_filename as -a3flog flag has not been used to indicate an A3F logging build is required.\n";
1.260 + $found_search_item = 1 ; # true
1.261 + # Do not write line to the file as we want to remove it.
1.262 + }
1.263 + else
1.264 + {
1.265 + # Ensure the last newline after the macro is not written to the file.
1.266 + # the last new line was added by the macro append in the previous section.
1.267 + # The asssumes the macro is the last entry in the file. If it is not then
1.268 + # the if statement should be removed and the print statement left on its own
1.269 + # to copy the last line to file.
1.270 + if(!$found_search_item)
1.271 + {
1.272 + print TEMPFILEHANDLE $_; # copy unchanged line to temporary file
1.273 + }
1.274 + }
1.275 + } #for loop
1.276 +
1.277 + close(FILEHANDLE) or die "Can't close file $hrh_filename.$!\n"; # readonly file
1.278 + close(TEMPFILEHANDLE) or die "Can't close file $temp_hrh_filename. $!\n"; # temp file
1.279 + if($found_search_item)
1.280 + {
1.281 + my $orig_hrh_filename = "$ENV{EPOCROOT}epoc32\\include\\variant\\orig.hrh";
1.282 + rename($hrh_filename, $orig_hrh_filename) or die "can't rename $hrh_filename to $orig_hrh_filename: $!\n";
1.283 + rename($temp_hrh_filename, $hrh_filename) or die "can't rename $temp_hrh_filename to $hrh_filename: $!\n";
1.284 + unlink $orig_hrh_filename; # delete the original as it is no longer needed
1.285 + }
1.286 + else
1.287 + {
1.288 + unlink $temp_hrh_filename; # no changes to be made so delete the temporary file
1.289 + }
1.290 +
1.291 + } # main else for A3F
1.292 +
1.293 + ################## End A3F Logging Section ####################################
1.294 +
1.295 +
1.296 + my $optional = "-x " if ($optctl{"x"});
1.297 + my $keep = "-k " if ($optctl{"k"});
1.298 + my $target = ""; # default to all
1.299 + my $build = "winscw";
1.300 +
1.301 + if($optctl{"dir"})
1.302 + {
1.303 + my $dir = $optctl{"dir"};
1.304 + chdir $dir or die "Can't cd $dir - $!";
1.305 + }
1.306 +
1.307 +
1.308 + if($optctl{"cw"})
1.309 + {
1.310 + $build = "winscw";
1.311 + }
1.312 +
1.313 + my $command;
1.314 +
1.315 + # mmbuild [-x] [-k] setup
1.316 + $command = "mmbuild " . $optional . $keep . "setup". $iclTest;
1.317 + (system ($command)==0 )or die "Couldn't execute $command";
1.318 +
1.319 + if ($optctl{"c"})
1.320 + {
1.321 + # mmbuild -t clean (throw away result - so we ignore any no-export errors)
1.322 + $command = "mmbuild -t clean >\$NULL 2>&1";
1.323 + print $command, "\n";
1.324 + (system ($command)==0 )or die "Couldn't execute $command";
1.325 + }
1.326 +
1.327 +
1.328 +
1.329 + # mmbuild [-k] build
1.330 + $command = "mmbuild ". $keep. "build " . $build. $iclTest;
1.331 + (system ($command)==0 )or die "Couldn't execute $command";
1.332 +
1.333 + # mmbuild -t [-k] build
1.334 + $command = "mmbuild -t ". $keep. "build ". $build. $iclTest;
1.335 + (system ($command)==0 )or die "Couldn't execute $command";
1.336 +
1.337 + # mmbuild -t -b[-k] build
1.338 + $command = "mmbuild -t -b ". $keep. "build ". $build. $iclTest;
1.339 + (system ($command)==0 )or die "Couldn't execute $command";
1.340 +
1.341 + }