1 ------------------------------------------------------------------------------
3 -- GNAT LIBRARY COMPONENTS --
5 -- ADA.CONTAINERS.HASH_TABLES.GENERIC_KEYS --
9 -- This specification is adapted from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
14 ------------------------------------------------------------------------------
17 with package HT_Types is
18 new Generic_Hash_Table_Types (<>);
20 type HT_Type is new HT_Types.Hash_Table_Type with private;
24 Null_Node : Node_Access;
26 with function Next (Node : Node_Access) return Node_Access;
28 with procedure Set_Next
32 type Key_Type (<>) is limited private;
34 with function Hash (Key : Key_Type) return Hash_Type;
36 with function Equivalent_Keys
38 Node : Node_Access) return Boolean;
40 package Ada.Containers.Hash_Tables.Generic_Keys is
45 Key : Key_Type) return Hash_Type;
46 pragma Inline (Index);
48 procedure Delete_Key_Sans_Free
53 function Find (HT : HT_Type; Key : Key_Type) return Node_Access;
56 with function New_Node
57 (Next : Node_Access) return Node_Access;
58 procedure Generic_Conditional_Insert
61 Node : out Node_Access;
62 Success : out Boolean);
64 end Ada.Containers.Hash_Tables.Generic_Keys;