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) 1997-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:
# Contains utility subroutines for MAKMAKE and associated scripts
#
#
package Genutl;
require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
Genutl_AnyToHex
Genutl_VersionToUserString
Genutl_VersionToHexString
Genutl_VersionToFileAugment
Genutl_StringToVersion
Genutl_ParseVersionedName
Genutl_NormaliseVersionedName
);
sub Genutl_AnyToHex ($) {
# changes decimal and hexadecimal numbers to the required hexadecimal format
my $Num=$_[0];
$Num=lc $Num; # lower casing the x specifying hexadecimal essential
if ($Num=~/^(\d{1,10}|0x[\dabcdef]{1,8})$/o) { # this isn't perfect
$Num=oct $Num if $Num=~/^0x/o;
return sprintf "0x%.8lx", $Num;
}
return undef;
}
sub Genutl_VersionToUserString(%) {
my (%ver) = @_;
return sprintf("%d\.%d", $ver{major}, $ver{minor});
}
sub Genutl_VersionToHexString(%) {
my (%ver) = @_;
return sprintf("%04x%04x", $ver{major}, $ver{minor});
}
sub Genutl_VersionToFileAugment(%) {
my (%ver) = @_;
return sprintf("{%04x%04x}", $ver{major}, $ver{minor});
}
sub Genutl_StringToVersion($) {
my ($s) = @_;
if ($s =~ /^(\d+)\.(\d+)$/) {
my %ver;
$ver{major} = $1;
$ver{minor} = $2;
if ($ver{major}<32768 and $ver{minor}<32768) {
return %ver;
}
}
return undef;
}
sub Genutl_ParseVersionedName($) {
my ($nref) = @_;
return 1 unless ($$nref =~ /\{|\}/);
my $a;
my $b;
if ($$nref =~ /(.*)\{((\d|a|b|c|d|e|f){8})\}(.*?)/i) {
$a = $1;
$b = $3;
} elsif ($$nref =~ /(.*)\{\s*(\d+)\s*\.\s*(\d+)\s*\}(.*?)$/i) {
$a = $1;
$b = $4;
my $major = $2;
my $minor = $3;
return 0 if ($major>=32768 or $minor>=32768);
$$nref = $a.sprintf("{%04x%04x}",$major,$minor).$b;
} else {
return 0;
}
if ($a=~/\{|\}/ or $b=~/\{|\}/) {
return 0;
}
return 1;
}
sub Genutl_NormaliseVersionedName($) {
my ($name) = @_;
if ($name =~ /(.*)\{\s*(\d+)\s*\.\s*(\d+)\s*\}(.*?)$/i) {
my $a = $1;
my $b = $4;
my $major = $2;
my $minor = $3;
return $a.sprintf("{%04x%04x}",$major,$minor).$b if ($major<32768 and $minor<32768);
}
return $name;
}