Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-26 11:30:12 +00:00
Code Issues Projects Releases Wiki Activity

tokenize_asoft: fix so it handles AT/ATN case properly

Browse Source 
a bit of a hack though
This commit is contained in:
Vince Weaver 2016-05-25 15:20:48 -04:00
parent 7ec38fd060
commit e5f2c1de1a
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
asoft_basic-utils/tokenize_asoft.c
View File

@ -89,6 +89,8 @@ static int getnum(void) {
static int in_quotes=0,in_rem=0; static int in_quotes=0,in_rem=0;
/* note: try to find longest possible token */
/* otherwise ATN is turned into AT N */
static int find_token(void) { static int find_token(void) {
int ch,i; int ch,i;
@ -118,13 +120,16 @@ static int find_token(void) {
/* don't tokenize if in quotes */ /* don't tokenize if in quotes */
if ((!in_quotes)&&(!in_rem)) { if ((!in_quotes)&&(!in_rem)) {
// fprintf(stderr,"%s",line_ptr); // fprintf(stderr,"%s",line_ptr);
for(i=0;i<NUM_TOKENS;i++) { for(i=0;i<NUM_TOKENS;i++) {
if (!strncmp(line_ptr,applesoft_tokens[i], if (!strncmp(line_ptr,applesoft_tokens[i],
strlen(applesoft_tokens[i]))) { strlen(applesoft_tokens[i]))) {
// fprintf(stderr,
// "Found token %x (%s) %d\n",0x80+i, /* HACK: special case to avoid AT/ATN problem */
// applesoft_tokens[i],i); if ((i==69) && (line_ptr[2]=='N')) continue;
// fprintf(stderr,
// "Found token %x (%s) %d\n",0x80+i,
// applesoft_tokens[i],i);
line_ptr+=strlen(applesoft_tokens[i]); line_ptr+=strlen(applesoft_tokens[i]);