bintools/elftools/def2dll.bat
changeset 0 044383f39525
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bintools/elftools/def2dll.bat	Tue Oct 27 16:36:35 2009 +0000
@@ -0,0 +1,308 @@
+@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 %*
+
+
+
+
+
+
+
+