/*
* Copyright (c) 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:
*
*/
#include "CdlCompilerToolkit/CdlTkProcess.h"
#include "CdlTkPriv.h"
#include <iomanip>
#include <sstream>
#include <iostream>
using namespace std;

namespace CdlCompilerToolkit {

//
// SyntaxErr
//

class SyntaxErr : public CdlCompilerToolkitErr
	{
public:
	SyntaxErr(const string& aFileName, int aLineNo, string aErr);
	void Show(ostream& aStream) const;
private:
	string iFileName;
	int iLineNo;
	string iErr;
	};

SyntaxErr::SyntaxErr(const string& aFileName, int aLineNo, string aErr)
: iFileName(aFileName), iLineNo(aLineNo), iErr(aErr)
	{
	}

void SyntaxErr::Show(ostream& aStream) const
	{
	aStream << iFileName << "(" << iLineNo << ")" << " : error : " << iErr << endl;
	}


//
// CCdlTkCdlFileParser
//

CCdlTkCdlFileParser::CCdlTkCdlFileParser(const string& aFileName) 
: iFileName(aFileName)
	{
	}

CCdlTkCdlFileParser::~CCdlTkCdlFileParser()
	{
	CloseStream();
	}

void CCdlTkCdlFileParser::Process()
	{
	throw CdlTkAssert("Sorry, CCdlTkCdlFileParser::Process() does not exist, call LoadAndParse() instead");
	}

auto_ptr<CCdlTkInterface> CCdlTkCdlFileParser::LoadAndParse(bool aMergeExtensions)
	{
	OpenStream();
	iState = EHeader;
	auto_ptr<CCdlTkInterface> cdl(new CCdlTkInterface);
	cdl->SetFileName(iFileName);
	ParseStream(*cdl.get());
	CloseStream();
	if (aMergeExtensions)
		cdl->MergeExtensions();
	return cdl;
	}

void CCdlTkCdlFileParser::OpenStream()
	{
	CdlTkUtil::OpenInput(iIn, iFileName);
	iCurrentSourceLineNum = 0;
	}

void CCdlTkCdlFileParser::ParseStream(CCdlTkInterface& aCdl)
	{
	CCdlTkInterface* cdl = &aCdl;
	while (!iIn.eof())
		{
		string line = GetLine();
		TParseState newState = iState;
		if (IsSectionBoundary(line, newState))
			{
			iState = newState;
			if (iState == EHeader && !(cdl->Header() == CCdlTkInterfaceHeader()))
				{
				CCdlTkInterface* ext = new CCdlTkInterface;
				ext->SetBase(cdl);
				cdl->SetExtension(ext);
				cdl = ext;
				}
			// iApiBuf and iComment have to be cleared over a section boundary
			iApiBuf = "";
			iComment = "";
			}
		else
			{
			switch (iState)
				{
				case EHeader: 
					ParseHeader(*cdl, line); 
					break;
				case ECpp: 
					ParseCpp(*cdl, line); 
					break;
				case ETranslation: 
					ParseTranslationLine(*cdl, line); 
					break;
				case EApi: 
					ParseApi(*cdl, line); 
					break;
				default: 
					return;
				}
			}
		}
	}

void CCdlTkCdlFileParser::CloseStream()
	{
	iIn.close();
	}

void CCdlTkCdlFileParser::ParseHeader(CCdlTkInterface& aCdl, const string& aLine)
	{
	string val;
	if (MatchLineStart(aLine, "Name:", val))
		{
		aCdl.Header().SetName(val);
		}
	else if (MatchLineStart(aLine, "Version:", val))
		{
		int major, minor;
		char c;
		stringstream s(val);
		s >> major >> c >> minor;
		if (c != '.' || !s.eof())
			SyntaxError(string("Invalid version number ") + val);
		aCdl.Header().SetVersion(CCdlTkInterfaceHeader::CVersion(major, minor));
		}
	else  if (MatchLineStart(aLine, "UID:", val))
		{
		aCdl.Header().SetUid(CdlTkUtil::ParseInt(val));
		}
	else if (MatchLineStart(aLine, "Flag:", val))
		{
		aCdl.Header().Flags().SetFlag(val);
		}
	}

void CCdlTkCdlFileParser::ParseCpp(CCdlTkInterface& aCdl, const string& aLine)
	{
	aCdl.Cpp().push_back(aLine);
	}

void CCdlTkCdlFileParser::ParseTranslationLine(CCdlTkInterface& aCdl, const string& aLine)
	{
	string line = aLine;
	StripComments(line, iComment);
	CdlTkUtil::StripLeadingAndTrailingWhitespace(line);
	if (!line.empty())
		{
		CCdlTkDataTypeTranslation trans;
		ParseTranslationText(trans, line);
		aCdl.DataTypeTranslations().push_back(trans);
		}
	}

void CCdlTkCdlFileParser::ParseApi(CCdlTkInterface& aCdl, const string& aLine)
	{
	string line = aLine;
	StripComments(line, iComment);
	if (!line.empty())
		{
		// add the line to the API buffer
		CdlTkUtil::AppendString(iApiBuf, line);
		int pos;
		// extract API declarations from the API buffer, separated by semi-colons
		while ((pos = iApiBuf.find_first_of(';')) != string::npos)
			{
			// extract API declaration from API buf and create API from it
			line = iApiBuf.substr(0, pos);
			CdlTkUtil::StripLeadingAndTrailingWhitespace(line);
			auto_ptr<CCdlTkApi> api(CreateApi(aCdl, line));
			aCdl.ApiList().push_back(api.get());
			api.release();
			// remove API declaration from API buf
			iApiBuf = iApiBuf.substr(pos+1);
			}
		}
	}

string CCdlTkCdlFileParser::GetLine()
	{
	string line;
	getline(iIn, line);
	iCurrentSourceLineNum++;
	return line;
	}

bool CCdlTkCdlFileParser::IsSectionBoundary(const string& aLine, TParseState& aState)
	{
	string section;
	bool isBoundary = MatchLineStart(aLine, KSectionBoundary, section);
	if (!isBoundary)
		return false;

	section = CdlTkUtil::ToLower(section);

	char* sections[] = {"header", "c++", "translation", "api", "end"};
	TParseState s;
	for (s = EHeader; s < EParseStateCount; s = TParseState(s+1))
		if (section == sections[s])
			break;
	if (s < EParseStateCount)
		aState = s;
	else 
		SyntaxError("Unrecognised section type : " + section);

	return true;
	}

bool CCdlTkCdlFileParser::MatchLineStart(const string& aLine, const string& aHeader, string& aVal)
	{
	if (aLine.size() < aHeader.size() || aLine.substr(0, aHeader.size()) != aHeader)
		return false;

	aVal = aLine.substr(aHeader.size());
	StripComments(aVal, iComment);
	CdlTkUtil::StripLeadingAndTrailingWhitespace(aVal);
	return true;
	}

void CCdlTkCdlFileParser::StripComments(string& aStr, string& aComment)
	{
	int pos = aStr.find(KCommentStart);
	if (pos != string::npos)
		{
		aComment += aStr.substr(pos) + "\n";
		}
	aStr = aStr.substr(0, pos);
	}

auto_ptr<CCdlTkApi> CCdlTkCdlFileParser::CreateApi(CCdlTkInterface& aCdl, string& aLine)
	{
	auto_ptr<CCdlTkApi> pApi;
	bool isFunc = (aLine[aLine.size()-1] == ')');	// function APIs end with ')', data APIs don't
	if (isFunc)
		{
		auto_ptr<CCdlTkFunctionApi> pFuncApi(new CCdlTkFunctionApi(aCdl));
		int paramStart = aLine.find('(');
		if (paramStart == string::npos)
			SyntaxError("function has missing '('");
		string params = aLine.substr(paramStart);
		aLine = aLine.substr(0, paramStart);
		params = params.substr(1, params.size()-2);		// -2 for opening and closing brackets
		CdlTkUtil::StripLeadingAndTrailingWhitespace(params);
		ParseApiParams(pFuncApi->Params(), params);
		pApi = auto_ptr<CCdlTkApi>(pFuncApi.release());
		}
	else
		{
		pApi = auto_ptr<CCdlTkApi>(new CCdlTkDataApi(aCdl));
		}
	string name, type, defaultValue;
	ParseNameTypeAndDefaultValue(aLine, name, type, defaultValue);
	pApi->SetName(name);
	pApi->SetReturnType(type);
	pApi->SetSourceFileLineNum(iCurrentSourceLineNum);
	pApi->SetComment(iComment);
	iComment = "";
	return pApi;
	}

void CCdlTkCdlFileParser::ParseApiParams(CCdlTkApiParams& aParams, string& aList)
	{
	while (aList.size())
		{
		int pos = aList.find(',');
		string param = aList.substr(0, pos);
		aList = aList.substr(param.size() + (pos == string::npos ? 0 : 1));
		CdlTkUtil::StripLeadingAndTrailingWhitespace(aList);

		string name, type, defaultValue;
		ParseNameTypeAndDefaultValue(param, name, type, defaultValue);

		aParams.push_back(CCdlTkApiParam(type, name, defaultValue));
		}
	}

void CCdlTkCdlFileParser::ParseNameTypeAndDefaultValue(string& aStr, string& aName, string& aType, string& aDefaultValue)
	{
	CdlTkUtil::StripLeadingAndTrailingWhitespace(aStr);
	int eq = aStr.find_last_of(KEqualsSign);
	if(eq != string::npos)
		{
		aDefaultValue = aStr.substr(eq + 1);
		CdlTkUtil::StripLeadingAndTrailingWhitespace(aDefaultValue);

		aStr = aStr.substr(0, eq);
		CdlTkUtil::StripLeadingAndTrailingWhitespace(aStr);
		}

	int pos = aStr.find_last_not_of(KCpp);
	aName = aStr.substr(pos + 1);
	aStr = aStr.substr(0, pos);

	CdlTkUtil::StripLeadingAndTrailingWhitespace(aStr);
	aType = aStr;
	}

void CCdlTkCdlFileParser::ParseTranslationText(CCdlTkDataTypeTranslation& aTrans, string& aLine)
	{
	int pos1 = aLine.find('#');
	if (pos1 == string::npos)
		SyntaxError("First # not found");
	int pos2 = aLine.find('#', pos1+1);
	if (pos2 == string::npos)
		SyntaxError("Second # not found");
	if (aLine.find('#', pos2+1) != string::npos)
		SyntaxError("Third # found");

	string type = aLine.substr(0, pos1++);
	CdlTkUtil::StripLeadingAndTrailingWhitespace(type);

	string defn = aLine.substr(pos1, pos2-pos1);
	CdlTkUtil::StripLeadingAndTrailingWhitespace(defn);
	if (defn.find("aName") == string::npos)
		SyntaxError("\"aName\" not found in definition");

	string ptrRef = aLine.substr(pos2+1);
	CdlTkUtil::StripLeadingAndTrailingWhitespace(ptrRef);
	if (ptrRef.find("aName") == string::npos)
		SyntaxError("\"aName\" not found in pointer reference");

	aTrans.SetType(type);
	aTrans.SetDefinition(defn);
	aTrans.SetPointerReference(ptrRef);
	}

void CCdlTkCdlFileParser::SyntaxError(const string& aErr)
	{
	throw SyntaxErr(iFileName, iCurrentSourceLineNum, aErr);
	}


}	// end of namespace CdlCompilerToolkit