1 #

     2 # Copyright (c) 2007 Nokia Corporation and/or its subsidiary(-ies).

     3 # All rights reserved.

     4 # This component and the accompanying materials are made available

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

     6 # which accompanies this distribution, and is available

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

     8 #

     9 # Initial Contributors:

    10 # Nokia Corporation - initial contribution.

    11 #

    12 # Contributors:

    13 #

    14 # Description: 

    15 #

    16 

    17 

    18 #------------------------------------------------------------------------------------

    19 # Includes

    20 #------------------------------------------------------------------------------------

    21 #use strict;

    22 use warnings;

    23 use FindBin; # for FindBin:Bin

    24 

    25 #------------------------------------------------------------------------------------

    26 # GLOBAL CODE

    27 #------------------------------------------------------------------------------------

    28 

    29 my $version = 10.1;

    30 my $file = "";

    31 

    32 while(scalar(@ARGV) >= 1)

    33 {

    34 	my $argument = shift(@ARGV);

    35 

    36 	if($argument eq "-v")

    37 		{

    38 		$version = shift(@ARGV);

    39 		}

    40 		

    41 	if($argument eq "-f")

    42 		{

    43 		$file = shift(@ARGV);

    44 		}

    45 }

    46 

    47 open(FILE_HANDLE, $file) or die ("Could not read file '$file'\n");

    48 my @lines = <FILE_HANDLE>;

    49 close(FILE_HANDLE);

    50 

    51 foreach my $line ( @lines )

    52   {

    53   if( $line =~ /\/epoc32([^\"]+)\.dll/i )

    54    	{

    55      	my $filename = "/epoc32" . $1 . ".dll";

    56 			$filename =~ s/\//\\/g;

    57 			print $filename . " TO VERSION " . $version . "\n";

    58 			system("elftran $filename -version $version");

    59 		}

    60 	}