develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
bernhard
Date:
December 26, 2008 08:49
Subject:
[svn:parrot] r34384 - trunk/languages/pipp/src/pct
Message ID:
20081226164908.23CA2CBA12@x12.develooper.com
Author: bernhard
Date: Fri Dec 26 08:49:07 2008
New Revision: 34384

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

Log:
[Pipp] add 'simple_var' as a subrule of 'var'


Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm	(original)
+++ trunk/languages/pipp/src/pct/actions.pm	Fri Dec 26 08:49:07 2008
@@ -384,6 +384,10 @@
          );
 }
 
+method simple_var($/) {
+    make $( $<VAR_NAME> );
+}
+
 method var($/, $key) {
     make $( $/{$key} );
 }

Modified: trunk/languages/pipp/src/pct/grammar.pg
==============================================================================
--- trunk/languages/pipp/src/pct/grammar.pg	(original)
+++ trunk/languages/pipp/src/pct/grammar.pg	Fri Dec 26 08:49:07 2008
@@ -355,10 +355,15 @@
     {*}
 }
 
+token simple_var {
+    <VAR_NAME>
+    {*}
+}
+
 token var {
       <this>        {*}   #= this
     | <array_elem>  {*}   #= array_elem
-    | <VAR_NAME>    {*}   #= VAR_NAME
+    | <simple_var>  {*}   #= simple_var
 }
 
 rule literal {



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