Symaptic: os/ossrv/stdcpp/tsrc/stdcpp_genatsmodules.bat@260cb5ec6c19 (annotated)

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

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