Re: How to implement a continue statement in Ada?

["Robert T. Sagris" <robs@physics.purdue.edu>]

Robert I. Eachus wrote:
> 
> In article <35EA8153.7BFC91E3@physics.purdue.edu> "Robert T. Sagris" <robs@physics.purdue.edu> writes:
> 
>  > I was wondering if there is a general way of implementing
>  > the behavior of C's continue statement in Ada.
> 
>    No, there are several techniques, but nothing which really covers
> everything.
> 
>  > If at all possible without using a goto statement.
> 
>    Well, that works in all cases, but certainly is not the best in all
> cases.
> 
>  > 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++;
>  >     }
> 
>        Ouch!  Assuming that "i" really is an iteration counter;
> 
>       for I in 0 .. 9 loop
>         if A(I) /= 0
>         then A(I) := X / A(I);
>         end if;
>       end loop;
> 
>        Seems like the natural translation, but I'm not sure that
> answers your question.
> --
> 
>                                         Robert I. Eachus
> 
> with Standard_Disclaimer;
> use  Standard_Disclaimer;
> function Message (Text: in Clever_Ideas) return Better_Ideas is...

It seems that people have mistaken my code example for the specific
instance were I needed a continue statement.

I only gave it so there was an example of a C use of the continue
statement. 
What I was asking; how would implement the code given, which realy is
just a general example, in Ada. Specifically so you could use it any any
loop were you needed to skip an iteration.

Thanks for the answers so far.

Robbi Sagris