Not Quite Perl Not Quite Perl - A lightweight Perl 6 #26

Example using operator precedence parsing

$ ./nqp Abc.pm --target=pir
> -3 + 4 * (0x14 - 15)

.namespace []
.sub "_block121"  :anon :subid("42_1277104875.91365")
.annotate 'line', 1
    new $P123, 'Integer'
    set $P123, 3
    neg $P124, $P123
    new $P125, 'Integer'
    set $P125, 4
    new $P126, 'Integer'
    set $P126, 20
    sub $P127, $P126, 15
    mul $P128, $P125, $P127
    add $P129, $P124, $P128
.annotate 'line', 0
    .return ($P129)
.end
Copyright © 2010
http://www.pmichaud.com/2010/pres/