GOTO expr,GOSUB expr実装

2015-08-29 13:38:03 +09:00
parent cc3f18ee9a
commit d05166a3b9
5 changed files with 87 additions and 10 deletions
--- a/SMILEBASIC/node.d
+++ b/SMILEBASIC/node.d
@@ -222,6 +222,12 @@ class Goto : Statement
        this.type = NodeType.Goto;
        this.label = name;
    }
+    Expression labelexpr;
+    this(Expression expr)
+    {
+        this.type = NodeType.Goto;
+        this.labelexpr = expr;
+    }
 }
 class If : Statement
 {
@@ -271,6 +277,12 @@ class Gosub : Statement
        this.type = NodeType.Gosub;
        this.label = name;
    }
+    Expression labelexpr;
+    this(Expression expr)
+    {
+        this.type = NodeType.Gosub;
+        this.labelexpr = expr;
+    }
 }
 class Return : Statement
 {