1 lexer grammar IDLexer; 2 options { language = Perl5; } 3 4 ID : ('a'..'z'|'A'..'Z')+ ; 5 INT : '0'..'9'+ ; 6 NEWLINE:'\r'? '\n' { $self->skip(); } ; 7 WS : (' '|'\t')+ { $channel = HIDDEN; } ; 8
