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

*improved ticks function; +initialized random number seed on start up.

Browse Source
This commit is contained in:
paladin-t 2015-12-07 12:44:53 +08:00
parent 24d00e4d2f
commit e25e8ecf94
4 changed files with 55 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
HISTORY
View File

@ -1,3 +1,7 @@
Dec. 7 2015
Improved TICKS function
Initialized random number seed on start up
Dec. 4 2015 Dec. 4 2015
Updated icon Updated icon
Added structures for class development Added structures for class development

2
core/my_basic.c
View File

@ -3612,7 +3612,7 @@ _end_import:
goto _exit; goto _exit;
} }
if(_IS_FUNC(context->last_symbol, _core_def)) { if(_IS_FUNC(context->last_symbol, _core_class)) {
if(context->routine_state > 1) { if(context->routine_state > 1) {
_handle_error_now(s, SE_RN_INVALID_CLASS, 0, MB_FUNC_ERR); _handle_error_now(s, SE_RN_INVALID_CLASS, 0, MB_FUNC_ERR);

BIN
output/my_basic.exe
View File

Binary file not shown.

68
shell/main.c
View File

@ -852,6 +852,49 @@ static void _process_parameters(int argc, char* argv[]) {
** Scripting interfaces ** Scripting interfaces
*/ */
#define _HAS_TICKS
#if defined _MSC_VER
static int_t _ticks(void) {
LARGE_INTEGER li;
double freq = 0.0;
int_t ret = 0;
QueryPerformanceFrequency(&li);
freq = (double)li.QuadPart / 1000.0;
QueryPerformanceCounter(&li);
ret = (int_t)((double)li.QuadPart / freq);
return ret;
}
#elif defined __GNUC__ || defined __clang__ /* _MSC_VER */
static int_t _ticks(void) {
struct timespec ts;
int_t ret = 0;
clock_gettime(CLOCK_MONOTONIC, &ts);
ret = (ts.tv_sec * 1000 + ts.tv_nsec / 1000000);
return ret;
}
#else /* _MSC_VER */
# undef _HAS_TICKS
#endif /* _MSC_VER */
#ifdef _HAS_TICKS
static int ticks(struct mb_interpreter_t* s, void** l) {
int result = MB_FUNC_OK;
mb_assert(s && l);
mb_check(mb_attempt_open_bracket(s, l));
mb_check(mb_attempt_close_bracket(s, l));
mb_check(mb_push_int(s, l, _ticks()));
return result;
}
#endif /* _HAS_TICKS */
static int beep(struct mb_interpreter_t* s, void** l) { static int beep(struct mb_interpreter_t* s, void** l) {
int result = MB_FUNC_OK; int result = MB_FUNC_OK;
@ -865,21 +908,6 @@ static int beep(struct mb_interpreter_t* s, void** l) {
return result; return result;
} }
#ifdef _MSC_VER
static int ticks(struct mb_interpreter_t* s, void** l) {
int result = MB_FUNC_OK;
mb_assert(s && l);
mb_check(mb_attempt_open_bracket(s, l));
mb_check(mb_attempt_close_bracket(s, l));
mb_check(mb_push_int(s, l, (int_t)GetTickCount()));
return result;
}
#endif /* _MSC_VER */
/* ========================================================} */ /* ========================================================} */
/* /*
@ -919,6 +947,10 @@ static void _on_startup(void) {
c = _create_code(); c = _create_code();
#ifdef _HAS_TICKS
srand((unsigned)_ticks());
#endif /* _HAS_TICKS */
mb_init(); mb_init();
mb_open(&bas); mb_open(&bas);
@ -926,10 +958,10 @@ static void _on_startup(void) {
mb_debug_set_stepped_handler(bas, _on_stepped); mb_debug_set_stepped_handler(bas, _on_stepped);
mb_set_error_handler(bas, _on_error); mb_set_error_handler(bas, _on_error);
mb_reg_fun(bas, beep); #ifdef _HAS_TICKS
#ifdef _MSC_VER
mb_reg_fun(bas, ticks); mb_reg_fun(bas, ticks);
#endif /* _MSC_VER */ #endif /* _HAS_TICKS */
mb_reg_fun(bas, beep);
} }
static void _on_exit(void) { static void _on_exit(void) {