xan/zxdump
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Gosh that's awfully convincing

Browse source
This commit is contained in:
XANTRONIX Development 2023-09-13 00:56:39 -04:00
parent bff09eb8bb
commit 4451e2f2ef
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
main.c
View file

@ -264,6 +264,8 @@ static inline enum zx_basic_token_type zx_basic_token_type_get(uint8_t b) {
if ((codepoint >= 'A' && codepoint <= 'Z') if ((codepoint >= 'A' && codepoint <= 'Z')
|| (codepoint >= '0' && codepoint <= '9')) { || (codepoint >= '0' && codepoint <= '9')) {
return ZX_BASIC_TOKEN_ALNUM; return ZX_BASIC_TOKEN_ALNUM;
} else if (codepoint == '"') {
return ZX_BASIC_TOKEN_QUOTE;
} else { } else {
return ZX_BASIC_TOKEN_SYMBOL; return ZX_BASIC_TOKEN_SYMBOL;
} }
@ -319,7 +321,7 @@ static ssize_t zx_dump_basic(int fd) {
break; break;
} }
if (printf("%d", (int)be16toh(line.num)) < 0) { if (printf("%d ", (int)be16toh(line.num)) < 0) {
goto error_io; goto error_io;
} }
@ -339,10 +341,16 @@ static ssize_t zx_dump_basic(int fd) {
if (type_last == ZX_BASIC_TOKEN_WORD) { if (type_last == ZX_BASIC_TOKEN_WORD) {
space = 1; space = 1;
} }
} else if (type == ZX_BASIC_TOKEN_QUOTE) {
if (type_last == ZX_BASIC_TOKEN_WORD) {
space = 1;
}
} else if (type == ZX_BASIC_TOKEN_SYMBOL) { } else if (type == ZX_BASIC_TOKEN_SYMBOL) {
space = 0; space = 0;
} else if (type == ZX_BASIC_TOKEN_WORD) { } else if (type == ZX_BASIC_TOKEN_WORD) {
space = 1; if (type_last != ZX_BASIC_TOKEN_SYMBOL) {
space = 1;
}
} else if (ZX_CHAR_TOKEN_INTEGRAL(c) || ZX_CHAR_TOKEN_FLOAT(c)) { } else if (ZX_CHAR_TOKEN_INTEGRAL(c) || ZX_CHAR_TOKEN_FLOAT(c)) {
i += 5; i += 5;
} }