expr.pl revision 324c4644fee44b9898524c09511bd33c3f12e2df 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use blib;
7
8use ANTLR::Runtime::ANTLRStringStream;
9use ANTLR::Runtime::CommonTokenStream;
10use ExprLexer;
11use ExprParser;
12
13my $in;
14{
15    undef $/;
16    $in = <>;
17}
18
19my $input = ANTLR::Runtime::ANTLRStringStream->new({ input => $in });
20my $lexer = ExprLexer->new({ input => $input });
21
22my $tokens = ANTLR::Runtime::CommonTokenStream->new({ token_source => $lexer });
23my $parser = ExprParser->new({ input => $tokens });
24$parser->prog();
25