canonicalize operator names to legal perl

Operator names containing < or > are now enclosed in « and ».

Author: TimToady

src/HLL/Actions.nqp

@@ -85,7 +85,7 @@ class HLL::Actions {
                 $ast.op( ~$<OPER><O><op> );
             }
             if $key eq 'LIST' { $key := 'infix'; }
-            my $name := nqp::lc($key) ~ ':<' ~ $<OPER><sym> ~ '>';
+            my $name := nqp::lc($key) ~ ':' ~ ($<OPER><sym> ~~ /<[ < > ]>/ ?? '«' ~ $<OPER><sym> ~ '»' !! '<' ~ $<OPER><sym> ~ '>');
             $ast.name('&' ~ $name);
             unless $ast.op {
                 $ast.op('call');

src/NQP/Actions.nqp

@@ -42,18 +42,20 @@ class NQP::Actions is HLL::Actions {
     method deflongname($/) {
         make $<colonpair>
              ?? ~$<identifier> ~ ':' ~ $<colonpair>.made.named
-                    ~ '<' ~ colonpair_str($<colonpair>.made) ~ '>'
+                    ~ colonpair_str($<colonpair>.made)
              !! ~$/;
     }
 
     sub colonpair_str($ast) {
+	my $s;
         if nqp::istype($ast, QAST::Op) {
             my @parts;
             for $ast.list { @parts.push($_.value) }
-            join(' ', @parts)
+            $s := join(' ', @parts)
         } else {
-            $ast.value
+            $s := $ast.value
         }
+	$s ~~ /<[ < > ]>/ ?? '«' ~ $s ~ '»' !! '<' ~ $s ~ '>';
     }
 
     method comp_unit($/) {
@@ -1866,14 +1868,15 @@ class NQP::RegexActions is QRegex::P6Regex::Actions {
         elsif $name eq 'sym' {
             my str $fullrxname := %*RX<name>;
             my str $rxname := "";
-            my int $loc := nqp::index($fullrxname, ':sym<');
+            my int $loc := nqp::index($fullrxname, ':sym');
             if $loc >= 0 {
                 $rxname := nqp::substr($fullrxname, $loc + 5 );
                 $rxname := nqp::substr( $rxname, 0, nqp::chars($rxname) - 1);
             }
             else {
                 $loc := nqp::index($fullrxname, ':');
                 my $angleloc := nqp::index($fullrxname, '<', $loc);
+                $angleloc := nqp::index($fullrxname, '«', $loc) if $angleloc < 0;
                 $rxname := nqp::substr($fullrxname, $loc + 1, $angleloc - $loc - 1) unless $loc < 0;
             }
             if $loc >= 0 {

src/QRegex/P6Regex/Actions.nqp

@@ -539,14 +539,15 @@ class QRegex::P6Regex::Actions is HLL::Actions {
         }
         elsif $name eq 'sym' {
             my $rxname := "";
-            my $loc := nqp::index(%*RX<name>, ':sym<');
+            my $loc := nqp::index(%*RX<name>, ':sym');
             if $loc >= 0 {
                 $rxname := nqp::substr(%*RX<name>, $loc + 5 );
                 $rxname := nqp::substr( $rxname, 0, nqp::chars($rxname) - 1);
             }
             else {
                 $loc := nqp::index(%*RX<name>, ':');
                 my $angleloc := nqp::index(%*RX<name>, '<', $loc);
+		$angleloc := nqp::index(%*RX<name>, '«', $loc) if $angleloc < 0;
                 $rxname := nqp::substr(%*RX<name>, $loc + 1, $angleloc - $loc - 1) unless $loc < 0;
             }
             if $loc >= 0 {