develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
bernhard
Date:
January 19, 2009 05:50
Subject:
[svn:parrot] r35751 - trunk/languages/pipp/src/pct
Message ID:
20090119135046.2C2C4CB9AE@x12.develooper.com
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>
     {*}
 }
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About