Module CLexer.Lexer

type te = Tok.t
type 'c pattern = 'c Tok.p
val tok_pattern_eq : 'a pattern -> 'b pattern -> ('a'b) Util.eq option
val tok_pattern_strings : 'c pattern -> string * string option
val tok_using : 'c pattern -> unit
val tok_removing : 'c pattern -> unit
val tok_match : 'c pattern -> te -> 'c
val tok_text : 'c pattern -> string
module State : sig ... end