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

     1 rem

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

     3 rem

     4 rem This library is free software; you can redistribute it and/or

     5 rem modify it under the terms of the GNU Lesser General Public

     6 rem License as published by the Free Software Foundation; either

     7 rem version 2 of the License, or (at your option) any later version.

     8 rem

     9 rem This library is distributed in the hope that it will be useful,

    10 rem but WITHOUT ANY WARRANTY; without even the implied warranty of

    11 rem MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    12 rem Lesser General Public License for more details.

    13 rem

    14 rem You should have received a copy of the GNU Lesser General Public

    15 rem License along with this library; if not, write to the

    16 rem Free Software Foundation, Inc., 59 Temple Place - Suite 330,

    17 rem Boston, MA 02111-1307, USA.

    18 rem

    19 rem Description:

    20 rem

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

    23 @goto end

    25 #!perl

    26 use strict;

    27 use File::Find;

    28 use File::Copy;

    29 use Cwd;

    31 my $sendEmail = "no";

    32 my $target = "winsspd";

    33 my $suite;

    34 my $install = "no";

    35 my $session = "no";

    36 my $combinedSession = "no";

    37 my $sdkversion="";

    38 my $noXmlsGenList = "play_new";

    40 my %DirHash;

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

    44 {

    45 	print <<EOHelp;

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

    47 Usage:

    48 	genatsmodules.bat

    49 		Create ATSINPUT for the default testsuite based on

    50 		location it is executed from place in stdlibs/internal

    51 		and run and it generates ATSINPUT for stdlibs

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

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

    54     and ngi respectively

    56   genatsmodules [libname]

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

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

    59 			folder of mobileruntime.

    62   genatsmodules ngi

    63 			create ngi testsuite. Valid inside ngi/internal only

    65 genatsmodules play_new

    66 			create play_new testsuite. Valid inside play_new/internal only

    70 	genatsmodules ltp

    71 			create ltp testsuite. Valid inside stdlibs/internal only

    73 	genatsmodules lsb

    74 			create lsb testsuite. Valid inside stdlibs/internal only

    76 	genatsmodules stdcpp

    77 			create stdcpp testsuite. Valid inside stdcpp/internal only

    79 	genatsmodules [libname] install

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

    81 		 ATSINPUT where the dependent mobileruntime libraries are also

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

    83 		 ATS component files)

    85 	genatsmodules session [libname] [target]

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

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

    88 		session files for scarfe, winsspd etc.

    90 genatsmodules session combined [target]

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

    92       combination of created components and create a combined

    93       session file. This way you get increased flexibility in

    94       the libraries you choose to combine into a single session

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

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

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

    98       component file.

   101 	Note:

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

   103 	the components and then we run (for example)

   104 	"genatsmodules session stdlibs winscw" and

   105 	"genatsmodules session stdlibs scarfe" to create the

   106 	session files.

   107 EOHelp

   108 		exit();

   109 }

   110 my $do_armv5 = 1;

   111 my $do_winscw = 0;

   113 if(scalar @ARGV == 1)

   114 {

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

   116 	{

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

   118 	}

   119 	else

   120 	{

   121 		$suite = $ARGV[0];

   122 	}

   123 }

   124 elsif(scalar @ARGV == 2)

   125 {

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

   127 	{

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

   129 	}

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

   131 	{

   132 		$suite = $ARGV[0];

   133 		$install = "yes";

   134 	}

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

   136 	{

   137 		$do_winscw = 0;

   138 	}

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

   140 	{

   141 		$do_armv5 = 0;

   142 	}

   143 	else

   144 	{

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

   146 	}

   147 }

   148 elsif(scalar @ARGV == 3)

   149 {

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

   151 		{

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

   153 		}

   154 		else

   155 		{

   156 			$session = "yes";

   157 			$suite = $ARGV[1];

   158 			$target = $ARGV[2];

   160 			if($suite eq "combined")

   161 			{

   162 				$combinedSession = "yes";

   163 	  	}

   165 		}

   166 }

   167 elsif(scalar @ARGV == 4)

   168 {

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

   170 		{

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

   172 		}

   173 		else

   174 		{

   175 			$session = "yes";

   176 			$suite = $ARGV[1];

   177 			$target = $ARGV[2];

   178 			$sdkversion = $ARGV[3];

   179 			if($suite eq "combined")

   180 			{

   181 				$combinedSession = "yes";

   182 	  	}

   183 		}

   184 }

   185 else

   186 {

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

   188 }#end of commandline processing

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

   193 my $templateRoot = getcwd();

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

   196 {

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

   198 }

   199 else

   200 {

   202 	 my $srcPrefix = getcwd();

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

   204 	 $srcPrefix = $1;

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

   206 	 {

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

   208 	 	$srcPrefix = $1;

   210 	 	if($suite eq "glib-2.20.4")

   211 	 	{

   212 	 		$templateRoot = $srcPrefix."/glib-2.20.4/";

   213 	 	}

   214 	 	elsif($suite eq "ssl")

   215 	 	{

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

   217 	 	}

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

   219 	 	{

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

   221 	 		exit();

   222 	 	}

   223 	 }

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

   226 	{

   227 		$suite = "glib-2.20.4";

   228 	}

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

   230 	{

   231 		$suite = "ssl";

   232 	}

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

   234 	{

   235 		$suite = "ngi";

   236 	}

   237 }

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

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

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

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

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

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

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

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

   249 my @generatedModules;

   250 my %cfglocation;

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

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

   255                       "tlibcwchar", "tlink", "tmkfifo", "tmmap", "tmsgqueue",

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

   257 		      "tstdio", "tstdlib", "tstring", "tsyscalls",

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

   259 		      "twcharapi",

   260                );

   262 my @libdlModules = ("tlibdl");

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

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

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

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

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

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

   275 my @stdcpplist = (

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   316 );

   318 my @gliblist = (

   319   				 ["valid-1.gmarkup", "markup_test", "/epoc32/winscw/c/", "/General/", "C:"],

   320 				 ["valid-01.xbel", "bookmarkfile_test", "/epoc32/winscw/c/", "/General/", "C:"],

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

   322   				 ["casemap.txt",  "unicode_caseconv",  "/epoc32/winscw/c/", "/General/", "C:"],

   323   				 ["casefold.txt", "unicode_caseconv",  "/epoc32/winscw/c/", "/General/", "C:"],

   324   				 ["utf8.txt", "unicode_encoding","/epoc32/winscw/c/", "/General/", "C:"],

   325   				 ["collate-1.unicode", "unicode_collate","/epoc32/winscw/c/", "/General/", "C:"],

   326   				 ["NormalizationTest.txt", "unicode_normalize","/epoc32/winscw/c/", "/General/", "C:"],

   327   				 ["4096-random-bytes", "strfuncs", "/epoc32/winscw/c/", "/General/", "C:"],

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

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

   331   				 ["libmoduletestplugin_a.dll", "module_test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],

   332   				 ["libmoduletestplugin_a.dll", "module_test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],

   334   				 ["libmoduletestplugin_b.dll", "module_test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],

   335   				 ["libmoduletestplugin_b.dll", "module_test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],

   338   				 );

   340 my @ngilist = (

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

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

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

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

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

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

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

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

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

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

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

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

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

   354 					);

   359 my $validexpansions = "all stdlibs combined";

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

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

   362 {

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

   364 }

   366 my $dontStrip = 1;

   367 my	@liblist;

   368 if($suite eq "all")

   369 {

   370 		@liblist = split " ", $validLibraries;

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

   373 }#suite all

   374 elsif($suite eq "ltp")

   375 {

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

   377 }

   378 elsif($suite eq "stdlibs")

   379 {

   380 		@liblist = @stdliblist;

   381 }

   382 elsif($suite eq "ssl")

   383 {

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

   385 }

   386 else

   387 {

   388 		@liblist = ("$suite");

   389 }

   391 #	foreach my $l(@liblist)

   392 #	{

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

   394 #	}

   397 if($combinedSession eq "yes")

   398 {

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

   400 	exit();

   401 }

   403 if($session eq "yes")

   404 {

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

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

   407 	closedir(DIRHANDLE);

   408 	$dontStrip = 1;

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

   410 	{

   411 		@generatedModules = GenGenModules($suite);

   412 		my @componentFiles = GetXmls($suite);

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

   414 		exit();

   415 	}

   416 	elsif($suite eq "ssl")

   417 	{

   418 		my @componentFiles = GetSslXmls();

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

   420 		exit();

   421 	}

   422 	elsif($suite eq "stdlibs")

   423 	{

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

   425 		#copy($file, $dst);

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

   427 		exit();

   428 	}

   429 	foreach my $lib(@liblist)

   430 	{

   431 			@generatedModules = GenGenModules($lib);

   432 			if(scalar @generatedModules != 0)

   433 			{

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

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

   436 			}

   437 	}

   439 	#@generatedModules = GetAllModules();

   440 	#if(scalar @generatedModules != 0)

   441 	#{

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

   443 	#}

   444 	exit();

   445 }#session generation code

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

   449 {

   450 	my @ltpModules = GetLtpModules();

   451 	@generatedModules = @ltpModules;

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

   453 	CopyLtpCfg("ltp");

   456 	my @saved = @dllList;

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

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

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

   460 	@dllList = @saved;

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

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

   465 }

   466 if ($suite eq "glib-2.20.4")

   467 {

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

   469 	my $fileName = $templateRoot;

   470 	#chopn("$fileName", 5);

   471 	chop($fileName);

   472 	chop($fileName);

   473 	chop($fileName);

   474 	chop($fileName);

   475 	chop($fileName);

   477 	$bldfile = $fileName."/build/symbian/tests/group/bld.inf";

   478 	print "bldfile: $bldfile\n";

   479 	my @glibModules = GetCompiledModules($bldfile);

   480 	#mahesh

   481 	print "glibModules: @glibModules\n";

   482 	@generatedModules = @glibModules;

   484 	$bldfile = $fileName."/build/symbian/tests/gobject/group/bld.inf";

   485 	print "bldfile: $bldfile\n";

   486 	my @glibModules = GetCompiledModules($bldfile);

   487 	#mahesh

   488 	print "glibModules: @glibModules\n";

   489 	my $i =0;

   490 	foreach my $name(@glibModules){

   491 		@glibModules[$i] =~ s/ //;

   492 		$i = $i + 1;

   493 	}

   494 	push(@generatedModules, @glibModules);

   496 	$bldfile = $fileName."/build/symbian/tests/refcount/group/bld.inf";

   497 	print "bldfile: $bldfile\n";

   498 	my @glibModules = GetCompiledModules($bldfile);

   499 	#mahesh

   500 	print "glibModules: @glibModules\n";

   501 	my $i =0;

   502 	foreach my $name(@glibModules){

   503 		@glibModules[$i] =~ s/ //;

   504 		$i = $i + 1;

   505 	}

   506 	push(@generatedModules, @glibModules);

   508 	$bldfile = $fileName."/build/symbian/glib/tests/group/bld.inf";

   509 	print "bldfile: $bldfile\n";

   510 	my @glibModules = GetCompiledModules($bldfile);

   511 	#mahesh

   512 	print "glibModules: @glibModules\n";

   513 	my $i =0;

   514 	foreach my $name(@glibModules){

   515 		@glibModules[$i] =~ s/ //;

   516 		$i = $i + 1;

   517 	}

   518 	push(@generatedModules, @glibModules);

   520 	$bldfile = $fileName."/build/symbian/gobject/tests/group/bld.inf";

   521 	print "bldfile: $bldfile\n";

   522 	my @glibModules = GetCompiledModules($bldfile);

   523 	#mahesh

   524 	print "glibModules: @glibModules\n";

   525 	my $i =0;

   526 	foreach my $name(@glibModules){

   527 		@glibModules[$i] =~ s/ //;

   528 		$i = $i + 1;

   529 	}

   531 	push(@generatedModules, @glibModules);

   533 	DoGen("glib-2.20.4",".exe");

   534 	my $gDataRef = \@gliblist;

   535 	CopyArbitDatFiles("glib-2.20.4",$gDataRef);

   537 	if($install eq "yes")

   538 	{

   539 		my @saved = @dllList;

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

   541                 "libglib.dll");

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

   544   @dllList = @glib2dllList;

   545   CopySharedDlls("glib-2.20.4",\@dllList);

   546   TransformXmls("glib-2.20.4", "shared");

   548 		@dllList = @saved;

   549 	}#if install

   550 }#glib-2.20.4

   553 if ($suite eq "ssl")

   554 {

   555 	my $stripStatus = $dontStrip;

   556 	$dontStrip = 0;

   557 	GenCryptoTest();

   558 	if($install eq "yes")

   559 	{

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

   561 	}#if install

   562 	$dontStrip = $stripStatus;

   563 }#ssl

   565 if($suite eq "ngi")

   566 {

   568 	GenNgiTest();

   569 	CopyNgiXmls();

   570 	CopyArbitDatFiles("",\@ngilist);

   572 }

   574 if($suite eq "play_new")

   575 {

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

   577 	"libxmlstiff","ngisvgtestmodule");

   578 	@generatedModules = @play_newModules;

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

   581 	 my @list = (

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   604   				 );

   606   my $bDataRef = \@list;

   607 	CopyArbitDatFiles("play_new",$bDataRef);

   608 	if($install eq "yes")

   609 	{

   610 		@generatedModules = GenGenModules("play_new");

   611 		my @saved = @dllList;

   612 		my @playList = (

   613 "ngifonts.dll",

   614 "ngimessaging.dll",

   615 "ngisvg.dll",

   616 "ngilocation.dll",

   617 "ngialerts.dll",

   618 "libstdcpp.dll",

   619 "libxmlpp.dll",

   620 "FeedsLibXml2xmlpp.dll");

   621        @dllList = @playList;

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

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

   624 		@dllList = @saved;

   626 	}#end install

   629 }

   631 if($suite eq "stdcpp")

   632 {

   633 	@generatedModules = GetstdcppModules();

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

   635 	CopyLtpCfg("stdcpp");

   636 	@generatedModules = GetstdexeModules();

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

   639 	my @saved = @dllList;

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

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

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

   643 	@dllList = @saved;

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

   647 	if($install eq "yes")

   648 	{

   649 		@generatedModules = GenGenModules("stdcpp");

   650 		my @saved = @dllList;

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

   652        @dllList = @cppList;

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

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

   655 		@dllList = @saved;

   656 	}#if install

   657 }

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

   661 {

   662 	my @lsbModules = GetLsbModules();

   663 	@generatedModules = @lsbModules;

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

   666 	my @depDlls;

   667 	my $dll;

   669 	#copying the common dlls

   670 	@depDlls  =

   671 	(

   672 	 "libapi.dll",

   673 	 "tcm.dll",

   674 	 "vlib.dll",

   675 	);

   677 	foreach $dll (@depDlls)

   678 	{

   679 		CopyDeps("lsb",$dll);

   680 	}

   681 	#now copy the cfg files

   682 	CopyLsbCfg("lsb");

   683 	#now copy the extra dependency dlls

   685 	#dlopen

   686 	@generatedModules = ("dlopen");

   690 	@depDlls  =

   691 	(

   692 	 "dynlibtest.1.dll",

   693 	 "dynlibtest.11.1.dll",

   694 	 "dynlibtest.11.2.dll",

   695 	 "dynlibtest.12g.dll",

   696 	 "dynlibtest.12r.dll",

   697 	 "dynlibtest.14.1.dll",

   698 	 "dynlibtest.14.2.dll",

   699 	 "dynlibtest.14.3.dll",

   700 	 "dynlibtest.3.1.dll",

   701 	 "dynlibtest.3.2.dll",

   702 	 "dynlibtest.3.dll",

   703 	 "dynlibtest.4.dll",

   704 	 "dynlibtest.8.dll",

   705 	 "dynlibtest.9.dll",

   706 	 "dynlibtest.3.dll",

   707 	 "dynlibtest.8.dll",

   708 	);

   710 	foreach $dll (@depDlls)

   711 	{

   712 		CopyDeps("lsb",$dll);

   713 	}

   715 	#dlclose

   716 	@generatedModules = ("dlclose");

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

   718 	foreach $dll (@depDlls)

   719 	{

   720 		CopyDeps("lsb",$dll);

   721 	}

   723 	#dlerror

   724 	@generatedModules = ("dlerror");

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

   726 	foreach $dll (@depDlls)

   727 	{

   728 		CopyDeps("lsb",$dll);

   729 	}

   731 	#now copy the xmls!

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

   734 	my $dst;

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

   737 	{

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

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

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

   741 	}

   743 }

   745 if($suite eq "gcce")

   746 {

   748 	mkdir $ATSRoot;

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

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

   753 	my @depDlls  =

   754 	(

   755 		"gcce-lib.dll",

   756 	);

   758 	my $suffix = ".exe";

   759 	my $libname = "gcce";

   762 	my $src;

   763 	my $dst;

   764 	foreach my $module(@generatedModules)

   765 	{

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

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

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

   770 		#GenExeXmls($module,$libname);

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

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

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

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

   776 	}

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

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

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

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

   783 	my @list = (

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

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

   786   				 );

   788   my $bDataRef = \@list;

   789 	CopyArbitDatFiles("gcce",$bDataRef);

   792 }#if gcce

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

   797 {

   798 	$dontStrip = 0;

   799 	mkdir $ATSRoot;

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

   802 	@generatedModules = ("tstring");

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

   805 	my @localelist = (

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

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

   809 	  				 );

   811   my $bDataRef = \@localelist;

   812 	CopyArbitDatFiles("libc",$bDataRef);

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

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

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

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

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

   820 }#if libc-locale

   823 if($suite eq "pcts")

   824 {

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

   826 	my @pctsModules = GetCompiledModules($bldfile);

   827 	@generatedModules = @pctsModules;

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

   830 	my @depDlls;

   831 	my $dll;

   834 	#copying the common dlls

   835 	@depDlls  =

   836 	(

   837 		"vsxlibapi.dll",

   838 		"rttm.exe",

   839 		"rtlibapi.dll",

   840 		"vsxvlib.dll",

   841 		"vsxgenlib.dll",

   842 		"vsxtsetlib.dll",

   843 		"vsxvport.dll",

   844 	);

   846 	if($install eq "yes")

   847 	{

   848 		my @saved = @dllList;

   849 		@dllList = @depDlls;

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

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

   852 		@dllList = @saved;

   854 		#now copy the cfg files

   855 		my $dst;

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

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

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

   859 		foreach my $module(@generatedModules)

   860 		{

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

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

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

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

   865 		}

   866 	}

   871 	my $dst;

   872 	foreach my $module(@generatedModules)

   873 	{

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

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

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

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

   879 	}#module

   880 }

   884 $dontStrip = 0;

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

   887 {

   888 	@generatedModules = ("tzlib");

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

   891 	@generatedModules = ("tlibcrypt");

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

   894 	@generatedModules = @libcModules;

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

   896 	GenBackendTest();

   898 	@generatedModules = ("twchar");

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

   901 	@generatedModules = ("twopen");

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

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

   906 	@generatedModules = @libdlModules;

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

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

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

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

   912 	@generatedModules = @libmModules;

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

   915 	$TDIR = "\\internal\\";

   916 	@generatedModules = @pthreadModules;

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

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

   920 	CopyDatFiles();

   921 }

   923 if($install eq "yes")

   924 {

   925 	foreach my $lib(@liblist)

   926 	{

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

   928 		@generatedModules = GenGenModules($lib);

   929 		my @oldList = @dllList;

   930 		if($do_winscw)

   931   	{

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

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

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

   935   	}

   936   	@dllList = @oldList;

   937   	if($do_armv5)

   938   	{

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

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

   941   	}

   942 	}#FOREACH

   943 }#if install

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

   948 sub GetCompiledModules($)

   949 {

   950 	my $file = shift @_;

   951 	my @moduleList;

   954 	# Open input file

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

   957 	while (<INFILE>)

   958 	{

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

   960 	  {

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

   962 	  		{

   963 	  			push @moduleList, $1;

   964 	  		}

   965 	  }

   966 	}

   967 	close (INFILE);

   968 	return @moduleList;

   969 }

   971 my @groupList;

   972 sub GetLtpModules()

   973 {

   974         my $prevDir = getcwd();

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

   976         my @totalgroupList;

   977         foreach my $node(@rootList)

   978         {

   979         	chdir $ltpPath."/$node";

   980         	@groupList = ();

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

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

   983         }

   984         chdir $prevDir;

   985         return @totalgroupList;

   986 }

   988 sub GetstdexeModules()

   989 {

   990       my $prevDir = getcwd();

   991       my @fullList = ();

   992       foreach my $group(@stdexeList)

   993       {

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

   995       	chdir $groupPath;

   996       	@groupList = ();

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

   998       	chdir $prevDir;

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

  1000       }

  1001       return @fullList;

  1002 }

  1004 sub grovelAllMmpFiles()

  1005 {

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

  1007 	{

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

  1009 	}

  1010 }

  1012 sub GetstdcppModules()

  1013 {

  1014         my $prevDir = getcwd();

  1015         my @rootList = ("auto");

  1016         my @totalgroupList;

  1017         foreach my $node(@rootList)

  1018         {

  1019         	chdir $stdcppPath."/$node";

  1020         	@groupList = ();

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

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

  1023         }

  1024         chdir $prevDir;

  1025         return @totalgroupList;

  1026 }

  1028 sub GetTstdcppModules()

  1029 {

  1030       my $prevDir = getcwd();

  1031       #chdir $tstdcppPath;

  1032       @groupList = ();

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

  1034       chdir $prevDir;

  1035       return @groupList;

  1036 }

  1038 sub MakeGroupList()

  1039 {

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

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

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

  1044 	{

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

  1046 		{

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

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

  1049 		}#first time in group

  1050 	}#group found

  1051 }#subrtn end

  1054 #function that generates the ATS setup

  1055 sub DoGen($$)

  1056 {

  1057 	my $libname = shift @_;

  1058 	my $ext = shift @_;

  1059 	mkdir $ATSRoot;

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

  1063 	GenDirs($libname);

  1064 	my $module;

  1065 	foreach my $listed(@generatedModules)

  1066 	{

  1067 	my @filesToProcess =

  1068         (

  1069          "LibXXX_ATSTemplateXXX_module_blr_hw_component.xml",

  1070          "LibXXX_ATSTemplateXXX_module_blr_winsspd_component.xml",

  1071          "testframework.ini",

  1072         );

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

  1074 		{

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

  1076 		}

  1078 			if($ext eq ".exe")

  1079 			{

  1080 				GenExeXmls($listed,$libname);

  1081 			}

  1082 			else

  1083 			{

  1084 				#just in case no xml file was supplied

  1086         my $ref = \@filesToProcess;

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

  1088 			}

  1089 	}#foreach

  1091 	CopyDlls($libname,$ext);

  1092 	#copy the provided cfg, ini and xmls

  1093 	if($libname eq "opts")

  1094 	{

  1095 		CopyOptsCfg($libname);

  1096 	}

  1097 	elsif($libname eq "ltp" || $libname eq "lsb" || $libname eq "glib-2.20.4")

  1098 	{

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

  1100 	}

  1101 	else

  1102 	{

  1103 	  CopyCfgIniXmls($libname);

  1104 	}

  1105 }

  1107 sub CopyCfgIniXmls()

  1108 {

  1109 	my $libname = pop @_;

  1111 	my $libRoot = $templateRoot;

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

  1113 	$libRoot = $1;

  1116 	my $module;

  1117 	my $src;

  1118 	my $dst;

  1120 	foreach my $listed(@generatedModules)

  1121 	{

  1122 	  my $dirname = $listed;

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

  1124 	  $module = StripModulePrefix($listed);

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

  1128 		my $xmlCopied = "0";

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

  1130 		foreach my $pat(@globpattern)

  1131 		{

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

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

  1134 			{

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

  1136 			}

  1137 			else

  1138 			{

  1139 				$dst = $dst."\\";

  1140 			}

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

  1142 			if(scalar @filesFound eq "0")

  1143 			{

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

  1145 				#print $src;

  1146 			}

  1148 			#handcoded

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

  1150 			{

  1151 				if(scalar @filesFound > 1)

  1152 				{

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

  1154 				}

  1155 				else

  1156 				{

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

  1158 				}

  1159 			}

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

  1161 			{

  1162 				my $folder = $dst;

  1163 				foreach my $from (@filesFound)

  1164 				{

  1165 					if($from =~ /winscw_component/)

  1166 					{

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

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

  1169 						$xmlCopied = "1";

  1170 					}

  1171 					elsif($from =~ /winsspd_component/)

  1172 					{

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

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

  1175 						$xmlCopied = "1";

  1176 					}

  1177 					elsif($from =~ /hw_component/)

  1178 					{

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

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

  1181 						$xmlCopied = "1";

  1182 					}

  1183 				}#examine individually

  1184 				if(scalar @filesFound > 2)

  1185 				{

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

  1187 				}

  1188 				@filesFound = ();

  1189 			}

  1192 			foreach my $from (@filesFound)

  1193 			{

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

  1195 			}#copy individually

  1196 		}#globpattern

  1197 	}#module

  1198 }#fn

  1200 #copy the cfg files for the opts test suite

  1201 sub CopyOptsCfg()

  1202 {

  1203 	my $libname = pop @_;

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

  1206 	my $module;

  1207 	my $src;

  1208 	my $dst;

  1210 	foreach $module(@generatedModules)

  1211 	{

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

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

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

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

  1216 	}#module

  1217 }#fn

  1219 #copy the lsb cfg files

  1220 sub CopyLsbCfg()

  1221 {

  1222 	my $libname = pop @_;

  1224 	my $module;

  1226 	my $dst;

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

  1230 	foreach $module(@generatedModules)

  1231 	{

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

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

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

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

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

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

  1238 	}#module

  1239 }#fn

  1242 #copy the ltp cfg files

  1243 sub CopyLtpCfg($)

  1244 {

  1245 	my $libname = pop @_;

  1247 	my $module;

  1248 	my $src;

  1249 	my $dst;

  1251 	foreach $module(@generatedModules)

  1252 	{

  1253 		$src = $cfglocation{$module};

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

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

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

  1257 	}#module

  1258 }#fn

  1261 sub CopyDlls($$)

  1262 {

  1263 	my $libname = shift @_;

  1264 	my $suffix = shift @_;

  1266 	my $module;

  1267 	my $src;

  1268 	my $dst;

  1271 	foreach $module(@generatedModules)

  1272 	{

  1273 	  if($do_winscw == 1)

  1274 	  {

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

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

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

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

  1279 		}

  1280 	  if($do_armv5 == 1)

  1281 	  {

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

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

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

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

  1286 		}

  1287 	}#foreach

  1288 }

  1289 #fn to generate the session file

  1290 sub GenerateSessionFile($$$$)

  1291 {

  1292 	my $libname = shift @_;

  1293 	my $target = shift @_;

  1294 	my $name = shift @_;

  1295 	my $listptr = shift @_;

  1296 	my $outdir = $ATSRoot;

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

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

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

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

  1301 	if($sdkversion ne "")

  1302 	{

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

  1304 	}

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

  1307 	my $line;

  1308   my $snippet = $target;

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

  1310   {

  1311   	$snippet = "hw";

  1312   }

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

  1315 print OUTFILE "<testsession>\n";

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

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

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

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

  1320 if($sendEmail eq "yes")

  1321 {

  1322 print OUTFILE <<EOEmailNote;

  1323 <email_notification>

  1324 <include_test_cases>true</include_test_cases>

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

  1326 <send_after_rerun>false</send_after_rerun>

  1327 <subject>ATS testreport</subject>

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

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

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

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

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

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

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

  1335 </email_notification>

  1336 EOEmailNote

  1337 }

  1339 	if($libname ne "combined")

  1340 	{

  1341 		AddAssumedIncludes($libname,$snippet);

  1342 	}

  1343 	else

  1344 	{

  1345 		if($listptr ne "")

  1346 		{

  1347 			AddFileList($libname,$listptr);

  1348 		}

  1349 		else

  1350 		{

  1351 			AddActualIncludes($libname);

  1352 		}

  1353 	}

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

  1357 	close(OUTFILE);

  1358 	#close(INFILE);

  1359 }#fn

  1362 sub AddAssumedIncludes($$)

  1363 {

  1364 	my $libname = shift @_;

  1365 	my $snippet = shift @_;

  1367 	my $APITest;

  1368 	foreach my $listed(@generatedModules)

  1369 						{

  1370 							$APITest = StripModulePrefix($listed);

  1371 							print OUTFILE  "\n";

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

  1373 							print OUTFILE "	<component>\n";

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

  1375 							if($libname eq "all")

  1376 							{

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

  1378 							}

  1379 							else

  1380 							{

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

  1382 							}

  1383 							if($target eq "winscw")

  1384 							{

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

  1386 							}

  1387 							elsif($target eq "winsspd")

  1388 							{

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

  1390 							}

  1391 							else

  1392 							{

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

  1394 							}

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

  1396 							print OUTFILE "\n";

  1397 	           }#foreach @generatedModules

  1398 }

  1401 sub AddFileList($$)

  1402 {

  1403 	my $libname = shift @_;

  1404 	my $listptr = shift @_;

  1405 	my @componentfiles = @$listptr;

  1407 			foreach my $listed(@componentfiles)

  1408 						{

  1409 								print OUTFILE  "\n";

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

  1411 							print OUTFILE "	<component>\n";

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

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

  1414 							if($target eq "winscw")

  1415 							{

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

  1417 							}

  1418 							elsif($target eq "winsspd")

  1419 							{

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

  1421 							}

  1422 							else

  1423 							{

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

  1425 							}

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

  1427 							print OUTFILE "\n";

  1428 	           }#foreach @componentfiles

  1429 }

  1433 sub GetSslXmls()

  1434 {

  1435 	my $APITest;

  1436 	my @componentfiles;

  1438 	my @emulatorfiles =

  1439 	(

  1440 	"libssl_ssltest\\libssl_blr_winsspd_component.xml",

  1441 	"libcrypto_crypto_test\\libcrypto_blr_winsspd_component.xml",

  1442 	"libcrypto_openssl\\libcrypto_topenssltestss_blr_winsspd_component.xml",

  1443 	"libcrypto_openssl\\libcrypto_topenssltestverify_blr_winsspd_component.xml",

  1444 	"libcrypto_openssl\\libcrypto_topenssltestenc_blr_winsspd_component.xml",

  1445 	"libcrypto_openssl\\libcrypto_topenssltestgen_blr_winsspd_component.xml",

  1446 	"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_winsspd_component.xml",

  1447 	"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_winsspd_component.xml",

  1448 	"libcrypto_openssl\\libcrypto_topenssltreq_blr_winsspd_component.xml",

  1449 	"libcrypto_openssl\\libcrypto_topenssltreq2_blr_winsspd_component.xml",

  1450 	"libcrypto_openssl\\libcrypto_topenssltrsa_blr_winsspd_component.xml",

  1451 	"libcrypto_openssl\\libcrypto_topenssltcrl_blr_winsspd_component.xml",

  1452 	"libcrypto_openssl\\libcrypto_topenssltsid_blr_winsspd_component.xml",

  1453 	"libcrypto_openssl\\libcrypto_topenssltx509_blr_winsspd_component.xml",

  1454 	"libcrypto_openssl\\libcrypto_topenssltx5091_blr_winsspd_component.xml",

  1455 	"libcrypto_openssl\\libcrypto_topenssltx5092_blr_winsspd_component.xml",

  1456 	 );

  1458 	my @hwfiles =

  1459 	(

  1460 		"libcrypto_openssl\\libcrypto_topenssltestss_blr_hw_component.xml",

  1461 		"libcrypto_openssl\\libcrypto_topenssltestverify_blr_hw_component.xml",

  1462 		"libcrypto_openssl\\libcrypto_topenssltestenc_blr_hw_component.xml",

  1463 		"libcrypto_openssl\\libcrypto_topenssltestgen_blr_hw_component.xml",

  1464 		"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_hw_component.xml",

  1465 		"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_hw_component.xml",

  1466 		"libcrypto_openssl\\libcrypto_topenssltreq_blr_hw_component.xml",

  1467 		"libcrypto_openssl\\libcrypto_topenssltreq2_blr_hw_component.xml",

  1468 		"libcrypto_openssl\\libcrypto_topenssltrsa_blr_hw_component.xml",

  1469 		"libcrypto_openssl\\libcrypto_topenssltcrl_blr_hw_component.xml",

  1470 		"libcrypto_openssl\\libcrypto_topenssltsid_blr_hw_component.xml",

  1471 		"libcrypto_openssl\\libcrypto_topenssltx509_blr_hw_component.xml",

  1472 		"libcrypto_openssl\\libcrypto_topenssltx5091_blr_hw_component.xml",

  1473 		"libcrypto_openssl\\libcrypto_topenssltx5092_blr_hw_component.xml",

  1474 		"libssl_ssltest\\libssl_blr_hw_component.xml",

  1475 		"libcrypto_crypto_test\\libcrypto_blr_hw_component.xml",

  1476 	);

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

  1478 	{

  1479 		@componentfiles = @emulatorfiles;

  1480 	}

  1481 	else

  1482 	{

  1483 		@componentfiles = @hwfiles;

  1484 	}

  1485 	return @componentfiles;

  1486 }

  1490 sub AddActualIncludes($)

  1491 {

  1492 	my $libname = shift @_;

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

  1494 	my $key;

  1495 	my $value;

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

  1497 	{

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

  1499 							print OUTFILE  "\n";

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

  1501 							print OUTFILE "	<component>\n";

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

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

  1504 							if($target eq "winscw")

  1505 							{

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

  1507 							}

  1508 							elsif($target eq "winsspd")

  1509 							{

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

  1511 							}

  1512 							else

  1513 							{

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

  1515 							}

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

  1517 							print OUTFILE "\n";

  1519 	}#while

  1520 }#fn

  1522 sub XmlComponentFiles()

  1523 {

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

  1525 	{

  1526 		return;

  1527 	}

  1528 	#print "Processing $_\n";

  1529 	my $dir = getcwd();

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

  1531 	{

  1532 			$dir = $1;

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

  1534 			{

  1535 				return;

  1536 			}

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

  1538 	}

  1539 	else

  1540 	{

  1541 		return;

  1542 	}

  1544 	if($target eq "winsspd" )

  1545 	{

  1546 		if($_ =~ /winsspd/)

  1547 		{

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

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

  1550 		}

  1551 	}

  1552 	elsif($target eq "winscw")

  1553 	{

  1554 		if($_ =~ /winscw/)

  1555 		{

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

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

  1558 		}

  1559 	}

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

  1561 	{

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

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

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

  1565 	}

  1566 	elsif($_ =~/hw/)

  1567 	{

  1568 		#print "$_ matched hw";

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

  1570 		{

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

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

  1573 			#print " and added\n"

  1574 		}

  1575 		else

  1576 		{

  1577 			#print " and not added\n";

  1578 		}

  1579 	}

  1580 }

  1584 sub emptyArray()

  1585 {

  1586 	@generatedModules = ();

  1587 }

  1589 sub GenDirs($)

  1590 {

  1591  my $libname = shift @_;

  1592  my $dirname;

  1593  foreach my $module(@generatedModules)

  1594  {

  1595   $dirname = StripModulePrefix($module);

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

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

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

  1599 	if($do_armv5 == 1)

  1600 	{

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

  1602 	}

  1603 	if($do_winscw == 1)

  1604 	{

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

  1606 	}

  1607  }

  1608 }

  1610 sub GenXmls($$$)

  1611 {

  1612 	my $libname = shift @_;

  1613 	my $listedName = shift @_;

  1614 	my $bref = shift @_;

  1615 	my @filesToProcess = @$bref;

  1617 	#strip leading test and t names from module

  1618 	my $moduleName = StripModulePrefix($listedName);

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

  1623        my $dst;

  1624        my $src;

  1625        foreach $src(@filesToProcess)

  1626        {

  1627                $dst = $src;

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

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

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

  1633                {

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

  1635                }

  1636                else

  1637                {

  1638 					$dst =  $toPath.$dst;

  1639                }

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

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

  1642        }#foreach file

  1643 }

  1646 sub GenExeXmls()

  1647 {

  1648 	my $moduleName = shift @_;

  1649 	my $libname = shift @_;

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

  1652   my @filesToProcess =

  1653   (

  1654      "LibXXX_ATSTemplateXXX_exemodule_blr_hw_component.xml",

  1655      "LibXXX_ATSTemplateXXX_exemodule_blr_winsspd_component.xml",

  1656   );

  1658 	my $dst;

  1659   my $src;

  1660   foreach $src(@filesToProcess)

  1661   {

  1662         $dst = $src;

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

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

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

  1666 				$dst =  $toPath.$dst;

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

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

  1669    }#foreach file

  1670 }

  1672 #function to expand the macros existing in a file

  1673 #file is replaced by new version

  1674 #args are relativePath. filename and  $moduleName

  1675 sub ExpandModuleMacros()

  1676 {

  1677 	# Take module name

  1678 	my $moduleName = pop @_;

  1679 	my $libname = pop @_;

  1680 	my $filename = pop @_;

  1682 	my $MODULENAME = $moduleName;

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

  1685 	# Open input file

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

  1688 	#Open output file

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

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

  1692 	# Replace text in files

  1693 	while (<INFILE>)

  1694 	{

  1695 	  s/ATSTemplateXXX/$moduleName/g;

  1696 	  s/LibXXX/$libname/g;

  1697     	  print OUTFILE $_;

  1698 	}

  1700 	# Close filehandles

  1701 	close (INFILE);

  1702 	close (OUTFILE);

  1704 	# Rename result file

  1705 	unlink $filename;

  1706 	rename $newOutput,$filename;

  1707 }

  1711 sub CopyDeps($$)

  1712 {

  1713   my $libname = shift @_;

  1714   my $copyDll = shift @_;

  1715 	my $src;

  1716 	my $dst;

  1717 	foreach my $listed(@generatedModules)

  1718 	{

  1719 				my $module = StripModulePrefix($listed);

  1720 				if($do_winscw == 1)

  1721 				{

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

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

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

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

  1726 				}

  1727 				if($do_armv5 == 1)

  1728 				{

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

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

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

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

  1733 				}

  1734 	}#foreach

  1735 }#fn

  1737 #dat file copy

  1738 sub CopyDatFiles()

  1739 {

  1740 	my $libRoot = $templateRoot;

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

  1742 	$libRoot = $1;

  1744  my @list = (

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

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

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

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

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

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

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

  1752            );

  1754 	 my $libname;

  1755 	 my $dirname;

  1756 	 my $glob;

  1757 	foreach my $ref(@list)

  1758 	{

  1759 			my @inarr = @$ref;

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

  1761 			my $modulename = StripModulePrefix($dirname);

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

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

  1764   		if($dirname eq "libc_loc_blr")

  1765   		{

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

  1767   		}

  1768   		my @filesFound = glob($src);

  1769   		if(scalar @filesFound == 0)

  1770   		{

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

  1772   		}

  1773   		foreach my $file(@filesFound)

  1774   		{

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

  1776   		}

  1777   }#ref processing

  1778 }#fn

  1781 #glib-2.20.4 dat file copy

  1782 sub CopyArbitDatFiles($$)

  1783 {

  1785 	 my $libname = shift @_;

  1786 	 my $refArr = shift @_;

  1787 	 my @list = @$refArr;

  1790 	my $fname;

  1791 	my $modulename;

  1792 	my $location;

  1793 	my $atsDst;

  1794 	my $targetDst;

  1796 	#now copy the files appropriately

  1797 	foreach my $ref(@list)

  1798 	{

  1799 			my @inarr = @$ref;

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

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

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

  1803 			{

  1804 				$location = GetPathPrefix().$2;

  1805 			}

  1806 			else

  1807 			{

  1808 				$location = $rootDrive.$location;

  1809 			}

  1810 			my $src = $location.$fname;

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

  1812 			if($libname eq "")

  1813 			{

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

  1815 				#print "$dst CHANGED!\n"

  1816 			}

  1818   		my @filesFound = glob($src);

  1819   		if(scalar @filesFound == 0)

  1820   		{

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

  1822   		}

  1823   		foreach my $file(@filesFound)

  1824   		{

  1825   			copy($file, $dst) || warn("DIED: unable to copy $file to $dst");

  1826   		}

  1828   		if($targetDst ne "")

  1829   		{

  1830   			 		my @filesToChange = ();

  1831 			  		if($atsDst =~ "armv5")

  1832 			  		{

  1833 			  			#armv5 component file

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

  1836 			  		}

  1837 			  		elsif($atsDst =~ "winscw")

  1838 			  		{

  1839 			  			#winscw component file

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

  1841 			  		}

  1842 			  		else

  1843 			  		{

  1844 			  			#add entry to both xmls

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

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

  1847 			  		}

  1848 			  		foreach my $file(@filesToChange)

  1849 			  		{

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

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

  1852 			  		}

  1853 			  }#updating the xmls

  1855   }#ref processing

  1858 }#fn

  1860 sub ModifyXml($$$$$)

  1861 {

  1862 	my $filename = shift @_;

  1863 	my $lib = shift @_;

  1864 	my $fname = shift @_;

  1865 	my $atsDst = shift @_;

  1866 	my $targetDst = shift @_;

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

  1871 	# Open input file

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

  1874 	#Open output file

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

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

  1879 	# Replace text in files

  1880 	while (<INFILE>)

  1881 	{

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

  1883 	  {

  1884 	  	if(/\<stif\>/)

  1885 	  	{

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

  1887 	  	}

  1888 	  	else

  1889 	  	{

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

  1891 	  	}

  1892 	  	my $type = "data";

  1893 	  	if($atsDst !~ "General")

  1894 			{

  1895 				$type = "binary";

  1896 			}

  1897 			print OUTFILE <<EObinary;

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

  1900 				<src>$fname</src>

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

  1902  				</install>

  1903 EObinary

  1904 	  }#stif or execute tag found

  1905 	  else

  1906 	  {

  1907 	  	  print OUTFILE $_;

  1908 	  }

  1909 	}#while

  1910 	# Close filehandles

  1911 	close (INFILE);

  1912 	close (OUTFILE);

  1914 	# Rename result file

  1915 	unlink $filename;

  1916 	rename $newOutput,$filename;

  1918 }#fn

  1919 sub GenGenModules($)

  1920 {

  1921 	my $libname = shift @_;

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

  1925 	my @fileList = ();

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

  1927   foreach my $name (readdir(DIRHANDLE))

  1928   {

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

  1930     {

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

  1932     	{

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

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

  1935     		unshift @fileList, $name;

  1936     	}#excluded libcrypt from libc list

  1937     }#libname match

  1938   }#foreach

  1939   closedir(DIRHANDLE);

  1940 	return @fileList;

  1941 }

  1944 sub GetAllModules()

  1945 {

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

  1948 	my @fileList = ();

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

  1950   foreach my $name (readdir(DIRHANDLE))

  1951   {

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

  1953 			{

  1954 				unshift @fileList, $name;

  1955 			}

  1957   }#foreach

  1958   closedir(DIRHANDLE);

  1959 	return @fileList;

  1960 }

  1964 sub TransformXmls($$)

  1965 {

  1966 	my $libname = shift @_;

  1967 	my $shared = shift @_;

  1968 	my $target = shift @_;

  1969 	my $module;

  1970 	my $src;

  1971 	my $dst;

  1973 	my $armv5 = 0;

  1974 	my $winscw = 0;

  1975 	if($target eq "armv5")

  1976 	{

  1977 			$armv5 = 1;

  1978   }

  1979   elsif($target eq "winscw")

  1980   {

  1981   		$winscw = 1;

  1982   }

  1983   else

  1984   {

  1985   	$armv5  = $do_armv5;

  1986   	$winscw = $do_winscw;

  1987 	}

  1990 	foreach $module(@generatedModules)

  1991 	{

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

  1993 	  {

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

  1995 		}

  1996 		elsif($armv5 == 1)

  1997 		{

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

  1999 		}

  2000 		elsif($winscw == 1)

  2001 		{

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

  2003 		}

  2004 		my @fileList = glob($src);

  2005 		foreach my $file(@fileList)

  2006 		{

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

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

  2009 		}

  2010    }

  2011 }#fn

  2013 sub AddLibsInXml($$$)

  2014 {

  2015 	my $libname = shift @_;

  2016 	my $filename = shift @_;

  2017 	my $shared = shift @_;

  2019 	# Open input file

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

  2022 	#Open output file

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

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

  2026 	my $drive = "c:";

  2028 	# Replace text in files

  2029 	while (<INFILE>)

  2030 	{

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

  2032 	  {

  2033 	  	if(/\<stif\>/)

  2034 	  	{

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

  2036 	  	}

  2037 	  	else

  2038 	  	{

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

  2040 	  		if($filename =~ /winsspd/)

  2041 				{

  2042 					$drive = "z:";

  2043 				}

  2044 	  	}

  2045 	  	foreach my $installable(@dllList)

  2046 			{

  2047 				print OUTFILE <<EOLine;

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

  2050 				<src>$installable</src>

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

  2052  				</install>

  2053 EOLine

  2054 			}

  2056 	  }

  2057 	  else

  2058 	  {

  2059 	  	  print OUTFILE $_;

  2060 	  }

  2061 	}#while

  2062 	# Close filehandles

  2063 	close (INFILE);

  2064 	close (OUTFILE);

  2066 	# Rename result file

  2067 	unlink $filename;

  2068 	rename $newOutput,$filename;

  2069 }

  2071 sub CopySharedDlls()

  2072 {

  2073   my $libname = shift @_;

  2074   my $ref = shift @_;

  2075   my @ListOfDlls = @$ref;

  2076   my $target = shift @_;

  2077 	my $module;

  2078 	my $src;

  2079 	my $dst;

  2081 	my $do_armv5 = 0;

  2082 	my $do_winscw = 0;

  2083 	if($target eq "armv5")

  2084 	{

  2085 		$do_armv5 = 1;

  2086 	}

  2087 	elsif($target eq "winscw")

  2088 	{

  2089 		$do_winscw =  1;

  2090 	}

  2091 	else

  2092 	{

  2093 		$do_armv5  = 1;

  2094 		$do_winscw = 1;

  2095 	}

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

  2099 	if($do_winscw == 1)

  2100 	{

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

  2102 	}

  2103 	if($do_armv5 == 1)

  2104 	{

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

  2106 	}

  2108 	foreach my $copyDll(@ListOfDlls)

  2109 	{

  2110 		if($do_winscw == 1)

  2111 		{

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

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

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

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

  2116 		}

  2117 		if($do_armv5 == 1)

  2118 		{

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

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

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

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

  2123 		}

  2124 	}#foreach

  2125 }#fn

  2128 sub CopyMultiDlls($)

  2129 {

  2130   my $libname = shift @_;

  2131 	my $module;

  2132 	my $src;

  2133 	my $dst;

  2134 	foreach my $listed(@generatedModules)

  2135 	{

  2136 		foreach my $copyDll(@dllList)

  2137 		{

  2138 			if($do_winscw == 1)

  2139 			{

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

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

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

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

  2144 			}

  2145 			if($do_armv5 == 1)

  2146 			{

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

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

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

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

  2151 			}

  2152 		}#foreach

  2153 	}

  2154 }#fn

  2156 sub StripModulePrefix($)

  2157 {

  2158 	my $listed = pop @_;

  2159 	my $module = $listed;

  2160 	if($dontStrip == 0)

  2161 	{

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

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

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

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

  2166   }

  2167   return $module;

  2169 }

  2171 sub GetLsbModules()

  2172 {

  2173 	my @lsbList =

  2174 	(

  2175 	 "abs",

  2176 "acos",

  2177 "asctime",

  2178 "asin",

  2179 "atan",

  2180 "atan2",

  2181 "atof",

  2182 "atoi",

  2183 "atol",

  2184 "bsearch",

  2185 "calloc",

  2186 "ceil",

  2187 "chdir",

  2188 "clearerr",

  2189 "close",

  2190 "closedir",

  2191 "cos",

  2192 "cosh",

  2193 "creat",

  2194 "lsb_ctime",

  2195 "lsb_difftime",

  2196 "dlclose",

  2197 "dlerror",

  2198 "dlopen",

  2199 "dup",

  2200 "dup2",

  2201 "exp",

  2202 "fabs",

  2203 "fclose",

  2204 "fcntl_x",

  2205 "fdopen",

  2206 "feof",

  2207 "ferror",

  2208 "fflush",

  2209 "fgetpos",

  2210 "fgets",

  2211 "fileno",

  2212 "floor",

  2213 "fmod",

  2214 "fopen",

  2215 "fopen_X",

  2216 "fprintf",

  2217 "fputs",

  2218 "fread",

  2219 "free",

  2220 "freopen",

  2221 "freopen_X",

  2222 "frexp",

  2223 "fseek",

  2224 "fsetpos",

  2225 "fstat",

  2226 "ftell",

  2227 "ftok",

  2228 "ftok_l",

  2229 "fwrite",

  2230 "getc",

  2231 "getcwd",

  2232 "gets",

  2233 "lsb_gmtime",

  2234 "ldexp",

  2235 "link",

  2236 "lsb_localtime",

  2237 "log",

  2238 "log10",

  2239 "longjmp",

  2240 "lseek",

  2241 "malloc",

  2242 "memchr_X",

  2243 "memcmp_X",

  2244 "memcpy_X",

  2245 "memmove",

  2246 "memset_X",

  2247 "mkdir",

  2248 "mkfifo",

  2249 "lsb_mktime",

  2250 "modf",

  2251 "msgctl",

  2252 "msgget",

  2253 "msgsnd",

  2254 "open",

  2255 "opendir",

  2256 "open_x",

  2257 "perror",

  2258 "pipe",

  2259 "pow",

  2260 "printf",

  2261 "qsort",

  2262 "rand",

  2263 "read",

  2264 "readdir",

  2265 "readv_l",

  2266 "realloc",

  2267 "remove",

  2268 "rename",

  2269 "rewind",

  2270 "rewinddir",

  2271 "rmdir",

  2272 "scanf",

  2273 "scanf_X",

  2274 "seekdir",

  2275 "semctl",

  2276 "semget",

  2277 "semop",

  2278 "setbuf",

  2279 "setjmp",

  2280 "shmat",

  2281 "shmdt",

  2282 "shmget",

  2283 "sin",

  2284 "sinh",

  2285 "sqrt",

  2286 "srand",

  2287 "stat",

  2288 "strcat",

  2289 "strchr",

  2290 "strcmp",

  2291 "strcoll_X",

  2292 "strcpy",

  2293 "strcspn",

  2294 "strerror_X",

  2295 "strftime",

  2296 "strftime_X",

  2297 "strlen",

  2298 "strncat",

  2299 "strncmp",

  2300 "strncpy",

  2301 "strpbrk",

  2302 "strptime",

  2303 "strrchr",

  2304 "strspn",

  2305 "strstr",

  2306 "strtod_X",

  2307 "strtok",

  2308 "strtol_X",

  2309 "strxfrm_X",

  2310 "tan",

  2311 "tanh",

  2312 "telldir",

  2313 "telldir_l",

  2314 "lsb_time",

  2315 "tmpfile",

  2316 "tmpnam",

  2317 "ungetc",

  2318 "unlink",

  2319 "utime",

  2320 "vfprintf",

  2321 "vprintf",

  2322 "write",

  2323 "writev_l",

  2325 	);

  2326   return @lsbList;

  2327 }

  2331 sub GenBackendTest()

  2332 {

  2334 	my @datList =

  2335 	(

  2336 	["libc", "tlibcbackend"],

  2337 	);

  2339 	mkdir $ATSRoot;

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

  2342 	my $lib;

  2343 	my $module;

  2344 	my $ext;

  2345 	foreach my $ref(@datList)

  2346 	{

  2347 			my @inarr = @$ref;

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

  2349 			@generatedModules = ($module);

  2350 			GenDirs($lib);

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

  2352 	}

  2353  #now copy xmls

  2354  CopyAtsSetup();

  2355  #extra exes

  2356  @generatedModules = ("tlibcbackend");

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

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

  2360 }#fn

  2362 sub CopyAtsSetup()

  2363 {

  2364 	 my $libname = "libc";

  2365 	 my @list = (

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

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

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

  2369   				 );

  2371   my $bDataRef = \@list;

  2372 	CopyArbitDatFiles("libc",$bDataRef);

  2374 }#fn

  2375 sub GetPathPrefix()

  2376 {

  2377 	 my $srcPrefix = $templateRoot;

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

  2379 	 $srcPrefix = $1;

  2380 	 return $srcPrefix;

  2381 }

  2384 #dat file copy

  2385 sub CopyCryptoDat()

  2386 {

  2387 	my $libRoot = $templateRoot;

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

  2389 	$libRoot = $1;

  2391  my @list = (

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

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

  2394            );

  2396 	 my $libname;

  2397 	 my $dirname;

  2398 	 my $glob;

  2399 	foreach my $ref(@list)

  2400 	{

  2401 			my @inarr = @$ref;

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

  2403 			my $modulename = StripModulePrefix($dirname);

  2404 			my	$srcPrefix = GetPathPrefix();

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

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

  2409   		my @filesFound = glob($src);

  2410   		if(scalar @filesFound == 0)

  2411   		{

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

  2413   		}

  2414   		foreach my $file(@filesFound)

  2415   		{

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

  2417   		}

  2418   }#ref processing

  2419 }#fn

  2421 #Crypto xmls copy

  2422 sub CopyCryptoXmls()

  2423 {

  2424 	  my @list = (

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

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

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

  2428   				 );

  2431 	my $fname;

  2432 	my $moduleDst;

  2433 	my $location;

  2435 	#now copy the files appropriately

  2436 	foreach my $ref(@list)

  2437 	{

  2438 			my @inarr = @$ref;

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

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

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

  2443   		my @filesFound = glob($src);

  2444   		if(scalar @filesFound == 0)

  2445   		{

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

  2447   		}

  2448   		foreach my $file(@filesFound)

  2449   		{

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

  2451   		}

  2452   	}#ref

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

  2456   	foreach my $item(@crypto_copyList)

  2457   	{

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

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

  2460   			my @filesFound = glob($fname);

  2461   			foreach my $file(@filesFound)

  2462   			{

  2463     			$moduleDst = "libcrypto_crypto_test/";

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

  2465   				copy($file, $dst);

  2466   			}

  2467   	}

  2468 }#fn

  2470 sub GenCryptoTest()

  2471 {

  2473 	my @datList =

  2474 	(

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

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

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

  2478 	);

  2480 	mkdir $ATSRoot;

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

  2483 	my $lib;

  2484 	my $module;

  2485 	my $ext;

  2486 	foreach my $ref(@datList)

  2487 	{

  2488 			my @inarr = @$ref;

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

  2490 			@generatedModules = ($module);

  2491 			GenDirs($lib);

  2492 			CopyDlls($lib,$ext);

  2493 	}

  2494 	CopyCryptoDat();

  2495 	CopyCryptoXmls();

  2498 }#fn

  2501 #ngi xml copy

  2502 sub CopyNgiXmls()

  2503 {

  2504 	  my @list = (

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  2535 	  				 );

  2538 	my $fname;

  2539 	my $moduleDst;

  2540 	my $location;

  2542 	#now copy the files appropriately

  2543 	foreach my $ref(@list)

  2544 	{

  2545 			my @inarr = @$ref;

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

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

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

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

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

  2553   		my @filesFound = glob($src);

  2554   		if(scalar @filesFound == 0)

  2555   		{

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

  2557   		}

  2558   		foreach my $file(@filesFound)

  2559   		{

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

  2561   		}

  2562   	}#ref

  2564 }#fn

  2567 sub GenNgiTest()

  2568 {

  2570 	my @datList =

  2571 	(

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  2592 	);

  2594 	mkdir $ATSRoot;

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

  2598 	my $lib;

  2599 	my $module;

  2600 	my $ext;

  2601 	foreach my $ref(@datList)

  2602 	{

  2603 			my @inarr = @$ref;

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

  2605 			@generatedModules = ($module);

  2606 			GenDirs($lib);

  2607 			CopyDlls($lib,$ext);

  2608 	}

  2610    @generatedModules =("sa_backbuffer");

  2611    GenDirs($lib);

  2612    @dllList =

  2613    (

  2614    	"sa_bb_antitearing.dll",

  2615    	"sa_bb_colortranslation.dll",

  2616    	"sa_bb_createfb444.dll",

  2617    	"sa_bb_createfb565.dll",

  2618    	"sa_bb_createfb888.dll",

  2619    	"sa_bb_misc.dll",

  2620    	"sa_bb_heapusage.dll",

  2621    	"sa_bb_multibb.dll",

  2622    	"sa_bb_performance.dll",

  2623    	"sa_bb_plswitch.dll",

  2624    	"sa_bb_testenv.dll"

  2625    );

  2626    CopyMultiDlls("ngi");

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

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

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

  2633 }#fn

  2636 sub GetXmls()

  2637 {

  2638   my @foundList;

  2639   my $libname = shift @_;

  2640 	my @globlist = ();

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

  2642 	{

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

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

  2645 	}

  2646 	elsif($target eq "winsspd")

  2647 	{

  2648 		@globlist = ("winsspd");

  2649 		#print "winsspd selected\n";

  2650 	}

  2651 	elsif($sdkversion ne "")

  2652 	{

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

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

  2655 	}

  2656 	else

  2657 	{

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

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

  2660 	}

  2662 	foreach my $module(@generatedModules)

  2663 	{

  2664 	  my $glob_to_use = "";

  2665 	  my @fileList;

  2666 	  foreach my $glob(@globlist)

  2667 	  {

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

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

  2670 			@fileList = glob($src);

  2671 			foreach my $file(@fileList)

  2672 			{

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

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

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

  2676 				{

  2677 					$glob_to_use = $pat;

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

  2679 					last

  2680 				}

  2681 			}#foreach FILE

  2682 			if($glob_to_use ne "")

  2683 			{

  2684 				last;

  2685 			}

  2686 		}#finding glob

  2687 		if($glob_to_use ne "")

  2688 		{

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

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

  2691 				@fileList = glob($src);

  2692 				foreach my $file(@fileList)

  2693 				{

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

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

  2696 					{

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

  2698 				  	my $value = $1;

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

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

  2701 						unshift @foundList,$value;

  2702 				  }#if

  2703 				}#foreach

  2704 		}#glob is present

  2705 		else

  2706 		{

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

  2708 		}

  2709 	}#each module

  2710   return @foundList;

  2711  }#fn

  2713 __END__

  2714 :end

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