quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

+added support to get a value by an accessor in a print statement.

Browse Source
This commit is contained in:
paladin-t 2015-12-17 16:24:11 +08:00
parent 15f8eb3b5e
commit f5057fd859
2 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
HISTORY
View File

@ -1,5 +1,6 @@
Dec. 17 2015
Added support to evaluate a sub routine by an accessor in PRINT statement
Added support to evaluate a sub routine by an accessor in a PRINT statement
Added support to get a value by an accessor in a PRINT statement
Dec. 15 2015
Added a pair of mb_begin_class/mb_end_class functions

25
core/my_basic.c
View File

@ -11793,11 +11793,26 @@ int _std_print(mb_interpreter_t* s, void** l) {
switch(obj->type) {
case _DT_VAR:
if(obj->data.variable->pathing) {
_execute_statement(s, &ast);
_MAKE_NIL(&tmp);
_public_value_to_internal_object(&s->running_context->intermediate_value, &tmp);
val_ptr = obj = &tmp;
if(ast) ast = ast->prev;
_ls_node_t* pathed = _search_identifier_in_scope_chain(s, 0, obj->data.variable->name, obj->data.variable->pathing, 0);
if(pathed && pathed->data) {
if(obj != (_object_t*)pathed->data) {
obj = (_object_t*)pathed->data;
if(obj->type == _DT_ROUTINE) {
_execute_statement(s, &ast);
_MAKE_NIL(&tmp);
_public_value_to_internal_object(&s->running_context->intermediate_value, &tmp);
val_ptr = obj = &tmp;
if(ast) ast = ast->prev;
} else if(obj->type == _DT_VAR) {
val_ptr = obj = obj->data.variable->data;
if(ast) ast = ast->next;
} else {
val_ptr = obj;
if(ast) ast = ast->next;
}
}
}
goto _print;
}