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 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           if List.mem DangerWillRobinson flags then
 117             doc ^ "\n\n" ^ danger_will_robinson
 118           else doc in
 119         let doc =
 120           match deprecation_notice flags with
 121           | None -> doc
 122           | Some txt -> doc ^ "\n\n" ^ txt in
 123         let doc = pod2text ~width:60 name doc in
 124         let doc = List.map (            (* RHBZ#501883 *)
 125           function
 126           | "" -> "<p>"
 127           | nonempty -> nonempty
 128         ) doc in
 129         let doc = String.concat "\n   * " doc in
 130
 131         pr "  /**\n";
 132         pr "   * %s\n" shortdesc;
 133         pr "   * <p>\n";
 134         pr "   * %s\n" doc;
 135         pr "   * @throws LibGuestFSException\n";
 136         pr "   */\n";
 137       );
 138       pr "  ";
 139       generate_java_prototype ~public:true ~semicolon:false name style;
 140       pr "\n";
 141       pr "  {\n";
 142       pr "    if (g == 0)\n";
 143       pr "      throw new LibGuestFSException (\"%s: handle is closed\");\n"
 144         name;
 145       pr "    ";
 146       if ret <> RErr then pr "return ";
 147       pr "_%s " name;
 148       generate_java_call_args ~handle:"g" style;
 149       pr ";\n";
 150       pr "  }\n";
 151       pr "  ";
 152       generate_java_prototype ~privat:true ~native:true name style;
 153       pr "\n";
 154       pr "\n";
 155   ) all_functions;
 156
 157   pr "}\n"
 158
 159 (* Generate Java call arguments, eg "(handle, foo, bar)" *)
 160 and generate_java_call_args ~handle (_, args, optargs) =
 161   pr "(%s" handle;
 162   List.iter (fun arg -> pr ", %s" (name_of_argt arg)) args;
 163   if optargs <> [] then pr ", optargs";
 164   pr ")"
 165
 166 and generate_java_prototype ?(public=false) ?(privat=false) ?(native=false)
 167     ?(semicolon=true) name (ret, args, optargs) =
 168   if privat then pr "private ";
 169   if public then pr "public ";
 170   if native then pr "native ";
 171
 172   (* return type *)
 173   (match ret with
 174    | RErr -> pr "void ";
 175    | RInt _ -> pr "int ";
 176    | RInt64 _ -> pr "long ";
 177    | RBool _ -> pr "boolean ";
 178    | RConstString _ | RConstOptString _ | RString _
 179    | RBufferOut _ -> pr "String ";
 180    | RStringList _ -> pr "String[] ";
 181    | RStruct (_, typ) ->
 182        let name = java_name_of_struct typ in
 183        pr "%s " name;
 184    | RStructList (_, typ) ->
 185        let name = java_name_of_struct typ in
 186        pr "%s[] " name;
 187    | RHashtable _ -> pr "Map<String,String> ";
 188   );
 189
 190   if native then pr "_%s " name else pr "%s " name;
 191   pr "(";
 192   let needs_comma = ref false in
 193   if native then (
 194     pr "long g";
 195     needs_comma := true
 196   );
 197
 198   (* args *)
 199   List.iter (
 200     fun arg ->
 201       if !needs_comma then pr ", ";
 202       needs_comma := true;
 203
 204       match arg with
 205       | Pathname n
 206       | Device n | Dev_or_Path n
 207       | String n
 208       | OptString n
 209       | FileIn n
 210       | FileOut n
 211       | Key n ->
 212           pr "String %s" n
 213       | BufferIn n ->
 214           pr "byte[] %s" n
 215       | StringList n | DeviceList n ->
 216           pr "String[] %s" n
 217       | Bool n ->
 218           pr "boolean %s" n
 219       | Int n ->
 220           pr "int %s" n
 221       | Int64 n | Pointer (_, n) ->
 222           pr "long %s" n
 223   ) args;
 224
 225   if optargs <> [] then (
 226     if !needs_comma then pr ", ";
 227     needs_comma := true;
 228     pr "HashMap optargs"
 229   );
 230
 231   pr ")\n";
 232   pr "    throws LibGuestFSException";
 233   if semicolon then pr ";"
 234
 235 and generate_java_struct jtyp cols () =
 236   generate_header CStyle LGPLv2plus;
 237
 238   pr "\
 239 package com.redhat.et.libguestfs;
 240
 241 /**
 242  * Libguestfs %s structure.
 243  *
 244  * @author rjones
 245  * @see GuestFS
 246  */
 247 public class %s {
 248 " jtyp jtyp;
 249
 250   List.iter (
 251     function
 252     | name, FString
 253     | name, FUUID
 254     | name, FBuffer -> pr "  public String %s;\n" name
 255     | name, (FBytes|FUInt64|FInt64) -> pr "  public long %s;\n" name
 256     | name, (FUInt32|FInt32) -> pr "  public int %s;\n" name
 257     | name, FChar -> pr "  public char %s;\n" name
 258     | name, FOptPercent ->
 259         pr "  /* The next field is [0..100] or -1 meaning 'not present': */\n";
 260         pr "  public float %s;\n" name
 261   ) cols;
 262
 263   pr "}\n"
 264
 265 and generate_java_c () =
 266   generate_header CStyle LGPLv2plus;
 267
 268   pr "\
 269 #include <stdio.h>
 270 #include <stdlib.h>
 271 #include <string.h>
 272
 273 #include \"com_redhat_et_libguestfs_GuestFS.h\"
 274 #include \"guestfs.h\"
 275
 276 /* Note that this function returns.  The exception is not thrown
 277  * until after the wrapper function returns.
 278  */
 279 static void
 280 throw_exception (JNIEnv *env, const char *msg)
 281 {
 282   jclass cl;
 283   cl = (*env)->FindClass (env,
 284                           \"com/redhat/et/libguestfs/LibGuestFSException\");
 285   (*env)->ThrowNew (env, cl, msg);
 286 }
 287
 288 JNIEXPORT jlong JNICALL
 289 Java_com_redhat_et_libguestfs_GuestFS__1create
 290   (JNIEnv *env, jobject obj)
 291 {
 292   guestfs_h *g;
 293
 294   g = guestfs_create ();
 295   if (g == NULL) {
 296     throw_exception (env, \"GuestFS.create: failed to allocate handle\");
 297     return 0;
 298   }
 299   guestfs_set_error_handler (g, NULL, NULL);
 300   return (jlong) (long) g;
 301 }
 302
 303 JNIEXPORT void JNICALL
 304 Java_com_redhat_et_libguestfs_GuestFS__1close
 305   (JNIEnv *env, jobject obj, jlong jg)
 306 {
 307   guestfs_h *g = (guestfs_h *) (long) jg;
 308   guestfs_close (g);
 309 }
 310
 311 ";
 312
 313   List.iter (
 314     fun (name, (ret, args, optargs as style), _, _, _, _, _) ->
 315       pr "JNIEXPORT ";
 316       (match ret with
 317        | RErr -> pr "void ";
 318        | RInt _ -> pr "jint ";
 319        | RInt64 _ -> pr "jlong ";
 320        | RBool _ -> pr "jboolean ";
 321        | RConstString _ | RConstOptString _ | RString _
 322        | RBufferOut _ -> pr "jstring ";
 323        | RStruct _ | RHashtable _ ->
 324            pr "jobject ";
 325        | RStringList _ | RStructList _ ->
 326            pr "jobjectArray ";
 327       );
 328       pr "JNICALL\n";
 329       pr "Java_com_redhat_et_libguestfs_GuestFS_";
 330       pr "%s" (replace_str ("_" ^ name) "_" "_1");
 331       pr "\n";
 332       pr "  (JNIEnv *env, jobject obj, jlong jg";
 333       List.iter (
 334         function
 335         | Pathname n
 336         | Device n | Dev_or_Path n
 337         | String n
 338         | OptString n
 339         | FileIn n
 340         | FileOut n
 341         | Key n ->
 342             pr ", jstring j%s" n
 343         | BufferIn n ->
 344             pr ", jbyteArray j%s" n
 345         | StringList n | DeviceList n ->
 346             pr ", jobjectArray j%s" n
 347         | Bool n ->
 348             pr ", jboolean j%s" n
 349         | Int n ->
 350             pr ", jint j%s" n
 351         | Int64 n | Pointer (_, n) ->
 352             pr ", jlong j%s" n
 353       ) args;
 354       if optargs <> [] then
 355         pr ", jobject joptargs";
 356       pr ")\n";
 357       pr "{\n";
 358       pr "  guestfs_h *g = (guestfs_h *) (long) jg;\n";
 359       let error_code, no_ret =
 360         match ret with
 361         | RErr -> pr "  int r;\n"; "-1", ""
 362         | RBool _
 363         | RInt _ -> pr "  int r;\n"; "-1", "0"
 364         | RInt64 _ -> pr "  int64_t r;\n"; "-1", "0"
 365         | RConstString _ -> pr "  const char *r;\n"; "NULL", "NULL"
 366         | RConstOptString _ -> pr "  const char *r;\n"; "NULL", "NULL"
 367         | RString _ ->
 368             pr "  jstring jr;\n";
 369             pr "  char *r;\n"; "NULL", "NULL"
 370         | RStringList _ ->
 371             pr "  jobjectArray jr;\n";
 372             pr "  int r_len;\n";
 373             pr "  jclass cl;\n";
 374             pr "  jstring jstr;\n";
 375             pr "  char **r;\n"; "NULL", "NULL"
 376         | RStruct (_, typ) ->
 377             pr "  jobject jr;\n";
 378             pr "  jclass cl;\n";
 379             pr "  jfieldID fl;\n";
 380             pr "  struct guestfs_%s *r;\n" typ; "NULL", "NULL"
 381         | RStructList (_, typ) ->
 382             pr "  jobjectArray jr;\n";
 383             pr "  jclass cl;\n";
 384             pr "  jfieldID fl;\n";
 385             pr "  jobject jfl;\n";
 386             pr "  struct guestfs_%s_list *r;\n" typ; "NULL", "NULL"
 387         | RHashtable _ -> pr "  char **r;\n"; "NULL", "NULL"
 388         | RBufferOut _ ->
 389             pr "  jstring jr;\n";
 390             pr "  char *r;\n";
 391             pr "  size_t size;\n";
 392             "NULL", "NULL" in
 393       List.iter (
 394         function
 395         | Pathname n
 396         | Device n | Dev_or_Path n
 397         | String n
 398         | OptString n
 399         | FileIn n
 400         | FileOut n
 401         | Key n ->
 402             pr "  const char *%s;\n" n
 403         | BufferIn n ->
 404             pr "  jbyte *%s;\n" n;
 405             pr "  size_t %s_size;\n" n
 406         | StringList n | DeviceList n ->
 407             pr "  int %s_len;\n" n;
 408             pr "  const char **%s;\n" n
 409         | Bool n
 410         | Int n ->
 411             pr "  int %s;\n" n
 412         | Int64 n ->
 413             pr "  int64_t %s;\n" n
 414         | Pointer (t, n) ->
 415             pr "  %s %s;\n" t n
 416       ) args;
 417
 418       let needs_i =
 419         (match ret with
 420          | RStringList _ | RStructList _ -> true
 421          | RErr | RBool _ | RInt _ | RInt64 _ | RConstString _
 422          | RConstOptString _
 423          | RString _ | RBufferOut _ | RStruct _ | RHashtable _ -> false) ||
 424           List.exists (function
 425                        | StringList _ -> true
 426                        | DeviceList _ -> true
 427                        | _ -> false) args in
 428       if needs_i then
 429         pr "  size_t i;\n";
 430
 431       pr "\n";
 432
 433       (* Get the parameters. *)
 434       List.iter (
 435         function
 436         | Pathname n
 437         | Device n | Dev_or_Path n
 438         | String n
 439         | FileIn n
 440         | FileOut n
 441         | Key n ->
 442             pr "  %s = (*env)->GetStringUTFChars (env, j%s, NULL);\n" n n
 443         | OptString n ->
 444             (* This is completely undocumented, but Java null becomes
 445              * a NULL parameter.
 446              *)
 447             pr "  %s = j%s ? (*env)->GetStringUTFChars (env, j%s, NULL) : NULL;\n" n n n
 448         | BufferIn n ->
 449             pr "  %s = (*env)->GetByteArrayElements (env, j%s, NULL);\n" n n;
 450             pr "  %s_size = (*env)->GetArrayLength (env, j%s);\n" n n
 451         | StringList n | DeviceList n ->
 452             pr "  %s_len = (*env)->GetArrayLength (env, j%s);\n" n n;
 453             pr "  %s = guestfs_safe_malloc (g, sizeof (char *) * (%s_len+1));\n" n n;
 454             pr "  for (i = 0; i < %s_len; ++i) {\n" n;
 455             pr "    jobject o = (*env)->GetObjectArrayElement (env, j%s, i);\n"
 456               n;
 457             pr "    %s[i] = (*env)->GetStringUTFChars (env, o, NULL);\n" n;
 458             pr "  }\n";
 459             pr "  %s[%s_len] = NULL;\n" n n;
 460         | Bool n
 461         | Int n
 462         | Int64 n ->
 463             pr "  %s = j%s;\n" n n
 464         | Pointer (t, n) ->
 465             pr "  %s = (%s) j%s;\n" n t n
 466       ) args;
 467
 468       if optargs <> [] then (
 469         (* XXX *)
 470         pr "  throw_exception (env, \"%s: internal error: please let us know how to read a Java HashMap parameter from JNI bindings!\");\n" name;
 471         pr "  return NULL;\n";
 472         pr "  /*\n";
 473       );
 474
 475       (* Make the call. *)
 476       if optargs = [] then
 477         pr "  r = guestfs_%s " name
 478       else
 479         pr "  r = guestfs_%s_argv " name;
 480       generate_c_call_args ~handle:"g" style;
 481       pr ";\n";
 482
 483       (* Release the parameters. *)
 484       List.iter (
 485         function
 486         | Pathname n
 487         | Device n | Dev_or_Path n
 488         | String n
 489         | FileIn n
 490         | FileOut n
 491         | Key n ->
 492             pr "  (*env)->ReleaseStringUTFChars (env, j%s, %s);\n" n n
 493         | OptString n ->
 494             pr "  if (j%s)\n" n;
 495             pr "    (*env)->ReleaseStringUTFChars (env, j%s, %s);\n" n n
 496         | BufferIn n ->
 497             pr "  (*env)->ReleaseByteArrayElements (env, j%s, %s, 0);\n" n n
 498         | StringList n | DeviceList n ->
 499             pr "  for (i = 0; i < %s_len; ++i) {\n" n;
 500             pr "    jobject o = (*env)->GetObjectArrayElement (env, j%s, i);\n"
 501               n;
 502             pr "    (*env)->ReleaseStringUTFChars (env, o, %s[i]);\n" n;
 503             pr "  }\n";
 504             pr "  free (%s);\n" n
 505         | Bool _
 506         | Int _
 507         | Int64 _
 508         | Pointer _ -> ()
 509       ) args;
 510
 511       (* Check for errors. *)
 512       pr "  if (r == %s) {\n" error_code;
 513       pr "    throw_exception (env, guestfs_last_error (g));\n";
 514       pr "    return %s;\n" no_ret;
 515       pr "  }\n";
 516
 517       (* Return value. *)
 518       (match ret with
 519        | RErr -> ()
 520        | RInt _ -> pr "  return (jint) r;\n"
 521        | RBool _ -> pr "  return (jboolean) r;\n"
 522        | RInt64 _ -> pr "  return (jlong) r;\n"
 523        | RConstString _ -> pr "  return (*env)->NewStringUTF (env, r);\n"
 524        | RConstOptString _ ->
 525            pr "  return (*env)->NewStringUTF (env, r); /* XXX r NULL? */\n"
 526        | RString _ ->
 527            pr "  jr = (*env)->NewStringUTF (env, r);\n";
 528            pr "  free (r);\n";
 529            pr "  return jr;\n"
 530        | RStringList _ ->
 531            pr "  for (r_len = 0; r[r_len] != NULL; ++r_len) ;\n";
 532            pr "  cl = (*env)->FindClass (env, \"java/lang/String\");\n";
 533            pr "  jstr = (*env)->NewStringUTF (env, \"\");\n";
 534            pr "  jr = (*env)->NewObjectArray (env, r_len, cl, jstr);\n";
 535            pr "  for (i = 0; i < r_len; ++i) {\n";
 536            pr "    jstr = (*env)->NewStringUTF (env, r[i]);\n";
 537            pr "    (*env)->SetObjectArrayElement (env, jr, i, jstr);\n";
 538            pr "    free (r[i]);\n";
 539            pr "  }\n";
 540            pr "  free (r);\n";
 541            pr "  return jr;\n"
 542        | RStruct (_, typ) ->
 543            let jtyp = java_name_of_struct typ in
 544            let cols = cols_of_struct typ in
 545            generate_java_struct_return typ jtyp cols
 546        | RStructList (_, typ) ->
 547            let jtyp = java_name_of_struct typ in
 548            let cols = cols_of_struct typ in
 549            generate_java_struct_list_return typ jtyp cols
 550        | RHashtable _ ->
 551            (* XXX *)
 552            pr "  throw_exception (env, \"%s: internal error: please let us know how to make a Java HashMap from JNI bindings!\");\n" name;
 553            pr "  return NULL;\n"
 554        | RBufferOut _ ->
 555            pr "  jr = (*env)->NewStringUTF (env, r); /* XXX size */\n";
 556            pr "  free (r);\n";
 557            pr "  return jr;\n"
 558       );
 559
 560       if optargs <> [] then
 561         pr "  */\n";
 562
 563       pr "}\n";
 564       pr "\n"
 565   ) all_functions
 566
 567 and generate_java_struct_return typ jtyp cols =
 568   pr "  cl = (*env)->FindClass (env, \"com/redhat/et/libguestfs/%s\");\n" jtyp;
 569   pr "  jr = (*env)->AllocObject (env, cl);\n";
 570   List.iter (
 571     function
 572     | name, FString ->
 573         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 574         pr "  (*env)->SetObjectField (env, jr, fl, (*env)->NewStringUTF (env, r->%s));\n" name;
 575     | name, FUUID ->
 576         pr "  {\n";
 577         pr "    char s[33];\n";
 578         pr "    memcpy (s, r->%s, 32);\n" name;
 579         pr "    s[32] = 0;\n";
 580         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 581         pr "    (*env)->SetObjectField (env, jr, fl, (*env)->NewStringUTF (env, s));\n";
 582         pr "  }\n";
 583     | name, FBuffer ->
 584         pr "  {\n";
 585         pr "    int len = r->%s_len;\n" name;
 586         pr "    char s[len+1];\n";
 587         pr "    memcpy (s, r->%s, len);\n" name;
 588         pr "    s[len] = 0;\n";
 589         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 590         pr "    (*env)->SetObjectField (env, jr, fl, (*env)->NewStringUTF (env, s));\n";
 591         pr "  }\n";
 592     | name, (FBytes|FUInt64|FInt64) ->
 593         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"J\");\n" name;
 594         pr "  (*env)->SetLongField (env, jr, fl, r->%s);\n" name;
 595     | name, (FUInt32|FInt32) ->
 596         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"I\");\n" name;
 597         pr "  (*env)->SetLongField (env, jr, fl, r->%s);\n" name;
 598     | name, FOptPercent ->
 599         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"F\");\n" name;
 600         pr "  (*env)->SetFloatField (env, jr, fl, r->%s);\n" name;
 601     | name, FChar ->
 602         pr "  fl = (*env)->GetFieldID (env, cl, \"%s\", \"C\");\n" name;
 603         pr "  (*env)->SetLongField (env, jr, fl, r->%s);\n" name;
 604   ) cols;
 605   pr "  free (r);\n";
 606   pr "  return jr;\n"
 607
 608 and generate_java_struct_list_return typ jtyp cols =
 609   pr "  cl = (*env)->FindClass (env, \"com/redhat/et/libguestfs/%s\");\n" jtyp;
 610   pr "  jr = (*env)->NewObjectArray (env, r->len, cl, NULL);\n";
 611   pr "  for (i = 0; i < r->len; ++i) {\n";
 612   pr "    jfl = (*env)->AllocObject (env, cl);\n";
 613   List.iter (
 614     function
 615     | name, FString ->
 616         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 617         pr "    (*env)->SetObjectField (env, jfl, fl, (*env)->NewStringUTF (env, r->val[i].%s));\n" name;
 618     | name, FUUID ->
 619         pr "    {\n";
 620         pr "      char s[33];\n";
 621         pr "      memcpy (s, r->val[i].%s, 32);\n" name;
 622         pr "      s[32] = 0;\n";
 623         pr "      fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 624         pr "      (*env)->SetObjectField (env, jfl, fl, (*env)->NewStringUTF (env, s));\n";
 625         pr "    }\n";
 626     | name, FBuffer ->
 627         pr "    {\n";
 628         pr "      int len = r->val[i].%s_len;\n" name;
 629         pr "      char s[len+1];\n";
 630         pr "      memcpy (s, r->val[i].%s, len);\n" name;
 631         pr "      s[len] = 0;\n";
 632         pr "      fl = (*env)->GetFieldID (env, cl, \"%s\", \"Ljava/lang/String;\");\n" name;
 633         pr "      (*env)->SetObjectField (env, jfl, fl, (*env)->NewStringUTF (env, s));\n";
 634         pr "    }\n";
 635     | name, (FBytes|FUInt64|FInt64) ->
 636         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"J\");\n" name;
 637         pr "    (*env)->SetLongField (env, jfl, fl, r->val[i].%s);\n" name;
 638     | name, (FUInt32|FInt32) ->
 639         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"I\");\n" name;
 640         pr "    (*env)->SetLongField (env, jfl, fl, r->val[i].%s);\n" name;
 641     | name, FOptPercent ->
 642         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"F\");\n" name;
 643         pr "    (*env)->SetFloatField (env, jfl, fl, r->val[i].%s);\n" name;
 644     | name, FChar ->
 645         pr "    fl = (*env)->GetFieldID (env, cl, \"%s\", \"C\");\n" name;
 646         pr "    (*env)->SetLongField (env, jfl, fl, r->val[i].%s);\n" name;
 647   ) cols;
 648   pr "    (*env)->SetObjectArrayElement (env, jfl, i, jfl);\n";
 649   pr "  }\n";
 650   pr "  guestfs_free_%s_list (r);\n" typ;
 651   pr "  return jr;\n"
 652
 653 and generate_java_makefile_inc () =
 654   generate_header HashStyle GPLv2plus;
 655
 656   pr "java_built_sources = \\\n";
 657   List.iter (
 658     fun (typ, jtyp) ->
 659         pr "\tcom/redhat/et/libguestfs/%s.java \\\n" jtyp;
 660   ) java_structs;
 661   pr "\tcom/redhat/et/libguestfs/GuestFS.java\n"