val version : string
val out : out_channel ref
val width : int ref
val tab : int ref
val max_indent : int ref
val line : string ref
val line_len : int ref
val current : string ref
val current_len : int ref
val spaces : int ref
val follow : int ref
val roll : int ref
val print_tab : int -> unit
val flush : 'a -> unit
val commit : 'a -> unit
val new_line : 'a -> unit
val force_new_line : 'a -> unit
val indent : 'a -> unit
val unindent : 'a -> unit
val space : 'a -> unit
val print_commas : bool -> ('a -> 'b) -> 'a list -> unit
val escape_string : string -> string
val get_sign : Cabs.sign -> string
val get_size : Cabs.size -> string
val print_base_type : Cabs.base_type -> unit
val print_fields : string -> Cabs.name_group list -> unit
val print_enum : string -> Cabs.enum_item list -> unit
val get_base_type : Cabs.base_type -> Cabs.base_type
val print_pointer : Cabs.base_type -> unit
val print_array : Cabs.base_type -> unit
val print_type : (unit -> unit) -> Cabs.base_type -> unit
val print_onlytype : Cabs.base_type -> unit
val print_name : Cabs.name -> unit
val get_storage : Cabs.storage -> string
val print_name_group : Cabs.name_group -> unit
val print_single_name : Cabs.single_name -> unit
val print_params : Cabs.single_name list -> bool -> unit
val print_old_params : string list -> bool -> unit
val get_operator : Cabs.expression -> string * int
val print_comma_exps : Cabs.expression list -> unit
val print_expression : Cabs.expression -> int -> unit
val print_statement : Cabs.statement -> unit
val print_substatement : Cabs.statement -> unit
val print_attributes : Cabs.attributes -> unit
val print_attribute : Cabs.attribute -> unit
val print_defs : Cabs.definition list -> unit
val print_def : Cabs.definition -> unit
val print : out_channel -> Cabs.file -> unit
val set_tab : int -> unit
val set_width : int -> unit