adabot-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Adabot-devel] Señales


From: alfonso_acosta_mail
Subject: [Adabot-devel] Señales
Date: Thu, 13 Feb 2003 20:43:22 +0100
User-agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2.1) Gecko/20021226 Debian/1.2.1-9

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;


reply via email to

[Prev in Thread] Current Thread [Next in Thread]