Next Higher-Order Parsing 40 

新しいツールNew tools

        sub transform {
          my ($A, $transform) = @_;
          my $parser = sub {    
            my $in = shift;
            my ($res, $out) = $A->($in)
                or return;
            return ($transform->($res), $out);            
          };
        }

Next Copyright © 2007 M. J. Dominus