added .evaluate_unquotes method to QAST nodes

Raku · Aug 25, 2012 · c223607 · c223607
1 parent 8fac254
commit c223607
Show file tree

Hide file tree

Showing 11 changed files with 77 additions and 0 deletions.
diff --git a/src/QAST/IVal.nqp b/src/QAST/IVal.nqp
@@ -5,4 +5,8 @@ class QAST::IVal is QAST::Node {
     method substitute_inline_placeholders(@fillers) {
         self
     }
+
+    method evaluate_unquotes(@unquotes) {
+        self
+    }
 }
diff --git a/src/QAST/NVal.nqp b/src/QAST/NVal.nqp
@@ -5,4 +5,8 @@ class QAST::NVal is QAST::Node {
     method substitute_inline_placeholders(@fillers) {
         self
     }
+
+    method evaluate_unquotes(@unquotes) {
+        self
+    }
 }
diff --git a/src/QAST/Node.nqp b/src/QAST/Node.nqp
@@ -110,4 +110,8 @@ class QAST::Node {
     method substitute_inline_placeholders(@fillers) {
         nqp::die(self.HOW.name(self) ~ " does not support inlining");
     }
+
+    method evaluate_unquotes(@unquotes) {
+        nqp::die(self.HOW.name(self) ~ " does not support evaluating unquotes");
+    }
 }
diff --git a/src/QAST/Op.nqp b/src/QAST/Op.nqp
@@ -17,4 +17,15 @@ class QAST::Op is QAST::Node {
         }
         $result
     }
+
+    method evaluate_unquotes(@unquotes) {
+        my $result := pir::repr_clone__PP(self);
+        my $i := 0;
+        my $elems := +@(self);
+        while $i < $elems {
+            $result[$i] := self[$i].evaluate_unquotes(@unquotes);
+            $i := $i + 1;
+        }
+        $result
+    }
 }
diff --git a/src/QAST/SVal.nqp b/src/QAST/SVal.nqp
@@ -5,4 +5,8 @@ class QAST::SVal is QAST::Node {
     method substitute_inline_placeholders(@fillers) {
         self
     }
+
+    method evaluate_unquotes(@unquotes) {
+        self
+    }
 }
diff --git a/src/QAST/Stmt.nqp b/src/QAST/Stmt.nqp
@@ -13,4 +13,15 @@ class QAST::Stmt is QAST::Node {
         }
         $result
     }
+
+    method evaluate_unquotes(@unquotes) {
+        my $result := pir::repr_clone__PP(self);
+        my $i := 0;
+        my $elems := +@(self);
+        while $i < $elems {
+            $result[$i] := self[$i].evaluate_unquotes(@unquotes);
+            $i := $i + 1;
+        }
+        $result
+    }
 }
diff --git a/src/QAST/Stmts.nqp b/src/QAST/Stmts.nqp
@@ -13,4 +13,15 @@ class QAST::Stmts is QAST::Node {
         }
         $result
     }
+
+    method evaluate_unquotes(@unquotes) {
+        my $result := pir::repr_clone__PP(self);
+        my $i := 0;
+        my $elems := +@(self);
+        while $i < $elems {
+            $result[$i] := self[$i].evaluate_unquotes(@unquotes);
+            $i := $i + 1;
+        }
+        $result
+    }
 }
diff --git a/src/QAST/Unquote.nqp b/src/QAST/Unquote.nqp
@@ -1,2 +1,11 @@
 class QAST::Unquote is QAST::Node {
+    has int $!position;
+
+    method position(*@value) {
+        @value ?? ($!position := @value[0]) !! $!position
+    }
+
+    method evaluate_unquotes(@unquotes) {
+        @unquotes[$!position];
+    }
 }
diff --git a/src/QAST/Var.nqp b/src/QAST/Var.nqp
@@ -14,4 +14,8 @@ class QAST::Var is QAST::Node {
     method substitute_inline_placeholders(@fillers) {
         self
     }
+
+    method evaluate_unquotes(@unquotes) {
+        self
+    }
 }
diff --git a/src/QAST/WVal.nqp b/src/QAST/WVal.nqp
@@ -8,4 +8,8 @@ class QAST::WVal is QAST::Node does QAST::CompileTimeValue {
     method substitute_inline_placeholders(@fillers) {
         self
     }
+
+    method evaluate_unquotes(@unquotes) {
+        self
+    }
 }
diff --git a/src/QAST/Want.nqp b/src/QAST/Want.nqp
@@ -19,4 +19,15 @@ class QAST::Want is QAST::Node {
         }
         $result
     }
+
+    method evaluate_unquotes(@unquotes) {
+        my $result := pir::repr_clone__PP(self);
+        my $i := 0;
+        my $elems := +@(self);
+        while $i < $elems {
+            $result[$i] := self[$i].evaluate_unquotes(@unquotes);
+            $i := $i + 2;
+        }
+        $result
+    }
 }