diff -r 9f25be3da657 -r fa7a3cc6effd sbsv1/abld/toolinfo/rvct_plat2set.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sbsv1/abld/toolinfo/rvct_plat2set.pm	Fri Jun 25 17:29:25 2010 +0800
@@ -0,0 +1,395 @@
+# Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "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:
+# This module provides a mapping from build platforms (e.g. ARMV5) to the
+# corresponding RVCT environment settings. The information is obtained from an INI
+# file pointed to by the environment variable ABLD_PLAT_INI. The file can have two
+# different formats. The first format (Format 1) is:
+# [Symbian_OS_v9.5]
+# ARMV5 = RVCT 2.2.616
+# ARMV6 = RVCT 2.2.616
+# ARMV7 = RVCT 3.1.700
+# [Symbian_OS_v9.6]
+# ARMV5 = RVCT 3.1.862
+# ARMV7 = RVCT 4.0.100
+# [Symbian_OS_vFuture]
+# ARMV5 = RVCT 4.1.812
+# ARMV7 = RVCT 4.0.100
+# This format matches the tuple <OS version, build platform> onto a RVCT version.
+# The build system will look up the OS version in "\epoc32\data\buildinfo.txt".
+# The second format (Format 2) is:
+# ARMV5 = RVCT 2.2.616
+# ARMV6 = RVCT 2.2.616
+# ARMV7 = RVCT 3.1.700
+# This format doesn't take the OS version into account and is mostly intended for
+# the Integration team.
+# If ABLD_PLAT_INI is not set, or if the INI file doesn't contain any data for the
+# given platform, whatever RVCT version is found in the path will be used.
+# 
+#
+
+package RVCT_plat2set;
+
+use RVCT_ver2set;
+
+#
+# PUBLIC FUNCTIONS
+#
+
+# Returns the RVCT version corresponding to the given build platform. The first
+# function returns the data as a string (e.g. "2.2.616"); the second function
+# returns the data as a list (e.g. [2,2,616]).
+sub get_version_string($);
+sub get_version_list($);
+
+# Returns true if an RVCT version corresponding to the given platform exists.
+sub compiler_exists($);
+
+# Given a build platform, returns what the name and value of the RVCT??BIN variable
+# would be. 
+sub get_bin_name($);
+sub get_bin_path($);
+
+# Given a build platform, returns what the name and value of the RVCT??INC variable
+# would be. 
+sub get_inc_name($);
+sub get_inc_path($);
+
+# Given a build platform, returns what the name and value of the RVCT??LIB variable
+# variable would be. 
+sub get_lib_name($);
+sub get_lib_path($);
+
+# Given a build platform and the name of an RVCT library, returns the full path to
+# that library.
+sub find_lib($$);
+
+#
+# PRIVATE HELPER FUNCTIONS
+#
+
+sub _get_something(@);
+sub _err_and_die(@);
+sub _get_os_version();
+sub _parse_section_data($@);
+
+
+#
+# GLOBAL DATA
+#
+
+my %g_data;
+
+
+sub get_version_string($)
+{
+    return _get_something(@_, 'version');
+}
+
+sub get_version_list($)
+{
+    my $tmp = _get_something(@_, 'version');
+
+    return split(/\./, $tmp);
+}
+
+sub compiler_exists($)
+{
+    my $plat = shift;
+
+    if ( $g_data{$plat}->{version} || $g_data{0}->{version} )
+    {
+        return 1;
+    }
+    else
+    {
+        return 0;
+    }
+}
+
+sub get_bin_name($)
+{
+    return _get_something(@_, 'bin_name');
+}
+
+sub get_bin_path($)
+{
+    return _get_something(@_, 'bin_path');
+}
+
+sub get_inc_name($)
+{
+    return _get_something(@_, 'inc_name');
+}
+
+sub get_inc_path($)
+{
+    return _get_something(@_, 'inc_path');
+}
+
+sub get_lib_name($)
+{
+    return _get_something(@_, 'lib_name');
+}
+
+sub get_lib_path($)
+{
+    return _get_something(@_, 'lib_path');
+}
+
+sub find_lib($$)
+{
+    my $plat = shift;
+    my $lib  = shift;
+
+    my $p = get_lib_path($plat);
+
+    my $f1 = "$p\\armlib\\$lib";
+    my $f2 = "$p\\cpplib\\$lib";
+
+    return "$p\\armlib\\$lib" if -f $f1;
+    return "$p\\cpplib\\$lib" if -f $f2;
+
+    _err_and_die("could not find $lib for platform $plat.");
+}
+
+sub _get_something(@)
+{
+    my $plat = shift;
+    my $what = shift;
+    
+    my $data = $g_data{$plat}->{$what};
+
+    if (!$data)
+    {
+        $data = $g_data{0}->{$what};
+    }
+
+    return $data;
+}
+
+sub _err_and_die(@)
+{
+    if ( defined(&main::FatalError) )
+    {
+        main::FatalError(@_);
+    }
+    else
+    {
+        print STDERR "error: @_\n";
+    }
+
+    exit 1;
+}
+
+sub _get_os_version()
+{
+    my $fname = "/epoc32/data/buildinfo.txt";
+    
+    my $os_ver = "";
+
+    open (my $in,  "<",  $fname) or _err_and_die("couldn't open $fname.");
+
+    while (<$in>)
+    {
+        chomp;
+
+        if ( $_ =~ /^\s*ManufacturerSoftwareBuild\s+M\d\d\d\d\d_(\S+)\s*$/i )
+        {
+            $os_ver = $1;
+            last
+        }
+    }
+
+    close $in or _err_and_die("couldn't close $fname.");
+
+    _err_and_die("couldn't read OS version in $fname") unless $os_ver;
+
+    return $os_ver;
+}
+
+sub _parse_section_data($@)
+{
+    my ($fname, @lines) = @_;
+
+    for (@lines)
+    {
+        if ( $_ =~ /^\s*(\w+)\s*=\s*RVCT\s+(\d+\.\d+\.\d+)\s*$/i )
+        {
+            my $plat = uc($1);
+            my $vers = $2;
+
+            _err_and_die("$fname: platform $plat already defined.") if $g_data{$plat};
+            _err_and_die("$fname: RVCT $vers doesn't exist.") unless RVCT_ver2set::compiler_exists($vers);
+
+            $g_data{$plat}->{version} = $vers;
+
+            $g_data{$plat}->{bin_name} = RVCT_ver2set::get_bin_name($vers);
+            $g_data{$plat}->{bin_path} = RVCT_ver2set::get_bin_path($vers);
+
+            $g_data{$plat}->{inc_name} = RVCT_ver2set::get_inc_name($vers);
+            $g_data{$plat}->{inc_path} = RVCT_ver2set::get_inc_path($vers);
+
+            $g_data{$plat}->{lib_name} = RVCT_ver2set::get_lib_name($vers);
+            $g_data{$plat}->{lib_path} = RVCT_ver2set::get_lib_path($vers);
+        }
+        else
+        {
+            _err_and_die("$fname: invalid field: $_.");
+        }
+    }
+}
+
+
+# initialize module
+{
+    # Initialise platform "0", wich represents the RVCT version found in the path.
+    my $vsnworked = 0; # Flag to check if --vsn command worked
+    # clear --licretry from RVCT22_CCOPT
+    my $key;
+    my %RVCT_CCOPT;
+    foreach $key (keys %ENV) {
+        if($key =~ /RVCT\d+_CCOPT/i ) {
+            $RVCT_CCOPT{$key} = $ENV{$key};
+            $ENV{$key} =~ s/--licretry//i;
+        }
+    }
+    my @lines = qx/armcc --vsn 2>&1/;
+
+    foreach (@lines)
+    {
+        if ($_ =~ /\bRVCT(\d)\.(\d)\s+\[Build (\d+)\]/ )
+        {
+	    $vsnworked = 1;
+            my ($bin, $inc, $lib) = ("RVCT$1$2BIN", "RVCT$1$2INC", "RVCT$1$2LIB");
+
+            $g_data{0}->{version} = "$1.$2.$3";
+
+            $g_data{0}->{bin_name} = $bin;
+            $g_data{0}->{bin_path} = $ENV{$bin};
+
+            $g_data{0}->{inc_name} = $inc;
+            $g_data{0}->{inc_path} = $ENV{$inc};
+
+            $g_data{0}->{lib_name} = $lib;
+            $g_data{0}->{lib_path} = $ENV{$lib};
+
+            last;
+        }
+    }
+    # In case --vsn doesn't work, call --version_number and setup environment variables
+    if ($vsnworked == 0)
+    {
+	    my @lines = qx/armcc --version_number 2>&1/;
+	    foreach (@lines) 
+	    {
+		    if ($_ =~ /^(\d{1})(\d{1})\d{1}(\d{3})$/) 
+		    {
+			    my ($bin, $inc, $lib) = ("RVCT$1$2BIN", "RVCT$1$2INC", "RVCT$1$2LIB");
+			    $g_data{0}->{version} = "$1.$2.$3";
+			    
+			    $g_data{0}->{bin_name} = $bin;
+			    $g_data{0}->{bin_path} = $ENV{$bin};
+
+			    $g_data{0}->{inc_name} = $inc;
+		            $g_data{0}->{inc_path} = $ENV{$inc};
+
+		            $g_data{0}->{lib_name} = $lib;
+		            $g_data{0}->{lib_path} = $ENV{$lib};
+
+            		    last;
+	   		 }
+    	    }
+    }
+
+    # restore RVCT22_CCOPT
+    foreach $key (keys %RVCT_CCOPT) {
+        $ENV{$key} = $RVCT_CCOPT{$key};
+    }
+    # Initialise all platforms defined in the INI file, if that file exists.
+
+    my $fname = $ENV{ABLD_PLAT_INI};
+
+    if ($fname) # The environment variable is set.
+    {
+        _err_and_die("ABLD_PLAT_INI doesn't point to a file.") unless -f $fname;
+
+        open (my $in,  "<",  $fname) or _err_and_die("couldn't open ABLD_PLAT_INI = $fname.");
+
+        my @lines = ();
+        my $format1 = 0;
+
+        while (<$in>)
+        {
+            chomp;
+
+            next if /^\s*;/ ;
+            next if /^\s*#/ ;
+            next if /^\s*$/ ;
+
+            if ($_ =~ /^\s*\[/i)
+            {
+                # This must be the start of an INI section so We treat the file as
+                # format 1.
+                $format1 = 1;
+            }
+
+            push @lines, $_;
+        }
+
+
+        close $in or _err_and_die("couldn't close ABLD_PLAT_INI = $fname.");
+        _err_and_die("$fname contains no data") unless @lines;
+
+        if ($format1)
+        {
+            my $os_ver = _get_os_version();
+            my @lines2 = ();
+
+            while (@lines)
+            {
+                my $line = shift @lines;
+                
+                if ( $line =~ /^\s*\[$os_ver\]/i)
+                {
+                    last;
+                }
+            }
+
+            while (@lines)
+            {
+                my $line = shift @lines;
+
+                if ( $line =~ /^\s*\[/i)
+                {
+                    last;
+                }
+            
+                push @lines2, $line;
+            }
+
+            _parse_section_data($fname, @lines2);
+        }
+        else # Format 2.
+        {
+            # The file is one big section without header.
+            _parse_section_data($fname, @lines);
+        }
+
+    } # if ($fname)
+}
+
+
+1;
+
+