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

*fixed a column counting bug with utf8.

Browse Source
This commit is contained in:
paladin-t 2016-05-05 09:53:38 +08:00
parent 84b82c0654
commit 22fe01ed59
3 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
HISTORY
View File

@ -1,3 +1,6 @@
May. 5 2016
Fixed a column counting bug with UTF8
Apr. 29 2016
Fixed a loading bug when importing a UTF8 file

23
core/my_basic.c
View File

@ -11929,17 +11929,20 @@ int mb_load_string(struct mb_interpreter_t* s, const char* l, bool_t reset) {
if(context->parsing_state == _PS_NORMAL)
n = mb_uu_ischar(l);
#endif /* MB_ENABLE_UNICODE_ID */
if(n == 1) {
char ch = *l;
if((ch == _NEWLINE_CHAR || ch == _RETURN_CHAR) && (!wrapped || wrapped == ch)) {
wrapped = ch;
++context->parsing_row;
context->parsing_col = 0;
} else {
wrapped = _ZERO_CHAR;
++context->parsing_col;
do {
if(n == 1) {
char ch = *l;
if((ch == _NEWLINE_CHAR || ch == _RETURN_CHAR) && (!wrapped || wrapped == ch)) {
wrapped = ch;
++context->parsing_row;
context->parsing_col = 0;
break;
}
}
}
wrapped = _ZERO_CHAR;
++context->parsing_col;
} while(0);
status = _parse_char(s, l, n, context->parsing_pos, _row, _col);
result = status;
if(status) {

BIN
output/my_basic.exe
View File

Binary file not shown.