android13/external/antlr/runtime/Perl5/examples/expr/expr.pl

25 lines
476 B
Perl
Raw Normal View History

2024-06-22 08:45:49 -04:00
#!/usr/bin/perl
use strict;
use warnings;
use blib;
use ANTLR::Runtime::ANTLRStringStream;
use ANTLR::Runtime::CommonTokenStream;
use ExprLexer;
use ExprParser;
my $in;
{
undef $/;
$in = <>;
}
my $input = ANTLR::Runtime::ANTLRStringStream->new({ input => $in });
my $lexer = ExprLexer->new({ input => $input });
my $tokens = ANTLR::Runtime::CommonTokenStream->new({ token_source => $lexer });
my $parser = ExprParser->new({ input => $tokens });
$parser->prog();