[svn:parrot] r47778 - in branches/gsoc_past_optimization/runtime/parrot/library: PAST PCT

tcurtis at svn.parrot.org tcurtis at svn.parrot.org
Wed Jun 23 07:36:11 UTC 2010


Author: tcurtis
Date: Wed Jun 23 07:36:11 2010
New Revision: 47778
URL: https://trac.parrot.org/parrot/changeset/47778

Log:
Move PAST::Node.match and .subst methods into PCT::Node in the file PCT::Pattern.pbc.

Modified:
   branches/gsoc_past_optimization/runtime/parrot/library/PAST/Pattern.nqp
   branches/gsoc_past_optimization/runtime/parrot/library/PCT/Pattern.nqp

Modified: branches/gsoc_past_optimization/runtime/parrot/library/PAST/Pattern.nqp
==============================================================================
--- branches/gsoc_past_optimization/runtime/parrot/library/PAST/Pattern.nqp	Wed Jun 23 07:29:37 2010	(r47777)
+++ branches/gsoc_past_optimization/runtime/parrot/library/PAST/Pattern.nqp	Wed Jun 23 07:36:11 2010	(r47778)
@@ -6,16 +6,6 @@
     pir::load_bytecode('PCT/Pattern.pbc');
 }
 
-module PAST::Node {
-    method match ($pattern, *%options) {
-        $pattern.ACCEPTS(self, |%options);
-    }
-
-    method subst ($pattern, *%options) {
-        $pattern.transform(self, |%options);
-    }
-}
-
 class PAST::Pattern is PCT::Pattern {
     method attr ($name, $value, $has_value) {
         my $result;

Modified: branches/gsoc_past_optimization/runtime/parrot/library/PCT/Pattern.nqp
==============================================================================
--- branches/gsoc_past_optimization/runtime/parrot/library/PCT/Pattern.nqp	Wed Jun 23 07:29:37 2010	(r47777)
+++ branches/gsoc_past_optimization/runtime/parrot/library/PCT/Pattern.nqp	Wed Jun 23 07:36:11 2010	(r47778)
@@ -7,6 +7,23 @@
     pir::load_bytecode('PCT.pbc');
 }
 
+module PCT::Node {
+    method match ($pattern, *%options) {
+        $pattern.ACCEPTS(self, |%options);
+    }
+
+    method subst ($pattern, *%options) {
+        $pattern.transform(self, |%options);
+    }
+}
+
 class PCT::Pattern is Tree::Pattern {
 
 }
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:


More information about the parrot-commits mailing list