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

Add scopes to functions.

Browse Source
This commit is contained in:
Danila Fedorin
2018-05-28 01:18:06 -07:00
parent 031e6434c5
commit 34b97e42ac
5 changed files with 35 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/custom.c
View File

@@ -32,22 +32,26 @@ void libab_operator_free(libab_operator* op) {
libab_behavior_free(&op->behavior);
}
libab_result _function_init(libab_function* function) {
libab_result _function_init(libab_function* function, libab_ref* scope) {
libab_ref_copy(scope, &function->scope);
return libab_ref_vec_init(&function->params);
}
libab_result libab_function_init_internal(libab_function* function,
libab_function_ptr fun) {
libab_result result = _function_init(function);
libab_function_ptr fun,
libab_ref* scope) {
libab_result result = _function_init(function, scope);
libab_behavior_init_internal(&function->behavior, fun);
return result;
}
libab_result libab_function_init_tree(libab_function* function,
libab_tree* tree) {
libab_result result = _function_init(function);
libab_tree* tree,
libab_ref* scope) {
libab_result result = _function_init(function, scope);
libab_behavior_init_tree(&function->behavior, tree);
return result;
}
void libab_function_free(libab_function* fun) {
libab_behavior_free(&fun->behavior);
libab_ref_vec_free(&fun->params);
libab_ref_free(&fun->scope);
}

7
src/libabacus.c
View File

@@ -147,10 +147,11 @@ libab_result libab_register_operator_postfix(libab* ab, const char* op,
}
libab_result _create_value_function_internal(libab_ref* into, libab_ref* type,
libab_function_ptr func) {
libab_function_ptr func,
libab_ref* scope) {
libab_ref function_ref;
libab_result result =
libab_create_function_internal(&function_ref, _free_function, func);
libab_create_function_internal(&function_ref, _free_function, func, scope);
libab_ref_null(into);
if (result == LIBAB_SUCCESS) {
libab_ref_free(into);
@@ -233,7 +234,7 @@ libab_result libab_register_function(libab* ab, const char* name,
libab_table_entry* existing_entry;
libab_ref function_value;
libab_result result =
_create_value_function_internal(&function_value, type, func);
_create_value_function_internal(&function_value, type, func, &ab->table);
if (result == LIBAB_SUCCESS) {
existing_entry = libab_table_search_filter(

10
src/util.c
View File

@@ -210,12 +210,13 @@ libab_result libab_create_value_raw(libab_ref* into, void* data,
libab_result libab_create_function_internal(libab_ref* into,
void (*free_function)(void*),
libab_function_ptr fun) {
libab_function_ptr fun,
libab_ref* scope) {
libab_function* new_function;
libab_result result = LIBAB_SUCCESS;
if ((new_function = malloc(sizeof(*new_function)))) {
result = libab_function_init_internal(new_function, fun);
result = libab_function_init_internal(new_function, fun, scope);
} else {
result = LIBAB_MALLOC;
}
@@ -237,12 +238,13 @@ libab_result libab_create_function_internal(libab_ref* into,
libab_result libab_create_function_tree(libab_ref* into,
void (*free_function)(void*),
libab_tree* tree) {
libab_tree* tree,
libab_ref* scope) {
libab_function* new_function;
libab_result result = LIBAB_SUCCESS;
if ((new_function = malloc(sizeof(*new_function)))) {
result = libab_function_init_tree(new_function, tree);
result = libab_function_init_tree(new_function, tree, scope);
} else {
result = LIBAB_MALLOC;
}