Re: Ada and (SIGTERM?)

["Tomek Wałkuski" <tomek.walkuski@gmail.com>]

> protected type Interrupt_Handler is
>    procedure Handler;
>    pragma Attach_Handler (Handler, 15); -- is it correct for SIGTERM?
>
>    function Quit return Boolean;
> private
>    Q : Boolean := False;
> end Interrupt_Handler;
>
> protected body Interrupt_Handler is
>    procedure Handler is
>    begin
>       Q := True;
>    end Handler;
>
>    function Quit return Boolean is
>    begin
>       return Q;
>    end Quit;
> end Interrupt_Handler;
>
> Then... somewhere Interrupt_Handler is declared and loop looks like:
>
> while not Quit loop
>    Do_Something;
> end loop;
>
I cannot stop task if Do_Something is Accept_Socket from GNAT.Sockets.

There is a listener which waits for client connections and then
delegates jobs to the worker tasks. I want to stop all tasks and
finalize all objects when SIGTERM is fired.