+ 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;
+ generate_java_call_args ~handle:"g" style;
+ pr ";\n"
+ | RHashtable _ ->
+ pr " String[] r = _%s " name;
+ generate_java_call_args ~handle:"g" style;
+ pr ";\n";
+ pr "\n";
+ pr " HashMap rhash = new HashMap ();\n";
+ pr " for (int i = 0; i < r.length; i += 2)\n";
+ pr " rhash.put (r[i], r[i+1]);\n";
+ pr " return rhash;\n"
+ | _ ->
+ pr " return _%s " name;
+ generate_java_call_args ~handle:"g" style;
+ pr ";\n"
+ );