mirror of
https://github.com/vcmi/vcmi.git
synced 2025-04-17 11:56:46 +02:00
* most of VR:S receiver
This commit is contained in:
mateuszb
parent
b4144dc616
commit
85d0d49207
@ -455,12 +455,14 @@ void ERMInterpreter::scanScripts()
|
||||
|
||||
ERMInterpreter::ERMInterpreter()
|
||||
{
|
||||
curFunc = NULL;
|
||||
curTrigger = NULL;
|
||||
globalEnv = new Environment();
|
||||
}
|
||||
|
||||
void ERMInterpreter::executeTrigger( Trigger & trig )
|
||||
{
|
||||
//skpi the first line
|
||||
//skip the first line
|
||||
LinePointer lp = trig.line;
|
||||
++lp;
|
||||
for(; lp.isValid(); ++lp)
|
||||
@ -551,6 +553,134 @@ ERM::TLine ERMInterpreter::retrieveLine( LinePointer linePtr ) const
|
||||
/////////
|
||||
//code execution
|
||||
|
||||
struct VRPerformer;
|
||||
struct VR_SPerformer : boost::static_visitor<>
|
||||
{
|
||||
VRPerformer & owner;
|
||||
explicit VR_SPerformer(VRPerformer & _owner);
|
||||
|
||||
void operator()(TVarConcatString const& cmp) const;
|
||||
void operator()(TStringConstant const& cmp) const;
|
||||
void operator()(TCurriedString const& cmp) const;
|
||||
void operator()(TSemiCompare const& cmp) const;
|
||||
void operator()(TMacroUsage const& cmp) const;
|
||||
void operator()(TMacroDef const& cmp) const;
|
||||
void operator()(TIexp const& cmp) const;
|
||||
void operator()(TVarpExp const& cmp) const;
|
||||
void operator()(spirit::unused_type const& cmp) const;
|
||||
};
|
||||
|
||||
|
||||
struct VRPerformer : boost::static_visitor<>
|
||||
{
|
||||
ERMInterpreter * interp;
|
||||
IexpValStr identifier;
|
||||
VRPerformer(ERMInterpreter * _interpr, IexpValStr ident) : interp(_interpr), identifier(ident)
|
||||
{}
|
||||
|
||||
void operator()(TVRLogic const& trig) const
|
||||
{
|
||||
//TODO
|
||||
}
|
||||
void operator()(TVRArithmetic const& trig) const
|
||||
{
|
||||
//TODO
|
||||
}
|
||||
void operator()(TNormalBodyOption const& trig) const
|
||||
{
|
||||
switch(trig.optionCode)
|
||||
{
|
||||
case 'S': //setting variable
|
||||
{
|
||||
if(trig.params.size() == 1)
|
||||
{
|
||||
ERM::TBodyOptionItem boi = trig.params[0];
|
||||
boost::apply_visitor(VR_SPerformer(*const_cast<VRPerformer*>(this)), boi);
|
||||
}
|
||||
else
|
||||
throw EScriptExecError("VR receiver S option takes exactly 1 parameter!");
|
||||
}
|
||||
break;
|
||||
default:
|
||||
//not supported or not allowed
|
||||
break;
|
||||
}
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
VR_SPerformer::VR_SPerformer(VRPerformer & _owner) : owner(_owner)
|
||||
{}
|
||||
|
||||
void VR_SPerformer::operator()(ERM::TIexp const& trig) const
|
||||
{
|
||||
IexpValStr sv = owner.interp->getIexp(trig);
|
||||
switch(owner.identifier.type)
|
||||
{
|
||||
case IexpValStr::FLOATVAR:
|
||||
switch(sv.type)
|
||||
{
|
||||
case IexpValStr::FLOATVAR:
|
||||
*owner.identifier.val.flvar = *sv.val.flvar;
|
||||
break;
|
||||
default:
|
||||
throw EScriptExecError("Incompatible data types in VR S receiver: expected float var!");
|
||||
break;
|
||||
}
|
||||
break;
|
||||
case IexpValStr::INT:
|
||||
throw EScriptExecError("VR S: value not assignable!");
|
||||
break;
|
||||
case IexpValStr::INTVAR:
|
||||
switch(sv.type)
|
||||
{
|
||||
case IexpValStr::INT:
|
||||
*owner.identifier.val.integervar = sv.val.val;
|
||||
break;
|
||||
case IexpValStr::INTVAR:
|
||||
*owner.identifier.val.integervar = *sv.val.integervar;
|
||||
break;
|
||||
default:
|
||||
throw EScriptExecError("Incompatible data types in VR S receiver: expected int var or constant!");
|
||||
break;
|
||||
}
|
||||
break;
|
||||
case IexpValStr::STRINGVAR:
|
||||
switch(sv.type)
|
||||
{
|
||||
case IexpValStr::STRINGVAR:
|
||||
*owner.identifier.val.stringvar = *sv.val.stringvar;
|
||||
break;
|
||||
default:
|
||||
throw EScriptExecError("Incompatible data types in VR S receiver: expected string var!");
|
||||
break;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
throw EScriptExecError("Wrong type of identifier iexp!");
|
||||
}
|
||||
}
|
||||
|
||||
void VR_SPerformer::operator()(TVarConcatString const& cmp) const
|
||||
{}
|
||||
void VR_SPerformer::operator()(TStringConstant const& cmp) const
|
||||
{}
|
||||
void VR_SPerformer::operator()(TCurriedString const& cmp) const
|
||||
{}
|
||||
void VR_SPerformer::operator()(TSemiCompare const& cmp) const
|
||||
{}
|
||||
void VR_SPerformer::operator()(TMacroUsage const& cmp) const
|
||||
{}
|
||||
void VR_SPerformer::operator()(TMacroDef const& cmp) const
|
||||
{}
|
||||
void VR_SPerformer::operator()(TVarpExp const& cmp) const
|
||||
{}
|
||||
void VR_SPerformer::operator()(spirit::unused_type const& cmp) const
|
||||
{}
|
||||
|
||||
struct ConditionDisemboweler;
|
||||
|
||||
|
||||
struct ERMExpDispatch : boost::static_visitor<>
|
||||
{
|
||||
ERMInterpreter * owner;
|
||||
@ -566,6 +696,49 @@ struct ERMExpDispatch : boost::static_visitor<>
|
||||
}
|
||||
void operator()(Treceiver const& trig) const
|
||||
{
|
||||
if(trig.name == "VR")
|
||||
{
|
||||
//check condition
|
||||
if(trig.condition.is_initialized())
|
||||
{
|
||||
if( !owner->checkCondition(trig.condition.get()) )
|
||||
return;
|
||||
}
|
||||
|
||||
//perform operations
|
||||
if(trig.identifier.is_initialized())
|
||||
{
|
||||
ERM::Tidentifier ident = trig.identifier.get();
|
||||
if(ident.size() == 1)
|
||||
{
|
||||
ERM::TIdentifierInternal idint = ident[0];
|
||||
if(idint.which() == 0)
|
||||
{
|
||||
IexpValStr ievs = owner->getIexp(boost::get<ERM::TIexp>(idint));
|
||||
|
||||
//see body
|
||||
if(trig.body.is_initialized())
|
||||
{
|
||||
ERM::Tbody bo = trig.body.get();
|
||||
for(int g=0; g<bo.size(); ++g)
|
||||
{
|
||||
boost::apply_visitor(VRPerformer(owner, ievs), bo[g]);
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
throw EScriptExecError("Identifier of a VR receiver must be a valid i-expression!");
|
||||
}
|
||||
else
|
||||
throw EScriptExecError("VR receiver must be used with exactly one identifier item!");
|
||||
}
|
||||
else
|
||||
throw EScriptExecError("VR receiver must be used with an identifier!");
|
||||
}
|
||||
else
|
||||
{
|
||||
//unsupported or invalid trigger
|
||||
}
|
||||
}
|
||||
void operator()(TPostTrigger const& trig) const
|
||||
{
|
||||
@ -624,16 +797,7 @@ void ERMInterpreter::init()
|
||||
//TODO: reset?
|
||||
}
|
||||
|
||||
struct ERMExecEnvironment
|
||||
{
|
||||
ERMEnvironment * ermGlobalEnv;
|
||||
Trigger * trigEnv;
|
||||
FunctionLocalVars * funcVars;
|
||||
ERMExecEnvironment(ERMEnvironment * erm, Trigger * trig = NULL, FunctionLocalVars * funvars = NULL)
|
||||
: ermGlobalEnv(erm), trigEnv(trig), funcVars(funvars)
|
||||
{}
|
||||
|
||||
IexpValStr getVar(std::string toFollow, boost::optional<int> initVal)
|
||||
IexpValStr ERMInterpreter::getVar(std::string toFollow, boost::optional<int> initVal)
|
||||
{
|
||||
IexpValStr ret;
|
||||
ret.type = IexpValStr::WRONGVAL;
|
||||
@ -687,9 +851,9 @@ struct ERMExecEnvironment
|
||||
//these C-style cast is here just to shut up compiler errors
|
||||
if(initV > 0 && initV <= FunctionLocalVars::NUM_FLOATINGS)
|
||||
{
|
||||
if(funcVars)
|
||||
if(curFunc)
|
||||
{
|
||||
ret.val.flvar = &funcVars->getFloat(initV);
|
||||
ret.val.flvar = &curFunc->getFloat(initV);
|
||||
ret.type = IexpValStr::FLOATVAR;
|
||||
}
|
||||
else
|
||||
@ -697,9 +861,9 @@ struct ERMExecEnvironment
|
||||
}
|
||||
else if(initV < 0 && initV >= -TriggerLocalVars::EVAR_NUM)
|
||||
{
|
||||
if(trigEnv)
|
||||
if(curTrigger)
|
||||
{
|
||||
ret.val.flvar = &trigEnv->ermLocalVars.getEvar(initV);
|
||||
ret.val.flvar = &curTrigger->ermLocalVars.getEvar(initV);
|
||||
ret.type = IexpValStr::FLOATVAR;
|
||||
}
|
||||
else
|
||||
@ -755,15 +919,15 @@ struct ERMExecEnvironment
|
||||
{
|
||||
if(hasInit)
|
||||
{
|
||||
if(funcVars)
|
||||
if(curFunc)
|
||||
{
|
||||
if(retIt)
|
||||
{
|
||||
ret.val.integervar = &funcVars->getParam(initV);
|
||||
ret.val.integervar = &curFunc->getParam(initV);
|
||||
ret.type = IexpValStr::INTVAR;
|
||||
}
|
||||
else
|
||||
initV = funcVars->getParam(initV);
|
||||
initV = curFunc->getParam(initV);
|
||||
}
|
||||
else throw EIexpProblem("Function parameters cannot be used outside a function!");
|
||||
}
|
||||
@ -776,30 +940,30 @@ struct ERMExecEnvironment
|
||||
{
|
||||
if(initV > 0 && initV <= FunctionLocalVars::NUM_LOCALS)
|
||||
{
|
||||
if(funcVars)
|
||||
if(curFunc)
|
||||
{
|
||||
if(retIt)
|
||||
{
|
||||
ret.val.integervar = &funcVars->getLocal(initV);
|
||||
ret.val.integervar = &curFunc->getLocal(initV);
|
||||
ret.type = IexpValStr::INTVAR;
|
||||
}
|
||||
else
|
||||
initV = funcVars->getLocal(initV);
|
||||
initV = curFunc->getLocal(initV);
|
||||
}
|
||||
else
|
||||
throw EIexpProblem("Function local variables cannot be used outside a function!");
|
||||
}
|
||||
else if(initV < 0 && initV >= -TriggerLocalVars::YVAR_NUM)
|
||||
{
|
||||
if(trigEnv)
|
||||
if(curTrigger)
|
||||
{
|
||||
if(retIt)
|
||||
{
|
||||
ret.val.integervar = &trigEnv->ermLocalVars.getYvar(initV);
|
||||
ret.val.integervar = &curTrigger->ermLocalVars.getYvar(initV);
|
||||
ret.type = IexpValStr::INTVAR;
|
||||
}
|
||||
else
|
||||
initV = trigEnv->ermLocalVars.getYvar(initV);
|
||||
initV = curTrigger->ermLocalVars.getYvar(initV);
|
||||
}
|
||||
else
|
||||
throw EIexpProblem("Trigger local variables cannot be used outside triggers!");
|
||||
@ -824,9 +988,9 @@ struct ERMExecEnvironment
|
||||
}
|
||||
else if(initV < 0)
|
||||
{
|
||||
if(funcVars)
|
||||
if(curFunc)
|
||||
{
|
||||
ret.val.stringvar = &funcVars->getString(initV);
|
||||
ret.val.stringvar = &curFunc->getString(initV);
|
||||
ret.type = IexpValStr::STRINGVAR;
|
||||
}
|
||||
else
|
||||
@ -849,7 +1013,6 @@ struct ERMExecEnvironment
|
||||
}
|
||||
return ret;
|
||||
}
|
||||
};
|
||||
|
||||
namespace IexpDisemboweler
|
||||
{
|
||||
@ -859,9 +1022,9 @@ namespace IexpDisemboweler
|
||||
struct LVL2IexpDisemboweler : boost::static_visitor<IexpValStr>
|
||||
{
|
||||
IexpDisemboweler::EDir dir;
|
||||
/*const*/ ERMExecEnvironment * env;
|
||||
/*const*/ ERMInterpreter * env;
|
||||
|
||||
LVL2IexpDisemboweler(/*const*/ ERMExecEnvironment * _env, IexpDisemboweler::EDir _dir)
|
||||
LVL2IexpDisemboweler(/*const*/ ERMInterpreter * _env, IexpDisemboweler::EDir _dir)
|
||||
: env(_env), dir(_dir) //writes value to given var
|
||||
{}
|
||||
|
||||
@ -893,9 +1056,9 @@ struct LVL2IexpDisemboweler : boost::static_visitor<IexpValStr>
|
||||
struct LVL1IexpDisemboweler : boost::static_visitor<IexpValStr>
|
||||
{
|
||||
IexpDisemboweler::EDir dir;
|
||||
/*const*/ ERMExecEnvironment * env;
|
||||
/*const*/ ERMInterpreter * env;
|
||||
|
||||
LVL1IexpDisemboweler(/*const*/ ERMExecEnvironment * _env, IexpDisemboweler::EDir _dir)
|
||||
LVL1IexpDisemboweler(/*const*/ ERMInterpreter * _env, IexpDisemboweler::EDir _dir)
|
||||
: env(_env), dir(_dir) //writes value to given var
|
||||
{}
|
||||
IexpValStr operator()(int const & constant) const
|
||||
@ -917,10 +1080,9 @@ struct LVL1IexpDisemboweler : boost::static_visitor<IexpValStr>
|
||||
}
|
||||
};
|
||||
|
||||
IexpValStr ERMInterpreter::getIexp( const ERM::TIexp & iexp, /*const*/ Trigger * trig /*= NULL*/, /*const*/ FunctionLocalVars * fun /*= NULL*/) const
|
||||
IexpValStr ERMInterpreter::getIexp( const ERM::TIexp & iexp ) const
|
||||
{
|
||||
ERMExecEnvironment env(ermGlobalEnv, trig, fun);
|
||||
return boost::apply_visitor(LVL1IexpDisemboweler(&env, IexpDisemboweler::GET), iexp);
|
||||
return boost::apply_visitor(LVL1IexpDisemboweler(const_cast<ERMInterpreter*>(this), IexpDisemboweler::GET), iexp);
|
||||
}
|
||||
|
||||
void ERMInterpreter::executeTriggerType( VERMInterpreter::TriggerType tt, bool pre, const std::map< int, std::vector<int> > & identifier )
|
||||
@ -936,6 +1098,7 @@ void ERMInterpreter::executeTriggerType( VERMInterpreter::TriggerType tt, bool p
|
||||
{
|
||||
if(tim.tryMatch(&triggersToTry[g]))
|
||||
{
|
||||
curTrigger = &triggersToTry[g];
|
||||
executeTrigger(triggersToTry[g]);
|
||||
}
|
||||
}
|
||||
@ -1100,7 +1263,7 @@ struct TriggerIdMatchHelper : boost::static_visitor<>
|
||||
|
||||
void operator()(TIexp const& iexp) const
|
||||
{
|
||||
IexpValStr val = interpreter->getIexp(iexp, trig);
|
||||
IexpValStr val = interpreter->getIexp(iexp);
|
||||
switch(val.type)
|
||||
{
|
||||
case IexpValStr::INT:
|
||||
|
||||
@ -103,7 +103,7 @@ namespace VERMInterpreter
|
||||
TVOption retrieveValue(const std::string & name) const;
|
||||
|
||||
enum EUnbindMode{LOCAL, RECURSIVE_UNTIL_HIT, FULLY_RECURSIVE};
|
||||
///returns true if symbols was really unbound
|
||||
///returns true if symbol was really unbound
|
||||
bool unbind(const std::string & name, EUnbindMode mode);
|
||||
};
|
||||
|
||||
@ -320,6 +320,9 @@ class ERMInterpreter
|
||||
friend class TriggerIdMatchHelper;
|
||||
friend class TriggerIdentifierMatch;
|
||||
friend class ConditionDisemboweler;
|
||||
friend struct LVL2IexpDisemboweler;
|
||||
friend struct VR_SPerformer;
|
||||
friend struct ERMExpDispatch;
|
||||
|
||||
std::vector<VERMInterpreter::FileInfo*> files;
|
||||
std::vector< VERMInterpreter::FileInfo* > fileInfos;
|
||||
@ -332,10 +335,12 @@ class ERMInterpreter
|
||||
VERMInterpreter::ERMEnvironment * ermGlobalEnv;
|
||||
typedef std::map<VERMInterpreter::TriggerType, std::vector<VERMInterpreter::Trigger> > TtriggerListType;
|
||||
TtriggerListType triggers, postTriggers;
|
||||
VERMInterpreter::Trigger * curTrigger;
|
||||
VERMInterpreter::FunctionLocalVars * curFunc;
|
||||
|
||||
|
||||
template<typename T> void setIexp(const ERM::TIexp & iexp, const T & val, VERMInterpreter::Trigger * trig = NULL);
|
||||
IexpValStr getIexp(const ERM::TIexp & iexp, /*const*/ VERMInterpreter::Trigger * trig = NULL, /*const*/ VERMInterpreter::FunctionLocalVars * fun = NULL) const;
|
||||
IexpValStr getIexp(const ERM::TIexp & iexp) const;
|
||||
|
||||
static const std::string triggerSymbol, postTriggerSymbol, defunSymbol;
|
||||
|
||||
@ -344,6 +349,7 @@ class ERMInterpreter
|
||||
static bool isCMDATrigger(const ERM::Tcommand & cmd);
|
||||
static bool isATrigger(const ERM::TLine & line);
|
||||
static ERM::EVOtions getExpType(const ERM::TVOption & opt);
|
||||
IexpValStr getVar(std::string toFollow, boost::optional<int> initVal);
|
||||
public:
|
||||
void executeTriggerType(VERMInterpreter::TriggerType tt, bool pre, const std::map< int, std::vector<int> > & identifier); //use this to run triggers
|
||||
void init(); //sets up environment etc.
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user