von sighup auf sigusr1 und sigterm umgestellt

1 files changed, 21 insertions, 5 deletions

diff --git a/Physikunit.pas b/Physikunit.pas
index e761834..2b5fa7b 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -168,7 +168,7 @@ type
     fortschrittsAnzeige:       boolean;
     ausgabeDateien:            array of tAusgabeDatei;
   public
-    gotSighup:                 boolean;
+    gotSighup,gotSigterm:      boolean;
     constructor create(inName: string; protokollant: tProtokollant; name: string);
     destructor destroy; override;
     function iteriereSchritt(start: double; var zeitPhysik,zeitDatei: double): boolean; // noch nicht zu Ende?
@@ -1160,6 +1160,11 @@ var i,j:     longint;
     pro:     tProtokollant;
     {$ENDIF}
 begin
+  if simulation.gotSigterm then begin
+    abbrechen;
+    simulation.gotSigterm:=false;
+  end;
+
   if abbruch then begin
     t:=t+dT;
     exit;
@@ -1254,6 +1259,7 @@ begin
   breite:=10.0;
   fortschrittsAnzeige:=false;
   gotSighup:=false;
+  gotSigterm:=false;
   dP:=-1;
   pMax:=3;
 
@@ -1536,7 +1542,8 @@ begin
     {$ifdef Linux}               // Linux specific
     na^.sa_Restorer := Nil;
     {$endif}
-    if (fPSigaction(SIGHUP, na, nil) <> 0) then begin
+    if (fPSigaction(SIGUSR1, na, nil) <> 0) or
+       (fPSigaction(SIGTERM, na, nil) <> 0) then begin
       pro.schreibe('Fehler: '+inttostr(fpgeterrno)+'.');
       raise exception.create('Fehler in tSimulation.create!');
     end;
@@ -1615,9 +1622,18 @@ procedure SignalCapture(signal : longint); cdecl;
 var
   i: longint;
 begin
-  if signal=SIGHUP then
-    for i:=0 to length(simulationen)-1 do
-      simulationen[i].gotSighup:=true;
+  case signal of
+    SIGUSR1: begin
+      writeln('received SIGUSR1!');
+      for i:=0 to length(simulationen)-1 do
+        simulationen[i].gotSighup:=true;
+    end;
+    SIGTERM: begin
+      writeln('received SIGTERM!');
+      for i:=0 to length(simulationen)-1 do
+        simulationen[i].gotSigterm:=true;
+    end;
+  end{of case};
 end;
 
 initialization