bintools/elftools/deputil.pl
changeset 0 044383f39525
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bintools/elftools/deputil.pl	Tue Oct 27 16:36:35 2009 +0000
@@ -0,0 +1,57 @@
+#
+# 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 the License "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: 
+#
+
+use FindBin;		# for FindBin::Bin
+use Getopt::Long;
+
+# establish the path to the Perl binaries
+BEGIN {
+	require 5.005_03;				# check user has a version of perl that will cope
+	$PerlBinPath = $FindBin::Bin;	# X:/epoc32/tools
+	$PerlBinPath =~ s/\//\\/g;		# X:\epoc32\tools
+}
+use lib $PerlBinPath;
+
+use DepUtil;
+use Armutl;
+
+
+my %opts = ();
+
+my $result = GetOptions(\%opts,
+						"inter",
+						"path:s",
+						"libpath:s",
+						"out:s",
+						"verbose"
+						);
+my $gPath = $opts{"path"};
+my $glibPath = $opts{"libpath"};
+my $gOutFile = $opts{"out"};
+my $gVerbose = $opts{"verbose"};
+my @libs;
+my $lib;
+my $aCnt = 0;
+while($ARGV[$aCnt]){
+	push @libs, $ARGV[$aCnt++];
+}
+my $oP = '--';
+$oP = '-' if (Armutl_RVCTMajorVersion() == 2 && Armutl_RVCTMinorVersion() < 2);
+my $interworkingp = $opts{"inter"};
+my $interworking = "${oP}apcs /nointer";
+$interworking = "${oP}apcs /inter" if ($interworkingp);
+
+&GenDependencies($interworking, $gOutFile, $gPath, $glibPath, \@libs, $gVerbose);
\ No newline at end of file