18 lines
383 B
Plaintext
18 lines
383 B
Plaintext
|
package body signals is
|
||
|
|
protected body Sigint_Handler is
|
||
|
|
|
||
|
|
procedure selector(s: Selector_Access) is
|
||
|
|
begin
|
||
|
|
sel := s;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Handle is
|
||
|
|
begin
|
||
|
|
Call_Count := Call_Count + 1;
|
||
|
|
i Put_Line("SIGINT handled");
|
||
|
|
Gnat.Sockets.Abort_Selector(sel.all);
|
||
|
|
|
||
|
|
END Handle;
|
||
|
|
end Sigint_Handler;
|
||
|
|
end signals;
|