lkql_checker: rename Print_Gnatcheck_Command_Line to Print_Command_Line

Author: thvnx

lkql_checker/src/lkql_checker-diagnoses.adb

@@ -147,11 +147,12 @@ package body Lkql_Checker.Diagnoses is
    --  provided by '--ignore=...' option - this list contains only the existing
    --  files that have been passed as tool argument sources.
 
-   procedure Print_Gnatcheck_Command_Line (XML : Boolean := False);
-   --  Prints the gnatcheck command line. In case if gnatcheck has been
-   --  called from the GNAT driver, prints the call to the GNAT driver, but not
-   --  the gnatcheck call generated by the GNAT driver. If XML is ON, prints
-   --  the output into XML output file, otherwise - in the text output file.
+   procedure Print_Command_Line (XML : Boolean := False);
+   --  Prints the command line used to run this Lkql_Checker instance. In case
+   --  it has been called from the GNAT driver, prints the call to the GNAT
+   --  driver, but not the call generated by the GNAT driver. If XML is ON,
+   --  prints the output into XML output file, otherwise in the text output
+   --  file.
 
    procedure Print_Out_Diagnoses;
    --  Duplicates diagnoses about non-exempted rule violations, exemption
@@ -1587,10 +1588,10 @@ package body Lkql_Checker.Diagnoses is
    end Print_File_List_File;
 
    ----------------------------------
-   -- Print_Gnatcheck_Command_Line --
+   -- Print_Command_Line --
    ----------------------------------
 
-   procedure Print_Gnatcheck_Command_Line (XML : Boolean := False) is
+   procedure Print_Command_Line (XML : Boolean := False) is
    begin
       if XML then
          XML_Report_No_EOL (Ada.Command_Line.Command_Name);
@@ -1607,7 +1608,7 @@ package body Lkql_Checker.Diagnoses is
 
          Report_EOL;
       end if;
-   end Print_Gnatcheck_Command_Line;
+   end Print_Command_Line;
 
    ----------------------------------
    -- Print_Ignored_File_List_File --
@@ -1800,7 +1801,7 @@ package body Lkql_Checker.Diagnoses is
          Report (Executable & " version : " & Version_String);
 
          Report_No_EOL ("command line      : ");
-         Print_Gnatcheck_Command_Line;
+         Print_Command_Line;
 
          Report_No_EOL ("runtime           : ");
          Print_Runtime;
@@ -1824,7 +1825,7 @@ package body Lkql_Checker.Diagnoses is
             Indent_Level => 1);
 
          XML_Report_No_EOL ("<command-line>", Indent_Level => 1);
-         Print_Gnatcheck_Command_Line (XML => True);
+         Print_Command_Line (XML => True);
          XML_Report ("</command-line>");
 
          XML_Report_No_EOL ("<runtime>", Indent_Level => 1);