Re: problem with ada.interrupts

[Thierry Pirot <thierrypirot@skynet.be>]

> with
>   Ada.Interrupts,
>   Ada.Interrupts.Names,
>   Ada.Text_Io;
> 
> procedure Test is
> 
>    protected Interruption_Handler is
>       procedure SIGINT_Handler;
>    end Interruption_Handler;
>    protected body Interruption_Handler is
>       procedure SIGINT_Handler is
>       begin
>          Ada.Text_Io.Put_Line("interruption");
>       end;
>    end Interruption_Handler;
> 
> begin
> 
> Ada.Interrupts.Attach_Handler(Interruption_Handler.SIGINT_Handler'Access,
>                                  Ada.Interrupts.Names.SIGINT);
>    Ada.Text_Io.Put_Line("ok");
>    delay 5.0;
> end;
> 
> 
> this compiles fine, but when i launch it, nothing happens (not even the
> put_line("ok")).
> it seems that even this little program does not terminate :
> 
> with
>   Ada.Interrupts;
> 
> procedure Test is
> begin
>    null:
> end;

(My two cents) 
How did you launch it ?  Maybe you forgot "test" is an internal shell command. 
What about 
./test
which test
help test
-- 
   Take it Easy          Don't worry            Be Happy

                           Thierry

�������o�o��������o�o��������o�o��������o�o��������o�o�������