[Adabot-devel] Señales

[alfonso_acosta_mail]

buenas:

Para ver como va lo de las señales te valdra con este ejemplo
una vez compilado signals ejecuta kill -USR1 en otro terminal.

Saludos

Fons

with Ada.Text_IO, Sighand, Ada.Interrupts.Names;
use  Ada.Text_IO, Sighand, Ada.Interrupts, Ada.Interrupts.Names;

procedure Signals is
begin

   loop
      delay 1.0;
   end loop;

end Signals;







with Ada.Interrupts.Names;
use Ada.Interrupts.Names;

package SigHand is

   protected SignalHandler is

      procedure HandleSIGUSR1;
      pragma Attach_Handler( HandleSIGUSR1, SIGUSR1 );

   end SignalHandler;

end SigHand;

with Ada.Text_IO;
use Ada.Text_IO;
package body SigHand is


protected body SignalHandler is

  procedure HandleSIGUSR1 is

  begin

         Put_Line ("Signal Received");

  end HandleSIGUSR1;

  end SignalHandler;

end SigHand;