mexpr.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 MExprLexer;
11use MExprParser;
12
13while (<>) {
14    my $input = ANTLR::Runtime::ANTLRStringStream->new({ input => $_ });
15    my $lexer = MExprLexer->new($input);
16
17    my $tokens = ANTLR::Runtime::CommonTokenStream->new({ token_source => $lexer });
18    my $parser = MExprParser->new($tokens);
19    $parser->prog();
20}
21