From: Mathias Dolidon <matd@netcourrier.com>
Subject: Re: exiting a bloc
Date: Sat, 02 Sep 2000 22:39:41 +0200
Date: 2000-09-02T20:39:09+00:00 [thread overview]
Message-ID: <39B1658D.F39B20CF@netcourrier.com> (raw)
In-Reply-To: 39B15EA8.88DB58AB@netcourrier.com
> Hello. I am very new to Ada and trying to write some small programs. In
> a program which searches primary numbers, I would like to exit a bloc
> which is embedded in a loop, without exiting the loop :
>
> for...loop
> intruction;
>
> bloc :
> begin
> -- the matter is here
> end bloc;
> end loop;
>
> I looked everywhere about how to do this but I found nothing. Is this
> possible ? Thank you very much !
> Mathias
I did it like this : instead of declaring a bloc, I declare a loop
withan exit instruction before "end loop", but it doesn't seem very
clean to me ! Isn't there a more "official" way ?
--
http://www.mdlabs.fr.st
next prev parent reply other threads:[~2000-09-02 20:39 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-09-02 20:10 exiting a bloc Mathias Dolidon
2000-09-02 20:39 ` Mathias Dolidon [this message]
2000-09-02 21:01 ` Robert Dewar
2000-09-02 22:34 ` Mathias Dolidon
[not found] ` <86snrhkfep.fsf@acm.org>
2000-09-03 15:46 ` Mathias Dolidon
2000-09-05 17:52 ` Richard Riehle
2000-09-06 2:06 ` Ted Dennison
2000-09-06 9:41 ` Philip Anderson
2000-09-06 13:54 ` Ted Dennison
2000-09-06 21:10 ` Robert Dewar
2000-09-06 23:33 ` Ed Falis
2000-09-07 0:39 ` Robert Dewar
[not found] ` <39B72109.89DFAB8C@telepath.com>
2000-09-07 12:34 ` Ed Falis
2000-09-08 10:33 ` Ian Caldwell
2000-09-08 13:35 ` r_c_chapman
2000-09-09 1:52 ` Robert Dewar
2000-09-12 11:30 ` Ian Caldwell
2000-09-12 20:13 ` Robert Dewar
2000-09-09 1:48 ` Robert Dewar
2000-09-12 11:24 ` Ian Caldwell
2000-09-12 20:14 ` Robert Dewar
2000-09-13 8:34 ` Philip Anderson
2000-09-13 11:02 ` Peter Amey
2000-09-06 7:00 ` Ray Blaak
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox