Operator to translate string templates.

Author: godunko

kernel/src_info/gps-intl.adb

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                               GNAT Studio                                --
 --                                                                          --
---                     Copyright (C) 2001-2024, AdaCore                     --
+--                     Copyright (C) 2001-2025, 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 Free Soft- --
@@ -18,6 +18,8 @@
 --  ??? Should use a callback to avoid direct dependency on GtkAda.Intl
 --  with Gtkada.Intl; use Gtkada.Intl;
 
+with VSS.Strings.Conversions;
+
 package body GPS.Intl is
 
    ---------
@@ -42,4 +44,17 @@ package body GPS.Intl is
       return Msg;
    end "-";
 
+   ---------
+   -- "-" --
+   ---------
+
+   function "-"
+     (Msg : VSS.Strings.Virtual_String)
+      return VSS.Strings.Templates.Virtual_String_Template is
+   begin
+      return
+        VSS.Strings.Templates.To_Virtual_String_Template
+          (VSS.Strings.Conversions.To_Wide_Wide_String (Msg));
+   end "-";
+
 end GPS.Intl;

kernel/src_info/gps-intl.ads

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                               GNAT Studio                                --
 --                                                                          --
---                     Copyright (C) 2001-2024, AdaCore                     --
+--                     Copyright (C) 2001-2025, 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 Free Soft- --
@@ -15,7 +15,7 @@
 -- of the license.                                                          --
 ------------------------------------------------------------------------------
 
-with VSS.Strings;
+with VSS.Strings.Templates;
 
 package GPS.Intl is
 
@@ -24,6 +24,9 @@ package GPS.Intl is
 
    function "-"
      (Msg : VSS.Strings.Virtual_String) return VSS.Strings.Virtual_String;
+   function "-"
+     (Msg : VSS.Strings.Virtual_String)
+      return VSS.Strings.Templates.Virtual_String_Template;
    --  Convenient shortcut to the Gettext function.
 
 end GPS.Intl;