--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sbsv1_os/e32toolp/toolinfo/gcce_plat2set.pm	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,75 @@
+# 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;
+
+