feat: Linux signal handling

Author: gcarreno

src/paslogbot.lpi

@@ -5,6 +5,7 @@
     <General>
       <Flags>
         <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
         <MainUnitHasScaledStatement Value="False"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
@@ -14,6 +15,65 @@
     </General>
     <BuildModes>
       <Item Name="Default" Default="True"/>
+      <Item Name="Debug">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <Target>
+            <Filename Value="../bin/paslogbot"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <UnitOutputDirectory Value="../bin/lib/$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <Parsing>
+            <SyntaxOptions>
+              <IncludeAssertionCode Value="True"/>
+            </SyntaxOptions>
+          </Parsing>
+          <CodeGeneration>
+            <Checks>
+              <IOChecks Value="True"/>
+              <RangeChecks Value="True"/>
+              <OverflowChecks Value="True"/>
+              <StackChecks Value="True"/>
+            </Checks>
+            <VerifyObjMethodCallValidity Value="True"/>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <DebugInfoType Value="dsDwarf3"/>
+              <UseHeaptrc Value="True"/>
+              <TrashVariables Value="True"/>
+            </Debugging>
+          </Linking>
+        </CompilerOptions>
+      </Item>
+      <Item Name="Release">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <Target>
+            <Filename Value="../bin/paslogbot"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <UnitOutputDirectory Value="../bin/lib/$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <CodeGeneration>
+            <SmartLinkUnit Value="True"/>
+            <Optimizations>
+              <OptimizationLevel Value="3"/>
+            </Optimizations>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <GenerateDebugInfo Value="False"/>
+              <RunWithoutDebug Value="True"/>
+              <StripSymbols Value="True"/>
+            </Debugging>
+            <LinkSmart Value="True"/>
+          </Linking>
+        </CompilerOptions>
+      </Item>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
@@ -32,11 +92,11 @@
   <CompilerOptions>
     <Version Value="11"/>
     <Target>
-      <Filename Value="paslogbot"/>
+      <Filename Value="../bin/paslogbot"/>
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
-      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+      <UnitOutputDirectory Value="../bin/lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
   </CompilerOptions>
   <Debugging>

src/paslogbot.lpr

@@ -5,14 +5,14 @@
 uses
   {$IFDEF UNIX}
   cthreads,
+  BaseUnix,
   {$ENDIF}
   Classes, SysUtils, CustApp
   { you can add units after this };
 
 type
 
-  { TPasLogBot }
-
+{ TPasLogBot }
   TPasLogBot = class(TCustomApplication)
   protected
     procedure DoRun; override;
@@ -22,6 +22,65 @@   TPasLogBot = class(TCustomApplication)
     procedure WriteHelp; virtual;
   end;
 
+var
+  Application: TPasLogBot;
+
+{ Signal Handling }
+{$IFDEF UNIX}
+procedure SignalHandler(signal: longint; info: psiginfo; context: psigcontext); cdecl;
+begin
+  case signal of
+    SIGTERM, SIGINT:
+      begin
+        WriteLn('Received termination signal');
+        if Assigned(Application) then
+          Application.Terminate;
+      end;
+    SIGHUP:
+      begin
+        WriteLn('Received SIGHUP - could implement config reload here');
+        // Could implement configuration reload here
+      end;
+  end;
+end;
+
+procedure SetupSignalHandlers;
+var
+  act: SigActionRec;
+begin
+  FillChar(act, SizeOf(act), 0);
+  act.sa_handler := @SignalHandler;
+  act.sa_flags := 0;
+
+  // Set up signal handlers
+  fpSigAction(SIGTERM, @act, nil);
+  fpSigAction(SIGINT, @act, nil);
+  fpSigAction(SIGHUP, @act, nil);
+end;
+{$ENDIF}
+
+{$IFDEF WINDOWS}
+function ConsoleCtrlHandler(CtrlType: DWORD): BOOL; stdcall;
+begin
+  case CtrlType of
+    CTRL_C_EVENT, CTRL_BREAK_EVENT, CTRL_CLOSE_EVENT:
+      begin
+        WriteLn('Received termination signal');
+        if Assigned(Application) then
+          Application.Terminate;
+        Result := True;
+        Exit;
+      end;
+  end;
+  Result := False;
+end;
+
+procedure SetupSignalHandlers;
+begin
+  SetConsoleCtrlHandler(@ConsoleCtrlHandler, True);
+end;
+{$ENDIF}
+
 { TPasLogBot }
 
 procedure TPasLogBot.DoRun;
@@ -43,10 +102,12 @@ procedure TPasLogBot.DoRun;
     Exit;
   end;
 
-
-
+  while not Terminated do
+  begin
+    Sleep(50);
+  end;
   // stop program loop
-  Terminate;
+  //Terminate;
 end;
 
 constructor TPasLogBot.Create(TheOwner: TComponent);
@@ -66,8 +127,6 @@ procedure TPasLogBot.WriteHelp;
   writeln('Usage: ', ExeName, ' -h');
 end;
 
-var
-  Application: TPasLogBot;
 begin
   Application:=TPasLogBot.Create(nil);
   Application.Title:='Pascal Log Bot';