Use Ada 2022 @ short hand syntax.

Author: TurboGit

src/templates_parser-utils.adb

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                             Templates Parser                             --
 --                                                                          --
---                     Copyright (C) 2004-2014, AdaCore                     --
+--                     Copyright (C) 2004-2024, AdaCore                     --
 --                                                                          --
 --  This library is free software;  you can redistribute it and/or modify   --
 --  it under terms of the  GNU General Public License  as published by the  --
@@ -249,7 +249,8 @@ package body Templates_Parser.Utils is
          else
             Append (Result, Image (N.VS.all));
          end if;
-         N := N.Next;
+
+         N := @.Next;
       end loop;
 
       return "(" & To_String (Result) & ")";

xsrc/templates_parser-xml.adb

@@ -186,10 +186,10 @@ package body Templates_Parser.XML is
 
             else
                L := N - 1; -- Last character for the tag name
-               N := N + 4; -- First character after _DIM
+               N := @ + 4; -- First character after _DIM
 
                loop
-                  N := N + 1;
+                  N := @ + 1;
                   exit when Var (N) = '_' or else N = Var'Last;
 
                   if Var (N) not in '0' .. '9' then
@@ -288,8 +288,8 @@ package body Templates_Parser.XML is
                      Output_Tag (N.VS.all, Pos & Indices'[P]);
                   end if;
 
-                  P := P + 1;
-                  N := N.Next;
+                  P := @ + 1;
+                  N := @.Next;
                end loop;
             end Output_Tag;
 
@@ -467,7 +467,7 @@ package body Templates_Parser.XML is
          N := DOM.Core.Nodes.First_Child (Parent);
 
          while N /= null and then DOM.Core.Nodes.Node_Name (N) = "#text" loop
-            N := DOM.Core.Nodes.Next_Sibling (N);
+            N := DOM.Core.Nodes.Next_Sibling (@);
          end loop;
 
          return N;
@@ -495,7 +495,7 @@ package body Templates_Parser.XML is
          M : DOM.Core.Node := N;
       begin
          loop
-            M := DOM.Core.Nodes.Next_Sibling (M);
+            M := DOM.Core.Nodes.Next_Sibling (@);
             exit when M = null or else DOM.Core.Nodes.Node_Name (M) /= "#text";
          end loop;
 
@@ -616,7 +616,7 @@ package body Templates_Parser.XML is
                           and then Local_Name (Item (Atts, 0)) = "ind"
                         then
                            K   := Positive'Value (Node_Value (Item (Atts, 0)));
-                           Max := Natural'Max (Max, K);
+                           Max := Natural'Max (@, K);
 
                            Map.Insert
                              (Node_Value (Item (Atts, 0)),
@@ -638,7 +638,8 @@ package body Templates_Parser.XML is
                         Error (C, "Entity Label expected, found " & N_Name);
                      end if;
                   end;
-                  C := Next_Sibling (C);
+
+                  C := Next_Sibling (@);
                end loop;
 
                --  Now we have all labels indexed into the Map (key being the
@@ -712,7 +713,7 @@ package body Templates_Parser.XML is
                   end if;
                end;
 
-               C := Next_Sibling (C);
+               C := Next_Sibling (@);
             end loop;
 
             return Result;
@@ -791,7 +792,7 @@ package body Templates_Parser.XML is
                      end if;
                   end;
 
-                  C := Next_Sibling (C);
+                  C := Next_Sibling (@);
                end loop;
 
                if not Found then
@@ -887,7 +888,7 @@ package body Templates_Parser.XML is
                end if;
             end;
 
-            C := Next_Sibling (C);
+            C := Next_Sibling (@);
          end loop;
 
          if Name = Null_Unbounded_String then
@@ -925,7 +926,8 @@ package body Templates_Parser.XML is
                      "Entity Tag, Dim or Entry expected, found " & N_Name);
                end if;
             end;
-            C := Next_Sibling (C);
+
+            C := Next_Sibling (@);
          end loop;
 
          --  Now we have all entities in the Data map
@@ -963,7 +965,8 @@ package body Templates_Parser.XML is
                   Error (C, "Entity Tag or V expected, found " & N_Name);
                end if;
             end;
-            C := Next_Sibling (C);
+
+            C := Next_Sibling (@);
          end loop;
 
          Insert (Result, Assoc (To_String (Name), To_String (Value)));
@@ -1006,7 +1009,8 @@ package body Templates_Parser.XML is
                      "Entity Name or Description expected, found " & N_Name);
                end if;
             end;
-            C := Next_Sibling (C);
+
+            C := Next_Sibling (@);
          end loop;
       end Parse_Tag;
 
@@ -1036,7 +1040,7 @@ package body Templates_Parser.XML is
                end if;
             end;
 
-            C := Next_Sibling (C);
+            C := Next_Sibling (@);
          end loop;
 
          return T;