-- sigdemo2.adb - shows how a signal handler works.
--              - press Ctrl-\ to kill.

with
  Ada.Text_IO,
  POSIX.Signals;

use
  Ada.Text_IO,
  POSIX.Signals;

procedure Signal_Demonstration_2 is
begin
   Ignore_Signal (Signal_Interrupt);
   Put_Line ("you can't stop me!");
   loop
      delay 1.0;
      Put_Line ("haha");
   end loop;
end Signal_Demonstration_2;