rem
rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.
rem
rem This library is free software; you can redistribute it and/or
rem modify it under the terms of the GNU Lesser General Public
rem License as published by the Free Software Foundation; either
rem version 2 of the License, or (at your option) any later version.
rem
rem This library is distributed in the hope that it will be useful,
rem but WITHOUT ANY WARRANTY; without even the implied warranty of
rem MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
rem Lesser General Public License for more details.
rem
rem You should have received a copy of the GNU Lesser General Public
rem License along with this library; if not, write to the
rem Free Software Foundation, Inc., 59 Temple Place - Suite 330,
rem Boston, MA 02111-1307, USA.
rem
rem Description:
rem
@perl -x GenATSModules.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
@goto end
#!perl
use strict;
use File::Find;
use File::Copy;
use Cwd;
my $sendEmail = "no";
my $target = "winsspd";
my $suite;
my $install = "no";
my $session = "no";
my $combinedSession = "no";
my $sdkversion="";
my $noXmlsGenList = "play_new";
my %DirHash;
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 = 0;
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
my $rootDrive = substr(getcwd(), 0,2);
my $templateRoot = getcwd();
if(rindex($templateRoot, "tsrc") == -1 && ($suite ne "stdlibs" && $suite ne "pcts" ) )
{
die("Please run the script from the appropriate internal folder in the mobileruntime /omerta project!!");
}
else
{
my $srcPrefix = getcwd();
$srcPrefix =~ /(.*)tsrc.*/;
$srcPrefix = $1;
if(rindex($templateRoot, "stdlibs") != -1)
{
$srcPrefix =~ /(.*)stdlibs.*/;
$srcPrefix = $1;
if($suite eq "glib-2.20.4")
{
$templateRoot = $srcPrefix."/glib-2.20.4/";
}
elsif($suite eq "ssl")
{
$templateRoot = $srcPrefix."/ssl/tsrc/";
}
elsif($suite eq "ngi" && $session ne "yes")
{
print "ngi atsinput creation not supported from mobileruntime\n";
exit();
}
}
if(rindex($templateRoot, "glib-2.20.4") != -1)
{
$suite = "glib-2.20.4";
}
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 = ("gnu","tstdcpp","stdcxx/tstapps");
#my $gnuPath =getcwd()."/testapps/gnu/";
#my $tstdcppPath =getcwd()."/testapps/tstdcpp/";
my $ATSRoot = getcwd()."\\ATSINPUT";
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", "liblogger.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"],
["istream_extractor_other-1.tst","istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_extractor_other-1.txt","istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_extractor_other-2.tst","istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_unformatted-1.tst","istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_unformatted-1.txt","istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_unformatted-2.tst","istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ostream_inserter_char-1.tst","ostream_inserter_char", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ostream_inserter_other-1.tst","ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ostream_inserter_other-2.tst","ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_extractor_other-1.tst","w_istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_extractor_other-1.txt","w_istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_extractor_other-2.tst","w_istream_extractor_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_unformatted-1.tst","w_istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_unformatted-1.txt","w_istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_unformatted-2.tst","w_istream_unformatted", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ostream_inserter_char-1.tst","w_ostream_inserter_char", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ostream_inserter_other-1.tst","w_ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ostream_inserter_other-2.tst","w_ostream_inserter_other", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["filebuf_members-1.tst","filebuf_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["filebuf_members-1.txt","filebuf_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["filebuf_virtuals-1.tst","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["filebuf_virtuals-1.txt","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["filebuf_virtuals-2.tst","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["filebuf_virtuals-3.tst","filebuf_virtuals", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ifstream_members-1.tst","ifstream_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ifstream_members-1.txt","ifstream_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ios_base_members_static-1.tst","ios_base_members_static", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_seeks-1.tst","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_seeks-1.txt","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_seeks-2.tst","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["istream_seeks-3.tst","istream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ofstream_members-1.tst","ofstream_members", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ostream_inserter_char-1.txt","ostream_inserter_char", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["ostream_seeks-1.tst","ostream_seeks", "/../internal/testapps/gnu/io/doc/", "/General/", "C:\\TestFramework\\gnu"],
["infile_auto.txt","multi_thread_auto", "/../internal/testapps/doc/", "/General/", "C:\\TestFramework\\tstdcpp"],
);
my @gliblist = (
["valid-1.gmarkup", "markup_test", "/epoc32/winscw/c/", "/General/", "C:"],
["valid-01.xbel", "bookmarkfile_test", "/epoc32/winscw/c/", "/General/", "C:"],
["iochannel-test-infile", "iochannel_test", "/epoc32/winscw/c/", "/General/", "C:"],
["casemap.txt", "unicode_caseconv", "/epoc32/winscw/c/", "/General/", "C:"],
["casefold.txt", "unicode_caseconv", "/epoc32/winscw/c/", "/General/", "C:"],
["utf8.txt", "unicode_encoding","/epoc32/winscw/c/", "/General/", "C:"],
["collate-1.unicode", "unicode_collate","/epoc32/winscw/c/", "/General/", "C:"],
["NormalizationTest.txt", "unicode_normalize","/epoc32/winscw/c/", "/General/", "C:"],
["4096-random-bytes", "strfuncs", "/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-2.20.4 ssl ngi pcts stdcpp gcce libc-locale play_new";
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 "ngi" || $suite eq "play_new")
{
@generatedModules = GenGenModules($suite);
my @componentFiles = GetXmls($suite);
GenerateSessionFile("combined",$target,$suite,\@componentFiles);
exit();
}
elsif($suite eq "ssl")
{
my @componentFiles = GetSslXmls();
GenerateSessionFile("combined",$target,$suite,\@componentFiles);
exit();
}
elsif($suite eq "stdlibs")
{
#my $dst = $ATSRoot."/$suite"."_testsession.xml";
#copy($file, $dst);
GenerateSessionFile("combined",$target,$suite);
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-2.20.4")
{
my $bldfile = $templateRoot."/group/bld.inf";
my $fileName = $templateRoot;
#chopn("$fileName", 5);
chop($fileName);
chop($fileName);
chop($fileName);
chop($fileName);
chop($fileName);
$bldfile = $fileName."/build/symbian/tests/group/bld.inf";
print "bldfile: $bldfile\n";
my @glibModules = GetCompiledModules($bldfile);
#mahesh
print "glibModules: @glibModules\n";
@generatedModules = @glibModules;
$bldfile = $fileName."/build/symbian/tests/gobject/group/bld.inf";
print "bldfile: $bldfile\n";
my @glibModules = GetCompiledModules($bldfile);
#mahesh
print "glibModules: @glibModules\n";
my $i =0;
foreach my $name(@glibModules){
@glibModules[$i] =~ s/ //;
$i = $i + 1;
}
push(@generatedModules, @glibModules);
$bldfile = $fileName."/build/symbian/tests/refcount/group/bld.inf";
print "bldfile: $bldfile\n";
my @glibModules = GetCompiledModules($bldfile);
#mahesh
print "glibModules: @glibModules\n";
my $i =0;
foreach my $name(@glibModules){
@glibModules[$i] =~ s/ //;
$i = $i + 1;
}
push(@generatedModules, @glibModules);
$bldfile = $fileName."/build/symbian/glib/tests/group/bld.inf";
print "bldfile: $bldfile\n";
my @glibModules = GetCompiledModules($bldfile);
#mahesh
print "glibModules: @glibModules\n";
my $i =0;
foreach my $name(@glibModules){
@glibModules[$i] =~ s/ //;
$i = $i + 1;
}
push(@generatedModules, @glibModules);
$bldfile = $fileName."/build/symbian/gobject/tests/group/bld.inf";
print "bldfile: $bldfile\n";
my @glibModules = GetCompiledModules($bldfile);
#mahesh
print "glibModules: @glibModules\n";
my $i =0;
foreach my $name(@glibModules){
@glibModules[$i] =~ s/ //;
$i = $i + 1;
}
push(@generatedModules, @glibModules);
DoGen("glib-2.20.4",".exe");
my $gDataRef = \@gliblist;
CopyArbitDatFiles("glib-2.20.4",$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-2.20.4",\@dllList);
TransformXmls("glib-2.20.4", "shared");
@dllList = @saved;
}#if install
}#glib-2.20.4
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/", ""],
["*.xml", "locationtestmodule", "/../ngilocation/internal/testmodules/locationtestmodule/group/","/", ""],
["*.cfg", "alertstestmodule", "/../ngialerts/internal/testmodules/alertstestmodule/group/","/General/", ""],
["*.xml", "alertstestmodule", "/../ngialerts/internal/testmodules/alertstestmodule/group/","/", ""],
["vertigo.wav", "alertstestmodule", "/Epoc32/winscw/c/alertstestmodule/","/General/", ""],
["*.cfg", "libxmlstiff", "/../libxmlpp/internal/group/","/General/", ""],
["*.xml", "libxmlstiff", "/../libxmlpp/internal/group/","/", ""],
["*.*", "libxmlstiff", "/../libxmlpp/internal/data/","/General/", ""],
["*.cfg", "ngisvgtestmodule", "/../ngisvg/internal/testmodules/ngisvgtestmodule/group/","/General/", ""],
["*.xml", "ngisvgtestmodule", "/../ngisvg/internal/testmodules/ngisvgtestmodule/group/","/", ""],
["*.*", "ngisvgtestmodule", "/epoc32/winscw/c/ngisvgtest/","/General/", ""],
);
my $bDataRef = \@list;
CopyArbitDatFiles("play_new",$bDataRef);
if($install eq "yes")
{
@generatedModules = GenGenModules("play_new");
my @saved = @dllList;
my @playList = (
"ngifonts.dll",
"ngimessaging.dll",
"ngisvg.dll",
"ngilocation.dll",
"ngialerts.dll",
"libstdcpp.dll",
"libxmlpp.dll",
"FeedsLibXml2xmlpp.dll");
@dllList = @playList;
CopySharedDlls("play_new",\@dllList);
TransformXmls("play_new", "shared");
@dllList = @saved;
}#end install
}
if($suite eq "stdcpp")
{
@generatedModules = GetstdcppModules();
DoGen("stdcpp",".dll");
CopyLtpCfg("stdcpp");
@generatedModules = GetstdexeModules();
DoGen("stdcpp",".exe");
my @saved = @dllList;
@dllList = ("stdcxxtestengine.dll");
CopySharedDlls("stdcpp", \@dllList);
TransformXmls("stdcpp","shared");
@dllList = @saved;
CopyArbitDatFiles("stdcpp",\@stdcpplist);
if($install eq "yes")
{
@generatedModules = GenGenModules("stdcpp");
my @saved = @dllList;
my @cppList = ("libstdcpp.dll");
@dllList = @cppList;
CopySharedDlls("stdcpp",\@dllList);
TransformXmls("stdcpp", "shared");
@dllList = @saved;
}#if install
}
if($suite eq "lsb" || $suite eq "all")
{
my @lsbModules = GetLsbModules();
@generatedModules = @lsbModules;
DoGen("lsb",".exe");
my @depDlls;
my $dll;
#copying the common dlls
@depDlls =
(
"libapi.dll",
"tcm.dll",
"vlib.dll",
);
foreach $dll (@depDlls)
{
CopyDeps("lsb",$dll);
}
#now copy the cfg files
CopyLsbCfg("lsb");
#now copy the extra dependency dlls
#dlopen
@generatedModules = ("dlopen");
@depDlls =
(
"dynlibtest.1.dll",
"dynlibtest.11.1.dll",
"dynlibtest.11.2.dll",
"dynlibtest.12g.dll",
"dynlibtest.12r.dll",
"dynlibtest.14.1.dll",
"dynlibtest.14.2.dll",
"dynlibtest.14.3.dll",
"dynlibtest.3.1.dll",
"dynlibtest.3.2.dll",
"dynlibtest.3.dll",
"dynlibtest.4.dll",
"dynlibtest.8.dll",
"dynlibtest.9.dll",
"dynlibtest.3.dll",
"dynlibtest.8.dll",
);
foreach $dll (@depDlls)
{
CopyDeps("lsb",$dll);
}
#dlclose
@generatedModules = ("dlclose");
@depDlls = ("dynlibclose.1.dll");
foreach $dll (@depDlls)
{
CopyDeps("lsb",$dll);
}
#dlerror
@generatedModules = ("dlerror");
@depDlls = ("dynlib.dll");
foreach $dll (@depDlls)
{
CopyDeps("lsb",$dll);
}
#now copy the xmls!
my $srcDir = $templateRoot."/ts/lsbsuites/group/";
my $dst;
foreach my $dllib("dlopen", "dlclose", "dlerror")
{
$dst = $ATSRoot."\\components\\lsb_".$dllib."\\";
copy($srcDir."/lsb_".$dllib."_module_blr_hw_component.xml", $dst) || die("DIED: unable to copy from $srcDir!\n");
copy($srcDir."/lsb_".$dllib."_module_blr_winsspd_component.xml", $dst) || die("DIED: unable to copy from $srcDir!\n");
}
}
if($suite eq "gcce")
{
mkdir $ATSRoot;
mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
@generatedModules = ("gcce-validate", "gcce-load");
my @depDlls =
(
"gcce-lib.dll",
);
my $suffix = ".exe";
my $libname = "gcce";
my $src;
my $dst;
foreach my $module(@generatedModules)
{
my $relroot = $ATSRoot."\\components\\$libname"."_$module";
mkdir $relroot || die("DIED: unable to create dir $module\n");
mkdir $relroot."\\armv5_urel" || die("DIED: unable to create dir $relroot\\armv5_urel\n");
#GenExeXmls($module,$libname);
$src = $rootDrive."\\epoc32\\release\\gcce\\urel\\".$module.$suffix;
$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);
$dst = $dst."\\armv5_urel\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
}
$src = $rootDrive."\\epoc32\\release\\gcce\\urel\\"."gcce-lib.dll";
$dst = $ATSRoot."\\components\\gcce_gcce-load";
$dst = $dst."\\armv5_urel\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
my @list = (
["gcce_gcce-load_module_blr_hw_component.xml", "gcce-load", "./","/", ""],
["gcce_gcce-validate_module_blr_hw_component.xml", "gcce-validate", "./","/", ""],
);
my $bDataRef = \@list;
CopyArbitDatFiles("gcce",$bDataRef);
}#if gcce
if($suite eq "libc-locale")
{
$dontStrip = 0;
mkdir $ATSRoot;
mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
@generatedModules = ("tstring");
DoGen("libc",".dll");
my @localelist = (
["locales.txt", "string", "../libc/internal/testapps/tstring/data/", "/General/", ""],
["tstring_locale_component.xml", "string", "../libc/internal/testapps/tstring/group/", "/", ""],
);
my $bDataRef = \@localelist;
CopyArbitDatFiles("libc",$bDataRef);
#delete($ATSRoot."/components/libc_string/"."libc_string_module_blr_hw_component.xml") || die("unable to delete");
my $my_src = $ATSRoot."/components/libc_string/"."tstring_locale_component.xml";
my $my_dst = $ATSRoot."/components/libc_string/"."libc_string_module_blr_hw_component.xml";
unlink($my_dst) ||warn("unable to delete $my_dst");
rename($my_src,$my_dst) || move($my_src,$my_dst) || die("Unable to rename!");
}#if libc-locale
if($suite eq "pcts")
{
my $bldfile = $templateRoot."/group/bld.inf";
my @pctsModules = GetCompiledModules($bldfile);
@generatedModules = @pctsModules;
DoGen("pcts",".exe");
my @depDlls;
my $dll;
#copying the common dlls
@depDlls =
(
"vsxlibapi.dll",
"rttm.exe",
"rtlibapi.dll",
"vsxvlib.dll",
"vsxgenlib.dll",
"vsxtsetlib.dll",
"vsxvport.dll",
);
if($install eq "yes")
{
my @saved = @dllList;
@dllList = @depDlls;
CopySharedDlls("pcts", \@depDlls);
TransformXmls("pcts","shared");
@dllList = @saved;
#now copy the cfg files
my $dst;
my $srcDir = "/epoc32/winscw/c/data/tet/";
my $file1 = $srcDir."tet_code";
my $file2 = $srcDir."tetexec.cfg";
foreach my $module(@generatedModules)
{
$dst = $ATSRoot."\\components\\pcts_".$module;
$dst = $dst."\\General\\";
copy($file1, $dst) or die "copy: $! $file1 $dst";
copy($file2,$dst) or die "copy: $! $file2 $dst";
}
}
my $dst;
foreach my $module(@generatedModules)
{
my $file3 = "/epoc32/winscw/c/logs/tet/m.".$module;
$dst = $ATSRoot."\\components\\pcts_".$module;
$dst = $dst."\\General\\";
copy($file3, $dst) or die "copy: $! $file3 $dst";
}#module
}
$dontStrip = 0;
if($suite eq "stdlibs" || $suite eq "all")
{
@generatedModules = ("tzlib");
DoGen("libz", ".dll");
@generatedModules = ("tlibcrypt");
DoGen("libcrypt",".dll");
@generatedModules = @libcModules;
DoGen("libc",".dll");
GenBackendTest();
@generatedModules = ("twchar");
CopyDeps("libc","twchar_helloworld.exe");
@generatedModules = ("twopen");
CopyDeps("libc","twpopenwritechild.exe");
CopyDeps("libc","twpopenreadchild.exe");
@generatedModules = @libdlModules;
DoGen("libdl",".dll");
CopyDeps("libdl","Dll1.dll");
CopyDeps("libdl","Dll2.dll");
CopyDeps("libdl","DependencyTestDll.dll");
@generatedModules = @libmModules;
DoGen("libm",".dll");
$TDIR = "\\internal\\";
@generatedModules = @pthreadModules;
DoGen("libpthread",".dll");
CopyDeps("libpthread","testharness.dll");
CopyDatFiles();
}
if($install eq "yes")
{
foreach my $lib(@liblist)
{
#print "Transforming lib $lib\n";
@generatedModules = GenGenModules($lib);
my @oldList = @dllList;
if($do_winscw)
{
@dllList = (@dllList, "wsdsoln.dll", "libestw32.dll");
CopySharedDlls($lib,\@dllList,"winscw");
TransformXmls($lib, "shared","winscw");
}
@dllList = @oldList;
if($do_armv5)
{
CopySharedDlls($lib,\@dllList,"armv5");
TransformXmls($lib, "shared","armv5");
}
}#FOREACH
}#if install
#function to generate ModuleList for a compiled bld.inf
sub GetCompiledModules($)
{
my $file = shift @_;
my @moduleList;
# Open input file
open (INFILE, "<".$file ) || die ("DIED: Can not find $file!");
while (<INFILE>)
{
if(/(.*)\.mmp/ && $1 !~ /^\/\//)
{
if($_ !~ /\/\/Not for ATS/)
{
push @moduleList, $1;
}
}
}
close (INFILE);
return @moduleList;
}
my @groupList;
sub GetLtpModules()
{
my $prevDir = getcwd();
my @rootList = ("kernel", "misc");
my @totalgroupList;
foreach my $node(@rootList)
{
chdir $ltpPath."/$node";
@groupList = ();
find(\&MakeGroupList, ".");
@totalgroupList = (@totalgroupList, @groupList);
}
chdir $prevDir;
return @totalgroupList;
}
sub GetstdexeModules()
{
my $prevDir = getcwd();
my @fullList = ();
foreach my $group(@stdexeList)
{
my $groupPath = $templateRoot."/testapps/".$group. "/";
chdir $groupPath;
@groupList = ();
find(\&grovelAllMmpFiles, ".");
chdir $prevDir;
@fullList = (@fullList,@groupList);
}
return @fullList;
}
sub grovelAllMmpFiles()
{
if($_ =~ /(.*)\.mmp/ && ! ($_ =~ /manual/))
{
push @groupList, $1;#get name of module
}
}
sub GetstdcppModules()
{
my $prevDir = getcwd();
my @rootList = ("auto");
my @totalgroupList;
foreach my $node(@rootList)
{
chdir $stdcppPath."/$node";
@groupList = ();
find(\&MakeGroupList, ".");
@totalgroupList = (@totalgroupList, @groupList);
}
chdir $prevDir;
return @totalgroupList;
}
sub GetTstdcppModules()
{
my $prevDir = getcwd();
#chdir $tstdcppPath;
@groupList = ();
find(\&grovelAllMmpFiles, ".");
chdir $prevDir;
return @groupList;
}
sub MakeGroupList()
{
my $currentDir = $File::Find::dir;
#print "Current dir:$currentDir\n";
if( $currentDir =~ /.*\/(.*)\/group/)
{
if($cfglocation{$1} eq "")
{
$cfglocation{$1} = getcwd()."\/$1.cfg";
push @groupList, $1;#get name of module
}#first time in group
}#group found
}#subrtn end
#function that generates the ATS setup
sub DoGen($$)
{
my $libname = shift @_;
my $ext = shift @_;
mkdir $ATSRoot;
mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
GenDirs($libname);
my $module;
foreach my $listed(@generatedModules)
{
my @filesToProcess =
(
"LibXXX_ATSTemplateXXX_module_blr_hw_component.xml",
"LibXXX_ATSTemplateXXX_module_blr_winsspd_component.xml",
"testframework.ini",
);
if(rindex($noXmlsGenList, $libname) != -1 )
{
@filesToProcess = ("testframework.ini",);
}
if($ext eq ".exe")
{
GenExeXmls($listed,$libname);
}
else
{
#just in case no xml file was supplied
my $ref = \@filesToProcess;
GenXmls($libname, $listed,$ref);
}
}#foreach
CopyDlls($libname,$ext);
#copy the provided cfg, ini and xmls
if($libname eq "opts")
{
CopyOptsCfg($libname);
}
elsif($libname eq "ltp" || $libname eq "lsb" || $libname eq "glib-2.20.4")
{
#copy latter and dont copy respectively for ltp and lsb
}
else
{
CopyCfgIniXmls($libname);
}
}
sub CopyCfgIniXmls()
{
my $libname = pop @_;
my $libRoot = $templateRoot;
$libRoot =~ /(.*)internal.*/;
$libRoot = $1;
my $module;
my $src;
my $dst;
foreach my $listed(@generatedModules)
{
my $dirname = $listed;
$dirname =~ s/test/t/;
$module = StripModulePrefix($listed);
$src = $libRoot.$libname.$TDIR.$dirname."\\group\\";
my $xmlCopied = "0";
my @globpattern = ("*.ini", "*.xml","*.cfg");
foreach my $pat(@globpattern)
{
$dst = $ATSRoot."\\components\\".$libname."_".$module;
if($pat ne "*.xml")
{
$dst = $dst."\\General\\";
}
else
{
$dst = $dst."\\";
}
my @filesFound = glob($src."\\$pat");
if(scalar @filesFound eq "0")
{
#print "No files found for module $module $pat!\n";
#print $src;
}
#handcoded
if($pat eq "*.cfg" && $xmlCopied eq "0")#rename only if xml not copied
{
if(scalar @filesFound > 1)
{
print "Multiple cfg files found. Copying all!\n";
}
else
{
$dst = $dst.$listed.".cfg";
}
}
elsif($pat eq "*.xml")
{
my $folder = $dst;
foreach my $from (@filesFound)
{
if($from =~ /winscw_component/)
{
$dst = $folder.$libname."_".$module."_module_blr_winscw_component.xml";
copy($from, $dst) or die "DIED: copy: $! $from $dst";
$xmlCopied = "1";
}
elsif($from =~ /winsspd_component/)
{
$dst = $folder.$libname."_".$module."_module_blr_winsspd_component.xml";
copy($from, $dst) or die "DIED: copy: $! $from $dst";
$xmlCopied = "1";
}
elsif($from =~ /hw_component/)
{
$dst = $folder.$libname."_".$module."_module_blr_hw_component.xml";
copy($from, $dst) or die "DIED: copy: $! $from $dst";
$xmlCopied = "1";
}
}#examine individually
if(scalar @filesFound > 2)
{
#print "Multiple xml files found!!!\n";
}
@filesFound = ();
}
foreach my $from (@filesFound)
{
copy($from, $dst) or die "DIED: copy: $! $from $dst";
}#copy individually
}#globpattern
}#module
}#fn
#copy the cfg files for the opts test suite
sub CopyOptsCfg()
{
my $libname = pop @_;
my $libRoot = $optsGroupPath."\\";
my $module;
my $src;
my $dst;
foreach $module(@generatedModules)
{
$src = $libRoot.$module."\.cfg";
$dst = $ATSRoot."\\components\\".$libname."_".$module;
$dst = $dst."\\General\\";
copy($src, $dst) or warn "copy: $! $src $dst";
}#module
}#fn
#copy the lsb cfg files
sub CopyLsbCfg()
{
my $libname = pop @_;
my $module;
my $dst;
my $srcDir = $templateRoot."/ts/lsbsuites/lsblib/data/";
foreach $module(@generatedModules)
{
my $file1 = $srcDir."tet_code.cfg";
my $file2 = $srcDir."tetexec.cfg";
$dst = $ATSRoot."\\components\\".$libname."_".$module;
$dst = $dst."\\General\\";
copy($file1, $dst) or die "copy: $! $file1 $dst";
copy($file2, $dst) or die "copy: $! $file2 $dst";
}#module
}#fn
#copy the ltp cfg files
sub CopyLtpCfg($)
{
my $libname = pop @_;
my $module;
my $src;
my $dst;
foreach $module(@generatedModules)
{
$src = $cfglocation{$module};
$dst = $ATSRoot."\\components\\".$libname."_".$module;
$dst = $dst."\\General\\";
copy($src, $dst) or warn "copy: $! $src $dst";
}#module
}#fn
sub CopyDlls($$)
{
my $libname = shift @_;
my $suffix = shift @_;
my $module;
my $src;
my $dst;
foreach $module(@generatedModules)
{
if($do_winscw == 1)
{
$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$module.$suffix;
$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);
$dst = $dst."\\winscw_udeb\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
}
if($do_armv5 == 1)
{
$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$module.$suffix;
$dst = $ATSRoot."\\components\\".$libname."_".StripModulePrefix($module);
$dst = $dst."\\armv5_urel\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
}
}#foreach
}
#fn to generate the session file
sub GenerateSessionFile($$$$)
{
my $libname = shift @_;
my $target = shift @_;
my $name = shift @_;
my $listptr = shift @_;
my $outdir = $ATSRoot;
my $infile = $templateRoot."\\testsession.xml";
chdir $outdir || die("DIED: Unable to chdir!");
#open INFILE, $infile || die ("DIED: Can not open input file $infile");
my $prefix = $name."_".$target;
if($sdkversion ne "")
{
$prefix = $prefix."_".$sdkversion;
}
open OUTFILE, ">".$outdir."\\".$prefix."_testsession.xml" || die ("DIED: Can not open output file");
my $line;
my $snippet = $target;
if($target ne "winscw" && $target ne "winsspd")
{
$snippet = "hw";
}
print OUTFILE "<?xml version=\"1.0\"?>\n";
print OUTFILE "<testsession>\n";
#print OUTFILE "<symbian-version>$libname"."_".$snippet."_TestDrop_blr_component</symbian-version>\n";
print OUTFILE "<symbian-version>ats_test_session</symbian-version>\n";
print OUTFILE "<testitem>at</testitem>\n";
print OUTFILE "<resultfile>ATSOUTPUT\\".$prefix."_testsession_results.xml</resultfile>\n";
if($sendEmail eq "yes")
{
print OUTFILE <<EOEmailNote;
<email_notification>
<include_test_cases>true</include_test_cases>
<message_file>C:\\\\lm.txt </message_file>
<send_after_rerun>false</send_after_rerun>
<subject>ATS testreport</subject>
<from>swbuild\@nokia.com</from>
<to>santosh.ks\@nokia.com</to>
<to>Imtiyaj.Kaji\@nokia.com</to>
<to>tp-ap-india-mrt-testdg\@nokia.com</to>
<to>tp-ap-india-mrt-libsdg\@nokia.com</to>
<to>subeesh.sivanandan\@nokia.com</to>
<to>girish.bhat\@nokia.com</to>
</email_notification>
EOEmailNote
}
if($libname ne "combined")
{
AddAssumedIncludes($libname,$snippet);
}
else
{
if($listptr ne "")
{
AddFileList($libname,$listptr);
}
else
{
AddActualIncludes($libname);
}
}
print OUTFILE "</testsession>\n";
close(OUTFILE);
#close(INFILE);
}#fn
sub AddAssumedIncludes($$)
{
my $libname = shift @_;
my $snippet = shift @_;
my $APITest;
foreach my $listed(@generatedModules)
{
$APITest = StripModulePrefix($listed);
print OUTFILE "\n";
print OUTFILE " <!--Inclusion of $target xml for $APITest -->\n";
print OUTFILE " <component>\n";
print OUTFILE " <factory>Symbian</factory>\n";
if($libname eq "all")
{
print OUTFILE " <testplan>ATSINPUT\\components\\$listed\\$listed"."_module_blr_".$snippet."_component.xml</testplan>\n";
}
else
{
print OUTFILE " <testplan>ATSINPUT\\components\\$libname"."_"."$APITest\\$libname"."_$APITest"."_module_blr_".$snippet."_component.xml</testplan>\n";
}
if($target eq "winscw")
{
print OUTFILE " <target hardware=\"winscw\" build=\"udeb\" />\n";
}
elsif($target eq "winsspd")
{
print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n";
}
else
{
print OUTFILE " <target hardware=\"$target\" build=\"urel\" />\n";
}
print OUTFILE " </component>\n";
print OUTFILE "\n";
}#foreach @generatedModules
}
sub AddFileList($$)
{
my $libname = shift @_;
my $listptr = shift @_;
my @componentfiles = @$listptr;
foreach my $listed(@componentfiles)
{
print OUTFILE "\n";
print OUTFILE " <!--Inclusion of $target xml -->\n";
print OUTFILE " <component>\n";
print OUTFILE " <factory>Symbian</factory>\n";
print OUTFILE " <testplan>ATSINPUT\\components\\$listed</testplan>\n";
if($target eq "winscw")
{
print OUTFILE " <target hardware=\"winscw\" build=\"udeb\" />\n";
}
elsif($target eq "winsspd")
{
print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n";
}
else
{
print OUTFILE " <target hardware=\"$target\" build=\"urel\" />\n";
}
print OUTFILE " </component>\n";
print OUTFILE "\n";
}#foreach @componentfiles
}
sub GetSslXmls()
{
my $APITest;
my @componentfiles;
my @emulatorfiles =
(
"libssl_ssltest\\libssl_blr_winsspd_component.xml",
"libcrypto_crypto_test\\libcrypto_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltestss_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltestverify_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltestenc_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltestgen_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltreq_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltreq2_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltrsa_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltcrl_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltsid_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltx509_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltx5091_blr_winsspd_component.xml",
"libcrypto_openssl\\libcrypto_topenssltx5092_blr_winsspd_component.xml",
);
my @hwfiles =
(
"libcrypto_openssl\\libcrypto_topenssltestss_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltestverify_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltestenc_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltestgen_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltpkcs7_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltpkcs7d_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltreq_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltreq2_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltrsa_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltcrl_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltsid_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltx509_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltx5091_blr_hw_component.xml",
"libcrypto_openssl\\libcrypto_topenssltx5092_blr_hw_component.xml",
"libssl_ssltest\\libssl_blr_hw_component.xml",
"libcrypto_crypto_test\\libcrypto_blr_hw_component.xml",
);
if($target eq "winsspd" || $target eq "winscw")
{
@componentfiles = @emulatorfiles;
}
else
{
@componentfiles = @hwfiles;
}
return @componentfiles;
}
sub AddActualIncludes($)
{
my $libname = shift @_;
find(\&XmlComponentFiles, ".");
my $key;
my $value;
while(($key, $value) = each(%DirHash))
{
$value =~ s/\//\\/g;
print OUTFILE "\n";
print OUTFILE " <!--Inclusion of dynamically found $target xml -->\n";
print OUTFILE " <component>\n";
print OUTFILE " <factory>Symbian</factory>\n";
print OUTFILE " <testplan>$value</testplan>\n";
if($target eq "winscw")
{
print OUTFILE " <target hardware=\"winscw\" build=\"udeb\" />\n";
}
elsif($target eq "winsspd")
{
print OUTFILE " <target hardware=\"winsspd\" platform=\"winscw\" build=\"udeb\" />\n";
}
else
{
print OUTFILE " <target hardware=\"$target\" build=\"urel\" />\n";
}
print OUTFILE " </component>\n";
print OUTFILE "\n";
}#while
}#fn
sub XmlComponentFiles()
{
if($_ !~ /\.xml/ || $_ =~ /manual/)
{
return;
}
#print "Processing $_\n";
my $dir = getcwd();
if($dir =~ /.*(ATSINPUT.*)/)
{
$dir = $1;
if($dir !~ /.*components.*/)
{
return;
}
#print "The dir is $dir\n";
}
else
{
return;
}
if($target eq "winsspd" )
{
if($_ =~ /winsspd/)
{
#print "Adding $target file $_ for $dir\n";
$DirHash{$dir} = $dir."/".$_;
}
}
elsif($target eq "winscw")
{
if($_ =~ /winscw/)
{
#print "Adding $target file $_ for $dir\n";
$DirHash{$dir} = $dir."/".$_;
}
}
elsif($_ =~ /$target/)
{
#print "$_ matched $target \n";
#print "Adding $target file $_ for $dir\n";
$DirHash{$dir} = $dir."/".$_;
}
elsif($_ =~/hw/)
{
#print "$_ matched hw";
if(scalar $DirHash{$dir} == 0)
{
#print "Adding hw file $_ for $dir\n";
$DirHash{$dir} = $dir."/".$_;
#print " and added\n"
}
else
{
#print " and not added\n";
}
}
}
sub emptyArray()
{
@generatedModules = ();
}
sub GenDirs($)
{
my $libname = shift @_;
my $dirname;
foreach my $module(@generatedModules)
{
$dirname = StripModulePrefix($module);
my $relroot = $ATSRoot."\\components\\$libname"."_$dirname";
mkdir $relroot || die("DIED: unable to create dir $dirname\n");
mkdir $relroot."\\General" || die("DIED: unable to create dir $relroot\\General\n");
if($do_armv5 == 1)
{
mkdir $relroot."\\armv5_urel" || die("DIED: unable to create dir $relroot\\armv5_urel\n");
}
if($do_winscw == 1)
{
mkdir $relroot."\\winscw_udeb" || die("DIED: unable to create dir $relroot\\winscw_udeb\n");
}
}
}
sub GenXmls($$$)
{
my $libname = shift @_;
my $listedName = shift @_;
my $bref = shift @_;
my @filesToProcess = @$bref;
#strip leading test and t names from module
my $moduleName = StripModulePrefix($listedName);
my $toPath = $ATSRoot."\\components\\$libname"."_$moduleName\\";
my $dst;
my $src;
foreach $src(@filesToProcess)
{
$dst = $src;
$dst =~ s/ATSTemplateXXX/$moduleName/;
$dst =~ s/LibXXX/$libname/;
if($src eq "testframework.ini")
{
$dst = $toPath."General\\".$dst;
}
else
{
$dst = $toPath.$dst;
}
copy($templateRoot."\\".$src, $dst) || die("DIED: Unable to copy $src to $dst\n");
ExpandModuleMacros($dst, $libname, $listedName);
}#foreach file
}
sub GenExeXmls()
{
my $moduleName = shift @_;
my $libname = shift @_;
my $toPath = $ATSRoot."\\components\\$libname"."_$moduleName\\";
my @filesToProcess =
(
"LibXXX_ATSTemplateXXX_exemodule_blr_hw_component.xml",
"LibXXX_ATSTemplateXXX_exemodule_blr_winsspd_component.xml",
);
my $dst;
my $src;
foreach $src(@filesToProcess)
{
$dst = $src;
$dst =~ s/ATSTemplateXXX/$moduleName/;
$dst =~ s/LibXXX/$libname/;
$dst =~ s/_exemodule_/_module_/;
$dst = $toPath.$dst;
copy($templateRoot."\\".$src, $dst) || die("DIED: Unable to copy to $dst\n");
ExpandModuleMacros($dst, $libname, $moduleName);
}#foreach file
}
#function to expand the macros existing in a file
#file is replaced by new version
#args are relativePath. filename and $moduleName
sub ExpandModuleMacros()
{
# Take module name
my $moduleName = pop @_;
my $libname = pop @_;
my $filename = pop @_;
my $MODULENAME = $moduleName;
$MODULENAME =~ tr/[a-z]/[A-Z]/;
# Open input file
open (INFILE, $filename ) || die ("DIED: Can not find $filename");
#Open output file
my $newOutput = $filename."new";
open (OUTFILE, ">".$newOutput ) || die ("DIED: Can not open $newOutput");
# Replace text in files
while (<INFILE>)
{
s/ATSTemplateXXX/$moduleName/g;
s/LibXXX/$libname/g;
print OUTFILE $_;
}
# Close filehandles
close (INFILE);
close (OUTFILE);
# Rename result file
unlink $filename;
rename $newOutput,$filename;
}
sub CopyDeps($$)
{
my $libname = shift @_;
my $copyDll = shift @_;
my $src;
my $dst;
foreach my $listed(@generatedModules)
{
my $module = StripModulePrefix($listed);
if($do_winscw == 1)
{
$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;
$dst = $ATSRoot."\\components\\$libname"."_$module";
$dst = $dst."\\winscw_udeb\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
}
if($do_armv5 == 1)
{
$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;
$dst = $ATSRoot."\\components\\$libname"."_$module";
$dst = $dst."\\armv5_urel\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
}
}#foreach
}#fn
#dat file copy
sub CopyDatFiles()
{
my $libRoot = $templateRoot;
$libRoot =~ /(.*)internal.*/;
$libRoot = $1;
my @list = (
["libcrypt", "tlibcrypt", "group/Test_Data.dat"],
["libc", "tnetdb", "data/services.txt"],
["libc", "tstring", "data/locales.txt"],
["libc", "libc_loc_blr", "data/locales.txt"],
["libz", "tzlib", "data/*.*"],
["libc", "tlink", "data/*.*"],
["libc", "tmmap", "data/*.*"],
);
my $libname;
my $dirname;
my $glob;
foreach my $ref(@list)
{
my @inarr = @$ref;
($libname, $dirname, $glob) = @inarr;
my $modulename = StripModulePrefix($dirname);
my $src = "$libRoot/$libname/internal/testapps/$dirname/$glob";
my $dst = $ATSRoot."\\components\\$libname"."_"."$modulename\\General\\";
if($dirname eq "libc_loc_blr")
{
$src = "$libRoot/libc/src/locales.txt";
}
my @filesFound = glob($src);
if(scalar @filesFound == 0)
{
die("DIED: no Dat file found to copy!");
}
foreach my $file(@filesFound)
{
copy($file, $dst) || die("DIED: unable to copy $file to $dst");
}
}#ref processing
}#fn
#glib-2.20.4 dat file copy
sub CopyArbitDatFiles($$)
{
my $libname = shift @_;
my $refArr = shift @_;
my @list = @$refArr;
my $fname;
my $modulename;
my $location;
my $atsDst;
my $targetDst;
#now copy the files appropriately
foreach my $ref(@list)
{
my @inarr = @$ref;
($fname, $modulename, $location, $atsDst, $targetDst) = @inarr;
#print "[$fname, $modulename, $location, $atsDst, $targetDst]\n";
if($location =~ /(.*)\.\.(.*)/)
{
$location = GetPathPrefix().$2;
}
else
{
$location = $rootDrive.$location;
}
my $src = $location.$fname;
my $dst = $ATSRoot."\\components\\$libname"."_".$modulename.$atsDst;
if($libname eq "")
{
$dst = $ATSRoot."\\components\\".$modulename.$atsDst;
#print "$dst CHANGED!\n"
}
my @filesFound = glob($src);
if(scalar @filesFound == 0)
{
die("DIED: no Dat file $src found to copy!");
}
foreach my $file(@filesFound)
{
copy($file, $dst) || warn("DIED: unable to copy $file to $dst");
}
if($targetDst ne "")
{
my @filesToChange = ();
if($atsDst =~ "armv5")
{
#armv5 component file
unshift @filesToChange, $libname."_".$modulename."_module_blr_hw_component.xml";
}
elsif($atsDst =~ "winscw")
{
#winscw component file
unshift @filesToChange, $libname."_".$modulename."_module_blr_winsspd_component.xml";
}
else
{
#add entry to both xmls
unshift @filesToChange, $libname."_".$modulename."_module_blr_hw_component.xml";
unshift @filesToChange, $libname."_".$modulename."_module_blr_winsspd_component.xml";
}
foreach my $file(@filesToChange)
{
$src = $ATSRoot."/components/".$libname."_"."$modulename/".$file;
ModifyXml($src,$libname,$fname,$atsDst,$targetDst);
}
}#updating the xmls
}#ref processing
}#fn
sub ModifyXml($$$$$)
{
my $filename = shift @_;
my $lib = shift @_;
my $fname = shift @_;
my $atsDst = shift @_;
my $targetDst = shift @_;
#printf("Modifying $filename with lib= $lib fname= $fname atsDst = $atsDst targetDst = $targetDst\n");
# Open input file
open (INFILE, $filename ) || die ("Can not find $filename");
#Open output file
my $newOutput = $filename."new";
open (OUTFILE, ">".$newOutput ) || die ("Can not open $newOutput");
# Replace text in files
while (<INFILE>)
{
if(/\<stif\>/ || /\<execute\>/)
{
if(/\<stif\>/)
{
print OUTFILE "\<stif\>\n";
}
else
{
print OUTFILE "\<execute\>\n";
}
my $type = "data";
if($atsDst !~ "General")
{
$type = "binary";
}
print OUTFILE <<EObinary;
<install type=\"$type\">
<src>$fname</src>
<dst>$targetDst\\$fname</dst>
</install>
EObinary
}#stif or execute tag found
else
{
print OUTFILE $_;
}
}#while
# Close filehandles
close (INFILE);
close (OUTFILE);
# Rename result file
unlink $filename;
rename $newOutput,$filename;
}#fn
sub GenGenModules($)
{
my $libname = shift @_;
my $src = $ATSRoot."/components/";
my @fileList = ();
opendir(DIRHANDLE, "$src") || die "Cannot opendir $src";
foreach my $name (readdir(DIRHANDLE))
{
if($name =~ /^$libname/)
{
if($libname ne "libc" || $name !~ /^libcrypt/)
{
$name =~ s/^$libname//;
$name =~ s/^_//;
unshift @fileList, $name;
}#excluded libcrypt from libc list
}#libname match
}#foreach
closedir(DIRHANDLE);
return @fileList;
}
sub GetAllModules()
{
my $src = $ATSRoot."/components/";
my @fileList = ();
opendir(DIRHANDLE, "$src") || die "Cannot opendir $src";
foreach my $name (readdir(DIRHANDLE))
{
if($name ne "." && $name ne ".." && $name ne "shared")
{
unshift @fileList, $name;
}
}#foreach
closedir(DIRHANDLE);
return @fileList;
}
sub TransformXmls($$)
{
my $libname = shift @_;
my $shared = shift @_;
my $target = shift @_;
my $module;
my $src;
my $dst;
my $armv5 = 0;
my $winscw = 0;
if($target eq "armv5")
{
$armv5 = 1;
}
elsif($target eq "winscw")
{
$winscw = 1;
}
else
{
$armv5 = $do_armv5;
$winscw = $do_winscw;
}
foreach $module(@generatedModules)
{
if($armv5 == 1 && $winscw == 1)
{
$src = $ATSRoot."/components/".$libname."_"."$module/*.xml";
}
elsif($armv5 == 1)
{
$src = $ATSRoot."/components/".$libname."_"."$module/*_hw_component.xml";
}
elsif($winscw == 1)
{
$src = $ATSRoot."/components/".$libname."_"."$module/*_winsspd_component.xml";
}
my @fileList = glob($src);
foreach my $file(@fileList)
{
#print"$file to be transformed!\n";
AddLibsInXml($libname,$file,$shared);
}
}
}#fn
sub AddLibsInXml($$$)
{
my $libname = shift @_;
my $filename = shift @_;
my $shared = shift @_;
# Open input file
open (INFILE, $filename ) || die ("Can not find $filename");
#Open output file
my $newOutput = $filename."new";
open (OUTFILE, ">".$newOutput ) || die ("Can not open $newOutput");
my $drive = "c:";
# Replace text in files
while (<INFILE>)
{
if(/\<stif\>/ || /\<execute\>/)
{
if(/\<stif\>/)
{
print OUTFILE "\<stif\>\n";
}
else
{
print OUTFILE "\<execute\>\n";
if($filename =~ /winsspd/)
{
$drive = "z:";
}
}
foreach my $installable(@dllList)
{
print OUTFILE <<EOLine;
<install type=\"$shared binary\">
<src>$installable</src>
<dst>$drive\\sys\\bin\\$installable</dst>
</install>
EOLine
}
}
else
{
print OUTFILE $_;
}
}#while
# Close filehandles
close (INFILE);
close (OUTFILE);
# Rename result file
unlink $filename;
rename $newOutput,$filename;
}
sub CopySharedDlls()
{
my $libname = shift @_;
my $ref = shift @_;
my @ListOfDlls = @$ref;
my $target = shift @_;
my $module;
my $src;
my $dst;
my $do_armv5 = 0;
my $do_winscw = 0;
if($target eq "armv5")
{
$do_armv5 = 1;
}
elsif($target eq "winscw")
{
$do_winscw = 1;
}
else
{
$do_armv5 = 1;
$do_winscw = 1;
}
mkdir $ATSRoot."\\components\\shared" || die("Wouldn't make shared folder in $ATSRoot\\components");
if($do_winscw == 1)
{
mkdir $ATSRoot."\\components\\shared\\winscw_udeb" || die("Wouldn't make shared folder in $ATSRoot\\components\winscw_udeb");
}
if($do_armv5 == 1)
{
mkdir $ATSRoot."\\components\\shared\\armv5_urel" || die("Wouldn't make shared folder in $ATSRoot\\components\armv5_urel");
}
foreach my $copyDll(@ListOfDlls)
{
if($do_winscw == 1)
{
$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;
$dst = $ATSRoot."\\components\\shared";
$dst = $dst."\\winscw_udeb\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
}
if($do_armv5 == 1)
{
$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;
$dst = $ATSRoot."\\components\\shared";
$dst = $dst."\\armv5_urel\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
}
}#foreach
}#fn
sub CopyMultiDlls($)
{
my $libname = shift @_;
my $module;
my $src;
my $dst;
foreach my $listed(@generatedModules)
{
foreach my $copyDll(@dllList)
{
if($do_winscw == 1)
{
$src = $rootDrive."\\epoc32\\release\\winscw\\udeb\\".$copyDll;
$dst = $ATSRoot."\\components\\$libname"."_$listed";
$dst = $dst."\\winscw_udeb\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
}
if($do_armv5 == 1)
{
$src = $rootDrive."\\epoc32\\release\\armv5\\urel\\".$copyDll;
$dst = $ATSRoot."\\components\\$libname"."_$listed";
$dst = $dst."\\armv5_urel\\";
copy($src, $dst) || warn("unable to copy $src to $dst");
}
}#foreach
}
}#fn
sub StripModulePrefix($)
{
my $listed = pop @_;
my $module = $listed;
if($dontStrip == 0)
{
$module =~ s/^test//;
$module =~ s/^t//;
$module =~ s/^libc_//;
$module =~ s/^libm_//;
}
return $module;
}
sub GetLsbModules()
{
my @lsbList =
(
"abs",
"acos",
"asctime",
"asin",
"atan",
"atan2",
"atof",
"atoi",
"atol",
"bsearch",
"calloc",
"ceil",
"chdir",
"clearerr",
"close",
"closedir",
"cos",
"cosh",
"creat",
"lsb_ctime",
"lsb_difftime",
"dlclose",
"dlerror",
"dlopen",
"dup",
"dup2",
"exp",
"fabs",
"fclose",
"fcntl_x",
"fdopen",
"feof",
"ferror",
"fflush",
"fgetpos",
"fgets",
"fileno",
"floor",
"fmod",
"fopen",
"fopen_X",
"fprintf",
"fputs",
"fread",
"free",
"freopen",
"freopen_X",
"frexp",
"fseek",
"fsetpos",
"fstat",
"ftell",
"ftok",
"ftok_l",
"fwrite",
"getc",
"getcwd",
"gets",
"lsb_gmtime",
"ldexp",
"link",
"lsb_localtime",
"log",
"log10",
"longjmp",
"lseek",
"malloc",
"memchr_X",
"memcmp_X",
"memcpy_X",
"memmove",
"memset_X",
"mkdir",
"mkfifo",
"lsb_mktime",
"modf",
"msgctl",
"msgget",
"msgsnd",
"open",
"opendir",
"open_x",
"perror",
"pipe",
"pow",
"printf",
"qsort",
"rand",
"read",
"readdir",
"readv_l",
"realloc",
"remove",
"rename",
"rewind",
"rewinddir",
"rmdir",
"scanf",
"scanf_X",
"seekdir",
"semctl",
"semget",
"semop",
"setbuf",
"setjmp",
"shmat",
"shmdt",
"shmget",
"sin",
"sinh",
"sqrt",
"srand",
"stat",
"strcat",
"strchr",
"strcmp",
"strcoll_X",
"strcpy",
"strcspn",
"strerror_X",
"strftime",
"strftime_X",
"strlen",
"strncat",
"strncmp",
"strncpy",
"strpbrk",
"strptime",
"strrchr",
"strspn",
"strstr",
"strtod_X",
"strtok",
"strtol_X",
"strxfrm_X",
"tan",
"tanh",
"telldir",
"telldir_l",
"lsb_time",
"tmpfile",
"tmpnam",
"ungetc",
"unlink",
"utime",
"vfprintf",
"vprintf",
"write",
"writev_l",
);
return @lsbList;
}
sub GenBackendTest()
{
my @datList =
(
["libc", "tlibcbackend"],
);
mkdir $ATSRoot;
mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
my $lib;
my $module;
my $ext;
foreach my $ref(@datList)
{
my @inarr = @$ref;
($lib, $module,$ext) = @inarr;
@generatedModules = ($module);
GenDirs($lib);
CopyDlls($lib,".dll");
}
#now copy xmls
CopyAtsSetup();
#extra exes
@generatedModules = ("tlibcbackend");
CopyDeps("libc","TPopenReadChild.exe");
CopyDeps("libc","TPopenWriteChild.exe");
}#fn
sub CopyAtsSetup()
{
my $libname = "libc";
my @list = (
["*.xml", "libcbackend", "/../backend/internal/tlibcbackend/group/","/", ""],
["*.cfg", "libcbackend", "/../backend/internal/tlibcbackend/group/","/General/", ""],
["*.ini", "libcbackend", "/../backend/internal/tlibcbackend/group/","/General/", ""],
);
my $bDataRef = \@list;
CopyArbitDatFiles("libc",$bDataRef);
}#fn
sub GetPathPrefix()
{
my $srcPrefix = $templateRoot;
$srcPrefix =~ /(.*)tsrc.*/;
$srcPrefix = $1;
return $srcPrefix;
}
#dat file copy
sub CopyCryptoDat()
{
my $libRoot = $templateRoot;
$libRoot =~ /(.*)internal.*/;
$libRoot = $1;
my @list = (
["libssl", "ssltest", "/tsrc/ssl_test/data/*"],
["libcrypto", "topenssl", "/tsrc/topenssl/data/*"],
);
my $libname;
my $dirname;
my $glob;
foreach my $ref(@list)
{
my @inarr = @$ref;
($libname, $dirname, $glob) = @inarr;
my $modulename = StripModulePrefix($dirname);
my $srcPrefix = GetPathPrefix();
my $src = "$srcPrefix"."$glob";
my $dst = $ATSRoot."\\components\\$libname"."_"."$modulename\\General\\";
my @filesFound = glob($src);
if(scalar @filesFound == 0)
{
die("DIED: no Dat file found to copy!");
}
foreach my $file(@filesFound)
{
copy($file, $dst) || die("DIED: unable to copy $file to $dst");
}
}#ref processing
}#fn
#Crypto xmls copy
sub CopyCryptoXmls()
{
my @list = (
["*.xml", "libssl_ssltest/", "/tsrc/ssl_test/group/"],
["*.xml", "libcrypto_crypto_test/", "/tsrc/crypto_test/group/"],
["*.xml", "libcrypto_openssl/", "/tsrc/topenssl/group/"],
);
my $fname;
my $moduleDst;
my $location;
#now copy the files appropriately
foreach my $ref(@list)
{
my @inarr = @$ref;
($fname, $moduleDst, $location) = @inarr;
my $src = GetPathPrefix().$location.$fname;
my $dst = $ATSRoot."\\components\\$moduleDst";
my @filesFound = glob($src);
if(scalar @filesFound == 0)
{
die("DIED: no xml file found to copy!");
}
foreach my $file(@filesFound)
{
copy($file, $dst) || die("DIED: unable to copy $file to $dst");
}
}#ref
my @crypto_copyList = ("*.txt", "*cfg", "*.ini");
foreach my $item(@crypto_copyList)
{
$location = "/libcrypto/internal/testapps/crypto_test/group/";
$fname = GetPathPrefix().$location.$item;
my @filesFound = glob($fname);
foreach my $file(@filesFound)
{
$moduleDst = "libcrypto_crypto_test/";
my $dst = $ATSRoot."\\components\\".$moduleDst."/General/";
copy($file, $dst);
}
}
}#fn
sub GenCryptoTest()
{
my @datList =
(
["libssl", "ssltest", ".exe"],
["libcrypto", "crypto_test",".dll"],
["libcrypto", "openssl",".exe"],
);
mkdir $ATSRoot;
mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
my $lib;
my $module;
my $ext;
foreach my $ref(@datList)
{
my @inarr = @$ref;
($lib, $module,$ext) = @inarr;
@generatedModules = ($module);
GenDirs($lib);
CopyDlls($lib,$ext);
}
CopyCryptoDat();
CopyCryptoXmls();
}#fn
#ngi xml copy
sub CopyNgiXmls()
{
my @list = (
["*.xml", "ngi_sa_amrrecording", "/audio/lowlevelaudio/internal/sa_amrrecording/group/"],
["*.xml", "ngi_sa_highlevelaudio", "/audio/highlevelaudio/internal/sa_highlevelaudio/group/"],
["*.xml", "ngi_sa_audiomixing", "/audio/lowlevelaudio/internal/sa_audiomixing/group/"],
["*.xml", "ngi_sa_audiorecording", "/audio/lowlevelaudio/internal/sa_audiorecording/group/"],
["*.xml", "ngi_sa_clip", "/audio/lowlevelaudio/internal/sa_clip/group/"],
["*.xml", "ngi_sa_lowlevelaudio", "/audio/lowlevelaudio/internal/sa_lowlevelaudio/group/"],
["*.xml", "ngi_sa_stream", "/audio/lowlevelaudio/internal/sa_stream/group/"],
["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_antitearing/group/"],
["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_colortranslation/group/"],
["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_createfb565/group/"],
["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_createfb888/group/"],
["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_heapusage/group/"],
["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_multibb/group/"],
["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_performance/group/"],
["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_plswitching/group/"],
["*.xml", "ngi_sa_backbuffer", "/graphics/backbuffer/internal/sa_bb_misc/group/"],
["*.xml", "ngi_sa_bitmap", "/graphics/bitmap/internal/sa_bitmap/group/"],
["*.xml", "ngi_sa_camera", "/graphics/camera/internal/sa_camera/group/"],
["*.xml", "ngi_sa_images", "/graphics/images/internal/sa_images/group/"],
["*.xml", "ngi_sa_display", "/graphics/display/internal/sa_display/group/"],
["*.xml", "ngi_sa_lights", "/graphics/lights/internal/sa_lights/group/"],
["*.xml", "ngi_sa_videoplayback", "/graphics/video/internal/sa_videoplayback/group/"],
["*.xml", "ngi_sa_input", "/input/input/internal/sa_input/group/"],
["*.xml", "ngi_sa_textinput", "/input/textinput/internal/sa_textinput/group/"],
["*.xml", "ngi_sa_devicecapabilities", "/system/devicecapabilities/internal/sa_devicecapabilities/group/"],
["*.xml", "ngi_sa_devicestatus", "/system/devicestatus/internal/sa_phone/group/"],
["*.xml", "ngi_sa_runtimetester", "/system/runtime/internal/sa_runtimetester/group/"],
["*.xml", "ngi_sa_timing", "/timing/internal/sa_timing/group/"],
);
my $fname;
my $moduleDst;
my $location;
#now copy the files appropriately
foreach my $ref(@list)
{
my @inarr = @$ref;
($fname, $moduleDst, $location) = @inarr;
my $src = GetPathPrefix().$location.$fname;
my $dst = $ATSRoot."\\components\\$moduleDst";
#print "My src is $src\n";
#print "My dst is $dst\n";
my @filesFound = glob($src);
if(scalar @filesFound == 0)
{
warn("warning: no xml file found to copy from $src!");
}
foreach my $file(@filesFound)
{
copy($file, $dst) || die("DIED: unable to copy $file to $dst");
}
}#ref
}#fn
sub GenNgiTest()
{
my @datList =
(
["ngi", "sa_amrrecording", ".dll"],
["ngi", "sa_highlevelaudio", ".dll"],
["ngi", "sa_audiomixing", ".dll"],
["ngi", "sa_audiorecording", ".dll"],
["ngi", "sa_clip", ".dll"],
["ngi", "sa_lowlevelaudio", ".dll"],
["ngi", "sa_stream", ".dll"],
["ngi", "sa_bitmap", ".dll"],
["ngi", "sa_camera", ".dll"],
["ngi", "sa_images", ".dll"],
["ngi", "sa_display", ".dll"],
["ngi", "sa_lights", ".dll"],
["ngi", "sa_videoplayback", ".dll"],
["ngi", "sa_input", ".dll"],
["ngi", "sa_textinput", ".dll"],
["ngi", "sa_devicecapabilities", ".dll"],
["ngi", "sa_devicestatus", ".dll"],
["ngi", "sa_runtimetester", ".dll"],
["ngi", "sa_timing", ".dll"],
);
mkdir $ATSRoot;
mkdir $ATSRoot."\\components" || die ("DIED: unable to create component dir");
my $lib;
my $module;
my $ext;
foreach my $ref(@datList)
{
my @inarr = @$ref;
($lib, $module,$ext) = @inarr;
@generatedModules = ($module);
GenDirs($lib);
CopyDlls($lib,$ext);
}
@generatedModules =("sa_backbuffer");
GenDirs($lib);
@dllList =
(
"sa_bb_antitearing.dll",
"sa_bb_colortranslation.dll",
"sa_bb_createfb444.dll",
"sa_bb_createfb565.dll",
"sa_bb_createfb888.dll",
"sa_bb_misc.dll",
"sa_bb_heapusage.dll",
"sa_bb_multibb.dll",
"sa_bb_performance.dll",
"sa_bb_plswitch.dll",
"sa_bb_testenv.dll"
);
CopyMultiDlls("ngi");
mkdir $ATSRoot."\\components\\shared" || die("Wouldn't make shared folder in $ATSRoot\\components");
mkdir $ATSRoot."\\components\\shared\\winscw_udeb" || die("Wouldn't make shared folder in $ATSRoot\\components\winscw_udeb");
mkdir $ATSRoot."\\components\\shared\\armv5_urel" || die("Wouldn't make shared folder in $ATSRoot\\components\armv5_urel");
}#fn
sub GetXmls()
{
my @foundList;
my $libname = shift @_;
my @globlist = ();
if($target eq "winsspd" && $sdkversion ne "")
{
@globlist = ("winsspd_".$sdkversion);
#print "winsspd ".$sdkversion." selected\n";
}
elsif($target eq "winsspd")
{
@globlist = ("winsspd");
#print "winsspd selected\n";
}
elsif($sdkversion ne "")
{
@globlist = ($target,"hw_".$sdkversion);
#print "$target $sdkversion selected\n";
}
else
{
@globlist = ($target,"hw");
#print "$target $sdkversion selected\n";
}
foreach my $module(@generatedModules)
{
my $glob_to_use = "";
my @fileList;
foreach my $glob(@globlist)
{
my $src = $ATSRoot."/components/".$libname."_"."$module/*.xml";
#print "Analysing $module and $glob\n";
@fileList = glob($src);
foreach my $file(@fileList)
{
my $pat = $glob."\_component\.xml";
#print "[$file - $glob"."_component.xml"."]\n";
if($file =~ /$pat/)
{
$glob_to_use = $pat;
#print "[$file - $glob"."_component.xml"."]\n";
last
}
}#foreach FILE
if($glob_to_use ne "")
{
last;
}
}#finding glob
if($glob_to_use ne "")
{
#print "Using the glob $glob_to_use\n";
my $src = $ATSRoot."/components/".$libname."_"."$module/*.xml";
@fileList = glob($src);
foreach my $file(@fileList)
{
#print "[$file - $glob_to_use]\n";
if($file =~ /$glob_to_use/)
{
$file =~ /.*components[\\\/](.*)/;
my $value = $1;
$value =~ s/\//\\/g;
#print "adding $value for $module with $glob_to_use\n";
unshift @foundList,$value;
}#if
}#foreach
}#glob is present
else
{
warn("Unable to figure out glob to use for $module. Skipping...\n");
}
}#each module
return @foundList;
}#fn
__END__
:end