let doc = replace_str longdesc "C<guestfs_" "C<g." in
let doc =
if optargs <> [] then
- doc ^ "\n\nOptional arguments are supplied in the final Map<String,Object> parameter, which is a hash of the argument name to its value (cast to Object). Pass an empty Map for no optional arguments."
+ doc ^ "\n\nOptional arguments are supplied in the final Map<String,Object> parameter, which is a hash of the argument name to its value (cast to Object). Pass an empty Map or null for no optional arguments."
else doc in
let doc =
if List.mem ProtocolLimitWarning flags then
doc ^ "\n\n" ^ protocol_limit_warning
else doc in
let doc =
- if List.mem DangerWillRobinson flags then
- doc ^ "\n\n" ^ danger_will_robinson
- else doc in
- let doc =
match deprecation_notice flags with
| None -> doc
| Some txt -> doc ^ "\n\n" ^ txt in
pr " if (g == 0)\n";
pr " throw new LibGuestFSException (\"%s: handle is closed\");\n"
name;
+ if optargs <> [] then (
+ pr "\n";
+ pr " /* Unpack optional args. */\n";
+ pr " Object _optobj;\n";
+ pr " long _optargs_bitmask = 0;\n";
+ iteri (
+ fun i argt ->
+ let t, boxed_t, convert, n, default =
+ match argt with
+ | Bool n -> "boolean", "Boolean", ".booleanValue()", n, "false"
+ | Int n -> "int", "Integer", ".intValue()", n, "0"
+ | Int64 n -> "long", "Long", ".longValue()", n, "0"
+ | String n -> "String", "String", "", n, "\"\""
+ | _ -> assert false in
+ pr " %s %s = %s;\n" t n default;
+ pr " _optobj = null;\n";
+ pr " if (optargs != null)\n";
+ pr " _optobj = optargs.get (\"%s\");\n" n;
+ pr " if (_optobj != null) {\n";
+ pr " %s = ((%s) _optobj)%s;\n" n boxed_t convert;
+ pr " _optargs_bitmask |= %Ld;\n"
+ (Int64.shift_left Int64.one i);
+ pr " }\n";
+ ) optargs
+ );
+ pr "\n";
(match ret with
| RErr ->
pr " _%s " name;
pr ";\n"
);
pr " }\n";
+ pr "\n";
pr " ";
generate_java_prototype ~privat:true ~native:true name style;
pr "\n";
and generate_java_call_args ~handle (_, args, optargs) =
pr "(%s" handle;
List.iter (fun arg -> pr ", %s" (name_of_argt arg)) args;
- if optargs <> [] then pr ", optargs";
+ if optargs <> [] then (
+ pr ", _optargs_bitmask";
+ List.iter (fun arg -> pr ", %s" (name_of_argt arg)) optargs
+ );
pr ")"
and generate_java_prototype ?(public=false) ?(privat=false) ?(native=false)
if optargs <> [] then (
if !needs_comma then pr ", ";
needs_comma := true;
- pr "HashMap optargs"
+
+ if not native then
+ pr "Map<String, Object> optargs"
+ else (
+ pr "long _optargs_bitmask";
+ List.iter (
+ fun argt ->
+ match argt with
+ | Bool n -> pr ", boolean %s" n
+ | Int n -> pr ", int %s" n
+ | Int64 n -> pr ", long %s" n
+ | String n -> pr ", String %s" n
+ | _ -> assert false
+ ) optargs
+ )
);
pr ")\n";
pr "JNICALL\n";
pr "Java_com_redhat_et_libguestfs_GuestFS_";
pr "%s" (replace_str ("_" ^ name) "_" "_1");
- pr "\n";
pr " (JNIEnv *env, jobject obj, jlong jg";
List.iter (
function
| Int64 n | Pointer (_, n) ->
pr ", jlong j%s" n
) args;
- if optargs <> [] then
- pr ", jobject joptargs";
+ if optargs <> [] then (
+ pr ", jlong joptargs_bitmask";
+ List.iter (
+ function
+ | Bool n -> pr ", jboolean j%s" n
+ | Int n -> pr ", jint j%s" n
+ | Int64 n -> pr ", jlong j%s" n
+ | String n -> pr ", jstring j%s" n
+ | _ -> assert false
+ ) optargs
+ );
pr ")\n";
pr "{\n";
pr " guestfs_h *g = (guestfs_h *) (long) jg;\n";
pr " %s %s;\n" t n
) args;
+ if optargs <> [] then (
+ pr " struct guestfs_%s_argv optargs_s;\n" name;
+ pr " const struct guestfs_%s_argv *optargs = &optargs_s;\n" name
+ );
+
let needs_i =
(match ret with
| RStringList _ | RStructList _ | RHashtable _ -> true
) args;
if optargs <> [] then (
- (* XXX *)
- pr " throw_exception (env, \"%s: internal error: please let us know how to read a Java HashMap parameter from JNI bindings!\");\n" name;
- pr " return NULL;\n";
- pr " /*\n";
+ pr " optargs_s.bitmask = joptargs_bitmask;\n";
+ List.iter (
+ function
+ | Bool n
+ | Int n
+ | Int64 n ->
+ pr " optargs_s.%s = j%s;\n" n n
+ | String n ->
+ pr " optargs_s.%s = (*env)->GetStringUTFChars (env, j%s, NULL);\n"
+ n n
+ | _ -> assert false
+ ) optargs;
);
+ pr "\n";
+
(* Make the call. *)
if optargs = [] then
pr " r = guestfs_%s " name
generate_c_call_args ~handle:"g" style;
pr ";\n";
+ pr "\n";
+
(* Release the parameters. *)
List.iter (
function
| Pointer _ -> ()
) args;
+ List.iter (
+ function
+ | Bool n
+ | Int n
+ | Int64 n -> ()
+ | String n ->
+ pr " (*env)->ReleaseStringUTFChars (env, j%s, optargs_s.%s);\n" n n
+ | _ -> assert false
+ ) optargs;
+
+ pr "\n";
+
(* Check for errors. *)
(match errcode_of_ret ret with
| `CannotReturnError -> ()
pr " return jr;\n"
);
- if optargs <> [] then
- pr " */\n";
-
pr "}\n";
pr "\n"
) all_functions