--- /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