REPEAT~UNTILを実装

2016-09-02 20:39:31 +09:00
parent 3e2cb7b8a7
commit 2f50fc5ba9
5 changed files with 103 additions and 22 deletions
--- a/SMILEBASIC/node.d
+++ b/SMILEBASIC/node.d
@@ -41,6 +41,7 @@ enum NodeType
    Restore,
    On,
    Input,
+    RepeatUntil,
 }
 abstract class Node
 {
@@ -564,3 +565,16 @@ class Input : Statement
        variables ~= lvalue;
    }
 }
+
+class RepeatUntil : Statement
+{
+    Expression condExpression;
+    Statements statements;
+    this(Expression condExpression, Statements statements, SourceLocation loc)
+    {
+        super.location = loc;
+        this.type = NodeType.RepeatUntil;
+        this.condExpression = condExpression;
+        this.statements = statements;
+    }
+}