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

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