Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re^3: Operator Precedence Parser

by Rhandom (Curate)
on Jun 09, 2006 at 22:27 UTC ( #554568=note: print w/replies, xml ) Need Help??

in reply to Re^2: Operator Precedence Parser
in thread Operator Precedence Parser

Thank you for the reply. I tested to see using the following template.

<h2>6 / 5 * 4</h2> CET: [% 6 / 5 * 4 %]<br> Perl: [% PERL %]print 6 / 5 * 4 [% END %]<br> <hr> <h2>2 ** 3 ** 4</h2> CET: [% 2 ** 3 ** 4 %]<br> Perl: [% PERL %]print 2 ** 3 ** 4[% END %]<br> <hr> <h2>a---b</h2> CET: [% a = 5; b = 2 %][% a---b %]<br> Perl: [% PERL %]$a = 5; $b = 2; print $a---$b[% END %]<br> <hr> <h2>a--- -b</h2> CET: [% a = 5; b = 2 %][% a--- -b %]<br> Perl: [% PERL %]$a = 5; $b = 2; print $a--- -$b[% END %]<br> <hr> <h2>a--- --b</h2> CET: [% a = 5; b = 2 %][% a--- --b %]<br> Perl: [% PERL %]$a = 5; $b = 2; print $a--- --$b[% END %]<br> <hr>
It printed out:
6 / 5 * 4 CET: 0.3 Perl: 4.8 2 ** 3 ** 4 CET: 2.41785163922926e+24 Perl: 2.41785163922926e+24 a---b CET: 3 Perl: 3 a--- -b CET: 7 Perl: 7 a--- --b CET: 4 Perl: 4
So - it looks like I need to fix my right vs left vs non-associative. I'll add that to the table and change the parser (it is always doing right right now - it used to always do left - it will be trivial and won't even cause a speed hit to allow it to do both). Thank you - I knew about precedence and precedence makes complete sense - associativity rules seem like they are a little more arbitrary and it seems to cry foul to the user that it isn't consistent (such is legacy). In the perl6 operators table they don't even mention if the operator group is right or left (though it probably does elsewhere in the doc).

So - the infix type will go away in CGI::Ex::Template and will be replaced by left right and non. It needs to match perl.

I'll get that out hopefully soon. Thanks again.

Oh - also to note - the a----b and a-----b examples are both parse errors because the longest term rule makes them try and find a prefix -- immediately after the postfix --. Adding a space after the first three - disabiguates both cases.

my @a=qw(random brilliant braindead); print $a[rand(@a)];

Replies are listed 'Best First'.
Re^4: Operator Precedence Parser
by Rhandom (Curate) on Jun 12, 2006 at 12:52 UTC
    Well I had posted late-late saturday night that the fix was out in version 2.03 - but it was late enough I forgot to commit the post instead of just preview.

    So - version 2.03 has the fixes. And as a bonus it helped to make the code more readable too.

    my @a=qw(random brilliant braindead); print $a[rand(@a)];

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://554568]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2018-04-27 06:12 GMT
Find Nodes?
    Voting Booth?