type t

val start : t -> unit
val buffer : t -> Sedlexing.lexbuf
val positions : t -> Lexing.position * Lexing.position
val content : t -> string
val from_lexbuf : Sedlexing.lexbuf -> t
val tokenize : (t -> 'a) -> t -> unit -> 'a * Lexing.position * Lexing.position