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

*renamed old mb_ref_value to mb_make_ref_value; +added a new mb_ref_value function; +added an mb_unref_value function.

Browse Source
This commit is contained in:
Wang Renxin 2015-10-19 13:42:31 +08:00
parent dadb5ba43f
commit 0d91bd0acf
1 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
core/my_basic.c
View File

@ -231,6 +231,7 @@ static const char* _ERR_DESC[] = {
"Collection or iterator expected", "Collection or iterator expected",
"Invalid iterator", "Invalid iterator",
"Empty collection", "Empty collection",
"Referenced type expected",
/** Extended abort */ /** Extended abort */
"Extended abort" "Extended abort"
}; };
@ -7277,7 +7278,7 @@ _exit:
return result; return result;
} }
int mb_ref_value(struct mb_interpreter_t* s, void* val, mb_value_t* out, mb_dtor_func_t un, mb_clone_func_t cl, mb_hash_func_t hs, mb_cmp_func_t cp, mb_fmt_func_t ft) { int mb_make_ref_value(struct mb_interpreter_t* s, void* val, mb_value_t* out, mb_dtor_func_t un, mb_clone_func_t cl, mb_hash_func_t hs, mb_cmp_func_t cp, mb_fmt_func_t ft) {
/* Create a referenced usertype value */ /* Create a referenced usertype value */
int result = MB_FUNC_OK; int result = MB_FUNC_OK;
_usertype_ref_t* ref = 0; _usertype_ref_t* ref = 0;
@ -7293,6 +7294,40 @@ int mb_ref_value(struct mb_interpreter_t* s, void* val, mb_value_t* out, mb_dtor
return result; return result;
} }
int mb_ref_value(struct mb_interpreter_t* s, void** l, mb_value_t val) {
/* Add reference to a value */
int result = MB_FUNC_OK;
_object_t obj;
mb_assert(s && l);
_public_value_to_internal_object(&val, &obj);
if(obj.type != _DT_USERTYPE_REF) {
_handle_error_on_obj(s, SE_RN_REFERENCED_EXPECTED, 0, TON(l), MB_FUNC_ERR, _exit, result);
}
_ref(&obj.data.usertype_ref->ref, &obj.data.usertype_ref);
_exit:
return result;
}
int mb_unref_value(struct mb_interpreter_t* s, void** l, mb_value_t val) {
/* Remove reference to a value */
int result = MB_FUNC_OK;
_object_t obj;
mb_assert(s && l);
_public_value_to_internal_object(&val, &obj);
if(obj.type != _DT_USERTYPE_REF) {
_handle_error_on_obj(s, SE_RN_REFERENCED_EXPECTED, 0, TON(l), MB_FUNC_ERR, _exit, result);
}
_unref(&obj.data.usertype_ref->ref, &obj.data.usertype_ref);
_exit:
return result;
}
int mb_dispose_value(struct mb_interpreter_t* s, mb_value_t val) { int mb_dispose_value(struct mb_interpreter_t* s, mb_value_t val) {
/* Dispose a value */ /* Dispose a value */
int result = MB_FUNC_OK; int result = MB_FUNC_OK;