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

+added a SRND statement; +added range support for RND statement.

Browse Source
This commit is contained in:
Wang Renxin 2015-10-20 17:50:35 +08:00
parent b1c2757d87
commit 567dee9282
1 changed files with 54 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
core/my_basic.c
View File

@ -79,7 +79,7 @@ extern "C" {
/** Macros */ /** Macros */
#define _VER_MAJOR 1 #define _VER_MAJOR 1
#define _VER_MINOR 1 #define _VER_MINOR 1
#define _VER_REVISION 88 #define _VER_REVISION 89
#define _VER_SUFFIX #define _VER_SUFFIX
#define _MB_VERSION ((_VER_MAJOR * 0x01000000) + (_VER_MINOR * 0x00010000) + (_VER_REVISION)) #define _MB_VERSION ((_VER_MAJOR * 0x01000000) + (_VER_MINOR * 0x00010000) + (_VER_REVISION))
#define _STRINGIZE(A) _MAKE_STRINGIZE(A) #define _STRINGIZE(A) _MAKE_STRINGIZE(A)
@ -1250,6 +1250,7 @@ static int _std_floor(mb_interpreter_t* s, void** l);
static int _std_ceil(mb_interpreter_t* s, void** l); static int _std_ceil(mb_interpreter_t* s, void** l);
static int _std_fix(mb_interpreter_t* s, void** l); static int _std_fix(mb_interpreter_t* s, void** l);
static int _std_round(mb_interpreter_t* s, void** l); static int _std_round(mb_interpreter_t* s, void** l);
static int _std_srnd(mb_interpreter_t* s, void** l);
static int _std_rnd(mb_interpreter_t* s, void** l); static int _std_rnd(mb_interpreter_t* s, void** l);
static int _std_sin(mb_interpreter_t* s, void** l); static int _std_sin(mb_interpreter_t* s, void** l);
static int _std_cos(mb_interpreter_t* s, void** l); static int _std_cos(mb_interpreter_t* s, void** l);
@ -1359,6 +1360,7 @@ static const _func_t _std_libs[] = {
{ "CEIL", _std_ceil }, { "CEIL", _std_ceil },
{ "FIX", _std_fix }, { "FIX", _std_fix },
{ "ROUND", _std_round }, { "ROUND", _std_round },
{ "SRND", _std_srnd },
{ "RND", _std_rnd }, { "RND", _std_rnd },
{ "SIN", _std_sin }, { "SIN", _std_sin },
{ "COS", _std_cos }, { "COS", _std_cos },
@ -9409,19 +9411,64 @@ _exit:
return result; return result;
} }
int _std_rnd(mb_interpreter_t* s, void** l) { int _std_srnd(mb_interpreter_t* s, void** l) {
/* Get a random value among 0 ~ 1 */ /* Set a random seed */
int result = MB_FUNC_OK; int result = MB_FUNC_OK;
int_t seed = 0;
mb_assert(s && l);
mb_check(mb_attempt_open_bracket(s, l));
mb_check(mb_pop_int(s, l, &seed));
mb_check(mb_attempt_close_bracket(s, l));
srand((unsigned int)seed);
return result;
}
int _std_rnd(mb_interpreter_t* s, void** l) {
/* Get a random value among 0 ~ 1 or among given bounds */
int result = MB_FUNC_OK;
_ls_node_t* ast = 0;
real_t rnd = (real_t)0.0f; real_t rnd = (real_t)0.0f;
mb_assert(s && l); mb_assert(s && l);
ast = (_ls_node_t*)(*l);
if(ast && ast->next && _IS_FUNC(ast->next->data, _core_open_bracket)) {
int_t lw = 0;
int_t hg = 0;
mb_check(mb_attempt_open_bracket(s, l));
if(mb_has_arg(s, l)) {
mb_check(mb_pop_int(s, l, &hg));
}
if(mb_has_arg(s, l)) {
lw = hg;
mb_check(mb_pop_int(s, l, &hg));
}
mb_check(mb_attempt_close_bracket(s, l));
if(lw >= hg) {
_handle_error_on_obj(s, SE_RN_ILLEGAL_BOUND, 0, TON(l), MB_FUNC_ERR, _exit, result);
}
rnd = (real_t)rand() / RAND_MAX * (hg - lw + (real_t)0.99999f) + lw; /* [low, high] */
mb_check(mb_push_int(s, l, (int_t)rnd));
} else {
mb_check(mb_attempt_func_begin(s, l)); mb_check(mb_attempt_func_begin(s, l));
mb_check(mb_attempt_func_end(s, l)); mb_check(mb_attempt_func_end(s, l));
rnd = (real_t)(((real_t)(rand() % 101)) / 100.0f); rnd = (real_t)(((real_t)(rand() % 101)) / 100.0f); /* [0.0, 1.0] */
mb_check(mb_push_real(s, l, rnd));
mb_check(mb_push_real(s, l, rnd));
}
_exit:
return result; return result;
} }