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

+added array length gain in LEN function.

Browse Source
This commit is contained in:
Wang Renxin 2015-09-21 14:11:57 +08:00
parent ef4c74059a
commit ed49a25074
1 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
core/my_basic.c
View File

@ -7030,18 +7030,37 @@ _exit:
int _std_len(mb_interpreter_t* s, void** l) { int _std_len(mb_interpreter_t* s, void** l) {
/* Get the length of a string */ /* Get the length of a string */
int result = MB_FUNC_OK; int result = MB_FUNC_OK;
char* arg = 0; _ls_node_t* ast = 0;
mb_value_t arg;
_array_t* arr = 0;
mb_assert(s && l); mb_assert(s && l);
ast = (_ls_node_t*)(*l);
mb_check(mb_attempt_open_bracket(s, l)); mb_check(mb_attempt_open_bracket(s, l));
mb_check(mb_pop_string(s, l, &arg)); mb_check(mb_pop_value(s, l, &arg));
mb_check(mb_attempt_close_bracket(s, l)); mb_check(mb_attempt_close_bracket(s, l));
mb_check(mb_push_int(s, l, (int_t)strlen(arg))); switch(arg.type) {
case MB_DT_STRING:
mb_check(mb_push_int(s, l, (int_t)strlen(arg.value.string)));
break;
case MB_DT_ARRAY:
arr = (_array_t*)arg.value.array;
mb_check(mb_push_int(s, l, (int_t)arr->count));
break;
default:
_handle_error_on_obj(s, SE_RN_NOT_SUPPORTED, 0, DON(ast), MB_FUNC_ERR, _exit, result);
break;
}
_exit:
return result; return result;
} }