Rename 'Process_Rule_File' function to 'Process_Legacy_Rule_File'

Author: HugoGGuerrier

lkql_checker/src/gnatcheck-projects.adb

@@ -1080,7 +1080,7 @@ package body Gnatcheck.Projects is
       for O of Rule_Options loop
          case O.Kind is
             when File =>
-               Process_Rule_File (To_String (O.Value));
+               Process_Legacy_Rule_File (To_String (O.Value));
 
             when Legacy_Option =>
                Process_Legacy_Rule_Option
@@ -1094,7 +1094,8 @@ package body Gnatcheck.Projects is
    -- Add_Legacy_Rule_Option --
    ----------------------------
 
-   procedure Add_Legacy_Rule_Option (Opt : String; Prepend : Boolean := False) is
+   procedure Add_Legacy_Rule_Option (Opt : String; Prepend : Boolean := False)
+   is
       use Ada.Strings.Unbounded;
 
       Opt_Rec : constant Option_Record :=

lkql_checker/src/gnatcheck-rules-rule_table.adb

@@ -369,11 +369,11 @@ package body Gnatcheck.Rules.Rule_Table is
       return All_Rules.Contains (Rule) or else Is_Compiler_Rule (Rule);
    end Present;
 
-   -----------------------
-   -- Process_Rule_File --
-   -----------------------
+   ------------------------------
+   -- Process_Legacy_Rule_File --
+   ------------------------------
 
-   procedure Process_Rule_File (RF_Name : String) is
+   procedure Process_Legacy_Rule_File (RF_Name : String) is
       RF : File_Type;
 
       Rule_Start_Line : Natural := 1;
@@ -566,7 +566,8 @@ package body Gnatcheck.Rules.Rule_Table is
                            else
                               if Is_Regular_File (Rule_Buf (1 .. Rule_Len))
                               then
-                                 Process_Rule_File (Rule_Buf (1 .. Rule_Len));
+                                 Process_Legacy_Rule_File
+                                   (Rule_Buf (1 .. Rule_Len));
                               else
                                  Error
                                    ("can not locate rule file "
@@ -695,7 +696,7 @@ package body Gnatcheck.Rules.Rule_Table is
       end Set_File_Name;
 
    begin
-      --  Process_Rule_File
+      --  Process_Legacy_Rule_File
 
       if not Is_Regular_File (Rule_File_Name) then
          Error ("can not locate rule file " & Rule_File_Name);
@@ -757,7 +758,7 @@ package body Gnatcheck.Rules.Rule_Table is
                     new String'(Get_Rule_File_Name (Rule_Buf (1 .. Rule_Len)));
 
                   if Is_Regular_File (Include_RF_Name.all) then
-                     Process_Rule_File (Include_RF_Name.all);
+                     Process_Legacy_Rule_File (Include_RF_Name.all);
                   else
                      Error
                        ("can not locate rule file "
@@ -799,7 +800,7 @@ package body Gnatcheck.Rules.Rule_Table is
 
          --  Exception info will be generated in main driver
          raise;
-   end Process_Rule_File;
+   end Process_Legacy_Rule_File;
 
    ----------------------------
    -- Process_LKQL_Rule_File --

lkql_checker/src/gnatcheck-rules-rule_table.ads

@@ -49,7 +49,7 @@ package Gnatcheck.Rules.Rule_Table is
    --  Defined_At should be set to an empty string when processing the rule
    --  option from a command line, or to the short name of the rule file.
 
-   procedure Process_Rule_File (RF_Name : String);
+   procedure Process_Legacy_Rule_File (RF_Name : String);
    --  Processes a set of rule options stored in the rule configuration file.
    --  RF_Name is the name of this rule file.
    --