TEAM-ADA Archives

Team Ada: Ada Programming Language Advocacy

TEAM-ADA@LISTSERV.ACM.ORG

Options: Use Forum View

Use Monospaced Font
Show Text Part by Default
Condense Mail Headers

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

Print Reply
Sender:
"Team Ada: Ada Advocacy Issues (83 & 95)" <[log in to unmask]>
Subject:
From:
Date:
Fri, 20 Mar 1998 12:00:00 -0700
MIME-version:
1.0
Content-type:
TEXT/PLAIN; CHARSET=ISO-8859-1
Reply-To:
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