Start sketching out compile-time known value handling and how we'll r…

…eference values in World (so common it deserves explicit support).
Raku · Apr 5, 2012 · de37dc4 · de37dc4
1 parent 3e9ecfc
commit de37dc4
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 0 deletions.
diff --git a/src/QAST/CompileTimeValue.nqp b/src/QAST/CompileTimeValue.nqp
@@ -0,0 +1,5 @@
+# Composed or mixed in to any node that also has a compile-time known value.
+role QAST::CompileTimeValue {
+    has $!value;
+    method value(*@value) { $!value := @value[0] if @value; $!value }
+}
diff --git a/src/QAST/WorldValue.nqp b/src/QAST/WorldValue.nqp
@@ -0,0 +1,2 @@
+class QAST::WorldValue does QAST::CompileTimeValue {
+}
diff --git a/tools/build/Makefile.in b/tools/build/Makefile.in
@@ -87,8 +87,10 @@ QREGEX_PIR = QRegex.pir
 QREGEX_PBC = QRegex.pbc
 QREGEX_SOURCES = \
   src/QRegex.nqp \
+  src/QAST/CompileTimeValue.nqp \
   src/QAST/Node.nqp \
   src/QAST/Regex.nqp \
+  src/QAST/WorldValue.nqp \
   src/QAST/Op.nqp \
   src/QAST/Compiler.nqp \
   src/QRegex/NFA.nqp \