croak ("array reference expected");
av = (AV *)SvRV (arg);
- ret = malloc (av_len (av) + 1 + 1);
+ ret = malloc ((av_len (av) + 1 + 1) * sizeof (char *));
if (!ret)
croak ("malloc failed");
MODULE = Sys::Guestfs PACKAGE = Sys::Guestfs
+PROTOTYPES: ENABLE
+
guestfs_h *
_create ()
CODE:
RETVAL
void
+set_append (g, append)
+ guestfs_h *g;
+ char *append;
+PREINIT:
+ int r;
+ PPCODE:
+ r = guestfs_set_append (g, append);
+ if (r == -1)
+ croak ("set_append: %s", guestfs_last_error (g));
+
+SV *
+get_append (g)
+ guestfs_h *g;
+PREINIT:
+ const char *append;
+ CODE:
+ append = guestfs_get_append (g);
+ if (append == NULL)
+ croak ("get_append: %s", guestfs_last_error (g));
+ RETVAL = newSVpv (append, 0);
+ OUTPUT:
+ RETVAL
+
+void
set_autosync (g, autosync)
guestfs_h *g;
int autosync;
croak ("set_ready: %s", guestfs_last_error (g));
void
+end_busy (g)
+ guestfs_h *g;
+PREINIT:
+ int r;
+ PPCODE:
+ r = guestfs_end_busy (g);
+ if (r == -1)
+ croak ("end_busy: %s", guestfs_last_error (g));
+
+void
mount (g, device, mountpoint)
guestfs_h *g;
char *device;
if (r == -1)
croak ("ping_daemon: %s", guestfs_last_error (g));
+SV *
+equal (g, file1, file2)
+ guestfs_h *g;
+ char *file1;
+ char *file2;
+PREINIT:
+ int equality;
+ CODE:
+ equality = guestfs_equal (g, file1, file2);
+ if (equality == -1)
+ croak ("equal: %s", guestfs_last_error (g));
+ RETVAL = newSViv (equality);
+ OUTPUT:
+ RETVAL
+
+void
+strings (g, path)
+ guestfs_h *g;
+ char *path;
+PREINIT:
+ char **stringsout;
+ int i, n;
+ PPCODE:
+ stringsout = guestfs_strings (g, path);
+ if (stringsout == NULL)
+ croak ("strings: %s", guestfs_last_error (g));
+ for (n = 0; stringsout[n] != NULL; ++n) /**/;
+ EXTEND (SP, n);
+ for (i = 0; i < n; ++i) {
+ PUSHs (sv_2mortal (newSVpv (stringsout[i], 0)));
+ free (stringsout[i]);
+ }
+ free (stringsout);
+
+void
+strings_e (g, encoding, path)
+ guestfs_h *g;
+ char *encoding;
+ char *path;
+PREINIT:
+ char **stringsout;
+ int i, n;
+ PPCODE:
+ stringsout = guestfs_strings_e (g, encoding, path);
+ if (stringsout == NULL)
+ croak ("strings_e: %s", guestfs_last_error (g));
+ for (n = 0; stringsout[n] != NULL; ++n) /**/;
+ EXTEND (SP, n);
+ for (i = 0; i < n; ++i) {
+ PUSHs (sv_2mortal (newSVpv (stringsout[i], 0)));
+ free (stringsout[i]);
+ }
+ free (stringsout);
+
+SV *
+hexdump (g, path)
+ guestfs_h *g;
+ char *path;
+PREINIT:
+ char *dump;
+ CODE:
+ dump = guestfs_hexdump (g, path);
+ if (dump == NULL)
+ croak ("hexdump: %s", guestfs_last_error (g));
+ RETVAL = newSVpv (dump, 0);
+ free (dump);
+ OUTPUT:
+ RETVAL
+