sig
type ('a, 'b) r constraint 'a = char #Cf_parser.cursor
type ('a, 'b) t = ('a, char, 'b) Cf_parser.X.t
constraint 'a = char #Cf_parser.cursor
val create :
(char #Cf_parser.cursor as 'a, 'b) Cf_lex.X.r -> ('a, 'b) Cf_lex.X.t
module Op :
sig
val ( $| ) : x -> x -> x
val ( $& ) : x -> x -> x
val ( !* ) : x -> x
val ( !+ ) : x -> x
val ( !? ) : x -> x
val ( !: ) : char -> x
val ( !^ ) : (char -> bool) -> x
val ( !~ ) : char Cf_seq.t -> x
val ( !$ ) : string -> x
val ( $= ) : Cf_lex.x -> 'a -> (char #Cf_parser.cursor, 'a) Cf_lex.X.r
val ( $> ) :
Cf_lex.x -> (string -> 'a) -> (char #Cf_parser.cursor, 'a) Cf_lex.X.r
val ( $@ ) :
Cf_lex.x ->
(int -> (char #Cf_parser.cursor as 'a, 'b) Cf_lex.X.t) ->
('a, 'b) Cf_lex.X.r
val ( !@ ) :
(char #Cf_parser.cursor as 'a, 'b) Cf_lex.X.r list ->
('a, 'b) Cf_lex.X.r
val ( ?~ ) : Cf_lex.x -> (char #Cf_parser.cursor, string) Cf_lex.X.t
val ( ?$ ) : string -> (char #Cf_parser.cursor, string) Cf_lex.X.t
end
end