bintools/elftools/deputil.pl
author timothy.murphy@nokia.com
Wed, 26 May 2010 15:06:05 +0100
branchfix
changeset 575 e8d124df4a90
parent 0 044383f39525
permissions -rw-r--r--
remove unused INTERBASE variable. Use TARGET_lower where it's clearer.

#
# 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);