Fix file descriptor leak in daemon.
[libguestfs.git] / daemon / stubs.c
1 /* libguestfs generated file
2  * WARNING: THIS FILE IS GENERATED BY 'src/generator.ml'.
3  * ANY CHANGES YOU MAKE TO THIS FILE WILL BE LOST.
4  *
5  * Copyright (C) 2009 Red Hat Inc.
6  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 2 of the License, or
10  * (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License along
18  * with this program; if not, write to the Free Software Foundation, Inc.,
19  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20  */
21
22 #define _GNU_SOURCE // for strchrnul
23
24 #include <stdio.h>
25 #include <stdlib.h>
26 #include <string.h>
27 #include <inttypes.h>
28 #include <ctype.h>
29 #include <rpc/types.h>
30 #include <rpc/xdr.h>
31
32 #include "daemon.h"
33 #include "../src/guestfs_protocol.h"
34 #include "actions.h"
35
36 static void mount_stub (XDR *xdr_in)
37 {
38   int r;
39   struct guestfs_mount_args args;
40   const char *device;
41   const char *mountpoint;
42
43   memset (&args, 0, sizeof args);
44
45   if (!xdr_guestfs_mount_args (xdr_in, &args)) {
46     reply_with_error ("%s: daemon failed to decode procedure arguments", "mount");
47     return;
48   }
49   device = args.device;
50   mountpoint = args.mountpoint;
51
52   r = do_mount (device, mountpoint);
53   if (r == -1)
54     /* do_mount has already called reply_with_error */
55     goto done;
56
57   reply (NULL, NULL);
58 done:
59   xdr_free ((xdrproc_t) xdr_guestfs_mount_args, (char *) &args);
60 }
61
62 static void sync_stub (XDR *xdr_in)
63 {
64   int r;
65
66   r = do_sync ();
67   if (r == -1)
68     /* do_sync has already called reply_with_error */
69     goto done;
70
71   reply (NULL, NULL);
72 done: ;
73 }
74
75 static void touch_stub (XDR *xdr_in)
76 {
77   int r;
78   struct guestfs_touch_args args;
79   const char *path;
80
81   memset (&args, 0, sizeof args);
82
83   if (!xdr_guestfs_touch_args (xdr_in, &args)) {
84     reply_with_error ("%s: daemon failed to decode procedure arguments", "touch");
85     return;
86   }
87   path = args.path;
88
89   r = do_touch (path);
90   if (r == -1)
91     /* do_touch has already called reply_with_error */
92     goto done;
93
94   reply (NULL, NULL);
95 done:
96   xdr_free ((xdrproc_t) xdr_guestfs_touch_args, (char *) &args);
97 }
98
99 static void cat_stub (XDR *xdr_in)
100 {
101   char *r;
102   struct guestfs_cat_args args;
103   const char *path;
104
105   memset (&args, 0, sizeof args);
106
107   if (!xdr_guestfs_cat_args (xdr_in, &args)) {
108     reply_with_error ("%s: daemon failed to decode procedure arguments", "cat");
109     return;
110   }
111   path = args.path;
112
113   r = do_cat (path);
114   if (r == NULL)
115     /* do_cat has already called reply_with_error */
116     goto done;
117
118   struct guestfs_cat_ret ret;
119   ret.content = r;
120   reply ((xdrproc_t) &xdr_guestfs_cat_ret, (char *) &ret);
121   free (r);
122 done:
123   xdr_free ((xdrproc_t) xdr_guestfs_cat_args, (char *) &args);
124 }
125
126 static void ll_stub (XDR *xdr_in)
127 {
128   char *r;
129   struct guestfs_ll_args args;
130   const char *directory;
131
132   memset (&args, 0, sizeof args);
133
134   if (!xdr_guestfs_ll_args (xdr_in, &args)) {
135     reply_with_error ("%s: daemon failed to decode procedure arguments", "ll");
136     return;
137   }
138   directory = args.directory;
139
140   r = do_ll (directory);
141   if (r == NULL)
142     /* do_ll has already called reply_with_error */
143     goto done;
144
145   struct guestfs_ll_ret ret;
146   ret.listing = r;
147   reply ((xdrproc_t) &xdr_guestfs_ll_ret, (char *) &ret);
148   free (r);
149 done:
150   xdr_free ((xdrproc_t) xdr_guestfs_ll_args, (char *) &args);
151 }
152
153 static void ls_stub (XDR *xdr_in)
154 {
155   char **r;
156   struct guestfs_ls_args args;
157   const char *directory;
158
159   memset (&args, 0, sizeof args);
160
161   if (!xdr_guestfs_ls_args (xdr_in, &args)) {
162     reply_with_error ("%s: daemon failed to decode procedure arguments", "ls");
163     return;
164   }
165   directory = args.directory;
166
167   r = do_ls (directory);
168   if (r == NULL)
169     /* do_ls has already called reply_with_error */
170     goto done;
171
172   struct guestfs_ls_ret ret;
173   ret.listing.listing_len = count_strings (r);
174   ret.listing.listing_val = r;
175   reply ((xdrproc_t) &xdr_guestfs_ls_ret, (char *) &ret);
176   free_strings (r);
177 done:
178   xdr_free ((xdrproc_t) xdr_guestfs_ls_args, (char *) &args);
179 }
180
181 static void list_devices_stub (XDR *xdr_in)
182 {
183   char **r;
184
185   r = do_list_devices ();
186   if (r == NULL)
187     /* do_list_devices has already called reply_with_error */
188     goto done;
189
190   struct guestfs_list_devices_ret ret;
191   ret.devices.devices_len = count_strings (r);
192   ret.devices.devices_val = r;
193   reply ((xdrproc_t) &xdr_guestfs_list_devices_ret, (char *) &ret);
194   free_strings (r);
195 done: ;
196 }
197
198 static void list_partitions_stub (XDR *xdr_in)
199 {
200   char **r;
201
202   r = do_list_partitions ();
203   if (r == NULL)
204     /* do_list_partitions has already called reply_with_error */
205     goto done;
206
207   struct guestfs_list_partitions_ret ret;
208   ret.partitions.partitions_len = count_strings (r);
209   ret.partitions.partitions_val = r;
210   reply ((xdrproc_t) &xdr_guestfs_list_partitions_ret, (char *) &ret);
211   free_strings (r);
212 done: ;
213 }
214
215 static void pvs_stub (XDR *xdr_in)
216 {
217   char **r;
218
219   r = do_pvs ();
220   if (r == NULL)
221     /* do_pvs has already called reply_with_error */
222     goto done;
223
224   struct guestfs_pvs_ret ret;
225   ret.physvols.physvols_len = count_strings (r);
226   ret.physvols.physvols_val = r;
227   reply ((xdrproc_t) &xdr_guestfs_pvs_ret, (char *) &ret);
228   free_strings (r);
229 done: ;
230 }
231
232 static void vgs_stub (XDR *xdr_in)
233 {
234   char **r;
235
236   r = do_vgs ();
237   if (r == NULL)
238     /* do_vgs has already called reply_with_error */
239     goto done;
240
241   struct guestfs_vgs_ret ret;
242   ret.volgroups.volgroups_len = count_strings (r);
243   ret.volgroups.volgroups_val = r;
244   reply ((xdrproc_t) &xdr_guestfs_vgs_ret, (char *) &ret);
245   free_strings (r);
246 done: ;
247 }
248
249 static void lvs_stub (XDR *xdr_in)
250 {
251   char **r;
252
253   r = do_lvs ();
254   if (r == NULL)
255     /* do_lvs has already called reply_with_error */
256     goto done;
257
258   struct guestfs_lvs_ret ret;
259   ret.logvols.logvols_len = count_strings (r);
260   ret.logvols.logvols_val = r;
261   reply ((xdrproc_t) &xdr_guestfs_lvs_ret, (char *) &ret);
262   free_strings (r);
263 done: ;
264 }
265
266 static void pvs_full_stub (XDR *xdr_in)
267 {
268   guestfs_lvm_int_pv_list *r;
269
270   r = do_pvs_full ();
271   if (r == NULL)
272     /* do_pvs_full has already called reply_with_error */
273     goto done;
274
275   struct guestfs_pvs_full_ret ret;
276   ret.physvols = *r;
277   reply ((xdrproc_t) xdr_guestfs_pvs_full_ret, (char *) &ret);
278   xdr_free ((xdrproc_t) xdr_guestfs_pvs_full_ret, (char *) &ret);
279 done: ;
280 }
281
282 static void vgs_full_stub (XDR *xdr_in)
283 {
284   guestfs_lvm_int_vg_list *r;
285
286   r = do_vgs_full ();
287   if (r == NULL)
288     /* do_vgs_full has already called reply_with_error */
289     goto done;
290
291   struct guestfs_vgs_full_ret ret;
292   ret.volgroups = *r;
293   reply ((xdrproc_t) xdr_guestfs_vgs_full_ret, (char *) &ret);
294   xdr_free ((xdrproc_t) xdr_guestfs_vgs_full_ret, (char *) &ret);
295 done: ;
296 }
297
298 static void lvs_full_stub (XDR *xdr_in)
299 {
300   guestfs_lvm_int_lv_list *r;
301
302   r = do_lvs_full ();
303   if (r == NULL)
304     /* do_lvs_full has already called reply_with_error */
305     goto done;
306
307   struct guestfs_lvs_full_ret ret;
308   ret.logvols = *r;
309   reply ((xdrproc_t) xdr_guestfs_lvs_full_ret, (char *) &ret);
310   xdr_free ((xdrproc_t) xdr_guestfs_lvs_full_ret, (char *) &ret);
311 done: ;
312 }
313
314 static void read_lines_stub (XDR *xdr_in)
315 {
316   char **r;
317   struct guestfs_read_lines_args args;
318   const char *path;
319
320   memset (&args, 0, sizeof args);
321
322   if (!xdr_guestfs_read_lines_args (xdr_in, &args)) {
323     reply_with_error ("%s: daemon failed to decode procedure arguments", "read_lines");
324     return;
325   }
326   path = args.path;
327
328   r = do_read_lines (path);
329   if (r == NULL)
330     /* do_read_lines has already called reply_with_error */
331     goto done;
332
333   struct guestfs_read_lines_ret ret;
334   ret.lines.lines_len = count_strings (r);
335   ret.lines.lines_val = r;
336   reply ((xdrproc_t) &xdr_guestfs_read_lines_ret, (char *) &ret);
337   free_strings (r);
338 done:
339   xdr_free ((xdrproc_t) xdr_guestfs_read_lines_args, (char *) &args);
340 }
341
342 static void aug_init_stub (XDR *xdr_in)
343 {
344   int r;
345   struct guestfs_aug_init_args args;
346   const char *root;
347   int flags;
348
349   memset (&args, 0, sizeof args);
350
351   if (!xdr_guestfs_aug_init_args (xdr_in, &args)) {
352     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_init");
353     return;
354   }
355   root = args.root;
356   flags = args.flags;
357
358   r = do_aug_init (root, flags);
359   if (r == -1)
360     /* do_aug_init has already called reply_with_error */
361     goto done;
362
363   reply (NULL, NULL);
364 done:
365   xdr_free ((xdrproc_t) xdr_guestfs_aug_init_args, (char *) &args);
366 }
367
368 static void aug_close_stub (XDR *xdr_in)
369 {
370   int r;
371
372   r = do_aug_close ();
373   if (r == -1)
374     /* do_aug_close has already called reply_with_error */
375     goto done;
376
377   reply (NULL, NULL);
378 done: ;
379 }
380
381 static void aug_defvar_stub (XDR *xdr_in)
382 {
383   int r;
384   struct guestfs_aug_defvar_args args;
385   const char *name;
386   const char *expr;
387
388   memset (&args, 0, sizeof args);
389
390   if (!xdr_guestfs_aug_defvar_args (xdr_in, &args)) {
391     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_defvar");
392     return;
393   }
394   name = args.name;
395   expr = args.expr ? *args.expr : NULL;
396
397   r = do_aug_defvar (name, expr);
398   if (r == -1)
399     /* do_aug_defvar has already called reply_with_error */
400     goto done;
401
402   struct guestfs_aug_defvar_ret ret;
403   ret.nrnodes = r;
404   reply ((xdrproc_t) &xdr_guestfs_aug_defvar_ret, (char *) &ret);
405 done:
406   xdr_free ((xdrproc_t) xdr_guestfs_aug_defvar_args, (char *) &args);
407 }
408
409 static void aug_defnode_stub (XDR *xdr_in)
410 {
411   guestfs_aug_defnode_ret *r;
412   struct guestfs_aug_defnode_args args;
413   const char *name;
414   const char *expr;
415   const char *val;
416
417   memset (&args, 0, sizeof args);
418
419   if (!xdr_guestfs_aug_defnode_args (xdr_in, &args)) {
420     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_defnode");
421     return;
422   }
423   name = args.name;
424   expr = args.expr;
425   val = args.val;
426
427   r = do_aug_defnode (name, expr, val);
428   if (r == NULL)
429     /* do_aug_defnode has already called reply_with_error */
430     goto done;
431
432   reply ((xdrproc_t) xdr_guestfs_aug_defnode_ret, (char *) r);
433   xdr_free ((xdrproc_t) xdr_guestfs_aug_defnode_ret, (char *) r);
434 done:
435   xdr_free ((xdrproc_t) xdr_guestfs_aug_defnode_args, (char *) &args);
436 }
437
438 static void aug_get_stub (XDR *xdr_in)
439 {
440   char *r;
441   struct guestfs_aug_get_args args;
442   const char *path;
443
444   memset (&args, 0, sizeof args);
445
446   if (!xdr_guestfs_aug_get_args (xdr_in, &args)) {
447     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_get");
448     return;
449   }
450   path = args.path;
451
452   r = do_aug_get (path);
453   if (r == NULL)
454     /* do_aug_get has already called reply_with_error */
455     goto done;
456
457   struct guestfs_aug_get_ret ret;
458   ret.val = r;
459   reply ((xdrproc_t) &xdr_guestfs_aug_get_ret, (char *) &ret);
460   free (r);
461 done:
462   xdr_free ((xdrproc_t) xdr_guestfs_aug_get_args, (char *) &args);
463 }
464
465 static void aug_set_stub (XDR *xdr_in)
466 {
467   int r;
468   struct guestfs_aug_set_args args;
469   const char *path;
470   const char *val;
471
472   memset (&args, 0, sizeof args);
473
474   if (!xdr_guestfs_aug_set_args (xdr_in, &args)) {
475     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_set");
476     return;
477   }
478   path = args.path;
479   val = args.val;
480
481   r = do_aug_set (path, val);
482   if (r == -1)
483     /* do_aug_set has already called reply_with_error */
484     goto done;
485
486   reply (NULL, NULL);
487 done:
488   xdr_free ((xdrproc_t) xdr_guestfs_aug_set_args, (char *) &args);
489 }
490
491 static void aug_insert_stub (XDR *xdr_in)
492 {
493   int r;
494   struct guestfs_aug_insert_args args;
495   const char *path;
496   const char *label;
497   int before;
498
499   memset (&args, 0, sizeof args);
500
501   if (!xdr_guestfs_aug_insert_args (xdr_in, &args)) {
502     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_insert");
503     return;
504   }
505   path = args.path;
506   label = args.label;
507   before = args.before;
508
509   r = do_aug_insert (path, label, before);
510   if (r == -1)
511     /* do_aug_insert has already called reply_with_error */
512     goto done;
513
514   reply (NULL, NULL);
515 done:
516   xdr_free ((xdrproc_t) xdr_guestfs_aug_insert_args, (char *) &args);
517 }
518
519 static void aug_rm_stub (XDR *xdr_in)
520 {
521   int r;
522   struct guestfs_aug_rm_args args;
523   const char *path;
524
525   memset (&args, 0, sizeof args);
526
527   if (!xdr_guestfs_aug_rm_args (xdr_in, &args)) {
528     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_rm");
529     return;
530   }
531   path = args.path;
532
533   r = do_aug_rm (path);
534   if (r == -1)
535     /* do_aug_rm has already called reply_with_error */
536     goto done;
537
538   struct guestfs_aug_rm_ret ret;
539   ret.nrnodes = r;
540   reply ((xdrproc_t) &xdr_guestfs_aug_rm_ret, (char *) &ret);
541 done:
542   xdr_free ((xdrproc_t) xdr_guestfs_aug_rm_args, (char *) &args);
543 }
544
545 static void aug_mv_stub (XDR *xdr_in)
546 {
547   int r;
548   struct guestfs_aug_mv_args args;
549   const char *src;
550   const char *dest;
551
552   memset (&args, 0, sizeof args);
553
554   if (!xdr_guestfs_aug_mv_args (xdr_in, &args)) {
555     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_mv");
556     return;
557   }
558   src = args.src;
559   dest = args.dest;
560
561   r = do_aug_mv (src, dest);
562   if (r == -1)
563     /* do_aug_mv has already called reply_with_error */
564     goto done;
565
566   reply (NULL, NULL);
567 done:
568   xdr_free ((xdrproc_t) xdr_guestfs_aug_mv_args, (char *) &args);
569 }
570
571 static void aug_match_stub (XDR *xdr_in)
572 {
573   char **r;
574   struct guestfs_aug_match_args args;
575   const char *path;
576
577   memset (&args, 0, sizeof args);
578
579   if (!xdr_guestfs_aug_match_args (xdr_in, &args)) {
580     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_match");
581     return;
582   }
583   path = args.path;
584
585   r = do_aug_match (path);
586   if (r == NULL)
587     /* do_aug_match has already called reply_with_error */
588     goto done;
589
590   struct guestfs_aug_match_ret ret;
591   ret.matches.matches_len = count_strings (r);
592   ret.matches.matches_val = r;
593   reply ((xdrproc_t) &xdr_guestfs_aug_match_ret, (char *) &ret);
594   free_strings (r);
595 done:
596   xdr_free ((xdrproc_t) xdr_guestfs_aug_match_args, (char *) &args);
597 }
598
599 static void aug_save_stub (XDR *xdr_in)
600 {
601   int r;
602
603   r = do_aug_save ();
604   if (r == -1)
605     /* do_aug_save has already called reply_with_error */
606     goto done;
607
608   reply (NULL, NULL);
609 done: ;
610 }
611
612 static void aug_load_stub (XDR *xdr_in)
613 {
614   int r;
615
616   r = do_aug_load ();
617   if (r == -1)
618     /* do_aug_load has already called reply_with_error */
619     goto done;
620
621   reply (NULL, NULL);
622 done: ;
623 }
624
625 static void aug_ls_stub (XDR *xdr_in)
626 {
627   char **r;
628   struct guestfs_aug_ls_args args;
629   const char *path;
630
631   memset (&args, 0, sizeof args);
632
633   if (!xdr_guestfs_aug_ls_args (xdr_in, &args)) {
634     reply_with_error ("%s: daemon failed to decode procedure arguments", "aug_ls");
635     return;
636   }
637   path = args.path;
638
639   r = do_aug_ls (path);
640   if (r == NULL)
641     /* do_aug_ls has already called reply_with_error */
642     goto done;
643
644   struct guestfs_aug_ls_ret ret;
645   ret.matches.matches_len = count_strings (r);
646   ret.matches.matches_val = r;
647   reply ((xdrproc_t) &xdr_guestfs_aug_ls_ret, (char *) &ret);
648   free_strings (r);
649 done:
650   xdr_free ((xdrproc_t) xdr_guestfs_aug_ls_args, (char *) &args);
651 }
652
653 static void rm_stub (XDR *xdr_in)
654 {
655   int r;
656   struct guestfs_rm_args args;
657   const char *path;
658
659   memset (&args, 0, sizeof args);
660
661   if (!xdr_guestfs_rm_args (xdr_in, &args)) {
662     reply_with_error ("%s: daemon failed to decode procedure arguments", "rm");
663     return;
664   }
665   path = args.path;
666
667   r = do_rm (path);
668   if (r == -1)
669     /* do_rm has already called reply_with_error */
670     goto done;
671
672   reply (NULL, NULL);
673 done:
674   xdr_free ((xdrproc_t) xdr_guestfs_rm_args, (char *) &args);
675 }
676
677 static void rmdir_stub (XDR *xdr_in)
678 {
679   int r;
680   struct guestfs_rmdir_args args;
681   const char *path;
682
683   memset (&args, 0, sizeof args);
684
685   if (!xdr_guestfs_rmdir_args (xdr_in, &args)) {
686     reply_with_error ("%s: daemon failed to decode procedure arguments", "rmdir");
687     return;
688   }
689   path = args.path;
690
691   r = do_rmdir (path);
692   if (r == -1)
693     /* do_rmdir has already called reply_with_error */
694     goto done;
695
696   reply (NULL, NULL);
697 done:
698   xdr_free ((xdrproc_t) xdr_guestfs_rmdir_args, (char *) &args);
699 }
700
701 static void rm_rf_stub (XDR *xdr_in)
702 {
703   int r;
704   struct guestfs_rm_rf_args args;
705   const char *path;
706
707   memset (&args, 0, sizeof args);
708
709   if (!xdr_guestfs_rm_rf_args (xdr_in, &args)) {
710     reply_with_error ("%s: daemon failed to decode procedure arguments", "rm_rf");
711     return;
712   }
713   path = args.path;
714
715   r = do_rm_rf (path);
716   if (r == -1)
717     /* do_rm_rf has already called reply_with_error */
718     goto done;
719
720   reply (NULL, NULL);
721 done:
722   xdr_free ((xdrproc_t) xdr_guestfs_rm_rf_args, (char *) &args);
723 }
724
725 static void mkdir_stub (XDR *xdr_in)
726 {
727   int r;
728   struct guestfs_mkdir_args args;
729   const char *path;
730
731   memset (&args, 0, sizeof args);
732
733   if (!xdr_guestfs_mkdir_args (xdr_in, &args)) {
734     reply_with_error ("%s: daemon failed to decode procedure arguments", "mkdir");
735     return;
736   }
737   path = args.path;
738
739   r = do_mkdir (path);
740   if (r == -1)
741     /* do_mkdir has already called reply_with_error */
742     goto done;
743
744   reply (NULL, NULL);
745 done:
746   xdr_free ((xdrproc_t) xdr_guestfs_mkdir_args, (char *) &args);
747 }
748
749 static void mkdir_p_stub (XDR *xdr_in)
750 {
751   int r;
752   struct guestfs_mkdir_p_args args;
753   const char *path;
754
755   memset (&args, 0, sizeof args);
756
757   if (!xdr_guestfs_mkdir_p_args (xdr_in, &args)) {
758     reply_with_error ("%s: daemon failed to decode procedure arguments", "mkdir_p");
759     return;
760   }
761   path = args.path;
762
763   r = do_mkdir_p (path);
764   if (r == -1)
765     /* do_mkdir_p has already called reply_with_error */
766     goto done;
767
768   reply (NULL, NULL);
769 done:
770   xdr_free ((xdrproc_t) xdr_guestfs_mkdir_p_args, (char *) &args);
771 }
772
773 static void chmod_stub (XDR *xdr_in)
774 {
775   int r;
776   struct guestfs_chmod_args args;
777   int mode;
778   const char *path;
779
780   memset (&args, 0, sizeof args);
781
782   if (!xdr_guestfs_chmod_args (xdr_in, &args)) {
783     reply_with_error ("%s: daemon failed to decode procedure arguments", "chmod");
784     return;
785   }
786   mode = args.mode;
787   path = args.path;
788
789   r = do_chmod (mode, path);
790   if (r == -1)
791     /* do_chmod has already called reply_with_error */
792     goto done;
793
794   reply (NULL, NULL);
795 done:
796   xdr_free ((xdrproc_t) xdr_guestfs_chmod_args, (char *) &args);
797 }
798
799 static void chown_stub (XDR *xdr_in)
800 {
801   int r;
802   struct guestfs_chown_args args;
803   int owner;
804   int group;
805   const char *path;
806
807   memset (&args, 0, sizeof args);
808
809   if (!xdr_guestfs_chown_args (xdr_in, &args)) {
810     reply_with_error ("%s: daemon failed to decode procedure arguments", "chown");
811     return;
812   }
813   owner = args.owner;
814   group = args.group;
815   path = args.path;
816
817   r = do_chown (owner, group, path);
818   if (r == -1)
819     /* do_chown has already called reply_with_error */
820     goto done;
821
822   reply (NULL, NULL);
823 done:
824   xdr_free ((xdrproc_t) xdr_guestfs_chown_args, (char *) &args);
825 }
826
827 static void exists_stub (XDR *xdr_in)
828 {
829   int r;
830   struct guestfs_exists_args args;
831   const char *path;
832
833   memset (&args, 0, sizeof args);
834
835   if (!xdr_guestfs_exists_args (xdr_in, &args)) {
836     reply_with_error ("%s: daemon failed to decode procedure arguments", "exists");
837     return;
838   }
839   path = args.path;
840
841   r = do_exists (path);
842   if (r == -1)
843     /* do_exists has already called reply_with_error */
844     goto done;
845
846   struct guestfs_exists_ret ret;
847   ret.existsflag = r;
848   reply ((xdrproc_t) &xdr_guestfs_exists_ret, (char *) &ret);
849 done:
850   xdr_free ((xdrproc_t) xdr_guestfs_exists_args, (char *) &args);
851 }
852
853 static void is_file_stub (XDR *xdr_in)
854 {
855   int r;
856   struct guestfs_is_file_args args;
857   const char *path;
858
859   memset (&args, 0, sizeof args);
860
861   if (!xdr_guestfs_is_file_args (xdr_in, &args)) {
862     reply_with_error ("%s: daemon failed to decode procedure arguments", "is_file");
863     return;
864   }
865   path = args.path;
866
867   r = do_is_file (path);
868   if (r == -1)
869     /* do_is_file has already called reply_with_error */
870     goto done;
871
872   struct guestfs_is_file_ret ret;
873   ret.fileflag = r;
874   reply ((xdrproc_t) &xdr_guestfs_is_file_ret, (char *) &ret);
875 done:
876   xdr_free ((xdrproc_t) xdr_guestfs_is_file_args, (char *) &args);
877 }
878
879 static void is_dir_stub (XDR *xdr_in)
880 {
881   int r;
882   struct guestfs_is_dir_args args;
883   const char *path;
884
885   memset (&args, 0, sizeof args);
886
887   if (!xdr_guestfs_is_dir_args (xdr_in, &args)) {
888     reply_with_error ("%s: daemon failed to decode procedure arguments", "is_dir");
889     return;
890   }
891   path = args.path;
892
893   r = do_is_dir (path);
894   if (r == -1)
895     /* do_is_dir has already called reply_with_error */
896     goto done;
897
898   struct guestfs_is_dir_ret ret;
899   ret.dirflag = r;
900   reply ((xdrproc_t) &xdr_guestfs_is_dir_ret, (char *) &ret);
901 done:
902   xdr_free ((xdrproc_t) xdr_guestfs_is_dir_args, (char *) &args);
903 }
904
905 static void pvcreate_stub (XDR *xdr_in)
906 {
907   int r;
908   struct guestfs_pvcreate_args args;
909   const char *device;
910
911   memset (&args, 0, sizeof args);
912
913   if (!xdr_guestfs_pvcreate_args (xdr_in, &args)) {
914     reply_with_error ("%s: daemon failed to decode procedure arguments", "pvcreate");
915     return;
916   }
917   device = args.device;
918
919   r = do_pvcreate (device);
920   if (r == -1)
921     /* do_pvcreate has already called reply_with_error */
922     goto done;
923
924   reply (NULL, NULL);
925 done:
926   xdr_free ((xdrproc_t) xdr_guestfs_pvcreate_args, (char *) &args);
927 }
928
929 static void vgcreate_stub (XDR *xdr_in)
930 {
931   int r;
932   struct guestfs_vgcreate_args args;
933   const char *volgroup;
934   char **physvols;
935
936   memset (&args, 0, sizeof args);
937
938   if (!xdr_guestfs_vgcreate_args (xdr_in, &args)) {
939     reply_with_error ("%s: daemon failed to decode procedure arguments", "vgcreate");
940     return;
941   }
942   volgroup = args.volgroup;
943   args.physvols.physvols_val = realloc (args.physvols.physvols_val, sizeof (char *) * (args.physvols.physvols_len+1));
944   args.physvols.physvols_val[args.physvols.physvols_len] = NULL;
945   physvols = args.physvols.physvols_val;
946
947   r = do_vgcreate (volgroup, physvols);
948   if (r == -1)
949     /* do_vgcreate has already called reply_with_error */
950     goto done;
951
952   reply (NULL, NULL);
953 done:
954   xdr_free ((xdrproc_t) xdr_guestfs_vgcreate_args, (char *) &args);
955 }
956
957 static void lvcreate_stub (XDR *xdr_in)
958 {
959   int r;
960   struct guestfs_lvcreate_args args;
961   const char *logvol;
962   const char *volgroup;
963   int mbytes;
964
965   memset (&args, 0, sizeof args);
966
967   if (!xdr_guestfs_lvcreate_args (xdr_in, &args)) {
968     reply_with_error ("%s: daemon failed to decode procedure arguments", "lvcreate");
969     return;
970   }
971   logvol = args.logvol;
972   volgroup = args.volgroup;
973   mbytes = args.mbytes;
974
975   r = do_lvcreate (logvol, volgroup, mbytes);
976   if (r == -1)
977     /* do_lvcreate has already called reply_with_error */
978     goto done;
979
980   reply (NULL, NULL);
981 done:
982   xdr_free ((xdrproc_t) xdr_guestfs_lvcreate_args, (char *) &args);
983 }
984
985 static void mkfs_stub (XDR *xdr_in)
986 {
987   int r;
988   struct guestfs_mkfs_args args;
989   const char *fstype;
990   const char *device;
991
992   memset (&args, 0, sizeof args);
993
994   if (!xdr_guestfs_mkfs_args (xdr_in, &args)) {
995     reply_with_error ("%s: daemon failed to decode procedure arguments", "mkfs");
996     return;
997   }
998   fstype = args.fstype;
999   device = args.device;
1000
1001   r = do_mkfs (fstype, device);
1002   if (r == -1)
1003     /* do_mkfs has already called reply_with_error */
1004     goto done;
1005
1006   reply (NULL, NULL);
1007 done:
1008   xdr_free ((xdrproc_t) xdr_guestfs_mkfs_args, (char *) &args);
1009 }
1010
1011 static void sfdisk_stub (XDR *xdr_in)
1012 {
1013   int r;
1014   struct guestfs_sfdisk_args args;
1015   const char *device;
1016   int cyls;
1017   int heads;
1018   int sectors;
1019   char **lines;
1020
1021   memset (&args, 0, sizeof args);
1022
1023   if (!xdr_guestfs_sfdisk_args (xdr_in, &args)) {
1024     reply_with_error ("%s: daemon failed to decode procedure arguments", "sfdisk");
1025     return;
1026   }
1027   device = args.device;
1028   cyls = args.cyls;
1029   heads = args.heads;
1030   sectors = args.sectors;
1031   args.lines.lines_val = realloc (args.lines.lines_val, sizeof (char *) * (args.lines.lines_len+1));
1032   args.lines.lines_val[args.lines.lines_len] = NULL;
1033   lines = args.lines.lines_val;
1034
1035   r = do_sfdisk (device, cyls, heads, sectors, lines);
1036   if (r == -1)
1037     /* do_sfdisk has already called reply_with_error */
1038     goto done;
1039
1040   reply (NULL, NULL);
1041 done:
1042   xdr_free ((xdrproc_t) xdr_guestfs_sfdisk_args, (char *) &args);
1043 }
1044
1045 static void write_file_stub (XDR *xdr_in)
1046 {
1047   int r;
1048   struct guestfs_write_file_args args;
1049   const char *path;
1050   const char *content;
1051   int size;
1052
1053   memset (&args, 0, sizeof args);
1054
1055   if (!xdr_guestfs_write_file_args (xdr_in, &args)) {
1056     reply_with_error ("%s: daemon failed to decode procedure arguments", "write_file");
1057     return;
1058   }
1059   path = args.path;
1060   content = args.content;
1061   size = args.size;
1062
1063   r = do_write_file (path, content, size);
1064   if (r == -1)
1065     /* do_write_file has already called reply_with_error */
1066     goto done;
1067
1068   reply (NULL, NULL);
1069 done:
1070   xdr_free ((xdrproc_t) xdr_guestfs_write_file_args, (char *) &args);
1071 }
1072
1073 static void umount_stub (XDR *xdr_in)
1074 {
1075   int r;
1076   struct guestfs_umount_args args;
1077   const char *pathordevice;
1078
1079   memset (&args, 0, sizeof args);
1080
1081   if (!xdr_guestfs_umount_args (xdr_in, &args)) {
1082     reply_with_error ("%s: daemon failed to decode procedure arguments", "umount");
1083     return;
1084   }
1085   pathordevice = args.pathordevice;
1086
1087   r = do_umount (pathordevice);
1088   if (r == -1)
1089     /* do_umount has already called reply_with_error */
1090     goto done;
1091
1092   reply (NULL, NULL);
1093 done:
1094   xdr_free ((xdrproc_t) xdr_guestfs_umount_args, (char *) &args);
1095 }
1096
1097 static void mounts_stub (XDR *xdr_in)
1098 {
1099   char **r;
1100
1101   r = do_mounts ();
1102   if (r == NULL)
1103     /* do_mounts has already called reply_with_error */
1104     goto done;
1105
1106   struct guestfs_mounts_ret ret;
1107   ret.devices.devices_len = count_strings (r);
1108   ret.devices.devices_val = r;
1109   reply ((xdrproc_t) &xdr_guestfs_mounts_ret, (char *) &ret);
1110   free_strings (r);
1111 done: ;
1112 }
1113
1114 static void umount_all_stub (XDR *xdr_in)
1115 {
1116   int r;
1117
1118   r = do_umount_all ();
1119   if (r == -1)
1120     /* do_umount_all has already called reply_with_error */
1121     goto done;
1122
1123   reply (NULL, NULL);
1124 done: ;
1125 }
1126
1127 static void lvm_remove_all_stub (XDR *xdr_in)
1128 {
1129   int r;
1130
1131   r = do_lvm_remove_all ();
1132   if (r == -1)
1133     /* do_lvm_remove_all has already called reply_with_error */
1134     goto done;
1135
1136   reply (NULL, NULL);
1137 done: ;
1138 }
1139
1140 static void file_stub (XDR *xdr_in)
1141 {
1142   char *r;
1143   struct guestfs_file_args args;
1144   const char *path;
1145
1146   memset (&args, 0, sizeof args);
1147
1148   if (!xdr_guestfs_file_args (xdr_in, &args)) {
1149     reply_with_error ("%s: daemon failed to decode procedure arguments", "file");
1150     return;
1151   }
1152   path = args.path;
1153
1154   r = do_file (path);
1155   if (r == NULL)
1156     /* do_file has already called reply_with_error */
1157     goto done;
1158
1159   struct guestfs_file_ret ret;
1160   ret.description = r;
1161   reply ((xdrproc_t) &xdr_guestfs_file_ret, (char *) &ret);
1162   free (r);
1163 done:
1164   xdr_free ((xdrproc_t) xdr_guestfs_file_args, (char *) &args);
1165 }
1166
1167 static void command_stub (XDR *xdr_in)
1168 {
1169   char *r;
1170   struct guestfs_command_args args;
1171   char **arguments;
1172
1173   memset (&args, 0, sizeof args);
1174
1175   if (!xdr_guestfs_command_args (xdr_in, &args)) {
1176     reply_with_error ("%s: daemon failed to decode procedure arguments", "command");
1177     return;
1178   }
1179   args.arguments.arguments_val = realloc (args.arguments.arguments_val, sizeof (char *) * (args.arguments.arguments_len+1));
1180   args.arguments.arguments_val[args.arguments.arguments_len] = NULL;
1181   arguments = args.arguments.arguments_val;
1182
1183   r = do_command (arguments);
1184   if (r == NULL)
1185     /* do_command has already called reply_with_error */
1186     goto done;
1187
1188   struct guestfs_command_ret ret;
1189   ret.output = r;
1190   reply ((xdrproc_t) &xdr_guestfs_command_ret, (char *) &ret);
1191   free (r);
1192 done:
1193   xdr_free ((xdrproc_t) xdr_guestfs_command_args, (char *) &args);
1194 }
1195
1196 static void command_lines_stub (XDR *xdr_in)
1197 {
1198   char **r;
1199   struct guestfs_command_lines_args args;
1200   char **arguments;
1201
1202   memset (&args, 0, sizeof args);
1203
1204   if (!xdr_guestfs_command_lines_args (xdr_in, &args)) {
1205     reply_with_error ("%s: daemon failed to decode procedure arguments", "command_lines");
1206     return;
1207   }
1208   args.arguments.arguments_val = realloc (args.arguments.arguments_val, sizeof (char *) * (args.arguments.arguments_len+1));
1209   args.arguments.arguments_val[args.arguments.arguments_len] = NULL;
1210   arguments = args.arguments.arguments_val;
1211
1212   r = do_command_lines (arguments);
1213   if (r == NULL)
1214     /* do_command_lines has already called reply_with_error */
1215     goto done;
1216
1217   struct guestfs_command_lines_ret ret;
1218   ret.lines.lines_len = count_strings (r);
1219   ret.lines.lines_val = r;
1220   reply ((xdrproc_t) &xdr_guestfs_command_lines_ret, (char *) &ret);
1221   free_strings (r);
1222 done:
1223   xdr_free ((xdrproc_t) xdr_guestfs_command_lines_args, (char *) &args);
1224 }
1225
1226 static void stat_stub (XDR *xdr_in)
1227 {
1228   guestfs_int_stat *r;
1229   struct guestfs_stat_args args;
1230   const char *path;
1231
1232   memset (&args, 0, sizeof args);
1233
1234   if (!xdr_guestfs_stat_args (xdr_in, &args)) {
1235     reply_with_error ("%s: daemon failed to decode procedure arguments", "stat");
1236     return;
1237   }
1238   path = args.path;
1239
1240   r = do_stat (path);
1241   if (r == NULL)
1242     /* do_stat has already called reply_with_error */
1243     goto done;
1244
1245   struct guestfs_stat_ret ret;
1246   ret.statbuf = *r;
1247   reply ((xdrproc_t) xdr_guestfs_stat_ret, (char *) &ret);
1248   xdr_free ((xdrproc_t) xdr_guestfs_stat_ret, (char *) &ret);
1249 done:
1250   xdr_free ((xdrproc_t) xdr_guestfs_stat_args, (char *) &args);
1251 }
1252
1253 static void lstat_stub (XDR *xdr_in)
1254 {
1255   guestfs_int_stat *r;
1256   struct guestfs_lstat_args args;
1257   const char *path;
1258
1259   memset (&args, 0, sizeof args);
1260
1261   if (!xdr_guestfs_lstat_args (xdr_in, &args)) {
1262     reply_with_error ("%s: daemon failed to decode procedure arguments", "lstat");
1263     return;
1264   }
1265   path = args.path;
1266
1267   r = do_lstat (path);
1268   if (r == NULL)
1269     /* do_lstat has already called reply_with_error */
1270     goto done;
1271
1272   struct guestfs_lstat_ret ret;
1273   ret.statbuf = *r;
1274   reply ((xdrproc_t) xdr_guestfs_lstat_ret, (char *) &ret);
1275   xdr_free ((xdrproc_t) xdr_guestfs_lstat_ret, (char *) &ret);
1276 done:
1277   xdr_free ((xdrproc_t) xdr_guestfs_lstat_args, (char *) &args);
1278 }
1279
1280 static void statvfs_stub (XDR *xdr_in)
1281 {
1282   guestfs_int_statvfs *r;
1283   struct guestfs_statvfs_args args;
1284   const char *path;
1285
1286   memset (&args, 0, sizeof args);
1287
1288   if (!xdr_guestfs_statvfs_args (xdr_in, &args)) {
1289     reply_with_error ("%s: daemon failed to decode procedure arguments", "statvfs");
1290     return;
1291   }
1292   path = args.path;
1293
1294   r = do_statvfs (path);
1295   if (r == NULL)
1296     /* do_statvfs has already called reply_with_error */
1297     goto done;
1298
1299   struct guestfs_statvfs_ret ret;
1300   ret.statbuf = *r;
1301   reply ((xdrproc_t) xdr_guestfs_statvfs_ret, (char *) &ret);
1302   xdr_free ((xdrproc_t) xdr_guestfs_statvfs_ret, (char *) &ret);
1303 done:
1304   xdr_free ((xdrproc_t) xdr_guestfs_statvfs_args, (char *) &args);
1305 }
1306
1307 static void tune2fs_l_stub (XDR *xdr_in)
1308 {
1309   char **r;
1310   struct guestfs_tune2fs_l_args args;
1311   const char *device;
1312
1313   memset (&args, 0, sizeof args);
1314
1315   if (!xdr_guestfs_tune2fs_l_args (xdr_in, &args)) {
1316     reply_with_error ("%s: daemon failed to decode procedure arguments", "tune2fs_l");
1317     return;
1318   }
1319   device = args.device;
1320
1321   r = do_tune2fs_l (device);
1322   if (r == NULL)
1323     /* do_tune2fs_l has already called reply_with_error */
1324     goto done;
1325
1326   struct guestfs_tune2fs_l_ret ret;
1327   ret.superblock.superblock_len = count_strings (r);
1328   ret.superblock.superblock_val = r;
1329   reply ((xdrproc_t) &xdr_guestfs_tune2fs_l_ret, (char *) &ret);
1330   free_strings (r);
1331 done:
1332   xdr_free ((xdrproc_t) xdr_guestfs_tune2fs_l_args, (char *) &args);
1333 }
1334
1335 static void blockdev_setro_stub (XDR *xdr_in)
1336 {
1337   int r;
1338   struct guestfs_blockdev_setro_args args;
1339   const char *device;
1340
1341   memset (&args, 0, sizeof args);
1342
1343   if (!xdr_guestfs_blockdev_setro_args (xdr_in, &args)) {
1344     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_setro");
1345     return;
1346   }
1347   device = args.device;
1348
1349   r = do_blockdev_setro (device);
1350   if (r == -1)
1351     /* do_blockdev_setro has already called reply_with_error */
1352     goto done;
1353
1354   reply (NULL, NULL);
1355 done:
1356   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_setro_args, (char *) &args);
1357 }
1358
1359 static void blockdev_setrw_stub (XDR *xdr_in)
1360 {
1361   int r;
1362   struct guestfs_blockdev_setrw_args args;
1363   const char *device;
1364
1365   memset (&args, 0, sizeof args);
1366
1367   if (!xdr_guestfs_blockdev_setrw_args (xdr_in, &args)) {
1368     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_setrw");
1369     return;
1370   }
1371   device = args.device;
1372
1373   r = do_blockdev_setrw (device);
1374   if (r == -1)
1375     /* do_blockdev_setrw has already called reply_with_error */
1376     goto done;
1377
1378   reply (NULL, NULL);
1379 done:
1380   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_setrw_args, (char *) &args);
1381 }
1382
1383 static void blockdev_getro_stub (XDR *xdr_in)
1384 {
1385   int r;
1386   struct guestfs_blockdev_getro_args args;
1387   const char *device;
1388
1389   memset (&args, 0, sizeof args);
1390
1391   if (!xdr_guestfs_blockdev_getro_args (xdr_in, &args)) {
1392     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_getro");
1393     return;
1394   }
1395   device = args.device;
1396
1397   r = do_blockdev_getro (device);
1398   if (r == -1)
1399     /* do_blockdev_getro has already called reply_with_error */
1400     goto done;
1401
1402   struct guestfs_blockdev_getro_ret ret;
1403   ret.ro = r;
1404   reply ((xdrproc_t) &xdr_guestfs_blockdev_getro_ret, (char *) &ret);
1405 done:
1406   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_getro_args, (char *) &args);
1407 }
1408
1409 static void blockdev_getss_stub (XDR *xdr_in)
1410 {
1411   int r;
1412   struct guestfs_blockdev_getss_args args;
1413   const char *device;
1414
1415   memset (&args, 0, sizeof args);
1416
1417   if (!xdr_guestfs_blockdev_getss_args (xdr_in, &args)) {
1418     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_getss");
1419     return;
1420   }
1421   device = args.device;
1422
1423   r = do_blockdev_getss (device);
1424   if (r == -1)
1425     /* do_blockdev_getss has already called reply_with_error */
1426     goto done;
1427
1428   struct guestfs_blockdev_getss_ret ret;
1429   ret.sectorsize = r;
1430   reply ((xdrproc_t) &xdr_guestfs_blockdev_getss_ret, (char *) &ret);
1431 done:
1432   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_getss_args, (char *) &args);
1433 }
1434
1435 static void blockdev_getbsz_stub (XDR *xdr_in)
1436 {
1437   int r;
1438   struct guestfs_blockdev_getbsz_args args;
1439   const char *device;
1440
1441   memset (&args, 0, sizeof args);
1442
1443   if (!xdr_guestfs_blockdev_getbsz_args (xdr_in, &args)) {
1444     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_getbsz");
1445     return;
1446   }
1447   device = args.device;
1448
1449   r = do_blockdev_getbsz (device);
1450   if (r == -1)
1451     /* do_blockdev_getbsz has already called reply_with_error */
1452     goto done;
1453
1454   struct guestfs_blockdev_getbsz_ret ret;
1455   ret.blocksize = r;
1456   reply ((xdrproc_t) &xdr_guestfs_blockdev_getbsz_ret, (char *) &ret);
1457 done:
1458   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_getbsz_args, (char *) &args);
1459 }
1460
1461 static void blockdev_setbsz_stub (XDR *xdr_in)
1462 {
1463   int r;
1464   struct guestfs_blockdev_setbsz_args args;
1465   const char *device;
1466   int blocksize;
1467
1468   memset (&args, 0, sizeof args);
1469
1470   if (!xdr_guestfs_blockdev_setbsz_args (xdr_in, &args)) {
1471     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_setbsz");
1472     return;
1473   }
1474   device = args.device;
1475   blocksize = args.blocksize;
1476
1477   r = do_blockdev_setbsz (device, blocksize);
1478   if (r == -1)
1479     /* do_blockdev_setbsz has already called reply_with_error */
1480     goto done;
1481
1482   reply (NULL, NULL);
1483 done:
1484   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_setbsz_args, (char *) &args);
1485 }
1486
1487 static void blockdev_getsz_stub (XDR *xdr_in)
1488 {
1489   int64_t r;
1490   struct guestfs_blockdev_getsz_args args;
1491   const char *device;
1492
1493   memset (&args, 0, sizeof args);
1494
1495   if (!xdr_guestfs_blockdev_getsz_args (xdr_in, &args)) {
1496     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_getsz");
1497     return;
1498   }
1499   device = args.device;
1500
1501   r = do_blockdev_getsz (device);
1502   if (r == -1)
1503     /* do_blockdev_getsz has already called reply_with_error */
1504     goto done;
1505
1506   struct guestfs_blockdev_getsz_ret ret;
1507   ret.sizeinsectors = r;
1508   reply ((xdrproc_t) &xdr_guestfs_blockdev_getsz_ret, (char *) &ret);
1509 done:
1510   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_getsz_args, (char *) &args);
1511 }
1512
1513 static void blockdev_getsize64_stub (XDR *xdr_in)
1514 {
1515   int64_t r;
1516   struct guestfs_blockdev_getsize64_args args;
1517   const char *device;
1518
1519   memset (&args, 0, sizeof args);
1520
1521   if (!xdr_guestfs_blockdev_getsize64_args (xdr_in, &args)) {
1522     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_getsize64");
1523     return;
1524   }
1525   device = args.device;
1526
1527   r = do_blockdev_getsize64 (device);
1528   if (r == -1)
1529     /* do_blockdev_getsize64 has already called reply_with_error */
1530     goto done;
1531
1532   struct guestfs_blockdev_getsize64_ret ret;
1533   ret.sizeinbytes = r;
1534   reply ((xdrproc_t) &xdr_guestfs_blockdev_getsize64_ret, (char *) &ret);
1535 done:
1536   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_getsize64_args, (char *) &args);
1537 }
1538
1539 static void blockdev_flushbufs_stub (XDR *xdr_in)
1540 {
1541   int r;
1542   struct guestfs_blockdev_flushbufs_args args;
1543   const char *device;
1544
1545   memset (&args, 0, sizeof args);
1546
1547   if (!xdr_guestfs_blockdev_flushbufs_args (xdr_in, &args)) {
1548     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_flushbufs");
1549     return;
1550   }
1551   device = args.device;
1552
1553   r = do_blockdev_flushbufs (device);
1554   if (r == -1)
1555     /* do_blockdev_flushbufs has already called reply_with_error */
1556     goto done;
1557
1558   reply (NULL, NULL);
1559 done:
1560   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_flushbufs_args, (char *) &args);
1561 }
1562
1563 static void blockdev_rereadpt_stub (XDR *xdr_in)
1564 {
1565   int r;
1566   struct guestfs_blockdev_rereadpt_args args;
1567   const char *device;
1568
1569   memset (&args, 0, sizeof args);
1570
1571   if (!xdr_guestfs_blockdev_rereadpt_args (xdr_in, &args)) {
1572     reply_with_error ("%s: daemon failed to decode procedure arguments", "blockdev_rereadpt");
1573     return;
1574   }
1575   device = args.device;
1576
1577   r = do_blockdev_rereadpt (device);
1578   if (r == -1)
1579     /* do_blockdev_rereadpt has already called reply_with_error */
1580     goto done;
1581
1582   reply (NULL, NULL);
1583 done:
1584   xdr_free ((xdrproc_t) xdr_guestfs_blockdev_rereadpt_args, (char *) &args);
1585 }
1586
1587 static void upload_stub (XDR *xdr_in)
1588 {
1589   int r;
1590   struct guestfs_upload_args args;
1591   const char *remotefilename;
1592
1593   memset (&args, 0, sizeof args);
1594
1595   if (!xdr_guestfs_upload_args (xdr_in, &args)) {
1596     reply_with_error ("%s: daemon failed to decode procedure arguments", "upload");
1597     return;
1598   }
1599   remotefilename = args.remotefilename;
1600
1601   r = do_upload (remotefilename);
1602   if (r == -1)
1603     /* do_upload has already called reply_with_error */
1604     goto done;
1605
1606   reply (NULL, NULL);
1607 done:
1608   xdr_free ((xdrproc_t) xdr_guestfs_upload_args, (char *) &args);
1609 }
1610
1611 static void download_stub (XDR *xdr_in)
1612 {
1613   int r;
1614   struct guestfs_download_args args;
1615   const char *remotefilename;
1616
1617   memset (&args, 0, sizeof args);
1618
1619   if (!xdr_guestfs_download_args (xdr_in, &args)) {
1620     reply_with_error ("%s: daemon failed to decode procedure arguments", "download");
1621     return;
1622   }
1623   remotefilename = args.remotefilename;
1624
1625   r = do_download (remotefilename);
1626   if (r == -1)
1627     /* do_download has already called reply_with_error */
1628     goto done;
1629
1630   /* do_download has already sent a reply */
1631 done:
1632   xdr_free ((xdrproc_t) xdr_guestfs_download_args, (char *) &args);
1633 }
1634
1635 static void checksum_stub (XDR *xdr_in)
1636 {
1637   char *r;
1638   struct guestfs_checksum_args args;
1639   const char *csumtype;
1640   const char *path;
1641
1642   memset (&args, 0, sizeof args);
1643
1644   if (!xdr_guestfs_checksum_args (xdr_in, &args)) {
1645     reply_with_error ("%s: daemon failed to decode procedure arguments", "checksum");
1646     return;
1647   }
1648   csumtype = args.csumtype;
1649   path = args.path;
1650
1651   r = do_checksum (csumtype, path);
1652   if (r == NULL)
1653     /* do_checksum has already called reply_with_error */
1654     goto done;
1655
1656   struct guestfs_checksum_ret ret;
1657   ret.checksum = r;
1658   reply ((xdrproc_t) &xdr_guestfs_checksum_ret, (char *) &ret);
1659   free (r);
1660 done:
1661   xdr_free ((xdrproc_t) xdr_guestfs_checksum_args, (char *) &args);
1662 }
1663
1664 void dispatch_incoming_message (XDR *xdr_in)
1665 {
1666   switch (proc_nr) {
1667     case GUESTFS_PROC_MOUNT:
1668       mount_stub (xdr_in);
1669       break;
1670     case GUESTFS_PROC_SYNC:
1671       sync_stub (xdr_in);
1672       break;
1673     case GUESTFS_PROC_TOUCH:
1674       touch_stub (xdr_in);
1675       break;
1676     case GUESTFS_PROC_CAT:
1677       cat_stub (xdr_in);
1678       break;
1679     case GUESTFS_PROC_LL:
1680       ll_stub (xdr_in);
1681       break;
1682     case GUESTFS_PROC_LS:
1683       ls_stub (xdr_in);
1684       break;
1685     case GUESTFS_PROC_LIST_DEVICES:
1686       list_devices_stub (xdr_in);
1687       break;
1688     case GUESTFS_PROC_LIST_PARTITIONS:
1689       list_partitions_stub (xdr_in);
1690       break;
1691     case GUESTFS_PROC_PVS:
1692       pvs_stub (xdr_in);
1693       break;
1694     case GUESTFS_PROC_VGS:
1695       vgs_stub (xdr_in);
1696       break;
1697     case GUESTFS_PROC_LVS:
1698       lvs_stub (xdr_in);
1699       break;
1700     case GUESTFS_PROC_PVS_FULL:
1701       pvs_full_stub (xdr_in);
1702       break;
1703     case GUESTFS_PROC_VGS_FULL:
1704       vgs_full_stub (xdr_in);
1705       break;
1706     case GUESTFS_PROC_LVS_FULL:
1707       lvs_full_stub (xdr_in);
1708       break;
1709     case GUESTFS_PROC_READ_LINES:
1710       read_lines_stub (xdr_in);
1711       break;
1712     case GUESTFS_PROC_AUG_INIT:
1713       aug_init_stub (xdr_in);
1714       break;
1715     case GUESTFS_PROC_AUG_CLOSE:
1716       aug_close_stub (xdr_in);
1717       break;
1718     case GUESTFS_PROC_AUG_DEFVAR:
1719       aug_defvar_stub (xdr_in);
1720       break;
1721     case GUESTFS_PROC_AUG_DEFNODE:
1722       aug_defnode_stub (xdr_in);
1723       break;
1724     case GUESTFS_PROC_AUG_GET:
1725       aug_get_stub (xdr_in);
1726       break;
1727     case GUESTFS_PROC_AUG_SET:
1728       aug_set_stub (xdr_in);
1729       break;
1730     case GUESTFS_PROC_AUG_INSERT:
1731       aug_insert_stub (xdr_in);
1732       break;
1733     case GUESTFS_PROC_AUG_RM:
1734       aug_rm_stub (xdr_in);
1735       break;
1736     case GUESTFS_PROC_AUG_MV:
1737       aug_mv_stub (xdr_in);
1738       break;
1739     case GUESTFS_PROC_AUG_MATCH:
1740       aug_match_stub (xdr_in);
1741       break;
1742     case GUESTFS_PROC_AUG_SAVE:
1743       aug_save_stub (xdr_in);
1744       break;
1745     case GUESTFS_PROC_AUG_LOAD:
1746       aug_load_stub (xdr_in);
1747       break;
1748     case GUESTFS_PROC_AUG_LS:
1749       aug_ls_stub (xdr_in);
1750       break;
1751     case GUESTFS_PROC_RM:
1752       rm_stub (xdr_in);
1753       break;
1754     case GUESTFS_PROC_RMDIR:
1755       rmdir_stub (xdr_in);
1756       break;
1757     case GUESTFS_PROC_RM_RF:
1758       rm_rf_stub (xdr_in);
1759       break;
1760     case GUESTFS_PROC_MKDIR:
1761       mkdir_stub (xdr_in);
1762       break;
1763     case GUESTFS_PROC_MKDIR_P:
1764       mkdir_p_stub (xdr_in);
1765       break;
1766     case GUESTFS_PROC_CHMOD:
1767       chmod_stub (xdr_in);
1768       break;
1769     case GUESTFS_PROC_CHOWN:
1770       chown_stub (xdr_in);
1771       break;
1772     case GUESTFS_PROC_EXISTS:
1773       exists_stub (xdr_in);
1774       break;
1775     case GUESTFS_PROC_IS_FILE:
1776       is_file_stub (xdr_in);
1777       break;
1778     case GUESTFS_PROC_IS_DIR:
1779       is_dir_stub (xdr_in);
1780       break;
1781     case GUESTFS_PROC_PVCREATE:
1782       pvcreate_stub (xdr_in);
1783       break;
1784     case GUESTFS_PROC_VGCREATE:
1785       vgcreate_stub (xdr_in);
1786       break;
1787     case GUESTFS_PROC_LVCREATE:
1788       lvcreate_stub (xdr_in);
1789       break;
1790     case GUESTFS_PROC_MKFS:
1791       mkfs_stub (xdr_in);
1792       break;
1793     case GUESTFS_PROC_SFDISK:
1794       sfdisk_stub (xdr_in);
1795       break;
1796     case GUESTFS_PROC_WRITE_FILE:
1797       write_file_stub (xdr_in);
1798       break;
1799     case GUESTFS_PROC_UMOUNT:
1800       umount_stub (xdr_in);
1801       break;
1802     case GUESTFS_PROC_MOUNTS:
1803       mounts_stub (xdr_in);
1804       break;
1805     case GUESTFS_PROC_UMOUNT_ALL:
1806       umount_all_stub (xdr_in);
1807       break;
1808     case GUESTFS_PROC_LVM_REMOVE_ALL:
1809       lvm_remove_all_stub (xdr_in);
1810       break;
1811     case GUESTFS_PROC_FILE:
1812       file_stub (xdr_in);
1813       break;
1814     case GUESTFS_PROC_COMMAND:
1815       command_stub (xdr_in);
1816       break;
1817     case GUESTFS_PROC_COMMAND_LINES:
1818       command_lines_stub (xdr_in);
1819       break;
1820     case GUESTFS_PROC_STAT:
1821       stat_stub (xdr_in);
1822       break;
1823     case GUESTFS_PROC_LSTAT:
1824       lstat_stub (xdr_in);
1825       break;
1826     case GUESTFS_PROC_STATVFS:
1827       statvfs_stub (xdr_in);
1828       break;
1829     case GUESTFS_PROC_TUNE2FS_L:
1830       tune2fs_l_stub (xdr_in);
1831       break;
1832     case GUESTFS_PROC_BLOCKDEV_SETRO:
1833       blockdev_setro_stub (xdr_in);
1834       break;
1835     case GUESTFS_PROC_BLOCKDEV_SETRW:
1836       blockdev_setrw_stub (xdr_in);
1837       break;
1838     case GUESTFS_PROC_BLOCKDEV_GETRO:
1839       blockdev_getro_stub (xdr_in);
1840       break;
1841     case GUESTFS_PROC_BLOCKDEV_GETSS:
1842       blockdev_getss_stub (xdr_in);
1843       break;
1844     case GUESTFS_PROC_BLOCKDEV_GETBSZ:
1845       blockdev_getbsz_stub (xdr_in);
1846       break;
1847     case GUESTFS_PROC_BLOCKDEV_SETBSZ:
1848       blockdev_setbsz_stub (xdr_in);
1849       break;
1850     case GUESTFS_PROC_BLOCKDEV_GETSZ:
1851       blockdev_getsz_stub (xdr_in);
1852       break;
1853     case GUESTFS_PROC_BLOCKDEV_GETSIZE64:
1854       blockdev_getsize64_stub (xdr_in);
1855       break;
1856     case GUESTFS_PROC_BLOCKDEV_FLUSHBUFS:
1857       blockdev_flushbufs_stub (xdr_in);
1858       break;
1859     case GUESTFS_PROC_BLOCKDEV_REREADPT:
1860       blockdev_rereadpt_stub (xdr_in);
1861       break;
1862     case GUESTFS_PROC_UPLOAD:
1863       upload_stub (xdr_in);
1864       break;
1865     case GUESTFS_PROC_DOWNLOAD:
1866       download_stub (xdr_in);
1867       break;
1868     case GUESTFS_PROC_CHECKSUM:
1869       checksum_stub (xdr_in);
1870       break;
1871     default:
1872       reply_with_error ("dispatch_incoming_message: unknown procedure number %d", proc_nr);
1873   }
1874 }
1875
1876 static const char *lvm_pv_cols = "pv_name,pv_uuid,pv_fmt,pv_size,dev_size,pv_free,pv_used,pv_attr,pv_pe_count,pv_pe_alloc_count,pv_tags,pe_start,pv_mda_count,pv_mda_free";
1877
1878 static int lvm_tokenize_pv (char *str, struct guestfs_lvm_int_pv *r)
1879 {
1880   char *tok, *p, *next;
1881   int i, j;
1882
1883   if (!str) {
1884     fprintf (stderr, "%s: failed: passed a NULL string\n", __func__);
1885     return -1;
1886   }
1887   if (!*str || isspace (*str)) {
1888     fprintf (stderr, "%s: failed: passed a empty string or one beginning with whitespace\n", __func__);
1889     return -1;
1890   }
1891   tok = str;
1892   if (!tok) {
1893     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_name");
1894     return -1;
1895   }
1896   p = strchrnul (tok, ',');
1897   if (*p) next = p+1; else next = NULL;
1898   *p = '\0';
1899   r->pv_name = strdup (tok);
1900   if (r->pv_name == NULL) {
1901     perror ("strdup");
1902     return -1;
1903   }
1904   tok = next;
1905   if (!tok) {
1906     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_uuid");
1907     return -1;
1908   }
1909   p = strchrnul (tok, ',');
1910   if (*p) next = p+1; else next = NULL;
1911   *p = '\0';
1912   for (i = j = 0; i < 32; ++j) {
1913     if (tok[j] == '\0') {
1914       fprintf (stderr, "%s: failed to parse UUID from '%s'\n", __func__, tok);
1915       return -1;
1916     } else if (tok[j] != '-')
1917       r->pv_uuid[i++] = tok[j];
1918   }
1919   tok = next;
1920   if (!tok) {
1921     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_fmt");
1922     return -1;
1923   }
1924   p = strchrnul (tok, ',');
1925   if (*p) next = p+1; else next = NULL;
1926   *p = '\0';
1927   r->pv_fmt = strdup (tok);
1928   if (r->pv_fmt == NULL) {
1929     perror ("strdup");
1930     return -1;
1931   }
1932   tok = next;
1933   if (!tok) {
1934     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_size");
1935     return -1;
1936   }
1937   p = strchrnul (tok, ',');
1938   if (*p) next = p+1; else next = NULL;
1939   *p = '\0';
1940   if (sscanf (tok, "%"SCNu64, &r->pv_size) != 1) {
1941     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "pv_size");
1942     return -1;
1943   }
1944   tok = next;
1945   if (!tok) {
1946     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "dev_size");
1947     return -1;
1948   }
1949   p = strchrnul (tok, ',');
1950   if (*p) next = p+1; else next = NULL;
1951   *p = '\0';
1952   if (sscanf (tok, "%"SCNu64, &r->dev_size) != 1) {
1953     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "dev_size");
1954     return -1;
1955   }
1956   tok = next;
1957   if (!tok) {
1958     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_free");
1959     return -1;
1960   }
1961   p = strchrnul (tok, ',');
1962   if (*p) next = p+1; else next = NULL;
1963   *p = '\0';
1964   if (sscanf (tok, "%"SCNu64, &r->pv_free) != 1) {
1965     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "pv_free");
1966     return -1;
1967   }
1968   tok = next;
1969   if (!tok) {
1970     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_used");
1971     return -1;
1972   }
1973   p = strchrnul (tok, ',');
1974   if (*p) next = p+1; else next = NULL;
1975   *p = '\0';
1976   if (sscanf (tok, "%"SCNu64, &r->pv_used) != 1) {
1977     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "pv_used");
1978     return -1;
1979   }
1980   tok = next;
1981   if (!tok) {
1982     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_attr");
1983     return -1;
1984   }
1985   p = strchrnul (tok, ',');
1986   if (*p) next = p+1; else next = NULL;
1987   *p = '\0';
1988   r->pv_attr = strdup (tok);
1989   if (r->pv_attr == NULL) {
1990     perror ("strdup");
1991     return -1;
1992   }
1993   tok = next;
1994   if (!tok) {
1995     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_pe_count");
1996     return -1;
1997   }
1998   p = strchrnul (tok, ',');
1999   if (*p) next = p+1; else next = NULL;
2000   *p = '\0';
2001   if (sscanf (tok, "%"SCNi64, &r->pv_pe_count) != 1) {
2002     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "pv_pe_count");
2003     return -1;
2004   }
2005   tok = next;
2006   if (!tok) {
2007     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_pe_alloc_count");
2008     return -1;
2009   }
2010   p = strchrnul (tok, ',');
2011   if (*p) next = p+1; else next = NULL;
2012   *p = '\0';
2013   if (sscanf (tok, "%"SCNi64, &r->pv_pe_alloc_count) != 1) {
2014     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "pv_pe_alloc_count");
2015     return -1;
2016   }
2017   tok = next;
2018   if (!tok) {
2019     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_tags");
2020     return -1;
2021   }
2022   p = strchrnul (tok, ',');
2023   if (*p) next = p+1; else next = NULL;
2024   *p = '\0';
2025   r->pv_tags = strdup (tok);
2026   if (r->pv_tags == NULL) {
2027     perror ("strdup");
2028     return -1;
2029   }
2030   tok = next;
2031   if (!tok) {
2032     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pe_start");
2033     return -1;
2034   }
2035   p = strchrnul (tok, ',');
2036   if (*p) next = p+1; else next = NULL;
2037   *p = '\0';
2038   if (sscanf (tok, "%"SCNu64, &r->pe_start) != 1) {
2039     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "pe_start");
2040     return -1;
2041   }
2042   tok = next;
2043   if (!tok) {
2044     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_mda_count");
2045     return -1;
2046   }
2047   p = strchrnul (tok, ',');
2048   if (*p) next = p+1; else next = NULL;
2049   *p = '\0';
2050   if (sscanf (tok, "%"SCNi64, &r->pv_mda_count) != 1) {
2051     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "pv_mda_count");
2052     return -1;
2053   }
2054   tok = next;
2055   if (!tok) {
2056     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_mda_free");
2057     return -1;
2058   }
2059   p = strchrnul (tok, ',');
2060   if (*p) next = p+1; else next = NULL;
2061   *p = '\0';
2062   if (sscanf (tok, "%"SCNu64, &r->pv_mda_free) != 1) {
2063     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "pv_mda_free");
2064     return -1;
2065   }
2066   tok = next;
2067   if (tok != NULL) {
2068     fprintf (stderr, "%s: failed: extra tokens at end of string\n", __func__);
2069     return -1;
2070   }
2071   return 0;
2072 }
2073
2074 guestfs_lvm_int_pv_list *
2075 parse_command_line_pvs (void)
2076 {
2077   char *out, *err;
2078   char *p, *pend;
2079   int r, i;
2080   guestfs_lvm_int_pv_list *ret;
2081   void *newp;
2082
2083   ret = malloc (sizeof *ret);
2084   if (!ret) {
2085     reply_with_perror ("malloc");
2086     return NULL;
2087   }
2088
2089   ret->guestfs_lvm_int_pv_list_len = 0;
2090   ret->guestfs_lvm_int_pv_list_val = NULL;
2091
2092   r = command (&out, &err,
2093                "/sbin/lvm", "pvs",
2094                "-o", lvm_pv_cols, "--unbuffered", "--noheadings",
2095                "--nosuffix", "--separator", ",", "--units", "b", NULL);
2096   if (r == -1) {
2097     reply_with_error ("%s", err);
2098     free (out);
2099     free (err);
2100     free (ret);
2101     return NULL;
2102   }
2103
2104   free (err);
2105
2106   /* Tokenize each line of the output. */
2107   p = out;
2108   i = 0;
2109   while (p) {
2110     pend = strchr (p, '\n');    /* Get the next line of output. */
2111     if (pend) {
2112       *pend = '\0';
2113       pend++;
2114     }
2115
2116     while (*p && isspace (*p))  /* Skip any leading whitespace. */
2117       p++;
2118
2119     if (!*p) {                  /* Empty line?  Skip it. */
2120       p = pend;
2121       continue;
2122     }
2123
2124     /* Allocate some space to store this next entry. */
2125     newp = realloc (ret->guestfs_lvm_int_pv_list_val,
2126                     sizeof (guestfs_lvm_int_pv) * (i+1));
2127     if (newp == NULL) {
2128       reply_with_perror ("realloc");
2129       free (ret->guestfs_lvm_int_pv_list_val);
2130       free (ret);
2131       free (out);
2132       return NULL;
2133     }
2134     ret->guestfs_lvm_int_pv_list_val = newp;
2135
2136     /* Tokenize the next entry. */
2137     r = lvm_tokenize_pv (p, &ret->guestfs_lvm_int_pv_list_val[i]);
2138     if (r == -1) {
2139       reply_with_error ("failed to parse output of 'pvs' command");
2140       free (ret->guestfs_lvm_int_pv_list_val);
2141       free (ret);
2142       free (out);
2143       return NULL;
2144     }
2145
2146     ++i;
2147     p = pend;
2148   }
2149
2150   ret->guestfs_lvm_int_pv_list_len = i;
2151
2152   free (out);
2153   return ret;
2154 }
2155 static const char *lvm_vg_cols = "vg_name,vg_uuid,vg_fmt,vg_attr,vg_size,vg_free,vg_sysid,vg_extent_size,vg_extent_count,vg_free_count,max_lv,max_pv,pv_count,lv_count,snap_count,vg_seqno,vg_tags,vg_mda_count,vg_mda_free";
2156
2157 static int lvm_tokenize_vg (char *str, struct guestfs_lvm_int_vg *r)
2158 {
2159   char *tok, *p, *next;
2160   int i, j;
2161
2162   if (!str) {
2163     fprintf (stderr, "%s: failed: passed a NULL string\n", __func__);
2164     return -1;
2165   }
2166   if (!*str || isspace (*str)) {
2167     fprintf (stderr, "%s: failed: passed a empty string or one beginning with whitespace\n", __func__);
2168     return -1;
2169   }
2170   tok = str;
2171   if (!tok) {
2172     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_name");
2173     return -1;
2174   }
2175   p = strchrnul (tok, ',');
2176   if (*p) next = p+1; else next = NULL;
2177   *p = '\0';
2178   r->vg_name = strdup (tok);
2179   if (r->vg_name == NULL) {
2180     perror ("strdup");
2181     return -1;
2182   }
2183   tok = next;
2184   if (!tok) {
2185     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_uuid");
2186     return -1;
2187   }
2188   p = strchrnul (tok, ',');
2189   if (*p) next = p+1; else next = NULL;
2190   *p = '\0';
2191   for (i = j = 0; i < 32; ++j) {
2192     if (tok[j] == '\0') {
2193       fprintf (stderr, "%s: failed to parse UUID from '%s'\n", __func__, tok);
2194       return -1;
2195     } else if (tok[j] != '-')
2196       r->vg_uuid[i++] = tok[j];
2197   }
2198   tok = next;
2199   if (!tok) {
2200     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_fmt");
2201     return -1;
2202   }
2203   p = strchrnul (tok, ',');
2204   if (*p) next = p+1; else next = NULL;
2205   *p = '\0';
2206   r->vg_fmt = strdup (tok);
2207   if (r->vg_fmt == NULL) {
2208     perror ("strdup");
2209     return -1;
2210   }
2211   tok = next;
2212   if (!tok) {
2213     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_attr");
2214     return -1;
2215   }
2216   p = strchrnul (tok, ',');
2217   if (*p) next = p+1; else next = NULL;
2218   *p = '\0';
2219   r->vg_attr = strdup (tok);
2220   if (r->vg_attr == NULL) {
2221     perror ("strdup");
2222     return -1;
2223   }
2224   tok = next;
2225   if (!tok) {
2226     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_size");
2227     return -1;
2228   }
2229   p = strchrnul (tok, ',');
2230   if (*p) next = p+1; else next = NULL;
2231   *p = '\0';
2232   if (sscanf (tok, "%"SCNu64, &r->vg_size) != 1) {
2233     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "vg_size");
2234     return -1;
2235   }
2236   tok = next;
2237   if (!tok) {
2238     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_free");
2239     return -1;
2240   }
2241   p = strchrnul (tok, ',');
2242   if (*p) next = p+1; else next = NULL;
2243   *p = '\0';
2244   if (sscanf (tok, "%"SCNu64, &r->vg_free) != 1) {
2245     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "vg_free");
2246     return -1;
2247   }
2248   tok = next;
2249   if (!tok) {
2250     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_sysid");
2251     return -1;
2252   }
2253   p = strchrnul (tok, ',');
2254   if (*p) next = p+1; else next = NULL;
2255   *p = '\0';
2256   r->vg_sysid = strdup (tok);
2257   if (r->vg_sysid == NULL) {
2258     perror ("strdup");
2259     return -1;
2260   }
2261   tok = next;
2262   if (!tok) {
2263     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_extent_size");
2264     return -1;
2265   }
2266   p = strchrnul (tok, ',');
2267   if (*p) next = p+1; else next = NULL;
2268   *p = '\0';
2269   if (sscanf (tok, "%"SCNu64, &r->vg_extent_size) != 1) {
2270     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "vg_extent_size");
2271     return -1;
2272   }
2273   tok = next;
2274   if (!tok) {
2275     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_extent_count");
2276     return -1;
2277   }
2278   p = strchrnul (tok, ',');
2279   if (*p) next = p+1; else next = NULL;
2280   *p = '\0';
2281   if (sscanf (tok, "%"SCNi64, &r->vg_extent_count) != 1) {
2282     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "vg_extent_count");
2283     return -1;
2284   }
2285   tok = next;
2286   if (!tok) {
2287     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_free_count");
2288     return -1;
2289   }
2290   p = strchrnul (tok, ',');
2291   if (*p) next = p+1; else next = NULL;
2292   *p = '\0';
2293   if (sscanf (tok, "%"SCNi64, &r->vg_free_count) != 1) {
2294     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "vg_free_count");
2295     return -1;
2296   }
2297   tok = next;
2298   if (!tok) {
2299     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "max_lv");
2300     return -1;
2301   }
2302   p = strchrnul (tok, ',');
2303   if (*p) next = p+1; else next = NULL;
2304   *p = '\0';
2305   if (sscanf (tok, "%"SCNi64, &r->max_lv) != 1) {
2306     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "max_lv");
2307     return -1;
2308   }
2309   tok = next;
2310   if (!tok) {
2311     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "max_pv");
2312     return -1;
2313   }
2314   p = strchrnul (tok, ',');
2315   if (*p) next = p+1; else next = NULL;
2316   *p = '\0';
2317   if (sscanf (tok, "%"SCNi64, &r->max_pv) != 1) {
2318     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "max_pv");
2319     return -1;
2320   }
2321   tok = next;
2322   if (!tok) {
2323     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "pv_count");
2324     return -1;
2325   }
2326   p = strchrnul (tok, ',');
2327   if (*p) next = p+1; else next = NULL;
2328   *p = '\0';
2329   if (sscanf (tok, "%"SCNi64, &r->pv_count) != 1) {
2330     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "pv_count");
2331     return -1;
2332   }
2333   tok = next;
2334   if (!tok) {
2335     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_count");
2336     return -1;
2337   }
2338   p = strchrnul (tok, ',');
2339   if (*p) next = p+1; else next = NULL;
2340   *p = '\0';
2341   if (sscanf (tok, "%"SCNi64, &r->lv_count) != 1) {
2342     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "lv_count");
2343     return -1;
2344   }
2345   tok = next;
2346   if (!tok) {
2347     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "snap_count");
2348     return -1;
2349   }
2350   p = strchrnul (tok, ',');
2351   if (*p) next = p+1; else next = NULL;
2352   *p = '\0';
2353   if (sscanf (tok, "%"SCNi64, &r->snap_count) != 1) {
2354     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "snap_count");
2355     return -1;
2356   }
2357   tok = next;
2358   if (!tok) {
2359     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_seqno");
2360     return -1;
2361   }
2362   p = strchrnul (tok, ',');
2363   if (*p) next = p+1; else next = NULL;
2364   *p = '\0';
2365   if (sscanf (tok, "%"SCNi64, &r->vg_seqno) != 1) {
2366     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "vg_seqno");
2367     return -1;
2368   }
2369   tok = next;
2370   if (!tok) {
2371     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_tags");
2372     return -1;
2373   }
2374   p = strchrnul (tok, ',');
2375   if (*p) next = p+1; else next = NULL;
2376   *p = '\0';
2377   r->vg_tags = strdup (tok);
2378   if (r->vg_tags == NULL) {
2379     perror ("strdup");
2380     return -1;
2381   }
2382   tok = next;
2383   if (!tok) {
2384     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_mda_count");
2385     return -1;
2386   }
2387   p = strchrnul (tok, ',');
2388   if (*p) next = p+1; else next = NULL;
2389   *p = '\0';
2390   if (sscanf (tok, "%"SCNi64, &r->vg_mda_count) != 1) {
2391     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "vg_mda_count");
2392     return -1;
2393   }
2394   tok = next;
2395   if (!tok) {
2396     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "vg_mda_free");
2397     return -1;
2398   }
2399   p = strchrnul (tok, ',');
2400   if (*p) next = p+1; else next = NULL;
2401   *p = '\0';
2402   if (sscanf (tok, "%"SCNu64, &r->vg_mda_free) != 1) {
2403     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "vg_mda_free");
2404     return -1;
2405   }
2406   tok = next;
2407   if (tok != NULL) {
2408     fprintf (stderr, "%s: failed: extra tokens at end of string\n", __func__);
2409     return -1;
2410   }
2411   return 0;
2412 }
2413
2414 guestfs_lvm_int_vg_list *
2415 parse_command_line_vgs (void)
2416 {
2417   char *out, *err;
2418   char *p, *pend;
2419   int r, i;
2420   guestfs_lvm_int_vg_list *ret;
2421   void *newp;
2422
2423   ret = malloc (sizeof *ret);
2424   if (!ret) {
2425     reply_with_perror ("malloc");
2426     return NULL;
2427   }
2428
2429   ret->guestfs_lvm_int_vg_list_len = 0;
2430   ret->guestfs_lvm_int_vg_list_val = NULL;
2431
2432   r = command (&out, &err,
2433                "/sbin/lvm", "vgs",
2434                "-o", lvm_vg_cols, "--unbuffered", "--noheadings",
2435                "--nosuffix", "--separator", ",", "--units", "b", NULL);
2436   if (r == -1) {
2437     reply_with_error ("%s", err);
2438     free (out);
2439     free (err);
2440     free (ret);
2441     return NULL;
2442   }
2443
2444   free (err);
2445
2446   /* Tokenize each line of the output. */
2447   p = out;
2448   i = 0;
2449   while (p) {
2450     pend = strchr (p, '\n');    /* Get the next line of output. */
2451     if (pend) {
2452       *pend = '\0';
2453       pend++;
2454     }
2455
2456     while (*p && isspace (*p))  /* Skip any leading whitespace. */
2457       p++;
2458
2459     if (!*p) {                  /* Empty line?  Skip it. */
2460       p = pend;
2461       continue;
2462     }
2463
2464     /* Allocate some space to store this next entry. */
2465     newp = realloc (ret->guestfs_lvm_int_vg_list_val,
2466                     sizeof (guestfs_lvm_int_vg) * (i+1));
2467     if (newp == NULL) {
2468       reply_with_perror ("realloc");
2469       free (ret->guestfs_lvm_int_vg_list_val);
2470       free (ret);
2471       free (out);
2472       return NULL;
2473     }
2474     ret->guestfs_lvm_int_vg_list_val = newp;
2475
2476     /* Tokenize the next entry. */
2477     r = lvm_tokenize_vg (p, &ret->guestfs_lvm_int_vg_list_val[i]);
2478     if (r == -1) {
2479       reply_with_error ("failed to parse output of 'vgs' command");
2480       free (ret->guestfs_lvm_int_vg_list_val);
2481       free (ret);
2482       free (out);
2483       return NULL;
2484     }
2485
2486     ++i;
2487     p = pend;
2488   }
2489
2490   ret->guestfs_lvm_int_vg_list_len = i;
2491
2492   free (out);
2493   return ret;
2494 }
2495 static const char *lvm_lv_cols = "lv_name,lv_uuid,lv_attr,lv_major,lv_minor,lv_kernel_major,lv_kernel_minor,lv_size,seg_count,origin,snap_percent,copy_percent,move_pv,lv_tags,mirror_log,modules";
2496
2497 static int lvm_tokenize_lv (char *str, struct guestfs_lvm_int_lv *r)
2498 {
2499   char *tok, *p, *next;
2500   int i, j;
2501
2502   if (!str) {
2503     fprintf (stderr, "%s: failed: passed a NULL string\n", __func__);
2504     return -1;
2505   }
2506   if (!*str || isspace (*str)) {
2507     fprintf (stderr, "%s: failed: passed a empty string or one beginning with whitespace\n", __func__);
2508     return -1;
2509   }
2510   tok = str;
2511   if (!tok) {
2512     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_name");
2513     return -1;
2514   }
2515   p = strchrnul (tok, ',');
2516   if (*p) next = p+1; else next = NULL;
2517   *p = '\0';
2518   r->lv_name = strdup (tok);
2519   if (r->lv_name == NULL) {
2520     perror ("strdup");
2521     return -1;
2522   }
2523   tok = next;
2524   if (!tok) {
2525     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_uuid");
2526     return -1;
2527   }
2528   p = strchrnul (tok, ',');
2529   if (*p) next = p+1; else next = NULL;
2530   *p = '\0';
2531   for (i = j = 0; i < 32; ++j) {
2532     if (tok[j] == '\0') {
2533       fprintf (stderr, "%s: failed to parse UUID from '%s'\n", __func__, tok);
2534       return -1;
2535     } else if (tok[j] != '-')
2536       r->lv_uuid[i++] = tok[j];
2537   }
2538   tok = next;
2539   if (!tok) {
2540     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_attr");
2541     return -1;
2542   }
2543   p = strchrnul (tok, ',');
2544   if (*p) next = p+1; else next = NULL;
2545   *p = '\0';
2546   r->lv_attr = strdup (tok);
2547   if (r->lv_attr == NULL) {
2548     perror ("strdup");
2549     return -1;
2550   }
2551   tok = next;
2552   if (!tok) {
2553     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_major");
2554     return -1;
2555   }
2556   p = strchrnul (tok, ',');
2557   if (*p) next = p+1; else next = NULL;
2558   *p = '\0';
2559   if (sscanf (tok, "%"SCNi64, &r->lv_major) != 1) {
2560     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "lv_major");
2561     return -1;
2562   }
2563   tok = next;
2564   if (!tok) {
2565     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_minor");
2566     return -1;
2567   }
2568   p = strchrnul (tok, ',');
2569   if (*p) next = p+1; else next = NULL;
2570   *p = '\0';
2571   if (sscanf (tok, "%"SCNi64, &r->lv_minor) != 1) {
2572     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "lv_minor");
2573     return -1;
2574   }
2575   tok = next;
2576   if (!tok) {
2577     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_kernel_major");
2578     return -1;
2579   }
2580   p = strchrnul (tok, ',');
2581   if (*p) next = p+1; else next = NULL;
2582   *p = '\0';
2583   if (sscanf (tok, "%"SCNi64, &r->lv_kernel_major) != 1) {
2584     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "lv_kernel_major");
2585     return -1;
2586   }
2587   tok = next;
2588   if (!tok) {
2589     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_kernel_minor");
2590     return -1;
2591   }
2592   p = strchrnul (tok, ',');
2593   if (*p) next = p+1; else next = NULL;
2594   *p = '\0';
2595   if (sscanf (tok, "%"SCNi64, &r->lv_kernel_minor) != 1) {
2596     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "lv_kernel_minor");
2597     return -1;
2598   }
2599   tok = next;
2600   if (!tok) {
2601     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_size");
2602     return -1;
2603   }
2604   p = strchrnul (tok, ',');
2605   if (*p) next = p+1; else next = NULL;
2606   *p = '\0';
2607   if (sscanf (tok, "%"SCNu64, &r->lv_size) != 1) {
2608     fprintf (stderr, "%s: failed to parse size '%s' from token %s\n", __func__, tok, "lv_size");
2609     return -1;
2610   }
2611   tok = next;
2612   if (!tok) {
2613     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "seg_count");
2614     return -1;
2615   }
2616   p = strchrnul (tok, ',');
2617   if (*p) next = p+1; else next = NULL;
2618   *p = '\0';
2619   if (sscanf (tok, "%"SCNi64, &r->seg_count) != 1) {
2620     fprintf (stderr, "%s: failed to parse int '%s' from token %s\n", __func__, tok, "seg_count");
2621     return -1;
2622   }
2623   tok = next;
2624   if (!tok) {
2625     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "origin");
2626     return -1;
2627   }
2628   p = strchrnul (tok, ',');
2629   if (*p) next = p+1; else next = NULL;
2630   *p = '\0';
2631   r->origin = strdup (tok);
2632   if (r->origin == NULL) {
2633     perror ("strdup");
2634     return -1;
2635   }
2636   tok = next;
2637   if (!tok) {
2638     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "snap_percent");
2639     return -1;
2640   }
2641   p = strchrnul (tok, ',');
2642   if (*p) next = p+1; else next = NULL;
2643   *p = '\0';
2644   if (tok[0] == '\0')
2645     r->snap_percent = -1;
2646   else if (sscanf (tok, "%f", &r->snap_percent) != 1) {
2647     fprintf (stderr, "%s: failed to parse float '%s' from token %s\n", __func__, tok, "snap_percent");
2648     return -1;
2649   }
2650   tok = next;
2651   if (!tok) {
2652     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "copy_percent");
2653     return -1;
2654   }
2655   p = strchrnul (tok, ',');
2656   if (*p) next = p+1; else next = NULL;
2657   *p = '\0';
2658   if (tok[0] == '\0')
2659     r->copy_percent = -1;
2660   else if (sscanf (tok, "%f", &r->copy_percent) != 1) {
2661     fprintf (stderr, "%s: failed to parse float '%s' from token %s\n", __func__, tok, "copy_percent");
2662     return -1;
2663   }
2664   tok = next;
2665   if (!tok) {
2666     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "move_pv");
2667     return -1;
2668   }
2669   p = strchrnul (tok, ',');
2670   if (*p) next = p+1; else next = NULL;
2671   *p = '\0';
2672   r->move_pv = strdup (tok);
2673   if (r->move_pv == NULL) {
2674     perror ("strdup");
2675     return -1;
2676   }
2677   tok = next;
2678   if (!tok) {
2679     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "lv_tags");
2680     return -1;
2681   }
2682   p = strchrnul (tok, ',');
2683   if (*p) next = p+1; else next = NULL;
2684   *p = '\0';
2685   r->lv_tags = strdup (tok);
2686   if (r->lv_tags == NULL) {
2687     perror ("strdup");
2688     return -1;
2689   }
2690   tok = next;
2691   if (!tok) {
2692     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "mirror_log");
2693     return -1;
2694   }
2695   p = strchrnul (tok, ',');
2696   if (*p) next = p+1; else next = NULL;
2697   *p = '\0';
2698   r->mirror_log = strdup (tok);
2699   if (r->mirror_log == NULL) {
2700     perror ("strdup");
2701     return -1;
2702   }
2703   tok = next;
2704   if (!tok) {
2705     fprintf (stderr, "%s: failed: string finished early, around token %s\n", __func__, "modules");
2706     return -1;
2707   }
2708   p = strchrnul (tok, ',');
2709   if (*p) next = p+1; else next = NULL;
2710   *p = '\0';
2711   r->modules = strdup (tok);
2712   if (r->modules == NULL) {
2713     perror ("strdup");
2714     return -1;
2715   }
2716   tok = next;
2717   if (tok != NULL) {
2718     fprintf (stderr, "%s: failed: extra tokens at end of string\n", __func__);
2719     return -1;
2720   }
2721   return 0;
2722 }
2723
2724 guestfs_lvm_int_lv_list *
2725 parse_command_line_lvs (void)
2726 {
2727   char *out, *err;
2728   char *p, *pend;
2729   int r, i;
2730   guestfs_lvm_int_lv_list *ret;
2731   void *newp;
2732
2733   ret = malloc (sizeof *ret);
2734   if (!ret) {
2735     reply_with_perror ("malloc");
2736     return NULL;
2737   }
2738
2739   ret->guestfs_lvm_int_lv_list_len = 0;
2740   ret->guestfs_lvm_int_lv_list_val = NULL;
2741
2742   r = command (&out, &err,
2743                "/sbin/lvm", "lvs",
2744                "-o", lvm_lv_cols, "--unbuffered", "--noheadings",
2745                "--nosuffix", "--separator", ",", "--units", "b", NULL);
2746   if (r == -1) {
2747     reply_with_error ("%s", err);
2748     free (out);
2749     free (err);
2750     free (ret);
2751     return NULL;
2752   }
2753
2754   free (err);
2755
2756   /* Tokenize each line of the output. */
2757   p = out;
2758   i = 0;
2759   while (p) {
2760     pend = strchr (p, '\n');    /* Get the next line of output. */
2761     if (pend) {
2762       *pend = '\0';
2763       pend++;
2764     }
2765
2766     while (*p && isspace (*p))  /* Skip any leading whitespace. */
2767       p++;
2768
2769     if (!*p) {                  /* Empty line?  Skip it. */
2770       p = pend;
2771       continue;
2772     }
2773
2774     /* Allocate some space to store this next entry. */
2775     newp = realloc (ret->guestfs_lvm_int_lv_list_val,
2776                     sizeof (guestfs_lvm_int_lv) * (i+1));
2777     if (newp == NULL) {
2778       reply_with_perror ("realloc");
2779       free (ret->guestfs_lvm_int_lv_list_val);
2780       free (ret);
2781       free (out);
2782       return NULL;
2783     }
2784     ret->guestfs_lvm_int_lv_list_val = newp;
2785
2786     /* Tokenize the next entry. */
2787     r = lvm_tokenize_lv (p, &ret->guestfs_lvm_int_lv_list_val[i]);
2788     if (r == -1) {
2789       reply_with_error ("failed to parse output of 'lvs' command");
2790       free (ret->guestfs_lvm_int_lv_list_val);
2791       free (ret);
2792       free (out);
2793       return NULL;
2794     }
2795
2796     ++i;
2797     p = pend;
2798   }
2799
2800   ret->guestfs_lvm_int_lv_list_len = i;
2801
2802   free (out);
2803   return ret;
2804 }