ada - 在 Ada 中立即开始循环的下一次迭代

Question

我想要一个无限循环，其中循环几乎贯穿整个程序，并且在任何时候，基于条件语句，我希望它退出循环的特定迭代并返回顶部并执行。

有没有办法做到这一点？

它不一定是一个无限循环；它可以是一个 for 循环。我只是想让它进入该循环的下一次迭代。

Answer 1

引发您在循环体中处理的异常:

procedure Main is
    Try_Again: exception;
begin
    while Keep_Going loop
        begin
            -- lots of stuff
            if Give_Up_On_This_Iteration then
                raise Try_Again;
            end if;
            -- lots more stuff
        exception
            when Try_Again =>
                null;
        end;
    end loop;
end Main;