public override bool VisitStmtWhileBase([NotNull] GamaParser.StmtWhileBaseContext context)
{
var wlecontrol = Self.AddBlock("while.if");
var wleblock = Self.AddBlock("while.loop");
var wleend = Self.AddBlock("while.end");
CurrentBlock.PositionBuilderAtEnd(Builder);
Builder.BuildBr(wlecontrol.Block);
SetBlock(wlecontrol);
CurrentBlock.PositionBuilderAtEnd(Builder);
var expr = VisitExpression(context.expr());
if (expr == null)
{
return(false);
}
if (expr.Type != InstanceTypes.Bool)
{
NamespaceContext.Context.AddError(new ErrorTypeMismatch(context.expr()));
return(false);
}
Builder.BuildCondBr(expr.Value, wleblock.Block, wleend.Block);
SetBlock(wleblock);
Push();
{
Visit(context.block());
}
if (!wleblock.HasTerminator())
{
wleblock.PositionBuilderAtEnd(Builder);
Builder.BuildBr(wlecontrol.Block);
}
if (CurrentBlock != wleblock) /* Block nesting */
{
CurrentBlock.PositionBuilderAtEnd(Builder);
Builder.BuildBr(wlecontrol.Block);
}
Pop();
if (wleend != CurrentBlock)
{
if (!CurrentBlock.HasTerminator())
{
CurrentBlock.PositionBuilderAtEnd(Builder);
Builder.BuildBr(wleend.Block);
}
}
SetBlock(wleend);
return(true);
}
/// <summary>
/// Visit a parse tree produced by the <c>StmtWhileBase</c>
/// labeled alternative in <see cref="GamaParser.stmtWhile"/>.
/// <para>
/// The default implementation returns the result of calling <see cref="AbstractParseTreeVisitor{Result}.VisitChildren(IRuleNode)"/>
/// on <paramref name="context"/>.
/// </para>
/// </summary>
/// <param name="context">The parse tree.</param>
/// <return>The visitor result.</return>
public virtual Result VisitStmtWhileBase([NotNull] GamaParser.StmtWhileBaseContext context)
{
return(VisitChildren(context));
}
/// <summary>
/// Exit a parse tree produced by the <c>StmtWhileBase</c>
/// labeled alternative in <see cref="GamaParser.stmtWhile"/>.
/// <para>The default implementation does nothing.</para>
/// </summary>
/// <param name="context">The parse tree.</param>
public virtual void ExitStmtWhileBase([NotNull] GamaParser.StmtWhileBaseContext context)
{
}
