UB30-006 Use partial gnatpp by default

Set ALS.PARTIAL_GNATPP Trace to On by default which sets
documentRangeFormattingProvider to True by default.
Update range formatting test bsseline.

Author: joaopsazevedo

source/ada/lsp-ada_handlers.adb

@@ -119,7 +119,7 @@ package body LSP.Ada_Handlers is
 
    Partial_GNATpp : constant GNATCOLL.Traces.Trace_Handle :=
      GNATCOLL.Traces.Create ("ALS.PARTIAL_GNATPP",
-                             GNATCOLL.Traces.Off);
+                             GNATCOLL.Traces.On);
    --  Use partial formatting mode of gnatpp if On. Otherwise, use diff
    --  algorithm.
 
@@ -953,20 +953,18 @@ package body LSP.Ada_Handlers is
       Response.result.capabilities.documentFormattingProvider :=
         (Is_Set => True,
          Value  => (workDoneProgress => LSP.Types.None));
+      if Partial_GNATpp.Is_Active then
+         Response.result.capabilities.documentRangeFormattingProvider :=
+           (Is_Set => True,
+            Value  => (workDoneProgress => LSP.Types.None));
+      end if;
       Response.result.capabilities.callHierarchyProvider :=
         (Is_Set => True,
          Value  => (Is_Boolean => False, Options => <>));
       Response.result.capabilities.documentHighlightProvider :=
         (Is_Set => True,
          Value => (workDoneProgress => LSP.Types.None));
 
-      --  lalpp does not support range formatting for now
-      --  do not set the option
-      --
-      --  Response.result.capabilities.documentRangeFormattingProvider :=
-      --    (Is_Set => True,
-      --     Value  => (workDoneProgress => LSP.Types.None));
-
       Response.result.capabilities.workspaceSymbolProvider :=
         (Is_Set => True,
          Value  => (workDoneProgress => LSP.Types.None));

testsuite/ada_lsp/T527-019.range_formatting/test.json

@@ -134,15 +134,15 @@
                   {
                      "range": {
                         "start": {
-                           "line": 2,
+                           "line": 0,
                            "character": 0
                         },
                         "end": {
-                           "line": 7,
-                           "character": 0
+                           "line": 8,
+                           "character": 9
                         }
                      },
-                     "newText": "   X : Integer := (1 + 2 + 3);\nbegin\n   --  Insert code here.\n"
+                     "newText": "procedure Main is\n   --  comment\n   X : Integer := (1 + 2 + 3);\nbegin\n   --  Insert code here.\n   null;\nend Main;"
                   }
                ]
             }
@@ -269,15 +269,15 @@
                   {
                      "range": {
                         "start": {
-                           "line": 4,
+                           "line": 0,
                            "character": 0
                         },
                         "end": {
-                           "line": 5,
-                           "character": 0
+                           "line": 6,
+                           "character": 9
                         }
                      },
-                     "newText": "   --  Insert code here.\n"
+                     "newText": "procedure Main is\n   --  comment\n   X : Integer := (1 + 2 + 3);\nbegin\n   --  Insert code here.\n   null;\nend Main;"
                   }
                ]
             }