sl@0: #
sl@0: # Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description: 
sl@0: #
sl@0: 
sl@0: use strict;
sl@0: use integer;
sl@0: 
sl@0: package PARSER;
sl@0: require Exporter;
sl@0: @PARSER::ISA=qw(Exporter);
sl@0: @PARSER::EXPORT=qw(nextNonEmptyStrippedDownLine ungetNonEmptyStrippedDownLine);
sl@0: 
sl@0: # @PARSER::nextNonEmptyStrippedDownLine is a global variable in this package
sl@0: 
sl@0: sub strippedDownLine
sl@0: 	{
sl@0: 	my $strippedDownLine=shift;
sl@0: 	$strippedDownLine=~s/#.*$//;
sl@0: 	$strippedDownLine=~s/^\s+//;
sl@0: 	$strippedDownLine=~s/\s+$//;
sl@0: 	return $strippedDownLine;
sl@0: 	}
sl@0: 
sl@0: sub nextNonEmptyStrippedDownLine
sl@0: 	{
sl@0: 	my $fileHandle=shift;
sl@0: 	if (defined(@PARSER::nextNonEmptyStrippedDownLine) && (@PARSER::nextNonEmptyStrippedDownLine>0))
sl@0: 		{
sl@0: 		if (@{$PARSER::nextNonEmptyStrippedDownLine[0]}!=2)
sl@0: 			{
sl@0: 			close($fileHandle);
sl@0: 			die("Error: internal error in \"PARSER.PM\"\n");
sl@0: 			}
sl@0: 		return @{shift(@PARSER::nextNonEmptyStrippedDownLine)};
sl@0: 		}
sl@0: 	my $buffer='';
sl@0: 	my $line;
sl@0: 	while ($line=<$fileHandle>)
sl@0: 		{
sl@0: 		$buffer.=$line;
sl@0: 		my $strippedDownBuffer=&strippedDownLine($buffer);
sl@0: 		if ($strippedDownBuffer!~/\\$/)
sl@0: 			{
sl@0: 			$strippedDownBuffer=~s/\\\n/ /g;
sl@0: 			if ($strippedDownBuffer ne '')
sl@0: 				{
sl@0: 				return ($buffer, $strippedDownBuffer);
sl@0: 				}
sl@0: 			$buffer='';
sl@0: 			}
sl@0: 		}
sl@0: 	if ($buffer ne '')
sl@0: 		{
sl@0: 		close($fileHandle);
sl@0: 		die("Error: file ends with a \"\\\"\n");
sl@0: 		}
sl@0: 	return ('', '');
sl@0: 	}
sl@0: 
sl@0: sub ungetNonEmptyStrippedDownLine
sl@0: 	{
sl@0: 	my $arrayCopy;
sl@0: 	@$arrayCopy=@_;
sl@0: 	unshift(@PARSER::nextNonEmptyStrippedDownLine, $arrayCopy);
sl@0: 	}
sl@0: