1 #ifndef _newgen_ri_included
2 #define _newgen_ri_included
3 #define _gen_ri_start 27
10 #if !defined(_newgen_Pvecteur_domain_defined_)
11 #define _newgen_Pvecteur_domain_defined_
12 #define newgen_Pvecteur(p) (p)
13 #define PVECTEUR_NEWGEN_EXTERNAL (_gen_ri_start+0)
14 #define PVECTEUR_NEWGEN_DOMAIN (PVECTEUR_NEWGEN_EXTERNAL)
15 #define Pvecteur_NEWGEN_DOMAIN (PVECTEUR_NEWGEN_EXTERNAL)
18 #if !defined(_newgen_Psysteme_domain_defined_)
19 #define _newgen_Psysteme_domain_defined_
20 #define newgen_Psysteme(p) (p)
21 #define PSYSTEME_NEWGEN_EXTERNAL (_gen_ri_start+1)
22 #define PSYSTEME_NEWGEN_DOMAIN (PSYSTEME_NEWGEN_EXTERNAL)
23 #define Psysteme_NEWGEN_DOMAIN (PSYSTEME_NEWGEN_EXTERNAL)
26 #define application_domain (_gen_ri_start+2)
27 #if !defined(_newgen_application_domain_defined_)
28 #define _newgen_application_domain_defined_
29 #define APPLICATION_NEWGEN_DOMAIN (application_domain)
30 #define application_NEWGEN_DOMAIN (application_domain)
34 #define area_domain (_gen_ri_start+3)
35 #if !defined(_newgen_area_domain_defined_)
36 #define _newgen_area_domain_defined_
37 #define AREA_NEWGEN_DOMAIN (area_domain)
38 #define area_NEWGEN_DOMAIN (area_domain)
42 #define basic_domain (_gen_ri_start+4)
43 #if !defined(_newgen_basic_domain_defined_)
44 #define _newgen_basic_domain_defined_
45 #define BASIC_NEWGEN_DOMAIN (basic_domain)
46 #define basic_NEWGEN_DOMAIN (basic_domain)
50 #define callees_domain (_gen_ri_start+5)
51 #if !defined(_newgen_callees_domain_defined_)
52 #define _newgen_callees_domain_defined_
53 #define CALLEES_NEWGEN_DOMAIN (callees_domain)
54 #define callees_NEWGEN_DOMAIN (callees_domain)
58 #define call_domain (_gen_ri_start+6)
59 #if !defined(_newgen_call_domain_defined_)
60 #define _newgen_call_domain_defined_
61 #define CALL_NEWGEN_DOMAIN (call_domain)
62 #define call_NEWGEN_DOMAIN (call_domain)
66 #define cast_domain (_gen_ri_start+7)
67 #if !defined(_newgen_cast_domain_defined_)
68 #define _newgen_cast_domain_defined_
69 #define CAST_NEWGEN_DOMAIN (cast_domain)
70 #define cast_NEWGEN_DOMAIN (cast_domain)
74 #define code_domain (_gen_ri_start+8)
75 #if !defined(_newgen_code_domain_defined_)
76 #define _newgen_code_domain_defined_
77 #define CODE_NEWGEN_DOMAIN (code_domain)
78 #define code_NEWGEN_DOMAIN (code_domain)
82 #define constant_domain (_gen_ri_start+9)
83 #if !defined(_newgen_constant_domain_defined_)
84 #define _newgen_constant_domain_defined_
85 #define CONSTANT_NEWGEN_DOMAIN (constant_domain)
86 #define constant_NEWGEN_DOMAIN (constant_domain)
90 #define controlmap_domain (_gen_ri_start+10)
91 #if !defined(_newgen_controlmap_domain_defined_)
92 #define _newgen_controlmap_domain_defined_
93 #define CONTROLMAP_NEWGEN_DOMAIN (controlmap_domain)
94 #define controlmap_NEWGEN_DOMAIN (controlmap_domain)
98 #define control_domain (_gen_ri_start+11)
99 #if !defined(_newgen_control_domain_defined_)
100 #define _newgen_control_domain_defined_
101 #define CONTROL_NEWGEN_DOMAIN (control_domain)
102 #define control_NEWGEN_DOMAIN (control_domain)
106 #define dimension_domain (_gen_ri_start+12)
107 #if !defined(_newgen_dimension_domain_defined_)
108 #define _newgen_dimension_domain_defined_
109 #define DIMENSION_NEWGEN_DOMAIN (dimension_domain)
110 #define dimension_NEWGEN_DOMAIN (dimension_domain)
114 #define dummy_domain (_gen_ri_start+13)
115 #if !defined(_newgen_dummy_domain_defined_)
116 #define _newgen_dummy_domain_defined_
117 #define DUMMY_NEWGEN_DOMAIN (dummy_domain)
118 #define dummy_NEWGEN_DOMAIN (dummy_domain)
122 #define entity_int_domain (_gen_ri_start+14)
123 #if !defined(_newgen_entity_int_domain_defined_)
124 #define _newgen_entity_int_domain_defined_
125 #define ENTITY_INT_NEWGEN_DOMAIN (entity_int_domain)
126 #define entity_int_NEWGEN_DOMAIN (entity_int_domain)
130 #define entity_to_entity_domain (_gen_ri_start+15)
131 #if !defined(_newgen_entity_to_entity_domain_defined_)
132 #define _newgen_entity_to_entity_domain_defined_
133 #define ENTITY_TO_ENTITY_NEWGEN_DOMAIN (entity_to_entity_domain)
134 #define entity_to_entity_NEWGEN_DOMAIN (entity_to_entity_domain)
138 #define evaluation_domain (_gen_ri_start+16)
139 #if !defined(_newgen_evaluation_domain_defined_)
140 #define _newgen_evaluation_domain_defined_
141 #define EVALUATION_NEWGEN_DOMAIN (evaluation_domain)
142 #define evaluation_NEWGEN_DOMAIN (evaluation_domain)
146 #define execution_domain (_gen_ri_start+17)
147 #if !defined(_newgen_execution_domain_defined_)
148 #define _newgen_execution_domain_defined_
149 #define EXECUTION_NEWGEN_DOMAIN (execution_domain)
150 #define execution_NEWGEN_DOMAIN (execution_domain)
154 #define expression_domain (_gen_ri_start+18)
155 #if !defined(_newgen_expression_domain_defined_)
156 #define _newgen_expression_domain_defined_
157 #define EXPRESSION_NEWGEN_DOMAIN (expression_domain)
158 #define expression_NEWGEN_DOMAIN (expression_domain)
162 #define extension_domain (_gen_ri_start+19)
163 #if !defined(_newgen_extension_domain_defined_)
164 #define _newgen_extension_domain_defined_
165 #define EXTENSION_NEWGEN_DOMAIN (extension_domain)
166 #define extension_NEWGEN_DOMAIN (extension_domain)
170 #define extensions_domain (_gen_ri_start+20)
171 #if !defined(_newgen_extensions_domain_defined_)
172 #define _newgen_extensions_domain_defined_
173 #define EXTENSIONS_NEWGEN_DOMAIN (extensions_domain)
174 #define extensions_NEWGEN_DOMAIN (extensions_domain)
178 #define forloop_domain (_gen_ri_start+21)
179 #if !defined(_newgen_forloop_domain_defined_)
180 #define _newgen_forloop_domain_defined_
181 #define FORLOOP_NEWGEN_DOMAIN (forloop_domain)
182 #define forloop_NEWGEN_DOMAIN (forloop_domain)
186 #define formal_domain (_gen_ri_start+22)
187 #if !defined(_newgen_formal_domain_defined_)
188 #define _newgen_formal_domain_defined_
189 #define FORMAL_NEWGEN_DOMAIN (formal_domain)
190 #define formal_NEWGEN_DOMAIN (formal_domain)
194 #define functional_domain (_gen_ri_start+23)
195 #if !defined(_newgen_functional_domain_defined_)
196 #define _newgen_functional_domain_defined_
197 #define FUNCTIONAL_NEWGEN_DOMAIN (functional_domain)
198 #define functional_NEWGEN_DOMAIN (functional_domain)
202 #define instruction_domain (_gen_ri_start+24)
203 #if !defined(_newgen_instruction_domain_defined_)
204 #define _newgen_instruction_domain_defined_
205 #define INSTRUCTION_NEWGEN_DOMAIN (instruction_domain)
206 #define instruction_NEWGEN_DOMAIN (instruction_domain)
210 #define language_domain (_gen_ri_start+25)
211 #if !defined(_newgen_language_domain_defined_)
212 #define _newgen_language_domain_defined_
213 #define LANGUAGE_NEWGEN_DOMAIN (language_domain)
214 #define language_NEWGEN_DOMAIN (language_domain)
218 #define loop_domain (_gen_ri_start+26)
219 #if !defined(_newgen_loop_domain_defined_)
220 #define _newgen_loop_domain_defined_
221 #define LOOP_NEWGEN_DOMAIN (loop_domain)
222 #define loop_NEWGEN_DOMAIN (loop_domain)
226 #define mode_domain (_gen_ri_start+27)
227 #if !defined(_newgen_mode_domain_defined_)
228 #define _newgen_mode_domain_defined_
229 #define MODE_NEWGEN_DOMAIN (mode_domain)
230 #define mode_NEWGEN_DOMAIN (mode_domain)
234 #define multitest_domain (_gen_ri_start+28)
235 #if !defined(_newgen_multitest_domain_defined_)
236 #define _newgen_multitest_domain_defined_
237 #define MULTITEST_NEWGEN_DOMAIN (multitest_domain)
238 #define multitest_NEWGEN_DOMAIN (multitest_domain)
242 #define normalized_domain (_gen_ri_start+29)
243 #if !defined(_newgen_normalized_domain_defined_)
244 #define _newgen_normalized_domain_defined_
245 #define NORMALIZED_NEWGEN_DOMAIN (normalized_domain)
246 #define normalized_NEWGEN_DOMAIN (normalized_domain)
250 #define parameter_domain (_gen_ri_start+30)
251 #if !defined(_newgen_parameter_domain_defined_)
252 #define _newgen_parameter_domain_defined_
253 #define PARAMETER_NEWGEN_DOMAIN (parameter_domain)
254 #define parameter_NEWGEN_DOMAIN (parameter_domain)
258 #define persistant_statement_to_cluster_domain (_gen_ri_start+31)
259 #if !defined(_newgen_persistant_statement_to_cluster_domain_defined_)
260 #define _newgen_persistant_statement_to_cluster_domain_defined_
261 #define PERSISTANT_STATEMENT_TO_CLUSTER_NEWGEN_DOMAIN (persistant_statement_to_cluster_domain)
262 #define persistant_statement_to_cluster_NEWGEN_DOMAIN (persistant_statement_to_cluster_domain)
266 #define persistant_statement_to_control_domain (_gen_ri_start+32)
267 #if !defined(_newgen_persistant_statement_to_control_domain_defined_)
268 #define _newgen_persistant_statement_to_control_domain_defined_
269 #define PERSISTANT_STATEMENT_TO_CONTROL_NEWGEN_DOMAIN (persistant_statement_to_control_domain)
270 #define persistant_statement_to_control_NEWGEN_DOMAIN (persistant_statement_to_control_domain)
274 #define persistant_statement_to_int_domain (_gen_ri_start+33)
275 #if !defined(_newgen_persistant_statement_to_int_domain_defined_)
276 #define _newgen_persistant_statement_to_int_domain_defined_
277 #define PERSISTANT_STATEMENT_TO_INT_NEWGEN_DOMAIN (persistant_statement_to_int_domain)
278 #define persistant_statement_to_int_NEWGEN_DOMAIN (persistant_statement_to_int_domain)
282 #define persistant_statement_to_statement_domain (_gen_ri_start+34)
283 #if !defined(_newgen_persistant_statement_to_statement_domain_defined_)
284 #define _newgen_persistant_statement_to_statement_domain_defined_
285 #define PERSISTANT_STATEMENT_TO_STATEMENT_NEWGEN_DOMAIN (persistant_statement_to_statement_domain)
286 #define persistant_statement_to_statement_NEWGEN_DOMAIN (persistant_statement_to_statement_domain)
290 #define pragma_domain (_gen_ri_start+35)
291 #if !defined(_newgen_pragma_domain_defined_)
292 #define _newgen_pragma_domain_defined_
293 #define PRAGMA_NEWGEN_DOMAIN (pragma_domain)
294 #define pragma_NEWGEN_DOMAIN (pragma_domain)
298 #define predicate_domain (_gen_ri_start+36)
299 #if !defined(_newgen_predicate_domain_defined_)
300 #define _newgen_predicate_domain_defined_
301 #define PREDICATE_NEWGEN_DOMAIN (predicate_domain)
302 #define predicate_NEWGEN_DOMAIN (predicate_domain)
306 #define preference_domain (_gen_ri_start+37)
307 #if !defined(_newgen_preference_domain_defined_)
308 #define _newgen_preference_domain_defined_
309 #define PREFERENCE_NEWGEN_DOMAIN (preference_domain)
310 #define preference_NEWGEN_DOMAIN (preference_domain)
314 #define qualifier_domain (_gen_ri_start+38)
315 #if !defined(_newgen_qualifier_domain_defined_)
316 #define _newgen_qualifier_domain_defined_
317 #define QUALIFIER_NEWGEN_DOMAIN (qualifier_domain)
318 #define qualifier_NEWGEN_DOMAIN (qualifier_domain)
322 #define ram_domain (_gen_ri_start+39)
323 #if !defined(_newgen_ram_domain_defined_)
324 #define _newgen_ram_domain_defined_
325 #define RAM_NEWGEN_DOMAIN (ram_domain)
326 #define ram_NEWGEN_DOMAIN (ram_domain)
330 #define range_domain (_gen_ri_start+40)
331 #if !defined(_newgen_range_domain_defined_)
332 #define _newgen_range_domain_defined_
333 #define RANGE_NEWGEN_DOMAIN (range_domain)
334 #define range_NEWGEN_DOMAIN (range_domain)
338 #define reference_domain (_gen_ri_start+41)
339 #if !defined(_newgen_reference_domain_defined_)
340 #define _newgen_reference_domain_defined_
341 #define REFERENCE_NEWGEN_DOMAIN (reference_domain)
342 #define reference_NEWGEN_DOMAIN (reference_domain)
346 #define sequence_domain (_gen_ri_start+42)
347 #if !defined(_newgen_sequence_domain_defined_)
348 #define _newgen_sequence_domain_defined_
349 #define SEQUENCE_NEWGEN_DOMAIN (sequence_domain)
350 #define sequence_NEWGEN_DOMAIN (sequence_domain)
354 #define sizeofexpression_domain (_gen_ri_start+43)
355 #if !defined(_newgen_sizeofexpression_domain_defined_)
356 #define _newgen_sizeofexpression_domain_defined_
357 #define SIZEOFEXPRESSION_NEWGEN_DOMAIN (sizeofexpression_domain)
358 #define sizeofexpression_NEWGEN_DOMAIN (sizeofexpression_domain)
362 #define statement_domain (_gen_ri_start+44)
363 #if !defined(_newgen_statement_domain_defined_)
364 #define _newgen_statement_domain_defined_
365 #define STATEMENT_NEWGEN_DOMAIN (statement_domain)
366 #define statement_NEWGEN_DOMAIN (statement_domain)
370 #define storage_domain (_gen_ri_start+45)
371 #if !defined(_newgen_storage_domain_defined_)
372 #define _newgen_storage_domain_defined_
373 #define STORAGE_NEWGEN_DOMAIN (storage_domain)
374 #define storage_NEWGEN_DOMAIN (storage_domain)
378 #define subscript_domain (_gen_ri_start+46)
379 #if !defined(_newgen_subscript_domain_defined_)
380 #define _newgen_subscript_domain_defined_
381 #define SUBSCRIPT_NEWGEN_DOMAIN (subscript_domain)
382 #define subscript_NEWGEN_DOMAIN (subscript_domain)
386 #define symbolic_domain (_gen_ri_start+47)
387 #if !defined(_newgen_symbolic_domain_defined_)
388 #define _newgen_symbolic_domain_defined_
389 #define SYMBOLIC_NEWGEN_DOMAIN (symbolic_domain)
390 #define symbolic_NEWGEN_DOMAIN (symbolic_domain)
394 #define synchronization_domain (_gen_ri_start+48)
395 #if !defined(_newgen_synchronization_domain_defined_)
396 #define _newgen_synchronization_domain_defined_
397 #define SYNCHRONIZATION_NEWGEN_DOMAIN (synchronization_domain)
398 #define synchronization_NEWGEN_DOMAIN (synchronization_domain)
402 #define syntax_domain (_gen_ri_start+49)
403 #if !defined(_newgen_syntax_domain_defined_)
404 #define _newgen_syntax_domain_defined_
405 #define SYNTAX_NEWGEN_DOMAIN (syntax_domain)
406 #define syntax_NEWGEN_DOMAIN (syntax_domain)
410 #define entity_domain (_gen_ri_start+50)
411 #if !defined(_newgen_entity_domain_defined_)
412 #define _newgen_entity_domain_defined_
413 #define ENTITY_NEWGEN_DOMAIN (entity_domain)
414 #define entity_NEWGEN_DOMAIN (entity_domain)
418 #define test_domain (_gen_ri_start+51)
419 #if !defined(_newgen_test_domain_defined_)
420 #define _newgen_test_domain_defined_
421 #define TEST_NEWGEN_DOMAIN (test_domain)
422 #define test_NEWGEN_DOMAIN (test_domain)
426 #define transformer_domain (_gen_ri_start+52)
427 #if !defined(_newgen_transformer_domain_defined_)
428 #define _newgen_transformer_domain_defined_
429 #define TRANSFORMER_NEWGEN_DOMAIN (transformer_domain)
430 #define transformer_NEWGEN_DOMAIN (transformer_domain)
434 #define type_domain (_gen_ri_start+53)
435 #if !defined(_newgen_type_domain_defined_)
436 #define _newgen_type_domain_defined_
437 #define TYPE_NEWGEN_DOMAIN (type_domain)
438 #define type_NEWGEN_DOMAIN (type_domain)
442 #define unstructured_domain (_gen_ri_start+54)
443 #if !defined(_newgen_unstructured_domain_defined_)
444 #define _newgen_unstructured_domain_defined_
445 #define UNSTRUCTURED_NEWGEN_DOMAIN (unstructured_domain)
446 #define unstructured_NEWGEN_DOMAIN (unstructured_domain)
450 #define value_domain (_gen_ri_start+55)
451 #if !defined(_newgen_value_domain_defined_)
452 #define _newgen_value_domain_defined_
453 #define VALUE_NEWGEN_DOMAIN (value_domain)
454 #define value_NEWGEN_DOMAIN (value_domain)
458 #define variable_domain (_gen_ri_start+56)
459 #if !defined(_newgen_variable_domain_defined_)
460 #define _newgen_variable_domain_defined_
461 #define VARIABLE_NEWGEN_DOMAIN (variable_domain)
462 #define variable_NEWGEN_DOMAIN (variable_domain)
466 #define whileloop_domain (_gen_ri_start+57)
467 #if !defined(_newgen_whileloop_domain_defined_)
468 #define _newgen_whileloop_domain_defined_
469 #define WHILELOOP_NEWGEN_DOMAIN (whileloop_domain)
470 #define whileloop_NEWGEN_DOMAIN (whileloop_domain)
478 #define APPLICATION(x) ((application)((x).p))
479 #define application_CAST(x) APPLICATION(x)
480 #define APPLICATION_CAST(x) APPLICATION(x)
481 #define APPLICATION_(x) ((x).e)
482 #define APPLICATION_TYPE application
483 #define application_TYPE application
484 #define application_undefined ((application)gen_chunk_undefined)
485 #define application_undefined_p(x) ((x)==application_undefined)
492 #define gen_APPLICATION_cons gen_application_cons
506 #define application_domain_number(x) ((x)->_type_)
507 #define application_function_(x) application_function(x)
508 #define application_function(x) ((x)->_application_function_)
509 #define application_arguments_(x) application_arguments(x)
510 #define application_arguments(x) ((x)->_application_arguments_)
514 #define AREA(x) ((area)((x).p))
515 #define area_CAST(x) AREA(x)
516 #define AREA_CAST(x) AREA(x)
517 #define AREA_(x) ((x).e)
518 #define AREA_TYPE area
519 #define area_TYPE area
520 #define area_undefined ((area)gen_chunk_undefined)
521 #define area_undefined_p(x) ((x)==area_undefined)
528 #define gen_AREA_cons gen_area_cons
542 #define area_domain_number(x) ((x)->_type_)
543 #define area_size_(x) area_size(x)
544 #define area_size(x) ((x)->_area_size_)
545 #define area_layout_(x) area_layout(x)
546 #define area_layout(x) ((x)->_area_layout_)
550 #define BASIC(x) ((basic)((x).p))
551 #define basic_CAST(x) BASIC(x)
552 #define BASIC_CAST(x) BASIC(x)
553 #define BASIC_(x) ((x).e)
554 #define BASIC_TYPE basic
555 #define basic_TYPE basic
556 #define basic_undefined ((basic)gen_chunk_undefined)
557 #define basic_undefined_p(x) ((x)==basic_undefined)
564 #define gen_BASIC_cons gen_basic_cons
612 #define basic_domain_number(x) ((x)->_type_)
613 #define basic_tag(x) ((x)->_basic_tag__)
614 #define basic_int_p(x) (basic_tag(x)==is_basic_int)
615 #define basic_int_(x) basic_int(x)
616 #define basic_int(x) ((x)->_basic_union_._basic_int_)
617 #define basic_float_p(x) (basic_tag(x)==is_basic_float)
618 #define basic_float_(x) basic_float(x)
619 #define basic_float(x) ((x)->_basic_union_._basic_float_)
620 #define basic_logical_p(x) (basic_tag(x)==is_basic_logical)
621 #define basic_logical_(x) basic_logical(x)
622 #define basic_logical(x) ((x)->_basic_union_._basic_logical_)
623 #define basic_overloaded_p(x) (basic_tag(x)==is_basic_overloaded)
624 #define basic_overloaded_(x) basic_overloaded(x)
625 #define basic_overloaded(x) ((x)->_basic_union_._basic_overloaded_.u)
626 #define basic_complex_p(x) (basic_tag(x)==is_basic_complex)
627 #define basic_complex_(x) basic_complex(x)
628 #define basic_complex(x) ((x)->_basic_union_._basic_complex_)
629 #define basic_string_p(x) (basic_tag(x)==is_basic_string)
630 #define basic_string_(x) basic_string(x)
631 #define basic_string(x) ((x)->_basic_union_._basic_string_)
632 #define basic_bit_p(x) (basic_tag(x)==is_basic_bit)
633 #define basic_bit_(x) basic_bit(x)
634 #define basic_bit(x) ((x)->_basic_union_._basic_bit_)
635 #define basic_pointer_p(x) (basic_tag(x)==is_basic_pointer)
636 #define basic_pointer_(x) basic_pointer(x)
637 #define basic_pointer(x) ((x)->_basic_union_._basic_pointer_)
638 #define basic_derived_p(x) (basic_tag(x)==is_basic_derived)
639 #define basic_derived_(x) basic_derived(x)
640 #define basic_derived(x) ((x)->_basic_union_._basic_derived_)
641 #define basic_typedef_p(x) (basic_tag(x)==is_basic_typedef)
642 #define basic_typedef_(x) basic_typedef(x)
643 #define basic_typedef(x) ((x)->_basic_union_._basic_typedef_)
647 #define CALLEES(x) ((callees)((x).p))
648 #define callees_CAST(x) CALLEES(x)
649 #define CALLEES_CAST(x) CALLEES(x)
650 #define CALLEES_(x) ((x).e)
651 #define CALLEES_TYPE callees
652 #define callees_TYPE callees
653 #define callees_undefined ((callees)gen_chunk_undefined)
654 #define callees_undefined_p(x) ((x)==callees_undefined)
661 #define gen_CALLEES_cons gen_callees_cons
674 #define callees_domain_number(x) ((x)->_type_)
675 #define callees_callees(x) ((x)->_callees_holder_)
679 #define CALL(x) ((call)((x).p))
680 #define call_CAST(x) CALL(x)
681 #define CALL_CAST(x) CALL(x)
682 #define CALL_(x) ((x).e)
683 #define CALL_TYPE call
684 #define call_TYPE call
685 #define call_undefined ((call)gen_chunk_undefined)
686 #define call_undefined_p(x) ((x)==call_undefined)
693 #define gen_CALL_cons gen_call_cons
707 #define call_domain_number(x) ((x)->_type_)
708 #define call_function_(x) call_function(x)
709 #define call_function(x) ((x)->_call_function_)
710 #define call_arguments_(x) call_arguments(x)
711 #define call_arguments(x) ((x)->_call_arguments_)
715 #define CAST(x) ((cast)((x).p))
716 #define cast_CAST(x) CAST(x)
717 #define CAST_CAST(x) CAST(x)
718 #define CAST_(x) ((x).e)
719 #define CAST_TYPE cast
720 #define cast_TYPE cast
721 #define cast_undefined ((cast)gen_chunk_undefined)
722 #define cast_undefined_p(x) ((x)==cast_undefined)
729 #define gen_CAST_cons gen_cast_cons
743 #define cast_domain_number(x) ((x)->_type_)
744 #define cast_type_(x) cast_type(x)
745 #define cast_type(x) ((x)->_cast_type_)
746 #define cast_expression_(x) cast_expression(x)
747 #define cast_expression(x) ((x)->_cast_expression_)
751 #define CODE(x) ((code)((x).p))
752 #define code_CAST(x) CODE(x)
753 #define CODE_CAST(x) CODE(x)
754 #define CODE_(x) ((x).e)
755 #define CODE_TYPE code
756 #define code_TYPE code
757 #define code_undefined ((code)gen_chunk_undefined)
758 #define code_undefined_p(x) ((x)==code_undefined)
765 #define gen_CODE_cons gen_code_cons
782 #define code_domain_number(x) ((x)->_type_)
783 #define code_declarations_(x) code_declarations(x)
784 #define code_declarations(x) ((x)->_code_declarations_)
785 #define code_decls_text_(x) code_decls_text(x)
786 #define code_decls_text(x) ((x)->_code_decls_text_)
787 #define code_initializations_(x) code_initializations(x)
788 #define code_initializations(x) ((x)->_code_initializations_)
789 #define code_externs_(x) code_externs(x)
790 #define code_externs(x) ((x)->_code_externs_)
791 #define code_language_(x) code_language(x)
792 #define code_language(x) ((x)->_code_language_)
796 #define CONSTANT(x) ((constant)((x).p))
797 #define constant_CAST(x) CONSTANT(x)
798 #define CONSTANT_CAST(x) CONSTANT(x)
799 #define CONSTANT_(x) ((x).e)
800 #define CONSTANT_TYPE constant
801 #define constant_TYPE constant
802 #define constant_undefined ((constant)gen_chunk_undefined)
803 #define constant_undefined_p(x) ((x)==constant_undefined)
810 #define gen_CONSTANT_cons gen_constant_cons
846 #define constant_domain_number(x) ((x)->_type_)
847 #define constant_tag(x) ((x)->_constant_tag__)
848 #define constant_int_p(x) (constant_tag(x)==is_constant_int)
849 #define constant_int_(x) constant_int(x)
850 #define constant_int(x) ((x)->_constant_union_._constant_int_)
851 #define constant_float_p(x) (constant_tag(x)==is_constant_float)
852 #define constant_float_(x) constant_float(x)
853 #define constant_float(x) ((x)->_constant_union_._constant_float_.f)
854 #define constant_logical_p(x) (constant_tag(x)==is_constant_logical)
855 #define constant_logical_(x) constant_logical(x)
856 #define constant_logical(x) ((x)->_constant_union_._constant_logical_)
857 #define constant_litteral_p(x) (constant_tag(x)==is_constant_litteral)
858 #define constant_litteral_(x) constant_litteral(x)
859 #define constant_litteral(x) ((x)->_constant_union_._constant_litteral_.u)
860 #define constant_call_p(x) (constant_tag(x)==is_constant_call)
861 #define constant_call_(x) constant_call(x)
862 #define constant_call(x) ((x)->_constant_union_._constant_call_)
863 #define constant_unknown_p(x) (constant_tag(x)==is_constant_unknown)
864 #define constant_unknown_(x) constant_unknown(x)
865 #define constant_unknown(x) ((x)->_constant_union_._constant_unknown_.u)
869 #define CONTROLMAP(x) ((controlmap)((x).p))
870 #define controlmap_CAST(x) CONTROLMAP(x)
871 #define CONTROLMAP_CAST(x) CONTROLMAP(x)
872 #define CONTROLMAP_(x) ((x).e)
873 #define CONTROLMAP_TYPE controlmap
874 #define controlmap_TYPE controlmap
875 #define controlmap_undefined ((controlmap)gen_chunk_undefined)
876 #define controlmap_undefined_p(x) ((x)==controlmap_undefined)
883 #define gen_CONTROLMAP_cons gen_controlmap_cons
896 #define controlmap_domain_number(x) ((x)->_type_)
897 #define controlmap_hash_table(x) ((x)->_controlmap_holder_)
898 #define controlmap_key_type statement
899 #define controlmap_value_type control
900 #define CONTROLMAP_MAP(k,v,c,f) FUNCTION_MAP(controlmap,p,p,k,v,c,f)
901 #define CONTROLMAP_FOREACH(k,v,f) FUNCTION_FOREACH(controlmap,p,p,k,v,f)
910 #define CONTROL(x) ((control)((x).p))
911 #define control_CAST(x) CONTROL(x)
912 #define CONTROL_CAST(x) CONTROL(x)
913 #define CONTROL_(x) ((x).e)
914 #define CONTROL_TYPE control
915 #define control_TYPE control
916 #define control_undefined ((control)gen_chunk_undefined)
917 #define control_undefined_p(x) ((x)==control_undefined)
924 #define gen_CONTROL_cons gen_control_cons
939 #define control_domain_number(x) ((x)->_type_)
940 #define control_statement_(x) control_statement(x)
941 #define control_statement(x) ((x)->_control_statement_)
942 #define control_predecessors_(x) control_predecessors(x)
943 #define control_predecessors(x) ((x)->_control_predecessors_)
944 #define control_successors_(x) control_successors(x)
945 #define control_successors(x) ((x)->_control_successors_)
949 #define DIMENSION(x) ((dimension)((x).p))
950 #define dimension_CAST(x) DIMENSION(x)
951 #define DIMENSION_CAST(x) DIMENSION(x)
952 #define DIMENSION_(x) ((x).e)
953 #define DIMENSION_TYPE dimension
954 #define dimension_TYPE dimension
955 #define dimension_undefined ((dimension)gen_chunk_undefined)
956 #define dimension_undefined_p(x) ((x)==dimension_undefined)
963 #define gen_DIMENSION_cons gen_dimension_cons
978 #define dimension_domain_number(x) ((x)->_type_)
979 #define dimension_lower_(x) dimension_lower(x)
980 #define dimension_lower(x) ((x)->_dimension_lower_)
981 #define dimension_upper_(x) dimension_upper(x)
982 #define dimension_upper(x) ((x)->_dimension_upper_)
983 #define dimension_qualifiers_(x) dimension_qualifiers(x)
984 #define dimension_qualifiers(x) ((x)->_dimension_qualifiers_)
988 #define DUMMY(x) ((dummy)((x).p))
989 #define dummy_CAST(x) DUMMY(x)
990 #define DUMMY_CAST(x) DUMMY(x)
991 #define DUMMY_(x) ((x).e)
992 #define DUMMY_TYPE dummy
993 #define dummy_TYPE dummy
994 #define dummy_undefined ((dummy)gen_chunk_undefined)
995 #define dummy_undefined_p(x) ((x)==dummy_undefined)
1002 #define gen_DUMMY_cons gen_dummy_cons
1026 #define dummy_domain_number(x) ((x)->_type_)
1027 #define dummy_tag(x) ((x)->_dummy_tag__)
1028 #define dummy_unknown_p(x) (dummy_tag(x)==is_dummy_unknown)
1029 #define dummy_unknown_(x) dummy_unknown(x)
1030 #define dummy_unknown(x) ((x)->_dummy_union_._dummy_unknown_.u)
1031 #define dummy_identifier_p(x) (dummy_tag(x)==is_dummy_identifier)
1032 #define dummy_identifier_(x) dummy_identifier(x)
1033 #define dummy_identifier(x) ((x)->_dummy_union_._dummy_identifier_)
1037 #define ENTITY_INT(x) ((entity_int)((x).p))
1038 #define entity_int_CAST(x) ENTITY_INT(x)
1039 #define ENTITY_INT_CAST(x) ENTITY_INT(x)
1040 #define ENTITY_INT_(x) ((x).e)
1041 #define ENTITY_INT_TYPE entity_int
1042 #define entity_int_TYPE entity_int
1043 #define entity_int_undefined ((entity_int)gen_chunk_undefined)
1044 #define entity_int_undefined_p(x) ((x)==entity_int_undefined)
1051 #define gen_ENTITY_INT_cons gen_entity_int_cons
1064 #define entity_int_domain_number(x) ((x)->_type_)
1065 #define entity_int_hash_table(x) ((x)->_entity_int_holder_)
1066 #define entity_int_key_type entity
1067 #define entity_int_value_type intptr_t
1068 #define ENTITY_INT_MAP(k,v,c,f) FUNCTION_MAP(entity_int,p,i,k,v,c,f)
1069 #define ENTITY_INT_FOREACH(k,v,f) FUNCTION_FOREACH(entity_int,p,i,k,v,f)
1078 #define ENTITY_TO_ENTITY(x) ((entity_to_entity)((x).p))
1079 #define entity_to_entity_CAST(x) ENTITY_TO_ENTITY(x)
1080 #define ENTITY_TO_ENTITY_CAST(x) ENTITY_TO_ENTITY(x)
1081 #define ENTITY_TO_ENTITY_(x) ((x).e)
1082 #define ENTITY_TO_ENTITY_TYPE entity_to_entity
1083 #define entity_to_entity_TYPE entity_to_entity
1084 #define entity_to_entity_undefined ((entity_to_entity)gen_chunk_undefined)
1085 #define entity_to_entity_undefined_p(x) ((x)==entity_to_entity_undefined)
1092 #define gen_ENTITY_TO_ENTITY_cons gen_entity_to_entity_cons
1105 #define entity_to_entity_domain_number(x) ((x)->_type_)
1106 #define entity_to_entity_hash_table(x) ((x)->_entity_to_entity_holder_)
1107 #define entity_to_entity_key_type entity
1108 #define entity_to_entity_value_type entity
1109 #define ENTITY_TO_ENTITY_MAP(k,v,c,f) FUNCTION_MAP(entity_to_entity,p,p,k,v,c,f)
1110 #define ENTITY_TO_ENTITY_FOREACH(k,v,f) FUNCTION_FOREACH(entity_to_entity,p,p,k,v,f)
1119 #define EVALUATION(x) ((evaluation)((x).p))
1120 #define evaluation_CAST(x) EVALUATION(x)
1121 #define EVALUATION_CAST(x) EVALUATION(x)
1122 #define EVALUATION_(x) ((x).e)
1123 #define EVALUATION_TYPE evaluation
1124 #define evaluation_TYPE evaluation
1125 #define evaluation_undefined ((evaluation)gen_chunk_undefined)
1126 #define evaluation_undefined_p(x) ((x)==evaluation_undefined)
1133 #define gen_EVALUATION_cons gen_evaluation_cons
1157 #define evaluation_domain_number(x) ((x)->_type_)
1158 #define evaluation_tag(x) ((x)->_evaluation_tag__)
1159 #define evaluation_before_p(x) (evaluation_tag(x)==is_evaluation_before)
1160 #define evaluation_before_(x) evaluation_before(x)
1161 #define evaluation_before(x) ((x)->_evaluation_union_._evaluation_before_.u)
1162 #define evaluation_after_p(x) (evaluation_tag(x)==is_evaluation_after)
1163 #define evaluation_after_(x) evaluation_after(x)
1164 #define evaluation_after(x) ((x)->_evaluation_union_._evaluation_after_.u)
1168 #define EXECUTION(x) ((execution)((x).p))
1169 #define execution_CAST(x) EXECUTION(x)
1170 #define EXECUTION_CAST(x) EXECUTION(x)
1171 #define EXECUTION_(x) ((x).e)
1172 #define EXECUTION_TYPE execution
1173 #define execution_TYPE execution
1174 #define execution_undefined ((execution)gen_chunk_undefined)
1175 #define execution_undefined_p(x) ((x)==execution_undefined)
1182 #define gen_EXECUTION_cons gen_execution_cons
1206 #define execution_domain_number(x) ((x)->_type_)
1207 #define execution_tag(x) ((x)->_execution_tag__)
1208 #define execution_sequential_p(x) (execution_tag(x)==is_execution_sequential)
1209 #define execution_sequential_(x) execution_sequential(x)
1210 #define execution_sequential(x) ((x)->_execution_union_._execution_sequential_.u)
1211 #define execution_parallel_p(x) (execution_tag(x)==is_execution_parallel)
1212 #define execution_parallel_(x) execution_parallel(x)
1213 #define execution_parallel(x) ((x)->_execution_union_._execution_parallel_.u)
1217 #define EXPRESSION(x) ((expression)((x).p))
1218 #define expression_CAST(x) EXPRESSION(x)
1219 #define EXPRESSION_CAST(x) EXPRESSION(x)
1220 #define EXPRESSION_(x) ((x).e)
1221 #define EXPRESSION_TYPE expression
1222 #define expression_TYPE expression
1223 #define expression_undefined ((expression)gen_chunk_undefined)
1224 #define expression_undefined_p(x) ((x)==expression_undefined)
1231 #define gen_EXPRESSION_cons gen_expression_cons
1245 #define expression_domain_number(x) ((x)->_type_)
1246 #define expression_syntax_(x) expression_syntax(x)
1247 #define expression_syntax(x) ((x)->_expression_syntax_)
1248 #define expression_normalized_(x) expression_normalized(x)
1249 #define expression_normalized(x) ((x)->_expression_normalized_)
1253 #define EXTENSION(x) ((extension)((x).p))
1254 #define extension_CAST(x) EXTENSION(x)
1255 #define EXTENSION_CAST(x) EXTENSION(x)
1256 #define EXTENSION_(x) ((x).e)
1257 #define EXTENSION_TYPE extension
1258 #define extension_TYPE extension
1259 #define extension_undefined ((extension)gen_chunk_undefined)
1260 #define extension_undefined_p(x) ((x)==extension_undefined)
1267 #define gen_EXTENSION_cons gen_extension_cons
1291 #define extension_domain_number(x) ((x)->_type_)
1292 #define extension_tag(x) ((x)->_extension_tag__)
1293 #define extension_pragma_p(x) (extension_tag(x)==is_extension_pragma)
1294 #define extension_pragma_(x) extension_pragma(x)
1295 #define extension_pragma(x) ((x)->_extension_union_._extension_pragma_)
1296 #define extension_unknown_p(x) (extension_tag(x)==is_extension_unknown)
1297 #define extension_unknown_(x) extension_unknown(x)
1298 #define extension_unknown(x) ((x)->_extension_union_._extension_unknown_.u)
1302 #define EXTENSIONS(x) ((extensions)((x).p))
1303 #define extensions_CAST(x) EXTENSIONS(x)
1304 #define EXTENSIONS_CAST(x) EXTENSIONS(x)
1305 #define EXTENSIONS_(x) ((x).e)
1306 #define EXTENSIONS_TYPE extensions
1307 #define extensions_TYPE extensions
1308 #define extensions_undefined ((extensions)gen_chunk_undefined)
1309 #define extensions_undefined_p(x) ((x)==extensions_undefined)
1316 #define gen_EXTENSIONS_cons gen_extensions_cons
1329 #define extensions_domain_number(x) ((x)->_type_)
1330 #define extensions_extension(x) ((x)->_extensions_holder_)
1334 #define FORLOOP(x) ((forloop)((x).p))
1335 #define forloop_CAST(x) FORLOOP(x)
1336 #define FORLOOP_CAST(x) FORLOOP(x)
1337 #define FORLOOP_(x) ((x).e)
1338 #define FORLOOP_TYPE forloop
1339 #define forloop_TYPE forloop
1340 #define forloop_undefined ((forloop)gen_chunk_undefined)
1341 #define forloop_undefined_p(x) ((x)==forloop_undefined)
1348 #define gen_FORLOOP_cons gen_forloop_cons
1364 #define forloop_domain_number(x) ((x)->_type_)
1365 #define forloop_initialization_(x) forloop_initialization(x)
1366 #define forloop_initialization(x) ((x)->_forloop_initialization_)
1367 #define forloop_condition_(x) forloop_condition(x)
1368 #define forloop_condition(x) ((x)->_forloop_condition_)
1369 #define forloop_increment_(x) forloop_increment(x)
1370 #define forloop_increment(x) ((x)->_forloop_increment_)
1371 #define forloop_body_(x) forloop_body(x)
1372 #define forloop_body(x) ((x)->_forloop_body_)
1376 #define FORMAL(x) ((formal)((x).p))
1377 #define formal_CAST(x) FORMAL(x)
1378 #define FORMAL_CAST(x) FORMAL(x)
1379 #define FORMAL_(x) ((x).e)
1380 #define FORMAL_TYPE formal
1381 #define formal_TYPE formal
1382 #define formal_undefined ((formal)gen_chunk_undefined)
1383 #define formal_undefined_p(x) ((x)==formal_undefined)
1390 #define gen_FORMAL_cons gen_formal_cons
1404 #define formal_domain_number(x) ((x)->_type_)
1405 #define formal_function_(x) formal_function(x)
1406 #define formal_function(x) ((x)->_formal_function_)
1407 #define formal_offset_(x) formal_offset(x)
1408 #define formal_offset(x) ((x)->_formal_offset_)
1412 #define FUNCTIONAL(x) ((functional)((x).p))
1413 #define functional_CAST(x) FUNCTIONAL(x)
1414 #define FUNCTIONAL_CAST(x) FUNCTIONAL(x)
1415 #define FUNCTIONAL_(x) ((x).e)
1416 #define FUNCTIONAL_TYPE functional
1417 #define functional_TYPE functional
1418 #define functional_undefined ((functional)gen_chunk_undefined)
1419 #define functional_undefined_p(x) ((x)==functional_undefined)
1426 #define gen_FUNCTIONAL_cons gen_functional_cons
1440 #define functional_domain_number(x) ((x)->_type_)
1441 #define functional_parameters_(x) functional_parameters(x)
1442 #define functional_parameters(x) ((x)->_functional_parameters_)
1443 #define functional_result_(x) functional_result(x)
1444 #define functional_result(x) ((x)->_functional_result_)
1448 #define INSTRUCTION(x) ((instruction)((x).p))
1449 #define instruction_CAST(x) INSTRUCTION(x)
1450 #define INSTRUCTION_CAST(x) INSTRUCTION(x)
1451 #define INSTRUCTION_(x) ((x).e)
1452 #define INSTRUCTION_TYPE instruction
1453 #define instruction_TYPE instruction
1454 #define instruction_undefined ((instruction)gen_chunk_undefined)
1455 #define instruction_undefined_p(x) ((x)==instruction_undefined)
1462 #define gen_INSTRUCTION_cons gen_instruction_cons
1510 #define instruction_domain_number(x) ((x)->_type_)
1511 #define instruction_tag(x) ((x)->_instruction_tag__)
1512 #define instruction_sequence_p(x) (instruction_tag(x)==is_instruction_sequence)
1513 #define instruction_sequence_(x) instruction_sequence(x)
1514 #define instruction_sequence(x) ((x)->_instruction_union_._instruction_sequence_)
1515 #define instruction_test_p(x) (instruction_tag(x)==is_instruction_test)
1516 #define instruction_test_(x) instruction_test(x)
1517 #define instruction_test(x) ((x)->_instruction_union_._instruction_test_)
1518 #define instruction_loop_p(x) (instruction_tag(x)==is_instruction_loop)
1519 #define instruction_loop_(x) instruction_loop(x)
1520 #define instruction_loop(x) ((x)->_instruction_union_._instruction_loop_)
1521 #define instruction_whileloop_p(x) (instruction_tag(x)==is_instruction_whileloop)
1522 #define instruction_whileloop_(x) instruction_whileloop(x)
1523 #define instruction_whileloop(x) ((x)->_instruction_union_._instruction_whileloop_)
1524 #define instruction_goto_p(x) (instruction_tag(x)==is_instruction_goto)
1525 #define instruction_goto_(x) instruction_goto(x)
1526 #define instruction_goto(x) ((x)->_instruction_union_._instruction_goto_)
1527 #define instruction_call_p(x) (instruction_tag(x)==is_instruction_call)
1528 #define instruction_call_(x) instruction_call(x)
1529 #define instruction_call(x) ((x)->_instruction_union_._instruction_call_)
1530 #define instruction_unstructured_p(x) (instruction_tag(x)==is_instruction_unstructured)
1531 #define instruction_unstructured_(x) instruction_unstructured(x)
1532 #define instruction_unstructured(x) ((x)->_instruction_union_._instruction_unstructured_)
1533 #define instruction_multitest_p(x) (instruction_tag(x)==is_instruction_multitest)
1534 #define instruction_multitest_(x) instruction_multitest(x)
1535 #define instruction_multitest(x) ((x)->_instruction_union_._instruction_multitest_)
1536 #define instruction_forloop_p(x) (instruction_tag(x)==is_instruction_forloop)
1537 #define instruction_forloop_(x) instruction_forloop(x)
1538 #define instruction_forloop(x) ((x)->_instruction_union_._instruction_forloop_)
1539 #define instruction_expression_p(x) (instruction_tag(x)==is_instruction_expression)
1540 #define instruction_expression_(x) instruction_expression(x)
1541 #define instruction_expression(x) ((x)->_instruction_union_._instruction_expression_)
1545 #define LANGUAGE(x) ((language)((x).p))
1546 #define language_CAST(x) LANGUAGE(x)
1547 #define LANGUAGE_CAST(x) LANGUAGE(x)
1548 #define LANGUAGE_(x) ((x).e)
1549 #define LANGUAGE_TYPE language
1550 #define language_TYPE language
1551 #define language_undefined ((language)gen_chunk_undefined)
1552 #define language_undefined_p(x) ((x)==language_undefined)
1559 #define gen_LANGUAGE_cons gen_language_cons
1589 #define language_domain_number(x) ((x)->_type_)
1590 #define language_tag(x) ((x)->_language_tag__)
1591 #define language_fortran_p(x) (language_tag(x)==is_language_fortran)
1592 #define language_fortran_(x) language_fortran(x)
1593 #define language_fortran(x) ((x)->_language_union_._language_fortran_.u)
1594 #define language_c_p(x) (language_tag(x)==is_language_c)
1595 #define language_c_(x) language_c(x)
1596 #define language_c(x) ((x)->_language_union_._language_c_.u)
1597 #define language_fortran95_p(x) (language_tag(x)==is_language_fortran95)
1598 #define language_fortran95_(x) language_fortran95(x)
1599 #define language_fortran95(x) ((x)->_language_union_._language_fortran95_.u)
1600 #define language_unknown_p(x) (language_tag(x)==is_language_unknown)
1601 #define language_unknown_(x) language_unknown(x)
1602 #define language_unknown(x) ((x)->_language_union_._language_unknown_.u)
1606 #define LOOP(x) ((loop)((x).p))
1607 #define loop_CAST(x) LOOP(x)
1608 #define LOOP_CAST(x) LOOP(x)
1609 #define LOOP_(x) ((x).e)
1610 #define LOOP_TYPE loop
1611 #define loop_TYPE loop
1612 #define loop_undefined ((loop)gen_chunk_undefined)
1613 #define loop_undefined_p(x) ((x)==loop_undefined)
1620 #define gen_LOOP_cons gen_loop_cons
1638 #define loop_domain_number(x) ((x)->_type_)
1639 #define loop_index_(x) loop_index(x)
1640 #define loop_index(x) ((x)->_loop_index_)
1641 #define loop_range_(x) loop_range(x)
1642 #define loop_range(x) ((x)->_loop_range_)
1643 #define loop_body_(x) loop_body(x)
1644 #define loop_body(x) ((x)->_loop_body_)
1645 #define loop_label_(x) loop_label(x)
1646 #define loop_label(x) ((x)->_loop_label_)
1647 #define loop_execution_(x) loop_execution(x)
1648 #define loop_execution(x) ((x)->_loop_execution_)
1649 #define loop_locals_(x) loop_locals(x)
1650 #define loop_locals(x) ((x)->_loop_locals_)
1654 #define MODE(x) ((mode)((x).p))
1655 #define mode_CAST(x) MODE(x)
1656 #define MODE_CAST(x) MODE(x)
1657 #define MODE_(x) ((x).e)
1658 #define MODE_TYPE mode
1659 #define mode_TYPE mode
1660 #define mode_undefined ((mode)gen_chunk_undefined)
1661 #define mode_undefined_p(x) ((x)==mode_undefined)
1668 #define gen_MODE_cons gen_mode_cons
1692 #define mode_domain_number(x) ((x)->_type_)
1693 #define mode_tag(x) ((x)->_mode_tag__)
1694 #define mode_value_p(x) (mode_tag(x)==is_mode_value)
1695 #define mode_value_(x) mode_value(x)
1696 #define mode_value(x) ((x)->_mode_union_._mode_value_.u)
1697 #define mode_reference_p(x) (mode_tag(x)==is_mode_reference)
1698 #define mode_reference_(x) mode_reference(x)
1699 #define mode_reference(x) ((x)->_mode_union_._mode_reference_.u)
1703 #define MULTITEST(x) ((multitest)((x).p))
1704 #define multitest_CAST(x) MULTITEST(x)
1705 #define MULTITEST_CAST(x) MULTITEST(x)
1706 #define MULTITEST_(x) ((x).e)
1707 #define MULTITEST_TYPE multitest
1708 #define multitest_TYPE multitest
1709 #define multitest_undefined ((multitest)gen_chunk_undefined)
1710 #define multitest_undefined_p(x) ((x)==multitest_undefined)
1717 #define gen_MULTITEST_cons gen_multitest_cons
1731 #define multitest_domain_number(x) ((x)->_type_)
1732 #define multitest_controller_(x) multitest_controller(x)
1733 #define multitest_controller(x) ((x)->_multitest_controller_)
1734 #define multitest_body_(x) multitest_body(x)
1735 #define multitest_body(x) ((x)->_multitest_body_)
1739 #define NORMALIZED(x) ((normalized)((x).p))
1740 #define normalized_CAST(x) NORMALIZED(x)
1741 #define NORMALIZED_CAST(x) NORMALIZED(x)
1742 #define NORMALIZED_(x) ((x).e)
1743 #define NORMALIZED_TYPE normalized
1744 #define normalized_TYPE normalized
1745 #define normalized_undefined ((normalized)gen_chunk_undefined)
1746 #define normalized_undefined_p(x) ((x)==normalized_undefined)
1753 #define gen_NORMALIZED_cons gen_normalized_cons
1777 #define normalized_domain_number(x) ((x)->_type_)
1778 #define normalized_tag(x) ((x)->_normalized_tag__)
1779 #define normalized_linear_p(x) (normalized_tag(x)==is_normalized_linear)
1780 #define normalized_linear_(x) normalized_linear(x)
1781 #define normalized_linear(x) ((x)->_normalized_union_._normalized_linear_)
1782 #define normalized_complex_p(x) (normalized_tag(x)==is_normalized_complex)
1783 #define normalized_complex_(x) normalized_complex(x)
1784 #define normalized_complex(x) ((x)->_normalized_union_._normalized_complex_.u)
1788 #define PARAMETER(x) ((parameter)((x).p))
1789 #define parameter_CAST(x) PARAMETER(x)
1790 #define PARAMETER_CAST(x) PARAMETER(x)
1791 #define PARAMETER_(x) ((x).e)
1792 #define PARAMETER_TYPE parameter
1793 #define parameter_TYPE parameter
1794 #define parameter_undefined ((parameter)gen_chunk_undefined)
1795 #define parameter_undefined_p(x) ((x)==parameter_undefined)
1802 #define gen_PARAMETER_cons gen_parameter_cons
1817 #define parameter_domain_number(x) ((x)->_type_)
1818 #define parameter_type_(x) parameter_type(x)
1819 #define parameter_type(x) ((x)->_parameter_type_)
1820 #define parameter_mode_(x) parameter_mode(x)
1821 #define parameter_mode(x) ((x)->_parameter_mode_)
1822 #define parameter_dummy_(x) parameter_dummy(x)
1823 #define parameter_dummy(x) ((x)->_parameter_dummy_)
1827 #define PERSISTANT_STATEMENT_TO_CLUSTER(x) ((persistant_statement_to_cluster)((x).p))
1828 #define persistant_statement_to_cluster_CAST(x) PERSISTANT_STATEMENT_TO_CLUSTER(x)
1829 #define PERSISTANT_STATEMENT_TO_CLUSTER_CAST(x) PERSISTANT_STATEMENT_TO_CLUSTER(x)
1830 #define PERSISTANT_STATEMENT_TO_CLUSTER_(x) ((x).e)
1831 #define PERSISTANT_STATEMENT_TO_CLUSTER_TYPE persistant_statement_to_cluster
1832 #define persistant_statement_to_cluster_TYPE persistant_statement_to_cluster
1833 #define persistant_statement_to_cluster_undefined ((persistant_statement_to_cluster)gen_chunk_undefined)
1834 #define persistant_statement_to_cluster_undefined_p(x) ((x)==persistant_statement_to_cluster_undefined)
1841 #define gen_PERSISTANT_STATEMENT_TO_CLUSTER_cons gen_persistant_statement_to_cluster_cons
1854 #define persistant_statement_to_cluster_domain_number(x) ((x)->_type_)
1855 #define persistant_statement_to_cluster_hash_table(x) ((x)->_persistant_statement_to_cluster_holder_)
1856 #define persistant_statement_to_cluster_key_type intptr_t
1857 #define persistant_statement_to_cluster_value_type intptr_t
1858 #define PERSISTANT_STATEMENT_TO_CLUSTER_MAP(k,v,c,f) FUNCTION_MAP(persistant_statement_to_cluster,i,i,k,v,c,f)
1859 #define PERSISTANT_STATEMENT_TO_CLUSTER_FOREACH(k,v,f) FUNCTION_FOREACH(persistant_statement_to_cluster,i,i,k,v,f)
1868 #define PERSISTANT_STATEMENT_TO_CONTROL(x) ((persistant_statement_to_control)((x).p))
1869 #define persistant_statement_to_control_CAST(x) PERSISTANT_STATEMENT_TO_CONTROL(x)
1870 #define PERSISTANT_STATEMENT_TO_CONTROL_CAST(x) PERSISTANT_STATEMENT_TO_CONTROL(x)
1871 #define PERSISTANT_STATEMENT_TO_CONTROL_(x) ((x).e)
1872 #define PERSISTANT_STATEMENT_TO_CONTROL_TYPE persistant_statement_to_control
1873 #define persistant_statement_to_control_TYPE persistant_statement_to_control
1874 #define persistant_statement_to_control_undefined ((persistant_statement_to_control)gen_chunk_undefined)
1875 #define persistant_statement_to_control_undefined_p(x) ((x)==persistant_statement_to_control_undefined)
1882 #define gen_PERSISTANT_STATEMENT_TO_CONTROL_cons gen_persistant_statement_to_control_cons
1895 #define persistant_statement_to_control_domain_number(x) ((x)->_type_)
1896 #define persistant_statement_to_control_hash_table(x) ((x)->_persistant_statement_to_control_holder_)
1897 #define persistant_statement_to_control_key_type statement
1898 #define persistant_statement_to_control_value_type control
1899 #define PERSISTANT_STATEMENT_TO_CONTROL_MAP(k,v,c,f) FUNCTION_MAP(persistant_statement_to_control,p,p,k,v,c,f)
1900 #define PERSISTANT_STATEMENT_TO_CONTROL_FOREACH(k,v,f) FUNCTION_FOREACH(persistant_statement_to_control,p,p,k,v,f)
1909 #define PERSISTANT_STATEMENT_TO_INT(x) ((persistant_statement_to_int)((x).p))
1910 #define persistant_statement_to_int_CAST(x) PERSISTANT_STATEMENT_TO_INT(x)
1911 #define PERSISTANT_STATEMENT_TO_INT_CAST(x) PERSISTANT_STATEMENT_TO_INT(x)
1912 #define PERSISTANT_STATEMENT_TO_INT_(x) ((x).e)
1913 #define PERSISTANT_STATEMENT_TO_INT_TYPE persistant_statement_to_int
1914 #define persistant_statement_to_int_TYPE persistant_statement_to_int
1915 #define persistant_statement_to_int_undefined ((persistant_statement_to_int)gen_chunk_undefined)
1916 #define persistant_statement_to_int_undefined_p(x) ((x)==persistant_statement_to_int_undefined)
1923 #define gen_PERSISTANT_STATEMENT_TO_INT_cons gen_persistant_statement_to_int_cons
1936 #define persistant_statement_to_int_domain_number(x) ((x)->_type_)
1937 #define persistant_statement_to_int_hash_table(x) ((x)->_persistant_statement_to_int_holder_)
1938 #define persistant_statement_to_int_key_type statement
1939 #define persistant_statement_to_int_value_type intptr_t
1940 #define PERSISTANT_STATEMENT_TO_INT_MAP(k,v,c,f) FUNCTION_MAP(persistant_statement_to_int,p,i,k,v,c,f)
1941 #define PERSISTANT_STATEMENT_TO_INT_FOREACH(k,v,f) FUNCTION_FOREACH(persistant_statement_to_int,p,i,k,v,f)
1950 #define PERSISTANT_STATEMENT_TO_STATEMENT(x) ((persistant_statement_to_statement)((x).p))
1951 #define persistant_statement_to_statement_CAST(x) PERSISTANT_STATEMENT_TO_STATEMENT(x)
1952 #define PERSISTANT_STATEMENT_TO_STATEMENT_CAST(x) PERSISTANT_STATEMENT_TO_STATEMENT(x)
1953 #define PERSISTANT_STATEMENT_TO_STATEMENT_(x) ((x).e)
1954 #define PERSISTANT_STATEMENT_TO_STATEMENT_TYPE persistant_statement_to_statement
1955 #define persistant_statement_to_statement_TYPE persistant_statement_to_statement
1956 #define persistant_statement_to_statement_undefined ((persistant_statement_to_statement)gen_chunk_undefined)
1957 #define persistant_statement_to_statement_undefined_p(x) ((x)==persistant_statement_to_statement_undefined)
1964 #define gen_PERSISTANT_STATEMENT_TO_STATEMENT_cons gen_persistant_statement_to_statement_cons
1977 #define persistant_statement_to_statement_domain_number(x) ((x)->_type_)
1978 #define persistant_statement_to_statement_hash_table(x) ((x)->_persistant_statement_to_statement_holder_)
1979 #define persistant_statement_to_statement_key_type statement
1980 #define persistant_statement_to_statement_value_type statement
1981 #define PERSISTANT_STATEMENT_TO_STATEMENT_MAP(k,v,c,f) FUNCTION_MAP(persistant_statement_to_statement,p,p,k,v,c,f)
1982 #define PERSISTANT_STATEMENT_TO_STATEMENT_FOREACH(k,v,f) FUNCTION_FOREACH(persistant_statement_to_statement,p,p,k,v,f)
1991 #define PRAGMA(x) ((pragma)((x).p))
1992 #define pragma_CAST(x) PRAGMA(x)
1993 #define PRAGMA_CAST(x) PRAGMA(x)
1994 #define PRAGMA_(x) ((x).e)
1995 #define PRAGMA_TYPE pragma
1996 #define pragma_TYPE pragma
1997 #define pragma_undefined ((pragma)gen_chunk_undefined)
1998 #define pragma_undefined_p(x) ((x)==pragma_undefined)
2005 #define gen_PRAGMA_cons gen_pragma_cons
2029 #define pragma_domain_number(x) ((x)->_type_)
2030 #define pragma_tag(x) ((x)->_pragma_tag__)
2031 #define pragma_string_p(x) (pragma_tag(x)==is_pragma_string)
2032 #define pragma_string_(x) pragma_string(x)
2033 #define pragma_string(x) ((x)->_pragma_union_._pragma_string_)
2034 #define pragma_expression_p(x) (pragma_tag(x)==is_pragma_expression)
2035 #define pragma_expression_(x) pragma_expression(x)
2036 #define pragma_expression(x) ((x)->_pragma_union_._pragma_expression_)
2040 #define PREDICATE(x) ((predicate)((x).p))
2041 #define predicate_CAST(x) PREDICATE(x)
2042 #define PREDICATE_CAST(x) PREDICATE(x)
2043 #define PREDICATE_(x) ((x).e)
2044 #define PREDICATE_TYPE predicate
2045 #define predicate_TYPE predicate
2046 #define predicate_undefined ((predicate)gen_chunk_undefined)
2047 #define predicate_undefined_p(x) ((x)==predicate_undefined)
2054 #define gen_PREDICATE_cons gen_predicate_cons
2067 #define predicate_domain_number(x) ((x)->_type_)
2068 #define predicate_system_(x) predicate_system(x)
2069 #define predicate_system(x) ((x)->_predicate_system_)
2073 #define PREFERENCE(x) ((preference)((x).p))
2074 #define preference_CAST(x) PREFERENCE(x)
2075 #define PREFERENCE_CAST(x) PREFERENCE(x)
2076 #define PREFERENCE_(x) ((x).e)
2077 #define PREFERENCE_TYPE preference
2078 #define preference_TYPE preference
2079 #define preference_undefined ((preference)gen_chunk_undefined)
2080 #define preference_undefined_p(x) ((x)==preference_undefined)
2087 #define gen_PREFERENCE_cons gen_preference_cons
2100 #define preference_domain_number(x) ((x)->_type_)
2101 #define preference_reference_(x) preference_reference(x)
2102 #define preference_reference(x) ((x)->_preference_reference_)
2106 #define QUALIFIER(x) ((qualifier)((x).p))
2107 #define qualifier_CAST(x) QUALIFIER(x)
2108 #define QUALIFIER_CAST(x) QUALIFIER(x)
2109 #define QUALIFIER_(x) ((x).e)
2110 #define QUALIFIER_TYPE qualifier
2111 #define qualifier_TYPE qualifier
2112 #define qualifier_undefined ((qualifier)gen_chunk_undefined)
2113 #define qualifier_undefined_p(x) ((x)==qualifier_undefined)
2120 #define gen_QUALIFIER_cons gen_qualifier_cons
2174 #define qualifier_domain_number(x) ((x)->_type_)
2175 #define qualifier_tag(x) ((x)->_qualifier_tag__)
2176 #define qualifier_const_p(x) (qualifier_tag(x)==is_qualifier_const)
2177 #define qualifier_const_(x) qualifier_const(x)
2178 #define qualifier_const(x) ((x)->_qualifier_union_._qualifier_const_.u)
2179 #define qualifier_restrict_p(x) (qualifier_tag(x)==is_qualifier_restrict)
2180 #define qualifier_restrict_(x) qualifier_restrict(x)
2181 #define qualifier_restrict(x) ((x)->_qualifier_union_._qualifier_restrict_.u)
2182 #define qualifier_volatile_p(x) (qualifier_tag(x)==is_qualifier_volatile)
2183 #define qualifier_volatile_(x) qualifier_volatile(x)
2184 #define qualifier_volatile(x) ((x)->_qualifier_union_._qualifier_volatile_.u)
2185 #define qualifier_register_p(x) (qualifier_tag(x)==is_qualifier_register)
2186 #define qualifier_register_(x) qualifier_register(x)
2187 #define qualifier_register(x) ((x)->_qualifier_union_._qualifier_register_.u)
2188 #define qualifier_auto_p(x) (qualifier_tag(x)==is_qualifier_auto)
2189 #define qualifier_auto_(x) qualifier_auto(x)
2190 #define qualifier_auto(x) ((x)->_qualifier_union_._qualifier_auto_.u)
2191 #define qualifier_thread_p(x) (qualifier_tag(x)==is_qualifier_thread)
2192 #define qualifier_thread_(x) qualifier_thread(x)
2193 #define qualifier_thread(x) ((x)->_qualifier_union_._qualifier_thread_.u)
2194 #define qualifier_asm_p(x) (qualifier_tag(x)==is_qualifier_asm)
2195 #define qualifier_asm_(x) qualifier_asm(x)
2196 #define qualifier_asm(x) ((x)->_qualifier_union_._qualifier_asm_)
2197 #define qualifier_static_dimension_p(x) (qualifier_tag(x)==is_qualifier_static_dimension)
2198 #define qualifier_static_dimension_(x) qualifier_static_dimension(x)
2199 #define qualifier_static_dimension(x) ((x)->_qualifier_union_._qualifier_static_dimension_.u)
2200 #define qualifier_local_p(x) (qualifier_tag(x)==is_qualifier_local)
2201 #define qualifier_local_(x) qualifier_local(x)
2202 #define qualifier_local(x) ((x)->_qualifier_union_._qualifier_local_.u)
2203 #define qualifier_global_p(x) (qualifier_tag(x)==is_qualifier_global)
2204 #define qualifier_global_(x) qualifier_global(x)
2205 #define qualifier_global(x) ((x)->_qualifier_union_._qualifier_global_.u)
2206 #define qualifier_constant_p(x) (qualifier_tag(x)==is_qualifier_constant)
2207 #define qualifier_constant_(x) qualifier_constant(x)
2208 #define qualifier_constant(x) ((x)->_qualifier_union_._qualifier_constant_.u)
2209 #define qualifier_private_p(x) (qualifier_tag(x)==is_qualifier_private)
2210 #define qualifier_private_(x) qualifier_private(x)
2211 #define qualifier_private(x) ((x)->_qualifier_union_._qualifier_private_.u)
2215 #define RAM(x) ((ram)((x).p))
2216 #define ram_CAST(x) RAM(x)
2217 #define RAM_CAST(x) RAM(x)
2218 #define RAM_(x) ((x).e)
2219 #define RAM_TYPE ram
2220 #define ram_TYPE ram
2221 #define ram_undefined ((ram)gen_chunk_undefined)
2222 #define ram_undefined_p(x) ((x)==ram_undefined)
2229 #define gen_RAM_cons gen_ram_cons
2245 #define ram_domain_number(x) ((x)->_type_)
2246 #define ram_function_(x) ram_function(x)
2247 #define ram_function(x) ((x)->_ram_function_)
2248 #define ram_section_(x) ram_section(x)
2249 #define ram_section(x) ((x)->_ram_section_)
2250 #define ram_offset_(x) ram_offset(x)
2251 #define ram_offset(x) ((x)->_ram_offset_)
2252 #define ram_shared_(x) ram_shared(x)
2253 #define ram_shared(x) ((x)->_ram_shared_)
2257 #define RANGE(x) ((range)((x).p))
2258 #define range_CAST(x) RANGE(x)
2259 #define RANGE_CAST(x) RANGE(x)
2260 #define RANGE_(x) ((x).e)
2261 #define RANGE_TYPE range
2262 #define range_TYPE range
2263 #define range_undefined ((range)gen_chunk_undefined)
2264 #define range_undefined_p(x) ((x)==range_undefined)
2271 #define gen_RANGE_cons gen_range_cons
2286 #define range_domain_number(x) ((x)->_type_)
2287 #define range_lower_(x) range_lower(x)
2288 #define range_lower(x) ((x)->_range_lower_)
2289 #define range_upper_(x) range_upper(x)
2290 #define range_upper(x) ((x)->_range_upper_)
2291 #define range_increment_(x) range_increment(x)
2292 #define range_increment(x) ((x)->_range_increment_)
2296 #define REFERENCE(x) ((reference)((x).p))
2297 #define reference_CAST(x) REFERENCE(x)
2298 #define REFERENCE_CAST(x) REFERENCE(x)
2299 #define REFERENCE_(x) ((x).e)
2300 #define REFERENCE_TYPE reference
2301 #define reference_TYPE reference
2302 #define reference_undefined ((reference)gen_chunk_undefined)
2303 #define reference_undefined_p(x) ((x)==reference_undefined)
2310 #define gen_REFERENCE_cons gen_reference_cons
2324 #define reference_domain_number(x) ((x)->_type_)
2325 #define reference_variable_(x) reference_variable(x)
2326 #define reference_variable(x) ((x)->_reference_variable_)
2327 #define reference_indices_(x) reference_indices(x)
2328 #define reference_indices(x) ((x)->_reference_indices_)
2332 #define SEQUENCE(x) ((sequence)((x).p))
2333 #define sequence_CAST(x) SEQUENCE(x)
2334 #define SEQUENCE_CAST(x) SEQUENCE(x)
2335 #define SEQUENCE_(x) ((x).e)
2336 #define SEQUENCE_TYPE sequence
2337 #define sequence_TYPE sequence
2338 #define sequence_undefined ((sequence)gen_chunk_undefined)
2339 #define sequence_undefined_p(x) ((x)==sequence_undefined)
2346 #define gen_SEQUENCE_cons gen_sequence_cons
2359 #define sequence_domain_number(x) ((x)->_type_)
2360 #define sequence_statements(x) ((x)->_sequence_holder_)
2364 #define SIZEOFEXPRESSION(x) ((sizeofexpression)((x).p))
2365 #define sizeofexpression_CAST(x) SIZEOFEXPRESSION(x)
2366 #define SIZEOFEXPRESSION_CAST(x) SIZEOFEXPRESSION(x)
2367 #define SIZEOFEXPRESSION_(x) ((x).e)
2368 #define SIZEOFEXPRESSION_TYPE sizeofexpression
2369 #define sizeofexpression_TYPE sizeofexpression
2370 #define sizeofexpression_undefined ((sizeofexpression)gen_chunk_undefined)
2371 #define sizeofexpression_undefined_p(x) ((x)==sizeofexpression_undefined)
2378 #define gen_SIZEOFEXPRESSION_cons gen_sizeofexpression_cons
2402 #define sizeofexpression_domain_number(x) ((x)->_type_)
2403 #define sizeofexpression_tag(x) ((x)->_sizeofexpression_tag__)
2404 #define sizeofexpression_type_p(x) (sizeofexpression_tag(x)==is_sizeofexpression_type)
2405 #define sizeofexpression_type_(x) sizeofexpression_type(x)
2406 #define sizeofexpression_type(x) ((x)->_sizeofexpression_union_._sizeofexpression_type_)
2407 #define sizeofexpression_expression_p(x) (sizeofexpression_tag(x)==is_sizeofexpression_expression)
2408 #define sizeofexpression_expression_(x) sizeofexpression_expression(x)
2409 #define sizeofexpression_expression(x) ((x)->_sizeofexpression_union_._sizeofexpression_expression_)
2413 #define STATEMENT(x) ((statement)((x).p))
2414 #define statement_CAST(x) STATEMENT(x)
2415 #define STATEMENT_CAST(x) STATEMENT(x)
2416 #define STATEMENT_(x) ((x).e)
2417 #define STATEMENT_TYPE statement
2418 #define statement_TYPE statement
2419 #define statement_undefined ((statement)gen_chunk_undefined)
2420 #define statement_undefined_p(x) ((x)==statement_undefined)
2427 #define gen_STATEMENT_cons gen_statement_cons
2448 #define statement_domain_number(x) ((x)->_type_)
2449 #define statement_label_(x) statement_label(x)
2450 #define statement_label(x) ((x)->_statement_label_)
2451 #define statement_number_(x) statement_number(x)
2452 #define statement_number(x) ((x)->_statement_number_)
2453 #define statement_ordering_(x) statement_ordering(x)
2454 #define statement_ordering(x) ((x)->_statement_ordering_)
2455 #define statement_comments_(x) statement_comments(x)
2456 #define statement_comments(x) ((x)->_statement_comments_)
2457 #define statement_instruction_(x) statement_instruction(x)
2458 #define statement_instruction(x) ((x)->_statement_instruction_)
2459 #define statement_declarations_(x) statement_declarations(x)
2460 #define statement_declarations(x) ((x)->_statement_declarations_)
2461 #define statement_decls_text_(x) statement_decls_text(x)
2462 #define statement_decls_text(x) ((x)->_statement_decls_text_)
2463 #define statement_extensions_(x) statement_extensions(x)
2464 #define statement_extensions(x) ((x)->_statement_extensions_)
2465 #define statement_synchronization_(x) statement_synchronization(x)
2466 #define statement_synchronization(x) ((x)->_statement_synchronization_)
2470 #define STORAGE(x) ((storage)((x).p))
2471 #define storage_CAST(x) STORAGE(x)
2472 #define STORAGE_CAST(x) STORAGE(x)
2473 #define STORAGE_(x) ((x).e)
2474 #define STORAGE_TYPE storage
2475 #define storage_TYPE storage
2476 #define storage_undefined ((storage)gen_chunk_undefined)
2477 #define storage_undefined_p(x) ((x)==storage_undefined)
2484 #define gen_STORAGE_cons gen_storage_cons
2514 #define storage_domain_number(x) ((x)->_type_)
2515 #define storage_tag(x) ((x)->_storage_tag__)
2516 #define storage_return_p(x) (storage_tag(x)==is_storage_return)
2517 #define storage_return_(x) storage_return(x)
2518 #define storage_return(x) ((x)->_storage_union_._storage_return_)
2519 #define storage_ram_p(x) (storage_tag(x)==is_storage_ram)
2520 #define storage_ram_(x) storage_ram(x)
2521 #define storage_ram(x) ((x)->_storage_union_._storage_ram_)
2522 #define storage_formal_p(x) (storage_tag(x)==is_storage_formal)
2523 #define storage_formal_(x) storage_formal(x)
2524 #define storage_formal(x) ((x)->_storage_union_._storage_formal_)
2525 #define storage_rom_p(x) (storage_tag(x)==is_storage_rom)
2526 #define storage_rom_(x) storage_rom(x)
2527 #define storage_rom(x) ((x)->_storage_union_._storage_rom_.u)
2531 #define SUBSCRIPT(x) ((subscript)((x).p))
2532 #define subscript_CAST(x) SUBSCRIPT(x)
2533 #define SUBSCRIPT_CAST(x) SUBSCRIPT(x)
2534 #define SUBSCRIPT_(x) ((x).e)
2535 #define SUBSCRIPT_TYPE subscript
2536 #define subscript_TYPE subscript
2537 #define subscript_undefined ((subscript)gen_chunk_undefined)
2538 #define subscript_undefined_p(x) ((x)==subscript_undefined)
2545 #define gen_SUBSCRIPT_cons gen_subscript_cons
2559 #define subscript_domain_number(x) ((x)->_type_)
2560 #define subscript_array_(x) subscript_array(x)
2561 #define subscript_array(x) ((x)->_subscript_array_)
2562 #define subscript_indices_(x) subscript_indices(x)
2563 #define subscript_indices(x) ((x)->_subscript_indices_)
2567 #define SYMBOLIC(x) ((symbolic)((x).p))
2568 #define symbolic_CAST(x) SYMBOLIC(x)
2569 #define SYMBOLIC_CAST(x) SYMBOLIC(x)
2570 #define SYMBOLIC_(x) ((x).e)
2571 #define SYMBOLIC_TYPE symbolic
2572 #define symbolic_TYPE symbolic
2573 #define symbolic_undefined ((symbolic)gen_chunk_undefined)
2574 #define symbolic_undefined_p(x) ((x)==symbolic_undefined)
2581 #define gen_SYMBOLIC_cons gen_symbolic_cons
2595 #define symbolic_domain_number(x) ((x)->_type_)
2596 #define symbolic_expression_(x) symbolic_expression(x)
2597 #define symbolic_expression(x) ((x)->_symbolic_expression_)
2598 #define symbolic_constant_(x) symbolic_constant(x)
2599 #define symbolic_constant(x) ((x)->_symbolic_constant_)
2603 #define SYNCHRONIZATION(x) ((synchronization)((x).p))
2604 #define synchronization_CAST(x) SYNCHRONIZATION(x)
2605 #define SYNCHRONIZATION_CAST(x) SYNCHRONIZATION(x)
2606 #define SYNCHRONIZATION_(x) ((x).e)
2607 #define SYNCHRONIZATION_TYPE synchronization
2608 #define synchronization_TYPE synchronization
2609 #define synchronization_undefined ((synchronization)gen_chunk_undefined)
2610 #define synchronization_undefined_p(x) ((x)==synchronization_undefined)
2617 #define gen_SYNCHRONIZATION_cons gen_synchronization_cons
2650 #define synchronization_domain_number(x) ((x)->_type_)
2651 #define synchronization_tag(x) ((x)->_synchronization_tag__)
2652 #define synchronization_none_p(x) (synchronization_tag(x)==is_synchronization_none)
2653 #define synchronization_none_(x) synchronization_none(x)
2654 #define synchronization_none(x) ((x)->_synchronization_union_._synchronization_none_.u)
2655 #define synchronization_spawn_p(x) (synchronization_tag(x)==is_synchronization_spawn)
2656 #define synchronization_spawn_(x) synchronization_spawn(x)
2657 #define synchronization_spawn(x) ((x)->_synchronization_union_._synchronization_spawn_)
2658 #define synchronization_barrier_p(x) (synchronization_tag(x)==is_synchronization_barrier)
2659 #define synchronization_barrier_(x) synchronization_barrier(x)
2660 #define synchronization_barrier(x) ((x)->_synchronization_union_._synchronization_barrier_.u)
2661 #define synchronization_single_p(x) (synchronization_tag(x)==is_synchronization_single)
2662 #define synchronization_single_(x) synchronization_single(x)
2663 #define synchronization_single(x) ((x)->_synchronization_union_._synchronization_single_.b)
2664 #define synchronization_critical_p(x) (synchronization_tag(x)==is_synchronization_critical)
2665 #define synchronization_critical_(x) synchronization_critical(x)
2666 #define synchronization_critical(x) ((x)->_synchronization_union_._synchronization_critical_)
2670 #define SYNTAX(x) ((syntax)((x).p))
2671 #define syntax_CAST(x) SYNTAX(x)
2672 #define SYNTAX_CAST(x) SYNTAX(x)
2673 #define SYNTAX_(x) ((x).e)
2674 #define SYNTAX_TYPE syntax
2675 #define syntax_TYPE syntax
2676 #define syntax_undefined ((syntax)gen_chunk_undefined)
2677 #define syntax_undefined_p(x) ((x)==syntax_undefined)
2684 #define gen_SYNTAX_cons gen_syntax_cons
2726 #define syntax_domain_number(x) ((x)->_type_)
2727 #define syntax_tag(x) ((x)->_syntax_tag__)
2728 #define syntax_reference_p(x) (syntax_tag(x)==is_syntax_reference)
2729 #define syntax_reference_(x) syntax_reference(x)
2730 #define syntax_reference(x) ((x)->_syntax_union_._syntax_reference_)
2731 #define syntax_range_p(x) (syntax_tag(x)==is_syntax_range)
2732 #define syntax_range_(x) syntax_range(x)
2733 #define syntax_range(x) ((x)->_syntax_union_._syntax_range_)
2734 #define syntax_call_p(x) (syntax_tag(x)==is_syntax_call)
2735 #define syntax_call_(x) syntax_call(x)
2736 #define syntax_call(x) ((x)->_syntax_union_._syntax_call_)
2737 #define syntax_cast_p(x) (syntax_tag(x)==is_syntax_cast)
2738 #define syntax_cast_(x) syntax_cast(x)
2739 #define syntax_cast(x) ((x)->_syntax_union_._syntax_cast_)
2740 #define syntax_sizeofexpression_p(x) (syntax_tag(x)==is_syntax_sizeofexpression)
2741 #define syntax_sizeofexpression_(x) syntax_sizeofexpression(x)
2742 #define syntax_sizeofexpression(x) ((x)->_syntax_union_._syntax_sizeofexpression_)
2743 #define syntax_subscript_p(x) (syntax_tag(x)==is_syntax_subscript)
2744 #define syntax_subscript_(x) syntax_subscript(x)
2745 #define syntax_subscript(x) ((x)->_syntax_union_._syntax_subscript_)
2746 #define syntax_application_p(x) (syntax_tag(x)==is_syntax_application)
2747 #define syntax_application_(x) syntax_application(x)
2748 #define syntax_application(x) ((x)->_syntax_union_._syntax_application_)
2749 #define syntax_va_arg_p(x) (syntax_tag(x)==is_syntax_va_arg)
2750 #define syntax_va_arg_(x) syntax_va_arg(x)
2751 #define syntax_va_arg(x) ((x)->_syntax_union_._syntax_va_arg_)
2755 #define ENTITY(x) ((entity)((x).p))
2756 #define entity_CAST(x) ENTITY(x)
2757 #define ENTITY_CAST(x) ENTITY(x)
2758 #define ENTITY_(x) ((x).e)
2759 #define ENTITY_TYPE entity
2760 #define entity_TYPE entity
2761 #define entity_undefined ((entity)gen_chunk_undefined)
2762 #define entity_undefined_p(x) ((x)==entity_undefined)
2769 #define gen_ENTITY_cons gen_entity_cons
2788 #define entity_domain_number(x) ((x)->_type_)
2789 #define entity_name_(x) entity_name(x)
2790 #define entity_name(x) ((x)->_entity_name_)
2791 #define entity_type_(x) entity_type(x)
2792 #define entity_type(x) ((x)->_entity_type_)
2793 #define entity_storage_(x) entity_storage(x)
2794 #define entity_storage(x) ((x)->_entity_storage_)
2795 #define entity_initial_(x) entity_initial(x)
2796 #define entity_initial(x) ((x)->_entity_initial_)
2797 #define entity_kind_(x) entity_kind(x)
2798 #define entity_kind(x) ((x)->_entity_kind_)
2802 #define TEST(x) ((test)((x).p))
2803 #define test_CAST(x) TEST(x)
2804 #define TEST_CAST(x) TEST(x)
2805 #define TEST_(x) ((x).e)
2806 #define TEST_TYPE test
2807 #define test_TYPE test
2808 #define test_undefined ((test)gen_chunk_undefined)
2809 #define test_undefined_p(x) ((x)==test_undefined)
2816 #define gen_TEST_cons gen_test_cons
2831 #define test_domain_number(x) ((x)->_type_)
2832 #define test_condition_(x) test_condition(x)
2833 #define test_condition(x) ((x)->_test_condition_)
2834 #define test_true_(x) test_true(x)
2835 #define test_true(x) ((x)->_test_true_)
2836 #define test_false_(x) test_false(x)
2837 #define test_false(x) ((x)->_test_false_)
2841 #define TRANSFORMER(x) ((transformer)((x).p))
2842 #define transformer_CAST(x) TRANSFORMER(x)
2843 #define TRANSFORMER_CAST(x) TRANSFORMER(x)
2844 #define TRANSFORMER_(x) ((x).e)
2845 #define TRANSFORMER_TYPE transformer
2846 #define transformer_TYPE transformer
2847 #define transformer_undefined ((transformer)gen_chunk_undefined)
2848 #define transformer_undefined_p(x) ((x)==transformer_undefined)
2855 #define gen_TRANSFORMER_cons gen_transformer_cons
2869 #define transformer_domain_number(x) ((x)->_type_)
2870 #define transformer_arguments_(x) transformer_arguments(x)
2871 #define transformer_arguments(x) ((x)->_transformer_arguments_)
2872 #define transformer_relation_(x) transformer_relation(x)
2873 #define transformer_relation(x) ((x)->_transformer_relation_)
2877 #define TYPE(x) ((type)((x).p))
2878 #define type_CAST(x) TYPE(x)
2879 #define TYPE_CAST(x) TYPE(x)
2880 #define TYPE_(x) ((x).e)
2881 #define TYPE_TYPE type
2882 #define type_TYPE type
2883 #define type_undefined ((type)gen_chunk_undefined)
2884 #define type_undefined_p(x) ((x)==type_undefined)
2891 #define gen_TYPE_cons gen_type_cons
2939 #define type_domain_number(x) ((x)->_type_)
2940 #define type_tag(x) ((x)->_type_tag__)
2941 #define type_statement_p(x) (type_tag(x)==is_type_statement)
2942 #define type_statement_(x) type_statement(x)
2943 #define type_statement(x) ((x)->_type_union_._type_statement_.u)
2944 #define type_area_p(x) (type_tag(x)==is_type_area)
2945 #define type_area_(x) type_area(x)
2946 #define type_area(x) ((x)->_type_union_._type_area_)
2947 #define type_variable_p(x) (type_tag(x)==is_type_variable)
2948 #define type_variable_(x) type_variable(x)
2949 #define type_variable(x) ((x)->_type_union_._type_variable_)
2950 #define type_functional_p(x) (type_tag(x)==is_type_functional)
2951 #define type_functional_(x) type_functional(x)
2952 #define type_functional(x) ((x)->_type_union_._type_functional_)
2953 #define type_varargs_p(x) (type_tag(x)==is_type_varargs)
2954 #define type_varargs_(x) type_varargs(x)
2955 #define type_varargs(x) ((x)->_type_union_._type_varargs_)
2956 #define type_unknown_p(x) (type_tag(x)==is_type_unknown)
2957 #define type_unknown_(x) type_unknown(x)
2958 #define type_unknown(x) ((x)->_type_union_._type_unknown_.u)
2959 #define type_void_p(x) (type_tag(x)==is_type_void)
2960 #define type_void_(x) type_void(x)
2961 #define type_void(x) ((x)->_type_union_._type_void_)
2962 #define type_struct_p(x) (type_tag(x)==is_type_struct)
2963 #define type_struct_(x) type_struct(x)
2964 #define type_struct(x) ((x)->_type_union_._type_struct_)
2965 #define type_union_p(x) (type_tag(x)==is_type_union)
2966 #define type_union_(x) type_union(x)
2967 #define type_union(x) ((x)->_type_union_._type_union_)
2968 #define type_enum_p(x) (type_tag(x)==is_type_enum)
2969 #define type_enum_(x) type_enum(x)
2970 #define type_enum(x) ((x)->_type_union_._type_enum_)
2974 #define UNSTRUCTURED(x) ((unstructured)((x).p))
2975 #define unstructured_CAST(x) UNSTRUCTURED(x)
2976 #define UNSTRUCTURED_CAST(x) UNSTRUCTURED(x)
2977 #define UNSTRUCTURED_(x) ((x).e)
2978 #define UNSTRUCTURED_TYPE unstructured
2979 #define unstructured_TYPE unstructured
2980 #define unstructured_undefined ((unstructured)gen_chunk_undefined)
2981 #define unstructured_undefined_p(x) ((x)==unstructured_undefined)
2988 #define gen_UNSTRUCTURED_cons gen_unstructured_cons
3002 #define unstructured_domain_number(x) ((x)->_type_)
3003 #define unstructured_entry_(x) unstructured_entry(x)
3004 #define unstructured_entry(x) ((x)->_unstructured_entry_)
3005 #define unstructured_exit_(x) unstructured_exit(x)
3006 #define unstructured_exit(x) ((x)->_unstructured_exit_)
3010 #define VALUE(x) ((value)((x).p))
3011 #define value_CAST(x) VALUE(x)
3012 #define VALUE_CAST(x) VALUE(x)
3013 #define VALUE_(x) ((x).e)
3014 #define VALUE_TYPE value
3015 #define value_TYPE value
3016 #define value_undefined ((value)gen_chunk_undefined)
3017 #define value_undefined_p(x) ((x)==value_undefined)
3024 #define gen_VALUE_cons gen_value_cons
3063 #define value_domain_number(x) ((x)->_type_)
3064 #define value_tag(x) ((x)->_value_tag__)
3065 #define value_code_p(x) (value_tag(x)==is_value_code)
3066 #define value_code_(x) value_code(x)
3067 #define value_code(x) ((x)->_value_union_._value_code_)
3068 #define value_symbolic_p(x) (value_tag(x)==is_value_symbolic)
3069 #define value_symbolic_(x) value_symbolic(x)
3070 #define value_symbolic(x) ((x)->_value_union_._value_symbolic_)
3071 #define value_constant_p(x) (value_tag(x)==is_value_constant)
3072 #define value_constant_(x) value_constant(x)
3073 #define value_constant(x) ((x)->_value_union_._value_constant_)
3074 #define value_intrinsic_p(x) (value_tag(x)==is_value_intrinsic)
3075 #define value_intrinsic_(x) value_intrinsic(x)
3076 #define value_intrinsic(x) ((x)->_value_union_._value_intrinsic_.u)
3077 #define value_unknown_p(x) (value_tag(x)==is_value_unknown)
3078 #define value_unknown_(x) value_unknown(x)
3079 #define value_unknown(x) ((x)->_value_union_._value_unknown_.u)
3080 #define value_expression_p(x) (value_tag(x)==is_value_expression)
3081 #define value_expression_(x) value_expression(x)
3082 #define value_expression(x) ((x)->_value_union_._value_expression_)
3083 #define value_reference_p(x) (value_tag(x)==is_value_reference)
3084 #define value_reference_(x) value_reference(x)
3085 #define value_reference(x) ((x)->_value_union_._value_reference_)
3089 #define VARIABLE(x) ((variable)((x).p))
3090 #define variable_CAST(x) VARIABLE(x)
3091 #define VARIABLE_CAST(x) VARIABLE(x)
3092 #define VARIABLE_(x) ((x).e)
3093 #define VARIABLE_TYPE variable
3094 #define variable_TYPE variable
3095 #define variable_undefined ((variable)gen_chunk_undefined)
3096 #define variable_undefined_p(x) ((x)==variable_undefined)
3103 #define gen_VARIABLE_cons gen_variable_cons
3118 #define variable_domain_number(x) ((x)->_type_)
3119 #define variable_basic_(x) variable_basic(x)
3120 #define variable_basic(x) ((x)->_variable_basic_)
3121 #define variable_dimensions_(x) variable_dimensions(x)
3122 #define variable_dimensions(x) ((x)->_variable_dimensions_)
3123 #define variable_qualifiers_(x) variable_qualifiers(x)
3124 #define variable_qualifiers(x) ((x)->_variable_qualifiers_)
3128 #define WHILELOOP(x) ((whileloop)((x).p))
3129 #define whileloop_CAST(x) WHILELOOP(x)
3130 #define WHILELOOP_CAST(x) WHILELOOP(x)
3131 #define WHILELOOP_(x) ((x).e)
3132 #define WHILELOOP_TYPE whileloop
3133 #define whileloop_TYPE whileloop
3134 #define whileloop_undefined ((whileloop)gen_chunk_undefined)
3135 #define whileloop_undefined_p(x) ((x)==whileloop_undefined)
3142 #define gen_WHILELOOP_cons gen_whileloop_cons
3158 #define whileloop_domain_number(x) ((x)->_type_)
3159 #define whileloop_condition_(x) whileloop_condition(x)
3160 #define whileloop_condition(x) ((x)->_whileloop_condition_)
3161 #define whileloop_body_(x) whileloop_body(x)
3162 #define whileloop_body(x) ((x)->_whileloop_body_)
3163 #define whileloop_label_(x) whileloop_label(x)
3164 #define whileloop_label(x) ((x)->_whileloop_label_)
3165 #define whileloop_evaluation_(x) whileloop_evaluation(x)
3166 #define whileloop_evaluation(x) ((x)->_whileloop_evaluation_)
3169 --NEWGEN-START 27\n\
3170 external Pvecteur;\n\
3171 external Psysteme;\n\
3172 application = function:expression x arguments:expression*;\n\
3173 area = size:int x layout:entity*;\n\
3174 basic = int:int + float:int + logical:int + overloaded:unit + complex:int + string:value + bit:symbolic + pointer:type + derived:entity + typedef:entity;\n\
3175 callees = callees:string*;\n\
3176 call = function:entity x arguments:expression*;\n\
3177 cast = type:type x expression:expression;\n\
3178 code = declarations:entity* x decls_text:string x initializations:sequence x externs:entity* x language:language;\n\
3179 constant = int:int + float:float + logical:int + litteral:unit + call:entity + unknown:unit;\n\
3180 controlmap = persistant statement:statement -> control:control;\n\
3181 control = statement:statement x predecessors:control* x successors:control*;\n\
3182 dimension = lower:expression x upper:expression x qualifiers:qualifier*;\n\
3183 dummy = unknown:unit + identifier:entity;\n\
3184 entity_int = entity:entity -> int:int;\n\
3185 entity_to_entity = entity:entity -> entity:entity;\n\
3186 evaluation = before:unit + after:unit;\n\
3187 execution = sequential:unit + parallel:unit;\n\
3188 expression = syntax:syntax x normalized:normalized;\n\
3189 extension = pragma:pragma + unknown:unit;\n\
3190 extensions = extension:extension*;\n\
3191 forloop = initialization:expression x condition:expression x increment:expression x body:statement;\n\
3192 formal = function:entity x offset:int;\n\
3193 functional = parameters:parameter* x result:type;\n\
3194 instruction = sequence:sequence + test:test + loop:loop + whileloop:whileloop + goto:statement + call:call + unstructured:unstructured + multitest:multitest + forloop:forloop + expression:expression;\n\
3195 language = fortran:unit + c:unit + fortran95:unit + unknown:unit;\n\
3196 loop = index:entity x range:range x body:statement x label:entity x execution:execution x locals:entity*;\n\
3197 mode = value:unit + reference:unit;\n\
3198 multitest = controller:expression x body:statement;\n\
3199 normalized = linear:Pvecteur + complex:unit;\n\
3200 parameter = type:type x mode:mode x dummy:dummy;\n\
3201 persistant_statement_to_cluster = statement:int -> number:int;\n\
3202 persistant_statement_to_control = persistant statement:statement -> persistant control:control;\n\
3203 persistant_statement_to_int = persistant statement:statement -> int:int;\n\
3204 persistant_statement_to_statement = persistant statement:statement -> persistant statement:statement;\n\
3205 pragma = string:string + expression:expression*;\n\
3206 predicate = system:Psysteme;\n\
3207 preference = persistant reference:reference;\n\
3208 qualifier = const:unit + restrict:unit + volatile:unit + register:unit + auto:unit + thread:unit + asm:string + static_dimension:unit + local:unit + global:unit + constant:unit + private:unit;\n\
3209 ram = function:entity x section:entity x offset:int x shared:entity*;\n\
3210 range = lower:expression x upper:expression x increment:expression;\n\
3211 reference = variable:entity x indices:expression*;\n\
3212 sequence = statements:statement*;\n\
3213 sizeofexpression = type:type + expression:expression;\n\
3214 statement = label:entity x number:int x ordering:int x comments:string x instruction:instruction x declarations:entity* x decls_text:string x extensions:extensions x synchronization:synchronization;\n\
3215 storage = return:entity + ram:ram + formal:formal + rom:unit;\n\
3216 subscript = array:expression x indices:expression*;\n\
3217 symbolic = expression:expression x constant:constant;\n\
3218 synchronization = none:unit + spawn:entity + barrier:unit + single:bool + critical:reference;\n\
3219 syntax = reference:reference + range:range + call:call + cast:cast + sizeofexpression:sizeofexpression + subscript:subscript + application:application + va_arg:sizeofexpression*;\n\
3220 tabulated entity = name:string x type:type x storage:storage x initial:value x kind:int;\n\
3221 test = condition:expression x true:statement x false:statement;\n\
3222 transformer = arguments:entity* x relation:predicate;\n\
3223 type = statement:unit + area:area + variable:variable + functional:functional + varargs:type + unknown:unit + void:qualifier* + struct:entity* + union:entity* + enum:entity*;\n\
3224 unstructured = entry:control x exit:control;\n\
3225 value = code:code + symbolic:symbolic + constant:constant + intrinsic:unit + unknown:unit + expression:expression + reference:reference;\n\
3226 variable = basic:basic x dimensions:dimension* x qualifiers:qualifier*;\n\
3227 whileloop = condition:expression x body:statement x label:entity x evaluation:evaluation;\n\
int dummy
A dummy file, to prevent empty libraries from breaking builds.
struct _newgen_struct_test_ * test
application make_application(expression, list)
void update_controlmap(controlmap, statement, control)
reference check_reference(reference)
bool sizeofexpression_consistent_p(sizeofexpression)
test copy_test(test)
TEST.
void extend_persistant_statement_to_cluster(persistant_statement_to_cluster, intptr_t, intptr_t)
entity make_entity(string, type, storage, value, intptr_t)
void basic_assign_contents(basic, basic)
type make_type_variable(variable)
pragma copy_pragma(pragma)
PRAGMA.
type make_type_enum(list)
string dummy_tag_as_string(enum dummy_utype)
void update_persistant_statement_to_cluster(persistant_statement_to_cluster, intptr_t, intptr_t)
subscript check_subscript(subscript)
void value_non_recursive_free(value)
parameter copy_parameter(parameter)
PARAMETER.
qualifier make_qualifier_static_dimension(void)
bool persistant_statement_to_cluster_defined_p(persistant_statement_to_cluster)
persistant_statement_to_control copy_persistant_statement_to_control(persistant_statement_to_control)
PERSISTANT_STATEMENT_TO_CONTROL.
bool constant_defined_p(constant)
void free_sizeofexpression(sizeofexpression)
control delete_controlmap(controlmap, statement)
struct _newgen_struct_pragma_ * pragma
void write_entity_int(FILE *, entity_int)
void free_sequence(sequence)
entity_int check_entity_int(entity_int)
bool synchronization_consistent_p(synchronization)
void write_controlmap(FILE *, controlmap)
void free_synchronization(synchronization)
bool statement_consistent_p(statement)
void expression_assign_contents(expression, expression)
bool bound_controlmap_p(controlmap, statement)
constant make_constant_logical(intptr_t)
callees copy_callees(callees)
CALLEES.
control make_control(statement, list, list)
void extension_non_recursive_free(extension)
void dummy_non_recursive_free(dummy)
void free_persistant_statement_to_cluster(persistant_statement_to_cluster)
bool persistant_statement_to_int_defined_p(persistant_statement_to_int)
bool statement_defined_p(statement)
evaluation check_evaluation(evaluation)
loop copy_loop(loop)
LOOP.
void evaluation_assign_contents(evaluation, evaluation)
void write_subscript(FILE *, subscript)
storage make_storage_return(entity)
@ is_sizeofexpression_expression
@ is_sizeofexpression_type
void write_entity_to_entity(FILE *, entity_to_entity)
mode copy_mode(mode)
MODE.
subscript read_subscript(FILE *)
instruction make_instruction_whileloop(whileloop)
string extension_tag_as_string(enum extension_utype)
type make_type_functional(functional)
void evaluation_non_recursive_free(evaluation)
bool persistant_statement_to_statement_consistent_p(persistant_statement_to_statement)
void sizeofexpression_assign_contents(sizeofexpression, sizeofexpression)
symbolic make_symbolic(expression, constant)
list gen_language_cons(language, list)
qualifier make_qualifier_constant(void)
callees make_callees(list)
list gen_persistant_statement_to_control_cons(persistant_statement_to_control, list)
extensions check_extensions(extensions)
extension check_extension(extension)
struct _newgen_struct_callees_ * callees
void basic_non_recursive_free(basic)
basic make_basic_float(intptr_t)
language make_language_fortran95(void)
void extension_assign_contents(extension, extension)
struct _newgen_struct_sequence_ * sequence
void write_ram(FILE *, ram)
whileloop check_whileloop(whileloop)
void type_assign_contents(type, type)
struct _newgen_struct_qualifier_ * qualifier
void controlmap_assign_contents(controlmap, controlmap)
control read_control(FILE *)
statement make_statement(entity, intptr_t, intptr_t, string, instruction, list, string, extensions, synchronization)
unstructured make_unstructured(control, control)
bool basic_consistent_p(basic)
list gen_evaluation_cons(evaluation, list)
basic make_basic_logical(intptr_t)
evaluation make_evaluation_before(void)
bool extensions_defined_p(extensions)
struct _newgen_struct_value_ * value
type make_type_void(list)
void entity_non_recursive_free(entity)
value make_value_expression(expression)
ram make_ram(entity, entity, intptr_t, list)
void expression_non_recursive_free(expression)
list gen_persistant_statement_to_int_cons(persistant_statement_to_int, list)
struct _newgen_struct_reference_ * reference
string constant_tag_as_string(enum constant_utype)
dimension copy_dimension(dimension)
DIMENSION.
multitest make_multitest(expression, statement)
void language_assign_contents(language, language)
void execution_assign_contents(execution, execution)
pragma make_pragma(enum pragma_utype, void *)
bool execution_consistent_p(execution)
void parameter_assign_contents(parameter, parameter)
qualifier make_qualifier_private(void)
void write_range(FILE *, range)
void write_persistant_statement_to_cluster(FILE *, persistant_statement_to_cluster)
expression make_expression(syntax, normalized)
void update_persistant_statement_to_statement(persistant_statement_to_statement, statement, statement)
void write_evaluation(FILE *, evaluation)
void area_non_recursive_free(area)
void free_preference(preference)
void write_whileloop(FILE *, whileloop)
bool entity_consistent_p(entity)
controlmap make_controlmap(void)
void unstructured_non_recursive_free(unstructured)
void extend_persistant_statement_to_int(persistant_statement_to_int, statement, intptr_t)
void write_callees(FILE *, callees)
application check_application(application)
bool sequence_defined_p(sequence)
list gen_persistant_statement_to_statement_cons(persistant_statement_to_statement, list)
list gen_mode_cons(mode, list)
list gen_area_cons(area, list)
bool entity_to_entity_defined_p(entity_to_entity)
struct _newgen_struct_statement_ * statement
void free_statement(statement)
entity gen_find_entity(char *)
list gen_execution_cons(execution, list)
sizeofexpression copy_sizeofexpression(sizeofexpression)
SIZEOFEXPRESSION.
@ is_synchronization_single
@ is_synchronization_barrier
@ is_synchronization_spawn
@ is_synchronization_critical
@ is_synchronization_none
list gen_pragma_cons(pragma, list)
void write_extension(FILE *, extension)
value make_value_code(code)
extension copy_extension(extension)
EXTENSION.
void write_tabulated_entity(FILE *)
bool transformer_consistent_p(transformer)
void free_persistant_statement_to_control(persistant_statement_to_control)
void range_non_recursive_free(range)
basic copy_basic(basic)
BASIC.
void update_entity_int(entity_int, entity, intptr_t)
persistant_statement_to_control make_persistant_statement_to_control(void)
statement apply_persistant_statement_to_statement(persistant_statement_to_statement, statement)
void extensions_assign_contents(extensions, extensions)
value make_value_unknown(void)
bool reference_defined_p(reference)
void free_constant(constant)
extension make_extension_pragma(pragma)
bool persistant_statement_to_statement_defined_p(persistant_statement_to_statement)
bool storage_defined_p(storage)
subscript copy_subscript(subscript)
SUBSCRIPT.
functional make_functional(list, type)
void write_basic(FILE *, basic)
parameter check_parameter(parameter)
list gen_statement_cons(statement, list)
formal read_formal(FILE *)
void write_persistant_statement_to_int(FILE *, persistant_statement_to_int)
void write_syntax(FILE *, syntax)
void write_control(FILE *, control)
bool preference_defined_p(preference)
entity_int read_entity_int(FILE *)
intptr_t delete_persistant_statement_to_int(persistant_statement_to_int, statement)
synchronization make_synchronization_critical(reference)
void loop_assign_contents(loop, loop)
mode make_mode(enum mode_utype, void *)
bool dummy_defined_p(dummy)
normalized make_normalized_linear(Pvecteur)
struct _newgen_struct_area_ * area
struct _newgen_struct_controlmap_ * controlmap
bool dummy_consistent_p(dummy)
void free_entity_int(entity_int)
void free_storage(storage)
persistant_statement_to_cluster copy_persistant_statement_to_cluster(persistant_statement_to_cluster)
PERSISTANT_STATEMENT_TO_CLUSTER.
void read_tabulated_entity(FILE *)
controlmap check_controlmap(controlmap)
entity apply_entity_to_entity(entity_to_entity, entity)
variable check_variable(variable)
persistant_statement_to_int check_persistant_statement_to_int(persistant_statement_to_int)
struct _newgen_struct_functional_ * functional
void write_cast(FILE *, cast)
range make_range(expression, expression, expression)
void write_mode(FILE *, mode)
bool pragma_defined_p(pragma)
dummy make_dummy(enum dummy_utype, void *)
storage make_storage(enum storage_utype, void *)
list gen_entity_cons(entity, list)
void type_non_recursive_free(type)
variable read_variable(FILE *)
value copy_value(value)
VALUE.
void free_control(control)
void free_normalized(normalized)
entity_to_entity make_entity_to_entity(void)
bool constant_consistent_p(constant)
struct _newgen_struct_unstructured_ * unstructured
value make_value(enum value_utype, void *)
multitest check_multitest(multitest)
struct _newgen_struct_symbolic_ * symbolic
bool formal_consistent_p(formal)
struct _newgen_struct_entity_to_entity_ * entity_to_entity
void write_unstructured(FILE *, unstructured)
language make_language_fortran(void)
void write_preference(FILE *, preference)
entity_to_entity check_entity_to_entity(entity_to_entity)
dimension read_dimension(FILE *)
qualifier make_qualifier_local(void)
bool normalized_consistent_p(normalized)
persistant_statement_to_int copy_persistant_statement_to_int(persistant_statement_to_int)
PERSISTANT_STATEMENT_TO_INT.
void write_functional(FILE *, functional)
bool language_defined_p(language)
bool bound_entity_int_p(entity_int, entity)
void extend_entity_to_entity(entity_to_entity, entity, entity)
list gen_preference_cons(preference, list)
type make_type_area(area)
multitest read_multitest(FILE *)
void application_assign_contents(application, application)
callees read_callees(FILE *)
persistant_statement_to_cluster check_persistant_statement_to_cluster(persistant_statement_to_cluster)
list gen_range_cons(range, list)
bool parameter_defined_p(parameter)
constant check_constant(constant)
bool symbolic_defined_p(symbolic)
basic make_basic_string(value)
void write_dimension(FILE *, dimension)
struct _newgen_struct_dimension_ * dimension
void persistant_statement_to_int_non_recursive_free(persistant_statement_to_int)
intptr_t delete_persistant_statement_to_cluster(persistant_statement_to_cluster, intptr_t)
struct _newgen_struct_persistant_statement_to_statement_ * persistant_statement_to_statement
basic make_basic_bit(symbolic)
list gen_parameter_cons(parameter, list)
bool predicate_consistent_p(predicate)
persistant_statement_to_cluster read_persistant_statement_to_cluster(FILE *)
loop make_loop(entity, range, statement, entity, execution, list)
whileloop copy_whileloop(whileloop)
WHILELOOP.
list gen_qualifier_cons(qualifier, list)
void symbolic_non_recursive_free(symbolic)
string qualifier_tag_as_string(enum qualifier_utype)
type make_type_varargs(type)
struct _newgen_struct_whileloop_ * whileloop
void dimension_non_recursive_free(dimension)
reference copy_reference(reference)
REFERENCE.
intptr_t delete_entity_int(entity_int, entity)
void write_symbolic(FILE *, symbolic)
void functional_assign_contents(functional, functional)
qualifier make_qualifier_asm(string)
sequence read_sequence(FILE *)
bool entity_int_defined_p(entity_int)
pragma read_pragma(FILE *)
void forloop_assign_contents(forloop, forloop)
controlmap read_controlmap(FILE *)
constant make_constant(enum constant_utype, void *)
qualifier read_qualifier(FILE *)
storage make_storage_rom(void)
void entity_int_assign_contents(entity_int, entity_int)
call make_call(entity, list)
list gen_controlmap_cons(controlmap, list)
instruction make_instruction_forloop(forloop)
void write_constant(FILE *, constant)
bool code_consistent_p(code)
void free_functional(functional)
expression copy_expression(expression)
EXPRESSION.
bool bound_persistant_statement_to_cluster_p(persistant_statement_to_cluster, intptr_t)
qualifier make_qualifier_thread(void)
instruction make_instruction_multitest(multitest)
normalized make_normalized(enum normalized_utype, void *)
bool code_defined_p(code)
evaluation read_evaluation(FILE *)
void execution_non_recursive_free(execution)
void control_assign_contents(control, control)
synchronization make_synchronization_single(bool)
bool evaluation_defined_p(evaluation)
void write_storage(FILE *, storage)
bool bound_persistant_statement_to_int_p(persistant_statement_to_int, statement)
void free_callees(callees)
syntax check_syntax(syntax)
void callees_assign_contents(callees, callees)
intptr_t apply_persistant_statement_to_int(persistant_statement_to_int, statement)
void ram_assign_contents(ram, ram)
list gen_forloop_cons(forloop, list)
bool instruction_defined_p(instruction)
void update_entity_to_entity(entity_to_entity, entity, entity)
mode make_mode_reference(void)
code make_code(list, string, sequence, list, language)
void ram_non_recursive_free(ram)
void reference_assign_contents(reference, reference)
expression check_expression(expression)
syntax copy_syntax(syntax)
SYNTAX.
functional check_functional(functional)
list gen_formal_cons(formal, list)
void free_multitest(multitest)
string synchronization_tag_as_string(enum synchronization_utype)
area make_area(intptr_t, list)
unstructured read_unstructured(FILE *)
forloop copy_forloop(forloop)
FORLOOP.
sizeofexpression make_sizeofexpression_expression(expression)
void write_persistant_statement_to_statement(FILE *, persistant_statement_to_statement)
void free_whileloop(whileloop)
bool transformer_defined_p(transformer)
bool sequence_consistent_p(sequence)
list gen_whileloop_cons(whileloop, list)
control copy_control(control)
CONTROL.
qualifier copy_qualifier(qualifier)
QUALIFIER.
void write_dummy(FILE *, dummy)
void free_transformer(transformer)
basic make_basic_overloaded(void)
value make_value_symbolic(symbolic)
void persistant_statement_to_statement_assign_contents(persistant_statement_to_statement, persistant_statement_to_statement)
void write_statement(FILE *, statement)
pragma check_pragma(pragma)
list gen_type_cons(type, list)
bool variable_consistent_p(variable)
qualifier make_qualifier_restrict(void)
bool callees_defined_p(callees)
void write_call(FILE *, call)
persistant_statement_to_statement read_persistant_statement_to_statement(FILE *)
parameter make_parameter(type, mode, dummy)
intptr_t apply_persistant_statement_to_cluster(persistant_statement_to_cluster, intptr_t)
synchronization copy_synchronization(synchronization)
SYNCHRONIZATION.
struct _newgen_struct_subscript_ * subscript
statement copy_statement(statement)
STATEMENT.
bool mode_defined_p(mode)
void preference_assign_contents(preference, preference)
void constant_assign_contents(constant, constant)
@ is_syntax_sizeofexpression
sequence copy_sequence(sequence)
SEQUENCE.
bool ram_consistent_p(ram)
void free_persistant_statement_to_statement(persistant_statement_to_statement)
void transformer_assign_contents(transformer, transformer)
language make_language_unknown(void)
persistant_statement_to_statement make_persistant_statement_to_statement(void)
void write_forloop(FILE *, forloop)
void dimension_assign_contents(dimension, dimension)
bool value_consistent_p(value)
functional copy_functional(functional)
FUNCTIONAL.
void dummy_assign_contents(dummy, dummy)
struct _newgen_struct_execution_ * execution
void code_assign_contents(code, code)
void extend_persistant_statement_to_control(persistant_statement_to_control, statement, control)
constant make_constant_call(entity)
transformer check_transformer(transformer)
void persistant_statement_to_cluster_assign_contents(persistant_statement_to_cluster, persistant_statement_to_cluster)
bool variable_defined_p(variable)
sizeofexpression make_sizeofexpression(enum sizeofexpression_utype, void *)
string sizeofexpression_tag_as_string(enum sizeofexpression_utype)
persistant_statement_to_control read_persistant_statement_to_control(FILE *)
storage copy_storage(storage)
STORAGE.
syntax make_syntax_application(application)
type make_type_statement(void)
reference read_reference(FILE *)
preference check_preference(preference)
list gen_synchronization_cons(synchronization, list)
bool storage_consistent_p(storage)
dimension check_dimension(dimension)
list gen_loop_cons(loop, list)
bool controlmap_consistent_p(controlmap)
test make_test(expression, statement, statement)
void write_normalized(FILE *, normalized)
void free_unstructured(unstructured)
void free_qualifier(qualifier)
variable copy_variable(variable)
VARIABLE.
void code_non_recursive_free(code)
string pragma_tag_as_string(enum pragma_utype)
list gen_expression_cons(expression, list)
void control_non_recursive_free(control)
list gen_unstructured_cons(unstructured, list)
void synchronization_non_recursive_free(synchronization)
void write_application(FILE *, application)
void controlmap_non_recursive_free(controlmap)
predicate check_predicate(predicate)
list gen_normalized_cons(normalized, list)
sequence check_sequence(sequence)
bool extension_defined_p(extension)
list gen_dummy_cons(dummy, list)
bool persistant_statement_to_cluster_consistent_p(persistant_statement_to_cluster)
synchronization check_synchronization(synchronization)
bool functional_defined_p(functional)
void free_extension(extension)
bool cast_consistent_p(cast)
struct _newgen_struct_control_ * control
forloop check_forloop(forloop)
bool execution_defined_p(execution)
void storage_assign_contents(storage, storage)
bool basic_defined_p(basic)
void write_qualifier(FILE *, qualifier)
unstructured check_unstructured(unstructured)
string syntax_tag_as_string(enum syntax_utype)
bool unstructured_consistent_p(unstructured)
void sequence_non_recursive_free(sequence)
extensions read_extensions(FILE *)
normalized read_normalized(FILE *)
bool functional_consistent_p(functional)
struct _newgen_struct_parameter_ * parameter
sequence make_sequence(list)
void write_execution(FILE *, execution)
bool area_defined_p(area)
call copy_call(call)
CALL.
language copy_language(language)
LANGUAGE.
string language_tag_as_string(enum language_utype)
bool application_defined_p(application)
expression read_expression(FILE *)
dummy make_dummy_identifier(entity)
parameter read_parameter(FILE *)
struct _newgen_struct_evaluation_ * evaluation
struct _newgen_struct_loop_ * loop
@ is_instruction_unstructured
@ is_instruction_whileloop
@ is_instruction_expression
@ is_instruction_multitest
@ is_instruction_sequence
sizeofexpression read_sizeofexpression(FILE *)
void functional_non_recursive_free(functional)
application copy_application(application)
APPLICATION.
bool test_consistent_p(test)
type make_type_struct(list)
struct _newgen_struct_normalized_ * normalized
persistant_statement_to_int read_persistant_statement_to_int(FILE *)
string instruction_tag_as_string(enum instruction_utype)
void write_sizeofexpression(FILE *, sizeofexpression)
string evaluation_tag_as_string(enum evaluation_utype)
instruction make_instruction_call(call)
bool subscript_consistent_p(subscript)
string mode_tag_as_string(enum mode_utype)
void write_persistant_statement_to_control(FILE *, persistant_statement_to_control)
bool cast_defined_p(cast)
bool language_consistent_p(language)
persistant_statement_to_control check_persistant_statement_to_control(persistant_statement_to_control)
intptr_t apply_entity_int(entity_int, entity)
bool sizeofexpression_defined_p(sizeofexpression)
list gen_basic_cons(basic, list)
void test_non_recursive_free(test)
void free_evaluation(evaluation)
bool entity_defined_p(entity)
bool whileloop_defined_p(whileloop)
struct _newgen_struct_multitest_ * multitest
statement check_statement(statement)
basic make_basic_int(intptr_t)
constant make_constant_float(float)
struct _newgen_struct_constant_ * constant
struct _newgen_struct_call_ * call
qualifier check_qualifier(qualifier)
syntax make_syntax_range(range)
struct _newgen_struct_range_ * range
void callees_non_recursive_free(callees)
bool persistant_statement_to_int_consistent_p(persistant_statement_to_int)
void free_forloop(forloop)
execution make_execution_sequential(void)
bool bound_persistant_statement_to_control_p(persistant_statement_to_control, statement)
value make_value_constant(constant)
void free_language(language)
void update_persistant_statement_to_int(persistant_statement_to_int, statement, intptr_t)
void write_instruction(FILE *, instruction)
struct _newgen_struct_syntax_ * syntax
void write_multitest(FILE *, multitest)
bool predicate_defined_p(predicate)
void formal_assign_contents(formal, formal)
void value_assign_contents(value, value)
type make_type(enum type_utype, void *)
entity_to_entity read_entity_to_entity(FILE *)
list gen_storage_cons(storage, list)
list gen_reference_cons(reference, list)
void unstructured_assign_contents(unstructured, unstructured)
void free_expression(expression)
type make_type_union(list)
void write_synchronization(FILE *, synchronization)
qualifier make_qualifier_register(void)
sizeofexpression check_sizeofexpression(sizeofexpression)
execution make_execution(enum execution_utype, void *)
instruction make_instruction_loop(loop)
void subscript_non_recursive_free(subscript)
language make_language(enum language_utype, void *)
struct _newgen_struct_mode_ * mode
list gen_call_cons(call, list)
list gen_value_cons(value, list)
control apply_controlmap(controlmap, statement)
void update_persistant_statement_to_control(persistant_statement_to_control, statement, control)
list gen_sizeofexpression_cons(sizeofexpression, list)
extension make_extension(enum extension_utype, void *)
bool instruction_consistent_p(instruction)
execution read_execution(FILE *)
void persistant_statement_to_int_assign_contents(persistant_statement_to_int, persistant_statement_to_int)
bool qualifier_consistent_p(qualifier)
void pragma_non_recursive_free(pragma)
struct _newgen_struct_type_ * type
bool range_consistent_p(range)
bool value_defined_p(value)
void area_assign_contents(area, area)
struct _newgen_struct_instruction_ * instruction
extensions make_extensions(list)
string basic_tag_as_string(enum basic_utype)
void write_parameter(FILE *, parameter)
list gen_multitest_cons(multitest, list)
void cast_non_recursive_free(cast)
entity check_entity(entity)
void free_subscript(subscript)
qualifier make_qualifier_volatile(void)
forloop read_forloop(FILE *)
syntax make_syntax_sizeofexpression(sizeofexpression)
void free_instruction(instruction)
bool synchronization_defined_p(synchronization)
bool reference_consistent_p(reference)
bool multitest_defined_p(multitest)
void predicate_assign_contents(predicate, predicate)
void range_assign_contents(range, range)
void write_pragma(FILE *, pragma)
bool application_consistent_p(application)
struct _newgen_struct_basic_ * basic
synchronization make_synchronization(enum synchronization_utype, void *)
list gen_test_cons(test, list)
void write_extensions(FILE *, extensions)
void qualifier_assign_contents(qualifier, qualifier)
void write_code(FILE *, code)
entity delete_entity_to_entity(entity_to_entity, entity)
symbolic check_symbolic(symbolic)
list gen_constant_cons(constant, list)
constant make_constant_int(intptr_t)
bool area_consistent_p(area)
void persistant_statement_to_control_non_recursive_free(persistant_statement_to_control)
void variable_assign_contents(variable, variable)
void write_type(FILE *, type)
void write_expression(FILE *, expression)
bool multitest_consistent_p(multitest)
bool persistant_statement_to_control_defined_p(persistant_statement_to_control)
bool whileloop_consistent_p(whileloop)
void statement_assign_contents(statement, statement)
type copy_type(type)
TYPE.
void statement_non_recursive_free(statement)
struct _newgen_struct_predicate_ * predicate
entity_to_entity copy_entity_to_entity(entity_to_entity)
ENTITY_TO_ENTITY.
list gen_ram_cons(ram, list)
bool type_defined_p(type)
bool extension_consistent_p(extension)
void free_extensions(extensions)
bool call_consistent_p(call)
control check_control(control)
persistant_statement_to_cluster make_persistant_statement_to_cluster(void)
forloop make_forloop(expression, expression, expression, statement)
list gen_extensions_cons(extensions, list)
instruction copy_instruction(instruction)
INSTRUCTION.
bool forloop_consistent_p(forloop)
bool controlmap_defined_p(controlmap)
bool mode_consistent_p(mode)
storage check_storage(storage)
value make_value_intrinsic(void)
basic make_basic_pointer(type)
predicate read_predicate(FILE *)
struct _newgen_struct_language_ * language
list gen_callees_cons(callees, list)
storage read_storage(FILE *)
whileloop make_whileloop(expression, statement, entity, evaluation)
language make_language_c(void)
syntax make_syntax_reference(reference)
void parameter_non_recursive_free(parameter)
void variable_non_recursive_free(variable)
void write_variable(FILE *, variable)
type make_type_unknown(void)
void multitest_assign_contents(multitest, multitest)
cast make_cast(type, expression)
instruction make_instruction_goto(statement)
bool dimension_defined_p(dimension)
void synchronization_assign_contents(synchronization, synchronization)
list gen_predicate_cons(predicate, list)
entity_int make_entity_int(void)
predicate make_predicate(Psysteme)
void normalized_non_recursive_free(normalized)
void write_test(FILE *, test)
void symbolic_assign_contents(symbolic, symbolic)
bool symbolic_consistent_p(symbolic)
void pragma_assign_contents(pragma, pragma)
syntax make_syntax_va_arg(list)
void whileloop_assign_contents(whileloop, whileloop)
bool normalized_defined_p(normalized)
bool bound_entity_to_entity_p(entity_to_entity, entity)
statement delete_persistant_statement_to_statement(persistant_statement_to_statement, statement)
constant make_constant_litteral(void)
void write_transformer(FILE *, transformer)
predicate copy_predicate(predicate)
PREDICATE.
void persistant_statement_to_control_assign_contents(persistant_statement_to_control, persistant_statement_to_control)
void entity_int_non_recursive_free(entity_int)
bool loop_consistent_p(loop)
struct _newgen_struct_forloop_ * forloop
list gen_functional_cons(functional, list)
void persistant_statement_to_statement_non_recursive_free(persistant_statement_to_statement)
void entity_assign_contents(entity, entity)
list gen_sequence_cons(sequence, list)
string normalized_tag_as_string(enum normalized_utype)
instruction check_instruction(instruction)
bool bound_persistant_statement_to_statement_p(persistant_statement_to_statement, statement)
bool qualifier_defined_p(qualifier)
bool control_consistent_p(control)
void write_value(FILE *, value)
struct _newgen_struct_cast_ * cast
void entity_to_entity_assign_contents(entity_to_entity, entity_to_entity)
void mode_assign_contents(mode, mode)
list gen_subscript_cons(subscript, list)
symbolic read_symbolic(FILE *)
void call_non_recursive_free(call)
void free_application(application)
bool expression_defined_p(expression)
void sizeofexpression_non_recursive_free(sizeofexpression)
language check_language(language)
void write_formal(FILE *, formal)
evaluation copy_evaluation(evaluation)
EVALUATION.
syntax read_syntax(FILE *)
void syntax_assign_contents(syntax, syntax)
void qualifier_non_recursive_free(qualifier)
struct _newgen_struct_persistant_statement_to_cluster_ * persistant_statement_to_cluster
void extend_controlmap(controlmap, statement, control)
controlmap copy_controlmap(controlmap)
CONTROLMAP.
void cast_assign_contents(cast, cast)
constant make_constant_unknown(void)
void call_assign_contents(call, call)
string storage_tag_as_string(enum storage_utype)
normalized make_normalized_complex(void)
void extend_persistant_statement_to_statement(persistant_statement_to_statement, statement, statement)
list gen_cast_cons(cast, list)
normalized check_normalized(normalized)
entity_int copy_entity_int(entity_int)
ENTITY_INT.
execution check_execution(execution)
list gen_instruction_cons(instruction, list)
struct _newgen_struct_application_ * application
formal check_formal(formal)
void write_sequence(FILE *, sequence)
bool call_defined_p(call)
struct _newgen_struct_entity_int_ * entity_int
bool forloop_defined_p(forloop)
dimension make_dimension(expression, expression, list)
bool pragma_consistent_p(pragma)
basic make_basic(enum basic_utype, void *)
list gen_syntax_cons(syntax, list)
qualifier make_qualifier_auto(void)
dummy make_dummy_unknown(void)
list gen_extension_cons(extension, list)
@ is_execution_sequential
synchronization make_synchronization_none(void)
basic make_basic_complex(intptr_t)
statement read_statement(FILE *)
callees check_callees(callees)
instruction make_instruction_expression(expression)
reference make_reference(entity, list)
struct _newgen_struct_transformer_ * transformer
qualifier make_qualifier(enum qualifier_utype, void *)
storage make_storage_formal(formal)
syntax make_syntax_call(call)
void formal_non_recursive_free(formal)
syntax make_syntax_cast(cast)
bool preference_consistent_p(preference)
struct _newgen_struct_expression_ * expression
list gen_code_cons(code, list)
value make_value_reference(reference)
@ is_qualifier_static_dimension
synchronization read_synchronization(FILE *)
bool syntax_consistent_p(syntax)
mode make_mode_value(void)
bool evaluation_consistent_p(evaluation)
list gen_symbolic_cons(symbolic, list)
struct _newgen_struct_formal_ * formal
void write_area(FILE *, area)
storage make_storage_ram(ram)
language read_language(FILE *)
void free_variable(variable)
persistant_statement_to_int make_persistant_statement_to_int(void)
subscript make_subscript(expression, list)
list gen_control_cons(control, list)
bool control_defined_p(control)
void free_persistant_statement_to_int(persistant_statement_to_int)
qualifier make_qualifier_const(void)
void free_symbolic(symbolic)
execution make_execution_parallel(void)
entity copy_entity(entity)
ENTITY.
bool entity_to_entity_consistent_p(entity_to_entity)
void extensions_non_recursive_free(extensions)
struct _newgen_struct_code_ * code
control delete_persistant_statement_to_control(persistant_statement_to_control, statement)
basic make_basic_typedef(entity)
list gen_persistant_statement_to_cluster_cons(persistant_statement_to_cluster, list)
void sequence_assign_contents(sequence, sequence)
struct _newgen_struct_persistant_statement_to_int_ * persistant_statement_to_int
void subscript_assign_contents(subscript, subscript)
struct _newgen_struct_storage_ * storage
bool unstructured_defined_p(unstructured)
pragma make_pragma_string(string)
formal make_formal(entity, intptr_t)
syntax make_syntax_subscript(subscript)
transformer read_transformer(FILE *)
constant copy_constant(constant)
CONSTANT.
struct _newgen_struct_entity_ * entity
void entity_to_entity_non_recursive_free(entity_to_entity)
preference copy_preference(preference)
PREFERENCE.
void reference_non_recursive_free(reference)
bool test_defined_p(test)
list gen_entity_to_entity_cons(entity_to_entity, list)
bool type_consistent_p(type)
string value_tag_as_string(enum value_utype)
void whileloop_non_recursive_free(whileloop)
transformer make_transformer(list, predicate)
whileloop read_whileloop(FILE *)
application read_application(FILE *)
evaluation make_evaluation_after(void)
bool syntax_defined_p(syntax)
qualifier make_qualifier_global(void)
functional read_functional(FILE *)
evaluation make_evaluation(enum evaluation_utype, void *)
bool range_defined_p(range)
extensions copy_extensions(extensions)
EXTENSIONS.
transformer copy_transformer(transformer)
TRANSFORMER.
preference make_preference(reference)
void instruction_assign_contents(instruction, instruction)
bool entity_int_consistent_p(entity_int)
void loop_non_recursive_free(loop)
bool loop_defined_p(loop)
bool expression_consistent_p(expression)
struct _newgen_struct_synchronization_ * synchronization
void mode_non_recursive_free(mode)
void multitest_non_recursive_free(multitest)
void language_non_recursive_free(language)
extension read_extension(FILE *)
void instruction_non_recursive_free(instruction)
string type_tag_as_string(enum type_utype)
bool formal_defined_p(formal)
struct _newgen_struct_persistant_statement_to_control_ * persistant_statement_to_control
void write_loop(FILE *, loop)
list gen_dimension_cons(dimension, list)
bool parameter_consistent_p(parameter)
sizeofexpression make_sizeofexpression_type(type)
code copy_code(code)
CODE.
struct _newgen_struct_sizeofexpression_ * sizeofexpression
void normalized_assign_contents(normalized, normalized)
basic make_basic_derived(entity)
struct _newgen_struct_extensions_ * extensions
pragma make_pragma_expression(list)
void syntax_non_recursive_free(syntax)
formal copy_formal(formal)
FORMAL.
void free_predicate(predicate)
bool extensions_consistent_p(extensions)
symbolic copy_symbolic(symbolic)
SYMBOLIC.
instruction make_instruction_sequence(sequence)
persistant_statement_to_statement copy_persistant_statement_to_statement(persistant_statement_to_statement)
PERSISTANT_STATEMENT_TO_STATEMENT.
struct _newgen_struct_ram_ * ram
bool callees_consistent_p(callees)
void constant_non_recursive_free(constant)
variable make_variable(basic, list, list)
void test_assign_contents(test, test)
list gen_entity_int_cons(entity_int, list)
list gen_transformer_cons(transformer, list)
instruction make_instruction(enum instruction_utype, void *)
struct _newgen_struct_dummy_ * dummy
void free_controlmap(controlmap)
void free_parameter(parameter)
void persistant_statement_to_cluster_non_recursive_free(persistant_statement_to_cluster)
string execution_tag_as_string(enum execution_utype)
void write_reference(FILE *, reference)
void application_non_recursive_free(application)
persistant_statement_to_statement check_persistant_statement_to_statement(persistant_statement_to_statement)
void free_entity_to_entity(entity_to_entity)
range copy_range(range)
RANGE.
struct _newgen_struct_preference_ * preference
void write_language(FILE *, language)
void predicate_non_recursive_free(predicate)
synchronization make_synchronization_barrier(void)
cast copy_cast(cast)
CAST.
execution copy_execution(execution)
EXECUTION.
instruction make_instruction_test(test)
preference read_preference(FILE *)
void storage_non_recursive_free(storage)
void free_execution(execution)
bool persistant_statement_to_control_consistent_p(persistant_statement_to_control)
void free_dimension(dimension)
bool subscript_defined_p(subscript)
control apply_persistant_statement_to_control(persistant_statement_to_control, statement)
normalized copy_normalized(normalized)
NORMALIZED.
void write_predicate(FILE *, predicate)
list gen_application_cons(application, list)
unstructured copy_unstructured(unstructured)
UNSTRUCTURED.
void preference_non_recursive_free(preference)
syntax make_syntax(enum syntax_utype, void *)
extension make_extension_unknown(void)
multitest copy_multitest(multitest)
MULTITEST.
struct _newgen_struct_variable_ * variable
void forloop_non_recursive_free(forloop)
instruction read_instruction(FILE *)
struct _newgen_struct_extension_ * extension
area copy_area(area)
AREA.
dummy copy_dummy(dummy)
DUMMY.
synchronization make_synchronization_spawn(entity)
instruction make_instruction_unstructured(unstructured)
list gen_variable_cons(variable, list)
constant read_constant(FILE *)
void transformer_non_recursive_free(transformer)
void extend_entity_int(entity_int, entity, intptr_t)
bool dimension_consistent_p(dimension)
void free_reference(reference)
le type des coefficients dans les vecteurs: Value est defini dans le package arithmetique
list _application_arguments_
function:expression
expression _application_function_
list _area_layout_
size:int
intptr_t _basic_logical_
float:int
enum basic_utype _basic_tag__
intptr_t _basic_complex_
overloaded:unit
intptr_t _basic_float_
int:int
entity _basic_typedef_
derived:entity
symbolic _basic_bit_
string:value
gen_chunk _basic_overloaded_
logical:int
value _basic_string_
complex:int
entity _basic_derived_
pointer:type
union _newgen_struct_basic_::@61 _basic_union_
type _basic_pointer_
bit:symbolic
list _call_arguments_
function:entity
expression _cast_expression_
type:type
language _code_language_
externs:entity*
string _code_decls_text_
declarations:entity*
list _code_externs_
initializations:sequence
sequence _code_initializations_
decls_text:string
entity _constant_call_
litteral:unit
intptr_t _constant_logical_
float:float
union _newgen_struct_constant_::@62 _constant_union_
enum constant_utype _constant_tag__
gen_chunk _constant_litteral_
logical:int
gen_chunk _constant_unknown_
call:entity
gen_chunk _constant_float_
int:int
list _control_successors_
predecessors:control*
statement _control_statement_
list _control_predecessors_
statement:statement
hash_table _controlmap_holder_
expression _dimension_upper_
lower:expression
expression _dimension_lower_
list _dimension_qualifiers_
upper:expression
gen_chunk _dummy_unknown_
union _newgen_struct_dummy_::@63 _dummy_union_
entity _dummy_identifier_
unknown:unit
enum dummy_utype _dummy_tag__
type _entity_type_
name:string
storage _entity_storage_
type:type
value _entity_initial_
storage:storage
intptr_t _entity_kind_
initial:value
hash_table _entity_int_holder_
hash_table _entity_to_entity_holder_
enum evaluation_utype _evaluation_tag__
union _newgen_struct_evaluation_::@64 _evaluation_union_
gen_chunk _evaluation_before_
gen_chunk _evaluation_after_
before:unit
gen_chunk _execution_parallel_
sequential:unit
enum execution_utype _execution_tag__
union _newgen_struct_execution_::@65 _execution_union_
gen_chunk _execution_sequential_
normalized _expression_normalized_
syntax:syntax
syntax _expression_syntax_
enum extension_utype _extension_tag__
pragma _extension_pragma_
gen_chunk _extension_unknown_
pragma:pragma
union _newgen_struct_extension_::@66 _extension_union_
statement _forloop_body_
increment:expression
expression _forloop_increment_
condition:expression
expression _forloop_initialization_
expression _forloop_condition_
initialization:expression
list _functional_parameters_
type _functional_result_
parameters:parameter*
call _instruction_call_
goto:statement
union _newgen_struct_instruction_::@67 _instruction_union_
multitest _instruction_multitest_
unstructured:unstructured
sequence _instruction_sequence_
test _instruction_test_
sequence:sequence
statement _instruction_goto_
whileloop:whileloop
whileloop _instruction_whileloop_
loop:loop
loop _instruction_loop_
test:test
enum instruction_utype _instruction_tag__
unstructured _instruction_unstructured_
call:call
expression _instruction_expression_
forloop:forloop
forloop _instruction_forloop_
multitest:multitest
gen_chunk _language_fortran_
gen_chunk _language_unknown_
fortran95:unit
gen_chunk _language_c_
fortran:unit
union _newgen_struct_language_::@68 _language_union_
gen_chunk _language_fortran95_
c:unit
enum language_utype _language_tag__
list _loop_locals_
execution:execution
statement _loop_body_
range:range
entity _loop_label_
body:statement
range _loop_range_
index:entity
execution _loop_execution_
label:entity
gen_chunk _mode_reference_
value:unit
enum mode_utype _mode_tag__
union _newgen_struct_mode_::@69 _mode_union_
statement _multitest_body_
controller:expression
expression _multitest_controller_
enum normalized_utype _normalized_tag__
union _newgen_struct_normalized_::@70 _normalized_union_
Pvecteur _normalized_linear_
gen_chunk _normalized_complex_
linear:Pvecteur
dummy _parameter_dummy_
mode:mode
mode _parameter_mode_
type:type
hash_table _persistant_statement_to_cluster_holder_
hash_table _persistant_statement_to_control_holder_
hash_table _persistant_statement_to_int_holder_
hash_table _persistant_statement_to_statement_holder_
enum pragma_utype _pragma_tag__
list _pragma_expression_
string:string
union _newgen_struct_pragma_::@71 _pragma_union_
Psysteme _predicate_system_
reference _preference_reference_
gen_chunk _qualifier_const_
gen_chunk _qualifier_thread_
auto:unit
gen_chunk _qualifier_private_
constant:unit
string _qualifier_asm_
thread:unit
gen_chunk _qualifier_global_
local:unit
gen_chunk _qualifier_register_
volatile:unit
enum qualifier_utype _qualifier_tag__
gen_chunk _qualifier_static_dimension_
asm:string
gen_chunk _qualifier_volatile_
restrict:unit
gen_chunk _qualifier_local_
static_dimension:unit
union _newgen_struct_qualifier_::@72 _qualifier_union_
gen_chunk _qualifier_auto_
register:unit
gen_chunk _qualifier_constant_
global:unit
gen_chunk _qualifier_restrict_
const:unit
intptr_t _ram_offset_
section:entity
list _ram_shared_
offset:int
entity _ram_section_
function:entity
expression _range_increment_
upper:expression
expression _range_upper_
lower:expression
list _reference_indices_
variable:entity
entity _reference_variable_
expression _sizeofexpression_expression_
type:type
enum sizeofexpression_utype _sizeofexpression_tag__
type _sizeofexpression_type_
union _newgen_struct_sizeofexpression_::@73 _sizeofexpression_union_
instruction _statement_instruction_
comments:string
string _statement_decls_text_
declarations:entity*
intptr_t _statement_ordering_
number:int
string _statement_comments_
ordering:int
intptr_t _statement_number_
label:entity
list _statement_declarations_
instruction:instruction
synchronization _statement_synchronization_
extensions:extensions
extensions _statement_extensions_
decls_text:string
formal _storage_formal_
ram:ram
union _newgen_struct_storage_::@74 _storage_union_
enum storage_utype _storage_tag__
gen_chunk _storage_rom_
formal:formal
ram _storage_ram_
return:entity
expression _subscript_array_
list _subscript_indices_
array:expression
constant _symbolic_constant_
expression:expression
expression _symbolic_expression_
gen_chunk _synchronization_none_
gen_chunk _synchronization_barrier_
spawn:entity
gen_chunk _synchronization_single_
barrier:unit
union _newgen_struct_synchronization_::@75 _synchronization_union_
reference _synchronization_critical_
single:bool
entity _synchronization_spawn_
none:unit
enum synchronization_utype _synchronization_tag__
union _newgen_struct_syntax_::@76 _syntax_union_
sizeofexpression _syntax_sizeofexpression_
cast:cast
subscript _syntax_subscript_
sizeofexpression:sizeofexpression
reference _syntax_reference_
enum syntax_utype _syntax_tag__
cast _syntax_cast_
call:call
application _syntax_application_
subscript:subscript
list _syntax_va_arg_
application:application
call _syntax_call_
range:range
range _syntax_range_
reference:reference
expression _test_condition_
statement _test_true_
condition:expression
statement _test_false_
true:statement
list _type_void_
unknown:unit
type _type_varargs_
functional:functional
list _type_struct_
void:qualifier*
list _type_enum_
union:entity*
functional _type_functional_
variable:variable
enum type_utype _type_tag__
list _type_union_
struct:entity*
variable _type_variable_
area:area
gen_chunk _type_statement_
gen_chunk _type_unknown_
varargs:type
area _type_area_
statement:unit
control _unstructured_exit_
entry:control
control _unstructured_entry_
enum value_utype _value_tag__
gen_chunk _value_unknown_
intrinsic:unit
reference _value_reference_
expression:expression
constant _value_constant_
symbolic:symbolic
symbolic _value_symbolic_
code:code
union _newgen_struct_value_::@78 _value_union_
gen_chunk _value_intrinsic_
constant:constant
expression _value_expression_
unknown:unit
list _variable_dimensions_
basic:basic
list _variable_qualifiers_
dimensions:dimension*
expression _whileloop_condition_
evaluation _whileloop_evaluation_
label:entity
statement _whileloop_body_
condition:expression
entity _whileloop_label_
body:statement
The structure used to build lists in NewGen.
A gen_chunk is used to store every object.