1*16467b97STreehugger Robot#!perl 2*16467b97STreehugger Robot 3*16467b97STreehugger Robotuse strict; 4*16467b97STreehugger Robotuse warnings; 5*16467b97STreehugger Robot 6*16467b97STreehugger Robotuse ANTLR::Runtime::ANTLRFileStream; 7*16467b97STreehugger Robotuse ANTLR::Runtime::TokenRewriteStream; 8*16467b97STreehugger Robotuse TLexer; 9*16467b97STreehugger Robotuse TParser; 10*16467b97STreehugger Robot 11*16467b97STreehugger Robotmy $input = ANTLR::Runtime::ANTLRFileStream->new({ file_name => $ARGV[0] }); 12*16467b97STreehugger Robotmy $lexer = TLexer->new({ input => $input }); 13*16467b97STreehugger Robotmy $tokens = ANTLR::Runtime::TokenRewriteStream({ token_source => $lexer }); 14*16467b97STreehugger Robotmy $parser = TParser->new({ input => $tokens }); 15*16467b97STreehugger Robot$parser->program(); 16*16467b97STreehugger Robotprint "$tokens\n"; 17