REPEAT~UNTILを実装

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;
+    }
+}