{
(* lexervhc.mll, Objective Caml version 3.08.1 *)
(* Analyseur lexical sans verification des conditions de contexte *)

open Parservhc;;
exception Eof;; }

rule token = parse

  | "//" ( [ ^ '\n' ] * ) "\n" {token lexbuf}
|  [' ' '\t' '\n' '\r'] {token lexbuf}
| ( '%' [^'%']* '%' )   {token lexbuf}

| (['0'-'9']+) as num    {INT num (* (int_of_string num) *) }

| "let" {T_LET}
| "=" {T_EQ}
| ";;" {DOUBLESEMICOLON}
| ";" {SEMICOLON}
| "in" {T_IN}
| "&" {T_AND}
| "<" {T_LESS}
| "+" {T_ADD}
| "-" {T_SUB}
| "*" {T_MUL}
| "/" {T_DIV}
| "not" {T_NOT}
| "if" {T_IF}
| "then" {T_THEN}
| "else" {T_ELSE}
| "fi" {T_FI}
| "true" {T_TRUE}
| "false" {T_FALSE}
| "value" {T_VALUE}
| "lazydyn" {T_LAZYDYN}
| "lazystat" {T_LAZYSTAT}
| "(" { LPAR }
| ")" { RPAR }
| "," { COMMA }

| ":" { COLON }
| "output" { T_OUTPUT }
| "input" { T_INPUT }
| "random" { T_RANDOM }

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