+ | Pointer _, _ ->
+ (* Difficult to make these pointers in order to run a test. *)
+ assert false
+ ) args;
+
+ (* Currently can only deal with a complete, in-order list of optargs. *)
+ if optargs <> [] then (
+ pr " struct guestfs_%s_argv optargs;\n" name;
+ let len = List.length style_optargs in
+ let bitmask = Int64.pred (Int64.shift_left 1L len) in
+ pr " optargs.bitmask = UINT64_C(0x%Lx);\n" bitmask;
+ List.iter (
+ function
+ | Bool n, arg
+ | Int n, arg
+ | Int64 n, arg ->
+ pr " optargs.%s = %s;\n" n arg
+ | String n, arg ->
+ pr " optargs.%s = \"%s\";\n" n (c_quote arg);
+ | _ -> assert false
+ ) optargs;
+ );