Implement LINPUT

2016-12-29 17:59:47 +09:00
parent c0f1e4e9e5
commit 20889c28e1
5 changed files with 80 additions and 0 deletions
--- a/SMILEBASIC/node.d
+++ b/SMILEBASIC/node.d
@@ -50,6 +50,7 @@ enum NodeType
    XOff,
    Exec,
    Use,
+    Linput,
 }
 abstract class Node
 {
@@ -675,3 +676,24 @@ class Use : Statement
        this.type = NodeType.Use;
    }
 }
+class Linput : Statement
+{
+    bool hasGuide;
+    Expression guide;
+    Expression expression;
+    this(Expression guide, Expression expr, SourceLocation loc)
+    {
+        super.location = loc;
+        this.type = NodeType.Linput;
+        this.hasGuide = true;
+        this.guide = guide;
+        this.expression = expr;
+    }
+    this(Expression expr, SourceLocation loc)
+    {
+        super.location = loc;
+        this.type = NodeType.Linput;
+        this.hasGuide = false;
+        this.expression = expr;
+    }
+}