-------------------------------------------------------------- {{{1 ----------
--: Copyright © 2024 … 2024 Martin Krischik «krischik@users.sourceforge.net»
-------------------------------------------------------------------------------
--: This library is free software; you can redistribute it and/or modify it
--: under the terms of the GNU Library General Public License as published by
--: the Free Software Foundation; either version 2 of the License, or (at your
--: option) any later version.
--:
--: This library is distributed in the hope that it will be useful, but
--: WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
--: or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
--: License for more details.
--:
--: You should have received a copy of the GNU Library General Public License
--: along with this library; if not, write to the Free Software Foundation,
--: Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
--------------------------------------------------------------- }}}1 ----------

pragma License (Modified_Gpl);
pragma Ada_2022;

with Ada.Strings.UTF_Encoding.Wide_Wide_Strings;

---
--   converts strings from the command line to Wide_Wide_Characters.
--
--   Note: On modern unix systems the command line strings are UTF-8 encoded
--   and on modern windows system the strings are UTF-16 (little endian)encoded.
--
function AdaCL.To_Wide_Wide_String (Unicode : in Ada.Strings.UTF_Encoding.UTF_String) return Wide_Wide_String is
   use Ada.Strings.UTF_Encoding.Wide_Wide_Strings;
   use Ada.Strings.UTF_Encoding;
begin
   return Decode (Unicode, UTF_8);
end AdaCL.To_Wide_Wide_String;

---------------------------------------------------------------- {{{ ----------
--: vim: set textwidth=0 nowrap tabstop=8 shiftwidth=3 softtabstop=3 expandtab :
--: vim: set filetype=ada fileencoding=utf-8 fileformat=unix foldmethod=expr :
--: vim: set spell spelllang=en_gb