Re: Terminate program in Ada95

["Marc A. Criley" <mcquad@earthlink.net>]

"Atle R�stad" wrote:
> 
> Hi
> 
> How can I do an unconditionaly terminate of my program in Ada95?

If you're using a Unix variant, you can interface to the "exit" function
and invoke that.  Or if you're using GNAT, you can call
GNAT.OS_Lib.OS_Exit.

Another approach is to abort the tasks (see RM 9.8) that can't be
terminated.

> 
> Why I want to do it? I have a program were some of the tasks are listning to
> messages received/or sending on a socket. I want to write a testprogram, and
> reuse the tasks that takes care of the sending/receiving of messages. But
> when my testprogram should end it will still have some tasks open for
> sending/receiving messages and it keeps waitng for those tasks to end (which
> they will not do). Since I'm not allowed to modify the tasks I'm reusing I
> want an command that terminates the whole program. (Like java.system.exit()
> in java).

That situation is somewhat odd. Code was written to monitor sockets, but
there was no provision made for terminating the monitoring??

Marc A. Criley
Senior Staff Engineer
Quadrus Corporation