22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
+
+
|
------------------------------------------------------------------------------
private with Ada.Strings.Unbounded;
private with Ada.Containers.Doubly_Linked_Lists;
package Natools.Static_Hash_Maps is
type Package_Categorization is (Pure, Preelaborate, Default_Categorization);
type Map_Node is private;
function Node (Key, Name : String) return Map_Node;
type Node_Array is array (Positive range <>) of Map_Node;
type Map_Description is private;
|
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
+
+
+
+
|
procedure Open
(Self : in out Map_Package;
Name : in String;
Private_Child : in Boolean := False);
-- Reset Self and initialize it with the givan package Name
procedure Set_Categorization
(Self : in out Map_Package;
Categorization : in Package_Categorization);
procedure Set_Description
(Self : in out Map_Package;
Description : in String);
procedure Set_Extra_Declarations
(Self : in out Map_Package;
Declarations : in String);
|
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
+
|
package Map_Lists is new Ada.Containers.Doubly_Linked_Lists
(Map_Description);
type Map_Package is record
Name : String_Holder;
Categorization : Package_Categorization := Default_Categorization;
Description : String_Holder;
Extra_Declarations : String_Holder;
Test_Child : String_Holder;
Priv : Boolean;
Maps : Map_Lists.List;
end record;
end Natools.Static_Hash_Maps;
|