1 # Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

     4 # under the terms of "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 #

    15 

    16 use FindBin;		# for FindBin::Bin

    17 use Getopt::Long;

    18 

    19 # establish the path to the Perl binaries

    20 BEGIN {

    21 	require 5.005_03;				# check user has a version of perl that will cope

    22 	$PerlBinPath = $FindBin::Bin;	# X:/epoc32/tools

    23 	$PerlBinPath =~ s/\//\\/g;		# X:\epoc32\tools

    24 }

    25 use lib $PerlBinPath;

    26 

    27 use DepUtil;

    28 use Armutl;

    29 

    30 

    31 my %opts = ();

    32 

    33 my $result = GetOptions(\%opts,

    34 						"inter",

    35 						"path:s",

    36 						"libpath:s",

    37 						"out:s",

    38 						"verbose"

    39 						);

    40 my $gPath = $opts{"path"};

    41 my $glibPath = $opts{"libpath"};

    42 my $gOutFile = $opts{"out"};

    43 my $gVerbose = $opts{"verbose"};

    44 my @libs;

    45 my $lib;

    46 my $aCnt = 0;

    47 while($ARGV[$aCnt]){

    48 	push @libs, $ARGV[$aCnt++];

    49 }

    50 my $oP = '--';

    51 $oP = '-' if (Armutl_RVCTMajorVersion() == 2 && Armutl_RVCTMinorVersion() < 2);

    52 my $interworkingp = $opts{"inter"};

    53 my $interworking = "${oP}apcs /nointer";

    54 $interworking = "${oP}apcs /inter" if ($interworkingp);

    55 

    56 &GenDependencies($interworking, $gOutFile, $gPath, $glibPath, \@libs, $gVerbose);