You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
426 B
17 lines
426 B
7 months ago
|
#!perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use ANTLR::Runtime::ANTLRFileStream;
|
||
|
|
use ANTLR::Runtime::TokenRewriteStream;
|
||
|
|
use TLexer;
|
||
|
|
use TParser;
|
||
|
|
|
||
|
|
my $input = ANTLR::Runtime::ANTLRFileStream->new({ file_name => $ARGV[0] });
|
||
|
|
my $lexer = TLexer->new({ input => $input });
|
||
|
|
my $tokens = ANTLR::Runtime::TokenRewriteStream({ token_source => $lexer });
|
||
|
|
my $parser = TParser->new({ input => $tokens });
|
||
|
|
$parser->program();
|
||
|
|
print "$tokens\n";
|