[svn:parrot] r35751 - trunk/languages/pipp/src/pct

Author: bernhard
Date: Mon Jan 19 05:50:45 2009
New Revision: 35751

Modified:
   trunk/languages/pipp/src/pct/actions.pm
   trunk/languages/pipp/src/pct/grammar.pg

Log:
[Pipp] Eliminate token constant_name

Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm	(original)
+++ trunk/languages/pipp/src/pct/actions.pm	Mon Jan 19 05:50:45 2009
@@ -265,7 +265,7 @@
 method constant($/) {
     our $?NS;
     make PAST::Var.new(
-        :name(~$<constant_name>),
+        :name(~$<name>),
         :scope('package'),
         :namespace($?NS)
     );
@@ -277,7 +277,7 @@
     make PAST::Var.new(
         :scope('package'),
         :namespace( $?NS ~ '\\' ~ $<class_name> ~ '::'),
-        :name(~$<constant_name>)
+        :name(~$<name>)
     );
 }
 

Modified: trunk/languages/pipp/src/pct/grammar.pg
==============================================================================
--- trunk/languages/pipp/src/pct/grammar.pg	(original)
+++ trunk/languages/pipp/src/pct/grammar.pg	Mon Jan 19 05:50:45 2009
@@ -243,8 +243,6 @@
     <ident>
 }
 
-token constant_name            { <name> }
-
 token function_name            { <ident> }
 
 token interface_name           { <ident> }
@@ -337,12 +335,12 @@
 }
 
 token constant {
-    <constant_name>
+    <name>
     {*}
 }
 
 token class_constant {
-    <class_name> '::' <constant_name>
+    <class_name> '::' <name>
     {*}
 }