gnoga_2.1.2_5f127c56/deps/uxstrings/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 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;