uxstrings_0.6.0_c9bcce5c/src/uxstrings-hash_case_insensitive.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
-------------------------------------------------------------------------------
-- NAME (body)                  : uxstrings-hash_case_insensitive.adb
-- AUTHOR                       : Pascal Pignard
-- ROLE                         : UXString case insensitive 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_Case_Insensitive (Key : UXString) return Ada.Containers.Hash_Type is
begin
   return Ada.Strings.Wide_Wide_Hash (To_Unicode (To_Lower (Key)));
end UXStrings.Hash_Case_Insensitive;