Langkit_Support.Text: add To_UTF8 and From_UTF8

TN: RA02-064

Author: pmderodat

langkit/support/langkit_support-text.adb

@@ -181,4 +181,24 @@ package body Langkit_Support.Text is
       return Text_Result;
    end Decode;
 
+   -------------
+   -- To_UTF8 --
+   -------------
+
+   function To_UTF8
+     (Text : Text_Type) return Ada.Strings.UTF_Encoding.UTF_8_String is
+   begin
+      return Encode (Text, "UTF-8");
+   end To_UTF8;
+
+   ---------------
+   -- From_UTF8 --
+   ---------------
+
+   function From_UTF8
+     (S : Ada.Strings.UTF_Encoding.UTF_8_String) return Text_Type is
+   begin
+      return Decode (S, "UTF-8");
+   end From_UTF8;
+
 end Langkit_Support.Text;

langkit/support/langkit_support-text.ads

@@ -21,6 +21,7 @@
 -- <http://www.gnu.org/licenses/>.                                          --
 ------------------------------------------------------------------------------
 
+with Ada.Strings.UTF_Encoding;
 with Ada.Strings.Wide_Wide_Unbounded;
 with Ada.Unchecked_Deallocation;
 
@@ -68,6 +69,14 @@ package Langkit_Support.Text is
    function Decode (S : String; Charset : String) return Text_Type;
    --  Likewise, but convert a string to text
 
+   function To_UTF8
+     (Text : Text_Type) return Ada.Strings.UTF_Encoding.UTF_8_String;
+   --  Encode the given text into an UTF-8 string
+
+   function From_UTF8
+     (S : Ada.Strings.UTF_Encoding.UTF_8_String) return Text_Type;
+   --  Decode the given UTF-8 string into text
+
    type Text_Access is access all Text_Type;
    type Text_Cst_Access is access constant Text_Type;