@rem
@rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
@rem All rights reserved.
@rem This component and the accompanying materials are made available
@rem under the terms of the License "Eclipse Public License v1.0"
@rem which accompanies this distribution, and is available
@rem at the URL "http://www.eclipse.org/legal/epl-v10.html".
@rem
@rem Initial Contributors:
@rem Nokia Corporation - initial contribution.
@rem
@rem Contributors:
@rem
@rem Description:
@rem
@goto invoke
#!perl
#line 19
use strict;
use FindBin; # for FindBin::Bin
use Getopt::Long;
use Cwd;
my $PerlLibPath; # fully qualified pathname of the directory containing our Perl modules
BEGIN {
# check user has a version of perl that will cope
require 5.005_03;
# establish the path to the Perl libraries: currently the same directory as this script
$PerlLibPath = $FindBin::Bin; # X:/epoc32/tools
$PerlLibPath =~ s/\//\\/g; # X:\epoc32\tools
$PerlLibPath .= "\\";
}
use lib $PerlLibPath;
use Defutl;
my %opts = ();
my $result = GetOptions(\%opts,
"path:s",
"bldpath:s",
"deffile:s",
"linkAs:s",
"import:s",
"export:s",
"absent:s",
"inter",
"sym_name_lkup"
);
my $gPath = $opts{"path"}; # 0
my $gBldPath = $opts{"bldpath"}; # 0
my $compName = $opts{"import"}; # 1
my $gDefFile = $opts{"deffile"}; # 2
my $gDllName = $opts{"linkAs"}; # 3
my $gExpFile = $opts{"export"};
my $gLibFile = "$compName.lib" if $compName;
my $gSymbolNameLookup = $opts{"sym_name_lkup"};
my $oP = '--';
my $floatingpointmodel = "${oP}fpu softvfp";
my $interworkingp = $opts{"inter"};
my $interworking = "${oP}apcs /nointer";
$interworking = "${oP}apcs /inter" if ($interworkingp);
my @objectFiles;
&main;
my @DefDataStruct;
sub main ()
{
unless($gDefFile)
{
usage();
}
my $FrzExportsOn=0;
eval { &Def_ReadFileL(\@DefDataStruct, $gDefFile, $FrzExportsOn); };
die $@ if $@;
&parseDefFile(\@DefDataStruct, $opts{absent}, $gDefFile);
&genExpFile($gPath, $gBldPath, $gExpFile) if $gExpFile;
&genLibFile($gPath, $gBldPath, $gLibFile, $gDllName) if $gLibFile;
}
# Usage subroutine
sub usage( )
{
print "\n";
print "DEF2DLL -Creates binary objects used to implement the Symbian OS DLL model\n";
print "\n";
print "Usage: def2dll --deffile=<file> [--path=<dir>] [--bldpath=<dir>] [--import=<file>] [--linkas=<file>] [--inter] [--export=<file>] [--sym_name_lkup]\n";
print "\nOptions:\n";
print "\t--deffile=<file> : def file to be converted\n";
print "\t--path =<direcotry> : destination path\n";
print "\t--bldpath=<direcotry> : build path for dll\n";
print "\t--import=<file> : import from file name\n";
print "\t--linkas=<file> : linkas to file name specified\n";
print "\t--inter : enables interworking on ARM and THUMB\n";
print "\t--export=<file> : export to filename\n";
print "\t--sym_name_lkup : symbol name ordinal number lookupç\n";
print "\n";
exit 1;
}
my %symbols = ();
my %symbolIndexMap = ();
my $exports = 0;
sub parseDefFile ($$$)
{
my ($defStructRef, $AbsentSubst, $defFile) = @_;
my $Ref;
foreach $Ref (@$defStructRef) {
next if (!$Ref);
next if (!defined ($$Ref{Ordinal}));
my $symbol = $$Ref{Name};
my $index = $$Ref{Ordinal};
my $rest = $$Ref{Comment};
my $symbolType = 'CODE';
if ($$Ref{Data} || ($symbol =~ /^(_ZTV|_ZTI|_ZTT)/)){
$symbolType = 'DATA';
}
else {
$exports = 1;
}
if ($symbols{$symbol} and !$$Ref{Absent}) {
warn "DEF2DLL - WARNING: $symbol duplicated in $defFile\n";
} else {
if ($$Ref{Absent}) {
$symbolIndexMap{$index} = $AbsentSubst;
} else {
$symbols{$symbol} = $symbolType;
$symbolIndexMap{$index} = $symbol;
}
}
}
}
sub genExpFile ($$$)
{
my ($path, $bldpath, $expFile) = @_;
my $numkeys = keys %symbolIndexMap;
my $failed = 0;
open EXPFILE, ">$path\\$expFile.s" or
die "Error: can't create $path\\$expFile.s\n";
print EXPFILE "\tEXPORT __DLL_Export_Table__\n\n";
print EXPFILE "\tEXPORT |DLL\#\#ExportTable|\n\n";
print EXPFILE "\tEXPORT |DLL\#\#ExportTableSize|\n\n";
print EXPFILE "\tAREA ExportTable, CODE\n";
print EXPFILE "__DLL_Export_Table__\n";
if ($interworkingp) {
print EXPFILE "\tBX lr\n";
} else {
print EXPFILE "\tMOV pc, lr\n";
}
print EXPFILE "|DLL\#\#ExportTableSize|\n";
printf EXPFILE "\tDCD %d\n", $numkeys;
if($gSymbolNameLookup) {
print EXPFILE "\tDCD 0 \n";# This is the 0th ordinal for elftran to fill in.
}
print EXPFILE "|DLL\#\#ExportTable|\n";
my @orderedSyms;
my $maxIndex = 0;
my $index;
foreach $index (keys %symbolIndexMap) {
$maxIndex = $index if $index > $maxIndex;
$orderedSyms[$index] = $symbolIndexMap{$index};
}
print EXPFILE "\tPRESERVE8\n\n";
my $n;
for ($n = 1; $n <= $maxIndex ; $n++) {
my $entry = $orderedSyms[$n];
if ($entry) {
print EXPFILE "\tIMPORT $entry\n";
print EXPFILE "\tDCD $entry \t; @ $n\n";
} else {
warn "WARNING: missing entry at index $n\n";
print EXPFILE "\tDCD 0 ; missing symbol\n";
}
}
# create a .directive section
print EXPFILE "\n\n\tAREA |.directive|, READONLY, NOALLOC\n";
# Mark the section as armlink edit commands
print EXPFILE "\tDCB \"#<SYMEDIT>#\\n\"\n";
# mark the imported symbol for 'dynamic' export
print EXPFILE "\tDCB \"EXPORT DLL##ExportTable\\n\"\n";
print EXPFILE "\tDCB \"EXPORT DLL##ExportTableSize\\n\"\n";
print EXPFILE "\tEND";
close EXPFILE;
$failed = system "armasm $floatingpointmodel $interworking -o $path\\$expFile.exp $path\\$expFile.s";
unlink ("$path\\$expFile.s") unless $failed;
die "Error: cant create $path\\$expFile.exp\n" if $failed;
}
my %DataSymbols = ();
sub genVtblExportFile($$)
{
my ($bldpath, $dllName) = @_;
my $FileName = "VtblExports";
open VTBLFILE, ">$bldpath\\$FileName.s" or
die "Error: can't create $bldpath\\$FileName.s\n";
print VTBLFILE "\tAREA |.directive|, NOALLOC, READONLY, ALIGN=2\n";
printf VTBLFILE "\tDCB \"\#\<SYMEDIT\>\#\\n\"\n";
my $symbol;
foreach $symbol (sort keys %DataSymbols) {
my $index = $DataSymbols{$symbol};
$symbol =~ s/^"(.*)"$/$1/; # remove enclosing quotes
printf VTBLFILE "\tDCB \"IMPORT \#\<DLL\>$dllName\#\<\\\\DLL\>%x AS $symbol \\n\"\n", $index;
}
# printf VTBLFILE "\tDCB \"\#\<\\\\VTBLSYMS\>\#\\n\"\n";
print VTBLFILE "\tEND";
close VTBLFILE;
my $failed = system "armasm $floatingpointmodel $interworking -o $bldpath\\$FileName.o $bldpath\\$FileName.s";
unlink ("$bldpath\\$FileName.s");
die "Error: cant create $bldpath\\$FileName.o\n" if $failed;
push @objectFiles, "$bldpath\\$FileName.o";
}
sub genLibFile ($$$$)
{
my ($path, $bldpath, $libFile, $dllName) = @_;
my $tempFileName = "$bldpath\\$compName";
my $viaFileName = sprintf("$bldpath\\_t%x_via_.txt", time);
my $keyz = keys %symbolIndexMap;
my $failed = 0;
my $key;
if ($keyz > 0) {
open STUBGEN, "|genstubs" if $exports;
foreach $key (sort keys %symbolIndexMap) {
my $symbol = $symbolIndexMap{$key};
my $stubFileName = "$tempFileName-$key";
if ( $symbols{$symbol} eq 'DATA') {
$DataSymbols{$symbol} = $key;
} else {
printf STUBGEN "$stubFileName.o $symbol #<DLL>$dllName#<\\DLL>%x\n", $key;
push @objectFiles, "$stubFileName.o";
}
}
genVtblExportFile($bldpath, $dllName);
} else {
# create dummy stub so armar creates a .lib for us
open STUBGEN, "|genstubs";
print STUBGEN "$tempFileName-stub.o $tempFileName##stub $dllName##dummy\n";
push @objectFiles, "$tempFileName-stub.o";
}
close STUBGEN;
open VIAFILE, ">$viaFileName" or
die "Error: can't create VIA fie $viaFileName\n";
print VIAFILE "${oP}create \"$path\\$libFile\"\n";
my $objectFile;
foreach $objectFile (@objectFiles) {
print VIAFILE "\"$objectFile\"\n";
}
close VIAFILE;
$failed = system( "armar ${oP}via $viaFileName");
push @objectFiles, $viaFileName;
unlink @objectFiles;
die "Error: can't create $path\\$libFile\n" if $failed;
}
__END__
# Tell emacs that this is a perl script even 'though it has a .bat extension
# Local Variables:
# mode:perl
# tab-width:4
# End:
:invoke
@perl -x -S def2dll.bat %*