#

# Copyright (c) 1997-2000 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# 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);

	}