21 lines
447 B
Perl
21 lines
447 B
Perl
#!/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();
|
|
}
|