diff options
Diffstat (limited to 'src/map/script.c')
-rw-r--r-- | src/map/script.c | 61 |
1 files changed, 46 insertions, 15 deletions
diff --git a/src/map/script.c b/src/map/script.c index 754cf6dd5..1a3bb92b9 100644 --- a/src/map/script.c +++ b/src/map/script.c @@ -109,6 +109,10 @@ static jmp_buf error_jump; static char* error_msg; static const char* error_pos; static int error_report; // if the error should produce output +// Used by disp_warning_message +static const char* parser_current_src; +static const char* parser_current_file; +static int parser_current_line; // for advanced scripting support ( nested if, switch, while, for, do-while, function, etc ) // [Eoe / jA 1080, 1081, 1094, 1164] @@ -429,6 +433,10 @@ static void disp_error_message2(const char *mes,const char *pos,int report) } #define disp_error_message(mes,pos) disp_error_message2(mes,pos,1) +static void disp_warning_message(const char *mes, const char *pos) { + script->warning(parser_current_src,parser_current_file,parser_current_line,mes,pos); +} + /// Checks event parameter validity static void check_event(struct script_state *st, const char *evt) { @@ -677,8 +685,10 @@ const char* script_skip_space(const char* p) p += 2; for(;;) { - if( *p == '\0' ) - return p;//disp_error_message("script:script->skip_space: end of file while parsing block comment. expected "CL_BOLD"*/"CL_NORM, p); + if( *p == '\0' ) { + disp_warning_message("script:script->skip_space: end of file while parsing block comment. expected "CL_BOLD"*/"CL_NORM, p); + return p; + } if( *p == '*' && p[1] == '/' ) {// end of block comment p += 2; @@ -1034,10 +1044,10 @@ const char* parse_simpleexpr(const char *p) i=strtoll(p,&np,0); if( i < INT_MIN ) { i = INT_MIN; - disp_error_message("parse_simpleexpr: underflow detected, capping value to INT_MIN",p); + disp_warning_message("parse_simpleexpr: underflow detected, capping value to INT_MIN",p); } else if( i > INT_MAX ) { i = INT_MAX; - disp_error_message("parse_simpleexpr: overflow detected, capping value to INT_MAX",p); + disp_warning_message("parse_simpleexpr: overflow detected, capping value to INT_MAX",p); } add_scripti(i); p=np; @@ -2028,14 +2038,12 @@ static const char* script_print_line(StringBuf* buf, const char* p, const char* return p+i+(p[i] == '\n' ? 1 : 0); } -void script_error(const char* src, const char* file, int start_line, const char* error_msg, const char* error_pos) -{ +void script_errorwarning_sub(StringBuf *buf, const char* src, const char* file, int start_line, const char* error_msg, const char* error_pos) { // Find the line where the error occurred int j; int line = start_line; const char *p; const char *linestart[5] = { NULL, NULL, NULL, NULL, NULL }; - StringBuf buf; for(p=src;p && *p;line++){ const char *lineend=strchr(p,'\n'); @@ -2049,25 +2057,44 @@ void script_error(const char* src, const char* file, int start_line, const char* p=lineend+1; } - StrBuf->Init(&buf); - StrBuf->AppendStr(&buf, "\a\n"); if( line >= 0 ) - StrBuf->Printf(&buf, "script error on %s line %d\n", file, line); + StrBuf->Printf(buf, "script error on %s line %d\n", file, line); else - StrBuf->Printf(&buf, "script error on %s item ID %d\n", file, -line); + StrBuf->Printf(buf, "script error on %s item ID %d\n", file, -line); - StrBuf->Printf(&buf, " %s\n", error_msg); + StrBuf->Printf(buf, " %s\n", error_msg); for(j = 0; j < 5; j++ ) { - script_print_line(&buf, linestart[j], NULL, line + j - 5); + script_print_line(buf, linestart[j], NULL, line + j - 5); } - p = script_print_line(&buf, p, error_pos, -line); + p = script_print_line(buf, p, error_pos, -line); for(j = 0; j < 5; j++) { - p = script_print_line(&buf, p, NULL, line + j + 1 ); + p = script_print_line(buf, p, NULL, line + j + 1 ); } +} + +void script_error(const char* src, const char* file, int start_line, const char* error_msg, const char* error_pos) { + StringBuf buf; + + StrBuf->Init(&buf); + StrBuf->AppendStr(&buf, "\a\n"); + + script_errorwarning_sub(&buf, src, file, start_line, error_msg, error_pos); + ShowError("%s", StrBuf->Value(&buf)); StrBuf->Destroy(&buf); } +void script_warning(const char* src, const char* file, int start_line, const char* error_msg, const char* error_pos) { + StringBuf buf; + + StrBuf->Init(&buf); + + script_errorwarning_sub(&buf, src, file, start_line, error_msg, error_pos); + + ShowWarning("%s", StrBuf->Value(&buf)); + StrBuf->Destroy(&buf); +} + /*========================================== * Analysis of the script *------------------------------------------*/ @@ -2078,6 +2105,9 @@ struct script_code* parse_script(const char *src,const char *file,int line,int o struct script_code* code = NULL; char end; bool unresolved_names = false; + parser_current_src = src; + parser_current_file = file; + parser_current_line = line; if( src == NULL ) return NULL;// empty script @@ -18192,6 +18222,7 @@ void script_defaults(void) { script->parse_builtin = script_parse_builtin; script->skip_space = script_skip_space; script->error = script_error; + script->warning = script_warning; script->parse_subexpr = script_parse_subexpr; script->addScript = script_hp_add; |