-------------------------------------------------------------------------------
-- NAME (body)                  : uxstrings-hash.adb
-- AUTHOR                       : Pascal Pignard
-- ROLE                         : UXString hash implementation.
-- NOTES                        : Ada 202x
--
-- COPYRIGHT                    : (c) Pascal Pignard 2023
-- LICENCE                      : CeCILL-C (https://cecill.info)
-- CONTACT                      : http://blady.pagesperso-orange.fr
-------------------------------------------------------------------------------

with Ada.Strings.Wide_Wide_Hash;

function UXStrings.Hash (Key : UXString) return Ada.Containers.Hash_Type is
begin
   return Ada.Strings.Wide_Wide_Hash (To_Unicode (Key));
end UXStrings.Hash;