Add support for defining circumfix operators.

rakudo · May 15, 2009 · 8ff0e0a · 8ff0e0a
1 parent 271bbd0
commit 8ff0e0a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -3120,6 +3120,7 @@ sub add_optoken($block, $match) {
         my $equiv := 'infix:+';
         if $category eq 'prefix' { $equiv := 'prefix:+' }
         elsif $category eq 'postfix' { $equiv := 'postfix:++' }
+        elsif $category eq 'circumfix' { $equiv := 'term:' }
         my $past := PAST::Op.new( :name('newtok'), :pasttype('callmethod'),
             PAST::Op.new( 
                 :inline("    %r = get_hll_global ['Perl6';'Grammar'], '$optable'")

diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
@@ -873,14 +873,14 @@ token subshortname {
     <category> <colonpair>+
 }
 
-token category { 'infix' | 'prefix' | 'postfix' | 'trait_auxiliary' }
+token category { 'infix' | 'prefix' | 'postfix' | 'circumfix' | 'trait_auxiliary' }
 
 ## used internally to convert p6 opnames to internal ones
 regex opname { 
     <category> ':'
-    [ '<<' \s* [ (\S+) \s* ] '>>'
-    | '«' \s* [ (\S+) \s* ] '»'
-    | '<' \s* [ (\S+) \s* ] '>'
+    [ '<<' \s* [ ([\S+]**[\s+]) \s* ] '>>'
+    | '«' \s* [ ([\S+]**[\s+]) \s* ] '»'
+    | '<' \s* [ ([\S+]**[\s+]) \s* ] '>'
     ]
 }