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

sl@0	1	rem
sl@0	2	rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.
sl@0	3
sl@0	4	rem Redistribution and use in source and binary forms, with or without
sl@0	5	rem modification, are permitted provided that the following conditions are met:
sl@0	6
sl@0	7	rem Redistributions of source code must retain the above copyright notice, this
sl@0	8	rem list of conditions and the following disclaimer.
sl@0	9	rem Redistributions in binary form must reproduce the above copyright notice,
sl@0	10	rem this list of conditions and the following disclaimer in the documentation
sl@0	11	rem and/or other materials provided with the distribution.
sl@0	12	rem Neither the name of Nokia Corporation nor the names of its contributors
sl@0	13	rem may be used to endorse or promote products derived from this software
sl@0	14	rem without specific prior written permission.
sl@0	15
sl@0	16	rem THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
sl@0	17	rem AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
sl@0	18	rem IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
sl@0	19	rem DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
sl@0	20	rem FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
sl@0	21	rem DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
sl@0	22	rem SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
sl@0	23	rem CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
sl@0	24	rem OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
sl@0	25	rem OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
sl@0	26	rem
sl@0	27	rem Description:
sl@0	28	rem
sl@0	29
sl@0	30
sl@0	31	@perl -x GenATSModules.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
sl@0	32	@goto end
sl@0	33
sl@0	34	#!perl
sl@0	35	use strict;
sl@0	36	use File::Find;
sl@0	37	use File::Copy;
sl@0	38	use Cwd;
sl@0	39
sl@0	40	my $sendEmail = "no";
sl@0	41	my $target = "winsspd";
sl@0	42	my $suite;
sl@0	43	my $install = "no";
sl@0	44	my $session = "no";
sl@0	45	my $combinedSession = "no";
sl@0	46	my $sdkversion="";
sl@0	47	my $noXmlsGenList = "play_new";
sl@0	48
sl@0	49	my %DirHash;
sl@0	50
sl@0	51
sl@0	52	if(scalar @ARGV ==0 \|\| $ARGV[0] =~ /[\-\\\/][h\?]/ \|\| $ARGV[0] =~ /help/ )
sl@0	53	{
sl@0	54	print <<EOHelp;
sl@0	55	genatsmodules.bat - hardcoded script to generate ATSINPUT folders for mobileruntime and ngi projects
sl@0	56	Usage:
sl@0	57	genatsmodules.bat
sl@0	58	Create ATSINPUT for the default testsuite based on
sl@0	59	location it is executed from place in stdlibs/internal
sl@0	60	and run and it generates ATSINPUT for stdlibs
sl@0	61	similiarly place it in ssl/internal or glib/internal or
sl@0	62	ngi/internal and run to generate ATSINPUT for ssl, glib
sl@0	63	and ngi respectively
sl@0	64
sl@0	65	genatsmodules [libname]
sl@0	66	where libname can be stdlibs, ssl, glib, etc. Creates
sl@0	67	ats test drop for given library. Valid from any internal
sl@0	68	folder of mobileruntime.
sl@0	69
sl@0	70
sl@0	71	genatsmodules ngi
sl@0	72	create ngi testsuite. Valid inside ngi/internal only
sl@0	73
sl@0	74	genatsmodules play_new
sl@0	75	create play_new testsuite. Valid inside play_new/internal only
sl@0	76
sl@0	77
sl@0	78
sl@0	79	genatsmodules ltp
sl@0	80	create ltp testsuite. Valid inside stdlibs/internal only
sl@0	81
sl@0	82	genatsmodules lsb
sl@0	83	create lsb testsuite. Valid inside stdlibs/internal only
sl@0	84
sl@0	85	genatsmodules stdcpp
sl@0	86	create stdcpp testsuite. Valid inside stdcpp/internal only
sl@0	87
sl@0	88	genatsmodules [libname] install
sl@0	89	where libname can be stdlibs, ssl, glib, ltp, lsb to create a
sl@0	90	ATSINPUT where the dependent mobileruntime libraries are also
sl@0	91	copied and used (It copies the dependent libraries using the
sl@0	92	ATS component files)
sl@0	93
sl@0	94	genatsmodules session [libname] [target]
sl@0	95	where libname is any of the standard libs as shown above and
sl@0	96	target can be winsspd, winscw, scarfe, zeus etc. to create
sl@0	97	session files for scarfe, winsspd etc.
sl@0	98
sl@0	99	genatsmodules session combined [target]
sl@0	100	will look at the existing ATSINPUT(which can have any
sl@0	101	combination of created components and create a combined
sl@0	102	session file. This way you get increased flexibility in
sl@0	103	the libraries you choose to combine into a single session
sl@0	104	file. If the target is a hardware target(that is not winsspd
sl@0	105	or winscw), the script will first attempt to find a target
sl@0	106	specific component file and if not found, the generic hw
sl@0	107	component file.
sl@0	108
sl@0	109
sl@0	110	Note:
sl@0	111	ATSINPUT creation is a 2 stage process. First we create
sl@0	112	the components and then we run (for example)
sl@0	113	"genatsmodules session stdlibs winscw" and
sl@0	114	"genatsmodules session stdlibs scarfe" to create the
sl@0	115	session files.
sl@0	116	EOHelp
sl@0	117	exit();
sl@0	118	}
sl@0	119	my $do_armv5 = 1;
sl@0	120	my $do_winscw = 1;
sl@0	121
sl@0	122	if(scalar @ARGV == 1)
sl@0	123	{
sl@0	124	if($ARGV[0] eq "session")
sl@0	125	{
sl@0	126	die("parameter session must be followed by libname and target platform");
sl@0	127	}
sl@0	128	else
sl@0	129	{
sl@0	130	$suite = $ARGV[0];
sl@0	131	}
sl@0	132	}
sl@0	133	elsif(scalar @ARGV == 2)
sl@0	134	{
sl@0	135	if($ARGV[0] eq "session")
sl@0	136	{
sl@0	137	die("parameter session must be followed by libname and target platform");
sl@0	138	}
sl@0	139	elsif($ARGV[1] eq "install")
sl@0	140	{
sl@0	141	$suite = $ARGV[0];
sl@0	142	$install = "yes";
sl@0	143	}
sl@0	144	elsif($ARGV[1] eq "armv5")
sl@0	145	{
sl@0	146	$do_winscw = 0;
sl@0	147	}
sl@0	148	elsif($ARGV[1] eq "winscw")
sl@0	149	{
sl@0	150	$do_armv5 = 0;
sl@0	151	}
sl@0	152	else
sl@0	153	{
sl@0	154	die("second parameter after target platform $ARGV[0] can only be \"install\" ");
sl@0	155	}
sl@0	156	}
sl@0	157	elsif(scalar @ARGV == 3)
sl@0	158	{
sl@0	159	if($ARGV[0] ne "session")
sl@0	160	{
sl@0	161	die("invalid combination of parameters. Program expected 1st parameter to be \"session\" ");
sl@0	162	}
sl@0	163	else
sl@0	164	{
sl@0	165	$session = "yes";
sl@0	166	$suite = $ARGV[1];
sl@0	167	$target = $ARGV[2];
sl@0	168
sl@0	169	if($suite eq "combined")
sl@0	170	{
sl@0	171	$combinedSession = "yes";
sl@0	172	}
sl@0	173
sl@0	174	}
sl@0	175	}
sl@0	176	elsif(scalar @ARGV == 4)
sl@0	177	{
sl@0	178	if($ARGV[0] ne "session")
sl@0	179	{
sl@0	180	die("invalid combination of parameters. Program expected 1st parameter to be \"session\" ");
sl@0	181	}
sl@0	182	else
sl@0	183	{
sl@0	184	$session = "yes";
sl@0	185	$suite = $ARGV[1];
sl@0	186	$target = $ARGV[2];
sl@0	187	$sdkversion = $ARGV[3];
sl@0	188	if($suite eq "combined")
sl@0	189	{
sl@0	190	$combinedSession = "yes";
sl@0	191	}
sl@0	192	}
sl@0	193	}
sl@0	194	else
sl@0	195	{
sl@0	196	die("program recieved too many parameters!");
sl@0	197	}#end of commandline processing
sl@0	198
sl@0	199
sl@0	200
sl@0	201	my $rootDrive = substr(getcwd(), 0,2);
sl@0	202	my $templateRoot = getcwd();
sl@0	203
sl@0	204	if(rindex($templateRoot, "tsrc") == -1 && ($suite ne "stdlibs" && $suite ne "pcts" ) )
sl@0	205	{
sl@0	206	die("Please run the script from the appropriate internal folder in the mobileruntime /omerta project!!");
sl@0	207	}
sl@0	208	else
sl@0	209	{
sl@0	210
sl@0	211	my $srcPrefix = getcwd();
sl@0	212	$srcPrefix =~ /(.)tsrc./;
sl@0	213	$srcPrefix = $1;
sl@0	214	if(rindex($templateRoot, "stdlibs") != -1)
sl@0	215	{
sl@0	216	$srcPrefix =~ /(.)stdlibs./;
sl@0	217	$srcPrefix = $1;
sl@0	218
sl@0	219	if($suite eq "glib")
sl@0	220	{
sl@0	221	$templateRoot = $srcPrefix."/glib/internal/";
sl@0	222	}
sl@0	223	elsif($suite eq "ssl")
sl@0	224	{
sl@0	225	$templateRoot = $srcPrefix."/ssl/tsrc/";
sl@0	226	}
sl@0	227	elsif($suite eq "ngi" && $session ne "yes")
sl@0	228	{
sl@0	229	print "ngi atsinput creation not supported from mobileruntime\n";
sl@0	230	exit();
sl@0	231	}
sl@0	232	}
sl@0	233
sl@0	234	if(rindex($templateRoot, "glib") != -1)
sl@0	235	{
sl@0	236	$suite = "glib";
sl@0	237	}
sl@0	238	elsif(rindex($templateRoot, "ssl") != -1)
sl@0	239	{
sl@0	240	$suite = "ssl";
sl@0	241	}
sl@0	242	elsif(rindex($templateRoot, "ngi") != -1)
sl@0	243	{
sl@0	244	$suite = "ngi";
sl@0	245	}
sl@0	246	}
sl@0	247
sl@0	248
sl@0	249	my $optsGroupPath = $templateRoot."/ts/ltp/opts/group/";
sl@0	250	#$optsGroupPath = getcwd()."/ts/ltp/opts/group/";
sl@0	251	my $ltpPath =$templateRoot."/ts/ltp/";
sl@0	252	my $stdcppPath =$templateRoot."/testapps/stlport/";
sl@0	253	my @stdexeList = ("gnu","tstdcpp","stdcxx/tstapps");
sl@0	254	#my $gnuPath =getcwd()."/testapps/gnu/";
sl@0	255	#my $tstdcppPath =getcwd()."/testapps/tstdcpp/";
sl@0	256	my $ATSRoot = getcwd()."\\ATSINPUT";
sl@0	257
sl@0	258	my @generatedModules;
sl@0	259	my %cfglocation;
sl@0	260
sl@0	261	my $TDIR = "\\internal\\testapps\\";
sl@0	262
sl@0	263	my @libcModules = ( "libc_loc_blr", "libc_time_blr", "libc_db_blr","tctype", "tifioctls", "tinet",
sl@0	264	"tlibcwchar", "tlink", "tmkfifo", "tmmap", "tmsgqueue",
sl@0	265	"tnetdb", "tpipe","tregex", "tsemaphore", "tshm","tsocket" ,
sl@0	266	"tstdio", "tstdlib", "tstring", "tsyscalls",
sl@0	267	"tsyssim", "twctype", "tselect", "tsysunistd", "twideapis", "twopen", "twchar",
sl@0	268	"twcharapi",
sl@0	269	);
sl@0	270
sl@0	271	my @libdlModules = ("tlibdl");
sl@0	272	my @libmModules = ("libm_double_blr", "libm_float_blr","libm_ldouble_blr");
sl@0	273
sl@0	274
sl@0	275	my @pthreadModules = ( "testcondbroadcast", "testconddestroy", "testcondinit", "testcondsignal", "testcondtimedwait", "testcondwait",
sl@0	276	"tmutex", "tpthread", "testpthreadonce", "testsemclose", "testsemdestroy", "testsemgetvalue", "testseminit", "testsemopen", "testsempost",
sl@0	277	"testsemtimedwait", "testsemtrywait", "testsemunlink", "testsemwait");
sl@0	278
sl@0	279
sl@0	280	my @stdliblist = ( "libc", "libpthread", "libdl", "libm", "libz", "libcrypt");
sl@0	281	my @dllList = ("backend.dll", "libc.dll", "LibCIpcClient.dll", "LibCIpcServer.exe", "libdl.dll", "libm.dll", "libpthread.dll", "libcrypt.dll", "libz.dll", "liblogger.dll");
sl@0	282
sl@0	283
sl@0	284	my @stdcpplist = (
sl@0	285	["fstream1_input.txt", "stlport_fstream", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0	286	["nextperm1_good.txt", "stlport_nextprm", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0	287	["nextperm2_good.txt", "stlport_nextprm", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0	288	["ostmit_good.txt", "stlport_ostmit", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0	289	["seek.txt", "stlport_seek", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0	290	["istream_extractor_other-1.tst","istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	291	["istream_extractor_other-1.txt","istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	292	["istream_extractor_other-2.tst","istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	293	["istream_unformatted-1.tst","istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	294	["istream_unformatted-1.txt","istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	295	["istream_unformatted-2.tst","istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	296	["ostream_inserter_char-1.tst","ostream_inserter_char", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	297	["ostream_inserter_other-1.tst","ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	298	["ostream_inserter_other-2.tst","ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	299	["istream_extractor_other-1.tst","w_istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	300	["istream_extractor_other-1.txt","w_istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	301	["istream_extractor_other-2.tst","w_istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	302	["istream_unformatted-1.tst","w_istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	303	["istream_unformatted-1.txt","w_istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	304	["istream_unformatted-2.tst","w_istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	305	["ostream_inserter_char-1.tst","w_ostream_inserter_char", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	306	["ostream_inserter_other-1.tst","w_ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	307	["ostream_inserter_other-2.tst","w_ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	308	["filebuf_members-1.tst","filebuf_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	309	["filebuf_members-1.txt","filebuf_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	310	["filebuf_virtuals-1.tst","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	311	["filebuf_virtuals-1.txt","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	312	["filebuf_virtuals-2.tst","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	313	["filebuf_virtuals-3.tst","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	314	["ifstream_members-1.tst","ifstream_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	315	["ifstream_members-1.txt","ifstream_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	316	["ios_base_members_static-1.tst","ios_base_members_static", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	317	["istream_seeks-1.tst","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	318	["istream_seeks-1.txt","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	319	["istream_seeks-2.tst","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	320	["istream_seeks-3.tst","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	321	["ofstream_members-1.tst","ofstream_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	322	["ostream_inserter_char-1.txt","ostream_inserter_char", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	323	["ostream_seeks-1.tst","ostream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
sl@0	324	["infile_auto.txt","multi_thread_auto", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0	325	);
sl@0	326
sl@0	327	my @gliblist = (
sl@0	328	["1.gmarkup", "markup_test", "/epoc32/winscw/c/", "/General/", "C:"],
sl@0	329	["1.gmarkup", "markup-test", "/epoc32/winscw/c/", "/General/", "C:"],
sl@0	330	["iochannel-test-infile", "iochannel_test", "/epoc32/winscw/c/", "/General/", "C:"],
sl@0	331	["iochannel-test-infile", "iochannel-test", "/epoc32/winscw/c/", "/General/", "C:"],
sl@0	332	# ["casemap.bin", "unicode-caseconv", "/epoc32/winscw/c/", "/General/", "C:"],
sl@0	333	# ["casefold.bin", "unicode-caseconv", "/epoc32/winscw/c/", "/General/", "C:"],
sl@0	334	["utf8.txt", "unicode-encoding","/epoc32/winscw/c/", "/General/", "C:"],
sl@0	335	["casecollate.txt", "unicode-collate","/epoc32/winscw/c/", "/General/", "C:"],
sl@0	336	["utf8_hindi.txt", "tutf8","/epoc32/winscw/c/", "/General/", "C:"],
sl@0	337	["scanfile.txt", "tscanner","/epoc32/winscw/c/", "/General/", "C:"],
sl@0	338	["test.txt", "dir_test","/epoc32/winscw/c/temp/tmp/", "/General/", "C:\\temp\\tmp"],
sl@0	339	["NormalizationTest.txt", "unicode-normalize","/epoc32/winscw/c/", "/General/", "C:"],
sl@0	340
sl@0	341	["helloworld.exe", "spawn_test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],
sl@0	342	["helloworld.exe", "spawn_test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],
sl@0	343
sl@0	344	["libmoduletestplugin_a.dll", "module-test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],
sl@0	345	["libmoduletestplugin_a.dll", "module-test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],
sl@0	346
sl@0	347	["libmoduletestplugin_b.dll", "module-test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],
sl@0	348	["libmoduletestplugin_b.dll", "module-test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],
sl@0	349
sl@0	350
sl@0	351	);
sl@0	352
sl@0	353	my @ngilist = (
sl@0	354	["Test.txt", "ngi_sa_runtimetester", "/EPOC32/winscw/c/Private/10202be9/", "/General/", ""],
sl@0	355	["sa_input_repository.txt", "shared","/EPOC32/armv5/c/TestFramework/", "/armv5_urel/", ""],
sl@0	356	["sa_input_repository.txt", "shared","/EPOC32/winscw/c/TestFramework/", "/winscw_udeb/", ""],
sl@0	357	["audiomixingfiles.ini", "ngi_sa_audiomixing","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0	358	["sa_camera_supported.ini", "ngi_sa_camera","/EPOC32/armv5/c/TestFramework/", "/general/", ""],
sl@0	359	["sa_clip.ini", "ngi_sa_clip","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0	360	["devicecapabilitiesdata.ini", "ngi_sa_devicecapabilities","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0	361	["highlevelaudiofiles.ini", "ngi_sa_highlevelaudio","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0	362	["lowlevelaudiofiles.ini", "ngi_sa_lowlevelaudio","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0	363	["runtimedata.ini", "ngi_sa_runtimetester","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0	364	["sa_stream.ini", "ngi_sa_stream","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0	365	#["*", "ngi_sa_videoplayback","/../graphics/video/internal/sa_videoplayback/data/", "/general/", ""],
sl@0	366	["test.*", "ngi_sa_images","/Epoc32/winscw/c/Data/", "/general/", ""]
sl@0	367	);
sl@0	368
sl@0	369
sl@0	370
sl@0	371
sl@0	372	my $validexpansions = "all stdlibs combined";
sl@0	373	my $validLibraries = "ltp opts lsb glib ssl ngi pcts stdcpp gcce libc-locale play_new";
sl@0	374	if(rindex($validexpansions, $suite)== -1 && rindex($validLibraries, $suite) == -1)
sl@0	375	{
sl@0	376	die("$suite is not a valid library. Valid options are $validexpansions $validLibraries");
sl@0	377	}
sl@0	378
sl@0	379	my $dontStrip = 1;
sl@0	380	my @liblist;
sl@0	381	if($suite eq "all")
sl@0	382	{
sl@0	383	@liblist = split " ", $validLibraries;
sl@0	384	@liblist = (@liblist, @stdliblist);
sl@0	385
sl@0	386	}#suite all
sl@0	387	elsif($suite eq "ltp")
sl@0	388	{
sl@0	389	@liblist = ("ltp", "opts");
sl@0	390	}
sl@0	391	elsif($suite eq "stdlibs")
sl@0	392	{
sl@0	393	@liblist = @stdliblist;
sl@0	394	}
sl@0	395	elsif($suite eq "ssl")
sl@0	396	{
sl@0	397	@liblist = ("libcrypto", "libssl");
sl@0	398	}
sl@0	399	else
sl@0	400	{
sl@0	401	@liblist = ("$suite");
sl@0	402	}
sl@0	403
sl@0	404	# foreach my $l(@liblist)
sl@0	405	# {
sl@0	406	# print "$l was there\n";
sl@0	407	# }
sl@0	408
sl@0	409
sl@0	410	if($combinedSession eq "yes")
sl@0	411	{
sl@0	412	GenerateSessionFile("combined", $target,"combined");
sl@0	413	exit();
sl@0	414	}
sl@0	415
sl@0	416	if($session eq "yes")
sl@0	417	{
sl@0	418	my $file = $templateRoot."/testsession.xml";
sl@0	419	opendir(DIRHANDLE, $ATSRoot) \|\| die("Please try to create Session files only after ATSINPUT/components has been created!");
sl@0	420	closedir(DIRHANDLE);
sl@0	421	$dontStrip = 1;
sl@0	422	if($suite eq "ngi" \|\| $suite eq "play_new")
sl@0	423	{
sl@0	424	@generatedModules = GenGenModules($suite);
sl@0	425	my @componentFiles = GetXmls($suite);
sl@0	426	GenerateSessionFile("combined",$target,$suite,\@componentFiles);
sl@0	427	exit();
sl@0	428	}
sl@0	429	elsif($suite eq "ssl")
sl@0	430	{
sl@0	431	my @componentFiles = GetSslXmls();
sl@0	432	GenerateSessionFile("combined",$target,$suite,\@componentFiles);
sl@0	433	exit();
sl@0	434	}
sl@0	435	elsif($suite eq "stdlibs")
sl@0	436	{
sl@0	437	#my $dst = $ATSRoot."/$suite"."_testsession.xml";
sl@0	438	#copy($file, $dst);
sl@0	439	GenerateSessionFile("combined",$target,$suite);
sl@0	440	exit();
sl@0	441	}
sl@0	442	foreach my $lib(@liblist)
sl@0	443	{
sl@0	444	@generatedModules = GenGenModules($lib);
sl@0	445	if(scalar @generatedModules != 0)
sl@0	446	{
sl@0	447	#print "Generating for $lib\n";
sl@0	448	GenerateSessionFile($lib, $target,$lib);
sl@0	449	}
sl@0	450	}
sl@0	451
sl@0	452	#@generatedModules = GetAllModules();
sl@0	453	#if(scalar @generatedModules != 0)
sl@0	454	#{
sl@0	455	# GenerateSessionFile("combined",$target, "combined");
sl@0	456	#}
sl@0	457	exit();
sl@0	458	}#session generation code
sl@0	459
sl@0	460
sl@0	461	if ($suite eq "ltp" \|\| $suite eq "all")
sl@0	462	{
sl@0	463	my @ltpModules = GetLtpModules();
sl@0	464	@generatedModules = @ltpModules;
sl@0	465	DoGen("ltp", ".dll");
sl@0	466	CopyLtpCfg("ltp");
sl@0	467
sl@0	468
sl@0	469	my @saved = @dllList;
sl@0	470	@dllList = ("ltplib.dll");
sl@0	471	CopySharedDlls("ltp", \@dllList);
sl@0	472	TransformXmls("ltp","shared");
sl@0	473	@dllList = @saved;
sl@0	474
sl@0	475	@generatedModules = GetCompiledModules($optsGroupPath."/bld.inf");
sl@0	476	DoGen("opts",".dll");
sl@0	477
sl@0	478	}
sl@0	479	if ($suite eq "glib")
sl@0	480	{
sl@0	481	my $bldfile = $templateRoot."/testapps/group/bld.inf";
sl@0	482	my @glibModules = GetCompiledModules($bldfile);
sl@0	483	@generatedModules = @glibModules;
sl@0	484	DoGen("glib",".exe");
sl@0	485	my $gDataRef = \@gliblist;
sl@0	486	CopyArbitDatFiles("glib",$gDataRef);
sl@0	487
sl@0	488	if($install eq "yes")
sl@0	489	{
sl@0	490	my @saved = @dllList;
sl@0	491	my @glib2dllList = ("glibbackend.dll", "Libgobject.dll", "libgmodule.dll", "libgthread.dll",
sl@0	492	"libglib.dll");
sl@0	493
sl@0	494	my @glib1List = ( "libgobject.dll", "libgmodule.dll", "libgthread.dll", "libglib.dll", );
sl@0	495	@dllList = @glib2dllList;
sl@0	496	CopySharedDlls("glib",\@dllList);
sl@0	497	TransformXmls("glib", "shared");
sl@0	498
sl@0	499	@dllList = @saved;
sl@0	500	}#if install
sl@0	501	}#glib
sl@0	502
sl@0	503
sl@0	504	if ($suite eq "ssl")
sl@0	505	{
sl@0	506	my $stripStatus = $dontStrip;
sl@0	507	$dontStrip = 0;
sl@0	508	GenCryptoTest();
sl@0	509	if($install eq "yes")
sl@0	510	{
sl@0	511	@dllList = (@dllList, "libcrypto.dll", "libssl.dll");
sl@0	512	}#if install
sl@0	513	$dontStrip = $stripStatus;
sl@0	514	}#ssl
sl@0	515
sl@0	516	if($suite eq "ngi")
sl@0	517	{
sl@0	518
sl@0	519	GenNgiTest();
sl@0	520	CopyNgiXmls();
sl@0	521	CopyArbitDatFiles("",\@ngilist);
sl@0	522
sl@0	523	}
sl@0	524
sl@0	525	if($suite eq "play_new")
sl@0	526	{
sl@0	527	my @play_newModules = ("fonttestmodule", "messagingtestmodule","locationtestmodule", "alertstestmodule",
sl@0	528	"libxmlstiff","ngisvgtestmodule");
sl@0	529	@generatedModules = @play_newModules;
sl@0	530	DoGen("play_new",".dll");
sl@0	531
sl@0	532	my @list = (
sl@0	533	["*.cfg", "fonttestmodule", "/../fonts/internal/testmodules/fonttestmodule/group/","/General/", ""],
sl@0	534	["*.xml", "fonttestmodule", "/../fonts/internal/testmodules/fonttestmodule/group/","/", ""],
sl@0	535
sl@0	536	["*.cfg", "messagingtestmodule", "/../ngimessaging/internal/testmodules/messagingtestmodule/group/","/General/", ""],
sl@0	537	["*.xml", "messagingtestmodule", "/../ngimessaging/internal/testmodules/messagingtestmodule/group/","/", ""],
sl@0	538	["*", "messagingtestmodule", "/EPOC32/winscw/c/messagingtestmodule/","/General/", ""],
sl@0	539
sl@0	540	["*.cfg", "locationtestmodule", "/../ngilocation/internal/testmodules/locationtestmodule/group/","/General/", ""],
sl@0	541	["*.xml", "locationtestmodule", "/../ngilocation/internal/testmodules/locationtestmodule/group/","/", ""],
sl@0	542
sl@0	543	["*.cfg", "alertstestmodule", "/../ngialerts/internal/testmodules/alertstestmodule/group/","/General/", ""],
sl@0	544	["*.xml", "alertstestmodule", "/../ngialerts/internal/testmodules/alertstestmodule/group/","/", ""],
sl@0	545	["vertigo.wav", "alertstestmodule", "/Epoc32/winscw/c/alertstestmodule/","/General/", ""],
sl@0	546
sl@0	547	["*.cfg", "libxmlstiff", "/../libxmlpp/internal/group/","/General/", ""],
sl@0	548	["*.xml", "libxmlstiff", "/../libxmlpp/internal/group/","/", ""],
sl@0	549	[".", "libxmlstiff", "/../libxmlpp/internal/data/","/General/", ""],
sl@0	550
sl@0	551	["*.cfg", "ngisvgtestmodule", "/../ngisvg/internal/testmodules/ngisvgtestmodule/group/","/General/", ""],
sl@0	552	["*.xml", "ngisvgtestmodule", "/../ngisvg/internal/testmodules/ngisvgtestmodule/group/","/", ""],
sl@0	553	[".", "ngisvgtestmodule", "/epoc32/winscw/c/ngisvgtest/","/General/", ""],
sl@0	554
sl@0	555	);
sl@0	556
sl@0	557	my $bDataRef = \@list;
sl@0	558	CopyArbitDatFiles("play_new",$bDataRef);
sl@0	559	if($install eq "yes")
sl@0	560	{
sl@0	561	@generatedModules = GenGenModules("play_new");
sl@0	562	my @saved = @dllList;
sl@0	563	my @playList = (
sl@0	564	"ngifonts.dll",
sl@0	565	"ngimessaging.dll",
sl@0	566	"ngisvg.dll",
sl@0	567	"ngilocation.dll",
sl@0	568	"ngialerts.dll",
sl@0	569	"libstdcpp.dll",
sl@0	570	"libxmlpp.dll",
sl@0	571	"FeedsLibXml2xmlpp.dll");
sl@0	572	@dllList = @playList;
sl@0	573	CopySharedDlls("play_new",\@dllList);
sl@0	574	TransformXmls("play_new", "shared");
sl@0	575	@dllList = @saved;
sl@0	576
sl@0	577	}#end install
sl@0	578
sl@0	579
sl@0	580	}
sl@0	581
sl@0	582	if($suite eq "stdcpp")
sl@0	583	{
sl@0	584	@generatedModules = GetstdcppModules();
sl@0	585	DoGen("stdcpp",".dll");
sl@0	586	CopyLtpCfg("stdcpp");
sl@0	587	@generatedModules = GetstdexeModules();
sl@0	588	DoGen("stdcpp",".exe");
sl@0	589
sl@0	590	my @saved = @dllList;
sl@0	591	@dllList = ("stdcxxtestengine.dll");
sl@0	592	CopySharedDlls("stdcpp", \@dllList);
sl@0	593	TransformXmls("stdcpp","shared");
sl@0	594	@dllList = @saved;
sl@0	595
sl@0	596	CopyArbitDatFiles("stdcpp",\@stdcpplist);
sl@0	597
sl@0	598	if($install eq "yes")
sl@0	599	{
sl@0	600	@generatedModules = GenGenModules("stdcpp");
sl@0	601	my @saved = @dllList;
sl@0	602	my @cppList = ("libstdcpp.dll");
sl@0	603	@dllList = @cppList;
sl@0	604	CopySharedDlls("stdcpp",\@dllList);
sl@0	605	TransformXmls("stdcpp", "shared");
sl@0	606	@dllList = @saved;
sl@0	607	}#if install
sl@0	608	}
sl@0	609
sl@0	610
sl@0	611	if($suite eq "lsb" \|\| $suite eq "all")
sl@0	612	{
sl@0	613	my @lsbModules = GetLsbModules();
sl@0	614	@generatedModules = @lsbModules;
sl@0	615	DoGen("lsb",".exe");
sl@0	616
sl@0	617	my @depDlls;
sl@0	618	my $dll;
sl@0	619
sl@0	620	#copying the common dlls
sl@0	621	@depDlls =
sl@0	622	(
sl@0	623	"libapi.dll",
sl@0	624	"tcm.dll",
sl@0	625	"vlib.dll",
sl@0	626	);
sl@0	627
sl@0	628	foreach $dll (@depDlls)
sl@0	629	{
sl@0	630	CopyDeps("lsb",$dll);
sl@0	631	}
sl@0	632	#now copy the cfg files
sl@0	633	CopyLsbCfg("lsb");
sl@0	634	#now copy the extra dependency dlls
sl@0	635
sl@0	636	#dlopen
sl@0	637	@generatedModules = ("dlopen");
sl@0	638
sl@0	639
sl@0	640
sl@0	641	@depDlls =
sl@0	642	(
sl@0	643	"dynlibtest.1.dll",
sl@0	644	"dynlibtest.11.1.dll",
sl@0	645	"dynlibtest.11.2.dll",
sl@0	646	"dynlibtest.12g.dll",
sl@0	647	"dynlibtest.12r.dll",
sl@0	648	"dynlibtest.14.1.dll",
sl@0	649	"dynlibtest.14.2.dll",
sl@0	650	"dynlibtest.14.3.dll",
sl@0	651	"dynlibtest.3.1.dll",
sl@0	652	"dynlibtest.3.2.dll",
sl@0	653	"dynlibtest.3.dll",
sl@0	654	"dynlibtest.4.dll",
sl@0	655	"dynlibtest.8.dll",
sl@0	656	"dynlibtest.9.dll",
sl@0	657	"dynlibtest.3.dll",
sl@0	658	"dynlibtest.8.dll",
sl@0	659	);
sl@0	660
sl@0	661	foreach $dll (@depDlls)
sl@0	662	{
sl@0	663	CopyDeps("lsb",$dll);
sl@0	664	}
sl@0	665
sl@0	666	#dlclose
sl@0	667	@generatedModules = ("dlclose");
sl@0	668	@depDlls = ("dynlibclose.1.dll");
sl@0	669	foreach $dll (@depDlls)
sl@0	670	{
sl@0	671	CopyDeps("lsb",$dll);
sl@0	672	}
sl@0	673
sl@0	674	#dlerror
sl@0	675	@generatedModules = ("dlerror");
sl@0	676	@depDlls = ("dynlib.dll");
sl@0	677	foreach $dll (@depDlls)
sl@0	678	{
sl@0	679	CopyDeps("lsb",$dll);
sl@0	680	}
sl@0	681
sl@0	682	#now copy the xmls!
sl@0	683	my $srcDir = $templateRoot."/ts/lsbsuites/group/";
sl@0	684
sl@0	685	my $dst;
sl@0	686
sl@0	687	foreach my $dllib("dlopen", "dlclose", "dlerror")
sl@0	688	{
sl@0	689	$dst = $ATSRoot."\\components\\lsb_".$dllib."\\";
sl@0	690	copy($srcDir."/lsb_".$dllib."_module_blr_hw_component.xml", $dst) \|\| die("DIED: unable to copy from $srcDir!\n");
sl@0	691	copy($srcDir."/lsb_".$dllib."_module_blr_winsspd_component.xml", $dst) \|\| die("DIED: unable to copy from $srcDir!\n");
sl@0	692	}
sl@0	693
sl@0	694	}
sl@0	695
sl@0	696	if($suite eq "gcce")
sl@0	697	{
sl@0	698
sl@0	699	mkdir $ATSRoot;
sl@0	700	mkdir $ATSRoot."\\components" \|\| die ("DIED: unable to create component dir");
sl@0	701
sl@0	702	@generatedModules = ("gcce-validate", "gcce-load");
sl@0	703
sl@0	704	my @depDlls =
sl@0	705	(
sl@0	706	"gcce-lib.dll",
sl@0	707	);
sl@0	708
sl@0	709	my $suffix = ".exe";
sl@0	710	my $libname = "gcce";
sl@0	711
sl@0	712
sl@0	713	my $src;
sl@0	714	my $dst;
sl@0	715	foreach my $module(@generatedModules)
sl@0	716	{
sl@0	717	my $relroot = $ATSRoot."\\components\\$libname"."_$module";
sl@0	718	mkdir $relroot \|\| die("DIED: unable to create dir $module\n");
sl@0	719	mkdir $relroot."\\armv5_urel" \|\| die("DIED: unable to create dir $relroot\\armv5_urel\n");
sl@0	720
sl@0	721	#GenExeXmls($module,$libname);
sl@0	722
sl@0	723	$src = $rootDrive."\\epoc32\\release\\gcce\\urel\\".$module.$suffix;
sl@0	724	$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);
sl@0	725	$dst = $dst."\\armv5_urel\\";
sl@0	726	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	727	}
sl@0	728	$src = $rootDrive."\\epoc32\\release\\gcce\\urel\\"."gcce-lib.dll";
sl@0	729	$dst = $ATSRoot."\\components\\gcce_gcce-load";
sl@0	730	$dst = $dst."\\armv5_urel\\";
sl@0	731	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	732
sl@0	733
sl@0	734	my @list = (
sl@0	735	["gcce_gcce-load_module_blr_hw_component.xml", "gcce-load", "./","/", ""],
sl@0	736	["gcce_gcce-validate_module_blr_hw_component.xml", "gcce-validate", "./","/", ""],
sl@0	737	);
sl@0	738
sl@0	739	my $bDataRef = \@list;
sl@0	740	CopyArbitDatFiles("gcce",$bDataRef);
sl@0	741
sl@0	742
sl@0	743	}#if gcce
sl@0	744
sl@0	745
sl@0	746
sl@0	747	if($suite eq "libc-locale")
sl@0	748	{
sl@0	749	$dontStrip = 0;
sl@0	750	mkdir $ATSRoot;
sl@0	751	mkdir $ATSRoot."\\components" \|\| die ("DIED: unable to create component dir");
sl@0	752
sl@0	753	@generatedModules = ("tstring");
sl@0	754	DoGen("libc",".dll");
sl@0	755
sl@0	756	my @localelist = (
sl@0	757	["locales.txt", "string", "../libc/internal/testapps/tstring/data/", "/General/", ""],
sl@0	758	["tstring_locale_component.xml", "string", "../libc/internal/testapps/tstring/group/", "/", ""],
sl@0	759
sl@0	760	);
sl@0	761
sl@0	762	my $bDataRef = \@localelist;
sl@0	763	CopyArbitDatFiles("libc",$bDataRef);
sl@0	764	#delete($ATSRoot."/components/libc_string/"."libc_string_module_blr_hw_component.xml") \|\| die("unable to delete");
sl@0	765	my $my_src = $ATSRoot."/components/libc_string/"."tstring_locale_component.xml";
sl@0	766	my $my_dst = $ATSRoot."/components/libc_string/"."libc_string_module_blr_hw_component.xml";
sl@0	767
sl@0	768	unlink($my_dst) \|\|warn("unable to delete $my_dst");
sl@0	769	rename($my_src,$my_dst) \|\| move($my_src,$my_dst) \|\| die("Unable to rename!");
sl@0	770
sl@0	771	}#if libc-locale
sl@0	772
sl@0	773
sl@0	774	if($suite eq "pcts")
sl@0	775	{
sl@0	776	my $bldfile = $templateRoot."/group/bld.inf";
sl@0	777	my @pctsModules = GetCompiledModules($bldfile);
sl@0	778	@generatedModules = @pctsModules;
sl@0	779	DoGen("pcts",".exe");
sl@0	780
sl@0	781	my @depDlls;
sl@0	782	my $dll;
sl@0	783
sl@0	784
sl@0	785	#copying the common dlls
sl@0	786	@depDlls =
sl@0	787	(
sl@0	788	"vsxlibapi.dll",
sl@0	789	"rttm.exe",
sl@0	790	"rtlibapi.dll",
sl@0	791	"vsxvlib.dll",
sl@0	792	"vsxgenlib.dll",
sl@0	793	"vsxtsetlib.dll",
sl@0	794	"vsxvport.dll",
sl@0	795	);
sl@0	796
sl@0	797	if($install eq "yes")
sl@0	798	{
sl@0	799	my @saved = @dllList;
sl@0	800	@dllList = @depDlls;
sl@0	801	CopySharedDlls("pcts", \@depDlls);
sl@0	802	TransformXmls("pcts","shared");
sl@0	803	@dllList = @saved;
sl@0	804
sl@0	805	#now copy the cfg files
sl@0	806	my $dst;
sl@0	807	my $srcDir = "/epoc32/winscw/c/data/tet/";
sl@0	808	my $file1 = $srcDir."tet_code";
sl@0	809	my $file2 = $srcDir."tetexec.cfg";
sl@0	810	foreach my $module(@generatedModules)
sl@0	811	{
sl@0	812	$dst = $ATSRoot."\\components\\pcts_".$module;
sl@0	813	$dst = $dst."\\General\\";
sl@0	814	copy($file1, $dst) or die "copy: $! $file1 $dst";
sl@0	815	copy($file2,$dst) or die "copy: $! $file2 $dst";
sl@0	816	}
sl@0	817	}
sl@0	818
sl@0	819
sl@0	820
sl@0	821
sl@0	822	my $dst;
sl@0	823	foreach my $module(@generatedModules)
sl@0	824	{
sl@0	825	my $file3 = "/epoc32/winscw/c/logs/tet/m.".$module;
sl@0	826
sl@0	827	$dst = $ATSRoot."\\components\\pcts_".$module;
sl@0	828	$dst = $dst."\\General\\";
sl@0	829	copy($file3, $dst) or die "copy: $! $file3 $dst";
sl@0	830	}#module
sl@0	831	}
sl@0	832
sl@0	833
sl@0	834
sl@0	835	$dontStrip = 0;
sl@0	836
sl@0	837	if($suite eq "stdlibs" \|\| $suite eq "all")
sl@0	838	{
sl@0	839	@generatedModules = ("tzlib");
sl@0	840	DoGen("libz", ".dll");
sl@0	841
sl@0	842	@generatedModules = ("tlibcrypt");
sl@0	843	DoGen("libcrypt",".dll");
sl@0	844
sl@0	845	@generatedModules = @libcModules;
sl@0	846	DoGen("libc",".dll");
sl@0	847	GenBackendTest();
sl@0	848
sl@0	849	@generatedModules = ("twchar");
sl@0	850	CopyDeps("libc","twchar_helloworld.exe");
sl@0	851
sl@0	852	@generatedModules = ("twopen");
sl@0	853	CopyDeps("libc","twpopenwritechild.exe");
sl@0	854	CopyDeps("libc","twpopenreadchild.exe");
sl@0	855
sl@0	856
sl@0	857	@generatedModules = @libdlModules;
sl@0	858	DoGen("libdl",".dll");
sl@0	859	CopyDeps("libdl","Dll1.dll");
sl@0	860	CopyDeps("libdl","Dll2.dll");
sl@0	861	CopyDeps("libdl","DependencyTestDll.dll");
sl@0	862
sl@0	863	@generatedModules = @libmModules;
sl@0	864	DoGen("libm",".dll");
sl@0	865
sl@0	866	$TDIR = "\\internal\\";
sl@0	867	@generatedModules = @pthreadModules;
sl@0	868	DoGen("libpthread",".dll");
sl@0	869	CopyDeps("libpthread","testharness.dll");
sl@0	870
sl@0	871	CopyDatFiles();
sl@0	872	}
sl@0	873
sl@0	874	if($install eq "yes")
sl@0	875	{
sl@0	876	foreach my $lib(@liblist)
sl@0	877	{
sl@0	878	#print "Transforming lib $lib\n";
sl@0	879	@generatedModules = GenGenModules($lib);
sl@0	880	my @oldList = @dllList;
sl@0	881	if($do_winscw)
sl@0	882	{
sl@0	883	@dllList = (@dllList, "wsdsoln.dll", "libestw32.dll");
sl@0	884	CopySharedDlls($lib,\@dllList,"winscw");
sl@0	885	TransformXmls($lib, "shared","winscw");
sl@0	886	}
sl@0	887	@dllList = @oldList;
sl@0	888	if($do_armv5)
sl@0	889	{
sl@0	890	CopySharedDlls($lib,\@dllList,"armv5");
sl@0	891	TransformXmls($lib, "shared","armv5");
sl@0	892	}
sl@0	893	}#FOREACH
sl@0	894	}#if install
sl@0	895
sl@0	896
sl@0	897
sl@0	898	#function to generate ModuleList for a compiled bld.inf
sl@0	899	sub GetCompiledModules($)
sl@0	900	{
sl@0	901	my $file = shift @_;
sl@0	902	my @moduleList;
sl@0	903
sl@0	904
sl@0	905	# Open input file
sl@0	906	open (INFILE, "<".$file ) \|\| die ("DIED: Can not find $file!");
sl@0	907
sl@0	908	while (<INFILE>)
sl@0	909	{
sl@0	910	if(/(.*)\.mmp/ && $1 !~ /^\/\//)
sl@0	911	{
sl@0	912	if($_ !~ /\/\/Not for ATS/)
sl@0	913	{
sl@0	914	push @moduleList, $1;
sl@0	915	}
sl@0	916	}
sl@0	917	}
sl@0	918	close (INFILE);
sl@0	919	return @moduleList;
sl@0	920	}
sl@0	921
sl@0	922	my @groupList;
sl@0	923	sub GetLtpModules()
sl@0	924	{
sl@0	925	my $prevDir = getcwd();
sl@0	926	my @rootList = ("kernel", "misc");
sl@0	927	my @totalgroupList;
sl@0	928	foreach my $node(@rootList)
sl@0	929	{
sl@0	930	chdir $ltpPath."/$node";
sl@0	931	@groupList = ();
sl@0	932	find(\&MakeGroupList, ".");
sl@0	933	@totalgroupList = (@totalgroupList, @groupList);
sl@0	934	}
sl@0	935	chdir $prevDir;
sl@0	936	return @totalgroupList;
sl@0	937	}
sl@0	938
sl@0	939	sub GetstdexeModules()
sl@0	940	{
sl@0	941	my $prevDir = getcwd();
sl@0	942	my @fullList = ();
sl@0	943	foreach my $group(@stdexeList)
sl@0	944	{
sl@0	945	my $groupPath = $templateRoot."/testapps/".$group. "/";
sl@0	946	chdir $groupPath;
sl@0	947	@groupList = ();
sl@0	948	find(\&grovelAllMmpFiles, ".");
sl@0	949	chdir $prevDir;
sl@0	950	@fullList = (@fullList,@groupList);
sl@0	951	}
sl@0	952	return @fullList;
sl@0	953	}
sl@0	954
sl@0	955	sub grovelAllMmpFiles()
sl@0	956	{
sl@0	957	if($_ =~ /(.*)\.mmp/ && ! ($_ =~ /manual/))
sl@0	958	{
sl@0	959	push @groupList, $1;#get name of module
sl@0	960	}
sl@0	961	}
sl@0	962
sl@0	963	sub GetstdcppModules()
sl@0	964	{
sl@0	965	my $prevDir = getcwd();
sl@0	966	my @rootList = ("auto");
sl@0	967	my @totalgroupList;
sl@0	968	foreach my $node(@rootList)
sl@0	969	{
sl@0	970	chdir $stdcppPath."/$node";
sl@0	971	@groupList = ();
sl@0	972	find(\&MakeGroupList, ".");
sl@0	973	@totalgroupList = (@totalgroupList, @groupList);
sl@0	974	}
sl@0	975	chdir $prevDir;
sl@0	976	return @totalgroupList;
sl@0	977	}
sl@0	978
sl@0	979	sub GetTstdcppModules()
sl@0	980	{
sl@0	981	my $prevDir = getcwd();
sl@0	982	#chdir $tstdcppPath;
sl@0	983	@groupList = ();
sl@0	984	find(\&grovelAllMmpFiles, ".");
sl@0	985	chdir $prevDir;
sl@0	986	return @groupList;
sl@0	987	}
sl@0	988
sl@0	989	sub MakeGroupList()
sl@0	990	{
sl@0	991	my $currentDir = $File::Find::dir;
sl@0	992
sl@0	993	#print "Current dir:$currentDir\n";
sl@0	994	if( $currentDir =~ /.\/(.)\/group/)
sl@0	995	{
sl@0	996	if($cfglocation{$1} eq "")
sl@0	997	{
sl@0	998	$cfglocation{$1} = getcwd()."\/$1.cfg";
sl@0	999	push @groupList, $1;#get name of module
sl@0	1000	}#first time in group
sl@0	1001	}#group found
sl@0	1002	}#subrtn end
sl@0	1003
sl@0	1004
sl@0	1005	#function that generates the ATS setup
sl@0	1006	sub DoGen($$)
sl@0	1007	{
sl@0	1008	my $libname = shift @_;
sl@0	1009	my $ext = shift @_;
sl@0	1010	mkdir $ATSRoot;
sl@0	1011	mkdir $ATSRoot."\\components" \|\| die ("DIED: unable to create component dir");
sl@0	1012
sl@0	1013
sl@0	1014	GenDirs($libname);
sl@0	1015	my $module;
sl@0	1016	foreach my $listed(@generatedModules)
sl@0	1017	{
sl@0	1018	my @filesToProcess =
sl@0	1019	(
sl@0	1020	"LibXXX_ATSTemplateXXX_module_blr_hw_component.xml",
sl@0	1021	"LibXXX_ATSTemplateXXX_module_blr_winsspd_component.xml",
sl@0	1022	"testframework.ini",
sl@0	1023	);
sl@0	1024	if(rindex($noXmlsGenList, $libname) != -1 )
sl@0	1025	{
sl@0	1026	@filesToProcess = ("testframework.ini",);
sl@0	1027	}
sl@0	1028
sl@0	1029	if($ext eq ".exe")
sl@0	1030	{
sl@0	1031	GenExeXmls($listed,$libname);
sl@0	1032	}
sl@0	1033	else
sl@0	1034	{
sl@0	1035	#just in case no xml file was supplied
sl@0	1036
sl@0	1037	my $ref = \@filesToProcess;
sl@0	1038	GenXmls($libname, $listed,$ref);
sl@0	1039	}
sl@0	1040	}#foreach
sl@0	1041
sl@0	1042	CopyDlls($libname,$ext);
sl@0	1043	#copy the provided cfg, ini and xmls
sl@0	1044	if($libname eq "opts")
sl@0	1045	{
sl@0	1046	CopyOptsCfg($libname);
sl@0	1047	}
sl@0	1048	elsif($libname eq "ltp" \|\| $libname eq "lsb" \|\| $libname eq "glib")
sl@0	1049	{
sl@0	1050	#copy latter and dont copy respectively for ltp and lsb
sl@0	1051	}
sl@0	1052	else
sl@0	1053	{
sl@0	1054	CopyCfgIniXmls($libname);
sl@0	1055	}
sl@0	1056	}
sl@0	1057
sl@0	1058	sub CopyCfgIniXmls()
sl@0	1059	{
sl@0	1060	my $libname = pop @_;
sl@0	1061
sl@0	1062	my $libRoot = $templateRoot;
sl@0	1063	$libRoot =~ /(.)internal./;
sl@0	1064	$libRoot = $1;
sl@0	1065
sl@0	1066
sl@0	1067	my $module;
sl@0	1068	my $src;
sl@0	1069	my $dst;
sl@0	1070
sl@0	1071	foreach my $listed(@generatedModules)
sl@0	1072	{
sl@0	1073	my $dirname = $listed;
sl@0	1074	$dirname =~ s/test/t/;
sl@0	1075	$module = StripModulePrefix($listed);
sl@0	1076
sl@0	1077	$src = $libRoot.$libname.$TDIR.$dirname."\\group\\";
sl@0	1078
sl@0	1079	my $xmlCopied = "0";
sl@0	1080	my @globpattern = (".ini", ".xml","*.cfg");
sl@0	1081	foreach my $pat(@globpattern)
sl@0	1082	{
sl@0	1083	$dst = $ATSRoot."\\components\\".$libname."_".$module;
sl@0	1084	if($pat ne "*.xml")
sl@0	1085	{
sl@0	1086	$dst = $dst."\\General\\";
sl@0	1087	}
sl@0	1088	else
sl@0	1089	{
sl@0	1090	$dst = $dst."\\";
sl@0	1091	}
sl@0	1092	my @filesFound = glob($src."\\$pat");
sl@0	1093	if(scalar @filesFound eq "0")
sl@0	1094	{
sl@0	1095	#print "No files found for module $module $pat!\n";
sl@0	1096	#print $src;
sl@0	1097	}
sl@0	1098
sl@0	1099	#handcoded
sl@0	1100	if($pat eq "*.cfg" && $xmlCopied eq "0")#rename only if xml not copied
sl@0	1101	{
sl@0	1102	if(scalar @filesFound > 1)
sl@0	1103	{
sl@0	1104	print "Multiple cfg files found. Copying all!\n";
sl@0	1105	}
sl@0	1106	else
sl@0	1107	{
sl@0	1108	$dst = $dst.$listed.".cfg";
sl@0	1109	}
sl@0	1110	}
sl@0	1111	elsif($pat eq "*.xml")
sl@0	1112	{
sl@0	1113	my $folder = $dst;
sl@0	1114	foreach my $from (@filesFound)
sl@0	1115	{
sl@0	1116	if($from =~ /winscw_component/)
sl@0	1117	{
sl@0	1118	$dst = $folder.$libname."_".$module."_module_blr_winscw_component.xml";
sl@0	1119	copy($from, $dst) or die "DIED: copy: $! $from $dst";
sl@0	1120	$xmlCopied = "1";
sl@0	1121	}
sl@0	1122	elsif($from =~ /winsspd_component/)
sl@0	1123	{
sl@0	1124	$dst = $folder.$libname."_".$module."_module_blr_winsspd_component.xml";
sl@0	1125	copy($from, $dst) or die "DIED: copy: $! $from $dst";
sl@0	1126	$xmlCopied = "1";
sl@0	1127	}
sl@0	1128	elsif($from =~ /hw_component/)
sl@0	1129	{
sl@0	1130	$dst = $folder.$libname."_".$module."_module_blr_hw_component.xml";
sl@0	1131	copy($from, $dst) or die "DIED: copy: $! $from $dst";
sl@0	1132	$xmlCopied = "1";
sl@0	1133	}
sl@0	1134	}#examine individually
sl@0	1135	if(scalar @filesFound > 2)
sl@0	1136	{
sl@0	1137	#print "Multiple xml files found!!!\n";
sl@0	1138	}
sl@0	1139	@filesFound = ();
sl@0	1140	}
sl@0	1141
sl@0	1142
sl@0	1143	foreach my $from (@filesFound)
sl@0	1144	{
sl@0	1145	copy($from, $dst) or die "DIED: copy: $! $from $dst";
sl@0	1146	}#copy individually
sl@0	1147	}#globpattern
sl@0	1148	}#module
sl@0	1149	}#fn
sl@0	1150
sl@0	1151	#copy the cfg files for the opts test suite
sl@0	1152	sub CopyOptsCfg()
sl@0	1153	{
sl@0	1154	my $libname = pop @_;
sl@0	1155
sl@0	1156	my $libRoot = $optsGroupPath."\\";
sl@0	1157	my $module;
sl@0	1158	my $src;
sl@0	1159	my $dst;
sl@0	1160
sl@0	1161	foreach $module(@generatedModules)
sl@0	1162	{
sl@0	1163	$src = $libRoot.$module."\.cfg";
sl@0	1164	$dst = $ATSRoot."\\components\\".$libname."_".$module;
sl@0	1165	$dst = $dst."\\General\\";
sl@0	1166	copy($src, $dst) or warn "copy: $! $src $dst";
sl@0	1167	}#module
sl@0	1168	}#fn
sl@0	1169
sl@0	1170	#copy the lsb cfg files
sl@0	1171	sub CopyLsbCfg()
sl@0	1172	{
sl@0	1173	my $libname = pop @_;
sl@0	1174
sl@0	1175	my $module;
sl@0	1176
sl@0	1177	my $dst;
sl@0	1178
sl@0	1179	my $srcDir = $templateRoot."/ts/lsbsuites/lsblib/data/";
sl@0	1180
sl@0	1181	foreach $module(@generatedModules)
sl@0	1182	{
sl@0	1183	my $file1 = $srcDir."tet_code.cfg";
sl@0	1184	my $file2 = $srcDir."tetexec.cfg";
sl@0	1185	$dst = $ATSRoot."\\components\\".$libname."_".$module;
sl@0	1186	$dst = $dst."\\General\\";
sl@0	1187	copy($file1, $dst) or die "copy: $! $file1 $dst";
sl@0	1188	copy($file2, $dst) or die "copy: $! $file2 $dst";
sl@0	1189	}#module
sl@0	1190	}#fn
sl@0	1191
sl@0	1192
sl@0	1193	#copy the ltp cfg files
sl@0	1194	sub CopyLtpCfg($)
sl@0	1195	{
sl@0	1196	my $libname = pop @_;
sl@0	1197
sl@0	1198	my $module;
sl@0	1199	my $src;
sl@0	1200	my $dst;
sl@0	1201
sl@0	1202	foreach $module(@generatedModules)
sl@0	1203	{
sl@0	1204	$src = $cfglocation{$module};
sl@0	1205	$dst = $ATSRoot."\\components\\".$libname."_".$module;
sl@0	1206	$dst = $dst."\\General\\";
sl@0	1207	copy($src, $dst) or warn "copy: $! $src $dst";
sl@0	1208	}#module
sl@0	1209	}#fn
sl@0	1210
sl@0	1211
sl@0	1212	sub CopyDlls($$)
sl@0	1213	{
sl@0	1214	my $libname = shift @_;
sl@0	1215	my $suffix = shift @_;
sl@0	1216
sl@0	1217	my $module;
sl@0	1218	my $src;
sl@0	1219	my $dst;
sl@0	1220
sl@0	1221
sl@0	1222	foreach $module(@generatedModules)
sl@0	1223	{
sl@0	1224	if($do_winscw == 1)
sl@0	1225	{
sl@0	1226	$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$module.$suffix;
sl@0	1227	$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);
sl@0	1228	$dst = $dst."\\winscw_udeb\\";
sl@0	1229	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	1230	}
sl@0	1231	if($do_armv5 == 1)
sl@0	1232	{
sl@0	1233	$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$module.$suffix;
sl@0	1234	$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);
sl@0	1235	$dst = $dst."\\armv5_urel\\";
sl@0	1236	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	1237	}
sl@0	1238	}#foreach
sl@0	1239	}
sl@0	1240	#fn to generate the session file
sl@0	1241	sub GenerateSessionFile($$$$)
sl@0	1242	{
sl@0	1243	my $libname = shift @_;
sl@0	1244	my $target = shift @_;
sl@0	1245	my $name = shift @_;
sl@0	1246	my $listptr = shift @_;
sl@0	1247	my $outdir = $ATSRoot;
sl@0	1248	my $infile = $templateRoot."\\testsession.xml";
sl@0	1249	chdir $outdir \|\| die("DIED: Unable to chdir!");
sl@0	1250	#open INFILE, $infile \|\| die ("DIED: Can not open input file $infile");
sl@0	1251	my $prefix = $name."_".$target;
sl@0	1252	if($sdkversion ne "")
sl@0	1253	{
sl@0	1254	$prefix = $prefix."_".$sdkversion;
sl@0	1255	}
sl@0	1256
sl@0	1257	open OUTFILE, ">".$outdir."\\".$prefix."_testsession.xml" \|\| die ("DIED: Can not open output file");
sl@0	1258	my $line;
sl@0	1259	my $snippet = $target;
sl@0	1260	if($target ne "winscw" && $target ne "winsspd")
sl@0	1261	{
sl@0	1262	$snippet = "hw";
sl@0	1263	}
sl@0	1264
sl@0	1265	print OUTFILE "<?xml version=\"1.0\"?>\n";
sl@0	1266	print OUTFILE "<testsession>\n";
sl@0	1267	#print OUTFILE "<symbian-version>$libname"."_".$snippet."_TestDrop_blr_component</symbian-version>\n";
sl@0	1268	print OUTFILE "<symbian-version>ats_test_session</symbian-version>\n";
sl@0	1269	print OUTFILE "<testitem>at</testitem>\n";
sl@0	1270	print OUTFILE "<resultfile>ATSOUTPUT\\".$prefix."_testsession_results.xml</resultfile>\n";
sl@0	1271	if($sendEmail eq "yes")
sl@0	1272	{
sl@0	1273	print OUTFILE <<EOEmailNote;
sl@0	1274	<email_notification>
sl@0	1275	<include_test_cases>true</include_test_cases>
sl@0	1276	<message_file>C:\\\\lm.txt </message_file>
sl@0	1277	<send_after_rerun>false</send_after_rerun>
sl@0	1278	<subject>ATS testreport</subject>
sl@0	1279	<from>swbuild\@nokia.com</from>
sl@0	1280	<to>santosh.ks\@nokia.com</to>
sl@0	1281	<to>Imtiyaj.Kaji\@nokia.com</to>
sl@0	1282	<to>tp-ap-india-mrt-testdg\@nokia.com</to>
sl@0	1283	<to>tp-ap-india-mrt-libsdg\@nokia.com</to>
sl@0	1284	<to>subeesh.sivanandan\@nokia.com</to>
sl@0	1285	<to>girish.bhat\@nokia.com</to>
sl@0	1286	</email_notification>
sl@0	1287	EOEmailNote
sl@0	1288	}
sl@0	1289
sl@0	1290	if($libname ne "combined")
sl@0	1291	{
sl@0	1292	AddAssumedIncludes($libname,$snippet);
sl@0	1293	}
sl@0	1294	else
sl@0	1295	{
sl@0	1296	if($listptr ne "")
sl@0	1297	{
sl@0	1298	AddFileList($libname,$listptr);
sl@0	1299	}
sl@0	1300	else
sl@0	1301	{
sl@0	1302	AddActualIncludes($libname);
sl@0	1303	}
sl@0	1304	}
sl@0	1305
sl@0	1306	print OUTFILE "</testsession>\n";
sl@0	1307
sl@0	1308	close(OUTFILE);
sl@0	1309	#close(INFILE);
sl@0	1310	}#fn
sl@0	1311
sl@0	1312
sl@0	1313	sub AddAssumedIncludes($$)
sl@0	1314	{
sl@0	1315	my $libname = shift @_;
sl@0	1316	my $snippet = shift @_;
sl@0	1317
sl@0	1318	my $APITest;
sl@0	1319	foreach my $listed(@generatedModules)
sl@0	1320	{
sl@0	1321	$APITest = StripModulePrefix($listed);
sl@0	1322	print OUTFILE "\n";
sl@0	1323	print OUTFILE " <!--Inclusion of $target xml for $APITest -->\n";
sl@0	1324	print OUTFILE " <component>\n";
sl@0	1325	print OUTFILE " <factory>Symbian</factory>\n";
sl@0	1326	if($libname eq "all")
sl@0	1327	{
sl@0	1328	print OUTFILE " <testplan>ATSINPUT\\components\\$listed\\$listed"."_module_blr_".$snippet."_component.xml</testplan>\n";
sl@0	1329	}
sl@0	1330	else
sl@0	1331	{
sl@0	1332	print OUTFILE " <testplan>ATSINPUT\\components\\$libname"."_"."$APITest\\$libname"."_$APITest"."_module_blr_".$snippet."_component.xml</testplan>\n";
sl@0	1333	}
sl@0	1334	if($target eq "winscw")
sl@0	1335	{
sl@0	1336	print OUTFILE " <target hardware=\"winscw\" build=\"udeb\" />\n";
sl@0	1337	}
sl@0	1338	elsif($target eq "winsspd")
sl@0	1339	{
sl@0	1340	print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n";
sl@0	1341	}
sl@0	1342	else
sl@0	1343	{
sl@0	1344	print OUTFILE " <target hardware=\"$target\" build=\"urel\" />\n";
sl@0	1345	}
sl@0	1346	print OUTFILE " </component>\n";
sl@0	1347	print OUTFILE "\n";
sl@0	1348	}#foreach @generatedModules
sl@0	1349	}
sl@0	1350
sl@0	1351
sl@0	1352	sub AddFileList($$)
sl@0	1353	{
sl@0	1354	my $libname = shift @_;
sl@0	1355	my $listptr = shift @_;
sl@0	1356	my @componentfiles = @$listptr;
sl@0	1357
sl@0	1358	foreach my $listed(@componentfiles)
sl@0	1359	{
sl@0	1360	print OUTFILE "\n";
sl@0	1361	print OUTFILE " <!--Inclusion of $target xml -->\n";
sl@0	1362	print OUTFILE " <component>\n";
sl@0	1363	print OUTFILE " <factory>Symbian</factory>\n";
sl@0	1364	print OUTFILE " <testplan>ATSINPUT\\components\\$listed</testplan>\n";
sl@0	1365	if($target eq "winscw")
sl@0	1366	{
sl@0	1367	print OUTFILE " <target hardware=\"winscw\" build=\"udeb\" />\n";
sl@0	1368	}
sl@0	1369	elsif($target eq "winsspd")
sl@0	1370	{
sl@0	1371	print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n";
sl@0	1372	}
sl@0	1373	else
sl@0	1374	{
sl@0	1375	print OUTFILE " <target hardware=\"$target\" build=\"urel\" />\n";
sl@0	1376	}
sl@0	1377	print OUTFILE " </component>\n";
sl@0	1378	print OUTFILE "\n";
sl@0	1379	}#foreach @componentfiles
sl@0	1380	}
sl@0	1381
sl@0	1382
sl@0	1383
sl@0	1384	sub GetSslXmls()
sl@0	1385	{
sl@0	1386	my $APITest;
sl@0	1387	my @componentfiles;
sl@0	1388
sl@0	1389	my @emulatorfiles =
sl@0	1390	(
sl@0	1391	"libssl_ssltest\\libssl_blr_winsspd_component.xml",
sl@0	1392	"libcrypto_crypto_test\\libcrypto_blr_winsspd_component.xml",
sl@0	1393	"libcrypto_openssl\\libcrypto_topenssltestss_blr_winsspd_component.xml",
sl@0	1394	"libcrypto_openssl\\libcrypto_topenssltestverify_blr_winsspd_component.xml",
sl@0	1395	"libcrypto_openssl\\libcrypto_topenssltestenc_blr_winsspd_component.xml",
sl@0	1396	"libcrypto_openssl\\libcrypto_topenssltestgen_blr_winsspd_component.xml",
sl@0	1397	"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_winsspd_component.xml",
sl@0	1398	"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_winsspd_component.xml",
sl@0	1399	"libcrypto_openssl\\libcrypto_topenssltreq_blr_winsspd_component.xml",
sl@0	1400	"libcrypto_openssl\\libcrypto_topenssltreq2_blr_winsspd_component.xml",
sl@0	1401	"libcrypto_openssl\\libcrypto_topenssltrsa_blr_winsspd_component.xml",
sl@0	1402	"libcrypto_openssl\\libcrypto_topenssltcrl_blr_winsspd_component.xml",
sl@0	1403	"libcrypto_openssl\\libcrypto_topenssltsid_blr_winsspd_component.xml",
sl@0	1404	"libcrypto_openssl\\libcrypto_topenssltx509_blr_winsspd_component.xml",
sl@0	1405	"libcrypto_openssl\\libcrypto_topenssltx5091_blr_winsspd_component.xml",
sl@0	1406	"libcrypto_openssl\\libcrypto_topenssltx5092_blr_winsspd_component.xml",
sl@0	1407	);
sl@0	1408
sl@0	1409	my @hwfiles =
sl@0	1410	(
sl@0	1411	"libcrypto_openssl\\libcrypto_topenssltestss_blr_hw_component.xml",
sl@0	1412	"libcrypto_openssl\\libcrypto_topenssltestverify_blr_hw_component.xml",
sl@0	1413	"libcrypto_openssl\\libcrypto_topenssltestenc_blr_hw_component.xml",
sl@0	1414	"libcrypto_openssl\\libcrypto_topenssltestgen_blr_hw_component.xml",
sl@0	1415	"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_hw_component.xml",
sl@0	1416	"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_hw_component.xml",
sl@0	1417	"libcrypto_openssl\\libcrypto_topenssltreq_blr_hw_component.xml",
sl@0	1418	"libcrypto_openssl\\libcrypto_topenssltreq2_blr_hw_component.xml",
sl@0	1419	"libcrypto_openssl\\libcrypto_topenssltrsa_blr_hw_component.xml",
sl@0	1420	"libcrypto_openssl\\libcrypto_topenssltcrl_blr_hw_component.xml",
sl@0	1421	"libcrypto_openssl\\libcrypto_topenssltsid_blr_hw_component.xml",
sl@0	1422	"libcrypto_openssl\\libcrypto_topenssltx509_blr_hw_component.xml",
sl@0	1423	"libcrypto_openssl\\libcrypto_topenssltx5091_blr_hw_component.xml",
sl@0	1424	"libcrypto_openssl\\libcrypto_topenssltx5092_blr_hw_component.xml",
sl@0	1425	"libssl_ssltest\\libssl_blr_hw_component.xml",
sl@0	1426	"libcrypto_crypto_test\\libcrypto_blr_hw_component.xml",
sl@0	1427	);
sl@0	1428	if($target eq "winsspd" \|\| $target eq "winscw")
sl@0	1429	{
sl@0	1430	@componentfiles = @emulatorfiles;
sl@0	1431	}
sl@0	1432	else
sl@0	1433	{
sl@0	1434	@componentfiles = @hwfiles;
sl@0	1435	}
sl@0	1436	return @componentfiles;
sl@0	1437	}
sl@0	1438
sl@0	1439
sl@0	1440
sl@0	1441	sub AddActualIncludes($)
sl@0	1442	{
sl@0	1443	my $libname = shift @_;
sl@0	1444	find(\&XmlComponentFiles, ".");
sl@0	1445	my $key;
sl@0	1446	my $value;
sl@0	1447	while(($key, $value) = each(%DirHash))
sl@0	1448	{
sl@0	1449	$value =~ s/\//\\/g;
sl@0	1450	print OUTFILE "\n";
sl@0	1451	print OUTFILE " <!--Inclusion of dynamically found $target xml -->\n";
sl@0	1452	print OUTFILE " <component>\n";
sl@0	1453	print OUTFILE " <factory>Symbian</factory>\n";
sl@0	1454	print OUTFILE " <testplan>$value</testplan>\n";
sl@0	1455	if($target eq "winscw")
sl@0	1456	{
sl@0	1457	print OUTFILE " <target hardware=\"winscw\" build=\"udeb\" />\n";
sl@0	1458	}
sl@0	1459	elsif($target eq "winsspd")
sl@0	1460	{
sl@0	1461	print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n";
sl@0	1462	}
sl@0	1463	else
sl@0	1464	{
sl@0	1465	print OUTFILE " <target hardware=\"$target\" build=\"urel\" />\n";
sl@0	1466	}
sl@0	1467	print OUTFILE " </component>\n";
sl@0	1468	print OUTFILE "\n";
sl@0	1469
sl@0	1470	}#while
sl@0	1471	}#fn
sl@0	1472
sl@0	1473	sub XmlComponentFiles()
sl@0	1474	{
sl@0	1475	if($_ !~ /\.xml/ \|\| $_ =~ /manual/)
sl@0	1476	{
sl@0	1477	return;
sl@0	1478	}
sl@0	1479	#print "Processing $_\n";
sl@0	1480	my $dir = getcwd();
sl@0	1481	if($dir =~ /.(ATSINPUT.)/)
sl@0	1482	{
sl@0	1483	$dir = $1;
sl@0	1484	if($dir !~ /.components./)
sl@0	1485	{
sl@0	1486	return;
sl@0	1487	}
sl@0	1488	#print "The dir is $dir\n";
sl@0	1489	}
sl@0	1490	else
sl@0	1491	{
sl@0	1492	return;
sl@0	1493	}
sl@0	1494
sl@0	1495	if($target eq "winsspd" )
sl@0	1496	{
sl@0	1497	if($_ =~ /winsspd/)
sl@0	1498	{
sl@0	1499	#print "Adding $target file $_ for $dir\n";
sl@0	1500	$DirHash{$dir} = $dir."/".$_;
sl@0	1501	}
sl@0	1502	}
sl@0	1503	elsif($target eq "winscw")
sl@0	1504	{
sl@0	1505	if($_ =~ /winscw/)
sl@0	1506	{
sl@0	1507	#print "Adding $target file $_ for $dir\n";
sl@0	1508	$DirHash{$dir} = $dir."/".$_;
sl@0	1509	}
sl@0	1510	}
sl@0	1511	elsif($_ =~ /$target/)
sl@0	1512	{
sl@0	1513	#print "$_ matched $target \n";
sl@0	1514	#print "Adding $target file $_ for $dir\n";
sl@0	1515	$DirHash{$dir} = $dir."/".$_;
sl@0	1516	}
sl@0	1517	elsif($_ =~/hw/)
sl@0	1518	{
sl@0	1519	#print "$_ matched hw";
sl@0	1520	if(scalar $DirHash{$dir} == 0)
sl@0	1521	{
sl@0	1522	#print "Adding hw file $_ for $dir\n";
sl@0	1523	$DirHash{$dir} = $dir."/".$_;
sl@0	1524	#print " and added\n"
sl@0	1525	}
sl@0	1526	else
sl@0	1527	{
sl@0	1528	#print " and not added\n";
sl@0	1529	}
sl@0	1530	}
sl@0	1531	}
sl@0	1532
sl@0	1533
sl@0	1534
sl@0	1535	sub emptyArray()
sl@0	1536	{
sl@0	1537	@generatedModules = ();
sl@0	1538	}
sl@0	1539
sl@0	1540	sub GenDirs($)
sl@0	1541	{
sl@0	1542	my $libname = shift @_;
sl@0	1543	my $dirname;
sl@0	1544	foreach my $module(@generatedModules)
sl@0	1545	{
sl@0	1546	$dirname = StripModulePrefix($module);
sl@0	1547	my $relroot = $ATSRoot."\\components\\$libname"."_$dirname";
sl@0	1548	mkdir $relroot \|\| die("DIED: unable to create dir $dirname\n");
sl@0	1549	mkdir $relroot."\\General" \|\| die("DIED: unable to create dir $relroot\\General\n");
sl@0	1550	if($do_armv5 == 1)
sl@0	1551	{
sl@0	1552	mkdir $relroot."\\armv5_urel" \|\| die("DIED: unable to create dir $relroot\\armv5_urel\n");
sl@0	1553	}
sl@0	1554	if($do_winscw == 1)
sl@0	1555	{
sl@0	1556	mkdir $relroot."\\winscw_udeb" \|\| die("DIED: unable to create dir $relroot\\winscw_udeb\n");
sl@0	1557	}
sl@0	1558	}
sl@0	1559	}
sl@0	1560
sl@0	1561	sub GenXmls($$$)
sl@0	1562	{
sl@0	1563	my $libname = shift @_;
sl@0	1564	my $listedName = shift @_;
sl@0	1565	my $bref = shift @_;
sl@0	1566	my @filesToProcess = @$bref;
sl@0	1567
sl@0	1568	#strip leading test and t names from module
sl@0	1569	my $moduleName = StripModulePrefix($listedName);
sl@0	1570
sl@0	1571	my $toPath = $ATSRoot."\\components\\$libname"."_$moduleName\\";
sl@0	1572
sl@0	1573
sl@0	1574	my $dst;
sl@0	1575	my $src;
sl@0	1576	foreach $src(@filesToProcess)
sl@0	1577	{
sl@0	1578	$dst = $src;
sl@0	1579	$dst =~ s/ATSTemplateXXX/$moduleName/;
sl@0	1580	$dst =~ s/LibXXX/$libname/;
sl@0	1581
sl@0	1582
sl@0	1583	if($src eq "testframework.ini")
sl@0	1584	{
sl@0	1585	$dst = $toPath."General\\".$dst;
sl@0	1586	}
sl@0	1587	else
sl@0	1588	{
sl@0	1589	$dst = $toPath.$dst;
sl@0	1590	}
sl@0	1591	copy($templateRoot."\\".$src, $dst) \|\| die("DIED: Unable to copy $src to $dst\n");
sl@0	1592	ExpandModuleMacros($dst, $libname, $listedName);
sl@0	1593	}#foreach file
sl@0	1594	}
sl@0	1595
sl@0	1596
sl@0	1597	sub GenExeXmls()
sl@0	1598	{
sl@0	1599	my $moduleName = shift @_;
sl@0	1600	my $libname = shift @_;
sl@0	1601
sl@0	1602	my $toPath = $ATSRoot."\\components\\$libname"."_$moduleName\\";
sl@0	1603	my @filesToProcess =
sl@0	1604	(
sl@0	1605	"LibXXX_ATSTemplateXXX_exemodule_blr_hw_component.xml",
sl@0	1606	"LibXXX_ATSTemplateXXX_exemodule_blr_winsspd_component.xml",
sl@0	1607	);
sl@0	1608
sl@0	1609	my $dst;
sl@0	1610	my $src;
sl@0	1611	foreach $src(@filesToProcess)
sl@0	1612	{
sl@0	1613	$dst = $src;
sl@0	1614	$dst =~ s/ATSTemplateXXX/$moduleName/;
sl@0	1615	$dst =~ s/LibXXX/$libname/;
sl@0	1616	$dst =~ s/_exemodule_/_module_/;
sl@0	1617	$dst = $toPath.$dst;
sl@0	1618	copy($templateRoot."\\".$src, $dst) \|\| die("DIED: Unable to copy to $dst\n");
sl@0	1619	ExpandModuleMacros($dst, $libname, $moduleName);
sl@0	1620	}#foreach file
sl@0	1621	}
sl@0	1622
sl@0	1623	#function to expand the macros existing in a file
sl@0	1624	#file is replaced by new version
sl@0	1625	#args are relativePath. filename and $moduleName
sl@0	1626	sub ExpandModuleMacros()
sl@0	1627	{
sl@0	1628	# Take module name
sl@0	1629	my $moduleName = pop @_;
sl@0	1630	my $libname = pop @_;
sl@0	1631	my $filename = pop @_;
sl@0	1632
sl@0	1633	my $MODULENAME = $moduleName;
sl@0	1634	$MODULENAME =~ tr/[a-z]/[A-Z]/;
sl@0	1635
sl@0	1636	# Open input file
sl@0	1637	open (INFILE, $filename ) \|\| die ("DIED: Can not find $filename");
sl@0	1638
sl@0	1639	#Open output file
sl@0	1640	my $newOutput = $filename."new";
sl@0	1641	open (OUTFILE, ">".$newOutput ) \|\| die ("DIED: Can not open $newOutput");
sl@0	1642
sl@0	1643	# Replace text in files
sl@0	1644	while (<INFILE>)
sl@0	1645	{
sl@0	1646	s/ATSTemplateXXX/$moduleName/g;
sl@0	1647	s/LibXXX/$libname/g;
sl@0	1648	print OUTFILE $_;
sl@0	1649	}
sl@0	1650
sl@0	1651	# Close filehandles
sl@0	1652	close (INFILE);
sl@0	1653	close (OUTFILE);
sl@0	1654
sl@0	1655	# Rename result file
sl@0	1656	unlink $filename;
sl@0	1657	rename $newOutput,$filename;
sl@0	1658	}
sl@0	1659
sl@0	1660
sl@0	1661
sl@0	1662	sub CopyDeps($$)
sl@0	1663	{
sl@0	1664	my $libname = shift @_;
sl@0	1665	my $copyDll = shift @_;
sl@0	1666	my $src;
sl@0	1667	my $dst;
sl@0	1668	foreach my $listed(@generatedModules)
sl@0	1669	{
sl@0	1670	my $module = StripModulePrefix($listed);
sl@0	1671	if($do_winscw == 1)
sl@0	1672	{
sl@0	1673	$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;
sl@0	1674	$dst = $ATSRoot."\\components\\$libname"."_$module";
sl@0	1675	$dst = $dst."\\winscw_udeb\\";
sl@0	1676	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	1677	}
sl@0	1678	if($do_armv5 == 1)
sl@0	1679	{
sl@0	1680	$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;
sl@0	1681	$dst = $ATSRoot."\\components\\$libname"."_$module";
sl@0	1682	$dst = $dst."\\armv5_urel\\";
sl@0	1683	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	1684	}
sl@0	1685	}#foreach
sl@0	1686	}#fn
sl@0	1687
sl@0	1688	#dat file copy
sl@0	1689	sub CopyDatFiles()
sl@0	1690	{
sl@0	1691	my $libRoot = $templateRoot;
sl@0	1692	$libRoot =~ /(.)internal./;
sl@0	1693	$libRoot = $1;
sl@0	1694
sl@0	1695	my @list = (
sl@0	1696	["libcrypt", "tlibcrypt", "group/Test_Data.dat"],
sl@0	1697	["libc", "tnetdb", "data/services.txt"],
sl@0	1698	["libc", "tstring", "data/locales.txt"],
sl@0	1699	["libc", "libc_loc_blr", "data/locales.txt"],
sl@0	1700	["libz", "tzlib", "data/."],
sl@0	1701	["libc", "tlink", "data/."],
sl@0	1702	["libc", "tmmap", "data/."],
sl@0	1703	);
sl@0	1704
sl@0	1705	my $libname;
sl@0	1706	my $dirname;
sl@0	1707	my $glob;
sl@0	1708	foreach my $ref(@list)
sl@0	1709	{
sl@0	1710	my @inarr = @$ref;
sl@0	1711	($libname, $dirname, $glob) = @inarr;
sl@0	1712	my $modulename = StripModulePrefix($dirname);
sl@0	1713	my $src = "$libRoot/$libname/internal/testapps/$dirname/$glob";
sl@0	1714	my $dst = $ATSRoot."\\components\\$libname"."_"."$modulename\\General\\";
sl@0	1715	if($dirname eq "libc_loc_blr")
sl@0	1716	{
sl@0	1717	$src = "$libRoot/libc/src/locales.txt";
sl@0	1718	}
sl@0	1719	my @filesFound = glob($src);
sl@0	1720	if(scalar @filesFound == 0)
sl@0	1721	{
sl@0	1722	die("DIED: no Dat file found to copy!");
sl@0	1723	}
sl@0	1724	foreach my $file(@filesFound)
sl@0	1725	{
sl@0	1726	copy($file, $dst) \|\| die("DIED: unable to copy $file to $dst");
sl@0	1727	}
sl@0	1728	}#ref processing
sl@0	1729	}#fn
sl@0	1730
sl@0	1731
sl@0	1732	#glib dat file copy
sl@0	1733	sub CopyArbitDatFiles($$)
sl@0	1734	{
sl@0	1735
sl@0	1736	my $libname = shift @_;
sl@0	1737	my $refArr = shift @_;
sl@0	1738	my @list = @$refArr;
sl@0	1739
sl@0	1740
sl@0	1741	my $fname;
sl@0	1742	my $modulename;
sl@0	1743	my $location;
sl@0	1744	my $atsDst;
sl@0	1745	my $targetDst;
sl@0	1746
sl@0	1747	#now copy the files appropriately
sl@0	1748	foreach my $ref(@list)
sl@0	1749	{
sl@0	1750	my @inarr = @$ref;
sl@0	1751	($fname, $modulename, $location, $atsDst, $targetDst) = @inarr;
sl@0	1752	#print "[$fname, $modulename, $location, $atsDst, $targetDst]\n";
sl@0	1753	if($location =~ /(.)\.\.(.)/)
sl@0	1754	{
sl@0	1755	$location = GetPathPrefix().$2;
sl@0	1756	}
sl@0	1757	else
sl@0	1758	{
sl@0	1759	$location = $rootDrive.$location;
sl@0	1760	}
sl@0	1761	my $src = $location.$fname;
sl@0	1762	my $dst = $ATSRoot."\\components\\$libname"."_".$modulename.$atsDst;
sl@0	1763	if($libname eq "")
sl@0	1764	{
sl@0	1765	$dst = $ATSRoot."\\components\\".$modulename.$atsDst;
sl@0	1766	#print "$dst CHANGED!\n"
sl@0	1767	}
sl@0	1768
sl@0	1769	my @filesFound = glob($src);
sl@0	1770	if(scalar @filesFound == 0)
sl@0	1771	{
sl@0	1772	die("DIED: no Dat file $src found to copy!");
sl@0	1773	}
sl@0	1774	foreach my $file(@filesFound)
sl@0	1775	{
sl@0	1776	copy($file, $dst) \|\| die("DIED: unable to copy $file to $dst");
sl@0	1777	}
sl@0	1778
sl@0	1779	if($targetDst ne "")
sl@0	1780	{
sl@0	1781	my @filesToChange = ();
sl@0	1782	if($atsDst =~ "armv5")
sl@0	1783	{
sl@0	1784	#armv5 component file
sl@0	1785	unshift @filesToChange, $libname."_".$modulename."_module_blr_hw_component.xml";
sl@0	1786
sl@0	1787	}
sl@0	1788	elsif($atsDst =~ "winscw")
sl@0	1789	{
sl@0	1790	#winscw component file
sl@0	1791	unshift @filesToChange, $libname."_".$modulename."_module_blr_winsspd_component.xml";
sl@0	1792	}
sl@0	1793	else
sl@0	1794	{
sl@0	1795	#add entry to both xmls
sl@0	1796	unshift @filesToChange, $libname."_".$modulename."_module_blr_hw_component.xml";
sl@0	1797	unshift @filesToChange, $libname."_".$modulename."_module_blr_winsspd_component.xml";
sl@0	1798	}
sl@0	1799	foreach my $file(@filesToChange)
sl@0	1800	{
sl@0	1801	$src = $ATSRoot."/components/".$libname."_"."$modulename/".$file;
sl@0	1802	ModifyXml($src,$libname,$fname,$atsDst,$targetDst);
sl@0	1803	}
sl@0	1804	}#updating the xmls
sl@0	1805
sl@0	1806	}#ref processing
sl@0	1807
sl@0	1808
sl@0	1809	}#fn
sl@0	1810
sl@0	1811	sub ModifyXml($$$$$)
sl@0	1812	{
sl@0	1813	my $filename = shift @_;
sl@0	1814	my $lib = shift @_;
sl@0	1815	my $fname = shift @_;
sl@0	1816	my $atsDst = shift @_;
sl@0	1817	my $targetDst = shift @_;
sl@0	1818
sl@0	1819
sl@0	1820	#printf("Modifying $filename with lib= $lib fname= $fname atsDst = $atsDst targetDst = $targetDst\n");
sl@0	1821
sl@0	1822	# Open input file
sl@0	1823	open (INFILE, $filename ) \|\| die ("Can not find $filename");
sl@0	1824
sl@0	1825	#Open output file
sl@0	1826	my $newOutput = $filename."new";
sl@0	1827	open (OUTFILE, ">".$newOutput ) \|\| die ("Can not open $newOutput");
sl@0	1828
sl@0	1829
sl@0	1830	# Replace text in files
sl@0	1831	while (<INFILE>)
sl@0	1832	{
sl@0	1833	if(/\<stif\>/ \|\| /\<execute\>/)
sl@0	1834	{
sl@0	1835	if(/\<stif\>/)
sl@0	1836	{
sl@0	1837	print OUTFILE "\<stif\>\n";
sl@0	1838	}
sl@0	1839	else
sl@0	1840	{
sl@0	1841	print OUTFILE "\<execute\>\n";
sl@0	1842	}
sl@0	1843	my $type = "data";
sl@0	1844	if($atsDst !~ "General")
sl@0	1845	{
sl@0	1846	$type = "binary";
sl@0	1847	}
sl@0	1848	print OUTFILE <<EObinary;
sl@0	1849
sl@0	1850	<install type=\"$type\">
sl@0	1851	<src>$fname</src>
sl@0	1852	<dst>$targetDst\\$fname</dst>
sl@0	1853	</install>
sl@0	1854	EObinary
sl@0	1855	}#stif or execute tag found
sl@0	1856	else
sl@0	1857	{
sl@0	1858	print OUTFILE $_;
sl@0	1859	}
sl@0	1860	}#while
sl@0	1861	# Close filehandles
sl@0	1862	close (INFILE);
sl@0	1863	close (OUTFILE);
sl@0	1864
sl@0	1865	# Rename result file
sl@0	1866	unlink $filename;
sl@0	1867	rename $newOutput,$filename;
sl@0	1868
sl@0	1869	}#fn
sl@0	1870	sub GenGenModules($)
sl@0	1871	{
sl@0	1872	my $libname = shift @_;
sl@0	1873
sl@0	1874
sl@0	1875	my $src = $ATSRoot."/components/";
sl@0	1876	my @fileList = ();
sl@0	1877	opendir(DIRHANDLE, "$src") \|\| die "Cannot opendir $src";
sl@0	1878	foreach my $name (readdir(DIRHANDLE))
sl@0	1879	{
sl@0	1880	if($name =~ /^$libname/)
sl@0	1881	{
sl@0	1882	if($libname ne "libc" \|\| $name !~ /^libcrypt/)
sl@0	1883	{
sl@0	1884	$name =~ s/^$libname//;
sl@0	1885	$name =~ s/^_//;
sl@0	1886	unshift @fileList, $name;
sl@0	1887	}#excluded libcrypt from libc list
sl@0	1888	}#libname match
sl@0	1889	}#foreach
sl@0	1890	closedir(DIRHANDLE);
sl@0	1891	return @fileList;
sl@0	1892	}
sl@0	1893
sl@0	1894
sl@0	1895	sub GetAllModules()
sl@0	1896	{
sl@0	1897
sl@0	1898	my $src = $ATSRoot."/components/";
sl@0	1899	my @fileList = ();
sl@0	1900	opendir(DIRHANDLE, "$src") \|\| die "Cannot opendir $src";
sl@0	1901	foreach my $name (readdir(DIRHANDLE))
sl@0	1902	{
sl@0	1903	if($name ne "." && $name ne ".." && $name ne "shared")
sl@0	1904	{
sl@0	1905	unshift @fileList, $name;
sl@0	1906	}
sl@0	1907
sl@0	1908	}#foreach
sl@0	1909	closedir(DIRHANDLE);
sl@0	1910	return @fileList;
sl@0	1911	}
sl@0	1912
sl@0	1913
sl@0	1914
sl@0	1915	sub TransformXmls($$)
sl@0	1916	{
sl@0	1917	my $libname = shift @_;
sl@0	1918	my $shared = shift @_;
sl@0	1919	my $target = shift @_;
sl@0	1920	my $module;
sl@0	1921	my $src;
sl@0	1922	my $dst;
sl@0	1923
sl@0	1924	my $armv5 = 0;
sl@0	1925	my $winscw = 0;
sl@0	1926	if($target eq "armv5")
sl@0	1927	{
sl@0	1928	$armv5 = 1;
sl@0	1929	}
sl@0	1930	elsif($target eq "winscw")
sl@0	1931	{
sl@0	1932	$winscw = 1;
sl@0	1933	}
sl@0	1934	else
sl@0	1935	{
sl@0	1936	$armv5 = $do_armv5;
sl@0	1937	$winscw = $do_winscw;
sl@0	1938	}
sl@0	1939
sl@0	1940
sl@0	1941	foreach $module(@generatedModules)
sl@0	1942	{
sl@0	1943	if($armv5 == 1 && $winscw == 1)
sl@0	1944	{
sl@0	1945	$src = $ATSRoot."/components/".$libname."_"."$module/*.xml";
sl@0	1946	}
sl@0	1947	elsif($armv5 == 1)
sl@0	1948	{
sl@0	1949	$src = $ATSRoot."/components/".$libname."_"."$module/*_hw_component.xml";
sl@0	1950	}
sl@0	1951	elsif($winscw == 1)
sl@0	1952	{
sl@0	1953	$src = $ATSRoot."/components/".$libname."_"."$module/*_winsspd_component.xml";
sl@0	1954	}
sl@0	1955	my @fileList = glob($src);
sl@0	1956	foreach my $file(@fileList)
sl@0	1957	{
sl@0	1958	#print"$file to be transformed!\n";
sl@0	1959	AddLibsInXml($libname,$file,$shared);
sl@0	1960	}
sl@0	1961	}
sl@0	1962	}#fn
sl@0	1963
sl@0	1964	sub AddLibsInXml($$$)
sl@0	1965	{
sl@0	1966	my $libname = shift @_;
sl@0	1967	my $filename = shift @_;
sl@0	1968	my $shared = shift @_;
sl@0	1969
sl@0	1970	# Open input file
sl@0	1971	open (INFILE, $filename ) \|\| die ("Can not find $filename");
sl@0	1972
sl@0	1973	#Open output file
sl@0	1974	my $newOutput = $filename."new";
sl@0	1975	open (OUTFILE, ">".$newOutput ) \|\| die ("Can not open $newOutput");
sl@0	1976
sl@0	1977	my $drive = "c:";
sl@0	1978
sl@0	1979	# Replace text in files
sl@0	1980	while (<INFILE>)
sl@0	1981	{
sl@0	1982	if(/\<stif\>/ \|\| /\<execute\>/)
sl@0	1983	{
sl@0	1984	if(/\<stif\>/)
sl@0	1985	{
sl@0	1986	print OUTFILE "\<stif\>\n";
sl@0	1987	}
sl@0	1988	else
sl@0	1989	{
sl@0	1990	print OUTFILE "\<execute\>\n";
sl@0	1991	if($filename =~ /winsspd/)
sl@0	1992	{
sl@0	1993	$drive = "z:";
sl@0	1994	}
sl@0	1995	}
sl@0	1996	foreach my $installable(@dllList)
sl@0	1997	{
sl@0	1998	print OUTFILE <<EOLine;
sl@0	1999
sl@0	2000	<install type=\"$shared binary\">
sl@0	2001	<src>$installable</src>
sl@0	2002	<dst>$drive\\sys\\bin\\$installable</dst>
sl@0	2003	</install>
sl@0	2004	EOLine
sl@0	2005	}
sl@0	2006
sl@0	2007	}
sl@0	2008	else
sl@0	2009	{
sl@0	2010	print OUTFILE $_;
sl@0	2011	}
sl@0	2012	}#while
sl@0	2013	# Close filehandles
sl@0	2014	close (INFILE);
sl@0	2015	close (OUTFILE);
sl@0	2016
sl@0	2017	# Rename result file
sl@0	2018	unlink $filename;
sl@0	2019	rename $newOutput,$filename;
sl@0	2020	}
sl@0	2021
sl@0	2022	sub CopySharedDlls()
sl@0	2023	{
sl@0	2024	my $libname = shift @_;
sl@0	2025	my $ref = shift @_;
sl@0	2026	my @ListOfDlls = @$ref;
sl@0	2027	my $target = shift @_;
sl@0	2028	my $module;
sl@0	2029	my $src;
sl@0	2030	my $dst;
sl@0	2031
sl@0	2032	my $do_armv5 = 0;
sl@0	2033	my $do_winscw = 0;
sl@0	2034	if($target eq "armv5")
sl@0	2035	{
sl@0	2036	$do_armv5 = 1;
sl@0	2037	}
sl@0	2038	elsif($target eq "winscw")
sl@0	2039	{
sl@0	2040	$do_winscw = 1;
sl@0	2041	}
sl@0	2042	else
sl@0	2043	{
sl@0	2044	$do_armv5 = 1;
sl@0	2045	$do_winscw = 1;
sl@0	2046	}
sl@0	2047
sl@0	2048
sl@0	2049	mkdir $ATSRoot."\\components\\shared" \|\| die("Wouldn't make shared folder in $ATSRoot\\components");
sl@0	2050	if($do_winscw == 1)
sl@0	2051	{
sl@0	2052	mkdir $ATSRoot."\\components\\shared\\winscw_udeb" \|\| die("Wouldn't make shared folder in $ATSRoot\\components\winscw_udeb");
sl@0	2053	}
sl@0	2054	if($do_armv5 == 1)
sl@0	2055	{
sl@0	2056	mkdir $ATSRoot."\\components\\shared\\armv5_urel" \|\| die("Wouldn't make shared folder in $ATSRoot\\components\armv5_urel");
sl@0	2057	}
sl@0	2058
sl@0	2059	foreach my $copyDll(@ListOfDlls)
sl@0	2060	{
sl@0	2061	if($do_winscw == 1)
sl@0	2062	{
sl@0	2063	$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;
sl@0	2064	$dst = $ATSRoot."\\components\\shared";
sl@0	2065	$dst = $dst."\\winscw_udeb\\";
sl@0	2066	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	2067	}
sl@0	2068	if($do_armv5 == 1)
sl@0	2069	{
sl@0	2070	$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;
sl@0	2071	$dst = $ATSRoot."\\components\\shared";
sl@0	2072	$dst = $dst."\\armv5_urel\\";
sl@0	2073	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	2074	}
sl@0	2075	}#foreach
sl@0	2076	}#fn
sl@0	2077
sl@0	2078
sl@0	2079	sub CopyMultiDlls($)
sl@0	2080	{
sl@0	2081	my $libname = shift @_;
sl@0	2082	my $module;
sl@0	2083	my $src;
sl@0	2084	my $dst;
sl@0	2085	foreach my $listed(@generatedModules)
sl@0	2086	{
sl@0	2087	foreach my $copyDll(@dllList)
sl@0	2088	{
sl@0	2089	if($do_winscw == 1)
sl@0	2090	{
sl@0	2091	$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;
sl@0	2092	$dst = $ATSRoot."\\components\\$libname"."_$listed";
sl@0	2093	$dst = $dst."\\winscw_udeb\\";
sl@0	2094	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	2095	}
sl@0	2096	if($do_armv5 == 1)
sl@0	2097	{
sl@0	2098	$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;
sl@0	2099	$dst = $ATSRoot."\\components\\$libname"."_$listed";
sl@0	2100	$dst = $dst."\\armv5_urel\\";
sl@0	2101	copy($src, $dst) \|\| warn("unable to copy $src to $dst");
sl@0	2102	}
sl@0	2103	}#foreach
sl@0	2104	}
sl@0	2105	}#fn
sl@0	2106
sl@0	2107	sub StripModulePrefix($)
sl@0	2108	{
sl@0	2109	my $listed = pop @_;
sl@0	2110	my $module = $listed;
sl@0	2111	if($dontStrip == 0)
sl@0	2112	{
sl@0	2113	$module =~ s/^test//;
sl@0	2114	$module =~ s/^t//;
sl@0	2115	$module =~ s/^libc_//;
sl@0	2116	$module =~ s/^libm_//;
sl@0	2117	}
sl@0	2118	return $module;
sl@0	2119
sl@0	2120	}
sl@0	2121
sl@0	2122	sub GetLsbModules()
sl@0	2123	{
sl@0	2124	my @lsbList =
sl@0	2125	(
sl@0	2126	"abs",
sl@0	2127	"acos",
sl@0	2128	"asctime",
sl@0	2129	"asin",
sl@0	2130	"atan",
sl@0	2131	"atan2",
sl@0	2132	"atof",
sl@0	2133	"atoi",
sl@0	2134	"atol",
sl@0	2135	"bsearch",
sl@0	2136	"calloc",
sl@0	2137	"ceil",
sl@0	2138	"chdir",
sl@0	2139	"clearerr",
sl@0	2140	"close",
sl@0	2141	"closedir",
sl@0	2142	"cos",
sl@0	2143	"cosh",
sl@0	2144	"creat",
sl@0	2145	"lsb_ctime",
sl@0	2146	"lsb_difftime",
sl@0	2147	"dlclose",
sl@0	2148	"dlerror",
sl@0	2149	"dlopen",
sl@0	2150	"dup",
sl@0	2151	"dup2",
sl@0	2152	"exp",
sl@0	2153	"fabs",
sl@0	2154	"fclose",
sl@0	2155	"fcntl_x",
sl@0	2156	"fdopen",
sl@0	2157	"feof",
sl@0	2158	"ferror",
sl@0	2159	"fflush",
sl@0	2160	"fgetpos",
sl@0	2161	"fgets",
sl@0	2162	"fileno",
sl@0	2163	"floor",
sl@0	2164	"fmod",
sl@0	2165	"fopen",
sl@0	2166	"fopen_X",
sl@0	2167	"fprintf",
sl@0	2168	"fputs",
sl@0	2169	"fread",
sl@0	2170	"free",
sl@0	2171	"freopen",
sl@0	2172	"freopen_X",
sl@0	2173	"frexp",
sl@0	2174	"fseek",
sl@0	2175	"fsetpos",
sl@0	2176	"fstat",
sl@0	2177	"ftell",
sl@0	2178	"ftok",
sl@0	2179	"ftok_l",
sl@0	2180	"fwrite",
sl@0	2181	"getc",
sl@0	2182	"getcwd",
sl@0	2183	"gets",
sl@0	2184	"lsb_gmtime",
sl@0	2185	"ldexp",
sl@0	2186	"link",
sl@0	2187	"lsb_localtime",
sl@0	2188	"log",
sl@0	2189	"log10",
sl@0	2190	"longjmp",
sl@0	2191	"lseek",
sl@0	2192	"malloc",
sl@0	2193	"memchr_X",
sl@0	2194	"memcmp_X",
sl@0	2195	"memcpy_X",
sl@0	2196	"memmove",
sl@0	2197	"memset_X",
sl@0	2198	"mkdir",
sl@0	2199	"mkfifo",
sl@0	2200	"lsb_mktime",
sl@0	2201	"modf",
sl@0	2202	"msgctl",
sl@0	2203	"msgget",
sl@0	2204	"msgsnd",
sl@0	2205	"open",
sl@0	2206	"opendir",
sl@0	2207	"open_x",
sl@0	2208	"perror",
sl@0	2209	"pipe",
sl@0	2210	"pow",
sl@0	2211	"printf",
sl@0	2212	"qsort",
sl@0	2213	"rand",
sl@0	2214	"read",
sl@0	2215	"readdir",
sl@0	2216	"readv_l",
sl@0	2217	"realloc",
sl@0	2218	"remove",
sl@0	2219	"rename",
sl@0	2220	"rewind",
sl@0	2221	"rewinddir",
sl@0	2222	"rmdir",
sl@0	2223	"scanf",
sl@0	2224	"scanf_X",
sl@0	2225	"seekdir",
sl@0	2226	"semctl",
sl@0	2227	"semget",
sl@0	2228	"semop",
sl@0	2229	"setbuf",
sl@0	2230	"setjmp",
sl@0	2231	"shmat",
sl@0	2232	"shmdt",
sl@0	2233	"shmget",
sl@0	2234	"sin",
sl@0	2235	"sinh",
sl@0	2236	"sqrt",
sl@0	2237	"srand",
sl@0	2238	"stat",
sl@0	2239	"strcat",
sl@0	2240	"strchr",
sl@0	2241	"strcmp",
sl@0	2242	"strcoll_X",
sl@0	2243	"strcpy",
sl@0	2244	"strcspn",
sl@0	2245	"strerror_X",
sl@0	2246	"strftime",
sl@0	2247	"strftime_X",
sl@0	2248	"strlen",
sl@0	2249	"strncat",
sl@0	2250	"strncmp",
sl@0	2251	"strncpy",
sl@0	2252	"strpbrk",
sl@0	2253	"strptime",
sl@0	2254	"strrchr",
sl@0	2255	"strspn",
sl@0	2256	"strstr",
sl@0	2257	"strtod_X",
sl@0	2258	"strtok",
sl@0	2259	"strtol_X",
sl@0	2260	"strxfrm_X",
sl@0	2261	"tan",
sl@0	2262	"tanh",
sl@0	2263	"telldir",
sl@0	2264	"telldir_l",
sl@0	2265	"lsb_time",
sl@0	2266	"tmpfile",
sl@0	2267	"tmpnam",
sl@0	2268	"ungetc",
sl@0	2269	"unlink",
sl@0	2270	"utime",
sl@0	2271	"vfprintf",
sl@0	2272	"vprintf",
sl@0	2273	"write",
sl@0	2274	"writev_l",
sl@0	2275
sl@0	2276	);
sl@0	2277	return @lsbList;
sl@0	2278	}
sl@0	2279
sl@0	2280
sl@0	2281
sl@0	2282	sub GenBackendTest()
sl@0	2283	{
sl@0	2284
sl@0	2285	my @datList =
sl@0	2286	(
sl@0	2287	["libc", "tlibcbackend"],
sl@0	2288	);
sl@0	2289
sl@0	2290	mkdir $ATSRoot;
sl@0	2291	mkdir $ATSRoot."\\components" \|\| die ("DIED: unable to create component dir");
sl@0	2292
sl@0	2293	my $lib;
sl@0	2294	my $module;
sl@0	2295	my $ext;
sl@0	2296	foreach my $ref(@datList)
sl@0	2297	{
sl@0	2298	my @inarr = @$ref;
sl@0	2299	($lib, $module,$ext) = @inarr;
sl@0	2300	@generatedModules = ($module);
sl@0	2301	GenDirs($lib);
sl@0	2302	CopyDlls($lib,".dll");
sl@0	2303	}
sl@0	2304	#now copy xmls
sl@0	2305	CopyAtsSetup();
sl@0	2306	#extra exes
sl@0	2307	@generatedModules = ("tlibcbackend");
sl@0	2308	CopyDeps("libc","TPopenReadChild.exe");
sl@0	2309	CopyDeps("libc","TPopenWriteChild.exe");
sl@0	2310
sl@0	2311	}#fn
sl@0	2312
sl@0	2313	sub CopyAtsSetup()
sl@0	2314	{
sl@0	2315	my $libname = "libc";
sl@0	2316	my @list = (
sl@0	2317	["*.xml", "libcbackend", "/../backend/internal/tlibcbackend/group/","/", ""],
sl@0	2318	["*.cfg", "libcbackend", "/../backend/internal/tlibcbackend/group/","/General/", ""],
sl@0	2319	["*.ini", "libcbackend", "/../backend/internal/tlibcbackend/group/","/General/", ""],
sl@0	2320	);
sl@0	2321
sl@0	2322	my $bDataRef = \@list;
sl@0	2323	CopyArbitDatFiles("libc",$bDataRef);
sl@0	2324
sl@0	2325	}#fn
sl@0	2326	sub GetPathPrefix()
sl@0	2327	{
sl@0	2328	my $srcPrefix = $templateRoot;
sl@0	2329	$srcPrefix =~ /(.)tsrc./;
sl@0	2330	$srcPrefix = $1;
sl@0	2331	return $srcPrefix;
sl@0	2332	}
sl@0	2333
sl@0	2334
sl@0	2335	#dat file copy
sl@0	2336	sub CopyCryptoDat()
sl@0	2337	{
sl@0	2338	my $libRoot = $templateRoot;
sl@0	2339	$libRoot =~ /(.)internal./;
sl@0	2340	$libRoot = $1;
sl@0	2341
sl@0	2342	my @list = (
sl@0	2343	["libssl", "ssltest", "/tsrc/ssl_test/data/*"],
sl@0	2344	["libcrypto", "topenssl", "/tsrc/topenssl/data/*"],
sl@0	2345	);
sl@0	2346
sl@0	2347	my $libname;
sl@0	2348	my $dirname;
sl@0	2349	my $glob;
sl@0	2350	foreach my $ref(@list)
sl@0	2351	{
sl@0	2352	my @inarr = @$ref;
sl@0	2353	($libname, $dirname, $glob) = @inarr;
sl@0	2354	my $modulename = StripModulePrefix($dirname);
sl@0	2355	my $srcPrefix = GetPathPrefix();
sl@0	2356
sl@0	2357	my $src = "$srcPrefix"."$glob";
sl@0	2358
sl@0	2359	my $dst = $ATSRoot."\\components\\$libname"."_"."$modulename\\General\\";
sl@0	2360	my @filesFound = glob($src);
sl@0	2361	if(scalar @filesFound == 0)
sl@0	2362	{
sl@0	2363	die("DIED: no Dat file found to copy!");
sl@0	2364	}
sl@0	2365	foreach my $file(@filesFound)
sl@0	2366	{
sl@0	2367	copy($file, $dst) \|\| die("DIED: unable to copy $file to $dst");
sl@0	2368	}
sl@0	2369	}#ref processing
sl@0	2370	}#fn
sl@0	2371
sl@0	2372	#Crypto xmls copy
sl@0	2373	sub CopyCryptoXmls()
sl@0	2374	{
sl@0	2375	my @list = (
sl@0	2376	["*.xml", "libssl_ssltest/", "/tsrc/ssl_test/group/"],
sl@0	2377	["*.xml", "libcrypto_crypto_test/", "/tsrc/crypto_test/group/"],
sl@0	2378	["*.xml", "libcrypto_openssl/", "/tsrc/topenssl/group/"],
sl@0	2379	);
sl@0	2380
sl@0	2381
sl@0	2382	my $fname;
sl@0	2383	my $moduleDst;
sl@0	2384	my $location;
sl@0	2385
sl@0	2386	#now copy the files appropriately
sl@0	2387	foreach my $ref(@list)
sl@0	2388	{
sl@0	2389	my @inarr = @$ref;
sl@0	2390	($fname, $moduleDst, $location) = @inarr;
sl@0	2391	my $src = GetPathPrefix().$location.$fname;
sl@0	2392	my $dst = $ATSRoot."\\components\\$moduleDst";
sl@0	2393
sl@0	2394	my @filesFound = glob($src);
sl@0	2395	if(scalar @filesFound == 0)
sl@0	2396	{
sl@0	2397	die("DIED: no xml file found to copy!");
sl@0	2398	}
sl@0	2399	foreach my $file(@filesFound)
sl@0	2400	{
sl@0	2401	copy($file, $dst) \|\| die("DIED: unable to copy $file to $dst");
sl@0	2402	}
sl@0	2403	}#ref
sl@0	2404
sl@0	2405	my @crypto_copyList = (".txt", "cfg", "*.ini");
sl@0	2406
sl@0	2407	foreach my $item(@crypto_copyList)
sl@0	2408	{
sl@0	2409	$location = "/libcrypto/internal/testapps/crypto_test/group/";
sl@0	2410	$fname = GetPathPrefix().$location.$item;
sl@0	2411	my @filesFound = glob($fname);
sl@0	2412	foreach my $file(@filesFound)
sl@0	2413	{
sl@0	2414	$moduleDst = "libcrypto_crypto_test/";
sl@0	2415	my $dst = $ATSRoot."\\components\\".$moduleDst."/General/";
sl@0	2416	copy($file, $dst);
sl@0	2417	}
sl@0	2418	}
sl@0	2419	}#fn
sl@0	2420
sl@0	2421	sub GenCryptoTest()
sl@0	2422	{
sl@0	2423
sl@0	2424	my @datList =
sl@0	2425	(
sl@0	2426	["libssl", "ssltest", ".exe"],
sl@0	2427	["libcrypto", "crypto_test",".dll"],
sl@0	2428	["libcrypto", "openssl",".exe"],
sl@0	2429	);
sl@0	2430
sl@0	2431	mkdir $ATSRoot;
sl@0	2432	mkdir $ATSRoot."\\components" \|\| die ("DIED: unable to create component dir");
sl@0	2433
sl@0	2434	my $lib;
sl@0	2435	my $module;
sl@0	2436	my $ext;
sl@0	2437	foreach my $ref(@datList)
sl@0	2438	{
sl@0	2439	my @inarr = @$ref;
sl@0	2440	($lib, $module,$ext) = @inarr;
sl@0	2441	@generatedModules = ($module);
sl@0	2442	GenDirs($lib);
sl@0	2443	CopyDlls($lib,$ext);
sl@0	2444	}
sl@0	2445	CopyCryptoDat();
sl@0	2446	CopyCryptoXmls();
sl@0	2447
sl@0	2448
sl@0	2449	}#fn
sl@0	2450
sl@0	2451
sl@0	2452	#ngi xml copy
sl@0	2453	sub CopyNgiXmls()
sl@0	2454	{
sl@0	2455	my @list = (
sl@0	2456	["*.xml", "ngi_sa_amrrecording", "/audio/lowlevelaudio/internal/sa_amrrecording/group/"],
sl@0	2457	["*.xml", "ngi_sa_highlevelaudio", "/audio/highlevelaudio/internal/sa_highlevelaudio/group/"],
sl@0	2458	["*.xml", "ngi_sa_audiomixing", "/audio/lowlevelaudio/internal/sa_audiomixing/group/"],
sl@0	2459	["*.xml", "ngi_sa_audiorecording", "/audio/lowlevelaudio/internal/sa_audiorecording/group/"],
sl@0	2460	["*.xml", "ngi_sa_clip", "/audio/lowlevelaudio/internal/sa_clip/group/"],
sl@0	2461	["*.xml", "ngi_sa_lowlevelaudio", "/audio/lowlevelaudio/internal/sa_lowlevelaudio/group/"],
sl@0	2462	["*.xml", "ngi_sa_stream", "/audio/lowlevelaudio/internal/sa_stream/group/"],
sl@0	2463
sl@0	2464	["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_antitearing/group/"],
sl@0	2465	["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_colortranslation/group/"],
sl@0	2466	["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_createfb565/group/"],
sl@0	2467	["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_createfb888/group/"],
sl@0	2468	["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_heapusage/group/"],
sl@0	2469	["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_multibb/group/"],
sl@0	2470	["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_performance/group/"],
sl@0	2471	["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_plswitching/group/"],
sl@0	2472	["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_misc/group/"],
sl@0	2473	["*.xml", "ngi_sa_bitmap", "/graphics/bitmap/internal/sa_bitmap/group/"],
sl@0	2474	["*.xml", "ngi_sa_camera", "/graphics/camera/internal/sa_camera/group/"],
sl@0	2475	["*.xml", "ngi_sa_images", "/graphics/images/internal/sa_images/group/"],
sl@0	2476	["*.xml", "ngi_sa_display", "/graphics/display/internal/sa_display/group/"],
sl@0	2477	["*.xml", "ngi_sa_lights", "/graphics/lights/internal/sa_lights/group/"],
sl@0	2478	["*.xml", "ngi_sa_videoplayback", "/graphics/video/internal/sa_videoplayback/group/"],
sl@0	2479
sl@0	2480	["*.xml", "ngi_sa_input", "/input/input/internal/sa_input/group/"],
sl@0	2481	["*.xml", "ngi_sa_textinput", "/input/textinput/internal/sa_textinput/group/"],
sl@0	2482	["*.xml", "ngi_sa_devicecapabilities", "/system/devicecapabilities/internal/sa_devicecapabilities/group/"],
sl@0	2483	["*.xml", "ngi_sa_devicestatus", "/system/devicestatus/internal/sa_phone/group/"],
sl@0	2484	["*.xml", "ngi_sa_runtimetester", "/system/runtime/internal/sa_runtimetester/group/"],
sl@0	2485	["*.xml", "ngi_sa_timing", "/timing/internal/sa_timing/group/"],
sl@0	2486	);
sl@0	2487
sl@0	2488
sl@0	2489	my $fname;
sl@0	2490	my $moduleDst;
sl@0	2491	my $location;
sl@0	2492
sl@0	2493	#now copy the files appropriately
sl@0	2494	foreach my $ref(@list)
sl@0	2495	{
sl@0	2496	my @inarr = @$ref;
sl@0	2497	($fname, $moduleDst, $location) = @inarr;
sl@0	2498	my $src = GetPathPrefix().$location.$fname;
sl@0	2499	my $dst = $ATSRoot."\\components\\$moduleDst";
sl@0	2500
sl@0	2501	#print "My src is $src\n";
sl@0	2502	#print "My dst is $dst\n";
sl@0	2503
sl@0	2504	my @filesFound = glob($src);
sl@0	2505	if(scalar @filesFound == 0)
sl@0	2506	{
sl@0	2507	warn("warning: no xml file found to copy from $src!");
sl@0	2508	}
sl@0	2509	foreach my $file(@filesFound)
sl@0	2510	{
sl@0	2511	copy($file, $dst) \|\| die("DIED: unable to copy $file to $dst");
sl@0	2512	}
sl@0	2513	}#ref
sl@0	2514
sl@0	2515	}#fn
sl@0	2516
sl@0	2517
sl@0	2518	sub GenNgiTest()
sl@0	2519	{
sl@0	2520
sl@0	2521	my @datList =
sl@0	2522	(
sl@0	2523	["ngi", "sa_amrrecording", ".dll"],
sl@0	2524	["ngi", "sa_highlevelaudio", ".dll"],
sl@0	2525	["ngi", "sa_audiomixing", ".dll"],
sl@0	2526	["ngi", "sa_audiorecording", ".dll"],
sl@0	2527	["ngi", "sa_clip", ".dll"],
sl@0	2528	["ngi", "sa_lowlevelaudio", ".dll"],
sl@0	2529	["ngi", "sa_stream", ".dll"],
sl@0	2530	["ngi", "sa_bitmap", ".dll"],
sl@0	2531	["ngi", "sa_camera", ".dll"],
sl@0	2532	["ngi", "sa_images", ".dll"],
sl@0	2533	["ngi", "sa_display", ".dll"],
sl@0	2534	["ngi", "sa_lights", ".dll"],
sl@0	2535	["ngi", "sa_videoplayback", ".dll"],
sl@0	2536	["ngi", "sa_input", ".dll"],
sl@0	2537	["ngi", "sa_textinput", ".dll"],
sl@0	2538	["ngi", "sa_devicecapabilities", ".dll"],
sl@0	2539	["ngi", "sa_devicestatus", ".dll"],
sl@0	2540	["ngi", "sa_runtimetester", ".dll"],
sl@0	2541	["ngi", "sa_timing", ".dll"],
sl@0	2542
sl@0	2543	);
sl@0	2544
sl@0	2545	mkdir $ATSRoot;
sl@0	2546	mkdir $ATSRoot."\\components" \|\| die ("DIED: unable to create component dir");
sl@0	2547
sl@0	2548
sl@0	2549	my $lib;
sl@0	2550	my $module;
sl@0	2551	my $ext;
sl@0	2552	foreach my $ref(@datList)
sl@0	2553	{
sl@0	2554	my @inarr = @$ref;
sl@0	2555	($lib, $module,$ext) = @inarr;
sl@0	2556	@generatedModules = ($module);
sl@0	2557	GenDirs($lib);
sl@0	2558	CopyDlls($lib,$ext);
sl@0	2559	}
sl@0	2560
sl@0	2561	@generatedModules =("sa_backbuffer");
sl@0	2562	GenDirs($lib);
sl@0	2563	@dllList =
sl@0	2564	(
sl@0	2565	"sa_bb_antitearing.dll",
sl@0	2566	"sa_bb_colortranslation.dll",
sl@0	2567	"sa_bb_createfb444.dll",
sl@0	2568	"sa_bb_createfb565.dll",
sl@0	2569	"sa_bb_createfb888.dll",
sl@0	2570	"sa_bb_misc.dll",
sl@0	2571	"sa_bb_heapusage.dll",
sl@0	2572	"sa_bb_multibb.dll",
sl@0	2573	"sa_bb_performance.dll",
sl@0	2574	"sa_bb_plswitch.dll",
sl@0	2575	"sa_bb_testenv.dll"
sl@0	2576	);
sl@0	2577	CopyMultiDlls("ngi");
sl@0	2578
sl@0	2579
sl@0	2580	mkdir $ATSRoot."\\components\\shared" \|\| die("Wouldn't make shared folder in $ATSRoot\\components");
sl@0	2581	mkdir $ATSRoot."\\components\\shared\\winscw_udeb" \|\| die("Wouldn't make shared folder in $ATSRoot\\components\winscw_udeb");
sl@0	2582	mkdir $ATSRoot."\\components\\shared\\armv5_urel" \|\| die("Wouldn't make shared folder in $ATSRoot\\components\armv5_urel");
sl@0	2583
sl@0	2584	}#fn
sl@0	2585
sl@0	2586
sl@0	2587	sub GetXmls()
sl@0	2588	{
sl@0	2589	my @foundList;
sl@0	2590	my $libname = shift @_;
sl@0	2591	my @globlist = ();
sl@0	2592	if($target eq "winsspd" && $sdkversion ne "")
sl@0	2593	{
sl@0	2594	@globlist = ("winsspd_".$sdkversion);
sl@0	2595	#print "winsspd ".$sdkversion." selected\n";
sl@0	2596	}
sl@0	2597	elsif($target eq "winsspd")
sl@0	2598	{
sl@0	2599	@globlist = ("winsspd");
sl@0	2600	#print "winsspd selected\n";
sl@0	2601	}
sl@0	2602	elsif($sdkversion ne "")
sl@0	2603	{
sl@0	2604	@globlist = ($target,"hw_".$sdkversion);
sl@0	2605	#print "$target $sdkversion selected\n";
sl@0	2606	}
sl@0	2607	else
sl@0	2608	{
sl@0	2609	@globlist = ($target,"hw");
sl@0	2610	#print "$target $sdkversion selected\n";
sl@0	2611	}
sl@0	2612
sl@0	2613	foreach my $module(@generatedModules)
sl@0	2614	{
sl@0	2615	my $glob_to_use = "";
sl@0	2616	my @fileList;
sl@0	2617	foreach my $glob(@globlist)
sl@0	2618	{
sl@0	2619	my $src = $ATSRoot."/components/".$libname."_"."$module/*.xml";
sl@0	2620	#print "Analysing $module and $glob\n";
sl@0	2621	@fileList = glob($src);
sl@0	2622	foreach my $file(@fileList)
sl@0	2623	{
sl@0	2624	my $pat = $glob."\_component\.xml";
sl@0	2625	#print "[$file - $glob"."_component.xml"."]\n";
sl@0	2626	if($file =~ /$pat/)
sl@0	2627	{
sl@0	2628	$glob_to_use = $pat;
sl@0	2629	#print "[$file - $glob"."_component.xml"."]\n";
sl@0	2630	last
sl@0	2631	}
sl@0	2632	}#foreach FILE
sl@0	2633	if($glob_to_use ne "")
sl@0	2634	{
sl@0	2635	last;
sl@0	2636	}
sl@0	2637	}#finding glob
sl@0	2638	if($glob_to_use ne "")
sl@0	2639	{
sl@0	2640	#print "Using the glob $glob_to_use\n";
sl@0	2641	my $src = $ATSRoot."/components/".$libname."_"."$module/*.xml";
sl@0	2642	@fileList = glob($src);
sl@0	2643	foreach my $file(@fileList)
sl@0	2644	{
sl@0	2645	#print "[$file - $glob_to_use]\n";
sl@0	2646	if($file =~ /$glob_to_use/)
sl@0	2647	{
sl@0	2648	$file =~ /.components[\\\/](.)/;
sl@0	2649	my $value = $1;
sl@0	2650	$value =~ s/\//\\/g;
sl@0	2651	#print "adding $value for $module with $glob_to_use\n";
sl@0	2652	unshift @foundList,$value;
sl@0	2653	}#if
sl@0	2654	}#foreach
sl@0	2655	}#glob is present
sl@0	2656	else
sl@0	2657	{
sl@0	2658	warn("Unable to figure out glob to use for $module. Skipping...\n");
sl@0	2659	}
sl@0	2660	}#each module
sl@0	2661	return @foundList;
sl@0	2662	}#fn
sl@0	2663
sl@0	2664	__END__
sl@0	2665	:end
sl@0	2666
sl@0	2667
sl@0	2668
sl@0	2669

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