Next Higher-Order Parsing 24 

Parsers

        $atom = alt(lookfor("NUMBER"),
                    lookfor("VAR"),
                    conc(lookfor("FUNC"),
                         lookfor("("),
                         $Expression,
                         lookfor(")"),
                        ));
     #  factor → atom ("^" NUMBER | nothing)
     $factor = conc($Atom, alt(conc(lookfor("^"), 
                                    lookfor("NUMBER")),
                               \&nothing));
     #  term → factor ("*" term | nothing)
     $term = conc($Factor, alt(conc(lookfor("*"), $Term),
                               \&nothing));

Next Copyright © 2007 M. J. Dominus