blob: a5e49cb6a8186f948ff012fe954182caefc8cfb5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#ifndef _COLM_STRUCT_H
struct colm_struct *colm_struct_new( struct colm_program *prg, int id );
void colm_struct_delete( struct colm_program *prg, struct colm_tree **sp,
struct colm_struct *el );
struct colm_struct *colm_struct_inbuilt( Program *prg, int size, void *destructor );
#define colm_struct_get_field( obj, field ) \
((struct colm_tree**)(((struct colm_struct*)obj)+1))[field]
#define colm_struct_set_field( obj, field, val ) \
((struct colm_tree**)(((struct colm_struct*)obj)+1))[field] = val
#define colm_struct_get_field_type( obj, type, field ) \
((type*)(((struct colm_struct*)obj)+1))[field]
#define colm_struct_set_field_type( obj, type, field, val ) \
((type*)(((struct colm_struct*)obj)+1))[field] = val
#endif
|
