Re: terminate applications

["Jeffrey Creem" <jeff@thecreems.com>]

This is not something I usually have to worry about because almost
everything I do is embedded stuff
but when I am doing little non embedded programs and I want to kill the
program (especially when
making  use of embedded packages that have no real facilities for shutting
down their tasks) I usuallly
just terminate the environment task. The package below provides a procedure
that when called from
anywhere (either main task or any other task) will terminate the environment
task and shut down the
program.

The real answer is that when writing well behaved multi-tasking programs,
one needs to provide nice shutdown
facilities for all the tasks....but this terminator approach works for the
quick and dirty case.


package Arnold is

procedure Terminator;

end Arnold;



with Ada.Task_Identification;

pragma Elaborate_All(Ada.Task_Identification);





package body Arnold is

Environment_Task_Id : Ada.Task_Identification.Task_Id :=
Ada.Task_Identification.Current_Task;

procedure Terminator is

begin

Ada.Task_Identification.Abort_Task(Environment_Task_Id);

end Terminator;

end Arnold;