Merge branch 'topic/vadim/transformations' into 'master'

Use text transformers to convert case.

See merge request eng/ide/ada_language_server!1469

Author: godunko

source/ada/lsp-ada_configurations.adb

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                         Language Server Protocol                         --
 --                                                                          --
---                     Copyright (C) 2018-2023, AdaCore                     --
+--                     Copyright (C) 2018-2024, AdaCore                     --
 --                                                                          --
 -- This is free software;  you can redistribute it  and/or modify it  under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -25,16 +25,19 @@ with VSS.JSON.Pull_Readers.Simple;
 with VSS.JSON.Streams;
 with VSS.Strings.Conversions;
 with VSS.Text_Streams.File_Input;
+with VSS.Transformers.Casing;
 
 package body LSP.Ada_Configurations is
 
    Doc_Style_Values : constant VSS.String_Vectors.Virtual_String_Vector :=
      [for Item in GNATdoc.Comments.Options.Documentation_Style =>
-        VSS.Strings.To_Virtual_String (Item'Wide_Wide_Image).To_Lowercase];
+        VSS.Strings.To_Virtual_String (Item'Wide_Wide_Image).Transform
+          (VSS.Transformers.Casing.To_Lowercase)];
 
    Display_Method_Values : constant VSS.String_Vectors.Virtual_String_Vector :=
      [for Item in LSP.Enumerations.AlsDisplayMethodAncestryOnNavigationPolicy
-        => VSS.Strings.To_Virtual_String (Item'Wide_Wide_Image).To_Lowercase];
+        => VSS.Strings.To_Virtual_String (Item'Wide_Wide_Image).Transform
+          (VSS.Transformers.Casing.To_Lowercase)];
 
    function "+" (X : VSS.Strings.Virtual_String'Class) return String renames
      VSS.Strings.Conversions.To_UTF_8_String;

source/gpr/lsp-gpr_files.adb

@@ -1,8 +1,8 @@
 ------------------------------------------------------------------------------
 --                         Language Server Protocol                         --
 --                                                                          --
---                       Copyright (C) 2023, AdaCore                        --
--- procedyur                                                                         --
+--                     Copyright (C) 2023-2024, AdaCore                     --
+--                                                                          --
 -- This is free software;  you can redistribute it  and/or modify it  under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
 -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
@@ -28,6 +28,7 @@ with Gpr_Parser_Support.Text;
 
 with VSS.Strings.Conversions;
 with VSS.Strings.Formatters.Generic_Integers;
+with VSS.Transformers.Casing;
 
 pragma Warnings (Off, "* is an internal GNAT unit");
 with System.Soft_Links; use System.Soft_Links;
@@ -252,7 +253,7 @@ package body LSP.GPR_Files is
          Is_Others => False,
          Compare   => (if Case_Sensitive
                        then VS_Text & "@" & Convert.Image (At_Pos).Name
-                       else VSS.Strings.To_Lowercase
+                       else VSS.Transformers.Casing.To_Lowercase.Transform
                          (VS_Text & "@" & Convert.Image (At_Pos).Name)),
          At_Pos    => At_Pos);
    end Create;