generator/generator_java.ml

   1 (* libguestfs
   2  * Copyright (C) 2009-2011 Red Hat Inc.
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation; either version 2 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  17  *)
  18
  19 (* Please read generator/README first. *)
  20
  21 open Printf
  22
  23 open Generator_types
  24 open Generator_utils
  25 open Generator_pr
  26 open Generator_docstrings
  27 open Generator_optgroups
  28 open Generator_actions
  29 open Generator_structs
  30 open Generator_c
  31
  32 (* Generate Java bindings GuestFS.java file. *)
  33 let rec generate_java_java () =
  34   generate_header CStyle LGPLv2plus;
  35
  36   pr "\
  37 package com.redhat.et.libguestfs;
  38
  39 import java.util.HashMap;
  40 import java.util.Map;
  41 import com.redhat.et.libguestfs.LibGuestFSException;
  42 import com.redhat.et.libguestfs.PV;
  43 import com.redhat.et.libguestfs.VG;
  44 import com.redhat.et.libguestfs.LV;
  45 import com.redhat.et.libguestfs.Stat;
  46 import com.redhat.et.libguestfs.StatVFS;
  47 import com.redhat.et.libguestfs.IntBool;
  48 import com.redhat.et.libguestfs.Dirent;
  49
  50 /**
  51  * The GuestFS object is a libguestfs handle.
  52  *
  53  * @author rjones
  54  */
  55 public class GuestFS {
  56   // Load the native code.
  57   static {
  58     System.loadLibrary (\"guestfs_jni\");
  59   }
  60
  61   /**
  62    * The native guestfs_h pointer.
  63    */
  64   long g;
  65
  66   /**
  67    * Create a libguestfs handle.
  68    *
  69    * @throws LibGuestFSException
  70    */
  71   public GuestFS () throws LibGuestFSException
  72   {
  73     g = _create ();
  74   }
  75   private native long _create () throws LibGuestFSException;
  76
  77   /**
  78    * Close a libguestfs handle.
  79    *
  80    * You can also leave handles to be collected by the garbage
  81    * collector, but this method ensures that the resources used
  82    * by the handle are freed up immediately.  If you call any
  83    * other methods after closing the handle, you will get an
  84    * exception.
  85    *
  86    * @throws LibGuestFSException
  87    */
  88   public void close () throws LibGuestFSException
  89   {
  90     if (g != 0)
  91       _close (g);
  92     g = 0;
  93   }
  94   private native void _close (long g) throws LibGuestFSException;
  95
  96   public void finalize () throws LibGuestFSException
  97   {
  98     close ();
  99   }
 100
 101 ";
 102
 103   List.iter (
 104     fun (name, (ret, args, optargs as style), _, flags, _, shortdesc, longdesc) ->
 105       if not (List.mem NotInDocs flags); then (
 106         let doc = replace_str longdesc "C<guestfs_" "C<g." in
 107         let doc =
 108           if optargs <> [] then
 109             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."
 110           else doc in
 111         let doc =
 112           if List.mem ProtocolLimitWarning flags then
 113             doc ^ "\n\n" ^ protocol_limit_warning
 114           else doc in
 115         let doc =
 116           match deprecation_notice flags with
 117           | None -> doc
 118           | Some txt -> doc ^ "\n\n" ^ txt in
 119         let doc = pod2text ~width:60 name doc in
 120         let doc = List.map (            (* RHBZ#501883 *)
 121           function
 122           | "" -> "<p>"
 123           | nonempty -> nonempty
 124         ) doc in
 125         let doc = String.concat "\n   * " doc in
 126
 127         pr "  /**\n";
 128         pr "   * %s\n" shortdesc;
 129         pr "   * <p>\n";
 130         pr "   * %s\n" doc;
 131         pr "   * @throws LibGuestFSException\n";
 132         pr "   */\n";
 133       );
 134       pr "  ";
 135       generate_java_prototype ~public:true ~semicolon:false name style;
 136       pr "\n";
 137       pr "  {\n";
 138       pr "    if (g == 0)\n";
 139       pr "      throw new LibGuestFSException (\"%s: handle is closed\");\n"
 140         name;
 141       if optargs <> [] then (
 142         pr "\n";
 143         pr "    /* Unpack optional args. */\n";
 144         pr "    Object _optobj;\n";
 145         pr "    long _optargs_bitmask = 0;\n";
 146         iteri (
 147           fun i argt ->
 148             let t, boxed_t, convert, n, default =
 149               match argt with
 150               | Bool n -> "boolean", "Boolean", ".booleanValue()", n, "false"
 151               | Int n -> "int", "Integer", ".intValue()", n, "0"
 152               | Int64 n -> "long", "Long", ".longValue()", n, "0"
 153               | String n -> "String", "String", "", n, "\"\""
 154               | _ -> assert false in
 155             pr "    %s %s = %s;\n" t n default;
 156             pr "    _optobj = null;\n";
 157             pr "    if (optargs != null)\n";
 158             pr "      _optobj = optargs.get (\"%s\");\n" n;
 159             pr "    if (_optobj != null) {\n";
 160             pr "      %s = ((%s) _optobj)%s;\n" n boxed_t convert;
 161             pr "      _optargs_bitmask |= %Ld;\n"
 162               (Int64.shift_left Int64.one i);
 163             pr "    }\n";
 164         ) optargs
 165       );
 166       pr "\n";
 167       (match ret with
 168        | RErr ->
 169            pr "    _%s " name;
 170            generate_java_call_args ~handle:"g" style;
 171            pr ";\n"
 172        | RHashtable _ ->
 173            pr "    String[] r = _%s " name;
 174            generate_java_call_args ~handle:"g" style;
 175            pr ";\n";
 176            pr "\n";
 177            pr "    HashMap rhash = new HashMap ();\n";
 178            pr "    for (int i = 0; i < r.length; i += 2)\n";
 179            pr "      rhash.put (r[i], r[i+1]);\n";
 180            pr "    return rhash;\n"
 181        | _ ->
 182            pr "    return _%s " name;
 183            generate_java_call_args ~handle:"g" style;
 184            pr ";\n"
 185       );
 186       pr "  }\n";
 187       pr "\n";
 188       pr "  ";
 189       generate_java_prototype ~privat:true ~native:true name style;
 190       pr "\n";
 191       pr "\n";
 192   ) all_functions;
 193
 194   pr "}\n"
 195
 196 (* Generate Java call arguments, eg "(handle, foo, bar)" *)
 197 and generate_java_call_args ~handle (_, args, optargs) =
 198   pr "(%s" handle;
 199   List.iter (fun arg -> pr ", %s" (name_of_argt arg)) args;
 200   if optargs <> [] then (
 201     pr ", _optargs_bitmask";
 202     List.iter (fun arg -> pr ", %s" (name_of_argt arg)) optargs
 203   );
 204   pr ")"
 205
 206 and generate_java_prototype ?(public=false) ?(privat=false) ?(native=false)
 207     ?(semicolon=true) name (ret, args, optargs) =
 208   if privat then pr "private ";
 209   if public then pr "public ";
 210   if native then pr "native ";
 211
 212   (* return type *)
 213   (match ret with
 214    | RErr -> pr "void ";
 215    | RInt _ -> pr "int ";
 216    | RInt64 _ -> pr "long ";
 217    | RBool _ -> pr "boolean ";
 218    | RConstString _ | RConstOptString _ | RString _
 219    | RBufferOut _ -> pr "String ";
 220    | RStringList _ -> pr "String[] ";
 221    | RStruct (_, typ) ->
 222        let name = java_name_of_struct typ in
 223        pr "%s " name;
 224    | RStructList (_, typ) ->
 225        let name = java_name_of_struct typ in
 226        pr "%s[] " name;
 227    | RHashtable _ ->
 228        if not native then
 229          pr "Map<String,String> "
 230        else
 231          pr "String[] ";
 232   );
 233
 234   if native then pr "_%s " name else pr "%s " name;
 235   pr "(";
 236   let needs_comma = ref false in
 237   if native then (
 238     pr "long g";
 239     needs_comma := true
 240   );
 241
 242   (* args *)
 243   List.iter (
 244     fun arg ->
 245       if !needs_comma then pr ", ";
 246       needs_comma := true;
 247
 248       match arg with
 249       | Pathname n
 250       | Device n | Dev_or_Path n
 251       | String n
 252       | OptString n
 253       | FileIn n
 254       | FileOut n
 255       | Key n ->
 256           pr "String %s" n
 257       | BufferIn n ->
 258           pr "byte[] %s" n
 259       | StringList n | DeviceList n ->
 260           pr "String[] %s" n
 261       | Bool n ->
 262           pr "boolean %s" n
 263       | Int n ->
 264           pr "int %s" n
 265       | Int64 n | Pointer (_, n) ->
 266           pr "long %s" n
 267   ) args;
 268
 269   if optargs <> [] then (
 270     if !needs_comma then pr ", ";
 271     needs_comma := true;
 272
 273     if not native then
 274       pr "Map<String, Object> optargs"
 275     else (
 276       pr "long _optargs_bitmask";
 277       List.iter (
 278         fun argt ->
 279           match argt with
 280           | Bool n -> pr ", boolean %s" n
 281           | Int n -> pr ", int %s" n
 282           | Int64 n -> pr ", long %s" n
 283           | String n -> pr ", String %s" n
 284           | _ -> assert false
 285       ) optargs
 286     )
 287   );
 288
 289   pr ")\n";
 290   pr "    throws LibGuestFSException";
 291   if semicolon then pr ";"
 292
 293 and generate_java_struct jtyp cols () =
 294   generate_header CStyle LGPLv2plus;
 295
 296   pr "\
 297 package com.redhat.et.libguestfs;
 298
 299 /**
 300  * Libguestfs %s structure.
 301  *
 302  * @author rjones
 303  * @see GuestFS
 304  */
 305 public class %s {
 306 " jtyp jtyp;
 307
 308   List.iter (
 309     function
 310     | name, FString
 311     | name, FUUID
 312     | name, FBuffer -> pr "  public String %s;\n" name
 313     | name, (FBytes|FUInt64|FInt64) -> pr "  public long %s;\n" name
 314     | name, (FUInt32|FInt32) -> pr "  public int %s;\n" name
 315     | name, FChar -> pr "  public char %s;\n" name
 316     | name, FOptPercent ->
 317         pr "  /* The next field is [0..100] or -1 meaning 'not present': */\n";
 318         pr "  public float %s;\n" name
 319   ) cols;
 320
 321   pr "}\n"
 322
 323 and generate_java_c () =
 324   generate_header CStyle LGPLv2plus;
 325
 326   pr "\
 327 #include <stdio.h>
 328 #include <stdlib.h>
 329 #include <string.h>
 330
 331 #include \"com_redhat_et_libguestfs_GuestFS.h\"
 332 #include \"guestfs.h\"
 333
 334 /* Note that this function returns.  The exception is not thrown
 335  * until after the wrapper function returns.
 336  */
 337 static void
 338 throw_exception (JNIEnv *env, const char *msg)
 339 {
 340   jclass cl;
 341   cl = (*env)->FindClass (env,
 342                           \"com/redhat/et/libguestfs/LibGuestFSException\");
 343   (*env)->ThrowNew (env, cl, msg);
 344 }
 345
 346 JNIEXPORT jlong JNICALL
 347 Java_com_redhat_et_libguestfs_GuestFS__1create
 348   (JNIEnv *env, jobject obj)
 349 {
 350   guestfs_h *g;
 351
 352   g = guestfs_create ();
 353   if (g == NULL) {
 354     throw_exception (env, \"GuestFS.create: failed to allocate handle\");
 355     return 0;
 356   }
 357   guestfs_set_error_handler (g, NULL, NULL);
 358   return (jlong) (long) g;
 359 }
 360
 361 JNIEXPORT void JNICALL
 362 Java_com_redhat_et_libguestfs_GuestFS__1close
 363   (JNIEnv *env, jobject obj, jlong jg)
 364 {
 365   guestfs_h *g = (guestfs_h *) (long) jg;
 366   guestfs_close (g);
 367 }
 368
 369 ";
 370
 371   List.iter (
 372     fun (name, (ret, args, optargs as style), _, _, _, _, _) ->
 373       pr "JNIEXPORT ";
 374       (match ret with
 375        | RErr -> pr "void ";
 376        | RInt _ -> pr "jint ";
 377        | RInt64 _ -> pr "jlong ";
 378        | RBool _ -> pr "jboolean ";
 379        | RConstString _ | RConstOptString _ | RString _
 380        | RBufferOut _ -> pr "jstring ";
 381        | RStruct _ | RHashtable _ ->
 382            pr "jobject ";
 383        | RStringList _ | RStructList _ ->
 384            pr "jobjectArray ";
 385       );
 386       pr "JNICALL\n";
 387       pr "Java_com_redhat_et_libguestfs_GuestFS_";
 388       pr "%s" (replace_str ("_" ^ name) "_" "_1");
 389       pr "  (JNIEnv *env, jobject obj, jlong jg";
 390       List.iter (
 391         function
 392         | Pathname n
 393         | Device n | Dev_or_Path n
 394         | String n
 395         | OptString n
 396         | FileIn n
 397         | FileOut n
 398         | Key n ->
 399             pr ", jstring j%s" n
 400         | BufferIn n ->
 401             pr ", jbyteArray j%s" n
 402         | StringList n | DeviceList n ->
 403             pr ", jobjectArray j%s" n
 404         | Bool n ->
 405             pr ", jboolean j%s" n
 406         | Int n ->
 407             pr ", jint j%s" n
 408         | Int64 n | Pointer (_, n) ->
 409             pr ", jlong j%s" n
 410       ) args;
 411       if optargs <> [] then (
 412         pr ", jlong joptargs_bitmask";
 413         List.iter (
 414           function
 415           | Bool n -> pr ", jboolean j%s" n
 416           | Int n -> pr ", jint j%s" n
 417           | Int64 n -> pr ", jlong j%s" n
 418           | String n -> pr ", jstring j%s" n
 419           | _ -> assert false
 420         ) optargs
 421       );
 422       pr ")\n";
 423       pr "{\n";
 424       pr "  guestfs_h *g = (guestfs_h *) (long) jg;\n";
 425       (match ret with
 426        | RErr -> pr "  int r;\n"
 427        | RBool _
 428        | RInt _ -> pr "  int r;\n"
 429        | RInt64 _ -> pr "  int64_t r;\n"
 430        | RConstString _ -> pr "  const char *r;\n"
 431        | RConstOptString _ -> pr "  const char *r;\n"
 432        | RString _ ->
 433            pr "  jstring jr;\n";
 434            pr "  char *r;\n"
 435        | RStringList _
 436        | RHashtable _ ->
 437            pr "  jobjectArray jr;\n";
 438            pr "  size_t r_len;\n";
 439            pr "  jclass cl;\n";
 440            pr "  jstring jstr;\n";
 441            pr "  char **r;\n"
 442        | RStruct (_, typ) ->
 443            pr "  jobject jr;\n";
 444            pr "  jclass cl;\n";
 445            pr "  jfieldID fl;\n";
 446            pr "  struct guestfs_%s *r;\n" typ
 447        | RStructList (_, typ) ->
 448            pr "  jobjectArray jr;\n";
 449            pr "  jclass cl;\n";
 450            pr "  jfieldID fl;\n";
 451            pr "  jobject jfl;\n";
 452            pr "  struct guestfs_%s_list *r;\n" typ
 453        | RBufferOut _ ->
 454            pr "  jstring jr;\n";
 455            pr "  char *r;\n";
 456            pr "  size_t size;\n"
 457       );
 458
 459       List.iter (
 460         function
 461         | Pathname n
 462         | Device n | Dev_or_Path n
 463         | String n
 464         | OptString n
 465         | FileIn n
 466         | FileOut n
 467         | Key n ->
 468             pr "  const char *%s;\n" n
 469         | BufferIn n ->
 470             pr "  char *%s;\n" n;
 471             pr "  size_t %s_size;\n" n
 472         | StringList n | DeviceList n ->
 473             pr "  size_t %s_len;\n" n;
 474             pr "  char **%s;\n" n
 475         | Bool n
 476         | Int n ->
 477             pr "  int %s;\n" n
 478         | Int64 n ->
 479             pr "  int64_t %s;\n" n
 480         | Pointer (t, n) ->
 481             pr "  %s %s;\n" t n
 482       ) args;
 483
 484       if optargs <> [] then (
 485         pr "  struct guestfs_%s_argv optargs_s;\n" name;
 486         pr "  const struct guestfs_%s_argv *optargs = &optargs_s;\n" name
 487       );
 488
 489       let needs_i =
 490         (match ret with
 491          | RStringList _ | RStructList _ | RHashtable _ -> true
 492          | RErr | RBool _ | RInt _ | RInt64 _ | RConstString _
 493          | RConstOptString _
 494          | RString _ | RBufferOut _ | RStruct _ -> false) ||
 495           List.exists (function
 496                        | StringList _ -> true
 497                        | DeviceList _ -> true
 498                        | _ -> false) args in
 499       if needs_i then
 500         pr "  size_t i;\n";
 501
 502       pr "\n";
 503
 504       (* Get the parameters. *)
 505       List.iter (
 506         function
 507         | Pathname n
 508         | Device n | Dev_or_Path n
 509         | String n
 510         | FileIn n
 511         | FileOut n
 512         | Key n ->
 513             pr "  %s = (*env)->GetStringUTFChars (env, j%s, NULL);\n" n n
 514         | OptString n ->
 515             (* This is completely undocumented, but Java null becomes
 516              * a NULL parameter.
 517              *)
 518             pr "  %s = j%s ? (*env)->GetStringUTFChars (env, j%s, NULL) : NULL;\n" n n n
 519         | BufferIn n ->
 520             pr "  %s = (char *) (*env)->GetByteArrayElements (env, j%s, NULL);\n" n n;
 521             pr "  %s_size = (*env)->GetArrayLength (env, j%s);\n" n n
 522         | StringList n | DeviceList n ->
 523             pr "  %s_len = (*env)->GetArrayLength (env, j%s);\n" n n;
 524             pr "  %s = guestfs_safe_malloc (g, sizeof (char *) * (%s_len+1));\n" n n;
 525             pr "  for (i = 0; i < %s_len; ++i) {\n" n;
 526             pr "    jobject o = (*env)->GetObjectArrayElement (env, j%s, i);\n"
 527               n;
 528             pr "    %s[i] = (char *) (*env)->GetStringUTFChars (env, o, NULL);\n" n;
 529             pr "  }\n";
 530             pr "  %s[%s_len] = NULL;\n" n n;
 531         | Bool n
 532         | Int n
 533         | Int64 n ->
 534             pr "  %s = j%s;\n" n n
 535         | Pointer (t, n) ->
 536             pr "  %s = (%s) j%s;\n" n t n
 537       ) args;
 538
 539       if optargs <> [] then (
 540         pr "  optargs_s.bitmask = joptargs_bitmask;\n";
 541         List.iter (
 542           function
 543           | Bool n
 544           | Int n
 545           | Int64 n ->
 546               pr "  optargs_s.%s = j%s;\n" n n
 547           | String n ->
 548               pr "  optargs_s.%s = (*env)->GetStringUTFChars (env, j%s, NULL);\n"
 549                 n n
 550           | _ -> assert false
 551         ) optargs;
 552       );
 553
 554       pr "\n";
 555
 556       (* Make the call. *)
 557       if optargs = [] then
 558         pr "  r = guestfs_%s " name
 559       else
 560         pr "  r = guestfs_%s_argv " name;
 561       generate_c_call_args ~handle:"g" style;
 562       pr ";\n";
 563
 564       pr "\n";
 565
 566       (* Release the parameters. *)
 567       List.iter (
 568         function
 569         | Pathname n
 570         | Device n | Dev_or_Path n
 571         | String n
 572         | FileIn n
 573         | FileOut n
 574         | Key n ->
 575             pr "  (*env)->ReleaseStringUTFChars (env, j%s, %s);\n" n n
 576         | OptString n ->
 577             pr "  if (j%s)\n" n;
 578             pr "    (*env)->ReleaseStringUTFChars (env, j%s, %s);\n" n n
 579         | BufferIn n ->
 580             pr "  (*env)->ReleaseByteArrayElements (env, j%s, (jbyte *) %s, 0);\n" n n
 581         | StringList n | DeviceList n ->
 582             pr "  for (i = 0; i < %s_len; ++i) {\n" n;
 583             pr "    jobject o = (*env)->GetObjectArrayElement (env, j%s, i);\n"
 584               n;
 585             pr "    (*env)->ReleaseStringUTFChars (env, o, %s[i]);\n" n;
 586             pr "  }\n";
 587             pr "  free (%s);\n" n
 588         | Bool _
 589         | Int _
 590         | Int64 _
 591         | Pointer _ -> ()
 592       ) args;
 593
 594       List.iter (
 595         function
 596         | Bool n
 597         | Int n
 598         | Int64 n -> ()
 599         | String n ->
 600             pr "  (*env)->ReleaseStringUTFChars (env, j%s, optargs_s.%s);\n" n n
 601         | _ -> assert false
 602       ) optargs;
 603
 604       pr "\n";
 605
 606       (* Check for errors. *)
 607       (match errcode_of_ret ret with
 608        | `CannotReturnError -> ()
 609        | (`ErrorIsMinusOne|`ErrorIsNULL) as errcode ->
 610            (match errcode with
 611             | `ErrorIsMinusOne ->
 612                 pr "  if (r == -1) {\n";
 613             | `ErrorIsNULL ->
 614                 pr "  if (r == NULL) {\n";
 615            );
 616            pr "    throw_exception (env, guestfs_last_error (g));\n";
 617            (match ret with
 618             | RErr ->
 619                 pr "    return;\n"
 620             | RInt _
 621             | RInt64 _
 622             | RBool _ ->
 623                 pr "    return -1;\n"
 624             | RConstString _ | RConstOptString _ | RString _
 625             | RBufferOut _
 626             | RStruct _ | RHashtable _
 627             | RStringList _ | RStructList _ ->
 628                 pr "    return NULL;\n"
 629            );
 630            pr "  }\n"
 631       );
 632
 633       (* Return value. *)
 634       (match ret with
 635        | RErr -> ()
 636        | RInt _ -> pr "  return (jint) r;\n"
 637        | RBool _ -> pr "  return (jboolean) r;\n"
 638        | RInt64 _ -> pr "  return (jlong) r;\n"
 639        | RConstString _ -> pr "  return (*env)->NewStringUTF (env, r);\n"
 640        | RConstOptString _ ->
 641            pr "  return (*env)->NewStringUTF (env, r); /* XXX r NULL? */\n"
 642        | RString _ ->
 643            pr "  jr = (*env)->NewStringUTF (env, r);\n";
 644            pr "  free (r);\n";
 645            pr "  return jr;\n"
 646        | RStringList _
 647        | RHashtable _ ->
 648            pr "  for (r_len = 0; r[r_len] != NULL; ++r_len) ;\n";
 649            pr "  cl = (*env)->FindClass (env, \"java/lang/String\");\n";
 650            pr "  jstr = (*env)->NewStringUTF (env, \"\");\n";
 651            pr "  jr = (*env)->NewObjectArray (env, r_len, cl, jstr);\n";
 652            pr "  for (i = 0; i < r_len; ++i) {\n";
 653            pr "    jstr = (*env)->NewStringUTF (env, r[i]);\n";
 654            pr "    (*env)->SetObjectArrayElement (env, jr, i, jstr);\n";
 655            pr "    free (r[i]);\n";
 656            pr "  }\n";
 657            pr "  free (r);\n";
 658            pr "  return jr;\n"
 659        | RStruct (_, typ) ->
 660            let jtyp = java_name_of_struct typ in
 661            let cols = cols_of_struct typ in
 662            generate_java_struct_return typ jtyp cols
 663        | RStructList (_, typ) ->
 664            let jtyp = java_name_of_struct typ in
 665            let cols = cols_of_struct typ in
 666            generate_java_struct_list_return typ jtyp cols
 667        | RBufferOut _ ->
 668            pr "  jr = (*env)->NewStringUTF (env, r); // XXX size\n";
 669            pr "  free (r);\n";
 670            pr "  return jr;\n"
 671       );
 672
 673       pr "}\n";
 674       pr "\n"
 675   ) all_functions
 676
 677 and generate_java_struct_return typ jtyp cols =
 678   pr "  cl = (*env)->FindClass (env, \"com/redhat/et/libguestfs/%s\");\n" jtyp;
 679   pr "  jr = (*env)->AllocObject (env, cl);\n";
 680   List.iter (
 681     function
 682     | name, FString ->
 683         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 684         pr "  (*env)->SetObjectField (env, jr, fl, (*env)->NewStringUTF (env, r->%s));\n" name;
 685     | name, FUUID ->
 686         pr "  {\n";
 687         pr "    char s[33];\n";
 688         pr "    memcpy (s, r->%s, 32);\n" name;
 689         pr "    s[32] = 0;\n";
 690         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 691         pr "    (*env)->SetObjectField (env, jr, fl, (*env)->NewStringUTF (env, s));\n";
 692         pr "  }\n";
 693     | name, FBuffer ->
 694         pr "  {\n";
 695         pr "    int len = r->%s_len;\n" name;
 696         pr "    char s[len+1];\n";
 697         pr "    memcpy (s, r->%s, len);\n" name;
 698         pr "    s[len] = 0;\n";
 699         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 700         pr "    (*env)->SetObjectField (env, jr, fl, (*env)->NewStringUTF (env, s));\n";
 701         pr "  }\n";
 702     | name, (FBytes|FUInt64|FInt64) ->
 703         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"J\");\n" name;
 704         pr "  (*env)->SetLongField (env, jr, fl, r->%s);\n" name;
 705     | name, (FUInt32|FInt32) ->
 706         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"I\");\n" name;
 707         pr "  (*env)->SetLongField (env, jr, fl, r->%s);\n" name;
 708     | name, FOptPercent ->
 709         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"F\");\n" name;
 710         pr "  (*env)->SetFloatField (env, jr, fl, r->%s);\n" name;
 711     | name, FChar ->
 712         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"C\");\n" name;
 713         pr "  (*env)->SetLongField (env, jr, fl, r->%s);\n" name;
 714   ) cols;
 715   pr "  free (r);\n";
 716   pr "  return jr;\n"
 717
 718 and generate_java_struct_list_return typ jtyp cols =
 719   pr "  cl = (*env)->FindClass (env, \"com/redhat/et/libguestfs/%s\");\n" jtyp;
 720   pr "  jr = (*env)->NewObjectArray (env, r->len, cl, NULL);\n";
 721   pr "  for (i = 0; i < r->len; ++i) {\n";
 722   pr "    jfl = (*env)->AllocObject (env, cl);\n";
 723   List.iter (
 724     function
 725     | name, FString ->
 726         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 727         pr "    (*env)->SetObjectField (env, jfl, fl, (*env)->NewStringUTF (env, r->val[i].%s));\n" name;
 728     | name, FUUID ->
 729         pr "    {\n";
 730         pr "      char s[33];\n";
 731         pr "      memcpy (s, r->val[i].%s, 32);\n" name;
 732         pr "      s[32] = 0;\n";
 733         pr "      fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 734         pr "      (*env)->SetObjectField (env, jfl, fl, (*env)->NewStringUTF (env, s));\n";
 735         pr "    }\n";
 736     | name, FBuffer ->
 737         pr "    {\n";
 738         pr "      int len = r->val[i].%s_len;\n" name;
 739         pr "      char s[len+1];\n";
 740         pr "      memcpy (s, r->val[i].%s, len);\n" name;
 741         pr "      s[len] = 0;\n";
 742         pr "      fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 743         pr "      (*env)->SetObjectField (env, jfl, fl, (*env)->NewStringUTF (env, s));\n";
 744         pr "    }\n";
 745     | name, (FBytes|FUInt64|FInt64) ->
 746         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"J\");\n" name;
 747         pr "    (*env)->SetLongField (env, jfl, fl, r->val[i].%s);\n" name;
 748     | name, (FUInt32|FInt32) ->
 749         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"I\");\n" name;
 750         pr "    (*env)->SetLongField (env, jfl, fl, r->val[i].%s);\n" name;
 751     | name, FOptPercent ->
 752         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"F\");\n" name;
 753         pr "    (*env)->SetFloatField (env, jfl, fl, r->val[i].%s);\n" name;
 754     | name, FChar ->
 755         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"C\");\n" name;
 756         pr "    (*env)->SetLongField (env, jfl, fl, r->val[i].%s);\n" name;
 757   ) cols;
 758   pr "    (*env)->SetObjectArrayElement (env, jfl, i, jfl);\n";
 759   pr "  }\n";
 760   pr "  guestfs_free_%s_list (r);\n" typ;
 761   pr "  return jr;\n"
 762
 763 and generate_java_makefile_inc () =
 764   generate_header HashStyle GPLv2plus;
 765
 766   pr "java_built_sources = \\\n";
 767   List.iter (
 768     fun (typ, jtyp) ->
 769         pr "\tcom/redhat/et/libguestfs/%s.java \\\n" jtyp;
 770   ) java_structs;
 771   pr "\tcom/redhat/et/libguestfs/GuestFS.java\n"