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 TLexer; 8324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 9324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse strict; 10324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveruse warnings; 11324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 12324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruvermy $input = ANTLR::Runtime::ANTLRStringStream->new({ input => '010' }); 13324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruvermy $lexer = TLexer->new($input); 14324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 15324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverwhile (1) { 16324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver my $token = $lexer->next_token(); 17324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver last if $token->get_type() == $TLexer::EOF; 18324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 19324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver print "type: ", $token->get_type(), "\n"; 20324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver print "text: ", $token->get_text(), "\n"; 21324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver print "\n"; 22324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver} 23