1) Add the sbsv1 components from sftools/dev/build to make the linux_build package independent of the obsolete buildtools package.
2) Enhance romnibus.pl so that it generate the symbol file for the built rom when invoked by Raptor
3) Make the maksym.pl tool portable for Linux as well as Windows.
4) Remove the of armasm2as.pl from the e32tools component in favour of the copy now exported from sbsv1/e32util.
# Copyright (c) 2001-2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Nokia Corporation - initial contribution.
#
# Contributors:
#
# Description:
#
package lockit_info;
use File::Copy;
use File::Path;
use File::Basename;
require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
Check_Epocroot
Setup_LockitPath
Lockit_Releasables
Copy_Files
WriteTo_Info
LineExists
Lockit_SrcFile
Open_InfoFile
Close_InfoFile
);
use Pathutl;
my $epocroot;
my $epocPath;
sub Check_Epocroot
{
$epocroot = $ENV{EPOCROOT};
die "ERROR: Must set the EPOCROOT environment variable\n" if (!defined($epocroot));
$epocroot =~ s-/-\\-go; # for those working with UNIX shells
die "ERROR: EPOCROOT must not include a drive letter\n" if ($epocroot =~ /^.:/);
die "ERROR: EPOCROOT must be an absolute path without a drive letter\n" if ($epocroot !~ /^\\/);
die "ERROR: EPOCROOT must not be a UNC path\n" if ($epocroot =~ /^\\\\/);
die "ERROR: EPOCROOT must end with a backslash\n" if ($epocroot !~ /\\$/);
die "ERROR: EPOCROOT must specify an existing directory\n" if (!-d $epocroot);
$epocroot=~ s-\\$--; # chop trailing \\
$epocPath = "$epocroot\\epoc32\\localisation";
}
## main function which handles all lockit-related function
sub Lockit_SrcFile()
{
my ($ResrcFile, $RppFile,$Resrc_Options, $FileType, $Bitmaps, $RscTarget, $lang);
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
($ResrcFile, $RppFile,$Resrc_Options, $FileType, $Bitmaps, $RscTarget, $lang)= @_;
}
else {
($ResrcFile, $RppFile,$Resrc_Options, $FileType, $Bitmaps, $RscTarget)= @_;
}
$RscTarget=Path_Split('File', $RscTarget);
my ($Tgtdir, $CWDir) = split(/:/, $Resrc_Options);
$Tgtdir =~s-^(.*)\\$-$1-o; # remove terminating backslash
$Tgtdir=~s-^\\--o; # remove leading backslash
Check_Epocroot();
my $FilePath;
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
$FilePath = Setup_LockitPath($CWDir, $ResrcFile, $FileType, $lang);
# update rppfile in epoc32\localisation if -l option specified and generating resource
copy("$RppFile", "$FilePath\\");
}
else {
$FilePath = Setup_LockitPath($CWDir, $ResrcFile, $FileType);
# update rppfile in epoc32\localisation if -l option specified and generating resource
copy("$RppFile", "$FilePath\\$ResrcFile.rpp");
}
# update bitmaps in epoc32\localisation if -l option and bitmaps specified
if ($CWDir && ($Bitmaps ne ""))
{
my $BmpRef;
$Bitmaps =~ s/ +|\t/ /g; # replace tabs and more spaces with single space
$Bitmaps =~s/^ //g; # remove leading space
$Bitmaps =~s/ $//g; # remove trailing space
my (@AifBitmaps) = split(/ /, $Bitmaps);
foreach $BmpRef (@AifBitmaps) {
$BmpRef =~ /^([^\\]+)(\\.*)$/;
my $CDepth = $1;
my $bmp = $2;
Copy_Files($bmp, $FilePath);
my $file_base= basename($bmp);
chmod (0666,"$FilePath\\$file_base");
}
}
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
if (LineExists($ResrcFile.$lang, $RscTarget) == 0)
{
Open_InfoFile($ResrcFile . $lang);
WriteTo_Info ( "\n\\$Tgtdir\\$RscTarget :" );
if($FileType =~ /RSC/i && $RppFile ne "") {
WriteTo_Info (
" $ResrcFile$lang.rpp"
)
}
elsif ($RppFile ne "") {
WriteTo_Info (
" $ResrcFile$lang.text $ResrcFile$lang.struct"
)
}
if($Bitmaps ne "")
{
my $BmpRef;
my (@AifBitmaps) = split(/ /, $Bitmaps);
foreach $BmpRef (@AifBitmaps) {
$BmpRef =~ /^([^\\]+)(\\.*)$/;
my $CDepth = $1;
my $bmp = $2;
my $file_base= basename($bmp);
WriteTo_Info (
" $CDepth\\$file_base"
);
}
}
Close_InfoFile($ResrcFile . $lang);
}
}
else {
if (LineExists($ResrcFile, $RscTarget) == 0)
{
Open_InfoFile($ResrcFile);
WriteTo_Info ( "\n\\$Tgtdir\\$RscTarget :" );
if($FileType =~ /RSC/i && $RppFile ne "") {
WriteTo_Info (
" $ResrcFile.rpp"
)
}
elsif ($RppFile ne "") {
WriteTo_Info (
" $ResrcFile.text $ResrcFile.struct"
)
}
if($Bitmaps ne "")
{
my $BmpRef;
my (@AifBitmaps) = split(/ /, $Bitmaps);
foreach $BmpRef (@AifBitmaps) {
$BmpRef =~ /^([^\\]+)(\\.*)$/;
my $CDepth = $1;
my $bmp = $2;
my $file_base= basename($bmp);
WriteTo_Info (
" $CDepth\\$file_base"
);
}
}
Close_InfoFile($ResrcFile);
}
}
}
## copy source files
sub Copy_Files ()
{
my ($SourceName, $TargetName) = @_;
copy($SourceName, $TargetName);
}
## create necessary directories
sub Create_InfoFile ()
{
my ($CreateLockitPath, $CreateInfoFile, $Datadir) = @_;
if ( !-e "$CreateLockitPath") { mkpath($CreateLockitPath); }
if ( !-e "$epocPath\\group") { mkpath("$epocPath\\group"); }
if ( !-e "$epocPath\\group\\$CreateInfoFile.info") {
open INFO,">$epocPath\\group\\$CreateInfoFile.info" or die "ERROR: Can not create file \"$CreateInfoFile\"\n";
print INFO "DATADIR: $Datadir\n";
close INFO;
}
}
## open INFO file to write source information
sub Open_InfoFile ($)
{
my $FileToOpen = $_[0];
open INFO,">>$epocPath\\group\\$FileToOpen.INFO" or die "ERROR: Can not open \"$epocPath\\group\\$FileToOpen\"\n";
}
## write source filename to INFO file
sub WriteTo_Info ($)
{
my $Text = $_[0];
print INFO "$Text";
}
## check whether source filename is written to INFO file
sub LineExists ()
{
my $FileToOpen = $_[0];
my $LineCheck = $_[1];
my $exists = 0;
open INFO,"$epocPath\\group\\$FileToOpen.info" or die "ERROR: Can not open \"$FileToOpen\"\n";
while(<INFO>) {
if (/$LineCheck/i) { $exists = 1; return $exists; }
}
close INFO;
return $exists;
}
#determine Components pathname and create INFO files
sub Setup_LockitPath
{
my ($ComponentSrcPath, $Resrc, $FileType, $lang);
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
($ComponentSrcPath, $Resrc, $FileType, $lang) = @_;
}
else {
($ComponentSrcPath, $Resrc, $FileType) = @_;
}
my ($temp, $CWDir) = split(/\\/, $ComponentSrcPath);
my $FilePath = $epocPath;
if($FileType =~ /RSS/i) { $FileType = "rsc"; }
if($FileType =~ /^acl|abw|aif|a[0-9]/i) {
$FilePath .= "\\aif";
}
## change added to support cnf file generation
if ($FileType =~ /CNF/i) {
$FilePath .= "\\cnf";
}
my $WorkPath = "";
if($Resrc !~ /^$CWDir$/i) {
$WorkPath = "$Resrc";
}
$FilePath .= "\\$WorkPath\\$FileType";
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
&Create_InfoFile("$FilePath", "$Resrc$lang", "\\$WorkPath");
}
else {
&Create_InfoFile("$FilePath", "$Resrc", "\\$WorkPath");
}
return $FilePath;
}
## accumulate list of Lockit releasables
sub Lockit_Releasables
{
my ($ComponentSrcPath, $ResrcFile, $href, $Bitmaps, $lang);
my $Resrc;
my ($BaseResrc,$FileType);
my $LockitInfoPath;
my $LockitPath;
my %Files;
if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
($ComponentSrcPath, $ResrcFile, $href, $Bitmaps, $lang) = @_;
$Resrc = basename($ResrcFile);
($BaseResrc,$FileType) = split(/\./, $Resrc);
Check_Epocroot();
$LockitInfoPath = "$epocPath\\group\\$BaseResrc$lang.info";
$LockitPath = Setup_LockitPath($ComponentSrcPath, $BaseResrc, $FileType, "");
%Files = %$href;
if($FileType =~ /RSS|ACL|ABW|AIF|A[0-9]/i && $Bitmaps eq ""){
$LockitPath .= "\\$BaseResrc$lang.rpp";
}
else {
$LockitPath .= "\\$Bitmaps";
}
}
else {
($ComponentSrcPath, $ResrcFile, $href, $Bitmaps) = @_;
$Resrc = basename($ResrcFile);
($BaseResrc,$FileType) = split(/\./, $Resrc);
Check_Epocroot();
$LockitInfoPath = "$epocPath\\group\\$BaseResrc.info";
$LockitPath = Setup_LockitPath($ComponentSrcPath, $BaseResrc, $FileType);
%Files = %$href;
if($FileType =~ /RSS|ACL|ABW|AIF|A[0-9]/i && $Bitmaps eq ""){
$LockitPath .= "\\$BaseResrc.rpp";
}
else {
$LockitPath .= "\\$Bitmaps";
}
}
my %loggedFiles;
$loggedFiles{lc($_)} = 1 foreach keys (%Files);
$Files{$LockitPath} = 1 if !($loggedFiles{lc($LockitPath)});
$Files{$LockitInfoPath} = 1 if !($loggedFiles{lc($LockitInfoPath)});
return %Files;
}
sub Close_InfoFile ($)
{
my $FileToClose = $_[0];
close INFO;
}
1;