-------------------------------------------------------------------------------
-- NAME (body) : uxstrings-hash_case_insensitive.adb
-- AUTHOR : Pascal Pignard
-- ROLE : UXString case insensitive hash implementation.
-- NOTES : Ada 202x
--
-- COPYRIGHT : (c) Pascal Pignard 2021
-- LICENCE : CeCILL V2.1 (https://www.cecill.info)
-- CONTACT : http://blady.pagesperso-orange.fr
-------------------------------------------------------------------------------
with Ada.Strings.Hash_Case_Insensitive;
function UXStrings.Hash_Case_Insensitive (Key : UXString) return Ada.Containers.Hash_Type is
begin
return Ada.Strings.Hash_Case_Insensitive (String (Key.Chars.all));
end UXStrings.Hash_Case_Insensitive;