Experiments/libabacus
1
0
Fork 0
Code Issues 4 Pull Requests Releases Wiki Activity

Add macro for declaring functions.

Browse Source
This commit is contained in:
Danila Fedorin 2018-08-10 16:59:44 -07:00
parent 416686ca72
commit 8192d767f2
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/interactive.c
View File

@ -7,6 +7,10 @@
#define TRY(expression) \ #define TRY(expression) \
if (result == LIBAB_SUCCESS) \ if (result == LIBAB_SUCCESS) \
result = expression; result = expression;
#define FUNCTION(name) \
libab_result function_##name (libab* ab, libab_ref* scope, \
libab_ref_vec* params, libab_ref* into)
#define INTERACTIONS 5 #define INTERACTIONS 5
void* impl_parse(const char* string) { void* impl_parse(const char* string) {
@ -42,55 +46,55 @@ void get_boolean_value(libab* ab, int val, libab_ref* into) {
val ? libab_get_true_value(ab, into) : libab_get_false_value(ab, into); val ? libab_get_true_value(ab, into) : libab_get_false_value(ab, into);
} }
libab_result function_and(libab* ab, libab_ref* scope, libab_ref_vec* params, libab_ref* into) { FUNCTION(and) {
int* left = libab_unwrap_param(params, 0); int* left = libab_unwrap_param(params, 0);
int* right = libab_unwrap_param(params, 1); int* right = libab_unwrap_param(params, 1);
get_boolean_value(ab, *left & *right, into); get_boolean_value(ab, *left & *right, into);
return LIBAB_SUCCESS; return LIBAB_SUCCESS;
} }
libab_result function_or(libab* ab, libab_ref* scope, libab_ref_vec* params, libab_ref* into) { FUNCTION(or) {
int* left = libab_unwrap_param(params, 0); int* left = libab_unwrap_param(params, 0);
int* right = libab_unwrap_param(params, 1); int* right = libab_unwrap_param(params, 1);
get_boolean_value(ab, *left | *right, into); get_boolean_value(ab, *left | *right, into);
return LIBAB_SUCCESS; return LIBAB_SUCCESS;
} }
libab_result function_xor(libab* ab, libab_ref* scope, libab_ref_vec* params, libab_ref* into) { FUNCTION(xor) {
int* left = libab_unwrap_param(params, 0); int* left = libab_unwrap_param(params, 0);
int* right = libab_unwrap_param(params, 1); int* right = libab_unwrap_param(params, 1);
get_boolean_value(ab, *left ^ *right, into); get_boolean_value(ab, *left ^ *right, into);
return LIBAB_SUCCESS; return LIBAB_SUCCESS;
} }
libab_result function_atan(libab* ab, libab_ref* scope, libab_ref_vec* params, libab_ref* into) { FUNCTION(atan) {
printf("atan called\n"); printf("atan called\n");
double* val = libab_unwrap_param(params, 0); double* val = libab_unwrap_param(params, 0);
return create_double_value(ab, atan(*val), into); return create_double_value(ab, atan(*val), into);
} }
libab_result function_atan2(libab* ab, libab_ref* scope, libab_ref_vec* params, libab_ref* into) { FUNCTION(atan2) {
printf("atan2 called\n"); printf("atan2 called\n");
double* left = libab_unwrap_param(params, 0); double* left = libab_unwrap_param(params, 0);
double* right = libab_unwrap_param(params, 1); double* right = libab_unwrap_param(params, 1);
return create_double_value(ab, atan2(*left, *right), into); return create_double_value(ab, atan2(*left, *right), into);
} }
libab_result function_print_num(libab* ab, libab_ref* scope, libab_ref_vec* params, libab_ref* into) { FUNCTION(print_num) {
double* param = libab_unwrap_param(params, 0); double* param = libab_unwrap_param(params, 0);
printf("%f\n", *param); printf("%f\n", *param);
libab_get_unit_value(ab, into); libab_get_unit_value(ab, into);
return LIBAB_SUCCESS; return LIBAB_SUCCESS;
} }
libab_result function_print_bool(libab* ab, libab_ref* scope, libab_ref_vec* params, libab_ref* into) { FUNCTION(print_bool) {
int* param = libab_unwrap_param(params, 0); int* param = libab_unwrap_param(params, 0);
printf("%s\n", *param ? "true" : "false"); printf("%s\n", *param ? "true" : "false");
libab_get_unit_value(ab, into); libab_get_unit_value(ab, into);
return LIBAB_SUCCESS; return LIBAB_SUCCESS;
} }
libab_result function_print_unit(libab* ab, libab_ref* scope, libab_ref_vec* params, libab_ref* into) { FUNCTION(print_unit) {
printf("()\n"); printf("()\n");
libab_get_unit_value(ab, into); libab_get_unit_value(ab, into);
return LIBAB_SUCCESS; return LIBAB_SUCCESS;