forked from Mirrors/openclonk
79 lines
1.8 KiB
C++
79 lines
1.8 KiB
C++
/*
|
|
* 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;
|
|
}
|