(*******************************************

  TIB86_lexer.mll
  Lexical analysis of a TI-86 Basic program
  Copyright (C) 2000 Brock Wilcox
  Released under the terms of the GNU GPL
  See www.gnu.org for details
  
  -----------------------------------------
  
  HISTORY
  2000.11.13.21.37
   - Created

 ******************************************)

{
  open TIB86_parser
  exception EOF
}

rule token = parse
    [' ' '\t']   { token lexbuf } (* Skip blanks *)
  | [':' '\n']   { EOL }
  | ['0'-'9']+   { INT(int_of_string(Lexing.lexeme lexbuf)) }          
  | eof          { raise EOF }

(* End of TIB86_lexer.mll *)