sl@0: @rem
sl@0: @rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: @rem All rights reserved.
sl@0: @rem This component and the accompanying materials are made available
sl@0: @rem under the terms of "Eclipse Public License v1.0"
sl@0: @rem which accompanies this distribution, and is available
sl@0: @rem at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: @rem
sl@0: @rem Initial Contributors:
sl@0: @rem Nokia Corporation - initial contribution.
sl@0: @rem
sl@0: @rem Contributors:
sl@0: @rem
sl@0: @rem Description: 
sl@0: @rem
sl@0: 
sl@0: 
sl@0: @perl -x boost_GenATSModules.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 
sl@0: @goto end
sl@0: 
sl@0: #!perl
sl@0: use strict;
sl@0: use File::Find;
sl@0: use File::Copy;
sl@0: use Cwd;
sl@0: use File::Basename;
sl@0: 
sl@0: 
sl@0: my $target = "winsspd";
sl@0: my $suite;
sl@0: my $install = "no";
sl@0: my $session = "no";
sl@0: my $combinedSession = "no";
sl@0: my $sdkversion="";
sl@0: my $noXmlsGenList = "play_new";
sl@0: my @AllModuleList = ();
sl@0: 
sl@0: my %DirHash;
sl@0: 
sl@0: my $sendEmail = "no";
sl@0: my $rootDrive = substr(getcwd(), 0,2);
sl@0: my $templateRoot = getcwd();
sl@0: my	$ATSRoot = getcwd()."\\ATSINPUT";
sl@0: 
sl@0: if($ENV{'ATS_SETUP'}  ne "")
sl@0: {
sl@0:  $sendEmail = "yes";
sl@0:  $rootDrive = $ENV{'ATS_INDRIVE'};
sl@0:  $templateRoot = $ENV{'ATS_TEMPLATEROOT'};
sl@0:  $ATSRoot = $ENV{'ATS_ATSOUTDRIVE'};
sl@0: }
sl@0: 
sl@0: 
sl@0: if(scalar @ARGV ==0 || $ARGV[0] =~ /[\-\\\/][h\?]/ || $ARGV[0] =~ /help/ )
sl@0: {
sl@0: 	print <<EOHelp;
sl@0: genatsmodules.bat - hardcoded script to generate ATSINPUT folders for mobileruntime and ngi projects	
sl@0: Usage:
sl@0: 	genatsmodules.bat
sl@0: 		Create ATSINPUT for the default testsuite based on 
sl@0: 		location it is executed from place in stdlibs/internal 
sl@0: 		and run and it generates ATSINPUT for stdlibs
sl@0: 		similiarly place it in ssl/internal or glib/internal or 
sl@0:     ngi/internal and run to generate  ATSINPUT for ssl, glib  
sl@0:     and ngi respectively	
sl@0:   
sl@0:   genatsmodules [libname]
sl@0: 			where libname can be stdlibs, ssl, glib, etc. Creates 
sl@0: 			ats test drop for given library. Valid from any internal
sl@0: 			folder of mobileruntime.
sl@0: 			
sl@0:   
sl@0:   genatsmodules ngi
sl@0: 			create ngi testsuite. Valid inside ngi/internal only
sl@0: 			
sl@0: genatsmodules play_new
sl@0: 			create play_new testsuite. Valid inside play_new/internal only
sl@0: 				
sl@0: 	
sl@0:       
sl@0: 	genatsmodules ltp
sl@0: 			create ltp testsuite. Valid inside stdlibs/internal only
sl@0: 	
sl@0: 	genatsmodules lsb
sl@0: 			create lsb testsuite. Valid inside stdlibs/internal only
sl@0: 			
sl@0: 	genatsmodules stdcpp
sl@0: 			create stdcpp testsuite. Valid inside stdcpp/internal only
sl@0: 			
sl@0: 	genatsmodules [libname] install 
sl@0: 		 where libname can be stdlibs, ssl, glib, ltp, lsb to create a 
sl@0: 		 ATSINPUT where the dependent mobileruntime libraries are also 
sl@0: 		 copied and used (It copies the dependent libraries using the 
sl@0: 		 ATS component files)
sl@0: 		
sl@0: 	genatsmodules session [libname] [target] 		
sl@0: 		where libname is any of the standard libs as shown above and 
sl@0: 		target can be winsspd, winscw, scarfe, zeus etc. to create 
sl@0: 		session files for scarfe, winsspd etc. 
sl@0: 		
sl@0: genatsmodules session combined [target] 				
sl@0:       will look at the existing ATSINPUT(which can have any 
sl@0:       combination of created components and create a combined 
sl@0:       session file. This way you get increased flexibility in 
sl@0:       the libraries you choose to combine into a single session 
sl@0:       file. If the target is a hardware target(that is not winsspd
sl@0:       or winscw), the script will first attempt to find a target 
sl@0:       specific component file and if not found, the generic hw 
sl@0:       component file. 
sl@0: 	
sl@0: 
sl@0: 	Note:
sl@0: 	ATSINPUT creation is a 2 stage process. First we create 
sl@0: 	the components and then we run (for example) 
sl@0: 	"genatsmodules session stdlibs winscw" and 
sl@0: 	"genatsmodules session stdlibs scarfe" to create the 
sl@0: 	session files.
sl@0: EOHelp
sl@0: 		exit();
sl@0: }
sl@0: my $do_armv5 = 1;
sl@0: my $do_winscw = 1;
sl@0: 
sl@0: if(scalar @ARGV == 1)
sl@0: {
sl@0: 	if($ARGV[0] eq "session")
sl@0: 	{
sl@0: 		die("parameter session must be followed by libname and target platform");
sl@0: 	}
sl@0: 	else
sl@0: 	{
sl@0: 		$suite = $ARGV[0];
sl@0: 	}
sl@0: }
sl@0: elsif(scalar @ARGV == 2)
sl@0: {
sl@0: 	if($ARGV[0] eq  "session")
sl@0: 	{
sl@0: 		die("parameter session must be followed by libname and target platform");
sl@0: 	}
sl@0: 	elsif($ARGV[1] eq "install")
sl@0: 	{
sl@0: 		$suite = $ARGV[0];
sl@0: 		$install = "yes";
sl@0: 	}
sl@0: 	elsif($ARGV[1] eq "armv5")
sl@0: 	{
sl@0: 		$do_winscw = 0;
sl@0: 	}
sl@0: 	elsif($ARGV[1] eq "winscw")
sl@0: 	{
sl@0: 		$do_armv5 = 0; 
sl@0: 	}
sl@0: 	else
sl@0: 	{
sl@0: 		die("second parameter after target platform $ARGV[0] can only be \"install\" ");
sl@0: 	}
sl@0: }
sl@0: elsif(scalar @ARGV == 3)
sl@0: {
sl@0: 		if($ARGV[0] ne "session")
sl@0: 		{
sl@0: 			die("invalid combination of parameters. Program expected 1st parameter to be \"session\" ");
sl@0: 		}
sl@0: 		else
sl@0: 		{
sl@0: 			$session = "yes";
sl@0: 			$suite = $ARGV[1];
sl@0: 			$target = $ARGV[2];
sl@0: 	
sl@0: 			if($suite eq "combined")
sl@0: 			{		
sl@0: 				$combinedSession = "yes";
sl@0: 	  	}
sl@0: 			
sl@0: 		}
sl@0: }
sl@0: elsif(scalar @ARGV == 4)
sl@0: {
sl@0: 		if($ARGV[0] ne "session")
sl@0: 		{
sl@0: 			die("invalid combination of parameters. Program expected 1st parameter to be \"session\" ");
sl@0: 		}
sl@0: 		else
sl@0: 		{
sl@0: 			$session = "yes";
sl@0: 			$suite = $ARGV[1];
sl@0: 			$target = $ARGV[2];
sl@0: 			$sdkversion = $ARGV[3];
sl@0: 			if($suite eq "combined")
sl@0: 			{		
sl@0: 				$combinedSession = "yes";
sl@0: 	  	}
sl@0: 		}
sl@0: }
sl@0: else
sl@0: {
sl@0: 		die("program recieved too many parameters!");
sl@0: }#end of commandline processing
sl@0: 
sl@0: 
sl@0: 	
sl@0: if( 0 )
sl@0: {
sl@0: 	die("Please run the script from the appropriate internal folder in the mobileruntime /omerta project!!");
sl@0: }
sl@0: else
sl@0: {
sl@0: 
sl@0: 	 my $srcPrefix = getcwd();
sl@0: 	 $srcPrefix =~ /(.*)internal.*/;
sl@0: 	 $srcPrefix = $1;
sl@0: 	 if(rindex($templateRoot, "stdlibs") != -1)
sl@0: 	 {
sl@0: 	 	$srcPrefix =~ /(.*)stdlibs.*/;
sl@0: 	 	$srcPrefix = $1;
sl@0: 	 	
sl@0: 	 	if($suite eq "glib")
sl@0: 	 	{
sl@0: 	 		$templateRoot = $srcPrefix."/glib/internal/";
sl@0: 	 	}
sl@0: 	 	elsif($suite eq "ssl")
sl@0: 	 	{
sl@0: 	 		$templateRoot = $srcPrefix."/ssl/internal/";
sl@0: 	 	}
sl@0: 	 	elsif($suite eq "ngi" && $session ne "yes")
sl@0: 	 	{
sl@0: 	 		print "ngi atsinput creation not supported from mobileruntime\n";
sl@0: 	 		exit();
sl@0: 	 	}
sl@0: 	 }
sl@0: 	 
sl@0: 	if(rindex($templateRoot, "glib") != -1)
sl@0: 	{
sl@0: 		$suite = "glib";
sl@0: 	}
sl@0: 	elsif(rindex($templateRoot, "ssl") != -1)
sl@0: 	{
sl@0: 		$suite = "ssl";
sl@0: 	}
sl@0: 	elsif(rindex($templateRoot, "ngi") != -1)
sl@0: 	{
sl@0: 		$suite = "ngi";
sl@0: 	}
sl@0: }
sl@0: 
sl@0: 
sl@0: my $optsGroupPath = $templateRoot."/ts/ltp/opts/group/";
sl@0: #$optsGroupPath = getcwd()."/ts/ltp/opts/group/";
sl@0: my $ltpPath =$templateRoot."/ts/ltp/";
sl@0: my $stdcppPath =$templateRoot."/testapps/stlport/";
sl@0: my @stdexeList = ("boost","Boost_test");
sl@0: #my $gnuPath =getcwd()."/testapps/gnu/";
sl@0: #my $tstdcppPath =getcwd()."/testapps/tstdcpp/";
sl@0: 
sl@0: 
sl@0: my @generatedModules;
sl@0: my %cfglocation;
sl@0: 
sl@0: my $TDIR = "\\internal\\testapps\\";
sl@0: 
sl@0: my @libcModules = ( "libc_loc_blr",  "libc_time_blr", "libc_db_blr","tctype", "tifioctls", "tinet",
sl@0:                       "tlibcwchar", "tlink", "tmkfifo", "tmmap", "tmsgqueue",
sl@0: 		      "tnetdb", "tpipe","tregex", "tsemaphore", "tshm","tsocket" ,
sl@0: 		      "tstdio", "tstdlib", "tstring", "tsyscalls",
sl@0: 		      "tsyssim", "twctype", "tselect", "tsysunistd", "twideapis", "twopen", "twchar",
sl@0: 		      "twcharapi",
sl@0:                );
sl@0: 
sl@0: my @libdlModules = ("tlibdl");
sl@0: my @libmModules = ("libm_double_blr", "libm_float_blr","libm_ldouble_blr");
sl@0: 
sl@0: 
sl@0: my @pthreadModules = ( "testcondbroadcast", "testconddestroy", "testcondinit", "testcondsignal", "testcondtimedwait", "testcondwait",
sl@0: "tmutex", "tpthread", "testpthreadonce", "testsemclose", "testsemdestroy", "testsemgetvalue", "testseminit", "testsemopen", "testsempost",
sl@0: "testsemtimedwait", "testsemtrywait", "testsemunlink", "testsemwait");
sl@0: 
sl@0: 
sl@0: my @stdliblist = ( "libc", "libpthread", "libdl", "libm", "libz", "libcrypt");
sl@0: my @dllList = ("backend.dll", "libc.dll", "LibCIpcClient.dll", "LibCIpcServer.exe", "libdl.dll", "libm.dll", "libpthread.dll", "libcrypt.dll", "libz.dll");
sl@0: 
sl@0: 
sl@0: my @stdcpplist = (
sl@0:   		#		 ["fstream1_input.txt", "stlport_fstream", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0:   			#	 ["nextperm1_good.txt", "stlport_nextprm", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0:   				# ["nextperm2_good.txt", "stlport_nextprm", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0:   				 #["ostmit_good.txt", "stlport_ostmit", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0:   				 #["seek.txt", "stlport_seek", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
sl@0:   			#	 ["test.txt", "platsectest6", "/../internal/testapps/doc/", "/General/", "C:\\resource"],
sl@0:   			# ["test.txt", "platsectest11", "/../internal/testapps/doc/", "/General/", "C:\\sys"],
sl@0: );
sl@0: 
sl@0: my @gliblist = (
sl@0:   				 ["1.gmarkup", "markup_test", "/epoc32/winscw/c/", "/General/", "C:"],
sl@0:    				 ["1.gmarkup", "markup-test", "/epoc32/winscw/c/", "/General/", "C:"],
sl@0:   				 ["iochannel-test-infile", "iochannel_test",  "/epoc32/winscw/c/", "/General/", "C:"],
sl@0:   				 ["iochannel-test-infile", "iochannel-test",  "/epoc32/winscw/c/", "/General/", "C:"],
sl@0: #  				 ["casemap.bin",  "unicode-caseconv",  "/epoc32/winscw/c/", "/General/", "C:"],
sl@0: #  				 ["casefold.bin", "unicode-caseconv",  "/epoc32/winscw/c/", "/General/", "C:"],
sl@0:   				 ["utf8.txt", "unicode-encoding","/epoc32/winscw/c/", "/General/", "C:"],
sl@0:   				 ["casecollate.txt", "unicode-collate","/epoc32/winscw/c/", "/General/", "C:"],
sl@0:   				 ["utf8_hindi.txt", "tutf8","/epoc32/winscw/c/", "/General/", "C:"],
sl@0:   				 ["scanfile.txt", "tscanner","/epoc32/winscw/c/", "/General/", "C:"],
sl@0:   				 ["test.txt", "dir_test","/epoc32/winscw/c/temp/tmp/", "/General/", "C:\\temp\\tmp"],
sl@0:   				 ["NormalizationTest.txt", "unicode-normalize","/epoc32/winscw/c/", "/General/", "C:"],
sl@0:   				 
sl@0:   				 ["helloworld.exe", "spawn_test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],
sl@0:   				 ["helloworld.exe", "spawn_test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],
sl@0:   				 
sl@0:   				 ["libmoduletestplugin_a.dll", "module-test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],
sl@0:   				 ["libmoduletestplugin_a.dll", "module-test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],
sl@0:   				 
sl@0:   				 ["libmoduletestplugin_b.dll", "module-test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],
sl@0:   				 ["libmoduletestplugin_b.dll", "module-test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],
sl@0:   				 
sl@0:   			  				 
sl@0:   				 );
sl@0:   				 
sl@0: my @ngilist = (
sl@0:            ["Test.txt", "ngi_sa_runtimetester", "/EPOC32/winscw/c/Private/10202be9/", "/General/", ""],
sl@0:   				 ["sa_input_repository.txt", "shared","/EPOC32/armv5/c/TestFramework/", "/armv5_urel/", ""],
sl@0:   				 ["sa_input_repository.txt", "shared","/EPOC32/winscw/c/TestFramework/", "/winscw_udeb/", ""],
sl@0:   				 ["audiomixingfiles.ini", "ngi_sa_audiomixing","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0:   				 ["sa_camera_supported.ini", "ngi_sa_camera","/EPOC32/armv5/c/TestFramework/", "/general/", ""],
sl@0:   				 ["sa_clip.ini", "ngi_sa_clip","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0:   				 ["devicecapabilitiesdata.ini", "ngi_sa_devicecapabilities","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0:    				 ["highlevelaudiofiles.ini", "ngi_sa_highlevelaudio","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0: 					 ["lowlevelaudiofiles.ini", "ngi_sa_lowlevelaudio","/EPOC32/winscw/c/TestFramework/", "/general/", ""],
sl@0: 					 ["runtimedata.ini", "ngi_sa_runtimetester","/EPOC32/winscw/c/TestFramework/", "/general/", ""],						
sl@0: 					 ["sa_stream.ini", "ngi_sa_stream","/EPOC32/winscw/c/TestFramework/", "/general/", ""],						
sl@0: 					 #["*", "ngi_sa_videoplayback","/../graphics/video/internal/sa_videoplayback/data/", "/general/", ""],
sl@0: 					 ["test.*", "ngi_sa_images","/Epoc32/winscw/c/Data/", "/general/", ""]
sl@0: 					);
sl@0: 
sl@0:   				 
sl@0: 
sl@0: 
sl@0: my $validexpansions = "all stdlibs combined";
sl@0: my $validLibraries = "ltp opts lsb glib ssl ngi pcts stdcpp gcce libc-locale play_new phall boost";
sl@0: if(rindex($validexpansions, $suite)== -1 && rindex($validLibraries, $suite) == -1)
sl@0: {
sl@0: 	die("$suite is not a valid library. Valid options are $validexpansions $validLibraries");
sl@0: }
sl@0: 
sl@0: my $dontStrip = 1;
sl@0: my	@liblist;
sl@0: if($suite eq "all")
sl@0: {
sl@0: 		@liblist = split " ", $validLibraries;
sl@0: 		@liblist = (@liblist, @stdliblist);
sl@0: 		
sl@0: }#suite all
sl@0: elsif($suite eq "ltp")
sl@0: {
sl@0: 	 @liblist = ("ltp", "opts");
sl@0: }
sl@0: elsif($suite eq "stdlibs")
sl@0: {
sl@0: 		@liblist = @stdliblist;
sl@0: }
sl@0: elsif($suite eq "ssl")
sl@0: {
sl@0: 	@liblist = ("libcrypto", "libssl");
sl@0: }
sl@0: else
sl@0: {
sl@0: 		@liblist = ("$suite");
sl@0: }
sl@0: 
sl@0: #	foreach my $l(@liblist)
sl@0: #	{
sl@0: #			print "$l was there\n";
sl@0: #	}
sl@0: 
sl@0: 
sl@0: if($combinedSession eq "yes")
sl@0: {
sl@0: 	GenerateSessionFile("combined", $target,"combined");
sl@0: 	exit();
sl@0: }
sl@0: 
sl@0: if($session eq "yes")
sl@0: {
sl@0: 	my $file = $templateRoot."/testsession.xml";
sl@0: 	opendir(DIRHANDLE, $ATSRoot) || die("Please try to create Session files only after ATSINPUT/components has been created!");
sl@0: 	closedir(DIRHANDLE);
sl@0: 	$dontStrip = 1;
sl@0: 	
sl@0: 	if($suite eq "stdlibs")
sl@0: 	{
sl@0: 		#my $dst = $ATSRoot."/$suite"."_testsession.xml";
sl@0: 		#copy($file, $dst);
sl@0: 		GenerateSessionFile("combined",$target,$suite);
sl@0: 		exit();
sl@0: 	}
sl@0: 	elsif($suite eq "ssl")
sl@0: 	{
sl@0: 		my @componentFiles = GetSslXmls();
sl@0: 		GenerateSessionFile("combined",$target,$suite,\@componentFiles);
sl@0: 		exit();
sl@0: 	}
sl@0: 	else
sl@0: 	{
sl@0: 		@generatedModules = GenGenModules($suite);
sl@0: 		my @componentFiles = GetXmls($suite);
sl@0: 		GenerateSessionFile("combined",$target,$suite,\@componentFiles);
sl@0: 		exit();
sl@0: 	}
sl@0: 	foreach my $lib(@liblist)
sl@0: 	{          
sl@0: 			@generatedModules = GenGenModules($lib);
sl@0: 			if(scalar @generatedModules != 0)
sl@0: 			{
sl@0: 				#print "Generating for $lib\n";
sl@0: 				GenerateSessionFile($lib, $target,$lib);
sl@0: 			}
sl@0: 	}
sl@0: 	
sl@0: 	#@generatedModules = GetAllModules();
sl@0: 	#if(scalar @generatedModules != 0)
sl@0: 	#{
sl@0: 	#		GenerateSessionFile("combined",$target, "combined");
sl@0: 	#}
sl@0: 	exit();
sl@0: }#session generation code
sl@0: 
sl@0: 
sl@0: if ($suite eq "ltp" || $suite eq "all")
sl@0: {
sl@0: 	my @ltpModules = GetLtpModules();
sl@0: 	@generatedModules = @ltpModules;
sl@0: 	DoGen("ltp", ".dll");
sl@0: 	CopyLtpCfg("ltp");
sl@0: 	
sl@0: 	
sl@0: 	my @saved = @dllList;
sl@0: 	@dllList = ("ltplib.dll");
sl@0: 	CopySharedDlls("ltp", \@dllList);
sl@0: 	TransformXmls("ltp","shared");
sl@0: 	@dllList = @saved;
sl@0: 	
sl@0: 	@generatedModules = GetCompiledModules($optsGroupPath."/bld.inf");
sl@0: 	DoGen("opts",".dll");
sl@0: 
sl@0: }
sl@0: if ($suite eq "glib")
sl@0: {
sl@0: 	my $bldfile = $templateRoot."/testapps/group/bld.inf";
sl@0: 	my @glibModules = GetCompiledModules($bldfile);
sl@0: 	@generatedModules = @glibModules;
sl@0: 	DoGen("glib",".exe");
sl@0: 	my $gDataRef = \@gliblist;
sl@0: 	CopyArbitDatFiles("glib",$gDataRef);
sl@0: 	
sl@0: 	if($install eq "yes")
sl@0: 	{
sl@0: 		my @saved = @dllList;
sl@0: 		my @glib2dllList = ("glibbackend.dll", "Libgobject.dll", "libgmodule.dll", "libgthread.dll",
sl@0:                 "libglib.dll");
sl@0:                 
sl@0:    my  @glib1List = ( "libgobject.dll", "libgmodule.dll", "libgthread.dll",  "libglib.dll", );
sl@0:   @dllList = @glib2dllList;
sl@0:   CopySharedDlls("glib",\@dllList);     	
sl@0:   TransformXmls("glib", "shared");
sl@0:    	
sl@0: 		@dllList = @saved;
sl@0: 	}#if install
sl@0: }#glib
sl@0: 
sl@0: if ($suite eq "phall")
sl@0: {
sl@0: 	my $bldfile = getcwd()."/group/bld.inf";
sl@0: 	my @hallModules = GetCompiledModules($bldfile);
sl@0: 	@generatedModules = @hallModules;
sl@0: 	DoGen($suite,".exe");
sl@0: 	#my $gDataRef = \@gliblist;
sl@0: 	#CopyArbitDatFiles("glib",$gDataRef);
sl@0: 	
sl@0: 	if($install eq "yes")
sl@0: 	{
sl@0: 		my @saved = @dllList;
sl@0:                 
sl@0:    my  @phallList = ( "libstdcpp.dll" );
sl@0:    @dllList = @phallList;
sl@0:    CopySharedDlls($suite,\@dllList);     	
sl@0:    TransformXmls($suite, "shared");
sl@0:    @dllList = @saved;
sl@0:    exit;
sl@0: 	}#if install
sl@0: }#phall
sl@0: 
sl@0: if ($suite eq "ssl")
sl@0: {
sl@0: 	my $stripStatus = $dontStrip;
sl@0: 	$dontStrip = 0;
sl@0: 	GenCryptoTest();
sl@0: 	if($install eq "yes")
sl@0: 	{
sl@0: 		@dllList = (@dllList, "libcrypto.dll", "libssl.dll");   
sl@0: 	}#if install
sl@0: 	$dontStrip = $stripStatus;
sl@0: }#ssl
sl@0: 
sl@0: if($suite eq "ngi")
sl@0: {
sl@0: 
sl@0: 	GenNgiTest();
sl@0: 	CopyNgiXmls();
sl@0: 	CopyArbitDatFiles("",\@ngilist);
sl@0: 
sl@0: }
sl@0: 
sl@0: if($suite eq "play_new")
sl@0: {
sl@0: 	my @play_newModules = ("fonttestmodule", "messagingtestmodule","locationtestmodule", "alertstestmodule", 
sl@0: 	"libxmlstiff","ngisvgtestmodule");
sl@0: 	@generatedModules = @play_newModules;
sl@0: 	DoGen("play_new",".dll");
sl@0: 	
sl@0: 	 my @list = (
sl@0:   				 			 ["*.cfg", "fonttestmodule", "/../fonts/internal/testmodules/fonttestmodule/group/","/General/", ""],
sl@0: 	 				 			 ["*.xml", "fonttestmodule", "/../fonts/internal/testmodules/fonttestmodule/group/","/", ""],
sl@0: 	 				 			 
sl@0: 	 				 			 ["*.cfg", "messagingtestmodule", "/../ngimessaging/internal/testmodules/messagingtestmodule/group/","/General/", ""],
sl@0: 	 				 			 ["*.xml", "messagingtestmodule", "/../ngimessaging/internal/testmodules/messagingtestmodule/group/","/", ""],
sl@0: 	 				 			 ["*", "messagingtestmodule", "/EPOC32/winscw/c/messagingtestmodule/","/General/", ""],
sl@0: 	 				 			 
sl@0: 	 				 			 ["*.cfg", "locationtestmodule", "/../ngilocation/internal/testmodules/locationtestmodule/group/","/General/", ""],
sl@0: 	 				 			 ["*.xml", "locationtestmodule", "/../ngilocation/internal/testmodules/locationtestmodule/group/","/", ""],
sl@0: 	 				 			 
sl@0: 	 				 			 ["*.cfg", "alertstestmodule", "/../ngialerts/internal/testmodules/alertstestmodule/group/","/General/", ""],
sl@0: 								 ["*.xml", "alertstestmodule", "/../ngialerts/internal/testmodules/alertstestmodule/group/","/", ""],	 				 			 
sl@0: 								 ["vertigo.wav", "alertstestmodule", "/Epoc32/winscw/c/alertstestmodule/","/General/", ""],	 				 			 	 				 			 
sl@0: 	 		
sl@0: 	 			 			  ["*.cfg", "libxmlstiff", "/../libxmlpp/internal/group/","/General/", ""],
sl@0: 	 		 	 			  ["*.xml", "libxmlstiff", "/../libxmlpp/internal/group/","/", ""],
sl@0: 	 		 	 			  ["*.*", "libxmlstiff", "/../libxmlpp/internal/data/","/General/", ""],
sl@0: 	 		 	 			  
sl@0: 	 		 	 			  ["*.cfg", "ngisvgtestmodule", "/../ngisvg/internal/testmodules/ngisvgtestmodule/group/","/General/", ""],
sl@0:    		 	 			  ["*.xml", "ngisvgtestmodule", "/../ngisvg/internal/testmodules/ngisvgtestmodule/group/","/", ""],
sl@0: 	 		 	 			  ["*.*", "ngisvgtestmodule", "/epoc32/winscw/c/ngisvgtest/","/General/", ""],
sl@0: 	 				 			 
sl@0:   				 );
sl@0:  
sl@0:   my $bDataRef = \@list;  				 
sl@0: 	CopyArbitDatFiles("play_new",$bDataRef);  				 
sl@0: 	if($install eq "yes")
sl@0: 	{
sl@0: 		@generatedModules = GenGenModules("play_new");
sl@0: 		my @saved = @dllList;
sl@0: 		my @playList = (
sl@0: "ngifonts.dll",
sl@0: "ngimessaging.dll",
sl@0: "ngisvg.dll",
sl@0: "ngilocation.dll",
sl@0: "ngialerts.dll",
sl@0: "libstdcpp.dll",
sl@0: "libxmlpp.dll",
sl@0: "FeedsLibXml2xmlpp.dll");
sl@0:        @dllList = @playList;
sl@0: 		CopySharedDlls("play_new",\@dllList);     
sl@0: 	  TransformXmls("play_new", "shared");
sl@0: 		@dllList = @saved;
sl@0: 
sl@0: 	}#end install
sl@0: 
sl@0: 
sl@0: }
sl@0: 
sl@0: if($suite eq "boost")
sl@0: {
sl@0: 	#@generatedModules = GetstdcppModules();
sl@0: 	#DoGen("stdcpp",".dll");
sl@0: 	CopyLtpCfg("boost");
sl@0: 	
sl@0: 	my $bldfile = getcwd()."/filelist.txt";
sl@0: 	#@generatedModules = GetCompiledModules($bldfile);
sl@0: 	
sl@0: 	recurse("Boost_test");
sl@0: 	
sl@0: 	@generatedModules = @AllModuleList;
sl@0: 	
sl@0: 	DoGen("boost",".exe");
sl@0: 	
sl@0: 	#my @saved = @dllList;
sl@0: #	@dllList = ("stdcxxtestengine.dll");
sl@0: #	CopySharedDlls("stdcpp", \@dllList);
sl@0: #	TransformXmls("stdcpp","shared");
sl@0: #	@dllList = @saved;
sl@0: 	
sl@0: 	CopyArbitDatFiles("stdcpp",\@stdcpplist);
sl@0: 	
sl@0: 	if($install eq "yes")
sl@0: 	{
sl@0: 		@generatedModules = GenGenModules("boost");
sl@0: 		#my @saved = @dllList;
sl@0: 		#my @cppList = ("libstdcpp.dll");
sl@0:      #  @dllList = @cppList;
sl@0: 	#	CopySharedDlls("stdcpp",\@dllList);     
sl@0: 	#  TransformXmls("boost", "shared");
sl@0: 	#	@dllList = @saved;
sl@0: 	  
sl@0: 		my @saved = @dllList;
sl@0:                 
sl@0:    my  @phallList = ( "libstdcpp.dll" );
sl@0:    @dllList = @phallList;
sl@0:    CopySharedDlls($suite,\@dllList);     	
sl@0:    TransformXmls($suite, "shared");
sl@0:    @dllList = @saved;
sl@0:    
sl@0: 		exit;
sl@0: 	}#if install
sl@0: }
sl@0: 	
sl@0: 
sl@0: if($suite eq "lsb" || $suite eq "all")
sl@0: {
sl@0: 	my @lsbModules = GetLsbModules();
sl@0: 	@generatedModules = @lsbModules;
sl@0: 	DoGen("lsb",".exe");
sl@0: 	
sl@0: 	my @depDlls;
sl@0: 	my $dll;
sl@0: 	
sl@0: 	#copying the common dlls
sl@0: 	@depDlls  = 
sl@0: 	(
sl@0: 	 "libapi.dll",
sl@0: 	 "tcm.dll",
sl@0: 	 "vlib.dll",
sl@0: 	);
sl@0: 		
sl@0: 	foreach $dll (@depDlls)
sl@0: 	{
sl@0: 		CopyDeps("lsb",$dll);
sl@0: 	}
sl@0: 	#now copy the cfg files
sl@0: 	CopyLsbCfg("lsb");	
sl@0: 	#now copy the extra dependency dlls
sl@0: 	
sl@0: 	#dlopen
sl@0: 	@generatedModules = ("dlopen");
sl@0: 	
sl@0: 	
sl@0: 	
sl@0: 	@depDlls  = 
sl@0: 	(
sl@0: 	 "dynlibtest.1.dll",
sl@0: 	 "dynlibtest.11.1.dll",
sl@0: 	 "dynlibtest.11.2.dll",
sl@0: 	 "dynlibtest.12g.dll",
sl@0: 	 "dynlibtest.12r.dll",
sl@0: 	 "dynlibtest.14.1.dll",
sl@0: 	 "dynlibtest.14.2.dll",
sl@0: 	 "dynlibtest.14.3.dll",
sl@0: 	 "dynlibtest.3.1.dll",
sl@0: 	 "dynlibtest.3.2.dll",
sl@0: 	 "dynlibtest.3.dll",
sl@0: 	 "dynlibtest.4.dll",
sl@0: 	 "dynlibtest.8.dll",
sl@0: 	 "dynlibtest.9.dll",
sl@0: 	 "dynlibtest.3.dll",
sl@0: 	 "dynlibtest.8.dll",
sl@0: 	);
sl@0: 	
sl@0: 	foreach $dll (@depDlls)
sl@0: 	{
sl@0: 		CopyDeps("lsb",$dll);
sl@0: 	}
sl@0: 	
sl@0: 	#dlclose
sl@0: 	@generatedModules = ("dlclose");
sl@0: 	@depDlls = ("dynlibclose.1.dll");
sl@0: 	foreach $dll (@depDlls)
sl@0: 	{
sl@0: 		CopyDeps("lsb",$dll);
sl@0: 	}
sl@0: 	
sl@0: 	#dlerror
sl@0: 	@generatedModules = ("dlerror");
sl@0: 	@depDlls = ("dynlib.dll");
sl@0: 	foreach $dll (@depDlls)
sl@0: 	{
sl@0: 		CopyDeps("lsb",$dll);
sl@0: 	}
sl@0: 	
sl@0: 	#now copy the xmls!
sl@0: 	my $srcDir = $templateRoot."/ts/lsbsuites/group/";
sl@0: 	
sl@0: 	my $dst;
sl@0: 	
sl@0: 	foreach my $dllib("dlopen", "dlclose", "dlerror")
sl@0: 	{
sl@0: 		$dst  = $ATSRoot."\\components\\lsb_".$dllib."\\";
sl@0: 		copy($srcDir."/lsb_".$dllib."_module_blr_hw_component.xml", $dst) || die("DIED: unable to copy from $srcDir!\n");
sl@0: 		copy($srcDir."/lsb_".$dllib."_module_blr_winsspd_component.xml", $dst) || die("DIED: unable to copy from $srcDir!\n");
sl@0: 	}
sl@0: 	
sl@0: }
sl@0: 
sl@0: if($suite eq "gcce")
sl@0: {
sl@0: 
sl@0: 	mkdir $ATSRoot;
sl@0: 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
sl@0: 	
sl@0: 	@generatedModules = ("gcce-validate", "gcce-load");
sl@0: 		
sl@0: 	my @depDlls  = 
sl@0: 	(
sl@0: 		"gcce-lib.dll",
sl@0: 	);
sl@0: 	
sl@0: 	my $suffix = ".exe";
sl@0: 	my $libname = "gcce";
sl@0: 	
sl@0: 	
sl@0: 	my $src;
sl@0: 	my $dst;
sl@0: 	foreach my $module(@generatedModules)
sl@0: 	{
sl@0: 		my $relroot = $ATSRoot."\\components\\$libname"."_$module";
sl@0: 		mkdir $relroot || die("DIED: unable to create dir $module\n");
sl@0: 		mkdir $relroot."\\armv5_urel" || die("DIED: unable to create dir $relroot\\armv5_urel\n");
sl@0: 		
sl@0: 		#GenExeXmls($module,$libname);
sl@0: 		
sl@0: 		$src = $rootDrive."\\epoc32\\release\\gcce\\urel\\".$module.$suffix;
sl@0: 		$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);
sl@0: 		$dst = $dst."\\armv5_urel\\";
sl@0: 		copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 	}
sl@0: 	$src = $rootDrive."\\epoc32\\release\\gcce\\urel\\"."gcce-lib.dll";
sl@0: 	$dst = $ATSRoot."\\components\\gcce_gcce-load";
sl@0: 	$dst = $dst."\\armv5_urel\\";
sl@0: 	copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 	
sl@0: 	
sl@0: 	my @list = (
sl@0:   				 ["gcce_gcce-load_module_blr_hw_component.xml", "gcce-load", "./","/", ""],
sl@0:   				 ["gcce_gcce-validate_module_blr_hw_component.xml", "gcce-validate", "./","/", ""],
sl@0:   				 );
sl@0:  
sl@0:   my $bDataRef = \@list;  				 
sl@0: 	CopyArbitDatFiles("gcce",$bDataRef);  				 
sl@0: 
sl@0: 	
sl@0: }#if gcce
sl@0: 
sl@0: 
sl@0: 
sl@0: if($suite eq "libc-locale")
sl@0: {
sl@0: 	$dontStrip = 0;
sl@0: 	mkdir $ATSRoot;
sl@0: 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
sl@0: 	
sl@0: 	@generatedModules = ("tstring");
sl@0: 	DoGen("libc",".dll");
sl@0: 	
sl@0: 	my @localelist = (
sl@0: 	  				 ["locales.txt", "string", "../libc/internal/testapps/tstring/data/", "/General/", ""],
sl@0: 	  				 ["tstring_locale_component.xml", "string", "../libc/internal/testapps/tstring/group/", "/", ""],
sl@0: 	 
sl@0: 	  				 );
sl@0: 		
sl@0:   my $bDataRef = \@localelist;  				 
sl@0: 	CopyArbitDatFiles("libc",$bDataRef);  				 
sl@0: 	#delete($ATSRoot."/components/libc_string/"."libc_string_module_blr_hw_component.xml") || die("unable to delete");
sl@0: 	my $my_src = $ATSRoot."/components/libc_string/"."tstring_locale_component.xml";
sl@0: 	my $my_dst = $ATSRoot."/components/libc_string/"."libc_string_module_blr_hw_component.xml";
sl@0: 	
sl@0: 	unlink($my_dst) ||warn("unable to delete $my_dst");
sl@0: 	rename($my_src,$my_dst) || move($my_src,$my_dst) || die("Unable to rename!");
sl@0: 	
sl@0: }#if libc-locale
sl@0: 
sl@0: 
sl@0: if($suite eq "pcts")
sl@0: {
sl@0: 	my $bldfile = $templateRoot."/group/bld.inf";
sl@0: 	my @pctsModules = GetCompiledModules($bldfile);
sl@0: 	@generatedModules = @pctsModules;
sl@0: 	DoGen("pcts",".exe");
sl@0: 	
sl@0: 	my @depDlls;
sl@0: 	my $dll;
sl@0: 	
sl@0: 	
sl@0: 	#copying the common dlls
sl@0: 	@depDlls  = 
sl@0: 	(
sl@0: 		"vsxlibapi.dll",
sl@0: 		"rttm.exe",
sl@0: 		"rtlibapi.dll",
sl@0: 		"vsxvlib.dll",
sl@0: 		"vsxgenlib.dll",
sl@0: 		"vsxtsetlib.dll",
sl@0: 		"vsxvport.dll",
sl@0: 	);
sl@0: 	
sl@0: 	if($install eq "yes")
sl@0: 	{
sl@0: 		my @saved = @dllList; 
sl@0: 		@dllList = @depDlls;	
sl@0: 		CopySharedDlls("pcts", \@depDlls);
sl@0: 		TransformXmls("pcts","shared");
sl@0: 		@dllList = @saved;
sl@0: 		
sl@0: 		#now copy the cfg files
sl@0: 		my $dst;
sl@0: 		my $srcDir = "/epoc32/winscw/c/data/tet/";
sl@0: 		my $file1 = $srcDir."tet_code";
sl@0: 		my $file2 = $srcDir."tetexec.cfg";
sl@0: 		foreach my $module(@generatedModules)
sl@0: 		{
sl@0: 			$dst = $ATSRoot."\\components\\pcts_".$module;
sl@0: 			$dst = $dst."\\General\\";
sl@0: 			copy($file1, $dst) or die "copy: $! $file1 $dst";
sl@0: 			copy($file2,$dst) or die "copy: $! $file2 $dst";
sl@0: 		}
sl@0: 	}
sl@0: 		
sl@0: 	
sl@0: 	
sl@0: 	
sl@0: 	my $dst;	
sl@0: 	foreach my $module(@generatedModules)
sl@0: 	{
sl@0: 		my $file3 = "/epoc32/winscw/c/logs/tet/m.".$module;
sl@0: 
sl@0: 		$dst = $ATSRoot."\\components\\pcts_".$module;
sl@0: 		$dst = $dst."\\General\\";
sl@0: 		copy($file3, $dst) or die "copy: $! $file3 $dst";
sl@0: 	}#module
sl@0: }
sl@0: 
sl@0: 
sl@0: 
sl@0: $dontStrip = 0;
sl@0: 
sl@0: if($suite eq "stdlibs" || $suite eq "all")
sl@0: {
sl@0: 	@generatedModules = ("tzlib");
sl@0: 	DoGen("libz", ".dll");
sl@0: 
sl@0: 	@generatedModules = ("tlibcrypt");
sl@0: 	DoGen("libcrypt",".dll");
sl@0: 
sl@0: 	@generatedModules = @libcModules;
sl@0: 	DoGen("libc",".dll");
sl@0: 	GenBackendTest();
sl@0: 	
sl@0: 	@generatedModules = ("twchar");
sl@0: 	CopyDeps("libc","twchar_helloworld.exe");
sl@0: 	
sl@0: 	@generatedModules = ("twopen");
sl@0: 	CopyDeps("libc","twpopenwritechild.exe");
sl@0: 	CopyDeps("libc","twpopenreadchild.exe");
sl@0: 
sl@0: 
sl@0: 	@generatedModules = @libdlModules;
sl@0: 	DoGen("libdl",".dll");
sl@0: 	CopyDeps("libdl","Dll1.dll");
sl@0: 	CopyDeps("libdl","Dll2.dll");
sl@0: 	CopyDeps("libdl","DependencyTestDll.dll");
sl@0: 
sl@0: 	@generatedModules = @libmModules;
sl@0: 	DoGen("libm",".dll");
sl@0: 
sl@0: 	$TDIR = "\\internal\\";
sl@0: 	@generatedModules = @pthreadModules;
sl@0: 	DoGen("libpthread",".dll");
sl@0: 	CopyDeps("libpthread","testharness.dll");
sl@0: 
sl@0: 	CopyDatFiles();
sl@0: }
sl@0: 
sl@0: if($install eq "yes")
sl@0: {
sl@0: 	foreach my $lib(@liblist)
sl@0: 	{   
sl@0: 		#print "Transforming lib $lib\n";       
sl@0: 		@generatedModules = GenGenModules($lib);
sl@0: 		my @oldList = @dllList;
sl@0: 		if($do_winscw)
sl@0:   	{
sl@0:   		@dllList = (@dllList, "wsdsoln.dll", "libestw32.dll");
sl@0:   		CopySharedDlls($lib,\@dllList,"winscw");     	
sl@0: 	  	TransformXmls($lib, "shared","winscw");
sl@0:   	}
sl@0:   	@dllList = @oldList;
sl@0:   	if($do_armv5)
sl@0:   	{
sl@0: 	  	CopySharedDlls($lib,\@dllList,"armv5");     	
sl@0: 	  	TransformXmls($lib, "shared","armv5");
sl@0:   	}
sl@0: 	}#FOREACH
sl@0: }#if install
sl@0: 
sl@0: 
sl@0: # Function added by Roshan G (Dec 4th 2007) - Get list of modules from bld.inf by recursively searching testapps folder
sl@0: sub recurse
sl@0: {
sl@0:   
sl@0: 	my $path = shift @_;
sl@0: 	$path .= '/' if($path !~ /\/$/);
sl@0: 
sl@0:   ## print the directory being searched
sl@0:  # print "Path : $path,\n";
sl@0: 
sl@0:   ## loop through the files contained in the directory
sl@0:   for my $eachFile (glob($path.'*')) {
sl@0: 	#	print "Entry : $eachFile\n";
sl@0:     ## if the file is a directory
sl@0:     if( -d $eachFile && basename($eachFile) ne "test_framework") {
sl@0:       ## pass the directory to the routine ( recursion )
sl@0:       recurse($eachFile);
sl@0:     } else {
sl@0: 
sl@0:       ## print the file ... tabbed for readability
sl@0:       #print "\t",$eachFile,"\n";
sl@0:       if(basename($eachFile) eq "bld.inf")
sl@0:       {
sl@0:         #print "\t",$eachFile,"\n";
sl@0:       	push (@AllModuleList,GetCompiledModules($eachFile));
sl@0:       }
sl@0:     }
sl@0:   }
sl@0:  }
sl@0: #End of recurse - Dec 4th 2007
sl@0: 
sl@0: #function to generate ModuleList for a compiled bld.inf
sl@0: sub GetCompiledModules($)
sl@0: {
sl@0: 	my $file = shift @_;
sl@0: 	my @moduleList;
sl@0: 	
sl@0: 	
sl@0: 	# Open input file
sl@0: 	open (INFILE, "<".$file ) || die ("DIED: Can not find $file!");
sl@0: 
sl@0: 	while (<INFILE>)
sl@0: 	{
sl@0: 		if(/(.*)\.mmp/ && $1 !~ /^\s*\/\//) 
sl@0: 	  {
sl@0: 	  		if($_ !~ /\/\/Not for ATS/)
sl@0: 	  		{
sl@0: 	  			my $text = $1;
sl@0: 	  		  $text =~ s/^\s*//;
sl@0: 	  			push @moduleList, $text;
sl@0: 	  		}
sl@0: 	  }
sl@0: 	}
sl@0: 	close (INFILE);
sl@0: 	return @moduleList;
sl@0: }
sl@0: 
sl@0: my @groupList;
sl@0: sub GetLtpModules()
sl@0: {
sl@0:         my $prevDir = getcwd();
sl@0:         my @rootList = ("kernel", "misc");
sl@0:         my @totalgroupList;
sl@0:         foreach my $node(@rootList)
sl@0:         {
sl@0:         	chdir $ltpPath."/$node";
sl@0:         	@groupList = ();
sl@0:         	find(\&MakeGroupList, ".");
sl@0:         	@totalgroupList = (@totalgroupList, @groupList);
sl@0:         }
sl@0:         chdir $prevDir;
sl@0:         return @totalgroupList;
sl@0: }
sl@0: 
sl@0: sub GetstdexeModules()
sl@0: {
sl@0:       my $prevDir = getcwd();
sl@0:       my @fullList = ();
sl@0:       foreach my $group(@stdexeList)
sl@0:       {
sl@0:       	my $groupPath = $templateRoot."/testapps/".$group. "/";
sl@0:       	chdir $groupPath;
sl@0:       	@groupList = ();
sl@0:       	find(\&grovelAllMmpFiles, ".");
sl@0:       	chdir $prevDir;
sl@0:       	@fullList = (@fullList,@groupList);
sl@0:       }
sl@0:       return @fullList;      
sl@0: }
sl@0: 
sl@0: sub grovelAllMmpFiles()
sl@0: {
sl@0: 	if($_ =~ /(.*)\.mmp/ && ! ($_ =~ /manual/))
sl@0: 	{
sl@0: 		push @groupList, $1;#get name of module
sl@0: 	}
sl@0: }
sl@0: 
sl@0: sub GetstdcppModules()
sl@0: {
sl@0:         my $prevDir = getcwd();
sl@0:         my @rootList = ("auto");
sl@0:         my @totalgroupList;
sl@0:         foreach my $node(@rootList)
sl@0:         {
sl@0:         	chdir $stdcppPath."/$node";
sl@0:         	@groupList = ();
sl@0:         	find(\&MakeGroupList, ".");
sl@0:         	@totalgroupList = (@totalgroupList, @groupList);
sl@0:         }
sl@0:         chdir $prevDir;
sl@0:         my @newmodules = ("tiostreams", "tlocale", "tstl_1", "tstl_2", "tstl_3", "twiostreams");
sl@0:         @totalgroupList = (@totalgroupList, @newmodules); 
sl@0:         foreach my $mod(@newmodules)
sl@0:         {
sl@0:          $cfglocation{$mod} = getcwd()."/testapps/bc/$mod/group"."\/$mod.cfg";
sl@0:          #print "$cfglocation{$mod} - $mod\n";
sl@0:         }
sl@0: 				return @totalgroupList;
sl@0: }
sl@0: 
sl@0: sub GetTstdcppModules()
sl@0: {
sl@0:       my $prevDir = getcwd();
sl@0:       #chdir $tstdcppPath;
sl@0:       @groupList = ();
sl@0:       find(\&grovelAllMmpFiles, ".");
sl@0:       chdir $prevDir;
sl@0:       return @groupList;
sl@0: }
sl@0: 
sl@0: sub MakeGroupList()
sl@0: {
sl@0: 	my $currentDir = $File::Find::dir;
sl@0: 	
sl@0: 	#print "Current dir:$currentDir\n";
sl@0: 	if( $currentDir =~ /.*\/(.*)\/group/)
sl@0: 	{
sl@0: 		if($cfglocation{$1} eq "")
sl@0: 		{
sl@0: 			$cfglocation{$1} = getcwd()."\/$1.cfg";
sl@0: 			push @groupList, $1;#get name of module
sl@0: 		}#first time in group
sl@0: 	}#group found
sl@0: }#subrtn end
sl@0: 
sl@0: 
sl@0: #function that generates the ATS setup
sl@0: sub DoGen($$)
sl@0: {
sl@0: 	my $libname = shift @_;
sl@0: 	my $ext = shift @_;
sl@0: 	mkdir $ATSRoot;
sl@0: 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
sl@0: 	
sl@0: 	
sl@0: 	GenDirs($libname);
sl@0: 	my $module;
sl@0: 	foreach my $listed(@generatedModules)
sl@0: 	{
sl@0: 	my @filesToProcess =
sl@0:         (
sl@0:          "LibXXX_ATSTemplateXXX_module_blr_hw_component.xml",
sl@0:          "LibXXX_ATSTemplateXXX_module_blr_winsspd_component.xml",
sl@0:          "testframework.ini",
sl@0:         );
sl@0: 		if(rindex($noXmlsGenList, $libname) != -1 )	
sl@0: 		{
sl@0: 			@filesToProcess = ("testframework.ini",);
sl@0: 		}
sl@0: 
sl@0: 			if($ext eq ".exe")
sl@0: 			{
sl@0: 				GenExeXmls($listed,$libname);
sl@0: 			}
sl@0: 			else
sl@0: 			{
sl@0: 				#just in case no xml file was supplied
sl@0: 				
sl@0:         my $ref = \@filesToProcess;
sl@0: 				GenXmls($libname, $listed,$ref);
sl@0: 			}
sl@0: 	}#foreach
sl@0: 	
sl@0: 	CopyDlls($libname,$ext);
sl@0: 	#copy the provided cfg, ini and xmls
sl@0: 	if($libname eq "opts")
sl@0: 	{
sl@0: 		CopyOptsCfg($libname);
sl@0: 	}
sl@0: 	elsif($libname eq "ltp" || $libname eq "lsb" || $libname eq "glib")
sl@0: 	{
sl@0: 	  #copy latter and  dont copy respectively for ltp and lsb
sl@0: 	}
sl@0: 	else
sl@0: 	{
sl@0: 	  CopyCfgIniXmls($libname);
sl@0: 	}
sl@0: }
sl@0: 
sl@0: sub CopyCfgIniXmls()
sl@0: {
sl@0: 	my $libname = pop @_;
sl@0: 	
sl@0: 	my $libRoot = $templateRoot;
sl@0: 	$libRoot =~ /(.*)internal.*/;
sl@0: 	$libRoot = $1;
sl@0: 
sl@0: 
sl@0: 	my $module;
sl@0: 	my $src;
sl@0: 	my $dst;
sl@0: 		
sl@0: 	foreach my $listed(@generatedModules)
sl@0: 	{
sl@0: 	  my $dirname = $listed;
sl@0: 	  $dirname =~ s/test/t/;
sl@0: 	  $module = StripModulePrefix($listed);
sl@0: 	    
sl@0: 		$src = $libRoot.$libname.$TDIR.$dirname."\\group\\";
sl@0: 				
sl@0: 		my $xmlCopied = "0";
sl@0: 		my @globpattern = ("*.ini", "*.xml","*.cfg");
sl@0: 		foreach my $pat(@globpattern)
sl@0: 		{
sl@0: 			$dst = $ATSRoot."\\components\\".$libname."_".$module;
sl@0: 			if($pat ne "*.xml")
sl@0: 			{
sl@0: 				$dst = $dst."\\General\\";
sl@0: 			}
sl@0: 			else
sl@0: 			{
sl@0: 				$dst = $dst."\\";
sl@0: 			}
sl@0: 			my @filesFound = glob($src."\\$pat");
sl@0: 			if(scalar @filesFound eq "0")
sl@0: 			{
sl@0: 				#print "No files found for module $module $pat!\n";
sl@0: 				#print $src;
sl@0: 			}
sl@0: 			
sl@0: 			#handcoded
sl@0: 			if($pat eq "*.cfg" && $xmlCopied eq "0")#rename only if xml not copied
sl@0: 			{
sl@0: 				if(scalar @filesFound > 1)
sl@0: 				{
sl@0: 					print "Multiple cfg files found. Copying all!\n";
sl@0: 				}
sl@0: 				else
sl@0: 				{
sl@0: 						$dst = $dst.$listed.".cfg";
sl@0: 				}
sl@0: 			}				
sl@0: 			elsif($pat eq "*.xml")
sl@0: 			{
sl@0: 				my $folder = $dst;
sl@0: 				foreach my $from (@filesFound) 
sl@0: 				{
sl@0: 					if($from =~ /winscw_component/)
sl@0: 					{
sl@0: 						$dst = $folder.$libname."_".$module."_module_blr_winscw_component.xml";
sl@0: 						copy($from, $dst) or die "DIED: copy: $! $from $dst";
sl@0: 						$xmlCopied = "1";
sl@0: 					}
sl@0: 					elsif($from =~ /winsspd_component/)
sl@0: 					{
sl@0: 						$dst = $folder.$libname."_".$module."_module_blr_winsspd_component.xml";
sl@0: 						copy($from, $dst) or die "DIED: copy: $! $from $dst";
sl@0: 						$xmlCopied = "1";
sl@0: 					}
sl@0: 					elsif($from =~ /hw_component/)
sl@0: 					{
sl@0: 						$dst = $folder.$libname."_".$module."_module_blr_hw_component.xml";
sl@0: 						copy($from, $dst) or die "DIED: copy: $! $from $dst";
sl@0: 						$xmlCopied = "1";
sl@0: 					}
sl@0: 				}#examine individually			
sl@0: 				if(scalar @filesFound > 2)
sl@0: 				{
sl@0: 					#print "Multiple xml files found!!!\n";
sl@0: 				}
sl@0: 				@filesFound = ();
sl@0: 			}	
sl@0: 				
sl@0: 			
sl@0: 			foreach my $from (@filesFound) 
sl@0: 			{
sl@0: 					copy($from, $dst) or die "DIED: copy: $! $from $dst";
sl@0: 			}#copy individually			
sl@0: 		}#globpattern
sl@0: 	}#module
sl@0: }#fn
sl@0: 
sl@0: #copy the cfg files for the opts test suite
sl@0: sub CopyOptsCfg()
sl@0: {
sl@0: 	my $libname = pop @_;
sl@0: 	
sl@0: 	my $libRoot = $optsGroupPath."\\";
sl@0: 	my $module;
sl@0: 	my $src;
sl@0: 	my $dst;
sl@0: 		
sl@0: 	foreach $module(@generatedModules)
sl@0: 	{
sl@0: 		$src = $libRoot.$module."\.cfg";
sl@0: 		$dst = $ATSRoot."\\components\\".$libname."_".$module;
sl@0: 		$dst = $dst."\\General\\";
sl@0: 		copy($src, $dst) or warn "copy: $! $src $dst";
sl@0: 	}#module
sl@0: }#fn
sl@0: 
sl@0: #copy the lsb cfg files
sl@0: sub CopyLsbCfg()
sl@0: {
sl@0: 	my $libname = pop @_;
sl@0: 	
sl@0: 	my $module;
sl@0: 	
sl@0: 	my $dst;
sl@0: 	
sl@0: 	my $srcDir = $templateRoot."/ts/lsbsuites/lsblib/data/";
sl@0: 		
sl@0: 	foreach $module(@generatedModules)
sl@0: 	{
sl@0: 		my $file1 = $srcDir."tet_code.cfg";
sl@0: 		my $file2 = $srcDir."tetexec.cfg";
sl@0: 		$dst = $ATSRoot."\\components\\".$libname."_".$module;
sl@0: 		$dst = $dst."\\General\\";
sl@0: 		copy($file1, $dst) or die "copy: $! $file1 $dst";
sl@0: 		copy($file2, $dst) or die "copy: $! $file2 $dst";
sl@0: 	}#module
sl@0: }#fn
sl@0: 
sl@0: 
sl@0: #copy the ltp cfg files
sl@0: sub CopyLtpCfg($)
sl@0: {
sl@0: 	my $libname = pop @_;
sl@0: 	
sl@0: 	my $module;
sl@0: 	my $src;
sl@0: 	my $dst;
sl@0: 		
sl@0: 	foreach $module(@generatedModules)
sl@0: 	{
sl@0: 		$src = $cfglocation{$module};
sl@0: 		$dst = $ATSRoot."\\components\\".$libname."_".$module;
sl@0: 		$dst = $dst."\\General\\";
sl@0: 		copy($src, $dst) or warn "copy: $! $src $dst";
sl@0: 	}#module
sl@0: }#fn
sl@0: 
sl@0: 
sl@0: sub CopyDlls($$)
sl@0: {
sl@0: 	my $libname = shift @_;
sl@0: 	my $suffix = shift @_;
sl@0: 	
sl@0: 	my $module;
sl@0: 	my $src;
sl@0: 	my $dst;
sl@0: 	
sl@0: 	
sl@0: 	foreach $module(@generatedModules)
sl@0: 	{
sl@0: 	  if($do_winscw == 1)
sl@0: 	  { 	  
sl@0: 			$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$module.$suffix;
sl@0: 			$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);
sl@0: 			$dst = $dst."\\winscw_udeb\\";
sl@0: 			copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 		}
sl@0: 	  if($do_armv5 == 1)
sl@0: 	  {
sl@0: 			$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$module.$suffix;
sl@0: 			$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);
sl@0: 			$dst = $dst."\\armv5_urel\\";
sl@0: 			copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 		}
sl@0: 	}#foreach
sl@0: }
sl@0: #fn to generate the session file
sl@0: sub GenerateSessionFile($$$$)
sl@0: {
sl@0: 	my $libname = shift @_;
sl@0: 	my $target = shift @_;
sl@0: 	my $name = shift @_;
sl@0: 	my $listptr = shift @_;
sl@0: 	my $outdir = $ATSRoot;
sl@0: 	my $infile = $templateRoot."\\testsession.xml";
sl@0: 	chdir $outdir || die("DIED: Unable to chdir!"); 
sl@0: 	#open INFILE, $infile || die ("DIED: Can not open input file $infile");
sl@0: 	my $prefix = $name."_".$target;
sl@0: 	if($sdkversion ne "")
sl@0: 	{
sl@0: 		$prefix = $prefix."_".$sdkversion;
sl@0: 	}
sl@0: 	
sl@0: 	open OUTFILE, ">".$outdir."\\".$prefix."_testsession.xml" || die ("DIED: Can not open output file");
sl@0: 	my $line;
sl@0:   my $snippet = $target;
sl@0:   if($target ne "winscw" && $target ne "winsspd")
sl@0:   {
sl@0:   	$snippet = "hw";
sl@0:   }
sl@0: 
sl@0: print OUTFILE "<?xml version=\"1.0\"?>\n";
sl@0: print OUTFILE "<testsession>\n";
sl@0: #print OUTFILE "<symbian-version>$libname"."_".$snippet."_TestDrop_blr_component</symbian-version>\n";	
sl@0: print OUTFILE "<symbian-version>Boost_combined_test_session</symbian-version>\n";	
sl@0: print OUTFILE "<testitem>at</testitem>\n";	
sl@0: print OUTFILE "<resultfile>ATSOUTPUT\\".$prefix."_testsession_results.xml</resultfile>\n";		
sl@0: if($sendEmail eq "yes")
sl@0: {
sl@0: print OUTFILE <<EOEmailNote;
sl@0: <email_notification>
sl@0: <include_test_cases>false</include_test_cases>
sl@0: <message_file>C:\\\\lm.txt </message_file>
sl@0: <send_after_rerun>false</send_after_rerun>
sl@0: <subject>Boost $snippet testreport</subject>
sl@0: <from>swbuild\@nokia.com</from>
sl@0: <to>ajith.narayanan\@nokia.com</to>
sl@0: <to>hrishikesh.brahmakal\@nokia.com</to>
sl@0: <to>santosh.ks\@nokia.com</to>
sl@0: <to>shilpa.sharma\@nokia.com</to>
sl@0: <to>kasthuri.n-s\@nokia.com</to>
sl@0: <to>hema.1.s\@nokia.com</to>
sl@0: <to>vineetha.hari-pai\@nokia.com</to>
sl@0: <to>madhusudhan.p.reddy\@nokia.com</to>
sl@0: </email_notification>
sl@0: EOEmailNote
sl@0: }
sl@0: 
sl@0: 	if($libname ne "combined")
sl@0: 	{
sl@0: 		AddAssumedIncludes($libname,$snippet);
sl@0: 	}
sl@0: 	else
sl@0: 	{
sl@0: 		if($listptr ne "")
sl@0: 		{
sl@0: 			AddFileList($libname,$listptr);
sl@0: 		}
sl@0: 		else
sl@0: 		{
sl@0: 			AddActualIncludes($libname);
sl@0: 		}
sl@0: 	}
sl@0:    				
sl@0: 	print OUTFILE "</testsession>\n";
sl@0: 
sl@0: 	close(OUTFILE);
sl@0: 	#close(INFILE);
sl@0: }#fn
sl@0: 
sl@0: 
sl@0: sub AddAssumedIncludes($$)
sl@0: {
sl@0: 	my $libname = shift @_; 
sl@0: 	my $snippet = shift @_;
sl@0: 	
sl@0: 	my $APITest;
sl@0: 	foreach my $listed(@generatedModules)
sl@0: 						{
sl@0: 							$APITest = StripModulePrefix($listed);
sl@0: 							print OUTFILE  "\n";
sl@0: 							print OUTFILE "	<!--Inclusion of $target xml for $APITest -->\n";
sl@0: 							print OUTFILE "	<component>\n";
sl@0: 							print OUTFILE "		<factory>Symbian</factory>\n";
sl@0: 							if($libname eq "all")
sl@0: 							{
sl@0: 									print OUTFILE "		 <testplan>ATSINPUT\\components\\$listed\\$listed"."_module_blr_".$snippet."_component.xml</testplan>\n";	 
sl@0: 							}
sl@0: 							else
sl@0: 							{
sl@0: 									print OUTFILE "		 <testplan>ATSINPUT\\components\\$libname"."_"."$APITest\\$libname"."_$APITest"."_module_blr_".$snippet."_component.xml</testplan>\n";	 
sl@0: 							}
sl@0: 							if($target eq "winscw")
sl@0: 							{
sl@0: 									print OUTFILE "		<target hardware=\"winscw\" build=\"udeb\" />\n";
sl@0: 							}
sl@0: 							elsif($target eq "winsspd")
sl@0: 							{
sl@0: 								print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n"; 
sl@0: 							}
sl@0: 							else
sl@0: 							{
sl@0: 										print OUTFILE "		<target hardware=\"$target\" build=\"urel\" />\n";
sl@0: 							}
sl@0: 							print OUTFILE "	</component>\n";
sl@0: 							print OUTFILE "\n";
sl@0: 	           }#foreach @generatedModules
sl@0: }
sl@0: 
sl@0: 
sl@0: sub AddFileList($$)
sl@0: {
sl@0: 	my $libname = shift @_; 
sl@0: 	my $listptr = shift @_;
sl@0: 	my @componentfiles = @$listptr;
sl@0: 	
sl@0: 			foreach my $listed(@componentfiles)
sl@0: 						{
sl@0: 								print OUTFILE  "\n";
sl@0: 							print OUTFILE "	<!--Inclusion of $target xml -->\n";
sl@0: 							print OUTFILE "	<component>\n";
sl@0: 							print OUTFILE "		<factory>Symbian</factory>\n";
sl@0: 							print OUTFILE "		 <testplan>ATSINPUT\\components\\$listed</testplan>\n";	 
sl@0: 							if($target eq "winscw")
sl@0: 							{
sl@0: 									print OUTFILE "		<target hardware=\"winscw\" build=\"udeb\" />\n";
sl@0: 							}
sl@0: 							elsif($target eq "winsspd")
sl@0: 							{
sl@0: 								print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n"; 
sl@0: 							}
sl@0: 							else
sl@0: 							{
sl@0: 										print OUTFILE "		<target hardware=\"$target\" build=\"urel\" />\n";
sl@0: 							}
sl@0: 							print OUTFILE "	</component>\n";
sl@0: 							print OUTFILE "\n";
sl@0: 	           }#foreach @componentfiles
sl@0: }
sl@0: 
sl@0: 
sl@0: 
sl@0: sub GetSslXmls()
sl@0: {
sl@0: 	my $APITest;
sl@0: 	my @componentfiles;
sl@0: 	
sl@0: 	my @emulatorfiles = 
sl@0: 	(
sl@0: 	"libssl_ssltest\\libssl_blr_winsspd_component.xml",
sl@0: 	"libcrypto_crypto_test\\libcrypto_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltestss_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltestverify_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltestenc_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltestgen_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltreq_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltreq2_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltrsa_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltcrl_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltsid_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltx509_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltx5091_blr_winsspd_component.xml",
sl@0: 	"libcrypto_openssl\\libcrypto_topenssltx5092_blr_winsspd_component.xml",
sl@0: 	 );
sl@0: 	 
sl@0: 	my @hwfiles =
sl@0: 	(
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltestss_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltestverify_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltestenc_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltestgen_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltreq_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltreq2_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltrsa_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltcrl_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltsid_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltx509_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltx5091_blr_hw_component.xml",
sl@0: 		"libcrypto_openssl\\libcrypto_topenssltx5092_blr_hw_component.xml",		
sl@0: 		"libssl_ssltest\\libssl_blr_hw_component.xml",
sl@0: 		"libcrypto_crypto_test\\libcrypto_blr_hw_component.xml",
sl@0: 	);
sl@0: 	if($target eq "winsspd" || $target eq "winscw")
sl@0: 	{
sl@0: 		@componentfiles = @emulatorfiles;
sl@0: 	}
sl@0: 	else
sl@0: 	{
sl@0: 		@componentfiles = @hwfiles;
sl@0: 	}
sl@0: 	return @componentfiles;
sl@0: }
sl@0: 
sl@0: 
sl@0: 
sl@0: sub AddActualIncludes($)
sl@0: {
sl@0: 	my $libname = shift @_; 
sl@0: 	find(\&XmlComponentFiles, ".");
sl@0: 	my $key;
sl@0: 	my $value;
sl@0: 	while(($key, $value) = each(%DirHash)) 
sl@0: 	{
sl@0: 							$value =~ s/\//\\/g;
sl@0: 							print OUTFILE  "\n";
sl@0: 							print OUTFILE "	<!--Inclusion of dynamically found $target xml -->\n";
sl@0: 							print OUTFILE "	<component>\n";
sl@0: 							print OUTFILE "		<factory>Symbian</factory>\n";
sl@0: 							print OUTFILE "		 <testplan>$value</testplan>\n";	 
sl@0: 							if($target eq "winscw")
sl@0: 							{
sl@0: 									print OUTFILE "		<target hardware=\"winscw\" build=\"udeb\" />\n";
sl@0: 							}
sl@0: 							elsif($target eq "winsspd")
sl@0: 							{
sl@0: 								print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n"; 
sl@0: 							}
sl@0: 							else
sl@0: 							{
sl@0: 										print OUTFILE "		<target hardware=\"$target\" build=\"urel\" />\n";
sl@0: 							}
sl@0: 							print OUTFILE "	</component>\n";
sl@0: 							print OUTFILE "\n";
sl@0: 	
sl@0: 	}#while
sl@0: }#fn
sl@0: 
sl@0: sub XmlComponentFiles()
sl@0: {
sl@0: 	if($_ !~ /\.xml/ || $_ =~ /manual/)
sl@0: 	{
sl@0: 		return;
sl@0: 	}
sl@0: 	#print "Processing $_\n";
sl@0: 	my $dir = getcwd();
sl@0: 	if($dir =~ /.*(ATSINPUT.*)/)
sl@0: 	{
sl@0: 			$dir = $1;
sl@0: 			if($dir !~ /.*components.*/)
sl@0: 			{
sl@0: 				return;
sl@0: 			}
sl@0: 			#print "The dir is $dir\n";
sl@0: 	}
sl@0: 	else
sl@0: 	{
sl@0: 		return;
sl@0: 	}
sl@0: 	
sl@0: 	if($target eq "winsspd" )
sl@0: 	{
sl@0: 		if($_ =~ /winsspd/)
sl@0: 		{
sl@0: 			#print "Adding $target file $_ for $dir\n";
sl@0: 			$DirHash{$dir} = $dir."/".$_;
sl@0: 		}
sl@0: 	}
sl@0: 	elsif($target eq "winscw")
sl@0: 	{
sl@0: 		if($_ =~ /winscw/)
sl@0: 		{
sl@0: 			#print "Adding $target file $_ for $dir\n";
sl@0: 			$DirHash{$dir} = $dir."/".$_;
sl@0: 		}
sl@0: 	}
sl@0: 	elsif($_ =~ /$target/)
sl@0: 	{
sl@0: 		#print "$_ matched $target \n";
sl@0: 		#print "Adding $target file $_ for $dir\n";
sl@0: 		$DirHash{$dir} = $dir."/".$_;
sl@0: 	}
sl@0: 	elsif($_ =~/hw/)
sl@0: 	{
sl@0: 		#print "$_ matched hw";
sl@0: 		if(scalar $DirHash{$dir} == 0)
sl@0: 		{
sl@0: 			#print "Adding hw file $_ for $dir\n";
sl@0: 			$DirHash{$dir} = $dir."/".$_;
sl@0: 			#print " and added\n"
sl@0: 		}
sl@0: 		else
sl@0: 		{
sl@0: 			#print " and not added\n";
sl@0: 		}
sl@0: 	}
sl@0: }
sl@0: 
sl@0: 
sl@0: 
sl@0: sub emptyArray()
sl@0: {
sl@0: 	@generatedModules = ();
sl@0: }
sl@0: 
sl@0: sub GenDirs($)
sl@0: {
sl@0:  my $libname = shift @_;
sl@0:  my $dirname;
sl@0:  foreach my $module(@generatedModules)
sl@0:  {
sl@0:   $dirname = StripModulePrefix($module);
sl@0: 	my $relroot = $ATSRoot."\\components\\$libname"."_$dirname";
sl@0: 	mkdir $relroot || die("DIED: unable to create dir $dirname\n");
sl@0: 	mkdir $relroot."\\General" || die("DIED: unable to create dir $relroot\\General\n");
sl@0: 	if($do_armv5 == 1)
sl@0: 	{
sl@0: 		mkdir $relroot."\\armv5_urel" || die("DIED: unable to create dir $relroot\\armv5_urel\n");
sl@0: 	}
sl@0: 	if($do_winscw == 1)
sl@0: 	{
sl@0: 		mkdir $relroot."\\winscw_udeb" || die("DIED: unable to create dir $relroot\\winscw_udeb\n");
sl@0: 	}
sl@0:  }
sl@0: }
sl@0: 
sl@0: sub GenXmls($$$)
sl@0: {
sl@0: 	my $libname = shift @_;
sl@0: 	my $listedName = shift @_;
sl@0: 	my $bref = shift @_;
sl@0: 	my @filesToProcess = @$bref;
sl@0: 	
sl@0: 	#strip leading test and t names from module
sl@0: 	my $moduleName = StripModulePrefix($listedName);
sl@0: 
sl@0:       my $toPath = $ATSRoot."\\components\\$libname"."_$moduleName\\"; 
sl@0:         
sl@0: 
sl@0:        my $dst;
sl@0:        my $src;
sl@0:        foreach $src(@filesToProcess)
sl@0:        {
sl@0:                $dst = $src;
sl@0:                $dst =~ s/ATSTemplateXXX/$moduleName/;
sl@0:                $dst =~ s/LibXXX/$libname/;
sl@0:              
sl@0: 
sl@0:                if($src eq "testframework.ini")
sl@0:                {
sl@0: 					$dst =  $toPath."General\\".$dst;
sl@0:                }
sl@0:                else
sl@0:                {
sl@0: 					$dst =  $toPath.$dst;
sl@0:                }
sl@0:                copy($templateRoot."\\".$src, $dst) || die("DIED: Unable to copy $src to $dst\n");
sl@0:                ExpandModuleMacros($dst, $libname, $listedName);
sl@0:        }#foreach file
sl@0: }
sl@0: 
sl@0: 
sl@0: sub GenExeXmls()
sl@0: {
sl@0: 	my $moduleName = shift @_;
sl@0: 	my $libname = shift @_;
sl@0: 			
sl@0: 	my $toPath = $ATSRoot."\\components\\$libname"."_$moduleName\\"; 
sl@0:   my @filesToProcess =
sl@0:   (
sl@0:      "LibXXX_ATSTemplateXXX_exemodule_blr_hw_component.xml",
sl@0:      "LibXXX_ATSTemplateXXX_exemodule_blr_winsspd_component.xml",
sl@0:   );
sl@0: 	
sl@0: 	my $dst;
sl@0:   my $src;
sl@0:   foreach $src(@filesToProcess)
sl@0:   {
sl@0:         $dst = $src;
sl@0:         $dst =~ s/ATSTemplateXXX/$moduleName/;
sl@0:         $dst =~ s/LibXXX/$libname/;
sl@0:         $dst =~ s/_exemodule_/_module_/;
sl@0: 				$dst =  $toPath.$dst;
sl@0:         copy($templateRoot."\\".$src, $dst) || die("DIED: Unable to copy to $dst\n");
sl@0:         ExpandModuleMacros($dst, $libname, $moduleName);
sl@0:    }#foreach file
sl@0: }
sl@0: 
sl@0: #function to expand the macros existing in a file
sl@0: #file is replaced by new version
sl@0: #args are relativePath. filename and  $moduleName
sl@0: sub ExpandModuleMacros()
sl@0: {
sl@0: 	# Take module name
sl@0: 	my $moduleName = pop @_;
sl@0: 	my $libname = pop @_;
sl@0: 	my $filename = pop @_;
sl@0: 
sl@0: 	my $MODULENAME = $moduleName;
sl@0: 	$MODULENAME =~ tr/[a-z]/[A-Z]/;
sl@0: 
sl@0: 	# Open input file
sl@0: 	open (INFILE, $filename ) || die ("DIED: Can not find $filename");
sl@0: 
sl@0: 	#Open output file
sl@0: 	my $newOutput = $filename."new";
sl@0: 	open (OUTFILE, ">".$newOutput ) || die ("DIED: Can not open $newOutput");
sl@0: 
sl@0: 	# Replace text in files
sl@0: 	while (<INFILE>)
sl@0: 	{
sl@0: 	  s/ATSTemplateXXX/$moduleName/g;
sl@0: 	  s/LibXXX/$libname/g;
sl@0:     	  print OUTFILE $_;
sl@0: 	}
sl@0: 
sl@0: 	# Close filehandles
sl@0: 	close (INFILE);
sl@0: 	close (OUTFILE);
sl@0: 
sl@0: 	# Rename result file
sl@0: 	unlink $filename;
sl@0: 	rename $newOutput,$filename;
sl@0: }
sl@0: 
sl@0: 
sl@0: 
sl@0: sub CopyDeps($$)
sl@0: {
sl@0:   my $libname = shift @_;
sl@0:   my $copyDll = shift @_;
sl@0: 	my $src;
sl@0: 	my $dst;
sl@0: 	foreach my $listed(@generatedModules)
sl@0: 	{
sl@0: 				my $module = StripModulePrefix($listed);
sl@0: 				if($do_winscw == 1)
sl@0: 				{
sl@0: 					$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;
sl@0: 					$dst = $ATSRoot."\\components\\$libname"."_$module";
sl@0: 					$dst = $dst."\\winscw_udeb\\";
sl@0: 					copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 				}
sl@0: 				if($do_armv5 == 1)
sl@0: 				{
sl@0: 					$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;
sl@0: 					$dst = $ATSRoot."\\components\\$libname"."_$module";
sl@0: 					$dst = $dst."\\armv5_urel\\";
sl@0: 					copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 				}
sl@0: 	}#foreach
sl@0: }#fn
sl@0: 
sl@0: #dat file copy
sl@0: sub CopyDatFiles()
sl@0: {
sl@0: 	my $libRoot = $templateRoot;
sl@0: 	$libRoot =~ /(.*)internal.*/;
sl@0: 	$libRoot = $1;
sl@0: 
sl@0:  my @list = (
sl@0:   				 ["libcrypt", "tlibcrypt", "group/Test_Data.dat"],
sl@0:   				 ["libc", "tnetdb", "data/services.txt"],
sl@0:   				 ["libc", "tstring", "data/locales.txt"],
sl@0:   				 ["libc", "libc_loc_blr", "data/locales.txt"],
sl@0:   				 ["libz", "tzlib", "data/*.*"],
sl@0:   				 ["libc", "tlink", "data/*.*"],
sl@0:   				 ["libc", "tmmap", "data/*.*"],
sl@0:            );
sl@0: 
sl@0: 	 my $libname;
sl@0: 	 my $dirname;
sl@0: 	 my $glob;
sl@0: 	foreach my $ref(@list)
sl@0: 	{
sl@0: 			my @inarr = @$ref;
sl@0: 			($libname, $dirname, $glob) = @inarr;
sl@0: 			my $modulename = StripModulePrefix($dirname);
sl@0: 			my $src = "$libRoot/$libname/internal/testapps/$dirname/$glob";
sl@0: 			my $dst = $ATSRoot."\\components\\$libname"."_"."$modulename\\General\\";
sl@0:   		if($dirname eq "libc_loc_blr")
sl@0:   		{
sl@0:   			$src = "$libRoot/libc/src/locales.txt";
sl@0:   		}
sl@0:   		my @filesFound = glob($src);
sl@0:   		if(scalar @filesFound == 0)
sl@0:   		{
sl@0:   			die("DIED: no Dat file found to copy!");
sl@0:   		}
sl@0:   		foreach my $file(@filesFound)
sl@0:   		{
sl@0:   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");
sl@0:   		}
sl@0:   }#ref processing
sl@0: }#fn
sl@0: 
sl@0: 
sl@0: #glib dat file copy
sl@0: sub CopyArbitDatFiles($$)
sl@0: {
sl@0: 	
sl@0: 	 my $libname = shift @_;
sl@0: 	 my $refArr = shift @_;
sl@0: 	 my @list = @$refArr;
sl@0: 	 
sl@0:  	
sl@0: 	my $fname;
sl@0: 	my $modulename;
sl@0: 	my $location;
sl@0: 	my $atsDst;
sl@0: 	my $targetDst;
sl@0: 	
sl@0: 	#now copy the files appropriately
sl@0: 	foreach my $ref(@list)
sl@0: 	{
sl@0: 			my @inarr = @$ref;
sl@0: 			($fname, $modulename, $location, $atsDst, $targetDst) = @inarr;
sl@0: 			#print "[$fname, $modulename, $location, $atsDst, $targetDst]\n";
sl@0: 			if($location =~ /(.*)\.\.(.*)/)
sl@0: 			{
sl@0: 				$location = GetPathPrefix().$2;
sl@0: 			}
sl@0: 			else
sl@0: 			{
sl@0: 				$location = $rootDrive.$location;
sl@0: 			}
sl@0: 			my $src = $location.$fname;
sl@0: 			my $dst = $ATSRoot."\\components\\$libname"."_".$modulename.$atsDst;
sl@0: 			if($libname eq "")
sl@0: 			{
sl@0: 				$dst = $ATSRoot."\\components\\".$modulename.$atsDst;
sl@0: 				#print "$dst CHANGED!\n"
sl@0: 			}
sl@0:   		
sl@0:   		my @filesFound = glob($src);
sl@0:   		if(scalar @filesFound == 0)
sl@0:   		{
sl@0:   			die("DIED: no Dat file  $src found to copy!");
sl@0:   		}
sl@0:   		foreach my $file(@filesFound)
sl@0:   		{
sl@0:   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");
sl@0:   		}
sl@0:   		
sl@0:   		if($targetDst ne "")
sl@0:   		{
sl@0:   			 		my @filesToChange = ();
sl@0: 			  		if($atsDst =~ "armv5")
sl@0: 			  		{
sl@0: 			  			#armv5 component file
sl@0: 			  			unshift @filesToChange, $libname."_".$modulename."_module_blr_hw_component.xml";
sl@0: 			  			
sl@0: 			  		}
sl@0: 			  		elsif($atsDst =~ "winscw")
sl@0: 			  		{
sl@0: 			  			#winscw component file
sl@0: 			  			unshift @filesToChange, $libname."_".$modulename."_module_blr_winsspd_component.xml";
sl@0: 			  		}
sl@0: 			  		else
sl@0: 			  		{
sl@0: 			  			#add entry to both xmls
sl@0: 			  			unshift @filesToChange, $libname."_".$modulename."_module_blr_hw_component.xml";
sl@0: 			  			unshift @filesToChange, $libname."_".$modulename."_module_blr_winsspd_component.xml";
sl@0: 			  		}
sl@0: 			  		foreach my $file(@filesToChange)
sl@0: 			  		{
sl@0: 			  			$src = $ATSRoot."/components/".$libname."_"."$modulename/".$file;
sl@0: 			  			ModifyXml($src,$libname,$fname,$atsDst,$targetDst);
sl@0: 			  		}
sl@0: 			  }#updating the xmls
sl@0:     		
sl@0:   }#ref processing
sl@0:  
sl@0:   
sl@0: }#fn
sl@0: 
sl@0: sub ModifyXml($$$$$)
sl@0: {
sl@0: 	my $filename = shift @_;
sl@0: 	my $lib = shift @_;
sl@0: 	my $fname = shift @_;
sl@0: 	my $atsDst = shift @_;
sl@0: 	my $targetDst = shift @_;
sl@0: 	
sl@0: 	
sl@0: 	#printf("Modifying $filename with lib= $lib fname= $fname atsDst = $atsDst targetDst = $targetDst\n");
sl@0: 	
sl@0: 	# Open input file
sl@0: 	open (INFILE, $filename ) || die ("Can not find $filename");
sl@0: 
sl@0: 	#Open output file
sl@0: 	my $newOutput = $filename."new";
sl@0: 	open (OUTFILE, ">".$newOutput ) || die ("Can not open $newOutput");
sl@0: 
sl@0: 		
sl@0: 	# Replace text in files
sl@0: 	while (<INFILE>)
sl@0: 	{
sl@0: 	  if(/\<stif\>/ || /\<execute\>/)
sl@0: 	  {
sl@0: 	  	if(/\<stif\>/)
sl@0: 	  	{
sl@0: 	  		print OUTFILE "\<stif\>\n";
sl@0: 	  	}
sl@0: 	  	else
sl@0: 	  	{
sl@0: 	  		print OUTFILE "\<execute\>\n";
sl@0: 	  	}
sl@0: 	  	my $type = "data";
sl@0: 	  	if($atsDst !~ "General")
sl@0: 			{
sl@0: 				$type = "binary";
sl@0: 			}
sl@0: 			print OUTFILE <<EObinary;
sl@0: 				
sl@0: 	  		<install type=\"$type\">
sl@0: 				<src>$fname</src>
sl@0: 				<dst>$targetDst\\$fname</dst>
sl@0:  				</install>
sl@0: EObinary
sl@0: 	  }#stif or execute tag found
sl@0: 	  else
sl@0: 	  {
sl@0: 	  	  print OUTFILE $_;
sl@0: 	  }
sl@0: 	}#while
sl@0: 	# Close filehandles
sl@0: 	close (INFILE);
sl@0: 	close (OUTFILE);
sl@0: 
sl@0: 	# Rename result file
sl@0: 	unlink $filename;
sl@0: 	rename $newOutput,$filename;
sl@0: 	
sl@0: }#fn
sl@0: sub GenGenModules($)
sl@0: {
sl@0: 	my $libname = shift @_;
sl@0: 	
sl@0: 		
sl@0: 	my $src = $ATSRoot."/components/";
sl@0: 	my @fileList = ();
sl@0: 	opendir(DIRHANDLE, "$src") || die "Cannot opendir $src";
sl@0:   foreach my $name (readdir(DIRHANDLE)) 
sl@0:   {
sl@0:     if($name =~ /^$libname/)
sl@0:     {
sl@0:     	if($libname ne "libc" || $name !~ /^libcrypt/) 
sl@0:     	{
sl@0:     		$name =~ s/^$libname//;
sl@0:     		$name =~ s/^_//;
sl@0:     		unshift @fileList, $name;
sl@0:     	}#excluded libcrypt from libc list
sl@0:     }#libname match
sl@0:   }#foreach
sl@0:   closedir(DIRHANDLE);
sl@0: 	return @fileList;
sl@0: }
sl@0: 
sl@0: 
sl@0: sub GetAllModules()
sl@0: {
sl@0: 	
sl@0: 	my $src = $ATSRoot."/components/";
sl@0: 	my @fileList = ();
sl@0: 	opendir(DIRHANDLE, "$src") || die "Cannot opendir $src";
sl@0:   foreach my $name (readdir(DIRHANDLE)) 
sl@0:   {
sl@0:     	if($name ne "." && $name ne ".." && $name ne "shared")
sl@0: 			{
sl@0: 				unshift @fileList, $name;
sl@0: 			}
sl@0: 
sl@0:   }#foreach
sl@0:   closedir(DIRHANDLE);
sl@0: 	return @fileList;
sl@0: }
sl@0: 
sl@0: 
sl@0: 
sl@0: sub TransformXmls($$)
sl@0: {
sl@0: 	my $libname = shift @_;
sl@0: 	my $shared = shift @_;
sl@0: 	my $target = shift @_;
sl@0: 	my $module;
sl@0: 	my $src;
sl@0: 	my $dst;
sl@0: 
sl@0: 	my $armv5 = 0;
sl@0: 	my $winscw = 0;
sl@0: 	if($target eq "armv5")
sl@0: 	{
sl@0: 			$armv5 = 1;
sl@0:   }	
sl@0:   elsif($target eq "winscw")
sl@0:   {
sl@0:   		$winscw = 1;
sl@0:   }
sl@0:   else
sl@0:   {
sl@0:   	$armv5  = $do_armv5;
sl@0:   	$winscw = $do_winscw;
sl@0: 	}
sl@0: 		
sl@0: 
sl@0: 	foreach $module(@generatedModules)
sl@0: 	{
sl@0: 	  if($armv5 == 1 && $winscw == 1)
sl@0: 	  {
sl@0: 			$src = $ATSRoot."/components/".$libname."_"."$module/*.xml";
sl@0: 		}
sl@0: 		elsif($armv5 == 1)
sl@0: 		{
sl@0: 			$src = $ATSRoot."/components/".$libname."_"."$module/*_hw_component.xml";
sl@0: 		}
sl@0: 		elsif($winscw == 1)
sl@0: 		{
sl@0: 			$src = $ATSRoot."/components/".$libname."_"."$module/*_winsspd_component.xml";
sl@0: 		}
sl@0: 		my @fileList = glob($src);
sl@0: 		foreach my $file(@fileList)
sl@0: 		{
sl@0: 		 	#print"$file to  be transformed!\n";
sl@0: 			AddLibsInXml($libname,$file,$shared);
sl@0: 		}
sl@0:    }
sl@0: }#fn
sl@0: 
sl@0: sub AddLibsInXml($$$)
sl@0: {
sl@0: 	my $libname = shift @_;
sl@0: 	my $filename = shift @_;
sl@0: 	my $shared = shift @_;
sl@0: 	
sl@0: 	# Open input file
sl@0: 	open (INFILE, $filename ) || die ("Can not find $filename");
sl@0: 
sl@0: 	#Open output file
sl@0: 	my $newOutput = $filename."new";
sl@0: 	open (OUTFILE, ">".$newOutput ) || die ("Can not open $newOutput");
sl@0: 
sl@0: 	my $drive = "c:";
sl@0: 	
sl@0: 	# Replace text in files
sl@0: 	while (<INFILE>)
sl@0: 	{
sl@0: 	  if(/\<stif\>/ || /\<execute\>/)
sl@0: 	  {
sl@0: 	  	if(/\<stif\>/)
sl@0: 	  	{
sl@0: 	  		print OUTFILE "\<stif\>\n";
sl@0: 	  	}
sl@0: 	  	else
sl@0: 	  	{
sl@0: 	  		print OUTFILE "\<execute\>\n";
sl@0: 	  		if($filename =~ /winsspd/)
sl@0: 				{
sl@0: 					$drive = "z:";
sl@0: 				}
sl@0: 	  	}
sl@0: 	  	foreach my $installable(@dllList)
sl@0: 			{
sl@0: 				print OUTFILE <<EOLine;
sl@0: 				
sl@0: 	  		<install type=\"$shared binary\">
sl@0: 				<src>$installable</src>
sl@0: 				<dst>$drive\\sys\\bin\\$installable</dst>
sl@0:  				</install>
sl@0: EOLine
sl@0: 			}
sl@0: 
sl@0: 	  }
sl@0: 	  else
sl@0: 	  {
sl@0: 	  	  print OUTFILE $_;
sl@0: 	  }
sl@0: 	}#while
sl@0: 	# Close filehandles
sl@0: 	close (INFILE);
sl@0: 	close (OUTFILE);
sl@0: 
sl@0: 	# Rename result file
sl@0: 	unlink $filename;
sl@0: 	rename $newOutput,$filename;
sl@0: }
sl@0: 
sl@0: sub CopySharedDlls()
sl@0: {
sl@0:   my $libname = shift @_;
sl@0:   my $ref = shift @_;
sl@0:   my @ListOfDlls = @$ref;
sl@0:   my $target = shift @_;
sl@0: 	my $module;
sl@0: 	my $src;
sl@0: 	my $dst;
sl@0: 	
sl@0: 	my $do_armv5 = 0;
sl@0: 	my $do_winscw = 0;
sl@0: 	if($target eq "armv5")
sl@0: 	{
sl@0: 		$do_armv5 = 1;
sl@0: 	}
sl@0: 	elsif($target eq "winscw")
sl@0: 	{
sl@0: 		$do_winscw =  1;
sl@0: 	}
sl@0: 	else
sl@0: 	{
sl@0: 		$do_armv5  = 1;
sl@0: 		$do_winscw = 1;
sl@0: 	}
sl@0: 	
sl@0: 	
sl@0: 	mkdir  $ATSRoot."\\components\\shared" || die("Wouldn't make shared folder in $ATSRoot\\components");
sl@0: 	if($do_winscw == 1)
sl@0: 	{
sl@0: 		mkdir  $ATSRoot."\\components\\shared\\winscw_udeb" || die("Wouldn't make shared folder in $ATSRoot\\components\winscw_udeb");
sl@0: 	}
sl@0: 	if($do_armv5 == 1)
sl@0: 	{
sl@0: 		mkdir  $ATSRoot."\\components\\shared\\armv5_urel" || die("Wouldn't make shared folder in $ATSRoot\\components\armv5_urel");
sl@0: 	}
sl@0: 	
sl@0: 	foreach my $copyDll(@ListOfDlls)
sl@0: 	{
sl@0: 		if($do_winscw == 1)
sl@0: 		{
sl@0: 			$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;
sl@0: 			$dst = $ATSRoot."\\components\\shared";
sl@0: 			$dst = $dst."\\winscw_udeb\\";
sl@0: 			copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 		}	
sl@0: 		if($do_armv5 == 1)
sl@0: 		{	
sl@0: 			$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;
sl@0: 			$dst = $ATSRoot."\\components\\shared";
sl@0: 			$dst = $dst."\\armv5_urel\\";
sl@0: 			copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 		}
sl@0: 	}#foreach
sl@0: }#fn
sl@0: 
sl@0: 
sl@0: sub CopyMultiDlls($)
sl@0: {
sl@0:   my $libname = shift @_;
sl@0: 	my $module;
sl@0: 	my $src;
sl@0: 	my $dst;
sl@0: 	foreach my $listed(@generatedModules)
sl@0: 	{
sl@0: 		foreach my $copyDll(@dllList)
sl@0: 		{
sl@0: 			if($do_winscw == 1)
sl@0: 			{
sl@0: 				$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;
sl@0: 				$dst = $ATSRoot."\\components\\$libname"."_$listed";
sl@0: 				$dst = $dst."\\winscw_udeb\\";
sl@0: 				copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 			}
sl@0: 			if($do_armv5 == 1)
sl@0: 			{
sl@0: 				$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;
sl@0: 				$dst = $ATSRoot."\\components\\$libname"."_$listed";
sl@0: 				$dst = $dst."\\armv5_urel\\";
sl@0: 				copy($src, $dst)  || warn("unable to copy $src to $dst");
sl@0: 			}
sl@0: 		}#foreach
sl@0: 	}
sl@0: }#fn
sl@0: 
sl@0: sub StripModulePrefix($)
sl@0: {
sl@0: 	my $listed = pop @_;
sl@0: 	my $module = $listed;
sl@0: 	if($dontStrip == 0)
sl@0: 	{
sl@0: 		$module =~ s/^test//;
sl@0: 		$module =~ s/^t//;
sl@0: 		$module =~ s/^libc_//;
sl@0: 		$module =~ s/^libm_//;
sl@0:   }
sl@0:   return $module;
sl@0:   	
sl@0: }
sl@0: 
sl@0: sub GetLsbModules()
sl@0: {
sl@0: 	my @lsbList = 
sl@0: 	(
sl@0: 	 "abs",
sl@0: "acos",
sl@0: "asctime",
sl@0: "asin",
sl@0: "atan",
sl@0: "atan2",
sl@0: "atof",
sl@0: "atoi",
sl@0: "atol",
sl@0: "bsearch",
sl@0: "calloc",
sl@0: "ceil",
sl@0: "chdir",
sl@0: "clearerr",
sl@0: "close",
sl@0: "closedir",
sl@0: "cos",
sl@0: "cosh",
sl@0: "creat",
sl@0: "lsb_ctime",
sl@0: "lsb_difftime",
sl@0: "dlclose",
sl@0: "dlerror",
sl@0: "dlopen",
sl@0: "dup",
sl@0: "dup2",
sl@0: "exp",
sl@0: "fabs",
sl@0: "fclose",
sl@0: "fcntl_x",
sl@0: "fdopen",
sl@0: "feof",
sl@0: "ferror",
sl@0: "fflush",
sl@0: "fgetpos",
sl@0: "fgets",
sl@0: "fileno",
sl@0: "floor",
sl@0: "fmod",
sl@0: "fopen",
sl@0: "fopen_X",
sl@0: "fprintf",
sl@0: "fputs",
sl@0: "fread",
sl@0: "free",
sl@0: "freopen",
sl@0: "freopen_X",
sl@0: "frexp",
sl@0: "fseek",
sl@0: "fsetpos",
sl@0: "fstat",
sl@0: "ftell",
sl@0: "ftok",
sl@0: "ftok_l",
sl@0: "fwrite",
sl@0: "getc",
sl@0: "getcwd",
sl@0: "gets",
sl@0: "lsb_gmtime",
sl@0: "ldexp",
sl@0: "link",
sl@0: "lsb_localtime",
sl@0: "log",
sl@0: "log10",
sl@0: "longjmp",
sl@0: "lseek",
sl@0: "malloc",
sl@0: "memchr_X",
sl@0: "memcmp_X",
sl@0: "memcpy_X",
sl@0: "memmove",
sl@0: "memset_X",
sl@0: "mkdir",
sl@0: "mkfifo",
sl@0: "lsb_mktime",
sl@0: "modf",
sl@0: "msgctl",
sl@0: "msgget",
sl@0: "msgsnd",
sl@0: "open",
sl@0: "opendir",
sl@0: "open_x",
sl@0: "perror",
sl@0: "pipe",
sl@0: "pow",
sl@0: "printf",
sl@0: "qsort",
sl@0: "rand",
sl@0: "read",
sl@0: "readdir",
sl@0: "readv_l",
sl@0: "realloc",
sl@0: "remove",
sl@0: "rename",
sl@0: "rewind",
sl@0: "rewinddir",
sl@0: "rmdir",
sl@0: "scanf",
sl@0: "scanf_X",
sl@0: "seekdir",
sl@0: "semctl",
sl@0: "semget",
sl@0: "semop",
sl@0: "setbuf",
sl@0: "setjmp",
sl@0: "shmat",
sl@0: "shmdt",
sl@0: "shmget",
sl@0: "sin",
sl@0: "sinh",
sl@0: "sqrt",
sl@0: "srand",
sl@0: "stat",
sl@0: "strcat",
sl@0: "strchr",
sl@0: "strcmp",
sl@0: "strcoll_X",
sl@0: "strcpy",
sl@0: "strcspn",
sl@0: "strerror_X",
sl@0: "strftime",
sl@0: "strftime_X",
sl@0: "strlen",
sl@0: "strncat",
sl@0: "strncmp",
sl@0: "strncpy",
sl@0: "strpbrk",
sl@0: "strptime",
sl@0: "strrchr",
sl@0: "strspn",
sl@0: "strstr",
sl@0: "strtod_X",
sl@0: "strtok",
sl@0: "strtol_X",
sl@0: "strxfrm_X",
sl@0: "tan",
sl@0: "tanh",
sl@0: "telldir",
sl@0: "telldir_l",
sl@0: "lsb_time",
sl@0: "tmpfile",
sl@0: "tmpnam",
sl@0: "ungetc",
sl@0: "unlink",
sl@0: "utime",
sl@0: "vfprintf",
sl@0: "vprintf",
sl@0: "write",
sl@0: "writev_l",
sl@0: 
sl@0: 	);
sl@0:   return @lsbList;
sl@0: }
sl@0: 
sl@0: 
sl@0: 
sl@0: sub GenBackendTest()
sl@0: {
sl@0: 
sl@0: 	my @datList = 
sl@0: 	(
sl@0: 	["libc", "tlibcbackend"],
sl@0: 	);
sl@0: 	
sl@0: 	mkdir $ATSRoot;
sl@0: 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
sl@0: 		
sl@0: 	my $lib;
sl@0: 	my $module;
sl@0: 	my $ext;
sl@0: 	foreach my $ref(@datList)
sl@0: 	{
sl@0: 			my @inarr = @$ref;
sl@0: 			($lib, $module,$ext) = @inarr;
sl@0: 			@generatedModules = ($module);
sl@0: 			GenDirs($lib);
sl@0: 			CopyDlls($lib,".dll");
sl@0: 	}
sl@0:  #now copy xmls			
sl@0:  CopyAtsSetup();
sl@0:  #extra exes
sl@0:  @generatedModules = ("tlibcbackend");
sl@0:  CopyDeps("libc","TPopenReadChild.exe");
sl@0:  CopyDeps("libc","TPopenWriteChild.exe");
sl@0: 			
sl@0: }#fn
sl@0: 
sl@0: sub CopyAtsSetup()
sl@0: {
sl@0: 	 my $libname = "libc"; 
sl@0: 	 my @list = (
sl@0:   				 ["*.xml", "libcbackend", "/../backend/internal/tlibcbackend/group/","/", ""],
sl@0:   				 ["*.cfg", "libcbackend", "/../backend/internal/tlibcbackend/group/","/General/", ""],
sl@0:   				 ["*.ini", "libcbackend", "/../backend/internal/tlibcbackend/group/","/General/", ""],
sl@0:   				 );
sl@0:  
sl@0:   my $bDataRef = \@list;  				 
sl@0: 	CopyArbitDatFiles("libc",$bDataRef);  				 
sl@0: 
sl@0: }#fn
sl@0: sub GetPathPrefix()
sl@0: {
sl@0: 	 my $srcPrefix = $templateRoot;
sl@0: 	 $srcPrefix =~ /(.*)internal.*/;
sl@0: 	 $srcPrefix = $1;
sl@0: 	 return $srcPrefix;
sl@0: }
sl@0: 	
sl@0: 
sl@0: #dat file copy
sl@0: sub CopyCryptoDat()
sl@0: {
sl@0: 	my $libRoot = $templateRoot;
sl@0: 	$libRoot =~ /(.*)internal.*/;
sl@0: 	$libRoot = $1;
sl@0: 
sl@0:  my @list = (
sl@0:  								 ["libssl", "ssltest", "libssl/internal/testapps/ssl_test/data/*"],
sl@0:  								 ["libcrypto", "topenssl", "/libcrypto/internal/testapps/topenssl/data/*"],
sl@0:            );
sl@0: 
sl@0: 	 my $libname;
sl@0: 	 my $dirname;
sl@0: 	 my $glob;
sl@0: 	foreach my $ref(@list)
sl@0: 	{
sl@0: 			my @inarr = @$ref;
sl@0: 			($libname, $dirname, $glob) = @inarr;
sl@0: 			my $modulename = StripModulePrefix($dirname);
sl@0: 			my	$srcPrefix = GetPathPrefix();
sl@0: 			
sl@0: 			my $src = "$srcPrefix"."$glob";
sl@0: 			
sl@0: 			my $dst = $ATSRoot."\\components\\$libname"."_"."$modulename\\General\\";
sl@0:   		my @filesFound = glob($src);
sl@0:   		if(scalar @filesFound == 0)
sl@0:   		{
sl@0:   			die("DIED: no Dat file found to copy!");
sl@0:   		}
sl@0:   		foreach my $file(@filesFound)
sl@0:   		{
sl@0:   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");
sl@0:   		}
sl@0:   }#ref processing
sl@0: }#fn
sl@0: 
sl@0: #Crypto xmls copy
sl@0: sub CopyCryptoXmls()
sl@0: {
sl@0: 	  my @list = (
sl@0:   				 ["*.xml", "libssl_ssltest/", "/libssl/internal/testapps/ssl_test/group/"],
sl@0:    				 ["*.xml", "libcrypto_crypto_test/", "/libcrypto/internal/testapps/crypto_test/group/"],
sl@0:    				 ["*.xml", "libcrypto_openssl/", "/libcrypto/internal/testapps/topenssl/group/"],   				    				 			 
sl@0:   				 );
sl@0: 
sl@0: 	
sl@0: 	my $fname;
sl@0: 	my $moduleDst;
sl@0: 	my $location;
sl@0: 	
sl@0: 	#now copy the files appropriately
sl@0: 	foreach my $ref(@list)
sl@0: 	{
sl@0: 			my @inarr = @$ref;
sl@0: 			($fname, $moduleDst, $location) = @inarr;
sl@0: 			my $src = GetPathPrefix().$location.$fname;
sl@0: 			my $dst = $ATSRoot."\\components\\$moduleDst";
sl@0:   		
sl@0:   		my @filesFound = glob($src);
sl@0:   		if(scalar @filesFound == 0)
sl@0:   		{
sl@0:   			die("DIED: no xml file found to copy!");
sl@0:   		}
sl@0:   		foreach my $file(@filesFound)
sl@0:   		{
sl@0:   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");
sl@0:   		}
sl@0:   	}#ref
sl@0:   	
sl@0:   	my @crypto_copyList = ("*.txt", "*cfg", "*.ini");
sl@0:   	
sl@0:   	foreach my $item(@crypto_copyList)
sl@0:   	{
sl@0:   			$location = "/libcrypto/internal/testapps/crypto_test/group/";
sl@0:   			$fname = GetPathPrefix().$location.$item;
sl@0:   			my @filesFound = glob($fname);
sl@0:   			foreach my $file(@filesFound)
sl@0:   			{
sl@0:     			$moduleDst = "libcrypto_crypto_test/";	
sl@0:   				my $dst = $ATSRoot."\\components\\".$moduleDst."/General/";
sl@0:   				copy($file, $dst);
sl@0:   			}
sl@0:   	}
sl@0: }#fn
sl@0: 
sl@0: sub GenCryptoTest()
sl@0: {
sl@0: 
sl@0: 	my @datList = 
sl@0: 	(
sl@0: 	["libssl", "ssltest", ".exe"],
sl@0: 	["libcrypto", "crypto_test",".dll"],
sl@0: 	["libcrypto", "openssl",".exe"],
sl@0: 	);
sl@0: 	
sl@0: 	mkdir $ATSRoot;
sl@0: 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
sl@0: 		
sl@0: 	my $lib;
sl@0: 	my $module;
sl@0: 	my $ext;
sl@0: 	foreach my $ref(@datList)
sl@0: 	{
sl@0: 			my @inarr = @$ref;
sl@0: 			($lib, $module,$ext) = @inarr;
sl@0: 			@generatedModules = ($module);
sl@0: 			GenDirs($lib);
sl@0: 			CopyDlls($lib,$ext);
sl@0: 	}
sl@0: 	CopyCryptoDat();
sl@0: 	CopyCryptoXmls();
sl@0: 	
sl@0: 			
sl@0: }#fn
sl@0: 
sl@0: 
sl@0: #ngi xml copy
sl@0: sub CopyNgiXmls()
sl@0: {
sl@0: 	  my @list = (
sl@0:    				 ["*.xml", "ngi_sa_amrrecording", "/audio/lowlevelaudio/internal/sa_amrrecording/group/"],
sl@0:    				 ["*.xml", "ngi_sa_highlevelaudio", "/audio/highlevelaudio/internal/sa_highlevelaudio/group/"],
sl@0:   				 ["*.xml", "ngi_sa_audiomixing", "/audio/lowlevelaudio/internal/sa_audiomixing/group/"],
sl@0:   				 ["*.xml", "ngi_sa_audiorecording", "/audio/lowlevelaudio/internal/sa_audiorecording/group/"],
sl@0:   				 ["*.xml", "ngi_sa_clip", "/audio/lowlevelaudio/internal/sa_clip/group/"],
sl@0:   				 ["*.xml", "ngi_sa_lowlevelaudio", "/audio/lowlevelaudio/internal/sa_lowlevelaudio/group/"],
sl@0:   				 ["*.xml", "ngi_sa_stream", "/audio/lowlevelaudio/internal/sa_stream/group/"],
sl@0:   				 
sl@0:   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_antitearing/group/"],
sl@0:   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_colortranslation/group/"],
sl@0:   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_createfb565/group/"],
sl@0:   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_createfb888/group/"],
sl@0:   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_heapusage/group/"],
sl@0:   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_multibb/group/"],
sl@0:   				 ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_performance/group/"],
sl@0:            ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_plswitching/group/"],
sl@0:            ["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_misc/group/"],
sl@0:   				 ["*.xml", "ngi_sa_bitmap", "/graphics/bitmap/internal/sa_bitmap/group/"],
sl@0:   				 ["*.xml", "ngi_sa_camera", "/graphics/camera/internal/sa_camera/group/"],
sl@0:   				 ["*.xml", "ngi_sa_images", "/graphics/images/internal/sa_images/group/"],
sl@0:   				 ["*.xml", "ngi_sa_display", "/graphics/display/internal/sa_display/group/"],
sl@0:   				 ["*.xml", "ngi_sa_lights", "/graphics/lights/internal/sa_lights/group/"],
sl@0:   				 ["*.xml", "ngi_sa_videoplayback", "/graphics/video/internal/sa_videoplayback/group/"],
sl@0:   				 
sl@0:   				 ["*.xml", "ngi_sa_input", "/input/input/internal/sa_input/group/"],
sl@0:   				 ["*.xml", "ngi_sa_textinput", "/input/textinput/internal/sa_textinput/group/"],
sl@0:   				 ["*.xml", "ngi_sa_devicecapabilities", "/system/devicecapabilities/internal/sa_devicecapabilities/group/"],
sl@0:   				 ["*.xml", "ngi_sa_devicestatus", "/system/devicestatus/internal/sa_phone/group/"],
sl@0:   				 ["*.xml", "ngi_sa_runtimetester", "/system/runtime/internal/sa_runtimetester/group/"],
sl@0:   				 ["*.xml", "ngi_sa_timing", "/timing/internal/sa_timing/group/"],
sl@0: 	  				 );
sl@0: 
sl@0: 	
sl@0: 	my $fname;
sl@0: 	my $moduleDst;
sl@0: 	my $location;
sl@0: 	
sl@0: 	#now copy the files appropriately
sl@0: 	foreach my $ref(@list)
sl@0: 	{
sl@0: 			my @inarr = @$ref;
sl@0: 			($fname, $moduleDst, $location) = @inarr;
sl@0: 			my $src = GetPathPrefix().$location.$fname;
sl@0: 			my $dst = $ATSRoot."\\components\\$moduleDst";
sl@0: 			
sl@0: 			#print "My src is $src\n";
sl@0: 			#print "My dst is $dst\n";
sl@0: 			  		
sl@0:   		my @filesFound = glob($src);
sl@0:   		if(scalar @filesFound == 0)
sl@0:   		{
sl@0:   			warn("warning: no xml file found to copy from $src!");
sl@0:   		}
sl@0:   		foreach my $file(@filesFound)
sl@0:   		{
sl@0:   			copy($file, $dst) || die("DIED: unable to copy $file to $dst");
sl@0:   		}
sl@0:   	}#ref
sl@0:     	
sl@0: }#fn
sl@0: 
sl@0: 
sl@0: sub GenNgiTest()
sl@0: {
sl@0: 
sl@0: 	my @datList = 
sl@0: 	(
sl@0: 	["ngi", "sa_amrrecording", ".dll"],
sl@0: 	["ngi", "sa_highlevelaudio", ".dll"],
sl@0: 	["ngi", "sa_audiomixing", ".dll"],
sl@0: 	["ngi", "sa_audiorecording", ".dll"],
sl@0: 	["ngi", "sa_clip", ".dll"],
sl@0: 	["ngi", "sa_lowlevelaudio", ".dll"],
sl@0: 	["ngi", "sa_stream", ".dll"],
sl@0: 	["ngi", "sa_bitmap", ".dll"],
sl@0: 	["ngi", "sa_camera", ".dll"],
sl@0: 	["ngi", "sa_images", ".dll"],
sl@0: 	["ngi", "sa_display", ".dll"],
sl@0: 	["ngi", "sa_lights", ".dll"],	
sl@0: 	["ngi", "sa_videoplayback", ".dll"],	
sl@0: 	["ngi", "sa_input", ".dll"],	
sl@0: 	["ngi", "sa_textinput", ".dll"],
sl@0: 	["ngi", "sa_devicecapabilities", ".dll"],	
sl@0: 	["ngi", "sa_devicestatus", ".dll"],	
sl@0: 	["ngi", "sa_runtimetester", ".dll"],	
sl@0: 	["ngi", "sa_timing", ".dll"],	
sl@0: 		
sl@0: 	);
sl@0: 	
sl@0: 	mkdir $ATSRoot;
sl@0: 	mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
sl@0: 
sl@0: 		
sl@0: 	my $lib;
sl@0: 	my $module;
sl@0: 	my $ext;
sl@0: 	foreach my $ref(@datList)
sl@0: 	{
sl@0: 			my @inarr = @$ref;
sl@0: 			($lib, $module,$ext) = @inarr;
sl@0: 			@generatedModules = ($module);
sl@0: 			GenDirs($lib);
sl@0: 			CopyDlls($lib,$ext);
sl@0: 	}
sl@0: 	
sl@0:    @generatedModules =("sa_backbuffer");
sl@0:    GenDirs($lib);
sl@0:    @dllList = 
sl@0:    (
sl@0:    	"sa_bb_antitearing.dll",
sl@0:    	"sa_bb_colortranslation.dll",
sl@0:    	"sa_bb_createfb444.dll",
sl@0:    	"sa_bb_createfb565.dll",
sl@0:    	"sa_bb_createfb888.dll",
sl@0:    	"sa_bb_misc.dll",
sl@0:    	"sa_bb_heapusage.dll",
sl@0:    	"sa_bb_multibb.dll",
sl@0:    	"sa_bb_performance.dll",
sl@0:    	"sa_bb_plswitch.dll",
sl@0:    	"sa_bb_testenv.dll"
sl@0:    );
sl@0:    CopyMultiDlls("ngi");
sl@0: 
sl@0: 	
sl@0:  	mkdir  $ATSRoot."\\components\\shared" || die("Wouldn't make shared folder in $ATSRoot\\components");
sl@0:   mkdir  $ATSRoot."\\components\\shared\\winscw_udeb" || die("Wouldn't make shared folder in $ATSRoot\\components\winscw_udeb");
sl@0:   mkdir  $ATSRoot."\\components\\shared\\armv5_urel" || die("Wouldn't make shared folder in $ATSRoot\\components\armv5_urel");
sl@0: 			
sl@0: }#fn
sl@0: 
sl@0: 
sl@0: sub GetXmls()
sl@0: {
sl@0:   my @foundList;
sl@0:   my $libname = shift @_;
sl@0: 	my @globlist = ();
sl@0: 	if($target eq "winsspd" && $sdkversion ne "")
sl@0: 	{
sl@0: 		@globlist = ("winsspd_".$sdkversion);
sl@0: 		#print "winsspd ".$sdkversion." selected\n";
sl@0: 	}
sl@0: 	elsif($target eq "winsspd")
sl@0: 	{
sl@0: 		@globlist = ("winsspd");
sl@0: 		#print "winsspd selected\n";
sl@0: 	}
sl@0: 	elsif($sdkversion ne "")
sl@0: 	{
sl@0: 		@globlist = ($target,"hw_".$sdkversion);
sl@0: 		#print "$target $sdkversion selected\n";
sl@0: 	}
sl@0: 	else
sl@0: 	{
sl@0: 		@globlist = ($target,"hw");
sl@0: 		#print "$target $sdkversion selected\n";
sl@0: 	}
sl@0: 	
sl@0: 	foreach my $module(@generatedModules)
sl@0: 	{
sl@0: 	  my $glob_to_use = "";
sl@0: 	  my @fileList;
sl@0: 	  foreach my $glob(@globlist)
sl@0: 	  {
sl@0: 			my $src = $ATSRoot."/components/".$libname."_"."$module/*.xml";
sl@0: 			#print "Analysing $module and  $glob\n";
sl@0: 			@fileList = glob($src);
sl@0: 			foreach my $file(@fileList)
sl@0: 			{
sl@0: 			 my $pat = $glob."\_component\.xml";
sl@0: 			 #print "[$file - $glob"."_component.xml"."]\n";
sl@0: 				if($file =~ /$pat/)
sl@0: 				{
sl@0: 					$glob_to_use = $pat;
sl@0: 					#print "[$file - $glob"."_component.xml"."]\n";
sl@0: 					last
sl@0: 				}
sl@0: 			}#foreach FILE
sl@0: 			if($glob_to_use ne "")
sl@0: 			{
sl@0: 				last;
sl@0: 			}
sl@0: 		}#finding glob	
sl@0: 		if($glob_to_use ne "")
sl@0: 		{
sl@0: 				#print "Using the glob $glob_to_use\n";
sl@0: 				my $src = $ATSRoot."/components/".$libname."_"."$module/*.xml";
sl@0: 				@fileList = glob($src);
sl@0: 				foreach my $file(@fileList)
sl@0: 				{
sl@0: 					#print "[$file - $glob_to_use]\n";
sl@0: 					if($file =~ /$glob_to_use/)
sl@0: 					{
sl@0: 				  	$file =~ /.*components[\\\/](.*)/;
sl@0: 				  	my $value = $1;
sl@0: 				  	$value =~ s/\//\\/g;
sl@0: 				  	#print "adding $value for $module with $glob_to_use\n";
sl@0: 						unshift @foundList,$value;
sl@0: 				  }#if
sl@0: 				}#foreach
sl@0: 		}#glob is present
sl@0: 		else
sl@0: 		{
sl@0: 			warn("Unable to figure out glob to use for $module. Skipping...\n");
sl@0: 		}
sl@0: 	}#each module
sl@0:   return @foundList;
sl@0:  }#fn
sl@0: 
sl@0: __END__
sl@0: :end
sl@0: 
sl@0: 
sl@0: 
sl@0: