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