type t = {lex_source : Loc.filename option;lex_lb : Lexing.lexbuf;lex_in_comment_syntax : bool;lex_enable_comment_syntax : bool;lex_state : lex_state;}and lex_state = {lex_errors_acc : (Loc.t * Parse_error.t) list;lex_comments_acc : Ast.Comment.t list;}val empty_lex_state : lex_stateval new_lex_env :
Loc.filename option ->
Lexing.lexbuf ->
enable_types_in_comments:bool ->
tval lexbuf : t -> Lexing.lexbufval with_lexbuf : lexbuf:Lexing.lexbuf -> t -> tval source : t -> Loc.filename optionval is_in_comment_syntax : t -> boolval is_comment_syntax_enabled : t -> boolval debug_string_of_lex_env : t -> string