/*
 * This file is a part of Winix
 * and is not publicly distributed
 * 
 * Copyright (c) 2008-2011, Tomasz Sowa
 * All rights reserved.
 * 
 */
 
#include <cstdlib>
#include <wchar.h>
#include "confparser.h"
#include "utf8.h"



/*
 *
 *
 * Space
 *
 *
 */


Space::Space()
{
	parent = 0;
}


Space::~Space()
{
	Clear();
}


Space::Space(const Space & s)
{
	operator=(s);
}


Space & Space::operator=(const Space & s)
{
	Clear();

	name			= s.name;
	table_single	= s.table_single;
	table			= s.table;
	parent			= s.parent;

	for(size_t i=0 ; i<s.spaces.size() ; ++i)
	{
		Space * pspace = new Space(*s.spaces[i]);
		pspace->parent = this;
		spaces.push_back(pspace);
	}

return *this;
}






void Space::Clear()
{
	name.clear();
	table_single.clear();
	table.clear();

	for(size_t i=0 ; i<spaces.size() ; ++i)
		delete spaces[i];

	spaces.clear();
}



std::wstring * Space::GetValue(const wchar_t * name)
{
	tmp_name = name;
	return GetValue(tmp_name);
}



std::wstring * Space::GetValue(const std::wstring & name)
{
	TableSingle::iterator i = table_single.find(name);
	
	if( i != table_single.end() )
	{
		return &i->second;
	}
	else
	{
		Table::iterator t = table.find(name);

		if( t == table.end() || t->second.empty() )
		{
			return 0;
		}
		else
		{
			return &t->second[0];
		}
	}
}





std::wstring & Space::Text(const wchar_t * name)
{
	tmp_name = name;
	return Text(tmp_name, L"");
}



std::wstring & Space::Text(const wchar_t * name, const wchar_t * def)
{
	tmp_name = name;
	return Text(tmp_name, def);
}


std::wstring & Space::Text(const std::wstring & name, const wchar_t * def)
{
	std::wstring * value = GetValue(name);

	if( value )
	{
		return *value;
	}
	else
	{
		tmp_value_text = def;
		return tmp_value_text;
	}
}



std::string & Space::AText(const wchar_t * name)
{
	tmp_name = name;
	return AText(tmp_name, "");
}



std::string & Space::AText(const wchar_t * name, const char * def)
{
	tmp_name = name;
	return AText(tmp_name, def);
}


std::string & Space::AText(const std::wstring & name, const char * def)
{
	std::wstring * value = GetValue(name);

	if( value )
	{
		Ezc::WideToUTF8(*value, tmp_value_text_ascii);
		return tmp_value_text_ascii;
	}
	else
	{
		tmp_value_text_ascii = def;
		return tmp_value_text_ascii;
	}
}




int Space::Int(const wchar_t * name)
{
	tmp_name = name;
	return Int(tmp_name, 0);
}


int Space::Int(const wchar_t * name, int def)
{
	tmp_name = name;
	return Int(tmp_name, def);
}


int Space::ToInt(const std::wstring & value)
{
	long res = (value[0] == '0')? wcstol(value.c_str() + 1, 0, 8) : wcstol(value.c_str(), 0, 10);
    
return static_cast<int>(res);
}


int Space::Int(const std::wstring & name, int def)
{
	std::wstring * value = GetValue(name);

	if( value )
		return ToInt(*value);

return def;
}



size_t Space::Size(const wchar_t * name)
{
	tmp_name = name;
	return Size(tmp_name, 0);
}


size_t Space::Size(const wchar_t * name, size_t def)
{
	tmp_name = name;
	return Size(tmp_name, def);
}



size_t Space::ToSize(const std::wstring & value)
{
	unsigned long res = (value[0] == '0')? wcstoul(value.c_str() + 1, 0, 8) : wcstoul(value.c_str(), 0, 10);
 
return static_cast<size_t>(res);
}


size_t Space::Size(const std::wstring & name, size_t def)
{
	std::wstring * value = GetValue(name);

	if( value )
		return ToSize(*value);

return def;
}




bool Space::Bool(const wchar_t * name)
{
	tmp_name = name;
	return Bool(tmp_name, false);
}


bool Space::Bool(const wchar_t * name, bool def)
{
	tmp_name = name;
	return Bool(tmp_name, def);
}



bool Space::ToBool(const std::wstring & value)
{
	return (	EqualNoCase(value.c_str(), L"true") ||
				EqualNoCase(value.c_str(), L"yes")  ||
				EqualNoCase(value.c_str(), L"1")  
			);
}


bool Space::Bool(const std::wstring & name, bool def)
{
	std::wstring * value = GetValue(name);

	if( value )
		return ToBool(*value);

return def;
}




// in lists we don't use default values
bool Space::ListText(const wchar_t * name, std::vector<std::wstring> & list)
{
	tmp_name = name;
	return ListText(tmp_name, list);
}


bool Space::ListText(const std::wstring & name, std::vector<std::wstring> & list)
{
	list.clear();
	TableSingle::iterator i = table_single.find(name);
	
	if( i != table_single.end() )
	{
		list.push_back(i->second);
		return true;
	}
	else
	{
		Table::iterator t = table.find(name);

		if( t != table.end() )
		{
			list = t->second;
			return true;
		}
	}

return false;
}


wchar_t Space::ToSmall(wchar_t c)
{
	if( c>='A' && c<='Z' )
		c = c - 'A' + 'a';

return c;
}


bool Space::EqualNoCase(const wchar_t * str1, const wchar_t * str2)
{
	while( *str1 && *str2 && ToSmall(*str1) == ToSmall(*str2) )
	{
		++str1;
		++str2;
	}

	if( *str1 == 0 && *str2 == 0 )
		return true;

return false;
}



/*
 *
 *
 * ConfParser
 *
 *
 */





ConfParser::ConfParser()
{
	root_space = 0;
	SetDefault();
}


void ConfParser::SetSpace(Space * pspace)
{
	root_space = pspace;
}


void ConfParser::SetSpace(Space & pspace)
{
	root_space = &pspace;
}


void ConfParser::SetDefault()
{
	// you can change this separators to what you want
	// you shoud not use only white characters here (as expected by IsWhite() method)
	// and new line characters ('\n')
	separator       = '=';
	commentary      = '#';
	list_start      = '(';
	list_end        = ')';
	list_delimiter  = ',';
	split_single    = false;
	skip_empty      = false;
	use_escape_char = true;
	input_as_utf8   = false;
}


void ConfParser::SplitSingle(bool split)
{
	split_single = split;
}


void ConfParser::SkipEmpty(bool skip)
{
	skip_empty = skip;
}


void ConfParser::UseEscapeChar(bool escape)
{
	use_escape_char = escape;
}


void ConfParser::UTF8(bool utf)
{
	input_as_utf8 = utf;
}




ConfParser::Status ConfParser::Parse(const char * file_name)
{
	reading_from_file = true;

	file.clear();
	file.open( file_name );
	
	if( file )
	{
		Parse();
		file.close();
	}
	else
	{
		status = cant_open_file;
	}
	
return status;
}



ConfParser::Status ConfParser::Parse(const std::string & file_name)
{
	return Parse(file_name.c_str());
}




ConfParser::Status ConfParser::Parse(const wchar_t * file_name)
{
	Ezc::WideToUTF8(file_name, afile_name);
	return Parse(afile_name.c_str());
}



ConfParser::Status ConfParser::Parse(const std::wstring & file_name)
{
	return Parse(file_name.c_str());
}



ConfParser::Status ConfParser::ParseString(const char * str)
{
	reading_from_file         = false;
	reading_from_wchar_string = false;
	pchar_ascii               = str;
	pchar_unicode             = 0;

	Parse();

return status;
}


ConfParser::Status ConfParser::ParseString(const std::string & str)
{
	return ParseString(str.c_str());
}


ConfParser::Status ConfParser::ParseString(const wchar_t * str)
{
	reading_from_file         = false;
	reading_from_wchar_string = true;
	pchar_unicode             = str;
	pchar_ascii               = 0;

	Parse();

return status;
}


ConfParser::Status ConfParser::ParseString(const std::wstring & str)
{
	return ParseString(str.c_str());
}


void ConfParser::Parse()
{
	if( !root_space )
	{
		status = no_space;
		return;
	}

	line   = 1;
	status = ok;
	space  = root_space;
	ReadChar();
	SkipWhiteLines();

	ParseLoop();

	if( status == ok && space != root_space )
	{
		// last closing a space characters ')' are missing
		status = syntax_error;
	}
}


void ConfParser::ParseLoop()
{
	while( status == ok && lastc != -1 )
	{
		if( lastc == list_end )
		{
			SpaceEnds();
		}
		else
		{
			ReadVariable();

			if( lastc == list_start )
			{
				SpaceStarts();
			}
			else
			if( lastc == separator && !variable.empty() )
			{
				ReadAddValue();
			}
			else
			{
				status = syntax_error;
			}
		}

		if( status == ok )
			SkipWhiteLines();
	}
}


void ConfParser::SpaceEnds()
{
	if( space == root_space )
	{
		// there cannot be a loose list end character in the global space
		status = syntax_error;
	}
	else
	{
		space = space->parent;
		ReadChar();
	}
}


void ConfParser::SpaceStarts()
{
	Space * new_space = new Space();
	space->spaces.push_back(new_space);
	new_space->parent = space;
	new_space->name   = variable;
	space = new_space;

	ReadChar();
}


void ConfParser::ReadAddValue()
{
	ReadChar(); // skipping separator '='

	if( ReadValue() )
	{
		AddOption();
	}
	else
	{
		status = syntax_error;
	}
}


bool ConfParser::IsVariableChar(int c)
{
	if( (c>='a' && c<='z') ||
	    (c>='A' && c<='Z') ||
	    (c>='0' && c<='9') ||
	    c=='.' || c==',' || c=='_' )
		return true;
	
return false;
}


bool ConfParser::IsWhite(int c)
{
	// dont use '\n' here
	// 13 (\r) is at the end of a line in a dos file \r\n
	// 160 is an unbreakable space
	if( c==' ' || c=='\t' || c==13 || c==160 )
		return true;
		
return false;	
}



void ConfParser::SkipWhite()
{
	while( IsWhite(lastc) || lastc == commentary )
	{
		if( lastc == commentary )
			SkipLine();
		else
			ReadChar();
	}
}


void ConfParser::SkipWhiteLines()
{
	while( IsWhite(lastc) || lastc == commentary || lastc=='\n' )
	{
		if( lastc == commentary )
			SkipLine();
		else
			ReadChar();
	}
}


void ConfParser::SkipLine()
{
	while( lastc != -1 && lastc != '\n' )
		ReadChar();	
}



void ConfParser::Trim(std::wstring & s)
{
std::wstring::size_type i;
	
	if( s.empty() )
		return;
	
	// looking for white characters at the end
	for(i=s.size()-1 ; i>0 && IsWhite(s[i]) ; --i);
	
	if( i==0 && IsWhite(s[i]) )
	{
		// the whole string has white characters
		s.clear();
		return;
	}
	
	// deleting white characters at the end
	if( i != s.size() - 1 )
		s.erase(i+1, std::wstring::npos);
	
	// looking for white characters at the beginning
	for(i=0 ; i<s.size() && IsWhite(s[i]) ; ++i);
	
	// deleting white characters at the beginning
	if( i != 0 )
		s.erase(0, i);
}





void ConfParser::AddOption()
{
	if( value.empty() && skip_empty )
	{
		DeleteFromTable(variable);
		DeleteFromTableSingle(variable);
		return;
	}

	if( split_single && value.size() == 1 )
	{
		space->table_single[variable] = value[0];
		DeleteFromTable(variable);
	}
	else
	{
		space->table[variable] = value;
		DeleteFromTableSingle(variable);
	}
}



void ConfParser::DeleteFromTable(const std::wstring & var)
{
	Space::Table::iterator i = space->table.find(var);

	if( i != space->table.end() )
		space->table.erase(i);
}



void ConfParser::DeleteFromTableSingle(const std::wstring & var)
{
	Space::TableSingle::iterator i = space->table_single.find(var);

	if( i != space->table_single.end() )
		space->table_single.erase(i);
}



void ConfParser::ReadVariable()
{
	variable.clear();
	SkipWhite();
	
	while( IsVariableChar(lastc) )
	{
		variable += lastc;
		ReadChar();
	}

	SkipWhite();
}



bool ConfParser::ReadValue()
{
	value.clear();
	SkipWhite();

	if( lastc == list_start )
		return ReadValueList();
	else
		return ReadValueNoList();
}



bool ConfParser::ReadValueList()
{
	ReadChar();			// skipping first list character '('
	SkipWhiteLines();	// lists can be split into several lines

	while( lastc != -1 && lastc != list_end )
	{
		if( !ReadValueNoList(true) )
			return false;

		if( lastc == list_delimiter )
			ReadChar();

		SkipWhiteLines();
	}

	if( lastc != list_end )
		return false;

	ReadChar();		// skipping last list character ')'
	SkipWhite();

return true;
}



bool ConfParser::ReadValueNoList(bool use_list_delimiter)
{
bool res;

	value_item.clear();

	if( lastc == '"' )
	{
		res = ReadValueQuoted(); // quoted value

		if( res )
			value.push_back(value_item);
	}
	else
	{
		res = ReadValueSimple(use_list_delimiter);

		if( res && !value_item.empty() )
			value.push_back(value_item);
	}

return res;
}



bool ConfParser::ReadValueQuoted()
{
	ReadChar();		// skipping the first quote
	
// !! dodac obsluge innych escapowanych znakow w szczegolnosci \0 (serializator Space juz tak zapisuje)

	while( lastc != '"' && lastc != -1 )
	{
		if( use_escape_char && lastc == '\\' )
			ReadChar();
		
		value_item += lastc;
		ReadChar();
	}
	
	if( lastc != '"' )
		return false;
		
	ReadChar();		// skipping the last quote
	SkipWhite();
	
return true;
}



bool ConfParser::ReadValueSimple(bool use_list_delimiter)
{
	int list_delimiter1 = -1;
	int list_delimiter2 = -1;

	if( use_list_delimiter )
		list_delimiter1 = list_delimiter;

	if( use_list_delimiter || space != root_space )
		list_delimiter2 = list_end;

	while(	lastc!=-1 && lastc!='\n' && lastc!=commentary &&
			lastc!=list_delimiter1 && lastc!=list_delimiter2 )
	{
		value_item += lastc;
		ReadChar();
	}
	
	Trim(value_item);
	SkipWhite();
	
return true;	
}


int ConfParser::ReadUTF8Char()
{
int c;
bool correct;

	lastc = -1;

	do
	{
		Ezc::UTF8ToInt(file, c, correct);

		if( !file )
			return lastc;
	}
	while( !correct );

	lastc = c;

	if( lastc == '\n' )
		++line;
	
return lastc;
}



int ConfParser::ReadASCIIChar()
{
	lastc = file.get();

	if( lastc == '\n' )
		++line;
	
return lastc;
}




int ConfParser::ReadCharFromWcharString()
{
	if( *pchar_unicode == 0 )
		lastc = -1;
	else
		lastc = *(pchar_unicode++);

	if( lastc == '\n' )
		++line;

return lastc;
}


int ConfParser::ReadCharFromUTF8String()
{
int c;
bool correct;

	lastc = -1;

	do
	{
		size_t len = Ezc::UTF8ToInt(pchar_ascii, c, correct);
		pchar_ascii += len;

		if( *pchar_ascii == 0 )
			return lastc;
	}
	while( !correct );

	lastc = c;

	if( lastc == '\n' )
		++line;
	
return lastc;
	
}


int ConfParser::ReadCharFromAsciiString()
{
	if( *pchar_ascii == 0 )
		lastc = -1;
	else
		lastc = *(pchar_ascii++);

	if( lastc == '\n' )
		++line;

return lastc;
}


int ConfParser::ReadChar()
{
	if( reading_from_file )
	{
		if( input_as_utf8 )
			return ReadUTF8Char();
		else
			return ReadASCIIChar();
	}
	else
	{
		if( reading_from_wchar_string )
		{
			return ReadCharFromWcharString();
		}
		else
		{
			if( input_as_utf8 )
				return ReadCharFromUTF8String();
			else
				return ReadCharFromAsciiString();
		}
	}
}