Moving feature configuration out of the buildrom scope.
# 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:
# this module requires Pathutl module to have been 'used' by the main program
# General Def file utilities
#
#
package Defutl;
require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
Def_ReadFileL Def_WriteFileL
);
use File::Path;
use File::Basename;
sub Def_ReadFileL ($$$$) {
# this function reads a .DEF file, putting the export information into a data
# structure
my ($DataStructRef, $FILE, $ExportsOn, $IgnoreSequence)=@_;
# initialisation
@$DataStructRef=();
# this function expects all statements to appear on separate lines - though MSVC doesn't
open (FILE, "<$FILE") or die "could not open $FILE: $!";
my $PreviousOrdinal=0;
my $MultiLineStatement='';
my $NAMEorLIBRARYallowed=1;
my $LineNum=0;
while (<FILE>) {
$LineNum++;
my %Data;
$Data{Line}=$_;
$Data{LineNum}=$LineNum;
# blank lines and comment lines
if (/^\s*(;.*)?$/o) {
push @$DataStructRef, \%Data;
next;
}
if (/^\s*(EXPORTS|SECTIONS|IMPORTS)\s*(\s+\S+.*)?$/io) {
# check for multi-line sections starting
$MultiLineStatement=uc $1;
$NAMEorLIBRARYallowed=0;
unless ($2) {
push @$DataStructRef, \%Data;
next;
}
$_=$2;
}
elsif (/^\s*(NAME|LIBRARY|DESCRIPTION|STACKSIZE|VERSION)\s*(\s+\S+.*)?$/io) {
# set MULTI-LINE statement to OFF
$MultiLineStatement='';
# check single-line statements are specified correctly
$_=uc $1;
# check NAME or LIBRARY statements aren't supplied incorrectly
if (/^(NAME|LIBRARY)$/o) {
unless ($NAMEorLIBRARYallowed) {
die "$FILE($LineNum) : DEFFILE ERROR: NAME or LIBRARY statements must precede all other statements\n";
}
push @$DataStructRef, \%Data;
next;
}
$NAMEorLIBRARYallowed=0;
push @$DataStructRef, \%Data;
next;
}
else {
unless ($MultiLineStatement) {
chomp $_;
die "$FILE($LineNum) : DEFFILE ERROR: Unrecognised Syntax \"$_\"\n";
}
}
if ($MultiLineStatement eq 'EXPORTS') {
# get export data
if (/^\s*(\S+)\s+\@\s*(\d+)\s*(NONAME)?\s*((DATA)\s*(\d+))?\s*(R3UNUSED)?\s*(ABSENT)?\s*(;\s*(.*))?$/io) {
$Data{Name}=$1;
$Data{Ordinal}=$2;
if ($4) {
# Mark the data symbols and retain the size.
$Data{Data} = 1;
if($6){
$Data{Size} = $6;
}
}
if ($7) {
$Data{R3Unused} = 1;
}
if ($8) {
$Data{Absent} = 1;
}
if ($10) {
$Data{Comment}=$10;
}
if ($Data{Name} =~ /^(\S+?)=(\S+)$/) {
# rename this export
$Data{ExportName}=$1;
$Data{Name}=$2;
if ($Data{Name} =~ /=/) {
die "$FILE($LineNum) : DEFFILE ERROR: $Data{Name} Invalid rename syntax\n";
}
}
else {
$Data{ExportName}=$Data{Name};
}
# test the export - this is probably too slow to bother with
my $ExportRef;
unless ($IgnoreSequence) {
# check ordinal specified in sequence - this check is a style matter
# rather the a .DEF file syntax matter, so maybe it shouldn't be applied
unless ($Data{Ordinal}==($PreviousOrdinal+1)) {
die "$FILE($LineNum) : DEFFILE ERROR: Ordinal not specified in sequence\n";
}
}
$PreviousOrdinal=$Data{Ordinal};
push @$DataStructRef, \%Data;
next;
}
if (/^\s*_E32Startup(\s*\=\s*__E32Startup)?\s+(;\s*(.*))?$/io) {
# Emulator's special entrypoint ordinal
next;
}
if (/^\s*_E32Dll(\s*\=\s*__E32Dll)?\s+(;\s*(.*))?$/io) {
# Emulator's special entrypoint ordinal
next;
}
die "$FILE($LineNum) : DEFFILE ERROR: Incorrect EXPORTS statement syntax\n";
}
}
# decide whether we've ended up with an EXPORTS section specified
if ($MultiLineStatement eq 'EXPORTS') {
$_[2]=1; # $ExportsOn
}
else {
$_[2]=0; # $ExportsOn
}
close FILE or die "DEFFILE ERROR: Can't close file $FILE: $!\n";
}
sub Def_WriteFileL ($$) {
# Writes an array of text to a file
my ($TextArrayRef, $FILE)=@_;
# make sure path exists
my($filename, $directories, $suffix) = fileparse($FILE);
unless (-d $directories) {
eval { mkpath[$directories] };
die $@ if $@;
}
open (FILE, ">$FILE") or die "DEFFILE ERROR: Could not open $FILE: $!\n";
print FILE @$TextArrayRef or die "DEFFILE ERROR: Can't write output to $FILE: $!\n";
close FILE or die "DEFFILE ERROR: Can't close file $FILE: $!\n";
}
1;