kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Pull in new upstream my-basic 

ref: http://my-basic.googlecode.com/svn/trunk@57
This commit is contained in:
Travis Cross 2014-04-05 05:31:57 +00:00
parent a49f4d3d89
commit 92f5c4f26a
2 changed files with 42 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
my_basic.c
View File

@ -3,7 +3,7 @@
** **
** For the latest info, see http://code.google.com/p/my-basic/ ** For the latest info, see http://code.google.com/p/my-basic/
** **
** Copyright (c) 2011 - 2013 Tony & Tony's Toy Game Development Team ** Copyright (c) 2011 - 2014 paladin_t
** **
** Permission is hereby granted, free of charge, to any person obtaining a copy of ** Permission is hereby granted, free of charge, to any person obtaining a copy of
** this software and associated documentation files (the "Software"), to deal in ** this software and associated documentation files (the "Software"), to deal in
@ -66,9 +66,9 @@ extern "C" {
/** Macros */ /** Macros */
#define _VER_MAJOR 1 #define _VER_MAJOR 1
#define _VER_MINOR 0 #define _VER_MINOR 0
#define _VER_REVISION 37 #define _VER_REVISION 40
#define _MB_VERSION ((_VER_MAJOR * 0x01000000) + (_VER_MINOR * 0x00010000) + (_VER_REVISION)) #define _MB_VERSION ((_VER_MAJOR * 0x01000000) + (_VER_MINOR * 0x00010000) + (_VER_REVISION))
#define _MB_VERSION_STRING "1.0.0037" #define _MB_VERSION_STRING "1.0.0040"
/* Uncomment this line to treat warnings as error */ /* Uncomment this line to treat warnings as error */
/*#define _WARING_AS_ERROR*/ /*#define _WARING_AS_ERROR*/
@ -198,12 +198,15 @@ static const char* _ERR_DESC[] = {
"Integer expected", "Integer expected",
"ELSE statement expected", "ELSE statement expected",
"TO statement expected", "TO statement expected",
"NEXT statement expected",
"UNTIL statement expected", "UNTIL statement expected",
"Loop variable expected", "Loop variable expected",
"Jump label expected", "Jump label expected",
"Variable expected",
"Invalid identifier usage", "Invalid identifier usage",
"Calculation error", "Calculation error",
"Divide by zero", "Divide by zero",
"MOD by zero",
"Invalid expression", "Invalid expression",
"Out of memory", "Out of memory",
/** Extended abort */ /** Extended abort */
@ -469,7 +472,7 @@ static _object_t* _exp_assign = 0;
val->data.integer = strcmp(_str1, _str2) __optr 0; \ val->data.integer = strcmp(_str1, _str2) __optr 0; \
} while(0) } while(0)
#define _proc_div_by_zero(__s, __tuple, __exit, __result) \ #define _proc_div_by_zero(__s, __tuple, __exit, __result, __kind) \
do { \ do { \
_object_t opndv1; \ _object_t opndv1; \
_object_t opndv2; \ _object_t opndv2; \
@ -493,7 +496,7 @@ static _object_t* _exp_assign = 0;
val->type = _DT_REAL; \ val->type = _DT_REAL; \
val->data.integer = _FINF; \ val->data.integer = _FINF; \
} \ } \
_handle_error_on_obj((__s), SE_RN_DIVIDE_BY_ZERO, ((__tuple) && *(__tuple)) ? ((_object_t*)(((_tuple3_t*)(*(__tuple)))->e1)) : 0, MB_FUNC_WARNING, __exit, __result); \ _handle_error_on_obj((__s), __kind, ((__tuple) && *(__tuple)) ? ((_object_t*)(((_tuple3_t*)(*(__tuple)))->e1)) : 0, MB_FUNC_WARNING, __exit, __result); \
} \ } \
} while(0) } while(0)
@ -1884,7 +1887,9 @@ void _set_current_error(mb_interpreter_t* s, mb_error_e err) {
/* Set current error information */ /* Set current error information */
mb_assert(s && err >= 0 && err < _countof(_ERR_DESC)); mb_assert(s && err >= 0 && err < _countof(_ERR_DESC));
s->last_error = err; if(s->last_error == SE_NO_ERR) {
s->last_error = err;
}
} }
const char* _get_error_desc(mb_error_e err) { const char* _get_error_desc(mb_error_e err) {
@ -3771,6 +3776,20 @@ int mb_set_printer(mb_interpreter_t* s, mb_print_func_t p) {
return result; return result;
} }
int mb_gets(char* buf, int s) {
/* Safe stdin reader function */
int result = 0;
if(fgets(buf, s, stdin) == 0) {
fprintf(stderr, "Error reading.\n");
exit(1);
}
result = (int)strlen(buf);
if(buf[result - 1] == '\n')
buf[result - 1] = '\0';
return result;
}
/* ========================================================} */ /* ========================================================} */
/* /*
@ -3839,7 +3858,7 @@ int _core_div(mb_interpreter_t* s, void** l) {
mb_assert(s && l); mb_assert(s && l);
_proc_div_by_zero(s, l, _exit, result); _proc_div_by_zero(s, l, _exit, result, SE_RN_DIVIDE_BY_ZERO);
_instruct_num_op_num(/, l); _instruct_num_op_num(/, l);
_exit: _exit:
@ -3852,8 +3871,10 @@ int _core_mod(mb_interpreter_t* s, void** l) {
mb_assert(s && l); mb_assert(s && l);
_proc_div_by_zero(s, l, _exit, result, SE_RN_MOD_BY_ZERO);
_instruct_int_op_int(%, l); _instruct_int_op_int(%, l);
_exit:
return result; return result;
} }
@ -4513,6 +4534,9 @@ _to:
goto _exit; goto _exit;
} }
if(!ast) {
_handle_error_on_obj(s, SE_RN_NEXT_EXPECTED, DON(ast), MB_FUNC_ERR, _exit, result);
}
obj = (_object_t*)(ast->data); obj = (_object_t*)(ast->data);
} }
@ -5623,8 +5647,11 @@ int _std_input(mb_interpreter_t* s, void** l) {
ast = (_ls_node_t*)(*l); ast = (_ls_node_t*)(*l);
obj = (_object_t*)(ast->data); obj = (_object_t*)(ast->data);
if(!obj || obj->type != _DT_VAR) {
_handle_error_on_obj(s, SE_RN_VARIABLE_EXPECTED, DON(ast), MB_FUNC_ERR, _exit, result);
}
if(obj->data.variable->data->type == _DT_INT || obj->data.variable->data->type == _DT_REAL) { if(obj->data.variable->data->type == _DT_INT || obj->data.variable->data->type == _DT_REAL) {
gets(line); mb_gets(line, sizeof(line));
obj->data.variable->data->type = _DT_INT; obj->data.variable->data->type = _DT_INT;
obj->data.variable->data->data.integer = (int_t)strtol(line, &conv_suc, 0); obj->data.variable->data->data.integer = (int_t)strtol(line, &conv_suc, 0);
if(*conv_suc != '\0') { if(*conv_suc != '\0') {
@ -5641,7 +5668,7 @@ int _std_input(mb_interpreter_t* s, void** l) {
} }
obj->data.variable->data->data.string = (char*)mb_malloc(256); obj->data.variable->data->data.string = (char*)mb_malloc(256);
memset(obj->data.variable->data->data.string, 0, 256); memset(obj->data.variable->data->data.string, 0, 256);
gets(line); mb_gets(line, sizeof(line));
strcpy(obj->data.variable->data->data.string, line); strcpy(obj->data.variable->data->data.string, line);
} else { } else {
result = MB_FUNC_ERR; result = MB_FUNC_ERR;

7
my_basic.h
View File

@ -3,7 +3,7 @@
** **
** For the latest info, see http://code.google.com/p/my-basic/ ** For the latest info, see http://code.google.com/p/my-basic/
** **
** Copyright (c) 2011 - 2013 Tony & Tony's Toy Game Development Team ** Copyright (c) 2011 - 2014 paladin_t
** **
** Permission is hereby granted, free of charge, to any person obtaining a copy of ** Permission is hereby granted, free of charge, to any person obtaining a copy of
** this software and associated documentation files (the "Software"), to deal in ** this software and associated documentation files (the "Software"), to deal in
@ -141,12 +141,15 @@ typedef enum mb_error_e {
SE_RN_INTEGER_EXPECTED, SE_RN_INTEGER_EXPECTED,
SE_RN_ELSE_EXPECTED, SE_RN_ELSE_EXPECTED,
SE_RN_TO_EXPECTED, SE_RN_TO_EXPECTED,
SE_RN_NEXT_EXPECTED,
SE_RN_UNTIL_EXPECTED, SE_RN_UNTIL_EXPECTED,
SE_RN_LOOP_VAR_EXPECTED, SE_RN_LOOP_VAR_EXPECTED,
SE_RN_JUMP_LABEL_EXPECTED, SE_RN_JUMP_LABEL_EXPECTED,
SE_RN_VARIABLE_EXPECTED,
SE_RN_INVALID_ID_USAGE, SE_RN_INVALID_ID_USAGE,
SE_RN_CALCULATION_ERROR, SE_RN_CALCULATION_ERROR,
SE_RN_DIVIDE_BY_ZERO, SE_RN_DIVIDE_BY_ZERO,
SE_RN_MOD_BY_ZERO,
SE_RN_INVALID_EXPRESSION, SE_RN_INVALID_EXPRESSION,
SE_RN_OUT_OF_MEMORY, SE_RN_OUT_OF_MEMORY,
/** Extended abort */ /** Extended abort */
@ -226,6 +229,8 @@ MBAPI const char* mb_get_error_desc(mb_error_e err);
MBAPI int mb_set_error_handler(mb_interpreter_t* s, mb_error_handler_t h); MBAPI int mb_set_error_handler(mb_interpreter_t* s, mb_error_handler_t h);
MBAPI int mb_set_printer(mb_interpreter_t* s, mb_print_func_t p); MBAPI int mb_set_printer(mb_interpreter_t* s, mb_print_func_t p);
MBAPI int mb_gets(char* buf, int s);
#ifdef MB_COMPACT_MODE #ifdef MB_COMPACT_MODE
# pragma pack() # pragma pack()
#endif /* MB_COMPACT_MODE */ #endif /* MB_COMPACT_MODE */