Re: How do I end the program?

["Martin Dowie" <martin.dowie@nospam.baesystems.com>]

> > In the main procedure of your program, before entering glutMainLoop save
off
> > the task ID of the environment task.
> >
> >   env_task_id := Ada.Task_Identification.Current_Task;
> >
> > When you want to kill the program call:
> >
> >   Ada.Task_Identification.Abort_Task( env_task_id );
> >
> > When you kill the environment task, all subordinate tasks are terminated
as
> > well.
> >
> > With GNAT 3.14p, I get the message:
> >   Execution terminated by abort of environment task
> >
> > On the console window of my test program.
>
> Well, i'm not sure that would work. What if one of the tasks is
> a library level task, i.e. declared and elaborated in a library
> level package? I'm not sure that there is a "parent" task in that
> case.

This was covered circa nov/dec 2000 and the above solution was
proposed with the slight twist of "env_task_id" being a package
level variable assigned during elaboration. The rationale then
was that all elaboration occurs within the scope of the environment
task.

Can't remember who put forward the example - I have a feeling they
had a french sounding name though! :-)