TEAM-ADA Archives

Team Ada: Ada Programming Language Advocacy

TEAM-ADA@LISTSERV.ACM.ORG

Options: Use Classic View

Use Monospaced Font
Show Text Part by Default
Condense Mail Headers

Topic: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Sender: "Team Ada: Ada Advocacy Issues (83 & 95)" <[log in to unmask]>
Date: Fri, 20 Mar 1998 12:00:00 -0700
MIME-version: 1.0
Content-type: TEXT/PLAIN; CHARSET=ISO-8859-1
Parts/Attachments: TEXT/PLAIN (22 lines)
There is a way to simulate Continue without using any Goto:

   Any_Loop:
      loop
         Continue_Loop:
            loop
               -- this loop is not a real one.
               -- it is not eexecuted more than once at a time.
               ...
               -- Continue
               exit Continue_Loop;
               ...
               exit Continue_Loop;
            end loop Continue_Loop;
       end loop Any_Loop;

I agree it is rather ugly, but at least for those that are prohibited from
using Gotos, they can simulate Continue; and the efficiency should be quite
good.

-- Vincent

ATOM RSS1 RSS2