Re: problem with ada.interrupts

[Robert A Duff <bobduff@shell01.TheWorld.com>]

evangeli@cnam.fr writes:

> hello
> in my program i want to catch the interruption by the user, e.g.,
> ctrl+c.
> i looked at the RM and it seems that package ada.interrupts is designed
> to do this kind of things.

Yes.  I have done this successfully, on both GNAT and Sofcheck's
AdaMagic compilers, on WindowsXP, Linux, and Solaris.

Technically, it is wrong to do I/O in a protected procedure, but some
compilers allow it.  You should instead have the handler procedure
trigger an entry barrier, and have some task wait for the entry.

You need a pragma on the SIGINT_Handler.  Pragma Attach_Handler is
simpler; Interrupt_Handler is more powerful.  See the RM for details.

On GNAT, you need pragma Unreserve_All_Interrupts on some systems.
See the GNAT docs.

> it seems that even this little program does not terminate :
> 
> with
>   Ada.Interrupts;
> 
> procedure Test is
> begin
>    null:
> end;
> 
> i suspect a problem in the elaboration of package Ada.Interrupts, but i
> have no idea of how to deal with it.
> any idea?

No.  You could try stepping through that code in gdb.

- Bob