1 #ifndef TEST_AST_MACROS_HDR
2 #define TEST_AST_MACROS_HDR
12 #define DEFVAR(name) \
15 #define VAR(type, name) \
16 name = ast_value_new(ctx, #name, type)
18 #define VARnamed(type, name, varname) \
19 name = ast_value_new(ctx, #varname, type)
21 #define MKGLOBAL(name) \
22 assert(globals_add(name) >= 0)
24 #define MKCONSTFLOAT(name, value) \
26 name->isconst = true; \
27 name->constval.vfloat = value; \
31 #define MKCONSTSTRING(name, value) \
33 name->isconst = true; \
34 name->constval.vstring = util_strdup(value); \
40 ast_expression *exp = (ast_expression*)(a); \
41 assert(ast_block_exprs_add(curblock, exp)); \
44 #define ASSIGN(op, a, b) \
45 (ast_expression*)ast_store_new(ctx, INSTR_##op, (a), (ast_expression*)(b))
47 #define BIN(op, a, b) \
48 (ast_expression*)ast_binary_new(ctx, INSTR_##op, (ast_expression*)(a), (ast_expression*)(b))
52 ast_expression *wh_cond = (ast_expression*)(cond); \
53 ast_block *wh_body = ast_block_new(ctx); \
54 ast_block *oldcur = curblock; \
60 loop = ast_loop_new(ctx, NULL, (ast_expression*)wh_cond, \
61 NULL, NULL, (ast_expression*)wh_body); \
66 #define BUILTIN(name, outtype, number) \
68 ast_function *func_##name; \
69 ast_function *thisfunc; \
70 DEFVAR(return_##name); \
71 VARnamed(TYPE_FUNCTION, name, name); \
72 VARnamed(outtype, return_##name, "#returntype"); \
73 name->expression.next = (ast_expression*)return_##name; \
75 func_##name = ast_function_new(ctx, #name, name); \
76 thisfunc = func_##name; \
78 assert(functions_add(func_##name) >= 0); \
79 func_##name->builtin = number;
81 #define ENDBUILTIN() } while(0)
83 #define PARAM(ptype, name) \
86 VARnamed(ptype, parm, name); \
87 assert(ast_function_params_add(thisfunc, parm)); \
90 #define FUNCTION(name, outtype) \
92 ast_function *thisfunc; \
93 ast_function *func_##name; \
94 ast_block *my_funcblock; \
96 DEFVAR(return_##name); \
97 VARnamed(TYPE_FUNCTION, var_##name, name); \
98 VARnamed(outtype, return_##name, "#returntype"); \
99 var_##name->expression.next = (ast_expression*)return_##name; \
100 MKGLOBAL(var_##name); \
101 func_##name = ast_function_new(ctx, #name, var_##name); \
102 thisfunc = func_##name; \
104 assert(functions_add(func_##name) >= 0); \
105 my_funcblock = ast_block_new(ctx); \
106 assert(my_funcblock); \
107 assert(ast_function_blocks_add(func_##name, my_funcblock)); \
108 curblock = my_funcblock;
110 #define MKLOCAL(var) \
111 assert(ast_block_locals_add(curblock, var))
113 #define ENDFUNCTION(name) \