------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
-- --
|
-- --
|
-- GNAT LIBRARY COMPONENTS --
|
-- GNAT LIBRARY COMPONENTS --
|
-- --
|
-- --
|
-- ADA.STRINGS.WIDE_WIDE_BOUNDED.WIDE_WIDE_HASH --
|
-- ADA.STRINGS.WIDE_WIDE_BOUNDED.WIDE_WIDE_HASH --
|
-- --
|
-- --
|
-- S p e c --
|
-- S p e c --
|
-- --
|
-- --
|
-- This specification is derived from the Ada Reference Manual for use with --
|
-- This specification is derived from the Ada Reference Manual for use with --
|
-- GNAT. In accordance with the copyright of that document, you can freely --
|
-- GNAT. In accordance with the copyright of that document, you can freely --
|
-- copy and modify this specification, provided that if you redistribute a --
|
-- copy and modify this specification, provided that if you redistribute a --
|
-- modified version, any changes that you have made are clearly indicated. --
|
-- modified version, any changes that you have made are clearly indicated. --
|
-- --
|
-- --
|
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
|
|
-- Is this really an RM unit? doc needed ???
|
-- Is this really an RM unit? doc needed ???
|
|
|
with Ada.Containers;
|
with Ada.Containers;
|
|
|
generic
|
generic
|
with package Bounded is
|
with package Bounded is
|
new Ada.Strings.Wide_Wide_Bounded.Generic_Bounded_Length (<>);
|
new Ada.Strings.Wide_Wide_Bounded.Generic_Bounded_Length (<>);
|
|
|
function Ada.Strings.Wide_Wide_Bounded.Wide_Wide_Hash
|
function Ada.Strings.Wide_Wide_Bounded.Wide_Wide_Hash
|
(Key : Bounded.Bounded_Wide_Wide_String)
|
(Key : Bounded.Bounded_Wide_Wide_String)
|
return Containers.Hash_Type;
|
return Containers.Hash_Type;
|
|
|
pragma Preelaborate (Ada.Strings.Wide_Wide_Bounded.Wide_Wide_Hash);
|
pragma Preelaborate (Ada.Strings.Wide_Wide_Bounded.Wide_Wide_Hash);
|
|
|
