Get the various QAST nodes we have stubbed in and start to fill some of them out.

Author: jnthn

src/QAST/BVal.nqp

@@ -0,0 +1 @@
+class QAST::BVal is QAST::Node {    has $!block;    method block(*@value) { $!block := @value[0] if @value; $!block }}

src/QAST/IVal.nqp

@@ -0,0 +1,4 @@
+class QAST::IVal is QAST::Node {
+    has int $!value;
+    method value(*@value) { $!value := @value[0] if @value; $!value }
+}

src/QAST/NVal.nqp

@@ -0,0 +1,4 @@
+class QAST::NVal is QAST::Node {
+    has num $!value;
+    method value(*@value) { $!value := @value[0] if @value; $!value }
+}

src/QAST/Node.nqp

@@ -1,7 +1,10 @@
 class QAST::Node is NQPCapture {
-    has str $!name;
     has $!node;
-    has $!type;
+    has str $!name;
+    has $!returns;
+    has int $!arity;
+    has int $!flat;
+    has str $!childorder;
 
     method new(*@children, *%options) {
         my $new := self.CREATE();
@@ -13,9 +16,15 @@ class QAST::Node is NQPCapture {
         $new;
     }
 
-    method name(*@value)   { $!name := @value[0] if @value; $!name }
-    method node(*@value)   { $!node := @value[0] if @value; $!node }
+    method node(*@value)       { $!node := @value[0] if @value; $!node }
+    method name(*@value)       { $!name := @value[0] if @value; $!name }
+    method returns(*@value)    { $!returns := @value[0] if @value; $!returns }
+    method arity(*@value)      { $!arity := @value[0] if @value; $!arity }
+    method flat(*@value)       { $!flat := @value[0] if @value; $!flat }
+    method childorder(*@value) { $!childorder := @value[0] if @value; $!childorder }
+    
+    method pop()           { nqp::pop(self.list) }
     method push($value)    { nqp::push(self.list, $value) }
+    method shift()         { nqp::shift(self.list) }
     method unshift($value) { nqp::unshift(self.list, $value) }
-    method type(*@value)   { $!type := @value[0] if @value; $!type }
 }

src/QAST/SVal.nqp

@@ -0,0 +1,4 @@
+class QAST::SVal is QAST::Node {
+    has str $!value;
+    method value(*@value) { $!value := @value[0] if @value; $!value }
+}

src/QAST/Stmt.nqp

@@ -0,0 +1,2 @@
+class QAST::Stmt is QAST::Node {
+}

src/QAST/VM.nqp

@@ -0,0 +1,2 @@
+class QAST::VM is QAST::Node {
+}

src/QAST/Var.nqp

@@ -0,0 +1,3 @@
+class QAST::Var is QAST::Node {
+    has $!scope;
+}

src/QAST/WVal.nqp

@@ -0,0 +1,2 @@
+class QAST::WVal does QAST::CompileTimeValue {
+}