Re: How to implement a continue statement in Ada?

[dewarr@my-dejanews.com]

In article <35EA816A.E11FEA85@physics.purdue.edu>,
  "Robert T. Sagris" <robs@physics.purdue.edu> wrote:
> I was wondering if there is a general way of implementing
> the behavior of C's continue statement in Ada.
>
> If at all possible without using a goto statement.
>
> Basically what I am asking:
>
> Is there a way to skip the current iteration of a loop
> but continue with the normal progression of the loop.
>
> In C, I could write:
>
>    i = 0;
>    while (i < 10) {
>
>       if (a[i] == 0) {
>          i++;
>          continue;
>       }
>
>       a[i] = x / a[i];
>       i++;
>    }
>
> Thanks for any information you can give me.
>
> Robbi Sagris
>

The only general way of implementing a continue is to use a goto.
Use a stylized approach like

  This_Loop : loop
    ...
    if ... then
       goto Continue_This_Loop;
    end if;
    ...
    ...
  <<Continue_This_Loop>> null;
  end loop This_Loop;

This works fine, unless you have some inexplicable allergy to
typing G-O-T-O :-)

See the archives for a recent discussion of the use of gotos
for this purpose.

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp   Create Your Own Free Member Forum