Symaptic: os/ossrv/ssl/tsrc/genatsmodules.bat@260cb5ec6c19

     1 rem

     2 rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.

     4 rem Redistribution and use in source and binary forms, with or without

     5 rem modification, are permitted provided that the following conditions are met:

     7 rem Redistributions of source code must retain the above copyright notice, this

     8 rem list of conditions and the following disclaimer.

     9 rem Redistributions in binary form must reproduce the above copyright notice,

    10 rem this list of conditions and the following disclaimer in the documentation

    11 rem and/or other materials provided with the distribution.

    12 rem Neither the name of Nokia Corporation nor the names of its contributors

    13 rem may be used to endorse or promote products derived from this software

    14 rem without specific prior written permission.

    16 rem THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"

    17 rem AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

    18 rem IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

    19 rem DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE

    20 rem FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

    21 rem DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR

    22 rem SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER

    23 rem CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,

    24 rem OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE

    25 rem OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

    26 rem

    27 rem Description:

    28 rem

    31 @perl -x GenATSModules.bat %1 %2 %3 %4 %5 %6 %7 %8 %9

    32 @goto end

    34 #!perl

    35 use strict;

    36 use File::Find;

    37 use File::Copy;

    38 use Cwd;

    40 my $sendEmail = "no";

    41 my $target = "winsspd";

    42 my $suite;

    43 my $install = "no";

    44 my $session = "no";

    45 my $combinedSession = "no";

    46 my $sdkversion="";

    47 my $noXmlsGenList = "play_new";

    49 my %DirHash;

    52 if(scalar @ARGV ==0 || $ARGV[0] =~ /[\-\\\/][h\?]/ || $ARGV[0] =~ /help/ )

    53 {

    54 	print <<EOHelp;

    55 genatsmodules.bat - hardcoded script to generate ATSINPUT folders for mobileruntime and ngi projects

    56 Usage:

    57 	genatsmodules.bat

    58 		Create ATSINPUT for the default testsuite based on

    59 		location it is executed from place in stdlibs/internal

    60 		and run and it generates ATSINPUT for stdlibs

    61 		similiarly place it in ssl/internal or glib/internal or

    62     ngi/internal and run to generate  ATSINPUT for ssl, glib

    63     and ngi respectively

    65   genatsmodules [libname]

    66 			where libname can be stdlibs, ssl, glib, etc. Creates

    67 			ats test drop for given library. Valid from any internal

    68 			folder of mobileruntime.

    71   genatsmodules ngi

    72 			create ngi testsuite. Valid inside ngi/internal only

    74 genatsmodules play_new

    75 			create play_new testsuite. Valid inside play_new/internal only

    79 	genatsmodules ltp

    80 			create ltp testsuite. Valid inside stdlibs/internal only

    82 	genatsmodules lsb

    83 			create lsb testsuite. Valid inside stdlibs/internal only

    85 	genatsmodules stdcpp

    86 			create stdcpp testsuite. Valid inside stdcpp/internal only

    88 	genatsmodules [libname] install

    89 		 where libname can be stdlibs, ssl, glib, ltp, lsb to create a

    90 		 ATSINPUT where the dependent mobileruntime libraries are also

    91 		 copied and used (It copies the dependent libraries using the

    92 		 ATS component files)

    94 	genatsmodules session [libname] [target]

    95 		where libname is any of the standard libs as shown above and

    96 		target can be winsspd, winscw, scarfe, zeus etc. to create

    97 		session files for scarfe, winsspd etc.

    99 genatsmodules session combined [target]

   100       will look at the existing ATSINPUT(which can have any

   101       combination of created components and create a combined

   102       session file. This way you get increased flexibility in

   103       the libraries you choose to combine into a single session

   104       file. If the target is a hardware target(that is not winsspd

   105       or winscw), the script will first attempt to find a target

   106       specific component file and if not found, the generic hw

   107       component file.

   110 	Note:

   111 	ATSINPUT creation is a 2 stage process. First we create

   112 	the components and then we run (for example)

   113 	"genatsmodules session stdlibs winscw" and

   114 	"genatsmodules session stdlibs scarfe" to create the

   115 	session files.

   116 EOHelp

   117 		exit();

   118 }

   119 my $do_armv5 = 1;

   120 my $do_winscw = 1;

   122 if(scalar @ARGV == 1)

   123 {

   124 	if($ARGV[0] eq "session")

   125 	{

   126 		die("parameter session must be followed by libname and target platform");

   127 	}

   128 	else

   129 	{

   130 		$suite = $ARGV[0];

   131 	}

   132 }

   133 elsif(scalar @ARGV == 2)

   134 {

   135 	if($ARGV[0] eq  "session")

   136 	{

   137 		die("parameter session must be followed by libname and target platform");

   138 	}

   139 	elsif($ARGV[1] eq "install")

   140 	{

   141 		$suite = $ARGV[0];

   142 		$install = "yes";

   143 	}

   144 	elsif($ARGV[1] eq "armv5")

   145 	{

   146 		$do_winscw = 0;

   147 	}

   148 	elsif($ARGV[1] eq "winscw")

   149 	{

   150 		$do_armv5 = 0;

   151 	}

   152 	else

   153 	{

   154 		die("second parameter after target platform $ARGV[0] can only be \"install\" ");

   155 	}

   156 }

   157 elsif(scalar @ARGV == 3)

   158 {

   159 		if($ARGV[0] ne "session")

   160 		{

   161 			die("invalid combination of parameters. Program expected 1st parameter to be \"session\" ");

   162 		}

   163 		else

   164 		{

   165 			$session = "yes";

   166 			$suite = $ARGV[1];

   167 			$target = $ARGV[2];

   169 			if($suite eq "combined")

   170 			{

   171 				$combinedSession = "yes";

   172 	  	}

   174 		}

   175 }

   176 elsif(scalar @ARGV == 4)

   177 {

   178 		if($ARGV[0] ne "session")

   179 		{

   180 			die("invalid combination of parameters. Program expected 1st parameter to be \"session\" ");

   181 		}

   182 		else

   183 		{

   184 			$session = "yes";

   185 			$suite = $ARGV[1];

   186 			$target = $ARGV[2];

   187 			$sdkversion = $ARGV[3];

   188 			if($suite eq "combined")

   189 			{

   190 				$combinedSession = "yes";

   191 	  	}

   192 		}

   193 }

   194 else

   195 {

   196 		die("program recieved too many parameters!");

   197 }#end of commandline processing

   201 my $rootDrive = substr(getcwd(), 0,2);

   202 my $templateRoot = getcwd();

   204 if(rindex($templateRoot, "tsrc") == -1 && ($suite ne "stdlibs" && $suite ne "pcts" ) )

   205 {

   206 	die("Please run the script from the appropriate internal folder in the mobileruntime /omerta project!!");

   207 }

   208 else

   209 {

   211 	 my $srcPrefix = getcwd();

   212 	 $srcPrefix =~ /(.*)tsrc.*/;

   213 	 $srcPrefix = $1;

   214 	 if(rindex($templateRoot, "stdlibs") != -1)

   215 	 {

   216 	 	$srcPrefix =~ /(.*)stdlibs.*/;

   217 	 	$srcPrefix = $1;

   219 	 	if($suite eq "glib")

   220 	 	{

   221 	 		$templateRoot = $srcPrefix."/glib/internal/";

   222 	 	}

   223 	 	elsif($suite eq "ssl")

   224 	 	{

   225 	 		$templateRoot = $srcPrefix."/ssl/tsrc/";

   226 	 	}

   227 	 	elsif($suite eq "ngi" && $session ne "yes")

   228 	 	{

   229 	 		print "ngi atsinput creation not supported from mobileruntime\n";

   230 	 		exit();

   231 	 	}

   232 	 }

   234 	if(rindex($templateRoot, "glib") != -1)

   235 	{

   236 		$suite = "glib";

   237 	}

   238 	elsif(rindex($templateRoot, "ssl") != -1)

   239 	{

   240 		$suite = "ssl";

   241 	}

   242 	elsif(rindex($templateRoot, "ngi") != -1)

   243 	{

   244 		$suite = "ngi";

   245 	}

   246 }

   249 my $optsGroupPath = $templateRoot."/ts/ltp/opts/group/";

   250 #$optsGroupPath = getcwd()."/ts/ltp/opts/group/";

   251 my $ltpPath =$templateRoot."/ts/ltp/";

   252 my $stdcppPath =$templateRoot."/testapps/stlport/";

   253 my @stdexeList = ("gnu","tstdcpp","stdcxx/tstapps");

   254 #my $gnuPath =getcwd()."/testapps/gnu/";

   255 #my $tstdcppPath =getcwd()."/testapps/tstdcpp/";

   256 my	$ATSRoot = getcwd()."\\ATSINPUT";

   258 my @generatedModules;

   259 my %cfglocation;

   261 my $TDIR = "\\internal\\testapps\\";

   263 my @libcModules = ( "libc_loc_blr",  "libc_time_blr", "libc_db_blr","tctype", "tifioctls", "tinet",

   264                       "tlibcwchar", "tlink", "tmkfifo", "tmmap", "tmsgqueue",

   265 		      "tnetdb", "tpipe","tregex", "tsemaphore", "tshm","tsocket" ,

   266 		      "tstdio", "tstdlib", "tstring", "tsyscalls",

   267 		      "tsyssim", "twctype", "tselect", "tsysunistd", "twideapis", "twopen", "twchar",

   268 		      "twcharapi",

   269                );

   271 my @libdlModules = ("tlibdl");

   272 my @libmModules = ("libm_double_blr", "libm_float_blr","libm_ldouble_blr");

   275 my @pthreadModules = ( "testcondbroadcast", "testconddestroy", "testcondinit", "testcondsignal", "testcondtimedwait", "testcondwait",

   276 "tmutex", "tpthread", "testpthreadonce", "testsemclose", "testsemdestroy", "testsemgetvalue", "testseminit", "testsemopen", "testsempost",

   277 "testsemtimedwait", "testsemtrywait", "testsemunlink", "testsemwait");

   280 my @stdliblist = ( "libc", "libpthread", "libdl", "libm", "libz", "libcrypt");

   281 my @dllList = ("backend.dll", "libc.dll", "LibCIpcClient.dll", "LibCIpcServer.exe", "libdl.dll", "libm.dll", "libpthread.dll", "libcrypt.dll", "libz.dll", "liblogger.dll");

   284 my @stdcpplist = (

   285   				 ["fstream1_input.txt", "stlport_fstream", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],

   286   				 ["nextperm1_good.txt", "stlport_nextprm", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],

   287   				 ["nextperm2_good.txt", "stlport_nextprm", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],

   288   				 ["ostmit_good.txt", "stlport_ostmit", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],

   289   				 ["seek.txt", "stlport_seek", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],

   290   				 ["istream_extractor_other-1.tst","istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   291   				 ["istream_extractor_other-1.txt","istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   292   				 ["istream_extractor_other-2.tst","istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   293   				 ["istream_unformatted-1.tst","istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   294   				 ["istream_unformatted-1.txt","istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   295   				 ["istream_unformatted-2.tst","istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   296   				 ["ostream_inserter_char-1.tst","ostream_inserter_char", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   297   				 ["ostream_inserter_other-1.tst","ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   298   				 ["ostream_inserter_other-2.tst","ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   299   				 ["istream_extractor_other-1.tst","w_istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   300   				 ["istream_extractor_other-1.txt","w_istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   301   				 ["istream_extractor_other-2.tst","w_istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   302   				 ["istream_unformatted-1.tst","w_istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   303   				 ["istream_unformatted-1.txt","w_istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   304   				 ["istream_unformatted-2.tst","w_istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   305   				 ["ostream_inserter_char-1.tst","w_ostream_inserter_char", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   306   				 ["ostream_inserter_other-1.tst","w_ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   307   				 ["ostream_inserter_other-2.tst","w_ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   308   				 ["filebuf_members-1.tst","filebuf_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   309   				 ["filebuf_members-1.txt","filebuf_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   310   				 ["filebuf_virtuals-1.tst","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   311   				 ["filebuf_virtuals-1.txt","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   312   				 ["filebuf_virtuals-2.tst","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   313   				 ["filebuf_virtuals-3.tst","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   314   				 ["ifstream_members-1.tst","ifstream_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   315   				 ["ifstream_members-1.txt","ifstream_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   316   				 ["ios_base_members_static-1.tst","ios_base_members_static", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   317   				 ["istream_seeks-1.tst","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   318   				 ["istream_seeks-1.txt","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   319   				 ["istream_seeks-2.tst","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   320   				 ["istream_seeks-3.tst","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   321   				 ["ofstream_members-1.tst","ofstream_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   322   				 ["ostream_inserter_char-1.txt","ostream_inserter_char", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   323   				 ["ostream_seeks-1.tst","ostream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],

   324   				 ["infile_auto.txt","multi_thread_auto", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],

   325 );

   327 my @gliblist = (

   328   				 ["1.gmarkup", "markup_test", "/epoc32/winscw/c/", "/General/", "C:"],

   329    				 ["1.gmarkup", "markup-test", "/epoc32/winscw/c/", "/General/", "C:"],

   330   				 ["iochannel-test-infile", "iochannel_test",  "/epoc32/winscw/c/", "/General/", "C:"],

   331   				 ["iochannel-test-infile", "iochannel-test",  "/epoc32/winscw/c/", "/General/", "C:"],

   332 #  				 ["casemap.bin",  "unicode-caseconv",  "/epoc32/winscw/c/", "/General/", "C:"],

   333 #  				 ["casefold.bin", "unicode-caseconv",  "/epoc32/winscw/c/", "/General/", "C:"],

   334   				 ["utf8.txt", "unicode-encoding","/epoc32/winscw/c/", "/General/", "C:"],

   335   				 ["casecollate.txt", "unicode-collate","/epoc32/winscw/c/", "/General/", "C:"],

   336   				 ["utf8_hindi.txt", "tutf8","/epoc32/winscw/c/", "/General/", "C:"],

   337   				 ["scanfile.txt", "tscanner","/epoc32/winscw/c/", "/General/", "C:"],

   338   				 ["test.txt", "dir_test","/epoc32/winscw/c/temp/tmp/", "/General/", "C:\\temp\\tmp"],

   339   				 ["NormalizationTest.txt", "unicode-normalize","/epoc32/winscw/c/", "/General/", "C:"],

   341   				 ["helloworld.exe", "spawn_test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],

   342   				 ["helloworld.exe", "spawn_test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],

   344   				 ["libmoduletestplugin_a.dll", "module-test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],

   345   				 ["libmoduletestplugin_a.dll", "module-test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],

   347   				 ["libmoduletestplugin_b.dll", "module-test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],

   348   				 ["libmoduletestplugin_b.dll", "module-test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],

   351   				 );

   353 my @ngilist = (

   354            ["Test.txt", "ngi_sa_runtimetester", "/EPOC32/winscw/c/Private/10202be9/", "/General/", ""],

   355   				 ["sa_input_repository.txt", "shared","/EPOC32/armv5/c/TestFramework/", "/armv5_urel/", ""],

   356   				 ["sa_input_repository.txt", "shared","/EPOC32/winscw/c/TestFramework/", "/winscw_udeb/", ""],

   357   				 ["audiomixingfiles.ini", "ngi_sa_audiomixing","/EPOC32/winscw/c/TestFramework/", "/general/", ""],

   358   				 ["sa_camera_supported.ini", "ngi_sa_camera","/EPOC32/armv5/c/TestFramework/", "/general/", ""],

   359   				 ["sa_clip.ini", "ngi_sa_clip","/EPOC32/winscw/c/TestFramework/", "/general/", ""],

   360   				 ["devicecapabilitiesdata.ini", "ngi_sa_devicecapabilities","/EPOC32/winscw/c/TestFramework/", "/general/", ""],

   361    				 ["highlevelaudiofiles.ini", "ngi_sa_highlevelaudio","/EPOC32/winscw/c/TestFramework/", "/general/", ""],

   362 					 ["lowlevelaudiofiles.ini", "ngi_sa_lowlevelaudio","/EPOC32/winscw/c/TestFramework/", "/general/", ""],

   363 					 ["runtimedata.ini", "ngi_sa_runtimetester","/EPOC32/winscw/c/TestFramework/", "/general/", ""],

   364 					 ["sa_stream.ini", "ngi_sa_stream","/EPOC32/winscw/c/TestFramework/", "/general/", ""],

   365 					 #["*", "ngi_sa_videoplayback","/../graphics/video/internal/sa_videoplayback/data/", "/general/", ""],

   366 					 ["test.*", "ngi_sa_images","/Epoc32/winscw/c/Data/", "/general/", ""]

   367 					);

   372 my $validexpansions = "all stdlibs combined";

   373 my $validLibraries = "ltp opts lsb glib ssl ngi pcts stdcpp gcce libc-locale play_new";

   374 if(rindex($validexpansions, $suite)== -1 && rindex($validLibraries, $suite) == -1)

   375 {

   376 	die("$suite is not a valid library. Valid options are $validexpansions $validLibraries");

   377 }

   379 my $dontStrip = 1;

   380 my	@liblist;

   381 if($suite eq "all")

   382 {

   383 		@liblist = split " ", $validLibraries;

   384 		@liblist = (@liblist, @stdliblist);

   386 }#suite all

   387 elsif($suite eq "ltp")

   388 {

   389 	 @liblist = ("ltp", "opts");

   390 }

   391 elsif($suite eq "stdlibs")

   392 {

   393 		@liblist = @stdliblist;

   394 }

   395 elsif($suite eq "ssl")

   396 {

   397 	@liblist = ("libcrypto", "libssl");

   398 }

   399 else

   400 {

   401 		@liblist = ("$suite");

   402 }

   404 #	foreach my $l(@liblist)

   405 #	{

   406 #			print "$l was there\n";

   407 #	}

   410 if($combinedSession eq "yes")

   411 {

   412 	GenerateSessionFile("combined", $target,"combined");

   413 	exit();

   414 }

   416 if($session eq "yes")

   417 {

   418 	my $file = $templateRoot."/testsession.xml";

   419 	opendir(DIRHANDLE, $ATSRoot) || die("Please try to create Session files only after ATSINPUT/components has been created!");

   420 	closedir(DIRHANDLE);

   421 	$dontStrip = 1;

   422 	if($suite eq "ngi" || $suite eq "play_new")

   423 	{

   424 		@generatedModules = GenGenModules($suite);

   425 		my @componentFiles = GetXmls($suite);

   426 		GenerateSessionFile("combined",$target,$suite,\@componentFiles);

   427 		exit();

   428 	}

   429 	elsif($suite eq "ssl")

   430 	{

   431 		my @componentFiles = GetSslXmls();

   432 		GenerateSessionFile("combined",$target,$suite,\@componentFiles);

   433 		exit();

   434 	}

   435 	elsif($suite eq "stdlibs")

   436 	{

   437 		#my $dst = $ATSRoot."/$suite"."_testsession.xml";

   438 		#copy($file, $dst);

   439 		GenerateSessionFile("combined",$target,$suite);

   440 		exit();

   441 	}

   442 	foreach my $lib(@liblist)

   443 	{

   444 			@generatedModules = GenGenModules($lib);

   445 			if(scalar @generatedModules != 0)

   446 			{

   447 				#print "Generating for $lib\n";

   448 				GenerateSessionFile($lib, $target,$lib);

   449 			}

   450 	}

   452 	#@generatedModules = GetAllModules();

   453 	#if(scalar @generatedModules != 0)

   454 	#{

   455 	#		GenerateSessionFile("combined",$target, "combined");

   456 	#}

   457 	exit();

   458 }#session generation code

   461 if ($suite eq "ltp" || $suite eq "all")

   462 {

   463 	my @ltpModules = GetLtpModules();

   464 	@generatedModules = @ltpModules;

   465 	DoGen("ltp", ".dll");

   466 	CopyLtpCfg("ltp");

   469 	my @saved = @dllList;

   470 	@dllList = ("ltplib.dll");

   471 	CopySharedDlls("ltp", \@dllList);

   472 	TransformXmls("ltp","shared");

   473 	@dllList = @saved;

   475 	@generatedModules = GetCompiledModules($optsGroupPath."/bld.inf");

   476 	DoGen("opts",".dll");

   478 }

   479 if ($suite eq "glib")

   480 {

   481 	my $bldfile = $templateRoot."/testapps/group/bld.inf";

   482 	my @glibModules = GetCompiledModules($bldfile);

   483 	@generatedModules = @glibModules;

   484 	DoGen("glib",".exe");

   485 	my $gDataRef = \@gliblist;

   486 	CopyArbitDatFiles("glib",$gDataRef);

   488 	if($install eq "yes")

   489 	{

   490 		my @saved = @dllList;

   491 		my @glib2dllList = ("glibbackend.dll", "Libgobject.dll", "libgmodule.dll", "libgthread.dll",

   492                 "libglib.dll");

   494    my  @glib1List = ( "libgobject.dll", "libgmodule.dll", "libgthread.dll",  "libglib.dll", );

   495   @dllList = @glib2dllList;

   496   CopySharedDlls("glib",\@dllList);

   497   TransformXmls("glib", "shared");

   499 		@dllList = @saved;

   500 	}#if install

   501 }#glib

   504 if ($suite eq "ssl")

   505 {

   506 	my $stripStatus = $dontStrip;

   507 	$dontStrip = 0;

   508 	GenCryptoTest();

   509 	if($install eq "yes")

   510 	{

   511 		@dllList = (@dllList, "libcrypto.dll", "libssl.dll");

   512 	}#if install

   513 	$dontStrip = $stripStatus;

   514 }#ssl

   516 if($suite eq "ngi")

   517 {

   519 	GenNgiTest();

   520 	CopyNgiXmls();

   521 	CopyArbitDatFiles("",\@ngilist);

   523 }

   525 if($suite eq "play_new")

   526 {

   527 	my @play_newModules = ("fonttestmodule", "messagingtestmodule","locationtestmodule", "alertstestmodule",

   528 	"libxmlstiff","ngisvgtestmodule");

   529 	@generatedModules = @play_newModules;

   530 	DoGen("play_new",".dll");

   532 	 my @list = (

   533   				 			 ["*.cfg", "fonttestmodule", "/../fonts/internal/testmodules/fonttestmodule/group/","/General/", ""],

   534 	 				 			 ["*.xml", "fonttestmodule", "/../fonts/internal/testmodules/fonttestmodule/group/","/", ""],

   536 	 				 			 ["*.cfg", "messagingtestmodule", "/../ngimessaging/internal/testmodules/messagingtestmodule/group/","/General/", ""],

   537 	 				 			 ["*.xml", "messagingtestmodule", "/../ngimessaging/internal/testmodules/messagingtestmodule/group/","/", ""],

   538 	 				 			 ["*", "messagingtestmodule", "/EPOC32/winscw/c/messagingtestmodule/","/General/", ""],

   540 	 				 			 ["*.cfg", "locationtestmodule", "/../ngilocation/internal/testmodules/locationtestmodule/group/","/General/", ""],

   541 	 				 			 ["*.xml", "locationtestmodule", "/../ngilocation/internal/testmodules/locationtestmodule/group/","/", ""],

   543 	 				 			 ["*.cfg", "alertstestmodule", "/../ngialerts/internal/testmodules/alertstestmodule/group/","/General/", ""],

   544 								 ["*.xml", "alertstestmodule", "/../ngialerts/internal/testmodules/alertstestmodule/group/","/", ""],

   545 								 ["vertigo.wav", "alertstestmodule", "/Epoc32/winscw/c/alertstestmodule/","/General/", ""],

   547 	 			 			  ["*.cfg", "libxmlstiff", "/../libxmlpp/internal/group/","/General/", ""],

   548 	 		 	 			  ["*.xml", "libxmlstiff", "/../libxmlpp/internal/group/","/", ""],

   549 	 		 	 			  ["*.*", "libxmlstiff", "/../libxmlpp/internal/data/","/General/", ""],

   551 	 		 	 			  ["*.cfg", "ngisvgtestmodule", "/../ngisvg/internal/testmodules/ngisvgtestmodule/group/","/General/", ""],

   552    		 	 			  ["*.xml", "ngisvgtestmodule", "/../ngisvg/internal/testmodules/ngisvgtestmodule/group/","/", ""],

   553 	 		 	 			  ["*.*", "ngisvgtestmodule", "/epoc32/winscw/c/ngisvgtest/","/General/", ""],

   555   				 );

   557   my $bDataRef = \@list;

   558 	CopyArbitDatFiles("play_new",$bDataRef);

   559 	if($install eq "yes")

   560 	{

   561 		@generatedModules = GenGenModules("play_new");

   562 		my @saved = @dllList;

   563 		my @playList = (

   564 "ngifonts.dll",

   565 "ngimessaging.dll",

   566 "ngisvg.dll",

   567 "ngilocation.dll",

   568 "ngialerts.dll",

   569 "libstdcpp.dll",

   570 "libxmlpp.dll",

   571 "FeedsLibXml2xmlpp.dll");

   572        @dllList = @playList;

   573 		CopySharedDlls("play_new",\@dllList);

   574 	  TransformXmls("play_new", "shared");

   575 		@dllList = @saved;

   577 	}#end install

   580 }

   582 if($suite eq "stdcpp")

   583 {

   584 	@generatedModules = GetstdcppModules();

   585 	DoGen("stdcpp",".dll");

   586 	CopyLtpCfg("stdcpp");

   587 	@generatedModules = GetstdexeModules();

   588 	DoGen("stdcpp",".exe");

   590 	my @saved = @dllList;

   591 	@dllList = ("stdcxxtestengine.dll");

   592 	CopySharedDlls("stdcpp", \@dllList);

   593 	TransformXmls("stdcpp","shared");

   594 	@dllList = @saved;

   596 	CopyArbitDatFiles("stdcpp",\@stdcpplist);

   598 	if($install eq "yes")

   599 	{

   600 		@generatedModules = GenGenModules("stdcpp");

   601 		my @saved = @dllList;

   602 		my @cppList = ("libstdcpp.dll");

   603        @dllList = @cppList;

   604 		CopySharedDlls("stdcpp",\@dllList);

   605 	  TransformXmls("stdcpp", "shared");

   606 		@dllList = @saved;

   607 	}#if install

   608 }

   611 if($suite eq "lsb" || $suite eq "all")

   612 {

   613 	my @lsbModules = GetLsbModules();

   614 	@generatedModules = @lsbModules;

   615 	DoGen("lsb",".exe");

   617 	my @depDlls;

   618 	my $dll;

   620 	#copying the common dlls

   621 	@depDlls  =

   622 	(

   623 	 "libapi.dll",

   624 	 "tcm.dll",

   625 	 "vlib.dll",

   626 	);

   628 	foreach $dll (@depDlls)

   629 	{

   630 		CopyDeps("lsb",$dll);

   631 	}

   632 	#now copy the cfg files

   633 	CopyLsbCfg("lsb");

   634 	#now copy the extra dependency dlls

   636 	#dlopen

   637 	@generatedModules = ("dlopen");

   641 	@depDlls  =

   642 	(

   643 	 "dynlibtest.1.dll",

   644 	 "dynlibtest.11.1.dll",

   645 	 "dynlibtest.11.2.dll",

   646 	 "dynlibtest.12g.dll",

   647 	 "dynlibtest.12r.dll",

   648 	 "dynlibtest.14.1.dll",

   649 	 "dynlibtest.14.2.dll",

   650 	 "dynlibtest.14.3.dll",

   651 	 "dynlibtest.3.1.dll",

   652 	 "dynlibtest.3.2.dll",

   653 	 "dynlibtest.3.dll",

   654 	 "dynlibtest.4.dll",

   655 	 "dynlibtest.8.dll",

   656 	 "dynlibtest.9.dll",

   657 	 "dynlibtest.3.dll",

   658 	 "dynlibtest.8.dll",

   659 	);

   661 	foreach $dll (@depDlls)

   662 	{

   663 		CopyDeps("lsb",$dll);

   664 	}

   666 	#dlclose

   667 	@generatedModules = ("dlclose");

   668 	@depDlls = ("dynlibclose.1.dll");

   669 	foreach $dll (@depDlls)

   670 	{

   671 		CopyDeps("lsb",$dll);

   672 	}

   674 	#dlerror

   675 	@generatedModules = ("dlerror");

   676 	@depDlls = ("dynlib.dll");

   677 	foreach $dll (@depDlls)

   678 	{

   679 		CopyDeps("lsb",$dll);

   680 	}

   682 	#now copy the xmls!

   683 	my $srcDir = $templateRoot."/ts/lsbsuites/group/";

   685 	my $dst;

   687 	foreach my $dllib("dlopen", "dlclose", "dlerror")

   688 	{

   689 		$dst  = $ATSRoot."\\components\\lsb_".$dllib."\\";

   690 		copy($srcDir."/lsb_".$dllib."_module_blr_hw_component.xml", $dst) || die("DIED: unable to copy from $srcDir!\n");

   691 		copy($srcDir."/lsb_".$dllib."_module_blr_winsspd_component.xml", $dst) || die("DIED: unable to copy from $srcDir!\n");

   692 	}

   694 }

   696 if($suite eq "gcce")

   697 {

   699 	mkdir $ATSRoot;

   700 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");

   702 	@generatedModules = ("gcce-validate", "gcce-load");

   704 	my @depDlls  =

   705 	(

   706 		"gcce-lib.dll",

   707 	);

   709 	my $suffix = ".exe";

   710 	my $libname = "gcce";

   713 	my $src;

   714 	my $dst;

   715 	foreach my $module(@generatedModules)

   716 	{

   717 		my $relroot = $ATSRoot."\\components\\$libname"."_$module";

   718 		mkdir $relroot || die("DIED: unable to create dir $module\n");

   719 		mkdir $relroot."\\armv5_urel" || die("DIED: unable to create dir $relroot\\armv5_urel\n");

   721 		#GenExeXmls($module,$libname);

   723 		$src = $rootDrive."\\epoc32\\release\\gcce\\urel\\".$module.$suffix;

   724 		$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);

   725 		$dst = $dst."\\armv5_urel\\";

   726 		copy($src, $dst)  || warn("unable to copy $src to $dst");

   727 	}

   728 	$src = $rootDrive."\\epoc32\\release\\gcce\\urel\\"."gcce-lib.dll";

   729 	$dst = $ATSRoot."\\components\\gcce_gcce-load";

   730 	$dst = $dst."\\armv5_urel\\";

   731 	copy($src, $dst)  || warn("unable to copy $src to $dst");

   734 	my @list = (

   735   				 ["gcce_gcce-load_module_blr_hw_component.xml", "gcce-load", "./","/", ""],

   736   				 ["gcce_gcce-validate_module_blr_hw_component.xml", "gcce-validate", "./","/", ""],

   737   				 );

   739   my $bDataRef = \@list;

   740 	CopyArbitDatFiles("gcce",$bDataRef);

   743 }#if gcce

   747 if($suite eq "libc-locale")

   748 {

   749 	$dontStrip = 0;

   750 	mkdir $ATSRoot;

   751 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");

   753 	@generatedModules = ("tstring");

   754 	DoGen("libc",".dll");

   756 	my @localelist = (

   757 	  				 ["locales.txt", "string", "../libc/internal/testapps/tstring/data/", "/General/", ""],

   758 	  				 ["tstring_locale_component.xml", "string", "../libc/internal/testapps/tstring/group/", "/", ""],

   760 	  				 );

   762   my $bDataRef = \@localelist;

   763 	CopyArbitDatFiles("libc",$bDataRef);

   764 	#delete($ATSRoot."/components/libc_string/"."libc_string_module_blr_hw_component.xml") || die("unable to delete");

   765 	my $my_src = $ATSRoot."/components/libc_string/"."tstring_locale_component.xml";

   766 	my $my_dst = $ATSRoot."/components/libc_string/"."libc_string_module_blr_hw_component.xml";

   768 	unlink($my_dst) ||warn("unable to delete $my_dst");

   769 	rename($my_src,$my_dst) || move($my_src,$my_dst) || die("Unable to rename!");

   771 }#if libc-locale

   774 if($suite eq "pcts")

   775 {

   776 	my $bldfile = $templateRoot."/group/bld.inf";

   777 	my @pctsModules = GetCompiledModules($bldfile);

   778 	@generatedModules = @pctsModules;

   779 	DoGen("pcts",".exe");

   781 	my @depDlls;

   782 	my $dll;

   785 	#copying the common dlls

   786 	@depDlls  =

   787 	(

   788 		"vsxlibapi.dll",

   789 		"rttm.exe",

   790 		"rtlibapi.dll",

   791 		"vsxvlib.dll",

   792 		"vsxgenlib.dll",

   793 		"vsxtsetlib.dll",

   794 		"vsxvport.dll",

   795 	);

   797 	if($install eq "yes")

   798 	{

   799 		my @saved = @dllList;

   800 		@dllList = @depDlls;

   801 		CopySharedDlls("pcts", \@depDlls);

   802 		TransformXmls("pcts","shared");

   803 		@dllList = @saved;

   805 		#now copy the cfg files

   806 		my $dst;

   807 		my $srcDir = "/epoc32/winscw/c/data/tet/";

   808 		my $file1 = $srcDir."tet_code";

   809 		my $file2 = $srcDir."tetexec.cfg";

   810 		foreach my $module(@generatedModules)

   811 		{

   812 			$dst = $ATSRoot."\\components\\pcts_".$module;

   813 			$dst = $dst."\\General\\";

   814 			copy($file1, $dst) or die "copy: $! $file1 $dst";

   815 			copy($file2,$dst) or die "copy: $! $file2 $dst";

   816 		}

   817 	}

   822 	my $dst;

   823 	foreach my $module(@generatedModules)

   824 	{

   825 		my $file3 = "/epoc32/winscw/c/logs/tet/m.".$module;

   827 		$dst = $ATSRoot."\\components\\pcts_".$module;

   828 		$dst = $dst."\\General\\";

   829 		copy($file3, $dst) or die "copy: $! $file3 $dst";

   830 	}#module

   831 }

   835 $dontStrip = 0;

   837 if($suite eq "stdlibs" || $suite eq "all")

   838 {

   839 	@generatedModules = ("tzlib");

   840 	DoGen("libz", ".dll");

   842 	@generatedModules = ("tlibcrypt");

   843 	DoGen("libcrypt",".dll");

   845 	@generatedModules = @libcModules;

   846 	DoGen("libc",".dll");

   847 	GenBackendTest();

   849 	@generatedModules = ("twchar");

   850 	CopyDeps("libc","twchar_helloworld.exe");

   852 	@generatedModules = ("twopen");

   853 	CopyDeps("libc","twpopenwritechild.exe");

   854 	CopyDeps("libc","twpopenreadchild.exe");

   857 	@generatedModules = @libdlModules;

   858 	DoGen("libdl",".dll");

   859 	CopyDeps("libdl","Dll1.dll");

   860 	CopyDeps("libdl","Dll2.dll");

   861 	CopyDeps("libdl","DependencyTestDll.dll");

   863 	@generatedModules = @libmModules;

   864 	DoGen("libm",".dll");

   866 	$TDIR = "\\internal\\";

   867 	@generatedModules = @pthreadModules;

   868 	DoGen("libpthread",".dll");

   869 	CopyDeps("libpthread","testharness.dll");

   871 	CopyDatFiles();

   872 }

   874 if($install eq "yes")

   875 {

   876 	foreach my $lib(@liblist)

   877 	{

   878 		#print "Transforming lib $lib\n";

   879 		@generatedModules = GenGenModules($lib);

   880 		my @oldList = @dllList;

   881 		if($do_winscw)

   882   	{

   883   		@dllList = (@dllList, "wsdsoln.dll", "libestw32.dll");

   884   		CopySharedDlls($lib,\@dllList,"winscw");

   885 	  	TransformXmls($lib, "shared","winscw");

   886   	}

   887   	@dllList = @oldList;

   888   	if($do_armv5)

   889   	{

   890 	  	CopySharedDlls($lib,\@dllList,"armv5");

   891 	  	TransformXmls($lib, "shared","armv5");

   892   	}

   893 	}#FOREACH

   894 }#if install

   898 #function to generate ModuleList for a compiled bld.inf

   899 sub GetCompiledModules($)

   900 {

   901 	my $file = shift @_;

   902 	my @moduleList;

   905 	# Open input file

   906 	open (INFILE, "<".$file ) || die ("DIED: Can not find $file!");

   908 	while (<INFILE>)

   909 	{

   910 		if(/(.*)\.mmp/ && $1 !~ /^\/\//)

   911 	  {

   912 	  		if($_ !~ /\/\/Not for ATS/)

   913 	  		{

   914 	  			push @moduleList, $1;

   915 	  		}

   916 	  }

   917 	}

   918 	close (INFILE);

   919 	return @moduleList;

   920 }

   922 my @groupList;

   923 sub GetLtpModules()

   924 {

   925         my $prevDir = getcwd();

   926         my @rootList = ("kernel", "misc");

   927         my @totalgroupList;

   928         foreach my $node(@rootList)

   929         {

   930         	chdir $ltpPath."/$node";

   931         	@groupList = ();

   932         	find(\&MakeGroupList, ".");

   933         	@totalgroupList = (@totalgroupList, @groupList);

   934         }

   935         chdir $prevDir;

   936         return @totalgroupList;

   937 }

   939 sub GetstdexeModules()

   940 {

   941       my $prevDir = getcwd();

   942       my @fullList = ();

   943       foreach my $group(@stdexeList)

   944       {

   945       	my $groupPath = $templateRoot."/testapps/".$group. "/";

   946       	chdir $groupPath;

   947       	@groupList = ();

   948       	find(\&grovelAllMmpFiles, ".");

   949       	chdir $prevDir;

   950       	@fullList = (@fullList,@groupList);

   951       }

   952       return @fullList;

   953 }

   955 sub grovelAllMmpFiles()

   956 {

   957 	if($_ =~ /(.*)\.mmp/ && ! ($_ =~ /manual/))

   958 	{

   959 		push @groupList, $1;#get name of module

   960 	}

   961 }

   963 sub GetstdcppModules()

   964 {

   965         my $prevDir = getcwd();

   966         my @rootList = ("auto");

   967         my @totalgroupList;

   968         foreach my $node(@rootList)

   969         {

   970         	chdir $stdcppPath."/$node";

   971         	@groupList = ();

   972         	find(\&MakeGroupList, ".");

   973         	@totalgroupList = (@totalgroupList, @groupList);

   974         }

   975         chdir $prevDir;

   976         return @totalgroupList;

   977 }

   979 sub GetTstdcppModules()

   980 {

   981       my $prevDir = getcwd();

   982       #chdir $tstdcppPath;

   983       @groupList = ();

   984       find(\&grovelAllMmpFiles, ".");

   985       chdir $prevDir;

   986       return @groupList;

   987 }

   989 sub MakeGroupList()

   990 {

   991 	my $currentDir = $File::Find::dir;

   993 	#print "Current dir:$currentDir\n";

   994 	if( $currentDir =~ /.*\/(.*)\/group/)

   995 	{

   996 		if($cfglocation{$1} eq "")

   997 		{

   998 			$cfglocation{$1} = getcwd()."\/$1.cfg";

   999 			push @groupList, $1;#get name of module

  1000 		}#first time in group

  1001 	}#group found

  1002 }#subrtn end

  1005 #function that generates the ATS setup

  1006 sub DoGen($$)

  1007 {

  1008 	my $libname = shift @_;

  1009 	my $ext = shift @_;

  1010 	mkdir $ATSRoot;

  1011 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");

  1014 	GenDirs($libname);

  1015 	my $module;

  1016 	foreach my $listed(@generatedModules)

  1017 	{

  1018 	my @filesToProcess =

  1019         (

  1020          "LibXXX_ATSTemplateXXX_module_blr_hw_component.xml",

  1021          "LibXXX_ATSTemplateXXX_module_blr_winsspd_component.xml",

  1022          "testframework.ini",

  1023         );

  1024 		if(rindex($noXmlsGenList, $libname) != -1 )

  1025 		{

  1026 			@filesToProcess = ("testframework.ini",);

  1027 		}

  1029 			if($ext eq ".exe")

  1030 			{

  1031 				GenExeXmls($listed,$libname);

  1032 			}

  1033 			else

  1034 			{

  1035 				#just in case no xml file was supplied

  1037         my $ref = \@filesToProcess;

  1038 				GenXmls($libname, $listed,$ref);

  1039 			}

  1040 	}#foreach

  1042 	CopyDlls($libname,$ext);

  1043 	#copy the provided cfg, ini and xmls

  1044 	if($libname eq "opts")

  1045 	{

  1046 		CopyOptsCfg($libname);

  1047 	}

  1048 	elsif($libname eq "ltp" || $libname eq "lsb" || $libname eq "glib")

  1049 	{

  1050 	  #copy latter and  dont copy respectively for ltp and lsb

  1051 	}

  1052 	else

  1053 	{

  1054 	  CopyCfgIniXmls($libname);

  1055 	}

  1056 }

  1058 sub CopyCfgIniXmls()

  1059 {

  1060 	my $libname = pop @_;

  1062 	my $libRoot = $templateRoot;

  1063 	$libRoot =~ /(.*)internal.*/;

  1064 	$libRoot = $1;

  1067 	my $module;

  1068 	my $src;

  1069 	my $dst;

  1071 	foreach my $listed(@generatedModules)

  1072 	{

  1073 	  my $dirname = $listed;

  1074 	  $dirname =~ s/test/t/;

  1075 	  $module = StripModulePrefix($listed);

  1077 		$src = $libRoot.$libname.$TDIR.$dirname."\\group\\";

  1079 		my $xmlCopied = "0";

  1080 		my @globpattern = ("*.ini", "*.xml","*.cfg");

  1081 		foreach my $pat(@globpattern)

  1082 		{

  1083 			$dst = $ATSRoot."\\components\\".$libname."_".$module;

  1084 			if($pat ne "*.xml")

  1085 			{

  1086 				$dst = $dst."\\General\\";

  1087 			}

  1088 			else

  1089 			{

  1090 				$dst = $dst."\\";

  1091 			}

  1092 			my @filesFound = glob($src."\\$pat");

  1093 			if(scalar @filesFound eq "0")

  1094 			{

  1095 				#print "No files found for module $module $pat!\n";

  1096 				#print $src;

  1097 			}

  1099 			#handcoded

  1100 			if($pat eq "*.cfg" && $xmlCopied eq "0")#rename only if xml not copied

  1101 			{

  1102 				if(scalar @filesFound > 1)

  1103 				{

  1104 					print "Multiple cfg files found. Copying all!\n";

  1105 				}

  1106 				else

  1107 				{

  1108 						$dst = $dst.$listed.".cfg";

  1109 				}

  1110 			}

  1111 			elsif($pat eq "*.xml")

  1112 			{

  1113 				my $folder = $dst;

  1114 				foreach my $from (@filesFound)

  1115 				{

  1116 					if($from =~ /winscw_component/)

  1117 					{

  1118 						$dst = $folder.$libname."_".$module."_module_blr_winscw_component.xml";

  1119 						copy($from, $dst) or die "DIED: copy: $! $from $dst";

  1120 						$xmlCopied = "1";

  1121 					}

  1122 					elsif($from =~ /winsspd_component/)

  1123 					{

  1124 						$dst = $folder.$libname."_".$module."_module_blr_winsspd_component.xml";

  1125 						copy($from, $dst) or die "DIED: copy: $! $from $dst";

  1126 						$xmlCopied = "1";

  1127 					}

  1128 					elsif($from =~ /hw_component/)

  1129 					{

  1130 						$dst = $folder.$libname."_".$module."_module_blr_hw_component.xml";

  1131 						copy($from, $dst) or die "DIED: copy: $! $from $dst";

  1132 						$xmlCopied = "1";

  1133 					}

  1134 				}#examine individually

  1135 				if(scalar @filesFound > 2)

  1136 				{

  1137 					#print "Multiple xml files found!!!\n";

  1138 				}

  1139 				@filesFound = ();

  1140 			}

  1143 			foreach my $from (@filesFound)

  1144 			{

  1145 					copy($from, $dst) or die "DIED: copy: $! $from $dst";

  1146 			}#copy individually

  1147 		}#globpattern

  1148 	}#module

  1149 }#fn

  1151 #copy the cfg files for the opts test suite

  1152 sub CopyOptsCfg()

  1153 {

  1154 	my $libname = pop @_;

  1156 	my $libRoot = $optsGroupPath."\\";

  1157 	my $module;

  1158 	my $src;

  1159 	my $dst;

  1161 	foreach $module(@generatedModules)

  1162 	{

  1163 		$src = $libRoot.$module."\.cfg";

  1164 		$dst = $ATSRoot."\\components\\".$libname."_".$module;

  1165 		$dst = $dst."\\General\\";

  1166 		copy($src, $dst) or warn "copy: $! $src $dst";

  1167 	}#module

  1168 }#fn

  1170 #copy the lsb cfg files

  1171 sub CopyLsbCfg()

  1172 {

  1173 	my $libname = pop @_;

  1175 	my $module;

  1177 	my $dst;

  1179 	my $srcDir = $templateRoot."/ts/lsbsuites/lsblib/data/";

  1181 	foreach $module(@generatedModules)

  1182 	{

  1183 		my $file1 = $srcDir."tet_code.cfg";

  1184 		my $file2 = $srcDir."tetexec.cfg";

  1185 		$dst = $ATSRoot."\\components\\".$libname."_".$module;

  1186 		$dst = $dst."\\General\\";

  1187 		copy($file1, $dst) or die "copy: $! $file1 $dst";

  1188 		copy($file2, $dst) or die "copy: $! $file2 $dst";

  1189 	}#module

  1190 }#fn

  1193 #copy the ltp cfg files

  1194 sub CopyLtpCfg($)

  1195 {

  1196 	my $libname = pop @_;

  1198 	my $module;

  1199 	my $src;

  1200 	my $dst;

  1202 	foreach $module(@generatedModules)

  1203 	{

  1204 		$src = $cfglocation{$module};

  1205 		$dst = $ATSRoot."\\components\\".$libname."_".$module;

  1206 		$dst = $dst."\\General\\";

  1207 		copy($src, $dst) or warn "copy: $! $src $dst";

  1208 	}#module

  1209 }#fn

  1212 sub CopyDlls($$)

  1213 {

  1214 	my $libname = shift @_;

  1215 	my $suffix = shift @_;

  1217 	my $module;

  1218 	my $src;

  1219 	my $dst;

  1222 	foreach $module(@generatedModules)

  1223 	{

  1224 	  if($do_winscw == 1)

  1225 	  {

  1226 			$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$module.$suffix;

  1227 			$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);

  1228 			$dst = $dst."\\winscw_udeb\\";

  1229 			copy($src, $dst)  || warn("unable to copy $src to $dst");

  1230 		}

  1231 	  if($do_armv5 == 1)

  1232 	  {

  1233 			$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$module.$suffix;

  1234 			$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);

  1235 			$dst = $dst."\\armv5_urel\\";

  1236 			copy($src, $dst)  || warn("unable to copy $src to $dst");

  1237 		}

  1238 	}#foreach

  1239 }

  1240 #fn to generate the session file

  1241 sub GenerateSessionFile($$$$)

  1242 {

  1243 	my $libname = shift @_;

  1244 	my $target = shift @_;

  1245 	my $name = shift @_;

  1246 	my $listptr = shift @_;

  1247 	my $outdir = $ATSRoot;

  1248 	my $infile = $templateRoot."\\testsession.xml";

  1249 	chdir $outdir || die("DIED: Unable to chdir!");

  1250 	#open INFILE, $infile || die ("DIED: Can not open input file $infile");

  1251 	my $prefix = $name."_".$target;

  1252 	if($sdkversion ne "")

  1253 	{

  1254 		$prefix = $prefix."_".$sdkversion;

  1255 	}

  1257 	open OUTFILE, ">".$outdir."\\".$prefix."_testsession.xml" || die ("DIED: Can not open output file");

  1258 	my $line;

  1259   my $snippet = $target;

  1260   if($target ne "winscw" && $target ne "winsspd")

  1261   {

  1262   	$snippet = "hw";

  1263   }

  1265 print OUTFILE "<?xml version=\"1.0\"?>\n";

  1266 print OUTFILE "<testsession>\n";

  1267 #print OUTFILE "<symbian-version>$libname"."_".$snippet."_TestDrop_blr_component</symbian-version>\n";

  1268 print OUTFILE "<symbian-version>ats_test_session</symbian-version>\n";

  1269 print OUTFILE "<testitem>at</testitem>\n";

  1270 print OUTFILE "<resultfile>ATSOUTPUT\\".$prefix."_testsession_results.xml</resultfile>\n";

  1271 if($sendEmail eq "yes")

  1272 {

  1273 print OUTFILE <<EOEmailNote;

  1274 <email_notification>

  1275 <include_test_cases>true</include_test_cases>

  1276 <message_file>C:\\\\lm.txt </message_file>

  1277 <send_after_rerun>false</send_after_rerun>

  1278 <subject>ATS testreport</subject>

  1279 <from>swbuild\@nokia.com</from>

  1280 <to>santosh.ks\@nokia.com</to>

  1281 <to>Imtiyaj.Kaji\@nokia.com</to>

  1282 <to>tp-ap-india-mrt-testdg\@nokia.com</to>

  1283 <to>tp-ap-india-mrt-libsdg\@nokia.com</to>

  1284 <to>subeesh.sivanandan\@nokia.com</to>

  1285 <to>girish.bhat\@nokia.com</to>

  1286 </email_notification>

  1287 EOEmailNote

  1288 }

  1290 	if($libname ne "combined")

  1291 	{

  1292 		AddAssumedIncludes($libname,$snippet);

  1293 	}

  1294 	else

  1295 	{

  1296 		if($listptr ne "")

  1297 		{

  1298 			AddFileList($libname,$listptr);

  1299 		}

  1300 		else

  1301 		{

  1302 			AddActualIncludes($libname);

  1303 		}

  1304 	}

  1306 	print OUTFILE "</testsession>\n";

  1308 	close(OUTFILE);

  1309 	#close(INFILE);

  1310 }#fn

  1313 sub AddAssumedIncludes($$)

  1314 {

  1315 	my $libname = shift @_;

  1316 	my $snippet = shift @_;

  1318 	my $APITest;

  1319 	foreach my $listed(@generatedModules)

  1320 						{

  1321 							$APITest = StripModulePrefix($listed);

  1322 							print OUTFILE  "\n";

  1323 							print OUTFILE "	<!--Inclusion of $target xml for $APITest -->\n";

  1324 							print OUTFILE "	<component>\n";

  1325 							print OUTFILE "		<factory>Symbian</factory>\n";

  1326 							if($libname eq "all")

  1327 							{

  1328 									print OUTFILE "		 <testplan>ATSINPUT\\components\\$listed\\$listed"."_module_blr_".$snippet."_component.xml</testplan>\n";

  1329 							}

  1330 							else

  1331 							{

  1332 									print OUTFILE "		 <testplan>ATSINPUT\\components\\$libname"."_"."$APITest\\$libname"."_$APITest"."_module_blr_".$snippet."_component.xml</testplan>\n";

  1333 							}

  1334 							if($target eq "winscw")

  1335 							{

  1336 									print OUTFILE "		<target hardware=\"winscw\" build=\"udeb\" />\n";

  1337 							}

  1338 							elsif($target eq "winsspd")

  1339 							{

  1340 								print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n";

  1341 							}

  1342 							else

  1343 							{

  1344 										print OUTFILE "		<target hardware=\"$target\" build=\"urel\" />\n";

  1345 							}

  1346 							print OUTFILE "	</component>\n";

  1347 							print OUTFILE "\n";

  1348 	           }#foreach @generatedModules

  1349 }

  1352 sub AddFileList($$)

  1353 {

  1354 	my $libname = shift @_;

  1355 	my $listptr = shift @_;

  1356 	my @componentfiles = @$listptr;

  1358 			foreach my $listed(@componentfiles)

  1359 						{

  1360 								print OUTFILE  "\n";

  1361 							print OUTFILE "	<!--Inclusion of $target xml -->\n";

  1362 							print OUTFILE "	<component>\n";

  1363 							print OUTFILE "		<factory>Symbian</factory>\n";

  1364 							print OUTFILE "		 <testplan>ATSINPUT\\components\\$listed</testplan>\n";

  1365 							if($target eq "winscw")

  1366 							{

  1367 									print OUTFILE "		<target hardware=\"winscw\" build=\"udeb\" />\n";

  1368 							}

  1369 							elsif($target eq "winsspd")

  1370 							{

  1371 								print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n";

  1372 							}

  1373 							else

  1374 							{

  1375 										print OUTFILE "		<target hardware=\"$target\" build=\"urel\" />\n";

  1376 							}

  1377 							print OUTFILE "	</component>\n";

  1378 							print OUTFILE "\n";

  1379 	           }#foreach @componentfiles

  1380 }

  1384 sub GetSslXmls()

  1385 {

  1386 	my $APITest;

  1387 	my @componentfiles;

  1389 	my @emulatorfiles =

  1390 	(

  1391 	"libssl_ssltest\\libssl_blr_winsspd_component.xml",

  1392 	"libcrypto_crypto_test\\libcrypto_blr_winsspd_component.xml",

  1393 	"libcrypto_openssl\\libcrypto_topenssltestss_blr_winsspd_component.xml",

  1394 	"libcrypto_openssl\\libcrypto_topenssltestverify_blr_winsspd_component.xml",

  1395 	"libcrypto_openssl\\libcrypto_topenssltestenc_blr_winsspd_component.xml",

  1396 	"libcrypto_openssl\\libcrypto_topenssltestgen_blr_winsspd_component.xml",

  1397 	"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_winsspd_component.xml",

  1398 	"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_winsspd_component.xml",

  1399 	"libcrypto_openssl\\libcrypto_topenssltreq_blr_winsspd_component.xml",

  1400 	"libcrypto_openssl\\libcrypto_topenssltreq2_blr_winsspd_component.xml",

  1401 	"libcrypto_openssl\\libcrypto_topenssltrsa_blr_winsspd_component.xml",

  1402 	"libcrypto_openssl\\libcrypto_topenssltcrl_blr_winsspd_component.xml",

  1403 	"libcrypto_openssl\\libcrypto_topenssltsid_blr_winsspd_component.xml",

  1404 	"libcrypto_openssl\\libcrypto_topenssltx509_blr_winsspd_component.xml",

  1405 	"libcrypto_openssl\\libcrypto_topenssltx5091_blr_winsspd_component.xml",

  1406 	"libcrypto_openssl\\libcrypto_topenssltx5092_blr_winsspd_component.xml",

  1407 	 );

  1409 	my @hwfiles =

  1410 	(

  1411 		"libcrypto_openssl\\libcrypto_topenssltestss_blr_hw_component.xml",

  1412 		"libcrypto_openssl\\libcrypto_topenssltestverify_blr_hw_component.xml",

  1413 		"libcrypto_openssl\\libcrypto_topenssltestenc_blr_hw_component.xml",

  1414 		"libcrypto_openssl\\libcrypto_topenssltestgen_blr_hw_component.xml",

  1415 		"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_hw_component.xml",

  1416 		"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_hw_component.xml",

  1417 		"libcrypto_openssl\\libcrypto_topenssltreq_blr_hw_component.xml",

  1418 		"libcrypto_openssl\\libcrypto_topenssltreq2_blr_hw_component.xml",

  1419 		"libcrypto_openssl\\libcrypto_topenssltrsa_blr_hw_component.xml",

  1420 		"libcrypto_openssl\\libcrypto_topenssltcrl_blr_hw_component.xml",

  1421 		"libcrypto_openssl\\libcrypto_topenssltsid_blr_hw_component.xml",

  1422 		"libcrypto_openssl\\libcrypto_topenssltx509_blr_hw_component.xml",

  1423 		"libcrypto_openssl\\libcrypto_topenssltx5091_blr_hw_component.xml",

  1424 		"libcrypto_openssl\\libcrypto_topenssltx5092_blr_hw_component.xml",

  1425 		"libssl_ssltest\\libssl_blr_hw_component.xml",

  1426 		"libcrypto_crypto_test\\libcrypto_blr_hw_component.xml",

  1427 	);

  1428 	if($target eq "winsspd" || $target eq "winscw")

  1429 	{

  1430 		@componentfiles = @emulatorfiles;

  1431 	}

  1432 	else

  1433 	{

  1434 		@componentfiles = @hwfiles;

  1435 	}

  1436 	return @componentfiles;

  1437 }

  1441 sub AddActualIncludes($)

  1442 {

  1443 	my $libname = shift @_;

  1444 	find(\&XmlComponentFiles, ".");

  1445 	my $key;

  1446 	my $value;

  1447 	while(($key, $value) = each(%DirHash))

  1448 	{

  1449 							$value =~ s/\//\\/g;

  1450 							print OUTFILE  "\n";

  1451 							print OUTFILE "	<!--Inclusion of dynamically found $target xml -->\n";

  1452 							print OUTFILE "	<component>\n";

  1453 							print OUTFILE "		<factory>Symbian</factory>\n";

  1454 							print OUTFILE "		 <testplan>$value</testplan>\n";

  1455 							if($target eq "winscw")

  1456 							{

  1457 									print OUTFILE "		<target hardware=\"winscw\" build=\"udeb\" />\n";

  1458 							}

  1459 							elsif($target eq "winsspd")

  1460 							{

  1461 								print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n";

  1462 							}

  1463 							else

  1464 							{

  1465 										print OUTFILE "		<target hardware=\"$target\" build=\"urel\" />\n";

  1466 							}

  1467 							print OUTFILE "	</component>\n";

  1468 							print OUTFILE "\n";

  1470 	}#while

  1471 }#fn

  1473 sub XmlComponentFiles()

  1474 {

  1475 	if($_ !~ /\.xml/ || $_ =~ /manual/)

  1476 	{

  1477 		return;

  1478 	}

  1479 	#print "Processing $_\n";

  1480 	my $dir = getcwd();

  1481 	if($dir =~ /.*(ATSINPUT.*)/)

  1482 	{

  1483 			$dir = $1;

  1484 			if($dir !~ /.*components.*/)

  1485 			{

  1486 				return;

  1487 			}

  1488 			#print "The dir is $dir\n";

  1489 	}

  1490 	else

  1491 	{

  1492 		return;

  1493 	}

  1495 	if($target eq "winsspd" )

  1496 	{

  1497 		if($_ =~ /winsspd/)

  1498 		{

  1499 			#print "Adding $target file $_ for $dir\n";

  1500 			$DirHash{$dir} = $dir."/".$_;

  1501 		}

  1502 	}

  1503 	elsif($target eq "winscw")

  1504 	{

  1505 		if($_ =~ /winscw/)

  1506 		{

  1507 			#print "Adding $target file $_ for $dir\n";

  1508 			$DirHash{$dir} = $dir."/".$_;

  1509 		}

  1510 	}

  1511 	elsif($_ =~ /$target/)

  1512 	{

  1513 		#print "$_ matched $target \n";

  1514 		#print "Adding $target file $_ for $dir\n";

  1515 		$DirHash{$dir} = $dir."/".$_;

  1516 	}

  1517 	elsif($_ =~/hw/)

  1518 	{

  1519 		#print "$_ matched hw";

  1520 		if(scalar $DirHash{$dir} == 0)

  1521 		{

  1522 			#print "Adding hw file $_ for $dir\n";

  1523 			$DirHash{$dir} = $dir."/".$_;

  1524 			#print " and added\n"

  1525 		}

  1526 		else

  1527 		{

  1528 			#print " and not added\n";

  1529 		}

  1530 	}

  1531 }

  1535 sub emptyArray()

  1536 {

  1537 	@generatedModules = ();

  1538 }

  1540 sub GenDirs($)

  1541 {

  1542  my $libname = shift @_;

  1543  my $dirname;

  1544  foreach my $module(@generatedModules)

  1545  {

  1546   $dirname = StripModulePrefix($module);

  1547 	my $relroot = $ATSRoot."\\components\\$libname"."_$dirname";

  1548 	mkdir $relroot || die("DIED: unable to create dir $dirname\n");

  1549 	mkdir $relroot."\\General" || die("DIED: unable to create dir $relroot\\General\n");

  1550 	if($do_armv5 == 1)

  1551 	{

  1552 		mkdir $relroot."\\armv5_urel" || die("DIED: unable to create dir $relroot\\armv5_urel\n");

  1553 	}

  1554 	if($do_winscw == 1)

  1555 	{

  1556 		mkdir $relroot."\\winscw_udeb" || die("DIED: unable to create dir $relroot\\winscw_udeb\n");

  1557 	}

  1558  }

  1559 }

  1561 sub GenXmls($$$)

  1562 {

  1563 	my $libname = shift @_;

  1564 	my $listedName = shift @_;

  1565 	my $bref = shift @_;

  1566 	my @filesToProcess = @$bref;

  1568 	#strip leading test and t names from module

  1569 	my $moduleName = StripModulePrefix($listedName);

  1571       my $toPath = $ATSRoot."\\components\\$libname"."_$moduleName\\";

  1574        my $dst;

  1575        my $src;

  1576        foreach $src(@filesToProcess)

  1577        {

  1578                $dst = $src;

  1579                $dst =~ s/ATSTemplateXXX/$moduleName/;

  1580                $dst =~ s/LibXXX/$libname/;

  1583                if($src eq "testframework.ini")

  1584                {

  1585 					$dst =  $toPath."General\\".$dst;

  1586                }

  1587                else

  1588                {

  1589 					$dst =  $toPath.$dst;

  1590                }

  1591                copy($templateRoot."\\".$src, $dst) || die("DIED: Unable to copy $src to $dst\n");

  1592                ExpandModuleMacros($dst, $libname, $listedName);

  1593        }#foreach file

  1594 }

  1597 sub GenExeXmls()

  1598 {

  1599 	my $moduleName = shift @_;

  1600 	my $libname = shift @_;

  1602 	my $toPath = $ATSRoot."\\components\\$libname"."_$moduleName\\";

  1603   my @filesToProcess =

  1604   (

  1605      "LibXXX_ATSTemplateXXX_exemodule_blr_hw_component.xml",

  1606      "LibXXX_ATSTemplateXXX_exemodule_blr_winsspd_component.xml",

  1607   );

  1609 	my $dst;

  1610   my $src;

  1611   foreach $src(@filesToProcess)

  1612   {

  1613         $dst = $src;

  1614         $dst =~ s/ATSTemplateXXX/$moduleName/;

  1615         $dst =~ s/LibXXX/$libname/;

  1616         $dst =~ s/_exemodule_/_module_/;

  1617 				$dst =  $toPath.$dst;

  1618         copy($templateRoot."\\".$src, $dst) || die("DIED: Unable to copy to $dst\n");

  1619         ExpandModuleMacros($dst, $libname, $moduleName);

  1620    }#foreach file

  1621 }

  1623 #function to expand the macros existing in a file

  1624 #file is replaced by new version

  1625 #args are relativePath. filename and  $moduleName

  1626 sub ExpandModuleMacros()

  1627 {

  1628 	# Take module name

  1629 	my $moduleName = pop @_;

  1630 	my $libname = pop @_;

  1631 	my $filename = pop @_;

  1633 	my $MODULENAME = $moduleName;

  1634 	$MODULENAME =~ tr/[a-z]/[A-Z]/;

  1636 	# Open input file

  1637 	open (INFILE, $filename ) || die ("DIED: Can not find $filename");

  1639 	#Open output file

  1640 	my $newOutput = $filename."new";

  1641 	open (OUTFILE, ">".$newOutput ) || die ("DIED: Can not open $newOutput");

  1643 	# Replace text in files

  1644 	while (<INFILE>)

  1645 	{

  1646 	  s/ATSTemplateXXX/$moduleName/g;

  1647 	  s/LibXXX/$libname/g;

  1648     	  print OUTFILE $_;

  1649 	}

  1651 	# Close filehandles

  1652 	close (INFILE);

  1653 	close (OUTFILE);

  1655 	# Rename result file

  1656 	unlink $filename;

  1657 	rename $newOutput,$filename;

  1658 }

  1662 sub CopyDeps($$)

  1663 {

  1664   my $libname = shift @_;

  1665   my $copyDll = shift @_;

  1666 	my $src;

  1667 	my $dst;

  1668 	foreach my $listed(@generatedModules)

  1669 	{

  1670 				my $module = StripModulePrefix($listed);

  1671 				if($do_winscw == 1)

  1672 				{

  1673 					$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;

  1674 					$dst = $ATSRoot."\\components\\$libname"."_$module";

  1675 					$dst = $dst."\\winscw_udeb\\";

  1676 					copy($src, $dst)  || warn("unable to copy $src to $dst");

  1677 				}

  1678 				if($do_armv5 == 1)

  1679 				{

  1680 					$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;

  1681 					$dst = $ATSRoot."\\components\\$libname"."_$module";

  1682 					$dst = $dst."\\armv5_urel\\";

  1683 					copy($src, $dst)  || warn("unable to copy $src to $dst");

  1684 				}

  1685 	}#foreach

  1686 }#fn

  1688 #dat file copy

  1689 sub CopyDatFiles()

  1690 {

  1691 	my $libRoot = $templateRoot;

  1692 	$libRoot =~ /(.*)internal.*/;

  1693 	$libRoot = $1;

  1695  my @list = (

  1696   				 ["libcrypt", "tlibcrypt", "group/Test_Data.dat"],

  1697   				 ["libc", "tnetdb", "data/services.txt"],

  1698   				 ["libc", "tstring", "data/locales.txt"],

  1699   				 ["libc", "libc_loc_blr", "data/locales.txt"],

  1700   				 ["libz", "tzlib", "data/*.*"],

  1701   				 ["libc", "tlink", "data/*.*"],

  1702   				 ["libc", "tmmap", "data/*.*"],

  1703            );

  1705 	 my $libname;

  1706 	 my $dirname;

  1707 	 my $glob;

  1708 	foreach my $ref(@list)

  1709 	{

  1710 			my @inarr = @$ref;

  1711 			($libname, $dirname, $glob) = @inarr;

  1712 			my $modulename = StripModulePrefix($dirname);

  1713 			my $src = "$libRoot/$libname/internal/testapps/$dirname/$glob";

  1714 			my $dst = $ATSRoot."\\components\\$libname"."_"."$modulename\\General\\";

  1715   		if($dirname eq "libc_loc_blr")

  1716   		{

  1717   			$src = "$libRoot/libc/src/locales.txt";

  1718   		}

  1719   		my @filesFound = glob($src);

  1720   		if(scalar @filesFound == 0)

  1721   		{

  1722   			die("DIED: no Dat file found to copy!");

  1723   		}

  1724   		foreach my $file(@filesFound)

  1725   		{

  1726   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");

  1727   		}

  1728   }#ref processing

  1729 }#fn

  1732 #glib dat file copy

  1733 sub CopyArbitDatFiles($$)

  1734 {

  1736 	 my $libname = shift @_;

  1737 	 my $refArr = shift @_;

  1738 	 my @list = @$refArr;

  1741 	my $fname;

  1742 	my $modulename;

  1743 	my $location;

  1744 	my $atsDst;

  1745 	my $targetDst;

  1747 	#now copy the files appropriately

  1748 	foreach my $ref(@list)

  1749 	{

  1750 			my @inarr = @$ref;

  1751 			($fname, $modulename, $location, $atsDst, $targetDst) = @inarr;

  1752 			#print "[$fname, $modulename, $location, $atsDst, $targetDst]\n";

  1753 			if($location =~ /(.*)\.\.(.*)/)

  1754 			{

  1755 				$location = GetPathPrefix().$2;

  1756 			}

  1757 			else

  1758 			{

  1759 				$location = $rootDrive.$location;

  1760 			}

  1761 			my $src = $location.$fname;

  1762 			my $dst = $ATSRoot."\\components\\$libname"."_".$modulename.$atsDst;

  1763 			if($libname eq "")

  1764 			{

  1765 				$dst = $ATSRoot."\\components\\".$modulename.$atsDst;

  1766 				#print "$dst CHANGED!\n"

  1767 			}

  1769   		my @filesFound = glob($src);

  1770   		if(scalar @filesFound == 0)

  1771   		{

  1772   			die("DIED: no Dat file  $src found to copy!");

  1773   		}

  1774   		foreach my $file(@filesFound)

  1775   		{

  1776   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");

  1777   		}

  1779   		if($targetDst ne "")

  1780   		{

  1781   			 		my @filesToChange = ();

  1782 			  		if($atsDst =~ "armv5")

  1783 			  		{

  1784 			  			#armv5 component file

  1785 			  			unshift @filesToChange, $libname."_".$modulename."_module_blr_hw_component.xml";

  1787 			  		}

  1788 			  		elsif($atsDst =~ "winscw")

  1789 			  		{

  1790 			  			#winscw component file

  1791 			  			unshift @filesToChange, $libname."_".$modulename."_module_blr_winsspd_component.xml";

  1792 			  		}

  1793 			  		else

  1794 			  		{

  1795 			  			#add entry to both xmls

  1796 			  			unshift @filesToChange, $libname."_".$modulename."_module_blr_hw_component.xml";

  1797 			  			unshift @filesToChange, $libname."_".$modulename."_module_blr_winsspd_component.xml";

  1798 			  		}

  1799 			  		foreach my $file(@filesToChange)

  1800 			  		{

  1801 			  			$src = $ATSRoot."/components/".$libname."_"."$modulename/".$file;

  1802 			  			ModifyXml($src,$libname,$fname,$atsDst,$targetDst);

  1803 			  		}

  1804 			  }#updating the xmls

  1806   }#ref processing

  1809 }#fn

  1811 sub ModifyXml($$$$$)

  1812 {

  1813 	my $filename = shift @_;

  1814 	my $lib = shift @_;

  1815 	my $fname = shift @_;

  1816 	my $atsDst = shift @_;

  1817 	my $targetDst = shift @_;

  1820 	#printf("Modifying $filename with lib= $lib fname= $fname atsDst = $atsDst targetDst = $targetDst\n");

  1822 	# Open input file

  1823 	open (INFILE, $filename ) || die ("Can not find $filename");

  1825 	#Open output file

  1826 	my $newOutput = $filename."new";

  1827 	open (OUTFILE, ">".$newOutput ) || die ("Can not open $newOutput");

  1830 	# Replace text in files

  1831 	while (<INFILE>)

  1832 	{

  1833 	  if(/\<stif\>/ || /\<execute\>/)

  1834 	  {

  1835 	  	if(/\<stif\>/)

  1836 	  	{

  1837 	  		print OUTFILE "\<stif\>\n";

  1838 	  	}

  1839 	  	else

  1840 	  	{

  1841 	  		print OUTFILE "\<execute\>\n";

  1842 	  	}

  1843 	  	my $type = "data";

  1844 	  	if($atsDst !~ "General")

  1845 			{

  1846 				$type = "binary";

  1847 			}

  1848 			print OUTFILE <<EObinary;

  1850 	  		<install type=\"$type\">

  1851 				<src>$fname</src>

  1852 				<dst>$targetDst\\$fname</dst>

  1853  				</install>

  1854 EObinary

  1855 	  }#stif or execute tag found

  1856 	  else

  1857 	  {

  1858 	  	  print OUTFILE $_;

  1859 	  }

  1860 	}#while

  1861 	# Close filehandles

  1862 	close (INFILE);

  1863 	close (OUTFILE);

  1865 	# Rename result file

  1866 	unlink $filename;

  1867 	rename $newOutput,$filename;

  1869 }#fn

  1870 sub GenGenModules($)

  1871 {

  1872 	my $libname = shift @_;

  1875 	my $src = $ATSRoot."/components/";

  1876 	my @fileList = ();

  1877 	opendir(DIRHANDLE, "$src") || die "Cannot opendir $src";

  1878   foreach my $name (readdir(DIRHANDLE))

  1879   {

  1880     if($name =~ /^$libname/)

  1881     {

  1882     	if($libname ne "libc" || $name !~ /^libcrypt/)

  1883     	{

  1884     		$name =~ s/^$libname//;

  1885     		$name =~ s/^_//;

  1886     		unshift @fileList, $name;

  1887     	}#excluded libcrypt from libc list

  1888     }#libname match

  1889   }#foreach

  1890   closedir(DIRHANDLE);

  1891 	return @fileList;

  1892 }

  1895 sub GetAllModules()

  1896 {

  1898 	my $src = $ATSRoot."/components/";

  1899 	my @fileList = ();

  1900 	opendir(DIRHANDLE, "$src") || die "Cannot opendir $src";

  1901   foreach my $name (readdir(DIRHANDLE))

  1902   {

  1903     	if($name ne "." && $name ne ".." && $name ne "shared")

  1904 			{

  1905 				unshift @fileList, $name;

  1906 			}

  1908   }#foreach

  1909   closedir(DIRHANDLE);

  1910 	return @fileList;

  1911 }

  1915 sub TransformXmls($$)

  1916 {

  1917 	my $libname = shift @_;

  1918 	my $shared = shift @_;

  1919 	my $target = shift @_;

  1920 	my $module;

  1921 	my $src;

  1922 	my $dst;

  1924 	my $armv5 = 0;

  1925 	my $winscw = 0;

  1926 	if($target eq "armv5")

  1927 	{

  1928 			$armv5 = 1;

  1929   }

  1930   elsif($target eq "winscw")

  1931   {

  1932   		$winscw = 1;

  1933   }

  1934   else

  1935   {

  1936   	$armv5  = $do_armv5;

  1937   	$winscw = $do_winscw;

  1938 	}

  1941 	foreach $module(@generatedModules)

  1942 	{

  1943 	  if($armv5 == 1 && $winscw == 1)

  1944 	  {

  1945 			$src = $ATSRoot."/components/".$libname."_"."$module/*.xml";

  1946 		}

  1947 		elsif($armv5 == 1)

  1948 		{

  1949 			$src = $ATSRoot."/components/".$libname."_"."$module/*_hw_component.xml";

  1950 		}

  1951 		elsif($winscw == 1)

  1952 		{

  1953 			$src = $ATSRoot."/components/".$libname."_"."$module/*_winsspd_component.xml";

  1954 		}

  1955 		my @fileList = glob($src);

  1956 		foreach my $file(@fileList)

  1957 		{

  1958 		 	#print"$file to  be transformed!\n";

  1959 			AddLibsInXml($libname,$file,$shared);

  1960 		}

  1961    }

  1962 }#fn

  1964 sub AddLibsInXml($$$)

  1965 {

  1966 	my $libname = shift @_;

  1967 	my $filename = shift @_;

  1968 	my $shared = shift @_;

  1970 	# Open input file

  1971 	open (INFILE, $filename ) || die ("Can not find $filename");

  1973 	#Open output file

  1974 	my $newOutput = $filename."new";

  1975 	open (OUTFILE, ">".$newOutput ) || die ("Can not open $newOutput");

  1977 	my $drive = "c:";

  1979 	# Replace text in files

  1980 	while (<INFILE>)

  1981 	{

  1982 	  if(/\<stif\>/ || /\<execute\>/)

  1983 	  {

  1984 	  	if(/\<stif\>/)

  1985 	  	{

  1986 	  		print OUTFILE "\<stif\>\n";

  1987 	  	}

  1988 	  	else

  1989 	  	{

  1990 	  		print OUTFILE "\<execute\>\n";

  1991 	  		if($filename =~ /winsspd/)

  1992 				{

  1993 					$drive = "z:";

  1994 				}

  1995 	  	}

  1996 	  	foreach my $installable(@dllList)

  1997 			{

  1998 				print OUTFILE <<EOLine;

  2000 	  		<install type=\"$shared binary\">

  2001 				<src>$installable</src>

  2002 				<dst>$drive\\sys\\bin\\$installable</dst>

  2003  				</install>

  2004 EOLine

  2005 			}

  2007 	  }

  2008 	  else

  2009 	  {

  2010 	  	  print OUTFILE $_;

  2011 	  }

  2012 	}#while

  2013 	# Close filehandles

  2014 	close (INFILE);

  2015 	close (OUTFILE);

  2017 	# Rename result file

  2018 	unlink $filename;

  2019 	rename $newOutput,$filename;

  2020 }

  2022 sub CopySharedDlls()

  2023 {

  2024   my $libname = shift @_;

  2025   my $ref = shift @_;

  2026   my @ListOfDlls = @$ref;

  2027   my $target = shift @_;

  2028 	my $module;

  2029 	my $src;

  2030 	my $dst;

  2032 	my $do_armv5 = 0;

  2033 	my $do_winscw = 0;

  2034 	if($target eq "armv5")

  2035 	{

  2036 		$do_armv5 = 1;

  2037 	}

  2038 	elsif($target eq "winscw")

  2039 	{

  2040 		$do_winscw =  1;

  2041 	}

  2042 	else

  2043 	{

  2044 		$do_armv5  = 1;

  2045 		$do_winscw = 1;

  2046 	}

  2049 	mkdir  $ATSRoot."\\components\\shared" || die("Wouldn't make shared folder in $ATSRoot\\components");

  2050 	if($do_winscw == 1)

  2051 	{

  2052 		mkdir  $ATSRoot."\\components\\shared\\winscw_udeb" || die("Wouldn't make shared folder in $ATSRoot\\components\winscw_udeb");

  2053 	}

  2054 	if($do_armv5 == 1)

  2055 	{

  2056 		mkdir  $ATSRoot."\\components\\shared\\armv5_urel" || die("Wouldn't make shared folder in $ATSRoot\\components\armv5_urel");

  2057 	}

  2059 	foreach my $copyDll(@ListOfDlls)

  2060 	{

  2061 		if($do_winscw == 1)

  2062 		{

  2063 			$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;

  2064 			$dst = $ATSRoot."\\components\\shared";

  2065 			$dst = $dst."\\winscw_udeb\\";

  2066 			copy($src, $dst)  || warn("unable to copy $src to $dst");

  2067 		}

  2068 		if($do_armv5 == 1)

  2069 		{

  2070 			$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;

  2071 			$dst = $ATSRoot."\\components\\shared";

  2072 			$dst = $dst."\\armv5_urel\\";

  2073 			copy($src, $dst)  || warn("unable to copy $src to $dst");

  2074 		}

  2075 	}#foreach

  2076 }#fn

  2079 sub CopyMultiDlls($)

  2080 {

  2081   my $libname = shift @_;

  2082 	my $module;

  2083 	my $src;

  2084 	my $dst;

  2085 	foreach my $listed(@generatedModules)

  2086 	{

  2087 		foreach my $copyDll(@dllList)

  2088 		{

  2089 			if($do_winscw == 1)

  2090 			{

  2091 				$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;

  2092 				$dst = $ATSRoot."\\components\\$libname"."_$listed";

  2093 				$dst = $dst."\\winscw_udeb\\";

  2094 				copy($src, $dst)  || warn("unable to copy $src to $dst");

  2095 			}

  2096 			if($do_armv5 == 1)

  2097 			{

  2098 				$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;

  2099 				$dst = $ATSRoot."\\components\\$libname"."_$listed";

  2100 				$dst = $dst."\\armv5_urel\\";

  2101 				copy($src, $dst)  || warn("unable to copy $src to $dst");

  2102 			}

  2103 		}#foreach

  2104 	}

  2105 }#fn

  2107 sub StripModulePrefix($)

  2108 {

  2109 	my $listed = pop @_;

  2110 	my $module = $listed;

  2111 	if($dontStrip == 0)

  2112 	{

  2113 		$module =~ s/^test//;

  2114 		$module =~ s/^t//;

  2115 		$module =~ s/^libc_//;

  2116 		$module =~ s/^libm_//;

  2117   }

  2118   return $module;

  2120 }

  2122 sub GetLsbModules()

  2123 {

  2124 	my @lsbList =

  2125 	(

  2126 	 "abs",

  2127 "acos",

  2128 "asctime",

  2129 "asin",

  2130 "atan",

  2131 "atan2",

  2132 "atof",

  2133 "atoi",

  2134 "atol",

  2135 "bsearch",

  2136 "calloc",

  2137 "ceil",

  2138 "chdir",

  2139 "clearerr",

  2140 "close",

  2141 "closedir",

  2142 "cos",

  2143 "cosh",

  2144 "creat",

  2145 "lsb_ctime",

  2146 "lsb_difftime",

  2147 "dlclose",

  2148 "dlerror",

  2149 "dlopen",

  2150 "dup",

  2151 "dup2",

  2152 "exp",

  2153 "fabs",

  2154 "fclose",

  2155 "fcntl_x",

  2156 "fdopen",

  2157 "feof",

  2158 "ferror",

  2159 "fflush",

  2160 "fgetpos",

  2161 "fgets",

  2162 "fileno",

  2163 "floor",

  2164 "fmod",

  2165 "fopen",

  2166 "fopen_X",

  2167 "fprintf",

  2168 "fputs",

  2169 "fread",

  2170 "free",

  2171 "freopen",

  2172 "freopen_X",

  2173 "frexp",

  2174 "fseek",

  2175 "fsetpos",

  2176 "fstat",

  2177 "ftell",

  2178 "ftok",

  2179 "ftok_l",

  2180 "fwrite",

  2181 "getc",

  2182 "getcwd",

  2183 "gets",

  2184 "lsb_gmtime",

  2185 "ldexp",

  2186 "link",

  2187 "lsb_localtime",

  2188 "log",

  2189 "log10",

  2190 "longjmp",

  2191 "lseek",

  2192 "malloc",

  2193 "memchr_X",

  2194 "memcmp_X",

  2195 "memcpy_X",

  2196 "memmove",

  2197 "memset_X",

  2198 "mkdir",

  2199 "mkfifo",

  2200 "lsb_mktime",

  2201 "modf",

  2202 "msgctl",

  2203 "msgget",

  2204 "msgsnd",

  2205 "open",

  2206 "opendir",

  2207 "open_x",

  2208 "perror",

  2209 "pipe",

  2210 "pow",

  2211 "printf",

  2212 "qsort",

  2213 "rand",

  2214 "read",

  2215 "readdir",

  2216 "readv_l",

  2217 "realloc",

  2218 "remove",

  2219 "rename",

  2220 "rewind",

  2221 "rewinddir",

  2222 "rmdir",

  2223 "scanf",

  2224 "scanf_X",

  2225 "seekdir",

  2226 "semctl",

  2227 "semget",

  2228 "semop",

  2229 "setbuf",

  2230 "setjmp",

  2231 "shmat",

  2232 "shmdt",

  2233 "shmget",

  2234 "sin",

  2235 "sinh",

  2236 "sqrt",

  2237 "srand",

  2238 "stat",

  2239 "strcat",

  2240 "strchr",

  2241 "strcmp",

  2242 "strcoll_X",

  2243 "strcpy",

  2244 "strcspn",

  2245 "strerror_X",

  2246 "strftime",

  2247 "strftime_X",

  2248 "strlen",

  2249 "strncat",

  2250 "strncmp",

  2251 "strncpy",

  2252 "strpbrk",

  2253 "strptime",

  2254 "strrchr",

  2255 "strspn",

  2256 "strstr",

  2257 "strtod_X",

  2258 "strtok",

  2259 "strtol_X",

  2260 "strxfrm_X",

  2261 "tan",

  2262 "tanh",

  2263 "telldir",

  2264 "telldir_l",

  2265 "lsb_time",

  2266 "tmpfile",

  2267 "tmpnam",

  2268 "ungetc",

  2269 "unlink",

  2270 "utime",

  2271 "vfprintf",

  2272 "vprintf",

  2273 "write",

  2274 "writev_l",

  2276 	);

  2277   return @lsbList;

  2278 }

  2282 sub GenBackendTest()

  2283 {

  2285 	my @datList =

  2286 	(

  2287 	["libc", "tlibcbackend"],

  2288 	);

  2290 	mkdir $ATSRoot;

  2291 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");

  2293 	my $lib;

  2294 	my $module;

  2295 	my $ext;

  2296 	foreach my $ref(@datList)

  2297 	{

  2298 			my @inarr = @$ref;

  2299 			($lib, $module,$ext) = @inarr;

  2300 			@generatedModules = ($module);

  2301 			GenDirs($lib);

  2302 			CopyDlls($lib,".dll");

  2303 	}

  2304  #now copy xmls

  2305  CopyAtsSetup();

  2306  #extra exes

  2307  @generatedModules = ("tlibcbackend");

  2308  CopyDeps("libc","TPopenReadChild.exe");

  2309  CopyDeps("libc","TPopenWriteChild.exe");

  2311 }#fn

  2313 sub CopyAtsSetup()

  2314 {

  2315 	 my $libname = "libc";

  2316 	 my @list = (

  2317   				 ["*.xml", "libcbackend", "/../backend/internal/tlibcbackend/group/","/", ""],

  2318   				 ["*.cfg", "libcbackend", "/../backend/internal/tlibcbackend/group/","/General/", ""],

  2319   				 ["*.ini", "libcbackend", "/../backend/internal/tlibcbackend/group/","/General/", ""],

  2320   				 );

  2322   my $bDataRef = \@list;

  2323 	CopyArbitDatFiles("libc",$bDataRef);

  2325 }#fn

  2326 sub GetPathPrefix()

  2327 {

  2328 	 my $srcPrefix = $templateRoot;

  2329 	 $srcPrefix =~ /(.*)tsrc.*/;

  2330 	 $srcPrefix = $1;

  2331 	 return $srcPrefix;

  2332 }

  2335 #dat file copy

  2336 sub CopyCryptoDat()

  2337 {

  2338 	my $libRoot = $templateRoot;

  2339 	$libRoot =~ /(.*)internal.*/;

  2340 	$libRoot = $1;

  2342  my @list = (

  2343  								 ["libssl", "ssltest", "/tsrc/ssl_test/data/*"],

  2344  								 ["libcrypto", "topenssl", "/tsrc/topenssl/data/*"],

  2345            );

  2347 	 my $libname;

  2348 	 my $dirname;

  2349 	 my $glob;

  2350 	foreach my $ref(@list)

  2351 	{

  2352 			my @inarr = @$ref;

  2353 			($libname, $dirname, $glob) = @inarr;

  2354 			my $modulename = StripModulePrefix($dirname);

  2355 			my	$srcPrefix = GetPathPrefix();

  2357 			my $src = "$srcPrefix"."$glob";

  2359 			my $dst = $ATSRoot."\\components\\$libname"."_"."$modulename\\General\\";

  2360   		my @filesFound = glob($src);

  2361   		if(scalar @filesFound == 0)

  2362   		{

  2363   			die("DIED: no Dat file found to copy!");

  2364   		}

  2365   		foreach my $file(@filesFound)

  2366   		{

  2367   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");

  2368   		}

  2369   }#ref processing

  2370 }#fn

  2372 #Crypto xmls copy

  2373 sub CopyCryptoXmls()

  2374 {

  2375 	  my @list = (

  2376   				 ["*.xml", "libssl_ssltest/", "/tsrc/ssl_test/group/"],

  2377    				 ["*.xml", "libcrypto_crypto_test/", "/tsrc/crypto_test/group/"],

  2378    				 ["*.xml", "libcrypto_openssl/", "/tsrc/topenssl/group/"],

  2379   				 );

  2382 	my $fname;

  2383 	my $moduleDst;

  2384 	my $location;

  2386 	#now copy the files appropriately

  2387 	foreach my $ref(@list)

  2388 	{

  2389 			my @inarr = @$ref;

  2390 			($fname, $moduleDst, $location) = @inarr;

  2391 			my $src = GetPathPrefix().$location.$fname;

  2392 			my $dst = $ATSRoot."\\components\\$moduleDst";

  2394   		my @filesFound = glob($src);

  2395   		if(scalar @filesFound == 0)

  2396   		{

  2397   			die("DIED: no xml file found to copy!");

  2398   		}

  2399   		foreach my $file(@filesFound)

  2400   		{

  2401   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");

  2402   		}

  2403   	}#ref

  2405   	my @crypto_copyList = ("*.txt", "*cfg", "*.ini");

  2407   	foreach my $item(@crypto_copyList)

  2408   	{

  2409   			$location = "/libcrypto/internal/testapps/crypto_test/group/";

  2410   			$fname = GetPathPrefix().$location.$item;

  2411   			my @filesFound = glob($fname);

  2412   			foreach my $file(@filesFound)

  2413   			{

  2414     			$moduleDst = "libcrypto_crypto_test/";

  2415   				my $dst = $ATSRoot."\\components\\".$moduleDst."/General/";

  2416   				copy($file, $dst);

  2417   			}

  2418   	}

  2419 }#fn

  2421 sub GenCryptoTest()

  2422 {

  2424 	my @datList =

  2425 	(

  2426 	["libssl", "ssltest", ".exe"],

  2427 	["libcrypto", "crypto_test",".dll"],

  2428 	["libcrypto", "openssl",".exe"],

  2429 	);

  2431 	mkdir $ATSRoot;

  2432 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");

  2434 	my $lib;

  2435 	my $module;

  2436 	my $ext;

  2437 	foreach my $ref(@datList)

  2438 	{

  2439 			my @inarr = @$ref;

  2440 			($lib, $module,$ext) = @inarr;

  2441 			@generatedModules = ($module);

  2442 			GenDirs($lib);

  2443 			CopyDlls($lib,$ext);

  2444 	}

  2445 	CopyCryptoDat();

  2446 	CopyCryptoXmls();

  2449 }#fn

  2452 #ngi xml copy

  2453 sub CopyNgiXmls()

  2454 {

  2455 	  my @list = (

  2456    				 ["*.xml", "ngi_sa_amrrecording", "/audio/lowlevelaudio/internal/sa_amrrecording/group/"],

  2457    				 ["*.xml", "ngi_sa_highlevelaudio", "/audio/highlevelaudio/internal/sa_highlevelaudio/group/"],

  2458   				 ["*.xml", "ngi_sa_audiomixing", "/audio/lowlevelaudio/internal/sa_audiomixing/group/"],

  2459   				 ["*.xml", "ngi_sa_audiorecording", "/audio/lowlevelaudio/internal/sa_audiorecording/group/"],

  2460   				 ["*.xml", "ngi_sa_clip", "/audio/lowlevelaudio/internal/sa_clip/group/"],

  2461   				 ["*.xml", "ngi_sa_lowlevelaudio", "/audio/lowlevelaudio/internal/sa_lowlevelaudio/group/"],

  2462   				 ["*.xml", "ngi_sa_stream", "/audio/lowlevelaudio/internal/sa_stream/group/"],

  2464   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_antitearing/group/"],

  2465   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_colortranslation/group/"],

  2466   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_createfb565/group/"],

  2467   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_createfb888/group/"],

  2468   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_heapusage/group/"],

  2469   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_multibb/group/"],

  2470   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_performance/group/"],

  2471            ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_plswitching/group/"],

  2472            ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_misc/group/"],

  2473   				 ["*.xml", "ngi_sa_bitmap", "/graphics/bitmap/internal/sa_bitmap/group/"],

  2474   				 ["*.xml", "ngi_sa_camera", "/graphics/camera/internal/sa_camera/group/"],

  2475   				 ["*.xml", "ngi_sa_images", "/graphics/images/internal/sa_images/group/"],

  2476   				 ["*.xml", "ngi_sa_display", "/graphics/display/internal/sa_display/group/"],

  2477   				 ["*.xml", "ngi_sa_lights", "/graphics/lights/internal/sa_lights/group/"],

  2478   				 ["*.xml", "ngi_sa_videoplayback", "/graphics/video/internal/sa_videoplayback/group/"],

  2480   				 ["*.xml", "ngi_sa_input", "/input/input/internal/sa_input/group/"],

  2481   				 ["*.xml", "ngi_sa_textinput", "/input/textinput/internal/sa_textinput/group/"],

  2482   				 ["*.xml", "ngi_sa_devicecapabilities", "/system/devicecapabilities/internal/sa_devicecapabilities/group/"],

  2483   				 ["*.xml", "ngi_sa_devicestatus", "/system/devicestatus/internal/sa_phone/group/"],

  2484   				 ["*.xml", "ngi_sa_runtimetester", "/system/runtime/internal/sa_runtimetester/group/"],

  2485   				 ["*.xml", "ngi_sa_timing", "/timing/internal/sa_timing/group/"],

  2486 	  				 );

  2489 	my $fname;

  2490 	my $moduleDst;

  2491 	my $location;

  2493 	#now copy the files appropriately

  2494 	foreach my $ref(@list)

  2495 	{

  2496 			my @inarr = @$ref;

  2497 			($fname, $moduleDst, $location) = @inarr;

  2498 			my $src = GetPathPrefix().$location.$fname;

  2499 			my $dst = $ATSRoot."\\components\\$moduleDst";

  2501 			#print "My src is $src\n";

  2502 			#print "My dst is $dst\n";

  2504   		my @filesFound = glob($src);

  2505   		if(scalar @filesFound == 0)

  2506   		{

  2507   			warn("warning: no xml file found to copy from $src!");

  2508   		}

  2509   		foreach my $file(@filesFound)

  2510   		{

  2511   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");

  2512   		}

  2513   	}#ref

  2515 }#fn

  2518 sub GenNgiTest()

  2519 {

  2521 	my @datList =

  2522 	(

  2523 	["ngi", "sa_amrrecording", ".dll"],

  2524 	["ngi", "sa_highlevelaudio", ".dll"],

  2525 	["ngi", "sa_audiomixing", ".dll"],

  2526 	["ngi", "sa_audiorecording", ".dll"],

  2527 	["ngi", "sa_clip", ".dll"],

  2528 	["ngi", "sa_lowlevelaudio", ".dll"],

  2529 	["ngi", "sa_stream", ".dll"],

  2530 	["ngi", "sa_bitmap", ".dll"],

  2531 	["ngi", "sa_camera", ".dll"],

  2532 	["ngi", "sa_images", ".dll"],

  2533 	["ngi", "sa_display", ".dll"],

  2534 	["ngi", "sa_lights", ".dll"],

  2535 	["ngi", "sa_videoplayback", ".dll"],

  2536 	["ngi", "sa_input", ".dll"],

  2537 	["ngi", "sa_textinput", ".dll"],

  2538 	["ngi", "sa_devicecapabilities", ".dll"],

  2539 	["ngi", "sa_devicestatus", ".dll"],

  2540 	["ngi", "sa_runtimetester", ".dll"],

  2541 	["ngi", "sa_timing", ".dll"],

  2543 	);

  2545 	mkdir $ATSRoot;

  2546 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");

  2549 	my $lib;

  2550 	my $module;

  2551 	my $ext;

  2552 	foreach my $ref(@datList)

  2553 	{

  2554 			my @inarr = @$ref;

  2555 			($lib, $module,$ext) = @inarr;

  2556 			@generatedModules = ($module);

  2557 			GenDirs($lib);

  2558 			CopyDlls($lib,$ext);

  2559 	}

  2561    @generatedModules =("sa_backbuffer");

  2562    GenDirs($lib);

  2563    @dllList =

  2564    (

  2565    	"sa_bb_antitearing.dll",

  2566    	"sa_bb_colortranslation.dll",

  2567    	"sa_bb_createfb444.dll",

  2568    	"sa_bb_createfb565.dll",

  2569    	"sa_bb_createfb888.dll",

  2570    	"sa_bb_misc.dll",

  2571    	"sa_bb_heapusage.dll",

  2572    	"sa_bb_multibb.dll",

  2573    	"sa_bb_performance.dll",

  2574    	"sa_bb_plswitch.dll",

  2575    	"sa_bb_testenv.dll"

  2576    );

  2577    CopyMultiDlls("ngi");

  2580  	mkdir  $ATSRoot."\\components\\shared" || die("Wouldn't make shared folder in $ATSRoot\\components");

  2581   mkdir  $ATSRoot."\\components\\shared\\winscw_udeb" || die("Wouldn't make shared folder in $ATSRoot\\components\winscw_udeb");

  2582   mkdir  $ATSRoot."\\components\\shared\\armv5_urel" || die("Wouldn't make shared folder in $ATSRoot\\components\armv5_urel");

  2584 }#fn

  2587 sub GetXmls()

  2588 {

  2589   my @foundList;

  2590   my $libname = shift @_;

  2591 	my @globlist = ();

  2592 	if($target eq "winsspd" && $sdkversion ne "")

  2593 	{

  2594 		@globlist = ("winsspd_".$sdkversion);

  2595 		#print "winsspd ".$sdkversion." selected\n";

  2596 	}

  2597 	elsif($target eq "winsspd")

  2598 	{

  2599 		@globlist = ("winsspd");

  2600 		#print "winsspd selected\n";

  2601 	}

  2602 	elsif($sdkversion ne "")

  2603 	{

  2604 		@globlist = ($target,"hw_".$sdkversion);

  2605 		#print "$target $sdkversion selected\n";

  2606 	}

  2607 	else

  2608 	{

  2609 		@globlist = ($target,"hw");

  2610 		#print "$target $sdkversion selected\n";

  2611 	}

  2613 	foreach my $module(@generatedModules)

  2614 	{

  2615 	  my $glob_to_use = "";

  2616 	  my @fileList;

  2617 	  foreach my $glob(@globlist)

  2618 	  {

  2619 			my $src = $ATSRoot."/components/".$libname."_"."$module/*.xml";

  2620 			#print "Analysing $module and  $glob\n";

  2621 			@fileList = glob($src);

  2622 			foreach my $file(@fileList)

  2623 			{

  2624 			 my $pat = $glob."\_component\.xml";

  2625 			 #print "[$file - $glob"."_component.xml"."]\n";

  2626 				if($file =~ /$pat/)

  2627 				{

  2628 					$glob_to_use = $pat;

  2629 					#print "[$file - $glob"."_component.xml"."]\n";

  2630 					last

  2631 				}

  2632 			}#foreach FILE

  2633 			if($glob_to_use ne "")

  2634 			{

  2635 				last;

  2636 			}

  2637 		}#finding glob

  2638 		if($glob_to_use ne "")

  2639 		{

  2640 				#print "Using the glob $glob_to_use\n";

  2641 				my $src = $ATSRoot."/components/".$libname."_"."$module/*.xml";

  2642 				@fileList = glob($src);

  2643 				foreach my $file(@fileList)

  2644 				{

  2645 					#print "[$file - $glob_to_use]\n";

  2646 					if($file =~ /$glob_to_use/)

  2647 					{

  2648 				  	$file =~ /.*components[\\\/](.*)/;

  2649 				  	my $value = $1;

  2650 				  	$value =~ s/\//\\/g;

  2651 				  	#print "adding $value for $module with $glob_to_use\n";

  2652 						unshift @foundList,$value;

  2653 				  }#if

  2654 				}#foreach

  2655 		}#glob is present

  2656 		else

  2657 		{

  2658 			warn("Unable to figure out glob to use for $module. Skipping...\n");

  2659 		}

  2660 	}#each module

  2661   return @foundList;

  2662  }#fn

  2664 __END__

  2665 :end

author	sl
	Tue, 10 Jun 2014 14:32:02 +0200
changeset 1	260cb5ec6c19
permissions	-rw-r--r--