Merge branch 'topic/als.1719.format_jobs' into 'master'

Add jobs for rangeFormatting and onTypeFormatting

Closes #1719

See merge request eng/ide/ada_language_server!2132

Author: AdrienBoulanger

source/ada/lsp-ada_contexts.adb

@@ -958,16 +958,17 @@ package body LSP.Ada_Contexts is
    -----------------------------
 
    function Project_Attribute_Value
-     (Self         : Context;
-      Attribute    : GPR2.Q_Attribute_Id;
-      Index        : String := "";
-      Default      : String := "") return String is
+     (Self      : Context;
+      Attribute : GPR2.Q_Attribute_Id;
+      Index     : String := "";
+      Default   : String := "") return String is
    begin
-      return Project_Attribute_Value
-        (View         => Self.Tree.Root_Project,
-         Attribute    => Attribute,
-         Index        => Index,
-         Default      => Default);
+      return
+        Project_Attribute_Value
+          (View      => Self.Tree.Root_Project,
+           Attribute => Attribute,
+           Index     => Index,
+           Default   => Default);
    end Project_Attribute_Value;
 
 end LSP.Ada_Contexts;

source/ada/lsp-ada_did_change_document.adb

@@ -15,15 +15,22 @@
 -- of the license.                                                          --
 ------------------------------------------------------------------------------
 
+with GNATCOLL.Traces; use GNATCOLL.Traces;
 with GNATCOLL.VFS;
 
+with Libadalang;
+with Libadalang.Analysis;
 with LSP.Ada_Documents;
 with LSP.Client_Message_Receivers;
 with LSP.Structures;
 with LSP.Server_Notifications.DidChange;
 
 package body LSP.Ada_Did_Change_Document is
 
+   Did_Change_Indexing : constant Trace_Handle :=
+     Create ("ALS.DID_CHANGE.INDEXING", On);
+   --  Should be disabled when running the testsuite
+
    type Did_Change_Job
      (Parent : not null access constant Ada_Did_Change_Handler)
    is limited new LSP.Server_Jobs.Server_Job with record
@@ -101,9 +108,22 @@ package body LSP.Ada_Did_Change_Document is
            (Message.Params.textDocument.version, Changes);
       end if;
 
+      --  Clear the cacha of symbols now
+      LSP.Ada_Documents.Reset_Symbol_Cache (Self.Document.all);
+      --  Manually reparse the file in all context now so the AU is up-to-date
+      --  for the following requests.
       for Context of Self.Parent.Context.Contexts_For_File (File) loop
-         Context.Index_Document (Self.Document.all);
+         declare
+            Dummy : Libadalang.Analysis.Analysis_Unit;
+         begin
+            Dummy := Context.Get_AU (File, Reparse => True);
+         end;
       end loop;
+      --  The indexing here will do PLE and fill the database of Defining_Name
+      --  in a separate job at the lowest priority
+      if Did_Change_Indexing.Is_Active then
+         Self.Parent.Context.Enqueue_Indexing (File);
+      end if;
 
       --  Emit diagnostics
       Self.Parent.Context.Publish_Diagnostics (Self.Document);

source/ada/lsp-ada_driver.adb

@@ -50,6 +50,7 @@ with LSP.Ada_Did_Change_Document;
 with LSP.Ada_Document_Symbol;
 with LSP.Ada_Execute_Command;
 with LSP.Ada_Folding_Range;
+with LSP.Ada_Formatter;
 with LSP.Ada_Handlers.Executables_Commands;
 with LSP.Ada_Handlers.GPR_Dependencies_Commands;
 with LSP.Ada_Handlers.Mains_Commands;
@@ -122,7 +123,9 @@ with LSP.Server_Requests.FoldingRange;
 with LSP.Server_Requests.Hover;
 with LSP.Server_Requests.Initialize;
 with LSP.Server_Requests.InlineValue;
+with LSP.Server_Requests.OnTypeFormatting;
 with LSP.Server_Requests.PrepareTypeHierarchy;
+with LSP.Server_Requests.RangeFormatting;
 with LSP.Server_Requests.References;
 with LSP.Server_Requests.SelectionRange;
 with LSP.Server_Requests.Subtypes;
@@ -310,6 +313,14 @@ procedure LSP.Ada_Driver is
    Ada_Hover_Handler      : aliased LSP.Ada_Hover.Ada_Hover_Handler
      (Ada_Handler'Unchecked_Access);
 
+   Ada_Range_Formatter_Handler :
+     aliased LSP.Ada_Formatter.Ada_Range_Formatter_Handler
+               (Ada_Handler'Unchecked_Access);
+
+   Ada_On_Type_Formatter_Handler :
+     aliased LSP.Ada_Formatter.Ada_On_Type_Formatter_Handler
+               (Ada_Handler'Unchecked_Access);
+
    Ada_Definition_Handler : aliased LSP.Ada_Definition.Ada_Definition_Handler
      (Ada_Handler'Unchecked_Access);
 
@@ -702,6 +713,14 @@ begin
            (LSP.Server_Requests.Hover.Request'Tag,
             Ada_Hover_Handler'Unchecked_Access);
 
+         Server.Register_Handler
+           (LSP.Server_Requests.RangeFormatting.Request'Tag,
+            Ada_Range_Formatter_Handler'Unchecked_Access);
+
+         Server.Register_Handler
+           (LSP.Server_Requests.OnTypeFormatting.Request'Tag,
+            Ada_On_Type_Formatter_Handler'Unchecked_Access);
+
          Server.Register_Handler
            (LSP.Server_Requests.Definition.Request'Tag,
             Ada_Definition_Handler'Unchecked_Access);