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

*polished.

Browse Source
This commit is contained in:
Wang Renxin 2017-06-15 13:28:55 +08:00
parent e73db1ce56
commit e25bb710c2
7 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
MY-BASIC Quick Reference.pdf
View File

Binary file not shown.

1
clean.cmd
View File

@ -13,6 +13,7 @@ del /f /s /q *.obj
del /f /s /q *.pdb del /f /s /q *.pdb
del /f /s /q *.sdf del /f /s /q *.sdf
del /f /s /q *.suo del /f /s /q *.suo
del /f /s /q *.user
del /f /s /q *.vc.db del /f /s /q *.vc.db
del /f /s /q output\*.dep del /f /s /q output\*.dep

17
core/my_basic.c
View File

@ -3253,7 +3253,7 @@ static int mb_uu_getbom(const char** ch) {
} }
#ifdef MB_ENABLE_UNICODE #ifdef MB_ENABLE_UNICODE
/* Determine whether a buffer is a UTF8 encoded character, and return taken bytes */ /* Determine whether a buffer starts with a UTF8 encoded character, and return taken byte count */
static int mb_uu_ischar(const char* ch) { static int mb_uu_ischar(const char* ch) {
/* Copyright 2008, 2009 Bjoern Hoehrmann, http://bjoern.hoehrmann.de/utf-8/decoder/dfa/ */ /* Copyright 2008, 2009 Bjoern Hoehrmann, http://bjoern.hoehrmann.de/utf-8/decoder/dfa/ */
# define _TAKE(__ch, __c, __r) do { __c = *__ch++; __r++; } while(0) # define _TAKE(__ch, __c, __r) do { __c = *__ch++; __r++; } while(0)
@ -4827,7 +4827,7 @@ static bool_t _is_operator_char(char c) {
); );
} }
/* Determine whether a character is a exponential char */ /* Determine whether a character is exponential char */
static bool_t _is_exponential_char(char c) { static bool_t _is_exponential_char(char c) {
return (c == 'e') || (c == 'E'); return (c == 'e') || (c == 'E');
} }
@ -7383,9 +7383,9 @@ static _ls_node_t* _node_at_list(_list_t* coll, int index) {
_fill_ranged(coll); _fill_ranged(coll);
if(index >= 0 && index < (int)coll->count) { if(index >= 0 && index < (int)coll->count) {
/* Layout: HEAD ... LEFT ... PIVOT ... RIGHT ... TAIL /* Position: HEAD ... LEFT ... PIVOT ... RIGHT ... TAIL
PIVOT is a cached node and,
LEN(HEAD to LEFT) == LEN(LEFT to PIVOT) && LEN(PIVOT to RIGHT) == LEN(RIGHT to TAIL) LEN(HEAD to LEFT) == LEN(LEFT to PIVOT) && LEN(PIVOT to RIGHT) == LEN(RIGHT to TAIL)
PIVOT is a cached node
*/ */
int head = 0, int head = 0,
left = coll->cached_index / 2, left = coll->cached_index / 2,
@ -12261,7 +12261,7 @@ int mb_get_class_userdata(struct mb_interpreter_t* s, void** l, void** d) {
#ifdef MB_ENABLE_CLASS #ifdef MB_ENABLE_CLASS
int result = MB_FUNC_OK; int result = MB_FUNC_OK;
if(!s || !l || !d) { if(!s || !d) {
result = MB_FUNC_ERR; result = MB_FUNC_ERR;
goto _exit; goto _exit;
@ -12295,7 +12295,7 @@ int mb_set_class_userdata(struct mb_interpreter_t* s, void** l, void* d) {
#ifdef MB_ENABLE_CLASS #ifdef MB_ENABLE_CLASS
int result = MB_FUNC_OK; int result = MB_FUNC_OK;
if(!s || !l || !d) { if(!s || !d) {
result = MB_FUNC_ERR; result = MB_FUNC_ERR;
goto _exit; goto _exit;
@ -12323,8 +12323,9 @@ int mb_get_value_by_name(struct mb_interpreter_t* s, void** l, const char* n, mb
int result = MB_FUNC_OK; int result = MB_FUNC_OK;
_ls_node_t* tmp = 0; _ls_node_t* tmp = 0;
_object_t* obj = 0; _object_t* obj = 0;
mb_unrefvar(l);
if(!s || !l || !n) { if(!s || !n) {
result = MB_FUNC_ERR; result = MB_FUNC_ERR;
goto _exit; goto _exit;
@ -12350,7 +12351,7 @@ int mb_add_var(struct mb_interpreter_t* s, void** l, const char* n, mb_value_t v
_var_t* var = 0; _var_t* var = 0;
_ls_node_t* tmp = 0; _ls_node_t* tmp = 0;
if(!s || !l || !n) { if(!s || !n) {
result = MB_FUNC_ERR; result = MB_FUNC_ERR;
goto _exit; goto _exit;

4
core/my_basic.h
View File

@ -352,7 +352,7 @@ extern "C" {
# define MB_LOOP_BREAK 101 # define MB_LOOP_BREAK 101
# define MB_LOOP_CONTINUE 102 # define MB_LOOP_CONTINUE 102
# define MB_SUB_RETURN 103 # define MB_SUB_RETURN 103
# define MB_EXTENDED_ABORT 1001 # define MB_EXTENDED_ABORT 201
#endif /* MB_CODES */ #endif /* MB_CODES */
#ifndef mb_check #ifndef mb_check
@ -570,7 +570,7 @@ typedef int (* mb_has_routine_arg_func_t)(struct mb_interpreter_t*, void**, mb_v
typedef int (* mb_pop_routine_arg_func_t)(struct mb_interpreter_t*, void**, mb_value_t*, unsigned, unsigned*, void*, mb_value_t*); typedef int (* mb_pop_routine_arg_func_t)(struct mb_interpreter_t*, void**, mb_value_t*, unsigned, unsigned*, void*, mb_value_t*);
typedef int (* mb_routine_func_t)(struct mb_interpreter_t*, void**, mb_value_t*, unsigned, void*, mb_has_routine_arg_func_t, mb_pop_routine_arg_func_t); typedef int (* mb_routine_func_t)(struct mb_interpreter_t*, void**, mb_value_t*, unsigned, void*, mb_has_routine_arg_func_t, mb_pop_routine_arg_func_t);
typedef int (* mb_debug_stepped_handler_t)(struct mb_interpreter_t*, void**, char*, int, unsigned short, unsigned short); typedef int (* mb_debug_stepped_handler_t)(struct mb_interpreter_t*, void**, char*, int, unsigned short, unsigned short);
typedef void (* mb_error_handler_t)(struct mb_interpreter_t*, enum mb_error_e, char*, char*, int, unsigned short, unsigned short, int); typedef void (* mb_error_handler_t)(struct mb_interpreter_t*, mb_error_e, char*, char*, int, unsigned short, unsigned short, int);
typedef int (* mb_print_func_t)(const char*, ...); typedef int (* mb_print_func_t)(const char*, ...);
typedef int (* mb_input_func_t)(char*, int); typedef int (* mb_input_func_t)(char*, int);
typedef int (* mb_import_handler_t)(struct mb_interpreter_t*, const char*); typedef int (* mb_import_handler_t)(struct mb_interpreter_t*, const char*);

2
sample/sample07.bas
View File

@ -92,7 +92,7 @@ enddef
' This is a brainfuck interpreter written with MY-BASIC ' This is a brainfuck interpreter written with MY-BASIC
input "Input: ", cmd$ input "Input: ", cmd$
' Use a sample code? ' Input "hello" to use hello-world
if cmd$ = "hello" then if cmd$ = "hello" then
cmd$ = "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>." cmd$ = "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>."
endif endif

2
sample/yard/entity.bas
View File

@ -3,7 +3,7 @@
' Copyright (C) 2011 - 2017 Wang Renxin. All rights reserved. ' Copyright (C) 2011 - 2017 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/ ' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
Class entity class entity
var name = "" var name = ""
var alive = true var alive = true

24
shell/main.c
View File

@ -101,9 +101,9 @@ extern "C" {
static struct mb_interpreter_t* bas = 0; static struct mb_interpreter_t* bas = 0;
static jmp_buf _mem_failure_point; static jmp_buf mem_failure_point;
#define _CHECK_MEM(__p) do { if(!(__p)) { longjmp(_mem_failure_point, 1); } } while(0) #define _CHECK_MEM(__p) do { if(!(__p)) { longjmp(mem_failure_point, 1); } } while(0)
/* ========================================================} */ /* ========================================================} */
@ -185,8 +185,8 @@ static long alloc_bytes = 0;
static long in_pool_count = 0; static long in_pool_count = 0;
static long in_pool_bytes = 0; static long in_pool_bytes = 0;
static long _POOL_THRESHOLD_COUNT = 0; static long POOL_THRESHOLD_COUNT = 0;
static long _POOL_THRESHOLD_BYTES = 1024 * 1024 * 32; static long POOL_THRESHOLD_BYTES = 1024 * 1024 * 32;
#define _POOL_NODE_ALLOC(size) (((char*)malloc(sizeof(_pool_tag_t) + size)) + sizeof(_pool_tag_t)) #define _POOL_NODE_ALLOC(size) (((char*)malloc(sizeof(_pool_tag_t) + size)) + sizeof(_pool_tag_t))
#define _POOL_NODE_PTR(s) (s - sizeof(_pool_tag_t)) #define _POOL_NODE_PTR(s) (s - sizeof(_pool_tag_t))
@ -211,10 +211,10 @@ static void _tidy_mem_pool(bool_t force) {
char* s = 0; char* s = 0;
if(!force) { if(!force) {
if(_POOL_THRESHOLD_COUNT > 0 && in_pool_count < _POOL_THRESHOLD_COUNT) if(POOL_THRESHOLD_COUNT > 0 && in_pool_count < POOL_THRESHOLD_COUNT)
return; return;
if(_POOL_THRESHOLD_BYTES > 0 && in_pool_bytes < _POOL_THRESHOLD_BYTES) if(POOL_THRESHOLD_BYTES > 0 && in_pool_bytes < POOL_THRESHOLD_BYTES)
return; return;
} }
@ -1193,7 +1193,7 @@ static bool_t _process_parameters(int argc, char* argv[]) {
#if _USE_MEM_POOL #if _USE_MEM_POOL
if(memp) if(memp)
_POOL_THRESHOLD_BYTES = atoi(memp); POOL_THRESHOLD_BYTES = atoi(memp);
#else /* _USE_MEM_POOL */ #else /* _USE_MEM_POOL */
mb_unrefvar(memp); mb_unrefvar(memp);
#endif /* _USE_MEM_POOL */ #endif /* _USE_MEM_POOL */
@ -1224,12 +1224,12 @@ static bool_t _process_parameters(int argc, char* argv[]) {
# define _OS "IOS" # define _OS "IOS"
#elif defined MB_OS_MAC #elif defined MB_OS_MAC
# define _OS "MACOS" # define _OS "MACOS"
#elif defined MB_OS_UNIX
# define _OS "UNIX"
#elif defined MB_OS_LINUX
# define _OS "LINUX"
#elif defined MB_OS_ANDROID #elif defined MB_OS_ANDROID
# define _OS "ANDROID" # define _OS "ANDROID"
#elif defined MB_OS_LINUX
# define _OS "LINUX"
#elif defined MB_OS_UNIX
# define _OS "UNIX"
#else #else
# define _OS "UNKNOWN" # define _OS "UNKNOWN"
#endif /* MB_OS_WIN */ #endif /* MB_OS_WIN */
@ -1569,7 +1569,7 @@ int main(int argc, char* argv[]) {
atexit(_on_exit); atexit(_on_exit);
if(setjmp(_mem_failure_point)) { if(setjmp(mem_failure_point)) {
_printf("Error: out of memory.\n"); _printf("Error: out of memory.\n");
exit(1); exit(1);