* most of VR:S receiver

lib/ERMInterpreter.cpp

@@ -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
+IexpValStr ERMInterpreter::getVar(std::string toFollow, boost::optional<int> initVal)
-{
-	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 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(const_cast<ERMInterpreter*>(this), IexpDisemboweler::GET), iexp);
-	return boost::apply_visitor(LVL1IexpDisemboweler(&env, 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:

lib/ERMInterpreter.h

@@ -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.