|
a/SigTerm.def |
|
b/SigTerm.def |
|
... |
|
... |
14 |
|
14 |
|
15 |
(*----------------------------------------------------------------*)
|
15 |
(*----------------------------------------------------------------*)
|
16 |
(* Installiert einen Signalhandler, der Signal 15 (SIGTERM) ab-. *)
|
16 |
(* Installiert einen Signalhandler, der Signal 15 (SIGTERM) ab-. *)
|
17 |
(* faengt. Diesem wird in str die Ausgebemeldung fuer TermProg *)
|
17 |
(* faengt. Diesem wird in str die Ausgebemeldung fuer TermProg *)
|
18 |
(* uebergeben. *)
|
18 |
(* uebergeben. *)
|
|
|
19 |
(* *)
|
|
|
20 |
(* Installs a signal handler to catch signal 15 (SIGTERM). The *)
|
|
|
21 |
(* signal handle is give the message it provides via the argument *)
|
|
|
22 |
(* "str". *)
|
19 |
(*----------------------------------------------------------------*)
|
23 |
(*----------------------------------------------------------------*)
|
20 |
|
24 |
|
21 |
PROCEDURE TermProg() : BOOLEAN;
|
25 |
PROCEDURE TermProg() : BOOLEAN;
|
22 |
|
26 |
|
23 |
(*----------------------------------------------------------------*)
|
27 |
(*----------------------------------------------------------------*)
|
24 |
(* Wird Singnal 15 an den rufenden Prozess gesandt, wird TRUE *)
|
28 |
(* Wird Singnal 15 an den rufenden Prozess gesandt, wird TRUE *)
|
25 |
(* zurueckgegeben, ansonsten auf FALSE. *)
|
29 |
(* zurueckgegeben, ansonsten auf FALSE. *)
|
26 |
(* Zusaetzlich wird bei Erhalt des Signals 15 (SIGTERM) die *)
|
30 |
(* Zusaetzlich wird bei Erhalt des Signals 15 (SIGTERM) die *)
|
27 |
(* Zeichenkette str, die durch die Prozedur InitTermProg ueber- *)
|
31 |
(* Zeichenkette str, die durch die Prozedur InitTermProg ueber- *)
|
28 |
(* geben wurde, auf dem Fehlerkanal ausgegeben. *)
|
32 |
(* geben wurde, auf dem Fehlerkanal ausgegeben. *)
|
|
|
33 |
(* *)
|
|
|
34 |
(* If signal 15 is sent to the calling process this procedure *)
|
|
|
35 |
(* returns true, false otherwise. In the event that signal 15 *)
|
|
|
36 |
(* (SIGTERM) had been received TermProg writes the message "str" *)
|
|
|
37 |
(* provided by the initialization routine InitTermProg to the *)
|
|
|
38 |
(* standard error channel. *)
|
29 |
(*----------------------------------------------------------------*)
|
39 |
(*----------------------------------------------------------------*)
|
30 |
|
40 |
|
31 |
END SigTerm.
|
41 |
END SigTerm.
|