Module Cstubs_emit_c

val format_seq : string -> (Format.formatter -> 'a -> unit) -> string -> string -> Format.formatter -> 'a list -> unit
val format_ty : Format.formatter -> Cstubs_c_language.ty -> unit
val cvar_name : [< `Global of Cstubs_c_language.cglobal | `Local of string * 'a ] -> string
val cvar : Format.formatter -> [< `Global of Cstubs_c_language.cglobal | `Local of string * 'a ] -> unit
val cconst : Format.formatter -> [< `Int of Signed.SInt.t ] -> unit
val camlxParam : Format.formatter -> string list -> unit
val camlParam : Format.formatter -> string list -> unit
val cast_unnecessary : Cstubs_c_language.ty -> Cstubs_c_language.cexp -> bool
val format_parameter_list : (string * Cstubs_c_language.ty) list -> (Format.formatter -> unit) -> Format.formatter -> unit
val storage_class : Format.formatter -> [< `Extern | `Static ] -> unit