bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Fix NEXT (I,J,K...)

Browse Source
This commit is contained in:
otya128
2016-12-20 22:05:00 +09:00
parent bae2958ca1
commit 760c64113e
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SMILEBASIC/parser.d
View File

@@ -799,6 +799,11 @@ class Parser
statements.addStatement(statement); statements.addStatement(statement);
} }
} }
ignoreVarNext();
return statements;
}
void ignoreVarNext()
{
lex.popFront(); lex.popFront();
auto token = lex.front; auto token = lex.front;
if(token.type == TokenType.Iden) if(token.type == TokenType.Iden)
@@ -812,9 +817,9 @@ class Parser
token = lex.front; token = lex.front;
if(token.type != TokenType.Iden) break; if(token.type != TokenType.Iden) break;
lex.popFront(); lex.popFront();
token = lex.front;
} }
} }
return statements;
} }
Statements whileStatements() Statements whileStatements()
{ {
@@ -1046,6 +1051,9 @@ class Parser
node = new Break(lex.location); node = new Break(lex.location);
break; break;
case TokenType.Next: case TokenType.Next:
node = new Continue(lex.location);
ignoreVarNext();
return node;
case TokenType.Continue: case TokenType.Continue:
node = new Continue(lex.location); node = new Continue(lex.location);
break; break;