Author: pmichaud
Date: Tue Jun 12 08:29:00 2007
New Revision: 18950
Modified:
trunk/runtime/parrot/library/PGE/Perl6Grammar.pir
Log:
[PGE]:
* Perl6Grammar now allows "proto infix:<+>" instead of "proto 'infix:+'"
Modified: trunk/runtime/parrot/library/PGE/Perl6Grammar.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Perl6Grammar.pir (original)
+++ trunk/runtime/parrot/library/PGE/Perl6Grammar.pir Tue Jun 12 08:29:00 2007
@@ -95,6 +95,7 @@
p6regex($S0, 'grammar'=>'PGE::Perl6Grammar', 'name'=>'pod_comment')
$S0 = <<' END_ARG_RULE'
+ $<category>:=[\w+\:]?
[ \' (<-[']>*:) \'
| '"' (<-["]>*:) '"'
| '(' (<-[)]>*:) ')'
@@ -254,7 +255,9 @@
## get the regex name
.local string name
$P0 = stmt['name']
- name = $P0[0]
+ $S0 = $P0['category']
+ $S1 = $P0[0]
+ name = concat $S0, $S1
## set compile adverbs
.local pmc adverbs
@@ -323,7 +326,9 @@
.local string name
$P0 = stmt['name']
- name = $P0[0]
+ $S0 = $P0['category']
+ $S1 = $P0[0]
+ name = concat $S0, $S1
.local pmc optable
$P0 = nstable[namespace]
