/*
 * OpenClonk, http://www.openclonk.org
 *
 * Copyright (c) 2001, 2007, Sven Eberhardt
 * Copyright (c) 2011-2016, The OpenClonk Team and contributors
 *
 * Distributed under the terms of the ISC license; see accompanying file
 * "COPYING" for details.
 *
 * "Clonk" is a registered trademark of Matthes Bender, used with permission.
 * See accompanying file "TRADEMARK" for details.
 *
 * To redistribute this file separately, substitute the full license texts
 * for the above references.
 */

#include "C4Include.h"
#include "script/C4Value.h"
#include "script/C4AulFunc.h"
#include "script/C4Aul.h"

C4AulFunc::C4AulFunc(C4PropListStatic * Parent, const char *pName):
		Parent(Parent),
		Name(pName ? Strings.RegString(pName) : nullptr),
		MapNext(nullptr)
{
	// add to global lookuptable with this name
	if (GetName())
		::ScriptEngine.FuncLookUp.Add(this);
}

C4AulFunc::~C4AulFunc()
{
	if (GetName())
		::ScriptEngine.FuncLookUp.Remove(this);
}

StdStrBuf C4AulFunc::GetFullName() const
{
	StdStrBuf r;
	// "lost" function?
	if (!Parent)
	{
		r.Ref("(unowned) ");
	}
	else
	{
		r.Take(Parent->GetDataString());
		r.AppendChar('.');
	}
	if (GetName())
		r.Append(Name->GetData());
	else
		r.Append("(unnamed)");
	return r;
}

bool C4AulFunc::CheckParTypes(const C4Value pPars[], bool fPassErrors) const {
	// Convert parameters (typecheck)
	const C4V_Type *pTypes = GetParType();
	int parcount = GetParCount();
	for (int i = 0; i < parcount; i++) {
		if (!pPars[i].CheckParConversion(pTypes[i]))
		{
			C4AulExecError e(FormatString(
				R"(call to "%s" parameter %d: passed %s, but expected %s)",
				GetName(), i + 1, pPars[i].GetTypeName(), GetC4VName(pTypes[i])).getData());
			if (fPassErrors)
				throw e;
			else
			{
				::ScriptEngine.GetErrorHandler()->OnError(e.what());
				return false;
			}
		}
	}
	return true;
}