Add XON/XOFF parsing support & Fix OPTION

2016-12-09 18:14:02 +09:00
parent 9feb911a95
commit 0306a215b0
2 changed files with 45 additions and 1 deletions
--- a/SMILEBASIC/node.d
+++ b/SMILEBASIC/node.d
@@ -46,6 +46,8 @@ enum NodeType
    Swap,
    AssignRef,
    VarRef,
+    XOn,
+    XOff,
 }
 abstract class Node
 {
@@ -631,3 +633,24 @@ class VarRef : Expression
        this.expression = expr;
    }
 }
+class XOn : Statement
+{
+    wstring func;
+    this(wstring func, SourceLocation loc)
+    {
+        super.location = loc;
+        this.type = NodeType.XOn;
+        this.func = func;
+    }
+}
+class XOff : Statement
+{
+    wstring func;
+    this(wstring func, SourceLocation loc)
+    {
+        super.location = loc;
+        this.type = NodeType.XOff;
+        this.func = func;
+    }
+}
+