# Copyright (c) 1997-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 package  does various ancillary things for BPABI (Base Platform ABI) platforms
# 
#

package BPABIutl;

require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
	BPABIutl_Plat_List
	BPABIutl_Config_Path
	BPABIutl_Get_Config_Variables
);

use E32Variant;
require E32Plat;

my %ConfigPath;
my $variantABIV2Keyword = &Variant_GetMacro();

sub BPABIutl_Plat_List {

# Identify the BPABI platforms to be supported based on the compiler configuration files
# present in the location specified by the environment variable "SYMBIAN_COMPILATION_CONFIG_DIR"
# and in the directory $EPOCROOT\epoc32\tools\compilation_config

	my @CompilerConfigPath;

	if (exists($ENV{'SYMBIAN_COMPILATION_CONFIG_DIR'})) 
	{
		my $Path = $ENV{SYMBIAN_COMPILATION_CONFIG_DIR};
		@CompilerConfigPath = split(/;/, $Path);
	}

	push @CompilerConfigPath, "$ENV{EPOCROOT}epoc32\\tools\\compilation_config";

	my $ConfigDir;
	my @BPABIPlats = ();

	foreach $ConfigDir (@CompilerConfigPath)
	{
		opendir DIR, "$ConfigDir";
		my @Plats=grep /\.mk$/i, readdir DIR;
		my $Plat;
		foreach $Plat (@Plats) 
		{
# The platform name will be same as the name of the configuration file <config.mk>
# with the suffix '.mk' removed
			$Plat =~ s/\.mk//;
			if ($variantABIV2Keyword) {
				if ($Plat =~ /^armv5_abiv2$/i) {
					$Plat = "ARMV5";
				}
			}
			else {
				if ($Plat =~ /^armv5$/i) {
					$Plat = "ARMV5_ABIV2";
				}
			}
			unless (grep /$Plat$/i, @BPABIPlats) {
				$Plat = uc $Plat;
				push @BPABIPlats, $Plat;
				if (!$variantABIV2Keyword && $Plat =~ /^ARMV5_ABIV2$/i) {
					$ConfigPath{$Plat} = "$ConfigDir\\ARMV5.mk";
				}
				else {
					$ConfigPath{$Plat} = "$ConfigDir\\$Plat.mk";
				}
			}
		}
	}
	closedir DIR;
	return @BPABIPlats;
}

sub BPABIutl_Config_Path($) {
	my ($plat) = @_;
# Returns the Path of the compiler configuration file
	if (!keys(%ConfigPath))
	{
	    # Running for first time so initialise ConfigPath
	    BPABIutl_Plat_List();
	}
	if (!$ConfigPath{$plat})
	{
		# Get the root platform name to support hierarchy of customizations
		my $CustomizedPlat =  &E32Plat::Plat_Root($plat);

# In default ABIV1 mode, the platform name for v2 mode of ARMV5 is ARMV5_ABIV2
		if ( !$variantABIV2Keyword && $CustomizedPlat =~ /^ARMV5$/i ){
			$ConfigPath{$plat} = $ConfigPath{ARMV5_ABIV2};
		}

# In default ABIV2 mode, the platform name for v2 mode of ARMV5 is ARMV5
		elsif ( $variantABIV2Keyword && $CustomizedPlat =~ /^ARMV5$/i) {
			$ConfigPath{$plat} = $ConfigPath{ARMV5};
		}
		else{
			$ConfigPath{$plat}=$ConfigPath{$CustomizedPlat};
		}
	}
	return "$ConfigPath{$plat}";
}

# routine to extract a set of variables from the compilation configuration
# file. The variables extracted are determined by the extractvars.make file.
# The variables are returned in a hash.
sub BPABIutl_Get_Config_Variables
{
    my ($plat) = @_;
    my $configfile = BPABIutl_Config_Path($plat);
    my $extractvars = "$ENV{EPOCROOT}epoc32\\tools\\compilation_config\\extractvars.make";
    my $command = "make CONFIG_FILE=$configfile -s -f $extractvars" ;
    my $result = `$command`;
    my %vars;
    my @lines = split('\n', $result);
    foreach my $line (@lines)
    {
	chomp $line;
	if ($line =~ /(\w+)=(.*)/)
	{
	    $vars{$1} = $2;
	}
    }
    return %vars;
}

1;