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) 2004-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:
# Cl_edg;
#
#
package Cl_edg;
require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
PMHelp_Mmp
PMStartBldList
PMBld
PMStartSrcList
PMStartSrc
PMSrcDepend
PMSrcBldDepend
PMEndSrcBld
PMEndSrc
PMEndSrcList
);
use cl_generic;
use Genutl;
use File::Path;
use Cwd;
sub PMHelp_Mmp {
print "// No additional keywords for this platform\n";
}
my $epocroot = $ENV{EPOCROOT};
$epocroot=~ s-\\$--; # chop trailing \\
my $Makecmd;
sub PMStartBldList($) {
($Makecmd) = @_;
my $BasicTrgType=&main::BasicTrgType;
my @BldList=&main::BldList;
my @ChopRTWSysIncPaths=&main::Path_Chop(&main::Path_RltToWork(&main::SysIncPaths)); # old style
my @ChopRTWUserIncPaths=&main::Path_Chop(&main::Path_RltToWork(&main::UserIncPaths)); # old style
my $RelPath="$epocroot\\EPOC32\\RELEASE";
my $RPath = &main::Path_RltToWork($RelPath);
my @MacroList=&main::MacroList();
my $VariantFile=&main::VariantFile();
my $Trg=&main::Trg;
my $DPath = &main::Path_RltToWork($epocroot);
my $DefFile = &main::DefFile;
my $EABIDefFile = &main::EABIDef;
my $EdgSysIncludeList = "Edg_sysinc_list.txt";
my $EdgUserIncludeList = "Edg_userinc_list.txt";
my $EdgUdebReportList = "Edg_udeb_rep_list.txt";
my $EdgUrelReportList = "Edg_urel_rep_list.txt";
&Generic_Header(0,$Makecmd); # define standard things using relative paths
# EDG report file generation
&main::Output(
"GXPTRGUDEB = $RPath\\EDG\\UDEB\n",
"GXPTRGUREL = $RPath\\EDG\\UREL\n\n",
"DEFFILE = $DefFile\n\n",
"EABIDEFFILE = $EABIDefFile\n\n",
"EDG_SYSINC_LIST=\${EPOCBLD}\\..\\..\\", $EdgSysIncludeList,
"\n",
"EDG_USERINC_LIST=\${EPOCBLD}\\..\\..\\", $EdgUserIncludeList,
"\n",
"EDG_UREL_REP_LIST=\${EPOCBLD}\\..\\..\\",$EdgUrelReportList,
"\n",
"EDG_UDEB_REP_LIST=\${EPOCBLD}\\..\\..\\", $EdgUdebReportList,
"\n\n"
);
&main::Output(
"INCDIR ="
);
foreach (@ChopRTWUserIncPaths) {
&main::Output(
" --include_directory \"$_\""
);
}
&main::Output(
"\n"
);
&main::Output(
"SYSINCDIR ="
);
foreach (@ChopRTWSysIncPaths) {
&main::Output(
" --sys_include \"$_\"",
);
}
&main::Output(
"\n",
"\n"
);
my $preinclude = "--preinclude \$(EPOCINC)\\edg\\edg3_7_rvct2_2.h";#this is the variant line you must change to "simulate" another compiler.
&main::Output(
"GCCFLAGS = --wchar_t_keyword --no_code_gen --exceptions --no_warnings",
" ${preinclude}",
"\n"
);
&main::Output(
"GCCDEFS = -D __MARM_THUMB__ -D __MARM_INTERWORK__ -D __ARMCC__ -D __EPOC32__ -D __MARM__ -D __EABI__ -D __ARMCC_2__ -D __ARMCC_2_2__ -D __SUPPORT_CPP_EXCEPTIONS__ -D IMPORT_C= -D EXPORT_C= -D __softfp="
);
foreach(@MacroList) {
&main::Output(
" -D $_"
);
}
if($VariantFile){
&main::Output(" -D __PRODUCT_INCLUDE__=\\\"${VariantFile}\\\"");
}
&main::Output(
" \$(USERDEFS)\n",
"\n"
);
foreach (@BldList) {
&main::Output(
"GCC$_ = cpfe"
);
&main::Output(
' $(GCCFLAGS)'
);
foreach (&main::MacroList($_)) {
&main::Output(
" -D $_"
);
}
&main::Output(
" \$(GCCDEFS)\n"
);
}
&main::Output(
"\n",
"\n"
);
&main::Output(
"LIBRARY:\n",
"\t\@echo Nothing to do\n"
);
&main::Output(
"RESOURCEUREL:\n",
"\t\@echo Nothing to do\n"
);
&main::Output(
"RESOURCEUDEB:\n",
"\t\@echo Nothing to do\n\n\n"
);
foreach (@BldList) {
&main::Output(
"$_ :"
);
if ($BasicTrgType !~ /IMPLIB/io) {
my $TrgBase = &main::Path_Split('base',$Trg);
&main::Output (
" \\\n\t",
&Generic_Quote("\$(GXPTRG$_)\\$TrgBase.gxp")
);
}
&main::Output(
"\n",
"\n"
);
}
}
sub PMBld {
my @ASSPLibList=&main::ASSPLibList;
my @SrcList=&main::SrcList;
my $BaseTrg=&main::BaseTrg;
my $Bld=&main::Bld;
my $ChopBldPath=&main::Path_Chop(&main::BldPath);
my $EPOCIncPath=&main::EPOCIncPath;
my $BasicTrgType=&main::BasicTrgType;
my $ChopRelPath=&main::Path_Chop(&main::RelPath);
my $RelPath=&main::RelPath;
my $Trg=&main::Trg;
my $TrgType=&main::TrgType;
my @UidList=&main::UidList;
# DefFile
my $DefFile = &main::DefFile;
# EABIDefFile
my $EABIDefFile = &main::EABIDef;
# REAL TARGETS
#-------------
&main::Output(
"# REAL TARGET - BUILD VARIANT $Bld\n",
"\n"
);
&main::Output(
"WHAT$Bld : WHATGENERIC\n",
"\n",
"CLEAN$Bld : CLEANBUILD$Bld CLEANRELEASE$Bld\n",
"\n",
"CLEANBUILD$Bld : \n",
"\t\@perl -S ermdir.pl \"\$(EPOCBLD$Bld)\"\n",
"\n",
"CLEANRELEASE$Bld : CLEANGENERIC CLEANEDGTEMPFILES$Bld\n",
"\n"
);
&main::Output("CLEANEDGTEMPFILES$Bld :\n",
"\t\-\$(ERASE) \$(EDG_SYSINC_LIST) ",
"\$(EDG_USERINC_LIST) ",
"\$(EDG_${Bld}_REP_LIST) "
);
my @releaseables;
&Generic_WhatCleanTargets($Bld, "WHAT$Bld", "CLEANRELEASE$Bld", @releaseables);
&Generic_MakeWorkDir("MAKEWORK$Bld",$ChopBldPath);
&Generic_MakeWorkDir("MAKEWORK$Bld",$ChopRelPath);
&main::Output(
"\n",
"\n"
);
# XML Stuff
&main::Output(
&Generic_Quote("\$(GXPTRG$Bld)\\$BaseTrg.gxp"), " : ",
&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseTrg.gxp"),
);
my @ChopRTWSysIncPaths=&main::Path_Chop(&main::Path_RltToWork(&main::SysIncPaths)); # old style
foreach my $incPath (@ChopRTWSysIncPaths) {
&main::Output(
"\n\t\@echo $incPath >> \$(EDG_SYSINC_LIST)",
);
}
my @ChopRTWUserIncPaths=&main::Path_Chop(&main::Path_RltToWork(&main::UserIncPaths)); # old style
foreach my $incPath (@ChopRTWUserIncPaths) {
&main::Output(
"\n\t\@echo $incPath >> \$(EDG_USERINC_LIST)",
);
}
&main::Output(
"\n",
"\n"
);
# TARGET *.GXP
#------------
if (scalar @SrcList >150) {
# deal with very long lists by splitting them into 150 file pieces, which allows
# about 200 bytes per filename if the underlying max size is 32K
#
my $counter1=150; # i.e. trigger new variable immediately
my $counter2=0;
my @objvarlist=();
foreach (@SrcList) {
if ($counter1==150) {
$counter1=0;
$counter2++;
my $objvar = "OBJECTS$Bld$counter2";
push @objvarlist, " \$($objvar)";
&main::Output(
"\n",
"$objvar="
);
}
my $BaseSrc = &main::Path_Split('Base', $_);
my $Ext = &main::Path_Split('Ext', $_);
next if (lc($Ext) eq '.cia');
&main::Output(
" \\\n\t", &Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSrc$Ext.aut")
);
$counter1++;
}
&main::Output(
"\n\n"
);
} else {
# shorter lists remain unchanged
#
&main::Output(
"OBJECTS$Bld="
);
foreach (@SrcList) {
my $BaseSource = &main::Path_Split('Base', $_);
my $Ext = &main::Path_Split('Ext', $_);
next if (lc($Ext) eq '.cia');
&main::Output(
" \\\n\t", &Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSource$Ext.aut")
);
}
&main::Output(
"\n",
"\n"
);
&main::Output("RESOURCEINFO$Bld=");
&main::Output("\n\n");
&main::Output(
&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseTrg.gxp"), " : \$(OBJECTS$Bld) \$(EABIDEFFILE) \$(RESOURCEINFO$Bld)\n",
"\n\n"
);
}
}
sub PMStartSrcList {
&main::Output(
"# SOURCES\n",
"\n"
);
}
sub PMStartSrc {
my $Src=&main::Src;
&main::Output(
"# Source $Src\n",
"\n"
);
}
sub PMSrcDepend {
my @BldList=&main::BldList;
my @DepList=&main::DepList;
my $BaseSrc=&main::BaseSrc;
my $ExtSrc=&main::ExtSrc;
my $cia = (lc($ExtSrc) eq '.cia') ? "_" : "";
return if (@DepList == 0);
foreach (@BldList) {
&main::Output(
&Generic_Quote("\$(EPOCBLD$_)\\$BaseSrc$cia.lis"), " ",
&Generic_Quote("\$(EPOCBLD$_)\\$BaseSrc$cia.aut"), " \\\n",
);
}
&main::Output(
":"
);
foreach (@DepList) {
&main::Output(
" \\\n\t", &Generic_Quote($_)
);
}
&main::Output(
"\n",
"\n"
);
}
sub PMSrcBldDepend {
my $Bld=&main::Bld;
my @DepList=&main::DepList;
my $BaseSrc=&main::BaseSrc;
my $ExtSrc=&main::ExtSrc;
my $cia = (lc($ExtSrc) eq '.cia') ? "" : "";
return if (@DepList == 0);
&main::Output(
&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSrc$cia.lis"), " ",
&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSrc$cia.aut"), " :",
);
foreach (@DepList) {
&main::Output(
" \\\n\t", &Generic_Quote($_)
);
}
&main::Output(
"\n",
"\n"
);
}
my %sources;
sub PMEndSrcBld {
my $ABI=&main::ABI;
my $BaseSrc=&main::BaseSrc;
my $Bld=&main::Bld;
my $Src=ucfirst lc &main::Src;
my $SrcPath=&main::SrcPath;
my $Ext = &main::Path_Split('Ext', $Src);
my $Cia = (lc($Ext) eq '.cia') ? 1 : 0;
my $RTWSrcPath=&main::Path_Chop(&main::Path_RltToWork($SrcPath));
# add source path, source file and build type to hashmap.
$sources{$SrcPath}{$Src}{$Bld}=1;
# Use GCC trick to get assembler source files preprocessed with CPP
$Src =~ s/\.s$/.S/i;
@browser = ();
my $EdgReportFile = "\$(EDG_UREL_REP_LIST)";
if($Bld =~ /udeb/i){
$EdgReportFile = "\$(EDG_UDEB_REP_LIST)";
}
if ($Cia) {
&main::Output(
&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSrc\_.aut"), " : ",
&Generic_Quote("$SrcPath$Src"), "\n",
"\t\$(GCC$Bld) -D __CIA__ --include_directory \"$RTWSrcPath\" \$(INCDIR) --xref \"\$\@\" \"$RTWSrcPath\\$Src\"\n",
"\t\@echo \"\$\<\" >> $EdgReportFile\n",
"\n");
} else {
my $BldPath=&main::BldPath;
my $EdgReportFilePath=UpDir(UpDir(UpDir($BldPath)));
&main::Output(
&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSrc$Ext.aut"), " : ",
&Generic_Quote("$SrcPath$Src"), "\n",
"\t\$(GCC$Bld) --include_directory \"$RTWSrcPath\" \$(INCDIR) \$(SYSINCDIR) --xref \"\$\@\" \"$RTWSrcPath\\$Src\"\n",
"\t\@echo \$(EPOCBLD$Bld)\\$BaseSrc$Ext.aut >> $EdgReportFile\n",
"\n"
);
foreach $browser (@browser)
{
print "$browser\n";
}
}
}
sub PMEndSrc {
&main::Output(
"\n",
"\n"
);
}
sub PMEndSrcList {
&Generic_End;
}
sub UpDir($)
{
my ($aPath) = @_;
my $lastChar = substr($aPath,-1);
my $end = length($aPath)-1;
if ( ($lastChar eq '\\') || ($lastChar eq '/') )
{
$end -= 1;
}
my $last = rindex($aPath,'\\',$end);
if ( (rindex($aPath,'/',$end)>$last) | ($last == -1) )
{ $last = rindex($aPath,'/',$end); }
if ($last == -1)
{ return ""; }
else
{ return substr($aPath,0,$last).'/'; }
}
1;