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: * Header LEXICAL.CPP
sl@0: *
sl@0: */
sl@0: 
sl@0: 
sl@0: #include "LEXICAL.H"
sl@0: 
sl@0: Lexical::Lexical()
sl@0:  :	iType(ELexNL), iNumber(0)
sl@0: 	{
sl@0: 	iText[0] = '\0';
sl@0: 	}
sl@0: 
sl@0: Lexical::Lexical(const Lexical& aLex)
sl@0: 	{
sl@0: 	iType = aLex.iType;
sl@0: 	iNumber = aLex.iNumber;
sl@0: 	strcpy(iText, aLex.iText);
sl@0: 	}
sl@0: 
sl@0: Lexical& Lexical::operator = (const Lexical& aLex)
sl@0: 	{
sl@0: 	iType = aLex.iType;
sl@0: 	iNumber = aLex.iNumber;
sl@0: 	strcpy(iText, aLex.iText);
sl@0: 	return *this;
sl@0: 	}
sl@0: 
sl@0: int Lexical::CovertStringToHex()
sl@0: 	{
sl@0: 	char* curPtr = iText; // Position of current lexical in line
sl@0: 	int hexDigit;
sl@0: 	int number = 0;
sl@0: 
sl@0: 	while (HexDigit(*curPtr, hexDigit))
sl@0: 		{
sl@0: 		number = (16 * number) + hexDigit;
sl@0: 		curPtr++;
sl@0: 		}
sl@0: 	return number;
sl@0: 	}
sl@0: 
sl@0: int Lexical::HexDigit(char aDigit, int& decimalEquivalent)
sl@0: 	{
sl@0: 	boolean validDigit = efalse;
sl@0: 	if ((aDigit >= '0') && (aDigit <= '9'))
sl@0: 		{
sl@0: 		decimalEquivalent = (aDigit - '0');
sl@0: 		validDigit = etrue;
sl@0: 		}
sl@0: 	else if ((aDigit >= 'a') && (aDigit <= 'f'))
sl@0: 		{
sl@0: 		decimalEquivalent = 10 + (aDigit - 'a');
sl@0: 		validDigit = etrue;
sl@0: 		}
sl@0: 	else if ((aDigit >= 'A') && (aDigit <= 'F'))
sl@0: 		{
sl@0: 		decimalEquivalent = 10 + (aDigit - 'A');
sl@0: 		validDigit = etrue;
sl@0: 		}
sl@0: 	return validDigit;
sl@0: 	}
sl@0: 
sl@0: ostream& operator << (ostream& out, const Lexical& aLex)
sl@0: 	{
sl@0: 	switch (aLex.iType)
sl@0: 		{
sl@0: 		case ELexEOF:
sl@0: 			{
sl@0: 			out << "EOF";
sl@0: 			break;
sl@0: 			}
sl@0: 		case ELexNL:
sl@0: 			{
sl@0: 			out << "NL";
sl@0: 			break;
sl@0: 			}
sl@0: 		case ELexNumber:
sl@0: 			{
sl@0: 			out << aLex.iNumber;
sl@0: 			break;
sl@0: 			}
sl@0: 		case ELexOperator:
sl@0: 			{
sl@0: 			out << aLex.iText[0];
sl@0: 			break;
sl@0: 			}
sl@0: 		default:
sl@0: 			{
sl@0: 			out << aLex.iText;
sl@0: 			}
sl@0: 		}	 
sl@0: 	return out;
sl@0: 	}
sl@0: 
sl@0: LexAnal::LexAnal(const char* aFilename)
sl@0:  :	iFilename(aFilename)
sl@0: 	{
sl@0: 	iFin.open(aFilename);
sl@0: 	iLex.iType = ELexNL;
sl@0: 	iLineNo = 0;
sl@0: 	}
sl@0: 
sl@0: Lexical LexAnal::Read() // read next lexical into iLex
sl@0: 	{
sl@0: 	if (iLex.iType == ELexNL)
sl@0: 		{
sl@0: 		do
sl@0: 			{
sl@0: 			GetNextLex();
sl@0: 			}
sl@0: 		while (iLex.iType == ELexNL);
sl@0: 		}
sl@0: 	else
sl@0: 		GetNextLex();
sl@0: 	return iLex;
sl@0: 	}
sl@0: 
sl@0: Lexical LexAnal::ReadNextLine() // read first lex on next line
sl@0: 	{
sl@0: 	GetNextLine();
sl@0: 	return iLex;
sl@0: 	}
sl@0: 
sl@0: void LexAnal::Report()
sl@0: 	{
sl@0: 	cerr << iFilename.Text() << '(' << iLineNo << "): \n";
sl@0: 	cerr << iLine << '\n';
sl@0: 	for	(char* p = iLine; p < iLexPtr; p++)
sl@0: 		cerr << ' ';
sl@0: 	cerr << "^\n";
sl@0: 	}
sl@0: 
sl@0: LexAnal::~LexAnal()
sl@0: 	{
sl@0: 	iFin.close();
sl@0: 	}
sl@0: 
sl@0: void LexAnal::GetNextLex()
sl@0: 	{
sl@0: 	char ch;
sl@0: 	if (iLex.iType == ELexNL)
sl@0: 		{
sl@0: 		iFin.getline(iLine, MaxLineLen);
sl@0: 		// Remove any CR character that appear at the end when
sl@0: 		// reading a dos file on unix.
sl@0: 		PurgeLastCR(iLine);
sl@0: 		iCurPtr = iLine;
sl@0: 		iLineNo++;
sl@0: 		}
sl@0: 
sl@0: 	while ((*iCurPtr == ' ') || (*iCurPtr == '\t'))
sl@0: 		iCurPtr++;
sl@0: 	ch = *iCurPtr;
sl@0: 	iLexPtr = iCurPtr;
sl@0: 
sl@0: 	if ((ch == '\0') && (iFin.eof()))	// finds lexical type
sl@0: 		iLex = ReadEOF();
sl@0: 	else if ((ch == '\0') || (ch == '!'))	// ! is a comment
sl@0: 		iLex = ReadNewLine();
sl@0: 	else if ((ch == '-') || ((ch >= '0') && (ch <= '9')))
sl@0: 		iLex = ReadNumber();
sl@0: 	else if (((ch >= 'a') && (ch <= 'z')) || ((ch >= 'A') && (ch <= 'Z')) || (ch == '_'))
sl@0: 		iLex = ReadIdent();
sl@0: 	else if	(ch == '"')
sl@0: 		iLex = ReadString();
sl@0: 	else
sl@0: 		iLex = ReadOperator();	
sl@0: 	}
sl@0: 
sl@0: void LexAnal::GetNextLine()
sl@0: 	{
sl@0: 	iFin.getline(iLine, MaxLineLen);
sl@0: 	// Remove any CR character that appear at the end when
sl@0: 	// reading a dos file on unix.
sl@0: 	PurgeLastCR(iLine);
sl@0: 	iCurPtr = iLine;
sl@0: 	iLineNo++;
sl@0: 
sl@0: 	char ch;
sl@0: 	while ((*iCurPtr == ' ') || (*iCurPtr == '\t'))
sl@0: 		iCurPtr++;
sl@0: 	ch = *iCurPtr;
sl@0: 	iLexPtr = iCurPtr;
sl@0: 
sl@0: 	if ((ch == '\0') && (iFin.eof()))	// finds lexical type
sl@0: 		iLex = ReadEOF();
sl@0: 	else if ((ch == '\0') || (ch == '!'))
sl@0: 		iLex = ReadNewLine();
sl@0: 	else if ((ch == '-') || ((ch >= '0') && (ch <= '9')))
sl@0: 		iLex=ReadNumber();
sl@0: 	else if (((ch >= 'a') && (ch <= 'z')) || ((ch >= 'A') && (ch <= 'Z')) || (ch == '_'))
sl@0: 		iLex = ReadIdent();
sl@0: 	else if	(ch == '"')
sl@0: 		iLex = ReadString();
sl@0: 	else
sl@0: 		iLex = ReadOperator();	
sl@0: 	}
sl@0: 
sl@0: void LexAnal::PurgeLastCR(char *aLine)
sl@0: 	{
sl@0: 	int len = strlen(aLine) - 1;
sl@0: 	if (len >= 0 && aLine[len] == '\r')
sl@0: 		{
sl@0: 		aLine[len] = '\0';
sl@0: 		}
sl@0: 	}
sl@0: 
sl@0: Lexical LexAnal::ReadEOF()
sl@0: 	{
sl@0: 	Lexical lex;
sl@0: 	lex.iType = ELexEOF;
sl@0: 	return lex;
sl@0: 	}
sl@0: 
sl@0: Lexical LexAnal::ReadNewLine()
sl@0: 	{
sl@0: 	Lexical lex;
sl@0: 	lex.iType = ELexNL;
sl@0: 	while (*iCurPtr != '\0')
sl@0: 		iCurPtr++;
sl@0: 	return lex;
sl@0: 	}
sl@0: 
sl@0: Lexical LexAnal::ReadNumber()
sl@0: 	{
sl@0: 	Lexical lex;
sl@0: 	char ch;
sl@0: 	boolean negative = efalse;
sl@0: 	lex.iType = ELexNumber;
sl@0: 	if (*iCurPtr == '-')
sl@0: 		{
sl@0: 		negative = etrue;
sl@0: 		iCurPtr++;
sl@0: 		}
sl@0: 	ch = *iCurPtr;
sl@0: 	while ((ch >= '0') && (ch <= '9'))
sl@0: 		{
sl@0: 		if (negative)
sl@0: 			lex.iNumber = (10 * lex.iNumber) - (*iCurPtr - '0');
sl@0: 		else
sl@0: 			lex.iNumber=(10 * lex.iNumber) + (*iCurPtr - '0');
sl@0: 		iCurPtr++;
sl@0: 		ch = *iCurPtr;
sl@0: 		}
sl@0: 	return lex;
sl@0: 	}
sl@0: 
sl@0: 
sl@0: Lexical LexAnal::ReadIdent()
sl@0: 	{
sl@0: 	Lexical lex;
sl@0: 	char ch;
sl@0: 	lex.iType = ELexIdent;
sl@0: 	do
sl@0: 		{
sl@0: 		iCurPtr++;
sl@0: 		ch = *iCurPtr;
sl@0: 		}
sl@0: 	while (((ch >= 'a') && (ch <= 'z')) || ((ch >= 'A') && (ch <= 'Z')) || (ch == '_') || ((ch >= '0') && (ch <= '9')));
sl@0: 	strncpy(lex.iText, iLexPtr, iCurPtr - iLexPtr);
sl@0: 	lex.iText[iCurPtr - iLexPtr] = '\0';
sl@0: 	return lex;
sl@0: 	}
sl@0: 
sl@0: Lexical LexAnal::ReadString()
sl@0: 	{
sl@0: 	Lexical lex;
sl@0: 	char ch;
sl@0: 	lex.iType = ELexString;
sl@0: 	iCurPtr++;
sl@0: 	ch = *iCurPtr;
sl@0: 	while ((ch != '"') && (*iCurPtr != '\0'))
sl@0: 		{
sl@0: 		iCurPtr++;
sl@0: 		ch = *iCurPtr;
sl@0: 		}
sl@0: 	strncpy(lex.iText, iLexPtr + 1, iCurPtr - (iLexPtr + 1));
sl@0: 	lex.iText[iCurPtr - (iLexPtr + 1)] = '\0';
sl@0: 	if (ch == '"')
sl@0: 		iCurPtr++;	// finds position after last double quotes 
sl@0: 	else
sl@0: 		{
sl@0: 		cerr << "Warning: missing quotes\n";
sl@0: 		Report();
sl@0: 		}
sl@0: 	return lex;
sl@0: 	}
sl@0: 
sl@0: Lexical LexAnal::ReadOperator()
sl@0: 	{
sl@0: 	Lexical lex;
sl@0: 	lex.iType = ELexOperator;
sl@0: 	lex.iText[0] = *iCurPtr;
sl@0: 	iCurPtr++;
sl@0: 	return lex;
sl@0: 	}