1 #ifndef ASTIR_COMMON_H__
2 #define ASTIR_COMMON_H__
4 #define MEM_VECTOR_PROTO(Towner, Tmem, mem) \
5 void Towner##_##mem##_add(Towner*, Tmem); \
6 void Towner##_##mem##_remove(Towner*, size_t);
8 #define MEM_VECTOR_PROTO_ALL(Towner, Tmem, mem) \
9 MEM_VECTOR_PROTO(Towner, Tmem, mem) \
10 qbool Towner##_##mem##_find(Towner*, Tmem, size_t*); \
11 void Towner##_##mem##_clear(Towner*);
13 #define MEM_VECTOR_MAKE(Twhat, name) \
15 size_t name##_count; \
18 #define _MEM_VEC_FUN_ADD(Tself, Twhat, mem) \
19 void Tself##_##mem##_add(Tself *self, Twhat f) \
21 if (self->mem##_count == self->mem##_alloc) { \
22 if (!self->mem##_alloc) \
23 self->mem##_alloc = 16; \
25 self->mem##_alloc *= 2; \
26 self->mem = (Twhat*)realloc(self->mem, \
27 sizeof(Twhat) * self->mem##_alloc); \
29 self->mem[self->mem##_count++] = f; \
32 #define _MEM_VEC_FUN_REMOVE(Tself, Twhat, mem) \
33 void Tself##_##mem##_remove(Tself *self, size_t idx) \
36 if (idx >= self->mem##_count) \
38 for (i = idx; i < self->mem##_count-1; ++i) \
39 self->mem[i] = self->mem[i+1]; \
40 self->mem##_count--; \
41 if (self->mem##_count < self->mem##_count/2) \
43 self->mem##_alloc /= 2; \
44 self->mem = (Twhat*)realloc(self->mem, \
45 self->mem##_alloc * sizeof(Twhat)); \
49 #define _MEM_VEC_FUN_FIND(Tself, Twhat, mem) \
50 qbool Tself##_##mem##_find(Tself *self, Twhat obj, size_t *idx) \
53 for (i = 0; i < self->mem##_count; ++i) { \
54 if (self->mem[i] == obj) { \
63 #define _MEM_VEC_FUN_CLEAR(Tself, mem) \
64 void Tself##_##mem##_clear(Tself *self) \
68 free((void*) self->mem); \
70 self->mem##_count = 0; \
71 self->mem##_alloc = 0; \
74 #define MEM_VECTOR_CLEAR(owner, mem) \
76 free((void*)((owner)->mem)); \
77 (owner)->mem = NULL; \
78 (owner)->mem##_count = 0; \
79 (owner)->mem##_alloc = 0
81 #define MEM_VECTOR_INIT(owner, mem) \
83 (owner)->mem = NULL; \
84 (owner)->mem##_count = 0; \
85 (owner)->mem##_alloc = 0; \
88 #define MEM_VEC_FUNCTIONS(Tself, Twhat, mem) \
89 _MEM_VEC_FUN_REMOVE(Tself, Twhat, mem) \
90 _MEM_VEC_FUN_ADD(Tself, Twhat, mem)
92 #define MEM_VEC_FUNCTIONS_ALL(Tself, Twhat, mem) \
93 MEM_VEC_FUNCTIONS(Tself, Twhat, mem) \
94 _MEM_VEC_FUN_CLEAR(Tself, mem) \
95 _MEM_VEC_FUN_FIND(Tself, Twhat, mem)
97 typedef enum { false, true } qbool;
109 /* "virtual" and internal types */
111 qc_variant, /* eg. OFS_RETURN/PARAM... */
117 store_local, /* local, assignable for now, should get promoted later */
118 store_value, /* unassignable */
125 /* A shallow copy of a lex_file to remember where which ast node
128 typedef struct lex_ctx