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
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336 | -- Test cases for enumeration types.
package Enumerations is
type Ada_Node_Kind_Type_Single_Line is
(Ada_Abort_Absent, Ada_Abort_Present, Ada_Abstract_Absent, Ada_Abstract_Present, Ada_Ada_Node_List, Ada_Abstract_State_Decl_List, Ada_Alternatives_List, Ada_Constraint_List, Ada_Decl_List, Ada_Stmt_List, Ada_Aspect_Assoc_List, Ada_Base_Assoc_List, Ada_Assoc_List, Ada_Basic_Decl_List, Ada_Case_Expr_Alternative_List, Ada_Case_Stmt_Alternative_List, Ada_Compilation_Unit_List, Ada_Concat_Operand_List, Ada_Contract_Case_Assoc_List, Ada_Defining_Name_List, Ada_Discriminant_Spec_List, Ada_Elsif_Expr_Part_List, Ada_Elsif_Stmt_Part_List, Ada_Enum_Literal_Decl_List, Ada_Expr_Alternatives_List, Ada_Discriminant_Choice_List, Ada_Name_List, Ada_Parent_List, Ada_Param_Spec_List, Ada_Pragma_Node_List, Ada_Select_When_Part_List, Ada_Unconstrained_Array_Index_List, Ada_Variant_List, Ada_Aliased_Absent, Ada_Aliased_Present, Ada_All_Absent, Ada_All_Present, Ada_Constrained_Array_Indices, Ada_Unconstrained_Array_Indices, Ada_Aspect_Assoc, Ada_At_Clause, Ada_Attribute_Def_Clause, Ada_Enum_Rep_Clause, Ada_Record_Rep_Clause, Ada_Aspect_Spec, Ada_Contract_Case_Assoc, Ada_Pragma_Argument_Assoc, Ada_Entry_Spec, Ada_Enum_Subp_Spec, Ada_Subp_Spec, Ada_Synthetic_Binary_Spec, Ada_Synthetic_Unary_Spec, Ada_Component_List, Ada_Known_Discriminant_Part, Ada_Unknown_Discriminant_Part, Ada_Entry_Completion_Formal_Params, Ada_Generic_Formal_Part, Ada_Null_Record_Def, Ada_Record_Def, Ada_Aggregate_Assoc, Ada_Multi_Dim_Array_Assoc, Ada_Composite_Constraint_Assoc, Ada_Iterated_Assoc, Ada_Param_Assoc, Ada_Abstract_State_Decl, Ada_Anonymous_Expr_Decl, Ada_Component_Decl, Ada_Discriminant_Spec, Ada_Generic_Formal_Obj_Decl, Ada_Generic_Formal_Package, Ada_Generic_Formal_Subp_Decl, Ada_Generic_Formal_Type_Decl, Ada_Param_Spec, Ada_Synthetic_Formal_Param_Decl, Ada_Generic_Package_Internal, Ada_Package_Decl, Ada_Discrete_Base_Subtype_Decl, Ada_Subtype_Decl, Ada_Classwide_Type_Decl, Ada_Incomplete_Type_Decl, Ada_Incomplete_Formal_Type_Decl, Ada_Incomplete_Tagged_Type_Decl, Ada_Protected_Type_Decl, Ada_Task_Type_Decl, Ada_Single_Task_Type_Decl, Ada_Anonymous_Type_Decl, Ada_Synth_Anonymous_Type_Decl, Ada_Concrete_Type_Decl, Ada_Formal_Type_Decl, Ada_Abstract_Subp_Decl, Ada_Abstract_Formal_Subp_Decl, Ada_Concrete_Formal_Subp_Decl, Ada_Subp_Decl, Ada_Entry_Decl, Ada_Enum_Literal_Decl, Ada_Synthetic_Char_Enum_Lit, Ada_Generic_Subp_Internal, Ada_Synthetic_Subp_Decl, Ada_Accept_Stmt_Body, Ada_Expr_Function, Ada_Null_Subp_Decl, Ada_Subp_Body, Ada_Subp_Renaming_Decl, Ada_Package_Body_Stub, Ada_Protected_Body_Stub, Ada_Subp_Body_Stub, Ada_Task_Body_Stub, Ada_Entry_Body, Ada_Package_Body, Ada_Protected_Body, Ada_Task_Body, Ada_Entry_Index_Spec, Ada_Error_Decl, Ada_Exception_Decl, Ada_Exception_Handler, Ada_For_Loop_Var_Decl, Ada_Generic_Package_Decl, Ada_Generic_Subp_Decl, Ada_Generic_Package_Instantiation, Ada_Generic_Subp_Instantiation, Ada_Generic_Package_Renaming_Decl, Ada_Generic_Subp_Renaming_Decl, Ada_Label_Decl, Ada_Named_Stmt_Decl, Ada_Number_Decl, Ada_Object_Decl, Ada_Extended_Return_Stmt_Object_Decl, Ada_No_Type_Object_Renaming_Decl, Ada_Package_Renaming_Decl, Ada_Single_Protected_Decl, Ada_Single_Task_Decl, Ada_Case_Stmt_Alternative, Ada_Compilation_Unit, Ada_Component_Clause, Ada_Component_Def, Ada_Constant_Absent, Ada_Constant_Present, Ada_Composite_Constraint, Ada_Delta_Constraint, Ada_Digits_Constraint, Ada_Range_Constraint, Ada_Declarative_Part, Ada_Private_Part, Ada_Public_Part, Ada_Elsif_Expr_Part, Ada_Elsif_Stmt_Part, Ada_Abstract_State_Decl_Expr, Ada_Allocator, Ada_Aggregate, Ada_Bracket_Aggregate, Ada_Delta_Aggregate, Ada_Bracket_Delta_Aggregate, Ada_Null_Record_Aggregate, Ada_Bin_Op, Ada_Relation_Op, Ada_Box_Expr, Ada_Case_Expr_Alternative, Ada_Concat_Op, Ada_Concat_Operand, Ada_Case_Expr, Ada_If_Expr, Ada_Contract_Cases, Ada_Decl_Expr, Ada_Membership_Expr, Ada_Attribute_Ref, Ada_Call_Expr, Ada_Defining_Name, Ada_Synthetic_Defining_Name, Ada_Discrete_Subtype_Name, Ada_Dotted_Name, Ada_End_Name, Ada_Explicit_Deref, Ada_Qual_Expr, Ada_Reduce_Attribute_Ref, Ada_Char_Literal, Ada_Identifier, Ada_Op_Abs, Ada_Op_And, Ada_Op_And_Then, Ada_Op_Concat, Ada_Op_Div, Ada_Op_Double_Dot, Ada_Op_Eq, Ada_Op_Gt, Ada_Op_Gte, Ada_Op_In, Ada_Op_Lt, Ada_Op_Lte, Ada_Op_Minus, Ada_Op_Mod, Ada_Op_Mult, Ada_Op_Neq, Ada_Op_Not, Ada_Op_Not_In, Ada_Op_Or, Ada_Op_Or_Else, Ada_Op_Plus, Ada_Op_Pow, Ada_Op_Rem, Ada_Op_Xor, Ada_String_Literal, Ada_Null_Literal, Ada_Int_Literal, Ada_Real_Literal, Ada_Synthetic_Identifier, Ada_Target_Name, Ada_Update_Attribute_Ref, Ada_Paren_Expr, Ada_Quantified_Expr, Ada_Raise_Expr, Ada_Un_Op, Ada_Handled_Stmts, Ada_Interface_Kind_Limited, Ada_Interface_Kind_Protected, Ada_Interface_Kind_Synchronized, Ada_Interface_Kind_Task, Ada_Iter_Type_In, Ada_Iter_Type_Of, Ada_Library_Item, Ada_Limited_Absent, Ada_Limited_Present, Ada_For_Loop_Spec, Ada_While_Loop_Spec, Ada_Mode_Default, Ada_Mode_In, Ada_Mode_In_Out, Ada_Mode_Out, Ada_Multi_Abstract_State_Decl, Ada_Not_Null_Absent, Ada_Not_Null_Present, Ada_Null_Component_Decl, Ada_Others_Designator, Ada_Overriding_Not_Overriding, Ada_Overriding_Overriding, Ada_Overriding_Unspecified, Ada_Params, Ada_Paren_Abstract_State_Decl, Ada_Pp_Else_Directive, Ada_Pp_Elsif_Directive, Ada_Pp_End_If_Directive, Ada_Pp_If_Directive, Ada_Pp_Then_Kw, Ada_Pragma_Node, Ada_Private_Absent, Ada_Private_Present, Ada_Protected_Def, Ada_Protected_Absent, Ada_Protected_Present, Ada_Quantifier_All, Ada_Quantifier_Some, Ada_Range_Spec, Ada_Renaming_Clause, Ada_Synthetic_Renaming_Clause, Ada_Reverse_Absent, Ada_Reverse_Present, Ada_Select_When_Part, Ada_Accept_Stmt, Ada_Accept_Stmt_With_Stmts, Ada_For_Loop_Stmt, Ada_Loop_Stmt, Ada_While_Loop_Stmt, Ada_Begin_Block, Ada_Decl_Block, Ada_Case_Stmt, Ada_Extended_Return_Stmt, Ada_If_Stmt, Ada_Named_Stmt, Ada_Select_Stmt, Ada_Error_Stmt, Ada_Abort_Stmt, Ada_Assign_Stmt, Ada_Call_Stmt, Ada_Delay_Stmt, Ada_Exit_Stmt, Ada_Goto_Stmt, Ada_Label, Ada_Null_Stmt, Ada_Raise_Stmt, Ada_Requeue_Stmt, Ada_Return_Stmt, Ada_Terminate_Alternative, Ada_Subp_Kind_Function, Ada_Subp_Kind_Procedure, Ada_Subunit, Ada_Synchronized_Absent, Ada_Synchronized_Present, Ada_Tagged_Absent, Ada_Tagged_Present, Ada_Task_Def, Ada_Type_Attributes_Repository, Ada_Access_To_Subp_Def, Ada_Anonymous_Type_Access_Def, Ada_Type_Access_Def, Ada_Array_Type_Def, Ada_Derived_Type_Def, Ada_Enum_Type_Def, Ada_Formal_Discrete_Type_Def, Ada_Interface_Type_Def, Ada_Mod_Int_Type_Def, Ada_Private_Type_Def, Ada_Decimal_Fixed_Point_Def, Ada_Floating_Point_Def, Ada_Ordinary_Fixed_Point_Def, Ada_Record_Type_Def, Ada_Signed_Int_Type_Def, Ada_Anonymous_Type, Ada_Enum_Lit_Synth_Type_Expr, Ada_Subtype_Indication, Ada_Constrained_Subtype_Indication, Ada_Discrete_Subtype_Indication, Ada_Synthetic_Type_Expr, Ada_Unconstrained_Array_Index, Ada_Until_Absent, Ada_Until_Present, Ada_Use_Package_Clause, Ada_Use_Type_Clause, Ada_Value_Sequence, Ada_Variant, Ada_Variant_Part, Ada_With_Clause, Ada_With_Private_Absent, Ada_With_Private_Present);
-- Type for concrete nodes. All literals are written in the single line.
-- Test check that onle few of literals will be presented in code snippet.
type Ada_Node_Kind_Type_Multiple_Line is
(Ada_Abort_Absent,
Ada_Abort_Present,
Ada_Abstract_Absent,
Ada_Abstract_Present,
Ada_Ada_Node_List,
Ada_Abstract_State_Decl_List,
Ada_Alternatives_List,
Ada_Constraint_List,
Ada_Decl_List,
Ada_Stmt_List,
Ada_Aspect_Assoc_List,
Ada_Base_Assoc_List,
Ada_Assoc_List,
Ada_Basic_Decl_List,
Ada_Case_Expr_Alternative_List,
Ada_Case_Stmt_Alternative_List,
Ada_Compilation_Unit_List,
Ada_Concat_Operand_List,
Ada_Contract_Case_Assoc_List,
Ada_Defining_Name_List,
Ada_Discriminant_Spec_List,
Ada_Elsif_Expr_Part_List,
Ada_Elsif_Stmt_Part_List,
Ada_Enum_Literal_Decl_List,
Ada_Expr_Alternatives_List,
Ada_Discriminant_Choice_List,
Ada_Name_List,
Ada_Parent_List,
Ada_Param_Spec_List,
Ada_Pragma_Node_List,
Ada_Select_When_Part_List,
Ada_Unconstrained_Array_Index_List,
Ada_Variant_List,
Ada_Aliased_Absent,
Ada_Aliased_Present,
Ada_All_Absent,
Ada_All_Present,
Ada_Constrained_Array_Indices,
Ada_Unconstrained_Array_Indices,
Ada_Aspect_Assoc,
Ada_At_Clause,
Ada_Attribute_Def_Clause,
Ada_Enum_Rep_Clause,
Ada_Record_Rep_Clause,
Ada_Aspect_Spec,
Ada_Contract_Case_Assoc,
Ada_Pragma_Argument_Assoc,
Ada_Entry_Spec,
Ada_Enum_Subp_Spec,
Ada_Subp_Spec,
Ada_Synthetic_Binary_Spec,
Ada_Synthetic_Unary_Spec,
Ada_Component_List,
Ada_Known_Discriminant_Part,
Ada_Unknown_Discriminant_Part,
Ada_Entry_Completion_Formal_Params,
Ada_Generic_Formal_Part,
Ada_Null_Record_Def,
Ada_Record_Def,
Ada_Aggregate_Assoc,
Ada_Multi_Dim_Array_Assoc,
Ada_Composite_Constraint_Assoc,
Ada_Iterated_Assoc,
Ada_Param_Assoc,
Ada_Abstract_State_Decl,
Ada_Anonymous_Expr_Decl,
Ada_Component_Decl,
Ada_Discriminant_Spec,
Ada_Generic_Formal_Obj_Decl,
Ada_Generic_Formal_Package,
Ada_Generic_Formal_Subp_Decl,
Ada_Generic_Formal_Type_Decl,
Ada_Param_Spec,
Ada_Synthetic_Formal_Param_Decl,
Ada_Generic_Package_Internal,
Ada_Package_Decl,
Ada_Discrete_Base_Subtype_Decl,
Ada_Subtype_Decl,
Ada_Classwide_Type_Decl,
Ada_Incomplete_Type_Decl,
Ada_Incomplete_Formal_Type_Decl,
Ada_Incomplete_Tagged_Type_Decl,
Ada_Protected_Type_Decl,
Ada_Task_Type_Decl,
Ada_Single_Task_Type_Decl,
Ada_Anonymous_Type_Decl,
Ada_Synth_Anonymous_Type_Decl,
Ada_Concrete_Type_Decl,
Ada_Formal_Type_Decl,
Ada_Abstract_Subp_Decl,
Ada_Abstract_Formal_Subp_Decl,
Ada_Concrete_Formal_Subp_Decl,
Ada_Subp_Decl,
Ada_Entry_Decl,
Ada_Enum_Literal_Decl,
Ada_Synthetic_Char_Enum_Lit,
Ada_Generic_Subp_Internal,
Ada_Synthetic_Subp_Decl,
Ada_Accept_Stmt_Body,
Ada_Expr_Function,
Ada_Null_Subp_Decl,
Ada_Subp_Body,
Ada_Subp_Renaming_Decl,
Ada_Package_Body_Stub,
Ada_Protected_Body_Stub,
Ada_Subp_Body_Stub,
Ada_Task_Body_Stub,
Ada_Entry_Body,
Ada_Package_Body,
Ada_Protected_Body,
Ada_Task_Body,
Ada_Entry_Index_Spec,
Ada_Error_Decl,
Ada_Exception_Decl,
Ada_Exception_Handler,
Ada_For_Loop_Var_Decl,
Ada_Generic_Package_Decl,
Ada_Generic_Subp_Decl,
Ada_Generic_Package_Instantiation,
Ada_Generic_Subp_Instantiation,
Ada_Generic_Package_Renaming_Decl,
Ada_Generic_Subp_Renaming_Decl,
Ada_Label_Decl,
Ada_Named_Stmt_Decl,
Ada_Number_Decl,
Ada_Object_Decl,
Ada_Extended_Return_Stmt_Object_Decl,
Ada_No_Type_Object_Renaming_Decl,
Ada_Package_Renaming_Decl,
Ada_Single_Protected_Decl,
Ada_Single_Task_Decl,
Ada_Case_Stmt_Alternative,
Ada_Compilation_Unit,
Ada_Component_Clause,
Ada_Component_Def,
Ada_Constant_Absent,
Ada_Constant_Present,
Ada_Composite_Constraint,
Ada_Delta_Constraint,
Ada_Digits_Constraint,
Ada_Range_Constraint,
Ada_Declarative_Part,
Ada_Private_Part,
Ada_Public_Part,
Ada_Elsif_Expr_Part,
Ada_Elsif_Stmt_Part,
Ada_Abstract_State_Decl_Expr,
Ada_Allocator,
Ada_Aggregate,
Ada_Bracket_Aggregate,
Ada_Delta_Aggregate,
Ada_Bracket_Delta_Aggregate,
Ada_Null_Record_Aggregate,
Ada_Bin_Op,
Ada_Relation_Op,
Ada_Box_Expr,
Ada_Case_Expr_Alternative,
Ada_Concat_Op,
Ada_Concat_Operand,
Ada_Case_Expr,
Ada_If_Expr,
Ada_Contract_Cases,
Ada_Decl_Expr,
Ada_Membership_Expr,
Ada_Attribute_Ref,
Ada_Call_Expr,
Ada_Defining_Name,
Ada_Synthetic_Defining_Name,
Ada_Discrete_Subtype_Name,
Ada_Dotted_Name,
Ada_End_Name,
Ada_Explicit_Deref,
Ada_Qual_Expr,
Ada_Reduce_Attribute_Ref,
Ada_Char_Literal,
Ada_Identifier,
Ada_Op_Abs,
Ada_Op_And,
Ada_Op_And_Then,
Ada_Op_Concat,
Ada_Op_Div,
Ada_Op_Double_Dot,
Ada_Op_Eq,
Ada_Op_Gt,
Ada_Op_Gte,
Ada_Op_In,
Ada_Op_Lt,
Ada_Op_Lte,
Ada_Op_Minus,
Ada_Op_Mod,
Ada_Op_Mult,
Ada_Op_Neq,
Ada_Op_Not,
Ada_Op_Not_In,
Ada_Op_Or,
Ada_Op_Or_Else,
Ada_Op_Plus,
Ada_Op_Pow,
Ada_Op_Rem,
Ada_Op_Xor,
Ada_String_Literal,
Ada_Null_Literal,
Ada_Int_Literal,
Ada_Real_Literal,
Ada_Synthetic_Identifier,
Ada_Target_Name,
Ada_Update_Attribute_Ref,
Ada_Paren_Expr,
Ada_Quantified_Expr,
Ada_Raise_Expr,
Ada_Un_Op,
Ada_Handled_Stmts,
Ada_Interface_Kind_Limited,
Ada_Interface_Kind_Protected,
Ada_Interface_Kind_Synchronized,
Ada_Interface_Kind_Task,
Ada_Iter_Type_In,
Ada_Iter_Type_Of,
Ada_Library_Item,
Ada_Limited_Absent,
Ada_Limited_Present,
Ada_For_Loop_Spec,
Ada_While_Loop_Spec,
Ada_Mode_Default,
Ada_Mode_In,
Ada_Mode_In_Out,
Ada_Mode_Out,
Ada_Multi_Abstract_State_Decl,
Ada_Not_Null_Absent,
Ada_Not_Null_Present,
Ada_Null_Component_Decl,
Ada_Others_Designator,
Ada_Overriding_Not_Overriding,
Ada_Overriding_Overriding,
Ada_Overriding_Unspecified,
Ada_Params,
Ada_Paren_Abstract_State_Decl,
Ada_Pp_Else_Directive,
Ada_Pp_Elsif_Directive,
Ada_Pp_End_If_Directive,
Ada_Pp_If_Directive,
Ada_Pp_Then_Kw,
Ada_Pragma_Node,
Ada_Private_Absent,
Ada_Private_Present,
Ada_Protected_Def,
Ada_Protected_Absent,
Ada_Protected_Present,
Ada_Quantifier_All,
Ada_Quantifier_Some,
Ada_Range_Spec,
Ada_Renaming_Clause,
Ada_Synthetic_Renaming_Clause,
Ada_Reverse_Absent,
Ada_Reverse_Present,
Ada_Select_When_Part,
Ada_Accept_Stmt,
Ada_Accept_Stmt_With_Stmts,
Ada_For_Loop_Stmt,
Ada_Loop_Stmt,
Ada_While_Loop_Stmt,
Ada_Begin_Block,
Ada_Decl_Block,
Ada_Case_Stmt,
Ada_Extended_Return_Stmt,
Ada_If_Stmt,
Ada_Named_Stmt,
Ada_Select_Stmt,
Ada_Error_Stmt,
Ada_Abort_Stmt,
Ada_Assign_Stmt,
Ada_Call_Stmt,
Ada_Delay_Stmt,
Ada_Exit_Stmt,
Ada_Goto_Stmt,
Ada_Label,
Ada_Null_Stmt,
Ada_Raise_Stmt,
Ada_Requeue_Stmt,
Ada_Return_Stmt,
Ada_Terminate_Alternative,
Ada_Subp_Kind_Function,
Ada_Subp_Kind_Procedure,
Ada_Subunit,
Ada_Synchronized_Absent,
Ada_Synchronized_Present,
Ada_Tagged_Absent,
Ada_Tagged_Present,
Ada_Task_Def,
Ada_Type_Attributes_Repository,
Ada_Access_To_Subp_Def,
Ada_Anonymous_Type_Access_Def,
Ada_Type_Access_Def,
Ada_Array_Type_Def,
Ada_Derived_Type_Def,
Ada_Enum_Type_Def,
Ada_Formal_Discrete_Type_Def,
Ada_Interface_Type_Def,
Ada_Mod_Int_Type_Def,
Ada_Private_Type_Def,
Ada_Decimal_Fixed_Point_Def,
Ada_Floating_Point_Def,
Ada_Ordinary_Fixed_Point_Def,
Ada_Record_Type_Def,
Ada_Signed_Int_Type_Def,
Ada_Anonymous_Type,
Ada_Enum_Lit_Synth_Type_Expr,
Ada_Subtype_Indication,
Ada_Constrained_Subtype_Indication,
Ada_Discrete_Subtype_Indication,
Ada_Synthetic_Type_Expr,
Ada_Unconstrained_Array_Index,
Ada_Until_Absent,
Ada_Until_Present,
Ada_Use_Package_Clause,
Ada_Use_Type_Clause,
Ada_Value_Sequence,
Ada_Variant,
Ada_Variant_Part,
Ada_With_Clause,
Ada_With_Private_Absent,
Ada_With_Private_Present);
-- Type for concrete nodes. All literals are written on separate line.
-- Test check that onle few of literals will be presented in code snippet.
end Enumerations;
|