aaa_0.2.6_dfd6339b/src/aaa-ansi.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
with Ada.Strings.UTF_Encoding;

package AAA.ANSI with Preelaborate is

   package UTF renames Ada.Strings.UTF_Encoding;

   function Count_Extra (Text : Wide_Wide_String) return Natural;
   --  Compute how many characters in Text are actually ANSI control sequences

   function Length (Text : Wide_Wide_String) return Natural;
   --  Compute the real length of Text, without embedded ANSI control sequences

   function Length (Text : UTF.UTF_String) return Natural;
   --  Same, but expects latin-1 or UTF-8 encoding

end AAA.ANSI;