#include "KSGSExpressionEvaluator.h"
#include "../Leser/KSGSLeser.h"
#include "../Befehl/KSGSKlasse.h"
#include "../Error/Error.h"
#include <iostream>

using namespace KSGScript;

KSGSExpressionEvaluatorImpl::KSGSExpressionEvaluatorImpl()
	: ReferenceCounter()
{
	functions = new RCArray< KSGSFunktion >();
	classes = new RCArray< KSGSKlasse >();
	params = new Framework::RCArray<KSGSVariable>();
	variables = new RCArray< KSGSVariable >();
	expression = "";
}

KSGSExpressionEvaluatorImpl::~KSGSExpressionEvaluatorImpl()
{
	params->release();
	functions->release();
	classes->release();
	variables->release();
}

void KSGSExpressionEvaluatorImpl::compile()
{
	functions->leeren();
	classes->leeren();
	variables->leeren();
	Framework::Text script = "func double start(";
	Iterator<Text*> name = paramNames->begin();
	for (Iterator<KSGSVariable*> it = params->begin(); it && name; it = it.next(), name = name.next())
	{
		switch (it->getTyp())
		{
		case KSGS_BOOL:
			script += "bool " + name;
			break;
		case KSGS_INT:
			script += "int " + name;
			break;
		case KSGS_DOUBLE:
			script += "double " + name;
			break;
		case KSGS_ARRAY:
			script += "Array " + name;
			break;
		case KSGS_THREAD:
			script += "Thread " + name;
			break;
		case KSGS_TEXT:
			script += "Text " + name;
			break;
		case KSGS_BILD:
			script += "Bild " + name;
			break;
		case KSGS_MAUSEREIGNIS:
			script += "MausEreignis " + name;
			break;
		case KSGS_TASTATUREREIGNIS:
			script += "TastaturEreignis " + name;
			break;
		case KSGS_TEXTFELD:
			script += "TextFeld " + name;
			break;
		case KSGS_KNOPF:
			script += "Knopf " + name;
			break;
		case KSGS_FENSTER:
			script += "Fenster " + name;
			break;
		case KSGS_BILDO:
			script += "BildZ " + name;
			break;
		case KSGS_ANIMATION2DDATA:
			script += "Animation2DData " + name;
			break;
		case KSGS_ANIMATION2D:
			script += "Animation2D " + name;
			break;
		}
		if (it.hasNext())
			script += ", ";
	}
	script += Text(") { return ") + expression + Text("; }");
	TextReader* expressionReader = new TextReader(new Text(script));
	KSGSLeser* reader = new KSGSLeser(expressionReader, this, "expression");
	if (!reader->laden())
	{
		expressionReader->release();
		return;
	}
	Array< KSGSVariableDef* >* varDefs = new Array< KSGSVariableDef* >();
	if (!reader->compile(classes, functions, varDefs))
	{
		varDefs->release();
		expressionReader->release();
		return;
	}
	reader->release();
	int vAnz = varDefs->getEintragAnzahl();
	for (int i = 0; i < vAnz; i++)
	{
		KSGSVariable* var = KSGSKlasseInstanz::erstellVariable(this, varDefs->get(i));
		if (var)
			variables->add(var);
		delete varDefs->get(i);
	}
	varDefs->release();
	expressionReader->release();

}

KSGSVariable* KSGSExpressionEvaluatorImpl::createParameter(Framework::Text name, int type)
{
	this->paramNames->add(new Text(name));
	KSGSVariable* var = KSGSKlasseInstanz::erstellVariable(this, new KSGSVariableDef{ type, 0, 0, "" });
	this->params->add(dynamic_cast<KSGSVariable*>(var->getThis()));
	if (this->expression.getLength() > 0)
		compile();
	return var;
}

KSGSVariable* KSGSExpressionEvaluatorImpl::getParameter(Framework::Text name)
{
	int vAnz = paramNames->getEintragAnzahl();
	for (int i = 0; i < vAnz; i++)
	{
		if (paramNames->z(i)->istGleich(name))
			return params->get(i);
	}
	return 0;
}

void KSGSExpressionEvaluatorImpl::setExpression(Framework::Text expression)
{
	this->expression = expression;
	compile();
}

KSGSVariable* KSGSExpressionEvaluatorImpl::evaluate()
{
	if (functions->getEintragAnzahl() > 0)
		return startFunktion(functions->z(0)->getId(), dynamic_cast<RCArray<KSGSVariable>*>(params->getThis()));
	return 0;
}

void KSGSExpressionEvaluatorImpl::logNachricht(const char* n)
{
	std::cout << n << "\n";
}

Framework::Text* KSGSExpressionEvaluatorImpl::convertPfad(const char* pf)
{
	Text* ret = new Text(pf);
	ret->ersetzen('\\', '/');
	if (ret->getText()[0] == '/')
	{
		ret->remove(0);
		return ret;
	}
	return ret;
}

void KSGSExpressionEvaluatorImpl::setVariable(int id, KSGSVariable* var)
{
	variables->set(var, id);
}

KSGSVariable* KSGSExpressionEvaluatorImpl::startFunktion(int id, Framework::RCArray< KSGSVariable >* parameter)
{
	if (!functions->z(id) || functions->z(id)->getSichtbarkeit() != 0)
	{
		error(19, {}, this);
		parameter->release();
		return 0;
	}
	KSGSFunktionInstanz* inst = functions->z(id)->erstellInstanz(dynamic_cast<KSGScriptProcessor*>(getThis()), 0, parameter);
	KSGSVariable* ret = inst->startFunktion();
	inst->release();
	return ret;
}

KSGSVariable* KSGSExpressionEvaluatorImpl::erstellKlassenInstanz(int id)
{
	int anz = classes->getEintragAnzahl();
	for (int i = 0; i < anz; i++)
	{
		if (classes->z(i) && classes->z(i)->getId() == id)
			return classes->z(i)->erstellInstanz(this);
	}
	error(2, {}, this);
	return 0;
}

KSGSVariable* KSGSExpressionEvaluatorImpl::getVariable(int id) const
{
	if (!variables || !variables->z(id))
	{
		error(17, {}, (KSGScriptProcessor*)this);
		return 0;
	}
	return variables->get(id);
}

int KSGSExpressionEvaluatorImpl::getScriptId() const
{
	return 0;
}

Framework::Bildschirm* KSGSExpressionEvaluatorImpl::zBildschirm() const
{
	return 0;
}

Framework::Schrift* KSGSExpressionEvaluatorImpl::zSchrift() const
{
	return 0;
}

int KSGSExpressionEvaluatorImpl::getFunktionId(const char* name) const
{
	int anz = functions->getEintragAnzahl();
	for (int i = 0; i < anz; i++)
	{
		if (functions->z(i)->hatName(name))
			return i;
	}
	return -1;
}

bool KSGSExpressionEvaluatorImpl::istBeendet(int scrId) const
{
	return false;
}

KSGSVariable* KSGSExpressionEvaluatorImpl::callback(Framework::RCArray< KSGSVariable >* parameter) const
{
	parameter->release();
	return 0;
}