1 #ifndef _newgen_property_included
2 #define _newgen_property_included
3 #define _gen_property_start 26
10 #define property_domain (_gen_property_start+0)
11 #if !defined(_newgen_property_domain_defined_)
12 #define _newgen_property_domain_defined_
13 #define PROPERTY_NEWGEN_DOMAIN (property_domain)
14 #define property_NEWGEN_DOMAIN (property_domain)
20 #define PROPERTY(x) ((property)((x).p))
21 #define property_CAST(x) PROPERTY(x)
22 #define PROPERTY_CAST(x) PROPERTY(x)
23 #define PROPERTY_(x) ((x).e)
24 #define PROPERTY_TYPE property
25 #define property_TYPE property
26 #define property_undefined ((property)gen_chunk_undefined)
27 #define property_undefined_p(x) ((x)==property_undefined)
34 #define gen_PROPERTY_cons gen_property_cons
61 #define property_domain_number(x) ((x)->_type_)
62 #define property_tag(x) ((x)->_property_tag__)
63 #define property_int_p(x) (property_tag(x)==is_property_int)
64 #define property_int_(x) property_int(x)
65 #define property_int(x) ((x)->_property_union_._property_int_)
66 #define property_bool_p(x) (property_tag(x)==is_property_bool)
67 #define property_bool_(x) property_bool(x)
68 #define property_bool(x) ((x)->_property_union_._property_bool_.b)
69 #define property_string_p(x) (property_tag(x)==is_property_string)
70 #define property_string_(x) property_string(x)
71 #define property_string(x) ((x)->_property_union_._property_string_)
73 #define property_spec "\
75 property = int:int + bool:bool + string:string;\n\
property make_property_bool(bool)
bool property_consistent_p(property)
property read_property(FILE *)
void free_property(property)
void property_assign_contents(property, property)
property copy_property(property)
PROPERTY.
property make_property(enum property_utype, void *)
property make_property_int(intptr_t)
struct _newgen_struct_property_ * property
list gen_property_cons(property, list)
property check_property(property)
string property_tag_as_string(enum property_utype)
void write_property(FILE *, property)
void property_non_recursive_free(property)
bool property_defined_p(property)
property make_property_string(string)
enum property_utype _property_tag__
union _newgen_struct_property_::@59 _property_union_
gen_chunk _property_bool_
int:int
string _property_string_
bool:bool
The structure used to build lists in NewGen.
A gen_chunk is used to store every object.