Merge branch 'topic/restart_server' into 'master'

Add a Kill_Process procedure to LSP clients

See merge request eng/ide/ada_language_server!1465

Author: AnthonyLeonardoGracio

source/client/lsp-raw_clients.adb

@@ -139,6 +139,15 @@ package body LSP.Raw_Clients is
       return Self.Server.Identifier;
    end Server_PID;
 
+   ------------------
+   -- Kill_Process --
+   ------------------
+
+   procedure Kill_Process (Self : in out Raw_Client'Class) is
+   begin
+      Self.Server.Kill_Process;
+   end Kill_Process;
+
    -------------------
    -- Set_Arguments --
    -------------------

source/client/lsp-raw_clients.ads

@@ -112,11 +112,17 @@ package LSP.Raw_Clients is
 
    function Can_Send_Message (Self : Raw_Client'Class) return Boolean;
    --  Return True when server's process is running and send queue is empty,
-   --  thus send operation can start immidiately.
+   --  thus send operation can start immediately.
 
    function Server_PID (Self : Raw_Client'Class) return String;
    --  Return server process id (pid) if the server has been started.
 
+   procedure Kill_Process (Self : in out Raw_Client'Class);
+   --  Kill current server process. Process will exit immediately.
+   --
+   --  On Windows, TerminateProcess() is called, and on POSIX, the SIGKILL
+   --  signal is sent.
+
 private
    type Listener (Client : access Raw_Client'Class) is limited
      new Spawn.Processes.Process_Listener with null record;