Khaganat-NeL/khanat-opennel-code
2
0
Fork 0
Code Issues 21 Pull requests Projects Releases 1 Packages Wiki Activity
khanat-opennel-code/code/ryzom/server/src/ai_service/script_vm.cpp

1060 lines
26 KiB
C++
Raw Normal View History

Fixed EOL issues and added .hgeol file.
2012-05-29 13:31:11 +00:00
// Ryzom - MMORPG Framework <http://dev.ryzom.com/projects/ryzom/>
// Copyright (C) 2010 Winch Gate Property Limited
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU Affero General Public License as
// published by the Free Software Foundation, either version 3 of the
// License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Affero General Public License for more details.
//
// You should have received a copy of the GNU Affero General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
#include "stdpch.h"
#include "script_vm.h"
#include "script_compiler.h"
using namespace std;
using namespace NLMISC;
namespace AIVM
{
//////////////////////////////////////////////////////////////////////////////
// Library management //
//////////////////////////////////////////////////////////////////////////////
CLibrary* CLibrary::_instance = NULL;
CLibrary::TLibContainer CLibrary::_libs;
#if !FINAL_VERSION
CVariable<bool> AIScriptDisplayPrint("aiscript", "AIScriptDisplayPrint", "Display the script 'print's in the AIS log.", true, 0, true);
#else
CVariable<bool> AIScriptDisplayPrint("aiscript", "AIScriptDisplayPrint", "Display the script 'print's in the AIS log.", false, 0, true);
#endif
CVariable<bool> AIScriptDisplayLog("aiscript", "AIScriptDisplayLog", "Display the script 'log's in the AIS log.", true, 0, true);
void CLibrary::addLib(std::string const& name, std::string const& code)
{
vector<string> codeVect;
size_t start, end;
start = 0;
// Cut code in lines
while (start<code.length())
{
end = code.find("\n", start);
if (end!=std::string::npos)
{
codeVect.push_back(code.substr(start, end-start));
start = end+1;
}
else
{
codeVect.push_back(code.substr(start));
break;
}
}
NLMISC::CSmartPtr<CByteCode const> byteCode = AICOMP::CCompiler::getInstance().compileCode(codeVect, name);
if (byteCode!=NULL)
addLib(name, byteCode);
}
void CLibrary::addLib(std::string const& name, std::vector<std::string> const& code)
{
NLMISC::CSmartPtr<CByteCode const> byteCode=AICOMP::CCompiler::getInstance().compileCode(code, name);
if (byteCode!=NULL)
addLib(name, byteCode);
}
void CLibrary::addLib(std::string const& name, NLMISC::CSmartPtr<CByteCode const> const& byteCode)
{
if (byteCode==NULL)
{
nlwarning("Trying to register an empty library script.");
return;
}
nlinfo("Adding script library %s", name.c_str());
_libs.insert(std::make_pair(name, byteCode));
}
//////////////////////////////////////////////////////////////////////////////
// Virtual machine //
//////////////////////////////////////////////////////////////////////////////
CSmartPtr<CByteCode const> CLibrary::getLib(std::string const& name)
{
TLibContainer::const_iterator it = _libs.find(name);
if (it!=_libs.end())
return it->second;
else
return CSmartPtr<CByteCode const>(NULL);
}
CScriptVM* CScriptVM::_Instance = NULL;
CScriptVM* CScriptVM::getInstance()
{
if (_Instance==NULL)
_Instance = new CScriptVM;
return _Instance;
}
void CScriptVM::destroyInstance()
{
if (_Instance!=NULL)
{
delete _Instance;
_Instance = NULL;
}
}
void CScriptVM::interpretCode(
IScriptContext* thisContext,
IScriptContext* parentContext,
IScriptContext* callerContext,
CByteCodeEntry const& codeScriptEntry)
{
NLMISC::CSmartPtr<CByteCode const> const& byteCode = codeScriptEntry.code();
size_t startIndex = codeScriptEntry.index();
if (byteCode.isNull())
return;
vector<size_t> const& opcodes = byteCode->_opcodes;
static TStringId parentStrId = CStringMapper::map("parent");
static TStringId callerStrId = CStringMapper::map("caller");
CScriptStack stack;
size_t index = startIndex;
string currentString;
while (index < opcodes.size())
{
#if !FINAL_VERSION
EOpcode op = (EOpcode)opcodes[index];
#endif
switch (opcodes[index])
{
default:
case INVALID_OPCODE:
nlwarning("Invalid Opcode for Group '%s' with code in '%s'", thisContext->getContextName().c_str(), byteCode->_sourceName.c_str());
nlassert(false);
break;
case EOP:
return; // End Of Program
case EQ: // == Need: Value1: Value2 After: Value1==Value2 (Boolean as float)
{
const float res=stack.top(1)==stack.top()?1.f:0.f;
stack.pop();
stack.top()=res;
++index;
}
continue;
case NEQ: // != Need: Value1: Value2 After: Value1!=Value2 (Boolean as float)
{
const float res=stack.top(1)!=stack.top()?1.f:0.f;
stack.pop();
stack.top()=res;
index++;
}
continue;
case INF: // < Need: Value1: Value2 After: Value1<Value2 (Boolean as float)
{
const float res=stack.top(1)<stack.top()?1.f:0.f;
stack.pop();
stack.top()=res;
index++;
}
continue;
case INFEQ: // <= Need: Value1: Value2 After: Value1<=Value2 (Boolean as float)
{
const float res=stack.top(1)<=stack.top()?1.f:0.f;
stack.pop();
stack.top()=res;
index++;
}
continue;
case SUP: // > Need: Value1: Value2 After: Value1>Value2 (Boolean as float)
{
const float res=stack.top(1)>stack.top()?1.f:0.f;
stack.pop();
stack.top()=res;
index++;
}
continue;
case SUPEQ: // >= Need: Value1: Value2 After: Value1>=Value2 (Boolean as float)
{
const float res=stack.top(1)>=stack.top()?1.f:0.f;
stack.pop();
stack.top()=res;
index++;
}
continue;
case ADD: // + Need: Value1: Value2 After: Value1+Value2
{
CScriptStack::CStackEntry &entry0=stack.top();
CScriptStack::CStackEntry &entry1=stack.top(1);
nlassert((entry0.type()==CScriptStack::EFloat||entry0.type()==CScriptStack::EString)
&&(entry1.type()==CScriptStack::EFloat||entry1.type()==CScriptStack::EString));
breakable
{
if (entry0.type()==entry1.type())
{
if (entry0.type()==CScriptStack::EFloat)
(float&)entry1+=(float&)entry0;
else
(string&)entry1+=(string&)entry0;
}
else
{
if (entry0.type()==CScriptStack::EFloat)
(string&)entry1+=toString("%g", (float&)entry0);
else
{
const float value=entry1;
entry1=toString("%g", value);
(string&)entry1+=(string&)entry0;
}
}
}
stack.pop();
index++;
}
continue;
case SUB: // - Need: Value1: Value2 After: Value1-Value2
{
const float val=stack.top();
stack.pop();
(float&)stack.top()-=val;
index++;
}
continue;
case MUL: // * Need: Value1: Value2 After: Value1/Value2
{
float &res=stack.top(1);
res*=(float&)stack.top();
stack.pop();
index++;
}
continue;
case DIV: // / Need: Value1: Value2 After: Value1/Value2 !Exception Gestion.
{
float &res=stack.top(1);
const float &divisor=stack.top();
if (divisor==0)
res=1;
else
res/=divisor;
stack.pop();
index++;
}
continue;
case AND: // && Need: Value1: Value2 After: Value1&&Value2
{
const bool val1=(float&)stack.top(1)!=0.f;
const bool val2=(float&)stack.top()!=0.f;
stack.pop();
stack.top()=(val1&&val2)?1.f:0.f;
index++;
}
continue;
case OR: // || Need: Value1: Value2 After: Value1||Value2
{
const bool val1=(float&)stack.top(1)!=0.f;
const bool val2=(float&)stack.top()!=0.f;
stack.pop();
stack.top()=(val1||val2)?1.f:0.f;
index++;
}
continue;
case NOT: // ! Need: Value After: !Value
{
float &val=stack.top();
val=(val==0.f)?1.f:0.f;
index++;
}
continue;
case PUSH_ON_STACK: // Set a Value (float) Need: - After: Value(float)
{
stack.push(*((float*)&opcodes[index+1]));
index+=2;
}
continue;
case POP: // Pop Need: ValToPop After: -
{
stack.pop();
index++;
}
continue;
case SET_VAR_VAL: // Set a Value to a Var. Need: VarName: VarValue After: -
{
float f = 0.0f;
switch (stack.top().type())
{
case CScriptStack::EString:
{
string &str=stack.top();
f=(float)atof(str.c_str());
}
break;
case CScriptStack::EFloat:
{
f = (float&)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
stack.pop();
thisContext->setLogicVar(*((TStringId*)&opcodes[index+1]), f);
index+=2;
}
continue;
case SET_STR_VAR_VAL: // Set a Value to a Var. Need: VarName: VarValue After: -
{
switch (stack.top().type())
{
case CScriptStack::EString:
{
thisContext->setStrLogicVar(*((TStringId*)&opcodes[index+1]), stack.top());
}
break;
case CScriptStack::EFloat:
{
float const& val = stack.top();
thisContext->setStrLogicVar(*((TStringId*)&opcodes[index+1]),NLMISC::toString("%g", val));
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
thisContext->setStrLogicVar(*((TStringId*)&opcodes[index+1]),std::string());
}
stack.pop();
index+=2;
}
continue;
case SET_CTX_VAR_VAL: // Set a Value to a Var. Need: VarName: VarValue After: -
{
switch (stack.top().type())
{
case CScriptStack::EContext:
{
thisContext->setCtxLogicVar(*((TStringId*)&opcodes[index+1]), stack.top());
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
thisContext->setCtxLogicVar(*((TStringId*)&opcodes[index+1]), (IScriptContext*)0);
}
stack.pop();
index+=2;
}
continue;
case PUSH_VAR_VAL: // Push the Value of a Var. Need: - (VarName on next IP) After: VarValue(float)
{
const float f=thisContext->getLogicVar(*((TStringId*)&opcodes[index+1]));
stack.push(f);
index+=2;
}
continue;
case PUSH_STR_VAR_VAL: // Push the Value of a Var. Need: - (VarName on next IP) After: VarValue(float)
{
std::string str = thisContext->getStrLogicVar(*((TStringId*)&opcodes[index+1]));
stack.push(str);
index+=2;
}
continue;
case PUSH_CTX_VAR_VAL: // Push the Value of a Var. Need: - (VarName on next IP) After: VarValue(float)
{
IScriptContext* ctx = thisContext->getCtxLogicVar(*((TStringId*)&opcodes[index+1]));
stack.push(ctx);
index+=2;
}
continue;
/*
case SET_OTHER_VAR_VAL:
{
const TStringId strId=*((TStringId*)&opcodes[index+1]);
IScriptContext* otherContext = NULL;
if (strId==parentStrId)
{
otherContext = parentContext;
}
else if (strId==callerStrId)
{
otherContext = callerContext;
}
else
{
otherContext = thisContext->findContext(strId);
}
float f = 0.0f;
switch (stack.top().type()) //stack.type(0))
{
case CScriptStack::EString:
{
string& str = stack.top();
f = (float)atof(str.c_str());
}
break;
case CScriptStack::EFloat:
{
f = (float&)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
if (otherContext)
otherContext->setLogicVar(*((TStringId*)&opcodes[index+2]), f);
stack.pop();
index+=3;
}
continue;
case SET_OTHER_STR_VAR_VAL:
{
const TStringId strId=*((TStringId*)&opcodes[index+1]);
IScriptContext* otherContext = NULL;
if (strId==parentStrId)
{
otherContext = parentContext;
}
else if (strId==callerStrId)
{
otherContext = callerContext;
}
else
{
otherContext = thisContext->findContext(strId);
}
std::string str;
switch (stack.top().type())
{
case CScriptStack::EString:
{
str = (string&)stack.top();
}
break;
case CScriptStack::EFloat:
{
float& val = (float&)stack.top();
str = NLMISC::toString("%g", val);
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
if (otherContext)
otherContext->setStrLogicVar(*((TStringId*)&opcodes[index+2]), str);
stack.pop();
index += 3;
}
continue;
case SET_OTHER_CTX_VAR_VAL:
{
TStringId const strId = *((TStringId*)&opcodes[index+1]);
IScriptContext* otherContext = NULL;
if (strId==parentStrId)
{
otherContext = parentContext;
}
else if (strId==callerStrId)
{
otherContext = callerContext;
}
else
{
otherContext = thisContext->findContext(strId);
}
IScriptContext* ctx = (IScriptContext*)0;
switch (stack.top().type())
{
case CScriptStack::EContext:
{
ctx = (IScriptContext*)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
if (otherContext)
otherContext->setCtxLogicVar(*((TStringId*)&opcodes[index+2]), ctx);
stack.pop();
index += 3;
}
continue;
case PUSH_OTHER_VAR_VAL:
{
const TStringId strId=*((TStringId*)&opcodes[index+1]);
IScriptContext* otherContext = NULL;
if (strId==parentStrId)
{
otherContext = parentContext;
}
else if (strId==callerStrId)
{
otherContext = callerContext;
}
else
{
otherContext = thisContext->findContext(strId);
}
float f;
if (otherContext)
f = otherContext->getLogicVar(*((TStringId*)&opcodes[index+2]));
else
f = 1.0f;
stack.push(f);
index += 3;
}
continue;
case PUSH_OTHER_STR_VAR_VAL:
{
const TStringId strId=*((TStringId*)&opcodes[index+1]);
IScriptContext* otherContext = NULL;
if (strId==parentStrId)
{
otherContext = parentContext;
}
else if (strId==callerStrId)
{
otherContext = callerContext;
}
else
{
otherContext = thisContext->findContext(strId);
}
if (otherContext)
stack.push(otherContext->getStrLogicVar(*((TStringId*)&opcodes[index+2])));
else
stack.push(std::string()); // accepted coz const &
index += 3;
}
continue;
case PUSH_OTHER_CTX_VAR_VAL:
{
TStringId const strId = *((TStringId*)&opcodes[index+1]);
IScriptContext* otherContext = NULL;
if (strId==parentStrId)
{
otherContext = parentContext;
}
else if (strId==callerStrId)
{
otherContext = callerContext;
}
else
{
otherContext = thisContext->findContext(strId);
}
if (otherContext)
stack.push(otherContext->getCtxLogicVar(*((TStringId*)&opcodes[index+2])));
else
stack.push((IScriptContext*)0);
index += 3;
}
continue;
*/
case SET_CONTEXT_VAR_VAL:
{
IScriptContext* otherContext = (IScriptContext*)0;
switch (stack.top().type())
{
case CScriptStack::EContext:
{
otherContext = (IScriptContext*)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
stack.pop();
float f = 0.0f;
switch (stack.top().type()) //stack.type(0))
{
case CScriptStack::EString:
{
string& str = stack.top();
f = (float)atof(str.c_str());
}
break;
case CScriptStack::EFloat:
{
f = (float&)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
if (otherContext)
otherContext->setLogicVar(*((TStringId*)&opcodes[index+1]), f);
stack.pop();
index+=2;
}
continue;
case SET_CONTEXT_STR_VAR_VAL:
{
IScriptContext* otherContext = (IScriptContext*)0;
switch (stack.top().type())
{
case CScriptStack::EContext:
{
otherContext = (IScriptContext*)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
stack.pop();
std::string str;
switch (stack.top().type())
{
case CScriptStack::EString:
{
str = (string&)stack.top();
}
break;
case CScriptStack::EFloat:
{
float& val = (float&)stack.top();
str = NLMISC::toString("%g", val);
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
if (otherContext)
otherContext->setStrLogicVar(*((TStringId*)&opcodes[index+1]), str);
stack.pop();
index += 2;
}
continue;
case SET_CONTEXT_CTX_VAR_VAL:
{
IScriptContext* otherContext = (IScriptContext*)0;
switch (stack.top().type())
{
case CScriptStack::EContext:
{
otherContext = (IScriptContext*)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
stack.pop();
IScriptContext* ctx = (IScriptContext*)0;
switch (stack.top().type())
{
case CScriptStack::EContext:
{
ctx = (IScriptContext*)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
if (otherContext)
otherContext->setCtxLogicVar(*((TStringId*)&opcodes[index+1]), ctx);
stack.pop();
index += 2;
}
continue;
case PUSH_CONTEXT_VAR_VAL:
{
IScriptContext* otherContext = (IScriptContext*)0;
switch (stack.top().type())
{
case CScriptStack::EContext:
{
otherContext = (IScriptContext*)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
stack.pop();
float f;
if (otherContext)
f = otherContext->getLogicVar(*((TStringId*)&opcodes[index+1]));
else
f = 1.0f;
stack.push(f);
index += 2;
}
continue;
case PUSH_CONTEXT_STR_VAR_VAL:
{
IScriptContext* otherContext = (IScriptContext*)0;
switch (stack.top().type())
{
case CScriptStack::EContext:
{
otherContext = (IScriptContext*)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
stack.pop();
if (otherContext)
stack.push(otherContext->getStrLogicVar(*((TStringId*)&opcodes[index+1])));
else
stack.push(std::string()); // accepted coz const &
index += 2;
}
continue;
case PUSH_CONTEXT_CTX_VAR_VAL:
{
IScriptContext* otherContext = (IScriptContext*)0;
switch (stack.top().type())
{
case CScriptStack::EContext:
{
otherContext = (IScriptContext*)stack.top();
}
break;
default:
nlwarning("Stack top type invalid, poping top value!");
}
stack.pop();
if (otherContext)
stack.push(otherContext->getCtxLogicVar(*((TStringId*)&opcodes[index+1])));
else
stack.push((IScriptContext*)0);
index += 2;
}
continue;
case JUMP: // Jump + nb size_t to jump (relative). Need: NewJumpOffset After: -
{
index+=opcodes[index+1]+1; // AGI .. Not Opt
}
continue;
case JE: // Jump if last stack value is FALSE(==0). Need: BoolValue(float) (NewJumpOffset on Next Ip) After: -
{
if ((float&)stack.top()==0.f)
index+=opcodes[index+1]+1; // AGI .. Not Opt
else
index+=2;
stack.pop();
}
continue;
case JNE: // Jump if last stack value is TRUE(!=0). Need: BoolValue(float) (NewJumpOffset on Next Ip) After: -
{
if ((float&)stack.top()!=0.f)
index+=opcodes[index+1]+1; // AGI .. Not Opt
else
index+=2;
stack.pop();
}
continue;
case PUSH_PRINT_STRING:
{
currentString+=CStringMapper::unmap(*((TStringId*)&opcodes[index+1])); // strPt.substr(1,strPt.size()-2);
index+=2;
}
continue;
case PUSH_PRINT_VAR:
{
float const val = thisContext->getLogicVar(*((TStringId*)&opcodes[index+1]));
currentString += NLMISC::toString("%g", val);
index += 2;
}
continue;
case PUSH_PRINT_STR_VAR:
{
string const str = thisContext->getStrLogicVar(*((TStringId*)&opcodes[index+1]));
currentString += str;
index += 2;
}
continue;
case PRINT_STRING:
{
if (AIScriptDisplayPrint)
{
nlinfo(currentString.c_str());
}
currentString.resize(0);
++index;
}
continue;
case LOG_STRING:
{
if (AIScriptDisplayLog)
{
nlinfo(currentString.c_str());
}
currentString.resize(0);
++index;
}
continue;
case FUNCTION:
{
// on_event
TStringId const eventName = *((TStringId*)&opcodes[index+1]);
IScriptContext* const sc = stack.top();
stack.pop();
if (sc)
sc->setScriptCallBack(eventName, CByteCodeEntry(byteCode, index+4));
index+=2;
}
continue;
case CALL:
{
// set_event
const TStringId eventName=*((TStringId*)&opcodes[index+1]);
IScriptContext* const sc = stack.top();
stack.pop();
if (sc)
sc->callScriptCallBack(thisContext, eventName, 0, "", "", &stack);
index+=2;
}
continue;
case PUSH_THIS:
{
IScriptContext* const sc=thisContext;
stack.push(sc);
index++;
}
continue;
case PUSH_GROUP:
{
const TStringId strId=*((TStringId*)&opcodes[index+1]);
IScriptContext* otherContext = NULL;
if (strId==parentStrId)
{
otherContext = parentContext;
}
else if (strId==callerStrId)
{
otherContext = callerContext;
}
else
{
otherContext = thisContext->findContext(strId);
}
if (!otherContext)
nlinfo("Group %s unknown, pushing a NULL context on the stack, this may lead to bad behaviours", CStringMapper::unmap(strId).c_str());
stack.push(otherContext);
index+=2;
}
continue;
case PUSH_STRING:
{
const string &str = CStringMapper::unmap(*((TStringId*)&opcodes[index+1]));
stack.push(str);
index+=2;
}
continue;
case ASSIGN_FUNC_FROM:
{
const TStringId srcFunc=CStringMapper::map(stack.top());
stack.pop();
IScriptContext* const src=stack.top();
stack.pop();
const TStringId destFunc=CStringMapper::map(stack.top());
stack.pop();
IScriptContext* const dest=stack.top();
stack.pop();
if ( dest
&& src )
{
CByteCodeEntry const* pcode = src->getScriptCallBackPtr(srcFunc);
if (pcode!=NULL)
dest->setScriptCallBack(destFunc, *pcode);
}
index++;
}
continue;
case NATIVE_CALL:
{
IScriptContext* const sc = stack.top();
stack.pop();
string const& funcName = CStringMapper::unmap(*((TStringId*)&opcodes[++index]));
int mode = (int)opcodes[++index];
string const& inParamsSig = CStringMapper::unmap(*((TStringId*)&opcodes[++index]));
string const& outParamsSig = CStringMapper::unmap(*((TStringId*)&opcodes[++index]));
if (sc)
{
sc->callNativeCallBack(thisContext, funcName, mode, inParamsSig, outParamsSig, &stack);
}
else
{
nlwarning("Calling a native function (%s) on a NULL group/context, rebuilding stack (this situation previously led to unknown behaviour, most of the time crashes)", funcName.c_str());
// If we have parameters we got to rebuild the stack
if (!inParamsSig.empty())
{
for (size_t i=0; i<inParamsSig.length(); ++i)
stack.pop();
}
if (!outParamsSig.empty())
{
for (size_t i=0; i<outParamsSig.length(); ++i)
{
switch (outParamsSig[i])
{
case 'f': stack.push(0.f); break;
case 's': stack.push(string()); break;
case 'c': stack.push((IScriptContext*)0); break;
default: nlassert("Unknown parameter type in native function call while rebuilding stack");
}
}
}
}
++index;
}
continue;
case RAND:
{
const size_t randIndex=rand32((uint32)opcodes[index+1]); // rand(RANDCOUNT)
index+=3; // pass RAND + RANDCOUNT + 1
stack.push((int)(index+opcodes[index])); // push the absolute address for RET.
index+=(randIndex+1)*2;
index+=opcodes[index]; // we jump at the random sequence.
}
continue;
case RET:
{
index=(int&)stack.top();
stack.pop();
}
continue;
case ONCHILDREN:
{
if (thisContext)
{
thisContext->interpretCodeOnChildren(CByteCodeEntry(byteCode, index+3));
}
index++; // let's go to jump ..
}
continue;
case SWITCH:
{
// !!!!!
size_t compValue=0;
switch (stack.top().type())
{
case CScriptStack::EString:
{
TStringId strId = CStringMapper::map(stack.top());
stack.pop();
compValue = *((size_t*)&strId);
}
break;
case CScriptStack::EFloat:
{
float val = (float&)stack.top();
stack.pop();
compValue = *((size_t*)&val);
}
break;
default:
nlwarning("Stack top type invalid, poping top value");
stack.pop();
}
size_t nbCase=opcodes[index+1];
index+=2; // SWITCH + #Case
stack.push((int)(index+opcodes[index])); // push the absolute address for RET.
index++;
size_t offset=index;
bool found=false;
while (nbCase>0)
{
if (compValue==opcodes[offset]) // we could replace this with binary retrieval.
{
index=offset+1;
index+=opcodes[index]; // we jump at the random sequence.
found=true;
break;
}
nbCase--;
offset+=2;
}
// if not found, don't do anything.
if (!found)
{
index=(int&)stack.top();
stack.pop();
}
}
continue;
case INCR: // Increment top of stack.
{
float &f = stack.top();
++f;
++index;
}
continue;
case DECR: // Decrement top of stack.
{
float &f = stack.top();
--f;
++index;
}
continue;
case CONCAT: // Concatenates 2 strings
{
(string&)stack.top(1) += (string&)stack.top();
stack.pop();
}
continue;
case FTOS: // Convert a float to a string
{
stack.top()=NLMISC::toString("%g", (float&)stack.top());
}
continue;
}
Changed: Typo fixes and French comments translated to English (Thanks to DuDraig!)
2013-02-12 21:48:37 +00:00
nlassert(false); // must use continue !! Not implemented.
Fixed EOL issues and added .hgeol file.
2012-05-29 13:31:11 +00:00
}
}
}
Reference in a new issue Copy permalink