#!/usr/bin/perl -w | |
############################################################################# | |
## | |
## Copyright (C) 2011 Nokia Corporation and/or its subsidiary(-ies). | |
## All rights reserved. | |
## Contact: Nokia Corporation (qt-info@nokia.com) | |
## | |
## This file is part of the S60 port of the Qt Toolkit. | |
## | |
## $QT_BEGIN_LICENSE:LGPL$ | |
## GNU Lesser General Public License Usage | |
## This file may be used under the terms of the GNU Lesser General Public | |
## License version 2.1 as published by the Free Software Foundation and | |
## appearing in the file LICENSE.LGPL included in the packaging of this | |
## file. Please review the following information to ensure the GNU Lesser | |
## General Public License version 2.1 requirements will be met: | |
## http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html. | |
## | |
## In addition, as a special exception, Nokia gives you certain additional | |
## rights. These rights are described in the Nokia Qt LGPL Exception | |
## version 1.1, included in the file LGPL_EXCEPTION.txt in this package. | |
## | |
## GNU General Public License Usage | |
## Alternatively, this file may be used under the terms of the GNU General | |
## Public License version 3.0 as published by the Free Software Foundation | |
## and appearing in the file LICENSE.GPL included in the packaging of this | |
## file. Please review the following information to ensure the GNU General | |
## Public License version 3.0 requirements will be met: | |
## http://www.gnu.org/copyleft/gpl.html. | |
## | |
## Other Usage | |
## Alternatively, this file may be used in accordance with the terms and | |
## conditions contained in a signed written agreement between you and Nokia. | |
## | |
## | |
## | |
## | |
## | |
## $QT_END_LICENSE$ | |
## | |
############################################################################# | |
# A script to get around some shortcomings in elf2e32, namely: | |
# - Returning 0 even when there are errors. | |
# - Excluding symbols from the dso file even when they are present in the ELF file. | |
# - Including symbols in the the dso file even when they are not present in the ELF file. | |
# - Overwriting the old dso file even when there are no changes (increases build time). | |
use File::Copy; | |
my @args = (); | |
my @definput; | |
my @defoutput; | |
my @dso; | |
my @tmpdso; | |
foreach (@ARGV) { | |
if (/^--definput/o) { | |
@definput = split('=', $_); | |
} elsif (/^--defoutput/o) { | |
@defoutput = split('=', $_); | |
} elsif (/^--dso/o) { | |
@dso = split('=', $_); | |
} elsif (/^--tmpdso/o) { | |
@tmpdso = split('=', $_); | |
$tmpdso[0] = "--dso"; | |
} else { | |
push(@args, $_); | |
} | |
} | |
@definput = () if (!@definput || ! -e $definput[1]); | |
if (@dso && !@tmpdso || !@dso && @tmpdso) { | |
print("--dso and --tmpdso must be used together.\n"); | |
exit 1; | |
} | |
my $buildingLibrary = (@defoutput && @dso) ? 1 : 0; | |
my $fixupFile = ""; | |
my $runCount = 0; | |
my $returnCode = 0; | |
while (1) { | |
if (++$runCount > 2) { | |
print("Internal error in $0, link succeeded, but exports may be wrong.\n"); | |
last; | |
} | |
my $elf2e32Pipe; | |
my $elf2e32Cmd = "elf2e32 @args" | |
. " " . join("=", @definput) | |
. " " . join("=", @defoutput) | |
. " " . join("=", @tmpdso); | |
open($elf2e32Pipe, "$elf2e32Cmd 2>&1 |") or die ("Could not run elf2e32"); | |
my %fixupSymbols; | |
my $foundBrokenSymbols = 0; | |
my $errors = 0; | |
while (<$elf2e32Pipe>) { | |
print; | |
if (/Error:/io) { | |
$errors = 1; | |
} elsif (/symbol ([a-z0-9_]+) absent in the DEF file, but present in the ELF file/io) { | |
$fixupSymbols{$1} = 1; | |
$foundBrokenSymbols = 1; | |
} elsif (/[0-9]+ Frozen Export\(s\) missing from the ELF file/io) { | |
$foundBrokenSymbols = 1; | |
} | |
} | |
close($elf2e32Pipe); | |
if ($errors) { | |
$returnCode = 1; | |
last; | |
} | |
if ($buildingLibrary && $runCount == 1) { | |
my $tmpDefFile; | |
my $newDefFile; | |
my $origDefFile; | |
my $savedNewDefFileLine = ""; | |
if ($definput[1]) { | |
open($origDefFile, "< $definput[1]") or die("Could not open $definput[1]"); | |
} | |
open($newDefFile, "< $defoutput[1]") or die("Could not open $defoutput[1]"); | |
open($tmpDefFile, "> $defoutput[1].tmp") or die("Could not open $defoutput[1].tmp"); | |
print($tmpDefFile "EXPORTS\n"); | |
$fixupFile = "$defoutput[1].tmp"; | |
while (1) { | |
my $origDefLine; | |
my $origSym; | |
my $origOrdinal; | |
my $origExtraData; | |
my $newDefLine; | |
my $newSym; | |
my $newOrdinal; | |
my $newExtraData; | |
my $defLine; | |
my $sym; | |
my $ordinal; | |
my $extraData; | |
if ($definput[1]) { | |
# Read from original def file, and skip non-symbol lines | |
while (1) { | |
$origDefLine = <$origDefFile>; | |
if (defined($origDefLine)) { | |
$origDefLine =~ s/[\n\r]//; | |
if ($origDefLine =~ /([a-z0-9_]+) +\@ *([0-9]+) (.*)/i) { | |
$origSym = $1; | |
$origOrdinal = $2; | |
$origExtraData = $3; | |
last; | |
} | |
} else { | |
last; | |
} | |
} | |
} | |
if ($savedNewDefFileLine) { | |
# This happens if the new def file was missing an entry. | |
$newDefLine = $savedNewDefFileLine; | |
$newDefLine =~ /([a-z0-9_]+) +\@ *([0-9]+) (.*)/i or die("$0: Shouldn't happen"); | |
$newSym = $1; | |
$newOrdinal = $2; | |
$newExtraData = $3; | |
} else { | |
# Read from new def file, and skip non-symbol lines | |
while (1) { | |
$newDefLine = <$newDefFile>; | |
if (defined($newDefLine)) { | |
$newDefLine =~ s/[\n\r]//; | |
if ($newDefLine =~ /([a-z0-9_]+) +\@ *([0-9]+) (.*)/i) { | |
$newSym = $1; | |
$newOrdinal = $2; | |
$newExtraData = $3; | |
last; | |
} | |
} else { | |
last; | |
} | |
} | |
} | |
$savedNewDefFileLine = ""; | |
last if (!defined($origDefLine) && !defined($newDefLine)); | |
if (defined($origOrdinal) && (!defined($newOrdinal) || $origOrdinal != $newOrdinal)) { | |
# If the symbol is missing from the new def file, use the original symbol. | |
$savedNewDefFileLine = $newDefLine; | |
$defLine = $origDefLine; | |
$sym = $origSym; | |
$ordinal = $origOrdinal; | |
$extraData = $origExtraData; | |
} else { | |
$defLine = $newDefLine; | |
$sym = $newSym; | |
$ordinal = $newOrdinal; | |
if ($newExtraData =~ /ABSENT/) { | |
# Special case to keep "DATA [0-9]+" data in absent entries. | |
$extraData = $origExtraData; | |
} else { | |
$extraData = $newExtraData; | |
} | |
} | |
if (exists($fixupSymbols{$sym})) { | |
# Fix symbols that have returned after first being marked ABSENT. | |
$extraData =~ s/ ABSENT//; | |
} elsif ($defLine =~ s/; MISSING://) { | |
# Auto-absent symbols. | |
$extraData .= " ABSENT"; | |
} | |
print($tmpDefFile "\t$sym \@ $ordinal $extraData\n"); | |
} | |
print($tmpDefFile "\n"); | |
close($origDefFile) if ($definput[1]); | |
close($newDefFile); | |
close($tmpDefFile); | |
$definput[1] = "$defoutput[1].tmp"; | |
if (!$foundBrokenSymbols || $errors) { | |
last; | |
} | |
print("Rerunning elf2e32 due to DEF file / ELF file mismatch\n"); | |
} else { | |
last; | |
} | |
}; | |
if ($fixupFile) { | |
unlink($defoutput[1]); | |
move($fixupFile, $defoutput[1]); | |
} | |
exit $returnCode if ($returnCode != 0); | |
if ($buildingLibrary) { | |
my $differenceFound = 0; | |
if (-e $dso[1]) { | |
my $dsoFile; | |
my $tmpdsoFile; | |
my $dsoBuf; | |
my $tmpdsoBuf; | |
open($dsoFile, "< $dso[1]") or die("Could not open $dso[1]"); | |
open($tmpdsoFile, "< $tmpdso[1]") or die("Could not open $tmpdso[1]"); | |
binmode($dsoFile); | |
binmode($tmpdsoFile); | |
while(read($dsoFile, $dsoBuf, 4096) && read($tmpdsoFile, $tmpdsoBuf, 4096)) { | |
if ($dsoBuf ne $tmpdsoBuf) { | |
$differenceFound = 1; | |
} | |
} | |
close($tmpdsoFile); | |
close($dsoFile); | |
} else { | |
$differenceFound = 1; | |
} | |
if ($differenceFound) { | |
copy($tmpdso[1], $dso[1]); | |
} | |
} |