Apple-2-SW/bastools
1
0
Fork 0
mirror of https://github.com/AppleCommander/bastools.git synced 2025-01-03 01:29:28 +00:00
Code Issues Projects Releases Wiki Activity

Fixing the "IF expr THEN [GOTO|GOSUB] n" case.

Browse Source
This commit is contained in:
Rob Greene 2018-06-10 10:35:50 -05:00
parent d45c17dcaf
commit 54370109b2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
api/src/main/java/io/github/applecommander/bastokenizer/api/visitors/ReassignmentVisitor.java
View File

@ -44,6 +44,7 @@ public class ReassignmentVisitor implements Visitor {
* - GOSUB n
* - GOTO n
* - IF ... THEN n
* - IF ... THEN [GOTO|GOSUB] n
* - LIST n [ ,m ]
* - ON x GOTO n, m, ...
* - ON x GOSUB n, m, ...
@ -66,7 +67,8 @@ public class ReassignmentVisitor implements Visitor {
next = t.keyword == ApplesoftKeyword.GOSUB || t.keyword == ApplesoftKeyword.GOTO
|| t.keyword == ApplesoftKeyword.THEN || t.keyword == ApplesoftKeyword.RUN
|| t.keyword == ApplesoftKeyword.LIST;
multiple |= t.keyword == ApplesoftKeyword.LIST || t.keyword == ApplesoftKeyword.ON;
multiple |= t.keyword == ApplesoftKeyword.LIST || t.keyword == ApplesoftKeyword.ON
|| t.keyword == ApplesoftKeyword.THEN;
}
newStatement.tokens.add(newToken);
}