val is_space : Parser_c.token -> bool
-val is_comment_or_space : Parser_c.token -> bool
val is_just_comment : Parser_c.token -> bool
+val is_just_comment_or_space : Parser_c.token -> bool
+
val is_comment : Parser_c.token -> bool
+val is_not_comment : Parser_c.token -> bool
+
val is_real_comment : Parser_c.token -> bool
val is_fake_comment : Parser_c.token -> bool
-val is_not_comment : Parser_c.token -> bool
+val is_not_in_ast : Parser_c.token -> bool
+
val is_cpp_instruction : Parser_c.token -> bool
+val is_gcc_token : Parser_c.token -> bool
+
val is_eof : Parser_c.token -> bool
+val is_eom : Parser_c.token -> bool
+
val is_statement : Parser_c.token -> bool
val is_start_of_something : Parser_c.token -> bool
val is_binary_operator : Parser_c.token -> bool
val is_opar : Parser_c.token -> bool
val is_cpar : Parser_c.token -> bool
+val is_obrace : Parser_c.token -> bool
+val is_cbrace : Parser_c.token -> bool
+val is_ident_like: Parser_c.token -> bool
+
+(* ---------------------------------------------------------------------- *)
val info_of_tok : Parser_c.token -> Ast_c.info
-val visitor_info_of_tok :
+val visitor_info_of_tok :
(Ast_c.info -> Ast_c.info) -> Parser_c.token -> Parser_c.token
+(* ---------------------------------------------------------------------- *)
val linecol_of_tok : Parser_c.token -> int * int
val col_of_tok : Parser_c.token -> int
val line_of_tok : Parser_c.token -> int
val is_expanded : Parser_c.token -> bool
val is_fake : Parser_c.token -> bool
val is_abstract : Parser_c.token -> bool
+
+val is_same_line_or_close: int -> Parser_c.token -> bool