ROM Tools 13.1.0.1
Bug468 initialized static data built into a static library does not get initialized correctly
# 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:
# Perl script to scan tree looking for MMP files with particular keywords
#
#
use strict;
use File::Find; # for find()
use File::Basename; # for fileparse()
use Cwd; # for getcwd()
use Getopt::Long;
my %Options=();
GetOptions(\%Options, "f=s");
my @patterns = (
'START\s+BITMAP.*\.MCL',
'START\s+BITMAP.*\.MBW',
'START\s+BITMAP',
'START\s+RESOURCE',
'ALWAYS_BUILD_AS_ARM',
'ASSPABI',
'ASSPEXPORTS',
'ASSPLIBRARY',
'CAPABILITY',
'COMPRESSTARGET',
'DEFFILE',
'DOCUMENT',
'EPOCALLOWDLLDATA',
'EPOCCALLDLLENTRYPOINTS',
'EPOCDATALINKADDRESS',
'EPOCFIXEDPROCESS',
'EPOCHEAPSIZE',
'EPOCPROCESSPRIORITY',
'EPOCSTACKSIZE',
'EXPORTLIBRARY',
'EXPORTUNFROZEN',
'FIRSTLIB',
'LANG',
# 'LIBRARY',
'DEBUGLIBRARY',
'LINKAS',
'MACRO\s+__SECURE_API__',
'MACRO',
'NOCOMPRESSTARGET',
'NOEXPORTLIBRARY',
'NOSTRICTDEF',
'OPTION',
'RAMTARGET',
'RESOURCE',
'ROMTARGET',
'SECUREID',
'SRCDBG',
# 'SOURCE',
# 'SOURCEPATH',
'STATICLIBRARY',
'STRICTDEPEND',
'SYSTEMINCLUDE',
'SYSTEMRESOURCE',
# 'TARGET',
'TARGETPATH',
'TARGETTYPE\s+ANI',
'TARGETTYPE\s+APP',
'TARGETTYPE\s+CTL',
'TARGETTYPE\s+DLL',
'TARGETTYPE\s+ECOMIIC',
'TARGETTYPE\s+EPOCEXE',
'TARGETTYPE\s+EXEDLL',
'TARGETTYPE\s+EXEXP', # must precede TARGETTYPE EXE
'TARGETTYPE\s+EXE',
'TARGETTYPE\s+FSY',
'TARGETTYPE\s+IMPLIB',
'TARGETTYPE\s+KDLL',
'TARGETTYPE\s+KEXT',
'TARGETTYPE\s+KLIB',
'TARGETTYPE\s+LDD',
'TARGETTYPE\s+LIB',
'TARGETTYPE\s+MDA',
'TARGETTYPE\s+MDL',
'TARGETTYPE\s+NOTIFIER2',
'TARGETTYPE\s+NOTIFIER',
'TARGETTYPE\s+PDD',
'TARGETTYPE\s+PDL',
'TARGETTYPE\s+PLUGIN',
'TARGETTYPE\s+PLUGIN3',
'TARGETTYPE\s+RDL',
'TARGETTYPE\s+TEXTNOTIFIER2',
'TARGETTYPE\s+VAR',
'UID',
'USERINCLUDE',
'VENDORID',
'VERSION',
# from START WINS ... END
'START\s+WINS',
'BASEADDRESS',
'WIN32_LIBRARY',
'WIN32_RESOURCE',
'COPY_FOR_STATIC_LINKAGE',
'WIN32_HEADERS',
# count some unmatched things
'AIF',
'SOURCE\s.*\.CIA', # CIA files
'TARGETTYPE\s+(other)?', # a trick to catch unsupported targettypes
'TARGET\s.*DUMMY', # who doesn't really want a TARGET
'#IF',
'#INCLUDE_FAILURE', # unresolved #include directives
'#INCLUDE',
);
my %instances = ();
my %patternsbyfile = ();
my $mmpcount = 0;
sub read_mmp($$$)
{
my ($top,$name,$lines) =@_;
open MMP, "<$name" or print "error: $name $top\n" and return 0;
my @mmplines=<MMP>;
close MMP;
foreach my $line (@mmplines)
{
push @$lines, $line;
if ($line =~/^\#include\s+(\"|\<)([^"<]+)(\"|\>)/)
{
my $currentdir = getcwd();
my $includename = $2;
if (-f $2)
{
# name exists relative to current directory
}
elsif (-f "$ENV{EPOCROOT}epoc32/include/$includename")
{
$includename = "$ENV{EPOCROOT}epoc32/include/$includename";
}
else
{
print "Can't locate $2 from $currentdir/$name $top\n";
push @$lines, "#INCLUDE_FAILURE";
next;
}
my ($newname, $newdir, $newext) = fileparse($includename, '\..*');
chdir($newdir);
read_mmp("from $name $top", "$newname$newext", $lines);
chdir($currentdir);
}
}
return 1;
}
sub mmpgrep
{
my $fullname = $File::Find::name;
return if (defined($patternsbyfile{$fullname}));
my ($name,$dir,$ext) = fileparse($fullname,'\..*');
return unless (lc($ext) eq '.mmp');
my %found = ();
my @lines = ();
return if (read_mmp("", "$name$ext", \@lines)==0);
$mmpcount++;
my $line;
LINE: foreach $line (@lines)
{
$line = uc $line;
foreach (@patterns)
{
if ($line =~/^\s*$_/)
{
$found{$_} = 1;
next LINE;
}
}
}
close MMP;
foreach (keys %found)
{
@{$instances{$_}} = () if (!defined $instances{$_});
push @{$instances{$_}}, $fullname;
}
@{$patternsbyfile{$fullname}} = sort keys %found;
}
# Scan the tree, processing each filename with mmpgrep
my @scanlist = ();
if ($Options{f})
{
open FILELIST, "<$Options{f}" or die "Cannot open $Options{f}\n";
my $line;
while ($line = <FILELIST>)
{
$line =~ s/#.*$//; # remove comments
$line =~ s/\s*$//; # remove trailing ws
$line =~ s/^\s*//; # remove leading ws
next if ($line eq "");
push @scanlist, $line;
}
close FILELIST;
}
push @scanlist, @ARGV;
find (\&mmpgrep,@scanlist);
# Report the results
print "$mmpcount mmp files processed\n";
my $pattern;
print "\nSummary by pattern\n";
foreach $pattern (@patterns)
{
my $count=0;
my $list = $instances{$pattern};
$count = scalar @{$list} if (defined $list);
printf "%-30s %5d\n", $pattern, $count;
}
print "\nDetail\n";
foreach $pattern (sort keys %instances)
{
my $list = $instances{$pattern};
my $title = $pattern;
$title =~ s/\\s\+/ /;
print "\n$title:\n";
foreach my $file (@{$list})
{
print " $file\n";
}
}
foreach (sort keys %patternsbyfile)
{
print "\n$_ : ", join(" ",@{$patternsbyfile{$_}});
}
print "\n";