Merge branch 'topic/log' into 'master'

Use `window/logMessage` to send ALS log file path.

See merge request eng/ide/ada_language_server!1398

Author: reznikmm

source/ada/lsp-ada_handlers.adb

@@ -3379,6 +3379,7 @@ package body LSP.Ada_Handlers is
          LSP.File_Monitors.File_Monitor_Access);
 
       Response : LSP.Structures.InitializeResult;
+      Log_Info : LSP.Structures.LogMessageParams;
       Token_Types     : LSP.Structures.Virtual_String_Vector;
       Token_Motifiers : LSP.Structures.Virtual_String_Vector;
    begin
@@ -3402,6 +3403,11 @@ package body LSP.Ada_Handlers is
       end if;
 
       Self.Sender.On_Initialize_Response (Id, Response);
+
+      Log_Info.a_type := LSP.Enumerations.Log;
+      Log_Info.message.Append ("Log directory is ");
+      Log_Info.message.Append (Self.Tracer.Location);
+      Self.Sender.On_LogMessage_Notification (Log_Info);
    end On_Initialize_Request;
 
    ---------------------------------

source/ada/lsp-gnatcoll_tracers.adb

@@ -39,6 +39,17 @@ package body LSP.GNATCOLL_Tracers is
       Self.Out_Trace := Out_Trace;
    end Initialize;
 
+   --------------
+   -- Location --
+   --------------
+
+   overriding function Location
+     (Self : Tracer) return VSS.Strings.Virtual_String is
+   begin
+      return VSS.Strings.Conversions.To_Virtual_String
+        (Self.Server_Trace.Get_Stream_File.Display_Full_Name);
+   end Location;
+
    -----------
    -- Trace --
    -----------

source/ada/lsp-gnatcoll_tracers.ads

@@ -63,6 +63,9 @@ package LSP.GNATCOLL_Tracers is
      (Self : in out Tracer;
       Text : VSS.Stream_Element_Vectors.Stream_Element_Vector);
 
+   overriding function Location
+     (Self : Tracer) return VSS.Strings.Virtual_String;
+
 private
 
    type Tracer is limited new LSP.Tracers.Tracer with record

source/server/lsp-tracers.ads

@@ -61,4 +61,8 @@ package LSP.Tracers is
       Text : VSS.Stream_Element_Vectors.Stream_Element_Vector) is abstract;
    --  Append raw data as text to output trace file
 
+   function Location (Self : Tracer) return VSS.Strings.Virtual_String
+     is abstract;
+   --  Return information about trace location on the filesystem.
+
 end LSP.Tracers;