Re: How to implement a continue statement in Ada?

[eachus@spectre.mitre.org (Robert I. Eachus)]

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...