SC12-007 Rename files according to naming scheme

Author: joaopsazevedo

source/ada/lsp-ada_contexts.adb

@@ -1051,4 +1051,18 @@ package body LSP.Ada_Contexts is
       return Ada.Strings.Unbounded.To_String (Self.Charset);
    end Charset;
 
+   -----------------------------
+   -- Project_Attribute_Value --
+   -----------------------------
+
+   function Project_Attribute_Value
+     (Self         : Context;
+      Attribute    : Attribute_Pkg_String;
+      Index        : String := "";
+      Default      : String := "";
+      Use_Extended : Boolean := False) return String
+   is (if Self.Tree = null then Default
+       else Root_Project (Self.Tree.all).
+              Attribute_Value (Attribute, Index, Default,  Use_Extended));
+
 end LSP.Ada_Contexts;

source/ada/lsp-ada_contexts.ads

@@ -286,6 +286,24 @@ package LSP.Ada_Contexts is
    function Charset (Self : Context) return String;
    --  Return the charset for this context
 
+   function Project_Attribute_Value
+     (Self         : Context;
+      Attribute    : GNATCOLL.Projects.Attribute_Pkg_String;
+      Index        : String := "";
+      Default      : String := "";
+      Use_Extended : Boolean := False) return String;
+   --  Returns the value for Self's project Attribute.
+   --  Default is returned if the attribute wasn't set by the user and
+   --  has no default value.
+   --  The corresponding attribute would have been set in the project as:
+   --      for Attribute use "value";
+   --  or
+   --      for Attribute (Index) use "value";
+   --
+   --  If Use_Extended is True and the attribute is not defined in Project
+   --  itself, then the attribute is looked up in the project extended by
+   --  Project (if any).
+
 private
 
    type Context (Trace : GNATCOLL.Traces.Trace_Handle) is tagged limited record

source/ada/lsp-ada_handlers.adb

@@ -3906,11 +3906,27 @@ package body LSP.Ada_Handlers is
       ---------------------
 
       procedure Process_Context (C : Context_Access) is
+         use GNATCOLL.Projects;
+         use Laltools.Refactor.Safe_Rename;
+
          Node       : constant Ada_Node := C.Get_Node_At (Document, Position);
-         Name_Node  : constant Name := Laltools.Common.Get_Node_As_Name (Node);
+         Name_Node  : constant Libadalang.Analysis.Name :=
+           Laltools.Common.Get_Node_As_Name (Node);
          Definition : constant Defining_Name :=
            Laltools.Common.Resolve_Name_Precisely (Name_Node);
 
+         function Attribute_Value_Provider_Callback
+           (Attribute : GNATCOLL.Projects.Attribute_Pkg_String;
+            Index : String := "";
+            Default : String := "";
+            Use_Extended : Boolean := False)
+            return String
+          is (C.Project_Attribute_Value
+                (Attribute, Index, Default, Use_Extended));
+
+         Attribute_Value_Provider : constant Attribute_Value_Provider_Access :=
+           Attribute_Value_Provider_Callback'Unrestricted_Access;
+
          function Analysis_Units return Analysis_Unit_Array is
            (C.Analysis_Units);
          --  Callback needed to provide the analysis units to the safe rename
@@ -4145,11 +4161,12 @@ package body LSP.Ada_Handlers is
          end if;
 
          Safe_Renamer := Laltools.Refactor.Safe_Rename.Create_Safe_Renamer
-           (Definition => Definition,
-            New_Name   =>
+           (Definition               => Definition,
+            New_Name                 =>
               Libadalang.Text.To_Unbounded_Text
                 (VSS.Strings.Conversions.To_Wide_Wide_String (Value.newName)),
-            Algorithm  => Algorithm);
+            Algorithm                => Algorithm,
+            Attribute_Value_Provider => Attribute_Value_Provider);
 
          Context_Edits := Safe_Renamer.Refactor (Analysis_Units'Access);