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

Yeah this tracks

Browse source
This commit is contained in:
XANTRONIX Development 2023-09-13 22:30:14 -04:00
parent 1b8430ae84
commit 36248d304d
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/zx/basic.h
View file

@ -26,6 +26,7 @@ enum zx_basic_token_type {
ZX81_BASIC_TOKEN_WORD, ZX81_BASIC_TOKEN_WORD,
ZX81_BASIC_TOKEN_INTEGRAL, ZX81_BASIC_TOKEN_INTEGRAL,
ZX81_BASIC_TOKEN_FLOAT, ZX81_BASIC_TOKEN_FLOAT,
ZX81_BASIC_TOKEN_NEWLINE,
}; };
ssize_t zx81_basic_dump(int fd, FILE *stream); ssize_t zx81_basic_dump(int fd, FILE *stream);

9
src/basic.c
View file

@ -51,6 +51,8 @@ static inline enum zx_basic_token_type zx_basic_token_type_get(uint8_t b) {
return ZX81_BASIC_TOKEN_INTEGRAL; return ZX81_BASIC_TOKEN_INTEGRAL;
} else if (ZX81_CHAR_TOKEN_FLOAT(b)) { } else if (ZX81_CHAR_TOKEN_FLOAT(b)) {
return ZX81_BASIC_TOKEN_FLOAT; return ZX81_BASIC_TOKEN_FLOAT;
} else if (ZX81_CHAR_NEWLINE(b)) {
return ZX81_BASIC_TOKEN_NEWLINE;
} }
return ZX81_BASIC_TOKEN_UNKNOWN; return ZX81_BASIC_TOKEN_UNKNOWN;
@ -158,6 +160,9 @@ ssize_t zx81_basic_dump(int fd, FILE *stream) {
i += 5; i += 5;
break; break;
case ZX81_BASIC_TOKEN_NEWLINE:
break;
case ZX81_BASIC_TOKEN_UNKNOWN: case ZX81_BASIC_TOKEN_UNKNOWN:
continue; continue;
} }
@ -172,10 +177,6 @@ ssize_t zx81_basic_dump(int fd, FILE *stream) {
last = c; last = c;
} }
if (fputc('\n', stream) < 0) {
goto error_io;
}
} }
free(buf); free(buf);