1 #ifndef _newgen_ubs_private_included
2 #define _newgen_ubs_private_included
3 #define _gen_ubs_private_start 96
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 ubs_check_domain (_gen_ubs_private_start+0)
18 #if !defined(_newgen_ubs_check_domain_defined_)
19 #define _newgen_ubs_check_domain_defined_
20 #define UBS_CHECK_NEWGEN_DOMAIN (ubs_check_domain)
21 #define ubs_check_NEWGEN_DOMAIN (ubs_check_domain)
25 #define ubs_domain (_gen_ubs_private_start+1)
26 #if !defined(_newgen_ubs_domain_defined_)
27 #define _newgen_ubs_domain_defined_
28 #define UBS_NEWGEN_DOMAIN (ubs_domain)
29 #define ubs_NEWGEN_DOMAIN (ubs_domain)
35 #define UBS_CHECK(x) ((ubs_check)((x).p))
36 #define ubs_check_CAST(x) UBS_CHECK(x)
37 #define UBS_CHECK_CAST(x) UBS_CHECK(x)
38 #define UBS_CHECK_(x) ((x).e)
39 #define UBS_CHECK_TYPE ubs_check
40 #define ubs_check_TYPE ubs_check
41 #define ubs_check_undefined ((ubs_check)gen_chunk_undefined)
42 #define ubs_check_undefined_p(x) ((x)==ubs_check_undefined)
49 #define gen_UBS_CHECK_cons gen_ubs_check_cons
63 #define ubs_check_domain_number(x) ((x)->_type_)
64 #define ubs_check_module_(x) ubs_check_module(x)
65 #define ubs_check_module(x) ((x)->_ubs_check_module_)
66 #define ubs_check_variable_(x) ubs_check_variable(x)
67 #define ubs_check_variable(x) ((x)->_ubs_check_variable_)
71 #define UBS(x) ((ubs)((x).p))
72 #define ubs_CAST(x) UBS(x)
73 #define UBS_CAST(x) UBS(x)
74 #define UBS_(x) ((x).e)
77 #define ubs_undefined ((ubs)gen_chunk_undefined)
78 #define ubs_undefined_p(x) ((x)==ubs_undefined)
85 #define gen_UBS_cons gen_ubs_cons
98 #define ubs_domain_number(x) ((x)->_type_)
99 #define ubs_list(x) ((x)->_ubs_holder_)
101 #define ubs_private_spec "\
103 import entity from \"ri.newgen\";\n\
104 ubs_check = module:entity x variable:entity;\n\
105 ubs = list:ubs_check*;\n\
entity _ubs_check_module_
entity _ubs_check_variable_
module:entity
The structure used to build lists in NewGen.
void free_ubs_check(ubs_check)
bool ubs_check_defined_p(ubs_check)
void write_ubs_check(FILE *, ubs_check)
ubs_check make_ubs_check(entity, entity)
list gen_ubs_cons(ubs, list)
bool ubs_check_consistent_p(ubs_check)
void write_ubs(FILE *, ubs)
ubs_check read_ubs_check(FILE *)
void ubs_assign_contents(ubs, ubs)
void ubs_check_assign_contents(ubs_check, ubs_check)
struct _newgen_struct_ubs_check_ * ubs_check
void ubs_check_non_recursive_free(ubs_check)
ubs_check check_ubs_check(ubs_check)
ubs_check copy_ubs_check(ubs_check)
UBS_CHECK.
list gen_ubs_check_cons(ubs_check, list)
struct _newgen_struct_entity_ * entity
bool ubs_consistent_p(ubs)
void ubs_non_recursive_free(ubs)
struct _newgen_struct_ubs_ * ubs