1324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver#!/usr/bin/perl 2324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 3324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse blib; 4324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 5324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse English qw( -no_match_vars ); 6324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse ANTLR::Runtime::ANTLRStringStream; 7324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse IDLexer; 8324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 9324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse strict; 10324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse warnings; 11324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 12324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruvermy $input = ANTLR::Runtime::ANTLRStringStream->new({ input => "Hello World!\n42\n" }); 13324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruvermy $lexer = IDLexer->new({ input => $input }); 14324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 15324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverwhile (1) { 16324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver my $token = $lexer->next_token(); 17324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver last if $token->get_type() == IDLexer->EOF; 18324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 19324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver print "text: ", $token->get_text(), "\n"; 20324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver print "type: ", $token->get_type(), "\n"; 21324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver print "pos: ", $token->get_line(), ':', $token->get_char_position_in_line(), "\n"; 22324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver print "channel: ", $token->get_channel(), "\n"; 23324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver print "token index: ", $token->get_token_index(), "\n"; 24324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver print "\n"; 25324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver} 26