(* num_lexer.mll	Created      : Wed Mar 20 09:59:15 2002*)
(*  			Last modified: Wed Mar 20 11:00:33 2002
 * Compile: ocamllex num_lexer.mll #
 *)


{
 exception Eol
exception Eof
}

  rule num = parse
  [' ' '\t' '\n']     { num lexbuf }     (* skip blanks *)
(*| '\n'           { raise Eol }*)
| '-'?['0'-'9']+'.'['0'-'9']+ { float_of_string (Lexing.lexeme lexbuf) }
| eof            { raise Eof }
    
(* trailer of lexer
{
}
*)