public void Visit(IterationStatementNode node)
{
ComparisonExpressionAstEvaluator compEvaluator = new ComparisonExpressionAstEvaluator();
try
{
while (compEvaluator.Visit(node.Conditioner))
{
Visit(node.Statement);
}
}
catch (TheLanguageErrorException e) { throw new TheLanguageErrorException("Iteration statement", e); }
}
public void Visit(MemberAssignmentStatementNode node)
{
ValueAstEvaluator valueEvaluator = new ValueAstEvaluator(sender);
Cell cell;
// Get cell
if (node.GridPoint != null)
{
cell = valueEvaluator.Visit(node.GridPoint);
}
else
{
cell = sender.GetCurrentCell();
}
// Evaluate expression or string
object result;
if (node.Value is ExpressionNode exprNode)
{
if (exprNode is ComparisonNode)
{
result = new ComparisonExpressionAstEvaluator().Visit(exprNode);
}
else
{
result = new MathExpressionAstEvaluator().Visit(exprNode);
}
}
else
{
result = ((StringValueNode)node.Value).Value;
}
// Retrieve state member for the next cell
Cell nextCell = sender.GetNextCell(cell.Pos);
MemberSymbol member = nextCell.State.RetrieveMember(node.MemberID.Label);
if (member != null)
{
try
{
// Set new value
switch (result)
{
case int i: member.SetValue(i); break;
case string s: member.SetValue(s); break;
default: throw new TheLanguageErrorException($"Cannot assign value of type \'{ result.GetType() }\' to a member");
}
}
catch (TheLanguageErrorException e)
{
throw new TheLanguageErrorException($"Member .{ member.Label }", e);
}
}
else
{
throw new TheLanguageErrorException($"Unknown member \'{ node.MemberID.Label }\'");
}
}
