@rem

@rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).

@rem All rights reserved.

@rem This component and the accompanying materials are made available

@rem under the terms of "Eclipse Public License v1.0"

@rem which accompanies this distribution, and is available

@rem at the URL "http://www.eclipse.org/legal/epl-v10.html".

@rem

@rem Initial Contributors:

@rem Nokia Corporation - initial contribution.

@rem

@rem Contributors:

@rem

@rem Description: 

@rem

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

@goto end

#!perl

use strict;

use File::Find;

use File::Copy;

use Cwd;

use File::Basename;

my $target = "winsspd";

my $suite;

my $install = "no";

my $session = "no";

my $combinedSession = "no";

my $sdkversion="";

my $noXmlsGenList = "play_new";

my @AllModuleList = ();

my %DirHash;

my $sendEmail = "no";

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

my $templateRoot = getcwd();

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

if($ENV{'ATS_SETUP'}  ne "")

{

 $sendEmail = "yes";

 $rootDrive = $ENV{'ATS_INDRIVE'};

 $templateRoot = $ENV{'ATS_TEMPLATEROOT'};

 $ATSRoot = $ENV{'ATS_ATSOUTDRIVE'};

}

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

{

	print <<EOHelp;

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

Usage:

	genatsmodules.bat

		Create ATSINPUT for the default testsuite based on 

		location it is executed from place in stdlibs/internal 

		and run and it generates ATSINPUT for stdlibs

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

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

    and ngi respectively	

  genatsmodules [libname]

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

			ats test drop for given library. Valid from any internal

			folder of mobileruntime.

  genatsmodules ngi

			create ngi testsuite. Valid inside ngi/internal only

genatsmodules play_new

			create play_new testsuite. Valid inside play_new/internal only

	genatsmodules ltp

			create ltp testsuite. Valid inside stdlibs/internal only

	genatsmodules lsb

			create lsb testsuite. Valid inside stdlibs/internal only

	genatsmodules stdcpp

			create stdcpp testsuite. Valid inside stdcpp/internal only

	genatsmodules [libname] install 

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

		 ATSINPUT where the dependent mobileruntime libraries are also 

		 copied and used (It copies the dependent libraries using the 

		 ATS component files)

	genatsmodules session [libname] [target] 		

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

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

		session files for scarfe, winsspd etc. 

genatsmodules session combined [target] 				

      will look at the existing ATSINPUT(which can have any 

      combination of created components and create a combined 

      session file. This way you get increased flexibility in 

      the libraries you choose to combine into a single session 

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

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

      specific component file and if not found, the generic hw 

      component file. 

	Note:

	ATSINPUT creation is a 2 stage process. First we create 

	the components and then we run (for example) 

	"genatsmodules session stdlibs winscw" and 

	"genatsmodules session stdlibs scarfe" to create the 

	session files.

EOHelp

		exit();

}

my $do_armv5 = 1;

my $do_winscw = 1;

if(scalar @ARGV == 1)

{

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

	{

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

	}

	else

	{

		$suite = $ARGV[0];

	}

}

elsif(scalar @ARGV == 2)

{

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

	{

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

	}

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

	{

		$suite = $ARGV[0];

		$install = "yes";

	}

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

	{

		$do_winscw = 0;

	}

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

	{

		$do_armv5 = 0; 

	}

	else

	{

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

	}

}

elsif(scalar @ARGV == 3)

{

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

		{

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

		}

		else

		{

			$session = "yes";

			$suite = $ARGV[1];

			$target = $ARGV[2];

			if($suite eq "combined")

			{		

				$combinedSession = "yes";

	  	}

		}

}

elsif(scalar @ARGV == 4)

{

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

		{

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

		}

		else

		{

			$session = "yes";

			$suite = $ARGV[1];

			$target = $ARGV[2];

			$sdkversion = $ARGV[3];

			if($suite eq "combined")

			{		

				$combinedSession = "yes";

	  	}

		}

}

else

{

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

}#end of commandline processing

if( 0 )

{

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

}

else

{

	 my $srcPrefix = getcwd();

	 $srcPrefix =~ /(.*)internal.*/;

	 $srcPrefix = $1;

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

	 {

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

	 	$srcPrefix = $1;

	 	if($suite eq "glib")

	 	{

	 		$templateRoot = $srcPrefix."/glib/internal/";

	 	}

	 	elsif($suite eq "ssl")

	 	{

	 		$templateRoot = $srcPrefix."/ssl/internal/";

	 	}

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

	 	{

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

	 		exit();

	 	}

	 }

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

	{

		$suite = "glib";

	}

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

	{

		$suite = "ssl";

	}

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

	{

		$suite = "ngi";

	}

}

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

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

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

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

my @stdexeList = ("boost","Boost_test");

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

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

my @generatedModules;

my %cfglocation;

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

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

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

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

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

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

		      "twcharapi",

               );

my @libdlModules = ("tlibdl");

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

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

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

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

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

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

my @stdcpplist = (

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

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

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

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

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

  			#	 ["test.txt", "platsectest6", "/../internal/testapps/doc/", "/General/", "C:\\resource"],

  			# ["test.txt", "platsectest11", "/../internal/testapps/doc/", "/General/", "C:\\sys"],

);

my @gliblist = (

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

   				 ["1.gmarkup", "markup-test", "/epoc32/winscw/c/", "/General/", "C:"],

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

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

#  				 ["casemap.bin",  "unicode-caseconv",  "/epoc32/winscw/c/", "/General/", "C:"],

#  				 ["casefold.bin", "unicode-caseconv",  "/epoc32/winscw/c/", "/General/", "C:"],

  				 ["utf8.txt", "unicode-encoding","/epoc32/winscw/c/", "/General/", "C:"],

  				 ["casecollate.txt", "unicode-collate","/epoc32/winscw/c/", "/General/", "C:"],

  				 ["utf8_hindi.txt", "tutf8","/epoc32/winscw/c/", "/General/", "C:"],

  				 ["scanfile.txt", "tscanner","/epoc32/winscw/c/", "/General/", "C:"],

  				 ["test.txt", "dir_test","/epoc32/winscw/c/temp/tmp/", "/General/", "C:\\temp\\tmp"],

  				 ["NormalizationTest.txt", "unicode-normalize","/epoc32/winscw/c/", "/General/", "C:"],

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

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

  				 ["libmoduletestplugin_a.dll", "module-test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],

  				 ["libmoduletestplugin_a.dll", "module-test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],

  				 ["libmoduletestplugin_b.dll", "module-test","/epoc32/release/armv5/urel/", "/armv5_urel/", "C:\\sys\\bin"],

  				 ["libmoduletestplugin_b.dll", "module-test","/epoc32/release/winscw/udeb/", "/winscw_udeb/", "Z:\\sys\\bin"],

  				 );

my @ngilist = (

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

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

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

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

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

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

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

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

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

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

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

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

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

					);

my $validexpansions = "all stdlibs combined";

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

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

{

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

}

my $dontStrip = 1;

my	@liblist;

if($suite eq "all")

{

		@liblist = split " ", $validLibraries;

		@liblist = (@liblist, @stdliblist);

}#suite all

elsif($suite eq "ltp")

{

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

}

elsif($suite eq "stdlibs")

{

		@liblist = @stdliblist;

}

elsif($suite eq "ssl")

{

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

}

else

{

		@liblist = ("$suite");

}

#	foreach my $l(@liblist)

#	{

#			print "$l was there\n";

#	}

if($combinedSession eq "yes")

{

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

	exit();

}

if($session eq "yes")

{

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

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

	closedir(DIRHANDLE);

	$dontStrip = 1;

	if($suite eq "stdlibs")

	{

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

		#copy($file, $dst);

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

		exit();

	}

	elsif($suite eq "ssl")

	{

		my @componentFiles = GetSslXmls();

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

		exit();

	}

	else

	{

		@generatedModules = GenGenModules($suite);

		my @componentFiles = GetXmls($suite);

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

		exit();

	}

	foreach my $lib(@liblist)

	{          

			@generatedModules = GenGenModules($lib);

			if(scalar @generatedModules != 0)

			{

				#print "Generating for $lib\n";

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

			}

	}

	#@generatedModules = GetAllModules();

	#if(scalar @generatedModules != 0)

	#{

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

	#}

	exit();

}#session generation code

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

{

	my @ltpModules = GetLtpModules();

	@generatedModules = @ltpModules;

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

	CopyLtpCfg("ltp");

	my @saved = @dllList;

	@dllList = ("ltplib.dll");

	CopySharedDlls("ltp", \@dllList);

	TransformXmls("ltp","shared");

	@dllList = @saved;

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

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

}

if ($suite eq "glib")

{

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

	my @glibModules = GetCompiledModules($bldfile);

	@generatedModules = @glibModules;

	DoGen("glib",".exe");

	my $gDataRef = \@gliblist;

	CopyArbitDatFiles("glib",$gDataRef);

	if($install eq "yes")

	{

		my @saved = @dllList;

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

                "libglib.dll");

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

  @dllList = @glib2dllList;

  CopySharedDlls("glib",\@dllList);     	

  TransformXmls("glib", "shared");

		@dllList = @saved;

	}#if install

}#glib

if ($suite eq "phall")

{

	my $bldfile = getcwd()."/group/bld.inf";

	my @hallModules = GetCompiledModules($bldfile);

	@generatedModules = @hallModules;

	DoGen($suite,".exe");

	#my $gDataRef = \@gliblist;

	#CopyArbitDatFiles("glib",$gDataRef);

	if($install eq "yes")

	{

		my @saved = @dllList;

   my  @phallList = ( "libstdcpp.dll" );

   @dllList = @phallList;

   CopySharedDlls($suite,\@dllList);     	

   TransformXmls($suite, "shared");

   @dllList = @saved;

   exit;

	}#if install

}#phall

if ($suite eq "ssl")

{

	my $stripStatus = $dontStrip;

	$dontStrip = 0;

	GenCryptoTest();

	if($install eq "yes")

	{

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

	}#if install

	$dontStrip = $stripStatus;

}#ssl

if($suite eq "ngi")

{

	GenNgiTest();

	CopyNgiXmls();

	CopyArbitDatFiles("",\@ngilist);

}

if($suite eq "play_new")

{

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

	"libxmlstiff","ngisvgtestmodule");

	@generatedModules = @play_newModules;

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

	 my @list = (

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

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

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

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

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

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