type token_extended = {mutable t : Parser_cpp.token;mutable where : context list;mutable new_tokens_before : Parser_cpp.token list;line : int;col : int;}val mk_token_extended : Parser_cpp.token -> token_extendedval mk_token_fake : Parser_cpp.token -> token_extendedval rebuild_tokens_extented : token_extended list -> token_extended listtype paren_grouped = | Parenthised of paren_grouped list list * token_extended list| PToken of token_extendedtype brace_grouped = | Braceised of brace_grouped list list * token_extended * token_extended option| BToken of token_extendedtype ifdef_grouped = | Ifdef of ifdef_grouped list list * token_extended list| Ifdefbool of bool * ifdef_grouped list list * token_extended list| NotIfdefLine of token_extended listtype body_function_grouped = | BodyFunction of token_extended list| NotBodyLine of token_extended listtype multi_grouped = | Braces of token_extended * multi_grouped list * token_extended option| Parens of token_extended * multi_grouped list * token_extended option| Angle of token_extended * multi_grouped list * token_extended option| Tok of token_extendedval split_comma : multi_grouped list -> multi_grouped list listval mk_parenthised : token_extended list -> paren_grouped listval mk_braceised : token_extended list -> brace_grouped listval mk_ifdef : token_extended list -> ifdef_grouped listval mk_body_function_grouped :
token_extended list ->
body_function_grouped listval mk_line_parenthised : paren_grouped list -> paren_grouped line_grouped listval mk_multi : token_extended list -> multi_grouped listval iter_token_paren : (token_extended -> unit) -> paren_grouped list -> unitval iter_token_brace : (token_extended -> unit) -> brace_grouped list -> unitval iter_token_ifdef : (token_extended -> unit) -> ifdef_grouped list -> unitval iter_token_multi : (token_extended -> unit) -> multi_grouped list -> unitval tokens_of_paren : paren_grouped list -> token_extended listval tokens_of_paren_ordered : paren_grouped list -> token_extended listval tokens_of_multi_grouped : multi_grouped list -> token_extended listval vof_multi_grouped_list : multi_grouped list -> Ocaml.v