Add ability to declare infix: subs.

rakudo · May 14, 2009 · ad9e008 · ad9e008
1 parent 8349d75
commit ad9e008
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/build/PARROT_REVISION b/build/PARROT_REVISION
@@ -1 +1 @@
-38720
+38768
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -767,7 +767,7 @@ method routine_def($/) {
     if $<deflongname> {
         my $name := ~$<deflongname>[0];
         my $match := Perl6::Grammar::opname($name, :grammar('Perl6::Grammar') );
-        if $match { $name := ~$match<category> ~ ':' ~ ~$match[0]; }
+        if $match { $name := add_optoken($block, $match); }
         our @?BLOCK;
         my $existing := @?BLOCK[0].symbol($name);
         if $existing && !$existing<is_proto> && !$existing<is_multi> {
@@ -3099,6 +3099,16 @@ sub make_sigparam($var) {
     }
     $sigparam;
 }
+
+
+sub add_optoken($block, $match) {
+    my $?OPTABLE := 
+        Q:PIR { %r = get_hll_global ['Perl6';'Grammar'], '$optable' };
+    my $name := ~$match<category> ~ ':' ~ ~$match[0];
+    my $category := $match<category>;
+    $?OPTABLE.newtok($name, :equiv('infix:+'));
+    $name;
+}
 
 
 # Local Variables: