1 #ifndef _newgen_message_included
2 #define _newgen_message_included
3 #define _gen_message_start 114
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 #if !defined(_newgen_range_domain_defined_)
18 #define _newgen_range_domain_defined_
19 #define RANGE_NEWGEN_DOMAIN (range_domain)
20 #define range_NEWGEN_DOMAIN (range_domain)
24 #if !defined(_newgen_Pvecteur_domain_defined_)
25 #define _newgen_Pvecteur_domain_defined_
26 #define newgen_Pvecteur(p) (p)
27 #define PVECTEUR_NEWGEN_EXTERNAL (_gen_message_start+0)
28 #define PVECTEUR_NEWGEN_DOMAIN (PVECTEUR_NEWGEN_EXTERNAL)
29 #define Pvecteur_NEWGEN_DOMAIN (PVECTEUR_NEWGEN_EXTERNAL)
32 #define message_domain (_gen_message_start+1)
33 #if !defined(_newgen_message_domain_defined_)
34 #define _newgen_message_domain_defined_
35 #define MESSAGE_NEWGEN_DOMAIN (message_domain)
36 #define message_NEWGEN_DOMAIN (message_domain)
43 #define MESSAGE(x) ((message)((x).p))
44 #define message_CAST(x) MESSAGE(x)
45 #define MESSAGE_CAST(x) MESSAGE(x)
46 #define MESSAGE_(x) ((x).e)
47 #define MESSAGE_TYPE message
48 #define message_TYPE message
49 #define message_undefined ((message)gen_chunk_undefined)
50 #define message_undefined_p(x) ((x)==message_undefined)
57 #define gen_MESSAGE_cons gen_message_cons
73 #define message_domain_number(x) ((x)->_type_)
74 #define message_array_(x) message_array(x)
75 #define message_array(x) ((x)->_message_array_)
76 #define message_content_(x) message_content(x)
77 #define message_content(x) ((x)->_message_content_)
78 #define message_neighbour_(x) message_neighbour(x)
79 #define message_neighbour(x) ((x)->_message_neighbour_)
80 #define message_dom_(x) message_dom(x)
81 #define message_dom(x) ((x)->_message_dom_)
83 #define message_spec "\
85 import entity from \"ri.newgen\";\n\
86 import range from \"ri.newgen\";\n\
88 message = array:entity x content:range* x neighbour:Pvecteur x dom:range*;\n\
message read_message(FILE *)
bool message_defined_p(message)
message check_message(message)
void message_non_recursive_free(message)
message make_message(entity, list, Pvecteur, list)
void write_message(FILE *, message)
bool message_consistent_p(message)
message copy_message(message)
MESSAGE.
struct _newgen_struct_range_ * range
void message_assign_contents(message, message)
list gen_message_cons(message, list)
void free_message(message)
struct _newgen_struct_message_ * message
struct _newgen_struct_entity_ * entity
le type des coefficients dans les vecteurs: Value est defini dans le package arithmetique
list _message_dom_
neighbour:Pvecteur
list _message_content_
array:entity
Pvecteur _message_neighbour_
content:range*
The structure used to build lists in NewGen.