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

Awfully good result there!

Browse source
This commit is contained in:
XANTRONIX Development 2023-09-11 19:29:03 -04:00
parent 8b4a8a933a
commit cbd7bf625b
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
main.c
View file

@ -42,6 +42,12 @@
#define ZX_BASIC_STATE_LEN 116 #define ZX_BASIC_STATE_LEN 116
#define ZX_CHAR_TOKEN_INTEGRAL(c) \
(c == 0x0e)
#define ZX_CHAR_TOKEN_FLOAT(c) \
(c == 0x7e)
typedef struct _zx_basic_line { typedef struct _zx_basic_line {
uint16_t num, len; uint16_t num, len;
} zx_basic_line; } zx_basic_line;
@ -290,6 +296,10 @@ static ssize_t zx_dump_basic(int fd) {
} }
} }
if (ZX_CHAR_TOKEN_INTEGRAL(c) || ZX_CHAR_TOKEN_FLOAT(c)) {
i += 5;
}
if (zx_print(c, tty) < 0) { if (zx_print(c, tty) < 0) {
goto error_io; goto error_io;
} }