Stub in QAST::Block and QAST::Stmts.

jnthn · jnthn · commit 29da48de2bf5 · 2012-04-21T17:27:15.000+02:00
diff --git a/src/QAST/Block.nqp b/src/QAST/Block.nqp
@@ -0,0 +1,5 @@
+class QAST::Block is QAST::Node {
+    has str $!blocktype;
+    
+    method blocktype(*@value) { $!blocktype := @value[0] if @value; $!blocktype }
+}
diff --git a/src/QAST/Stmts.nqp b/src/QAST/Stmts.nqp
@@ -0,0 +1,2 @@
+class QAST::Stmts is QAST::Node {
+}
diff --git a/tools/build/Makefile.in b/tools/build/Makefile.in
@@ -92,6 +92,8 @@ QREGEX_SOURCES = \
   src/QAST/Regex.nqp \
   src/QAST/WorldValue.nqp \
   src/QAST/Op.nqp \
+  src/QAST/Block.nqp \
+  src/QAST/Stmts.nqp \
   src/QAST/Compiler.nqp \
   src/QRegex/NFA.nqp \
   src/QRegex/Cursor.nqp \
