--- a/imgtools/buildrom/tools/CONVERT.PL	Wed Jun 16 16:51:40 2010 +0300
+++ b/imgtools/buildrom/tools/CONVERT.PL	Wed Jun 23 16:56:47 2010 +0800
@@ -1,80 +1,85 @@
-#
-# 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#
-
-$conversionDelimiter=shift;
-open(E32STD_H, "< \\epoc32\\include\\E32STD.H") or die "\\epoc32\\include\\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");
-
+#!/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");
+