{
(* lexervhc.mll *)
(* Analyseur lexical sans verification des conditions de contexte *)

open Parservhc;;
exception Eof;; 
}

rule token = parse

  [' ' '\t' '\n' '\r'] {token lexbuf}
| ( '%' [^'%']* '%')   {token lexbuf}
| ['0'-'9']+           {INT(int_of_string(Lexing.lexeme lexbuf))}

(* ... definition des lexemes ... *)

| (['a'-'z'] | ['A'-'Z'])(['a'-'z'] | ['A'-'Z'] | ['0'-'9'])*
                       {IDENT(Lexing.lexeme lexbuf)}
| eof                  {raise Eof}