if newline then pr "\n"
(* Generate C call arguments, eg "(handle, foo, bar)" *)
if newline then pr "\n"
(* Generate C call arguments, eg "(handle, foo, bar)" *)
pr "%s" (name_of_argt arg)
) (snd style);
(* For RBufferOut calls, add implicit &size parameter. *)
pr "%s" (name_of_argt arg)
) (snd style);
(* For RBufferOut calls, add implicit &size parameter. *)
] in
let functions =
List.map (fun (name, _, _, _, _, _, _) -> "guestfs_" ^ name)
] in
let functions =
List.map (fun (name, _, _, _, _, _, _) -> "guestfs_" ^ name)