From @masak

<adu> I can't track this bug
<adu> omg, I think I found the bug
<adu> rel_op​:sym«<=» is not matching '<='
<adu> why?
<adu> rel_op​:sym<!=> matches '!=' fine
<pmichaud> adu​: gist?
<adu> http://pastebin.com/raw.php?i=FcAiMAU2
<adu> pmichaud​: masak​: yes
<adu> r​: my grammar binop { rule TOP { <rel_op> }; proto token rel_op
{*}; token rel_op​:sym<!=> { <sym> }; }; say binop.parse('!=')
<p6eval> rakudo b12854​: OUTPUT«q[!=]␤ rel_op => q[!=]␤ sym => q[!=]␤␤»
<adu> (showing success)
<adu> r​: my grammar binop { rule TOP { <rel_op> }; proto token rel_op
{*}; token rel_op​:sym«<=» { <sym> }; }; say binop.parse('<=')
<p6eval> rakudo b12854​: OUTPUT«#<failed match>␤»
<pmichaud> r​: my grammar binop { proto token rel_op {*}; my $x = token
rel_op​:sym«!=» { <sym> }; say $x; }
<p6eval> rakudo b12854​: OUTPUT«rel_op​:sym«!=»␤»
<pmichaud> ...that's the problem. The regex engine expects those «'s
to be converted to single angles.
* masak submits rakudobug
<pmichaud> in Actions.pm
<pmichaud> { if $<deflongname> { %*RX<name> :=
$<deflongname>[0].Str } }
<pmichaud> is likely the culprit.
<pmichaud> It needs to normalize the name of protoregex candidates.
<adu> hmm
<pmichaud> adu​: in the meantime, you can do
<pmichaud> r​: my grammar binop { rule TOP { <rel_op> }; proto token
rel_op {*}; token rel_op​:sym<le> { '<=' }; }; say binop.parse('<=');
<p6eval> rakudo b12854​: OUTPUT«q[<=]␤ rel_op => q[<=]␤␤»
<adu> oh ok, that works

From @jnthn

On Mon Jun 11 23​:00​:32 2012, masak wrote​:

<adu> I can't track this bug
<adu> omg, I think I found the bug
<adu> rel_op​:sym«<=» is not matching '<='
<adu> why?
<adu> rel_op​:sym<!=> matches '!=' fine
<pmichaud> adu​: gist?
<adu> http://pastebin.com/raw.php?i=FcAiMAU2
<adu> pmichaud​: masak​: yes
<adu> r​: my grammar binop { rule TOP { <rel_op> }; proto token rel_op
{*}; token rel_op​:sym<!=> { <sym> }; }; say binop.parse('!=')
<p6eval> rakudo b12854​: OUTPUT«q[!=]␤ rel_op => q[!=]␤ sym => q[!=]␤␤»
<adu> (showing success)
<adu> r​: my grammar binop { rule TOP { <rel_op> }; proto token rel_op
{*}; token rel_op​:sym«<=» { <sym> }; }; say binop.parse('<=')
<p6eval> rakudo b12854​: OUTPUT«#<failed match>␤»
<pmichaud> r​: my grammar binop { proto token rel_op {*}; my $x = token
rel_op​:sym«!=» { <sym> }; say $x; }
<p6eval> rakudo b12854​: OUTPUT«rel_op​:sym«!=»␤»
<pmichaud> ...that's the problem. The regex engine expects those «'s
to be converted to single angles.
* masak submits rakudobug
<pmichaud> in Actions.pm
<pmichaud> { if $<deflongname> { %*RX<name> :=
$<deflongname>[0].Str } }
<pmichaud> is likely the culprit.
<pmichaud> It needs to normalize the name of protoregex candidates.
<adu> hmm
<pmichaud> adu​: in the meantime, you can do
<pmichaud> r​: my grammar binop { rule TOP { <rel_op> }; proto token
rel_op {*}; token rel_op​:sym<le> { '<=' }; }; say binop.parse('<=');
<p6eval> rakudo b12854​: OUTPUT«q[<=]␤ rel_op => q[<=]␤␤»
<adu> oh ok, that works

Fixed now. This​:

my grammar binop {
  rule TOP { <rel_op> }
  proto token rel_op {*}
  token rel_op​:sym«<=» { <sym> }
}
say binop.parse('<=');

Gives​:

q[<=]
rel_op => q[<=]
  sym => q[<=]

Tagging testneeded.

/jnthn

The RT System itself - Status changed from 'new' to 'open'

From @pmichaud

Tests added in ea70649, resolving ticket.

Pm

@pmichaud - Status changed from 'open' to 'resolved'