val printCounters : bool refval current_len : int refval new_line : unit -> unitval indent : unit -> unitval unindent : unit -> unitval force_new_line : unit -> unitval commit : unit -> unitval print_unescaped_string : string -> unitval print_list : (unit -> unit) -> ('a -> 'b) -> 'a list -> unitval print_commas : bool -> ('a -> 'b) -> 'a list -> unitval print_string : string -> unitval print_struct_name_attr : string -> string -> Cabs.attribute list -> unitval print_old_params : string list -> bool -> unitval comprint : string -> unitval comstring : string -> stringval set_tab : int -> unitval set_width : int -> unit