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

[svn:parrot] r33823 - trunk/languages/perl6/src/parser

From:
particle
Date:
December 11, 2008 21:10
Subject:
[svn:parrot] r33823 - trunk/languages/perl6/src/parser
Message ID:
20081212051032.DC2B8CB9AF@x12.develooper.com
Author: particle
Date: Thu Dec 11 21:10:31 2008
New Revision: 33823

Modified:
   trunk/languages/perl6/src/parser/actions.pm
   trunk/languages/perl6/src/parser/grammar.pg

Log:
[rakudo] parse submethod declarations

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Thu Dec 11 21:10:31 2008
@@ -616,6 +616,9 @@
             $signature.unshift($obj);
         }
     }
+    elsif $key eq 'submethod' {
+        $/.panic('submethod declarations not yet implemented');
+    }
     $past.node($/);
     if (+@($past[1])) {
         declare_implicit_routine_vars($past);

Modified: trunk/languages/perl6/src/parser/grammar.pg
==============================================================================
--- trunk/languages/perl6/src/parser/grammar.pg	(original)
+++ trunk/languages/perl6/src/parser/grammar.pg	Thu Dec 11 21:10:31 2008
@@ -357,6 +357,7 @@
 token routine_declarator {
     | $<sym>='sub' <routine_def> {*}             #= sub
     | $<sym>='method' <method_def> {*}           #= method
+    | $<sym>='submethod' <method_def> {*}        #= submethod
 }
 
 rule routine_def {



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