blob: 6c3ef938aef79c686db07f6f3feb9c56ef9b8873 [file] [log] [blame]
#!/usr/bin/perl
use strict;
use warnings;
use blib;
use ANTLR::Runtime::ANTLRStringStream;
use ANTLR::Runtime::CommonTokenStream;
use MExprLexer;
use MExprParser;
while (<>) {
my $input = ANTLR::Runtime::ANTLRStringStream->new({ input => $_ });
my $lexer = MExprLexer->new($input);
my $tokens = ANTLR::Runtime::CommonTokenStream->new({ token_source => $lexer });
my $parser = MExprParser->new($tokens);
$parser->prog();
}