From: adam@irvine.com (Adam Beneschan)
Subject: Re: stupid question: how can I finish a program?
Date: 13 Aug 2002 13:08:07 -0700
Date: 2002-08-13T20:08:07+00:00 [thread overview]
Message-ID: <b4682ab7.0208131208.335a7b0d@posting.google.com> (raw)
In-Reply-To: mailman.1029249602.10046.comp.lang.ada@ada.eu.org
"David C. Hoos" <david.c.hoos.sr@ada95.com> wrote in message news:<mailman.1029249602.10046.comp.lang.ada@ada.eu.org>...
> In the main program procedure, "return" will do it.
If you're not in the main program, a possibility is to define an
exception Fatal_Error_Detected or something like that in a library
package; then "raise Fatal_Error_Detected" can be used at points when
you want to exit the program. In the main program, add an exception
handler:
begin
...
exception
when Fatal_Error_Detected =>
null; -- OR you can add cleanup code if necessary
end Main_Program;
Also, if there's any other procedure in the program in which you want
to perform cleanup code before exiting, you can add an exception
handler to the procedure:
exception
when Fatal_Error_Detected =>
<cleanup code>
raise;
> > hi,
> > Is there a function which quit/exit/end a program? -> whitout using
> > the signals (like SIGINT ... etc).
> > Only a one-line function.
> > thanks
-- Adam
next prev parent reply other threads:[~2002-08-13 20:08 UTC|newest]
Thread overview: 61+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <c923f575.0208130627.479e0b3d@posting.google.com>
2002-08-13 14:37 ` stupid question: how can I finish a program? chris.danx
2002-08-13 23:53 ` Robert C. Leif
2002-08-14 2:07 ` Wes Groleau
2002-08-14 5:53 ` Robert C. Leif
2002-08-14 13:30 ` Wes Groleau
2002-08-14 13:56 ` Marin D. Condic
2002-08-17 15:58 ` Robert Dewar
2002-08-14 19:18 ` Simon Wright
2002-08-15 14:02 ` Wes Groleau
2002-08-15 1:47 ` Robert Dewar
2002-08-15 5:14 ` Michael Bode
2002-08-17 14:28 ` Alfred Hilscher
2002-08-15 5:17 ` tmoran
2002-08-15 18:41 ` Robert Dewar
2002-08-14 13:53 ` Marin D. Condic
2002-08-15 17:39 ` tmoran
2002-08-16 13:46 ` Marin D. Condic
2002-08-17 14:26 ` Warren W. Gay VE3WWG
2002-08-22 19:16 ` tmoran
2002-08-22 20:54 ` Marin D. Condic
2002-08-25 2:22 ` Robert Dewar
2002-08-26 15:59 ` Marin D. Condic
2002-08-27 21:59 ` Robert A Duff
2002-08-28 20:40 ` Dmitry A.Kazakov
2002-08-28 13:59 ` Robert A Duff
2002-08-28 16:55 ` Darren New
2002-08-28 18:36 ` Larry Kilgallen
2002-08-28 22:22 ` Robert A Duff
2002-08-28 22:30 ` Darren New
2002-08-28 23:16 ` Robert A Duff
2002-08-29 16:49 ` Warren W. Gay VE3WWG
2002-08-29 18:55 ` Larry Kilgallen
2002-08-29 19:17 ` Warren W. Gay VE3WWG
2002-08-30 8:09 ` Ole-Hjalmar Kristensen
2002-08-31 20:39 ` Warren W. Gay VE3WWG
2002-08-29 16:35 ` Dennis Lee Bieber
2002-08-29 22:48 ` Dmitry A.Kazakov
2002-08-29 15:18 ` Robert A Duff
2002-08-30 4:29 ` Dmitry A.Kazakov
2002-08-29 16:53 ` Warren W. Gay VE3WWG
2002-08-29 19:03 ` Robert C. Leif
2002-08-29 19:25 ` Warren W. Gay VE3WWG
2002-08-29 20:42 ` Larry Kilgallen
2002-08-29 20:22 ` Robert A Duff
2002-08-30 20:59 ` Simon Wright
2002-08-28 14:33 ` Marin D. Condic
2002-08-28 22:15 ` Larry Kilgallen
2002-08-29 15:30 ` Robert A Duff
2002-08-29 22:16 ` Dmitry A.Kazakov
2002-08-29 13:17 ` Marin D. Condic
2002-08-29 19:32 ` Robert A Duff
2002-08-31 2:40 ` Dmitry A.Kazakov
2002-08-31 0:10 ` Toshitaka Kumano
2002-09-02 21:02 ` Dmitry A.Kazakov
2002-08-29 16:59 ` Warren W. Gay VE3WWG
2002-08-29 18:26 ` Marin D. Condic
2002-08-13 14:38 ` David C. Hoos
2002-08-13 20:08 ` Adam Beneschan [this message]
2002-08-14 6:41 ` Emil Moholth
2002-08-14 14:00 ` Marin D. Condic
2002-08-14 7:37 ` Martin Dowie
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox