DEFINITION MODULE SigTerm;
(*------------------------------------------------------------------------*)
(* Module stellt einen einfachen "Signalhandler" zur Verfuegung. *)
(* Module provides a simple "signal handler". *)
(*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
(* $Id$ *)
PROCEDURE InitTermProg(str : ARRAY OF CHAR);
(*----------------------------------------------------------------*)
(* Installiert einen Signalhandler, der Signal 15 (SIGTERM) ab-. *)
(* faengt. Diesem wird in str die Ausgebemeldung fuer TermProg *)
(* uebergeben. *)
(* *)
(* Installs a signal handler to catch signal 15 (SIGTERM). The *)
(* signal handle is give the message it provides via the argument *)
(* "str". *)
(*----------------------------------------------------------------*)
PROCEDURE TermProg() : BOOLEAN;
(*----------------------------------------------------------------*)
(* Wird Singnal 15 an den rufenden Prozess gesandt, wird TRUE *)
(* zurueckgegeben, ansonsten auf FALSE. *)
(* Zusaetzlich wird bei Erhalt des Signals 15 (SIGTERM) die *)
(* Zeichenkette str, die durch die Prozedur InitTermProg ueber- *)
(* geben wurde, auf dem Fehlerkanal ausgegeben. *)
(* *)
(* If signal 15 is sent to the calling process this procedure *)
(* returns true, false otherwise. In the event that signal 15 *)
(* (SIGTERM) had been received TermProg writes the message "str" *)
(* provided by the initialization routine InitTermProg to the *)
(* standard error channel. *)
(*----------------------------------------------------------------*)
END SigTerm.