1 #ifndef _newgen_abc_private_included
2 #define _newgen_abc_private_included
3 #define _gen_abc_private_start 174
10 #if !defined(_newgen_entity_domain_defined_)
11 #define _newgen_entity_domain_defined_
12 #define ENTITY_NEWGEN_DOMAIN (entity_domain)
13 #define entity_NEWGEN_DOMAIN (entity_domain)
17 #define abc_checked_domain (_gen_abc_private_start+0)
18 #if !defined(_newgen_abc_checked_domain_defined_)
19 #define _newgen_abc_checked_domain_defined_
20 #define ABC_CHECKED_NEWGEN_DOMAIN (abc_checked_domain)
21 #define abc_checked_NEWGEN_DOMAIN (abc_checked_domain)
25 #define array_dimension_checked_domain (_gen_abc_private_start+1)
26 #if !defined(_newgen_array_dimension_checked_domain_defined_)
27 #define _newgen_array_dimension_checked_domain_defined_
28 #define ARRAY_DIMENSION_CHECKED_NEWGEN_DOMAIN (array_dimension_checked_domain)
29 #define array_dimension_checked_NEWGEN_DOMAIN (array_dimension_checked_domain)
33 #define dimension_checked_domain (_gen_abc_private_start+2)
34 #if !defined(_newgen_dimension_checked_domain_defined_)
35 #define _newgen_dimension_checked_domain_defined_
36 #define DIMENSION_CHECKED_NEWGEN_DOMAIN (dimension_checked_domain)
37 #define dimension_checked_NEWGEN_DOMAIN (dimension_checked_domain)
43 #define ABC_CHECKED(x) ((abc_checked)((x).p))
44 #define abc_checked_CAST(x) ABC_CHECKED(x)
45 #define ABC_CHECKED_CAST(x) ABC_CHECKED(x)
46 #define ABC_CHECKED_(x) ((x).e)
47 #define ABC_CHECKED_TYPE abc_checked
48 #define abc_checked_TYPE abc_checked
49 #define abc_checked_undefined ((abc_checked)gen_chunk_undefined)
50 #define abc_checked_undefined_p(x) ((x)==abc_checked_undefined)
57 #define gen_ABC_CHECKED_cons gen_abc_checked_cons
70 #define abc_checked_domain_number(x) ((x)->_type_)
71 #define abc_checked_list(x) ((x)->_abc_checked_holder_)
75 #define ARRAY_DIMENSION_CHECKED(x) ((array_dimension_checked)((x).p))
76 #define array_dimension_checked_CAST(x) ARRAY_DIMENSION_CHECKED(x)
77 #define ARRAY_DIMENSION_CHECKED_CAST(x) ARRAY_DIMENSION_CHECKED(x)
78 #define ARRAY_DIMENSION_CHECKED_(x) ((x).e)
79 #define ARRAY_DIMENSION_CHECKED_TYPE array_dimension_checked
80 #define array_dimension_checked_TYPE array_dimension_checked
81 #define array_dimension_checked_undefined ((array_dimension_checked)gen_chunk_undefined)
82 #define array_dimension_checked_undefined_p(x) ((x)==array_dimension_checked_undefined)
89 #define gen_ARRAY_DIMENSION_CHECKED_cons gen_array_dimension_checked_cons
103 #define array_dimension_checked_domain_number(x) ((x)->_type_)
104 #define array_dimension_checked_array_(x) array_dimension_checked_array(x)
105 #define array_dimension_checked_array(x) ((x)->_array_dimension_checked_array_)
106 #define array_dimension_checked_dims_(x) array_dimension_checked_dims(x)
107 #define array_dimension_checked_dims(x) ((x)->_array_dimension_checked_dims_)
111 #define DIMENSION_CHECKED(x) ((dimension_checked)((x).p))
112 #define dimension_checked_CAST(x) DIMENSION_CHECKED(x)
113 #define DIMENSION_CHECKED_CAST(x) DIMENSION_CHECKED(x)
114 #define DIMENSION_CHECKED_(x) ((x).e)
115 #define DIMENSION_CHECKED_TYPE dimension_checked
116 #define dimension_checked_TYPE dimension_checked
117 #define dimension_checked_undefined ((dimension_checked)gen_chunk_undefined)
118 #define dimension_checked_undefined_p(x) ((x)==dimension_checked_undefined)
125 #define gen_DIMENSION_CHECKED_cons gen_dimension_checked_cons
140 #define dimension_checked_domain_number(x) ((x)->_type_)
141 #define dimension_checked_dim_(x) dimension_checked_dim(x)
142 #define dimension_checked_dim(x) ((x)->_dimension_checked_dim_)
143 #define dimension_checked_lower_(x) dimension_checked_lower(x)
144 #define dimension_checked_lower(x) ((x)->_dimension_checked_lower_.b)
145 #define dimension_checked_upper_(x) dimension_checked_upper(x)
146 #define dimension_checked_upper(x) ((x)->_dimension_checked_upper_.b)
148 #define abc_private_spec "\
149 --NEWGEN-START 174\n\
150 import entity from \"ri.newgen\";\n\
151 abc_checked = list:array_dimension_checked*;\n\
152 array_dimension_checked = array:entity x dims:dimension_checked*;\n\
153 dimension_checked = dim:int x lower:bool x upper:bool;\n\
void write_dimension_checked(FILE *, dimension_checked)
bool abc_checked_consistent_p(abc_checked)
void dimension_checked_assign_contents(dimension_checked, dimension_checked)
void write_abc_checked(FILE *, abc_checked)
void array_dimension_checked_non_recursive_free(array_dimension_checked)
dimension_checked make_dimension_checked(intptr_t, bool, bool)
void abc_checked_assign_contents(abc_checked, abc_checked)
dimension_checked read_dimension_checked(FILE *)
void free_array_dimension_checked(array_dimension_checked)
void free_dimension_checked(dimension_checked)
list gen_array_dimension_checked_cons(array_dimension_checked, list)
abc_checked copy_abc_checked(abc_checked)
ABC_CHECKED.
void free_abc_checked(abc_checked)
bool abc_checked_defined_p(abc_checked)
array_dimension_checked read_array_dimension_checked(FILE *)
abc_checked read_abc_checked(FILE *)
void dimension_checked_non_recursive_free(dimension_checked)
list gen_abc_checked_cons(abc_checked, list)
struct _newgen_struct_dimension_checked_ * dimension_checked
dimension_checked copy_dimension_checked(dimension_checked)
DIMENSION_CHECKED.
dimension_checked check_dimension_checked(dimension_checked)
void array_dimension_checked_assign_contents(array_dimension_checked, array_dimension_checked)
bool dimension_checked_consistent_p(dimension_checked)
array_dimension_checked copy_array_dimension_checked(array_dimension_checked)
ARRAY_DIMENSION_CHECKED.
void abc_checked_non_recursive_free(abc_checked)
abc_checked check_abc_checked(abc_checked)
struct _newgen_struct_array_dimension_checked_ * array_dimension_checked
list gen_dimension_checked_cons(dimension_checked, list)
bool array_dimension_checked_consistent_p(array_dimension_checked)
array_dimension_checked check_array_dimension_checked(array_dimension_checked)
abc_checked make_abc_checked(list)
struct _newgen_struct_abc_checked_ * abc_checked
struct _newgen_struct_entity_ * entity
array_dimension_checked make_array_dimension_checked(entity, list)
void write_array_dimension_checked(FILE *, array_dimension_checked)
bool dimension_checked_defined_p(dimension_checked)
bool array_dimension_checked_defined_p(array_dimension_checked)
list _abc_checked_holder_
list _array_dimension_checked_dims_
array:entity
entity _array_dimension_checked_array_
gen_chunk _dimension_checked_lower_
dim:int
gen_chunk _dimension_checked_upper_
lower:bool
intptr_t _dimension_checked_dim_
The structure used to build lists in NewGen.
A gen_chunk is used to store every object.