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