Select Code to Download

names = John Joe "Mary Sue" James

startrule:             calculation
statement:             grouped_op | number
...
add_calculation:       statement '+' statement
subtract_calculation:  statement '-' statement
number:                /\d+/

#!/usr/bin/perl -wT

...
     print $test . ': ' .
         ( defined($parser->startrule( $test ) )?"good":"bad") . "\n";
}

#!/usr/bin/perl -wT

...
#6 + (3 - 2): 7
#(6 + (3 - 2)) + 1: 8