# 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. GCCE) to the
# corresponding GCC-E environment settings.
# Currently this module only provides very simple functionality. The intention is
# that if we're going to support different GCC-E versions for different build
# platforms (as we do for RVCT) this module should be extended to provide similar
# functionality to rvct_plat2set.
# 
#

package gcce_plat2set;
use strict;


# Returns the GCCE version corresponding to the given build platform. The first
# function returns the data as a string (e.g. "4.2.3"); the second function
# returns the data as a list (e.g. [4,2,3]).
sub get_version_string($);
sub get_version_list($);

# Returns true if a GCC-E version for the given platform exists.
sub compiler_exists($);


my $g_version;


sub get_version_string($)
{
    return $g_version;
}

sub get_version_list($)
{
    return split(/\./, $g_version);
}

sub compiler_exists($)
{
    if ($g_version)
    {
        return 1;
    }
    else
    {
        return 0;
    }
}

BEGIN
{
    my $vers = qx/arm-none-symbianelf-gcc -dumpversion 2>&1/;

    if ($vers =~ /^\s*(\d+\.\d+.\d+)\s*$/)
    {
        $g_version = "$1";
    }
}


1;