New Tip - ...catch kernel-signals in Kylix ? - sdcnewtip

New Tip - ...catch kernel-signals in Kylix ?

From: "SwissDelphiCenter.ch" <newsletter@xxxxxxxxxxxxxxxxxxxx>
To: sdcnewtip@xxxxxxxxxxxxx
Date: Thu, 7 Mar 2002 20:10:55 +0100
* SwissDelphiCenter new Tip newsletter
* www.swissdelphicenter.ch
*
* To unsubscribe send a mail to sdcnewtip-request@xxxxxxxxxxxxx with the
* subject unsubscribe


Hallo,

Folgender neuer Tip ist neu auf SwissDelphiCenter verfügbar:

Besuchen Sie die Programmier Tips unter 
http://www.swissdelphicenter.ch/de/tipsindex.php


Bewerten Sie diesen Tip nach Schwierigkeitsgrad, Nützlichkeit und Gesamthaft auf
http://www.swissdelphicenter.ch/de/showcode.php?id=1059



Autor:
Elias Zurschmiede <e.zurschmiede@xxxxxxxxxx>
http://www.delight.ch


-------------
...Kernel-Signale in Kylix abfangen ?
-------------
Kategorie: Kylix



program TestSignals;

{$APPTYPE CONSOLE}

uses
  Libc;

var
  bTerminate: Boolean;

procedure SignalProc(SigNum: Integer); cdecl;
begin
  case SigNum of 
    SIGQUIT: 
      begin
        WriteLn('signal SIGQUIT');
        bTerminate := true;
      end;
    SIGUSR1: WriteLn('signal SIGUSR1');
    else
      WriteLn('not handled signal');
  end;
  signal(SigNum, SignalProc); // catch the signal again
end;

begin
  bTerminate := false;

  signal(SIGQUIT, SignalProc); // catch the signal SIGQUIT to procedure 
SignalProc
  signal(SIGUSR1, SignalProc); // catch the signal SIGUSR1 to procedure 
SignalProc
  
  repeat 
    sleep(1);
  until bTerminate;
end.




Best Regards
SwissDelphiCenter Team
www.swissdelphicenter.ch
[automatisch generierte EMail]


----------------------------------------------------
ENGLISH NEWSLETTER
----------------------------------------------------

Hi,

This new tip is new available on SwissDelphiCenter.ch:

Visit the programming tips at http://www.swissdelphicenter.ch/en/tipsindex.php


Rate this tip after skill, useful and overall at
http://www.swissdelphicenter.ch/en/showcode.php?id=1059



Author:
Elias Zurschmiede <e.zurschmiede@xxxxxxxxxx>
http://www.delight.ch


-------------
...catch kernel-signals in Kylix ?
-------------
Category: Kylix



program TestSignals;

{$APPTYPE CONSOLE}

uses
  Libc;

var
  bTerminate: Boolean;

procedure SignalProc(SigNum: Integer); cdecl;
begin
  case SigNum of 
    SIGQUIT: 
      begin
        WriteLn('signal SIGQUIT');
        bTerminate := true;
      end;
    SIGUSR1: WriteLn('signal SIGUSR1');
    else
      WriteLn('not handled signal');
  end;
  signal(SigNum, SignalProc); // catch the signal again
end;

begin
  bTerminate := false;

  signal(SIGQUIT, SignalProc); // catch the signal SIGQUIT to procedure 
SignalProc
  signal(SIGUSR1, SignalProc); // catch the signal SIGUSR1 to procedure 
SignalProc
  
  repeat 
    sleep(1);
  until bTerminate;
end.



Best Regards
SwissDelphiCenter Team
www.swissdelphicenter.ch
[automatic generated EMail]
New Tip - ...catch kernel-signals in Kylix ?

Other related posts:
