Module Cobol_common.Tokenizing

val fold_tokens : tokenizer: (loc:Srcloc.srcloc Stdlib.Lazy.t -> Stdlib.Lexing.lexbuf -> 'a) as 't -> until:('a -> bool) -> ?next_tokenizer:('a -> 't) -> f:('a Srcloc.with_loc -> 'b -> 'b) -> string Srcloc.with_loc -> 'b -> 'b