Merge branch 'mku/changing_warning_message' into 'master'

Replacing warning message by info in the output when gnatpp is executed Closes #126 See merge request eng/ide/libadalang-tools!242
AdaCore · Sep 19, 2024 · afab009 · afab009
2 parents a698738 + d1f6b7a
commit afab009
Show file tree

Hide file tree

Showing 91 changed files with 386 additions and 386 deletions.
diff --git a/src/pp-main.adb b/src/pp-main.adb
@@ -45,9 +45,9 @@ begin
    --  Deprecation message to advertise about GNATformat
    Utils.Err_Out.Put
      ("\n\1\n",
-      "WARNING: GNATpp will be baselined soon. Please switch "
-      & "to GNATformat, the new Ada code formatter, for future use.");
-   Utils.Err_Out.Put ("-------\n\n");
+      "Info: AdaCore provides a new formatter GNATformat, currently in beta. "
+      & "This will supersede GNATpp when leaving the beta program.");
+   Utils.Err_Out.Put ("-----\n\n");
 
    --  Override trace settings by parsing the config file
    GNATCOLL.Traces.Parse_Config_File;

diff --git a/testsuite/tests/metric/RB16-011/test.out b/testsuite/tests/metric/RB16-011/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Foo (I : in out Integer) is
 begin

diff --git a/testsuite/tests/pp/CS0037228/test.out b/testsuite/tests/pp/CS0037228/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package body Foo is
 

diff --git a/testsuite/tests/pp/CS0038689/comments_switch_overwrite/test.out b/testsuite/tests/pp/CS0038689/comments_switch_overwrite/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Test is
    -- Documentation

diff --git a/testsuite/tests/pp/CS0038689/ignore_cmd_gpr/test.out b/testsuite/tests/pp/CS0038689/ignore_cmd_gpr/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 Units remaining: 4     
 package Test_1 is

diff --git a/testsuite/tests/pp/CS0039262/test.out b/testsuite/tests/pp/CS0039262/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 
 package test is

diff --git a/testsuite/tests/pp/G905-011/test.out b/testsuite/tests/pp/G905-011/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
 procedure Gnatpp_Array_Formatting is
@@ -26,8 +26,8 @@ begin
    null;
 end Gnatpp_Array_Formatting;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 with Ada.Text_IO;
 procedure Gnatpp_Exdentation is
@@ -53,8 +53,8 @@ begin
    end if;
 end Gnatpp_Exdentation;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Junk is
 begin

diff --git a/testsuite/tests/pp/G913-019/test.out b/testsuite/tests/pp/G913-019/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure TEST is
    procedure PROCEDURE_NAME

diff --git a/testsuite/tests/pp/MB21-028/test.out b/testsuite/tests/pp/MB21-028/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure P is
    pragma Warnings (Off);
@@ -9,8 +9,8 @@ begin
    null;
 end P;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure P is
    pragma Warnings (Off);
@@ -21,8 +21,8 @@ begin
    null;
 end P;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package body Q is
 

diff --git a/testsuite/tests/pp/N218-043/test.out b/testsuite/tests/pp/N218-043/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Directions is
 

diff --git a/testsuite/tests/pp/N219-016/test.out b/testsuite/tests/pp/N219-016/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Records is
 
@@ -24,8 +24,8 @@ package Records is
 
 end Records;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Records is
 

diff --git a/testsuite/tests/pp/N312-029/test.out b/testsuite/tests/pp/N312-029/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Sample_Formatting is
 
@@ -39,8 +39,8 @@ begin
 
 end Sample_Formatting;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Sample_Formatting is
 

diff --git a/testsuite/tests/pp/N428-004/test.out b/testsuite/tests/pp/N428-004/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Ors is
 begin

diff --git a/testsuite/tests/pp/N812-011/test.out b/testsuite/tests/pp/N812-011/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package P with
   Pure
@@ -17,8 +17,8 @@ is
 
 end P;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Q is
 

diff --git a/testsuite/tests/pp/N827-012/test.out b/testsuite/tests/pp/N827-012/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 with Ada.Characters.Latin_1;
 

diff --git a/testsuite/tests/pp/O723-016/test.out b/testsuite/tests/pp/O723-016/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 with Toto, Titi;
 

diff --git a/testsuite/tests/pp/OA07-042/test.out b/testsuite/tests/pp/OA07-042/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Align_Test is
    Index       : Integer;

diff --git a/testsuite/tests/pp/P318-034/test.out b/testsuite/tests/pp/P318-034/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 -- Testing pretty printing of enums with inline documentation
 procedure test_main is

diff --git a/testsuite/tests/pp/P408-012/test.out b/testsuite/tests/pp/P408-012/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Pretty is
 
@@ -51,8 +51,8 @@ begin
 
 end Pretty;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Pretty is
 

diff --git a/testsuite/tests/pp/P523-009/test.out b/testsuite/tests/pp/P523-009/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 pragma Ada_95;
 pragma Warnings (Off);

diff --git a/testsuite/tests/pp/P817-005/test.out b/testsuite/tests/pp/P817-005/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Example_With_Comments is
 
@@ -22,8 +22,8 @@ package Example_With_Comments is
 
 end Example_With_Comments;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Example_With_Comments is -- end of line
 

diff --git a/testsuite/tests/pp/Q724-015/test.out b/testsuite/tests/pp/Q724-015/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Csc_Channel.Version_Handling is
    type T_Version_Handling is limited interface;
@@ -13,8 +13,8 @@ package Csc_Channel.Version_Handling is
       P2   : out Lang.Primitifs.T_Uint) is abstract;
 end Csc_Channel.Version_Handling;
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Csc_Channel.Version_Handling is
    type T_Version_Handling is limited interface;

diff --git a/testsuite/tests/pp/QA14-008/test.out b/testsuite/tests/pp/QA14-008/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Left_Hand_Side is
 begin

diff --git a/testsuite/tests/pp/QA17-028/test.out b/testsuite/tests/pp/QA17-028/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 WITH ibusiness_unit.synthetic_target_manager;
 

diff --git a/testsuite/tests/pp/QC06-022/P718-006/test.out b/testsuite/tests/pp/QC06-022/P718-006/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Gnatpp_Playground
 is

diff --git a/testsuite/tests/pp/QC06-022/P718-008/test.out b/testsuite/tests/pp/QC06-022/P718-008/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Compact_Array_Type_Declaration
 is

diff --git a/testsuite/tests/pp/QC06-022/P718-010/test.out b/testsuite/tests/pp/QC06-022/P718-010/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Preserve_Existing_Continuation_Lines
 is

diff --git a/testsuite/tests/pp/QC06-022/P718-011/test.out b/testsuite/tests/pp/QC06-022/P718-011/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Named_Aggregate_Affectation
 is

diff --git a/testsuite/tests/pp/QC06-022/P718-012/test.out b/testsuite/tests/pp/QC06-022/P718-012/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Split_Lines_Before_Vertical_Bars
 is

diff --git a/testsuite/tests/pp/QC06-022/P718-013/test.out b/testsuite/tests/pp/QC06-022/P718-013/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 procedure Blank_Lines_Insertion
 is

diff --git a/testsuite/tests/pp/R713-024/test.out b/testsuite/tests/pp/R713-024/test.out
@@ -1,6 +1,6 @@
 
-WARNING: GNATpp will be baselined soon. Please switch to GNATformat, the new Ada code formatter, for future use.
--------
+Info: AdaCore provides a new formatter GNATformat, currently in beta. This will supersede GNATpp when leaving the beta program.
+-----
 
 package Spark_Mode with
   SPARK_Mode