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;