Minor reformatting.

Author: TurboGit

src/templates_parser-filter.adb

@@ -476,18 +476,19 @@ package body Filter is
       use type Strings.Maps.Character_Set;
       package L1 renames Ada.Characters.Latin_1;
 
-      Result : String (S'Range);
-
-      Non_ASCII : constant String
-        := (L1.Space, L1.LC_E_Acute, L1.LC_E_Grave, L1.LC_E_Circumflex,
-            L1.LC_I_Circumflex, L1.LC_I_Diaeresis, L1.LC_A_Grave,
-            L1.LC_O_Circumflex, L1.LC_C_Cedilla);
+      Non_ASCII : constant String :=
+                    (L1.Space, L1.LC_E_Acute, L1.LC_E_Grave,
+                     L1.LC_E_Circumflex, L1.LC_I_Circumflex,
+                     L1.LC_I_Diaeresis, L1.LC_A_Grave,
+                     L1.LC_O_Circumflex, L1.LC_C_Cedilla);
 
       Clean_Set : constant Strings.Maps.Character_Set :=
                     Strings.Maps.Constants.Letter_Set
                       or Strings.Maps.Constants.Decimal_Digit_Set
                       or Strings.Maps.To_Set (Non_ASCII);
 
+      Result    : String (S'Range);
+
    begin
       Check_Null_Parameter (P);
 
@@ -1533,8 +1534,7 @@ package body Filter is
    function Replace
      (S : String;
       C : not null access Filter_Context;
-      P : Parameter_Data := No_Parameter) return String
-   is
+      P : Parameter_Data := No_Parameter) return String is
    begin
       return Replace_One_Or_All
         (S, P, C.Translations, C.I_Parameters, One => True);
@@ -1547,8 +1547,7 @@ package body Filter is
    function Replace_All
      (S : String;
       C : not null access Filter_Context;
-      P : Parameter_Data := No_Parameter) return String
-   is
+      P : Parameter_Data := No_Parameter) return String is
    begin
       return Replace_One_Or_All
         (S, P, C.Translations, C.I_Parameters, One => False);

templates_parser.gpr

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                             Templates Parser                             --
 --                                                                          --
---                      Copyright (C) 1999-2017, AdaCore                    --
+--                      Copyright (C) 1999-2022, 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     --
@@ -30,7 +30,7 @@ library project Templates_Parser is
       when others =>
          So_Ext := ".so";
    end case;
-   
+
    for Source_Dirs use ("src");
 
    for Object_Dir use TP_Shared.Build_Dir & "/obj";
@@ -39,7 +39,7 @@ library project Templates_Parser is
    for Library_Name use "templates_parser";
    for Library_Kind use TP_Shared.Library_Type;
    for Library_Version use "libtemplates_parser-" & TP_Shared.Version & So_Ext;
-   
+
    case TP_Shared.Library_Type is
       when "relocatable" =>
          --  Put options like --as-needed before options like -l.

tp_shared.gpr

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                             Templates Parser                             --
 --                                                                          --
---                      Copyright (C) 2008-2016, AdaCore                    --
+--                      Copyright (C) 2008-2022, 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     --