Module Parser.Lexer

val create : unit -> t
type !'a token = 'a Csexp.Make(Core.Sexp).Parser.Lexer.token =
  1. | Await : [> `other ] token
  2. | Lparen : [> `other ] token
  3. | Rparen : [> `other ] token
  4. | Atom : int -> [> `atom ] token
val feed : t -> char -> [ `atom | `other ] token
val feed_eoi : t -> unit