--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/charconvfw/charconv_fw/tools/PARSER.PM	Tue Feb 02 02:02:46 2010 +0200
@@ -0,0 +1,78 @@
+#
+# 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: 
+#
+
+use strict;
+use integer;
+
+package PARSER;
+require Exporter;
+@PARSER::ISA=qw(Exporter);
+@PARSER::EXPORT=qw(nextNonEmptyStrippedDownLine ungetNonEmptyStrippedDownLine);
+
+# @PARSER::nextNonEmptyStrippedDownLine is a global variable in this package
+
+sub strippedDownLine
+	{
+	my $strippedDownLine=shift;
+	$strippedDownLine=~s/#.*$//;
+	$strippedDownLine=~s/^\s+//;
+	$strippedDownLine=~s/\s+$//;
+	return $strippedDownLine;
+	}
+
+sub nextNonEmptyStrippedDownLine
+	{
+	my $fileHandle=shift;
+	if (defined(@PARSER::nextNonEmptyStrippedDownLine) && (@PARSER::nextNonEmptyStrippedDownLine>0))
+		{
+		if (@{$PARSER::nextNonEmptyStrippedDownLine[0]}!=2)
+			{
+			close($fileHandle);
+			die("Error: internal error in \"PARSER.PM\"\n");
+			}
+		return @{shift(@PARSER::nextNonEmptyStrippedDownLine)};
+		}
+	my $buffer='';
+	my $line;
+	while ($line=<$fileHandle>)
+		{
+		$buffer.=$line;
+		my $strippedDownBuffer=&strippedDownLine($buffer);
+		if ($strippedDownBuffer!~/\\$/)
+			{
+			$strippedDownBuffer=~s/\\\n/ /g;
+			if ($strippedDownBuffer ne '')
+				{
+				return ($buffer, $strippedDownBuffer);
+				}
+			$buffer='';
+			}
+		}
+	if ($buffer ne '')
+		{
+		close($fileHandle);
+		die("Error: file ends with a \"\\\"\n");
+		}
+	return ('', '');
+	}
+
+sub ungetNonEmptyStrippedDownLine
+	{
+	my $arrayCopy;
+	@$arrayCopy=@_;
+	unshift(@PARSER::nextNonEmptyStrippedDownLine, $arrayCopy);
+	}
+