Home | History | Annotate | Download | only in mexpr 
      1 #!/usr/bin/perl
      2 
      3 use strict;
      4 use warnings;
      5 
      6 use blib;
      7 
      8 use ANTLR::Runtime::ANTLRStringStream;
      9 use ANTLR::Runtime::CommonTokenStream;
     10 use MExprLexer;
     11 use MExprParser;
     12 
     13 while (<>) {
     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