#!/usr/bin/perl

#

# Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of the License "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: 

# parameter %1 is the string which is to occur around (i.e. before and after) the language names in the rest of the parameters to convert to 2-digit language codes

# parameter %2 is the command to execute

# parameters %3 onwards are the parameters to %2

# example:

# perl -w CONVERT.PL # echo the language code for french is #french#

use romutl;

my $include_path=&get_epocroot."epoc32\/include\/";

$conversionDelimiter=shift;

open(E32STD_H, "< ${include_path}E32STD.H") or die "${include_path}E32STD.H could not be opened";

while ($line=<E32STD_H>)

	{

	if ($line=~/\benum\s+TLanguage\b(.*)$/)

		{

		$line=$1;

		while (1)

			{

			if ($line=~/\{(.*)$/)

				{

				$line=$1;

				last;

				}

			$line=<E32STD_H>;

			}

		$last=0;

		$languageCode=0;

		while (1)

			{

			if ($line=~/^(.*?)\}/)

				{

				$line=$1;

				$last=1;

				}

			while ($line=~/^.*?ELang(\w+)\b(.*)$/)

				{

				$languageNameInLowerCase=lc $1;

				$line=$2;

				if ($line=~/^=(\d+)(.*)$/)

					{

					$languageCode=$1;

					$line=$2;

					}

				$languageData{$languageNameInLowerCase}=$languageCode;

				++$languageCode;

				}

			if ($last)

				{

				last;

				}

			$line=<E32STD_H>;

			}

		last;

		}

	}

close(E32STD_H);

for ($i=$#ARGV; $i>=0; --$i)

	{

	if ($ARGV[$i]=~/^(.*?)$conversionDelimiter(.*?)$conversionDelimiter(.*)$/)

		{

		$bitBefore=$1;

		$languageNameInLowerCase=lc $2;

		$bitAfter=$3;

		defined $languageData{$languageNameInLowerCase} or die "The language \"$languageNameInLowerCase\" is not defined in \/epoc32\/include\/E32STD.H";

		$ARGV[$i]=sprintf("$bitBefore%02d$bitAfter", $languageData{$languageNameInLowerCase});

		}

	}

system("@ARGV");