FCL/sftools/dev/build: comparison sbsv1/abld/toolinfo/rvct

equal deleted inserted replaced

-:9f25be3da657
+:fa7a3cc6effd
+# 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;