#!/usr/bin/perl
use warnings;
package Actions;
use base NoacInh;
sub NUM {
return $_[1];
}
sub PLUS {
"$_[1] $_[3] +";
}
sub TIMES {
"$_[1] $_[3] *";
}
my $parser = __PACKAGE__->new();
$parser->slurp_file('', "Write an expression: ","\n");
my $t = $parser->Run();
print "$t\n" unless $parser->YYNberr;
=head1 SYNOPSIS
Both C<icalcu.pl> and C<ipostf.pl> inherit and recycle
the grammar in C<NoacInh.eyp>
Do:
eyapp NoacInh
icalcu.pl
ipostf.pl