public override LuaValue Execute(LuaTable enviroment, out bool isBreak)
{
LuaValue condition = Condition.Evaluate(enviroment);
if (condition.GetBooleanValue() == true)
{
return(ThenBlock.Execute(enviroment, out isBreak));
}
else
{
foreach (ElseifBlock elseifBlock in ElseifBlocks)
{
condition = elseifBlock.Condition.Evaluate(enviroment);
if (condition.GetBooleanValue() == true)
{
return(elseifBlock.ThenBlock.Execute(enviroment, out isBreak));
}
}
if (ElseBlock != null)
{
return(ElseBlock.Execute(enviroment, out isBreak));
}
}
isBreak = false;
return(null);
}
public override LuaValue Execute(LuaTable enviroment, out bool isBreak)
{
while (true)
{
var returnValue = Body.Execute(enviroment, out isBreak);
if (returnValue != null || isBreak == true)
{
isBreak = false;
return(returnValue);
}
LuaValue condition = Condition.Evaluate(enviroment);
if (condition.GetBooleanValue() == true)
{
break;
}
}
return(null);
}
private LuaValue InfixBinaryOperation(Term LeftOperand, string Operator, Term RightOperand, LuaTable enviroment)
{
var isBooleanOperator = string.Equals(Operator, "and") || string.Equals(Operator, "or");
LuaValue leftValue = LeftOperand.Evaluate(enviroment);
LuaValue rightValue = isBooleanOperator ? null : RightOperand.Evaluate(enviroment); //[PixelCrushers] Short-circuit Boolean operators.
switch (Operator)
{
case "+":
var left = leftValue as LuaNumber;
var right = rightValue as LuaNumber;
if (left != null && right != null)
{
return(new LuaNumber(left.Number + right.Number));
}
else
{
LuaFunction func = GetMetaFunction("__add", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case "-":
left = leftValue as LuaNumber;
right = rightValue as LuaNumber;
if (left != null && right != null)
{
return(new LuaNumber(left.Number - right.Number));
}
else
{
LuaFunction func = GetMetaFunction("__sub", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case "*":
left = leftValue as LuaNumber;
right = rightValue as LuaNumber;
if (left != null && right != null)
{
return(new LuaNumber(left.Number * right.Number));
}
else
{
LuaFunction func = GetMetaFunction("__mul", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case "/":
left = leftValue as LuaNumber;
right = rightValue as LuaNumber;
if (left != null && right != null)
{
return(new LuaNumber(left.Number / right.Number));
}
else
{
LuaFunction func = GetMetaFunction("__div", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case "%":
left = leftValue as LuaNumber;
right = rightValue as LuaNumber;
if (left != null && right != null)
{
return(new LuaNumber(left.Number % right.Number));
}
else
{
LuaFunction func = GetMetaFunction("__mod", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case "^":
left = leftValue as LuaNumber;
right = rightValue as LuaNumber;
if (left != null && right != null)
{
return(new LuaNumber(Math.Pow(left.Number, right.Number)));
}
else
{
LuaFunction func = GetMetaFunction("__pow", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case "==":
return(LuaBoolean.From(leftValue.Equals(rightValue)));
case "~=":
return(LuaBoolean.From(leftValue.Equals(rightValue) == false));
case "<":
int?compare = Compare(leftValue, rightValue);
if (compare != null)
{
return(LuaBoolean.From(compare < 0));
}
else
{
LuaFunction func = GetMetaFunction("__lt", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case ">":
compare = Compare(leftValue, rightValue);
if (compare != null)
{
return(LuaBoolean.From(compare > 0));
}
else
{
LuaFunction func = GetMetaFunction("__gt", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case "<=":
compare = Compare(leftValue, rightValue);
if (compare != null)
{
return(LuaBoolean.From(compare <= 0));
}
else
{
LuaFunction func = GetMetaFunction("__le", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case ">=":
compare = Compare(leftValue, rightValue);
if (compare != null)
{
return(LuaBoolean.From(compare >= 0));
}
else
{
LuaFunction func = GetMetaFunction("__ge", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case "..":
if ((leftValue is LuaString || leftValue is LuaNumber) &&
(rightValue is LuaString || rightValue is LuaNumber))
{
return(new LuaString(string.Concat(leftValue, rightValue)));
}
else
{
LuaFunction func = GetMetaFunction("__concat", leftValue, rightValue);
if (func != null)
{
return(func.Invoke(new LuaValue[] { leftValue, rightValue }));
}
}
break;
case "and":
bool leftBool = leftValue.GetBooleanValue();
if (leftBool == false)
{
return(leftValue);
}
else
{
return(RightOperand.Evaluate(enviroment));
}
case "or":
leftBool = leftValue.GetBooleanValue();
if (leftBool == true)
{
return(leftValue);
}
else
{
return(RightOperand.Evaluate(enviroment));
}
}
return(null);
}
