28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
+
+
+
+
+
+
+
+
+
+
+
|
Extra_Declarations,
Private_Child,
Public_Child,
Pure_Package,
Preelaborate_Package,
Test_Function);
Map_2_Key_0 : aliased constant String := "hash-package";
Map_2_Key_1 : aliased constant String := "nodes";
Map_2_Key_2 : aliased constant String := "function";
Map_2_Key_3 : aliased constant String := "not-found";
Map_2_Keys : constant array (0 .. 3) of access constant String
Map_2_Key_0 : aliased constant String := "definite";
Map_2_Key_1 : aliased constant String := "definite-elements";
Map_2_Key_2 : aliased constant String := "indefinite";
Map_2_Key_3 : aliased constant String := "indefinite-elements";
Map_2_Key_4 : aliased constant String := "hash-package";
Map_2_Key_5 : aliased constant String := "nodes";
Map_2_Key_6 : aliased constant String := "function";
Map_2_Key_7 : aliased constant String := "not-found";
Map_2_Keys : constant array (0 .. 7) of access constant String
:= (Map_2_Key_0'Access,
Map_2_Key_1'Access,
Map_2_Key_2'Access,
Map_2_Key_3'Access);
Map_2_Elements : constant array (0 .. 3) of Map_Command
:= (Hash_Package,
Map_2_Key_3'Access,
Map_2_Key_4'Access,
Map_2_Key_5'Access,
Map_2_Key_6'Access,
Map_2_Key_7'Access);
Map_2_Elements : constant array (0 .. 7) of Map_Command
:= (Definite_Elements,
Definite_Elements,
Indefinite_Elements,
Indefinite_Elements,
Hash_Package,
Nodes,
Function_Name,
Not_Found);
end Natools.Static_Hash_Maps.S_Expressions.Command_Maps;
|