Module CLexer.Lexer

type keyword_state = keyword_state
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_func : ?loc:Loc.t -> ( unit, char ) Gramlib.Stream.t -> ( keyword_state, te ) Gramlib.LStream.t

Returning a stream equipped with a location function

val tok_match : 'c pattern -> te -> 'c
val tok_text : 'c pattern -> string
module State : sig ... end