blob: fe20d457c49f9951bf9015e985c16e17ad2ecf56 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
------------------------------------------------------------------------------
-- --
-- GNAT LIBRARY COMPONENTS --
-- --
-- ADA.CONTAINERS.RED_BLACK_TREES --
-- --
-- S p e c --
-- --
-- This specification is adapted from the Ada Reference Manual for use with --
-- GNAT. In accordance with the copyright of that document, you can freely --
-- copy and modify this specification, provided that if you redistribute a --
-- modified version, any changes that you have made are clearly indicated. --
-- --
------------------------------------------------------------------------------
package Ada.Containers.Red_Black_Trees is
pragma Pure (Red_Black_Trees);
type Color_Type is (Red, Black);
generic
type Node_Access is private;
package Generic_Tree_Types is
type Tree_Type is record
First : Node_Access;
Last : Node_Access;
Root : Node_Access;
Length : Count_Type;
end record;
end Generic_Tree_Types;
end Ada.Containers.Red_Black_Trees;
|
