+void
+initrd_list (g, path)
+ guestfs_h *g;
+ char *path;
+PREINIT:
+ char **filenames;
+ int i, n;
+ PPCODE:
+ filenames = guestfs_initrd_list (g, path);
+ if (filenames == NULL)
+ croak ("initrd_list: %s", guestfs_last_error (g));
+ for (n = 0; filenames[n] != NULL; ++n) /**/;
+ EXTEND (SP, n);
+ for (i = 0; i < n; ++i) {
+ PUSHs (sv_2mortal (newSVpv (filenames[i], 0)));
+ free (filenames[i]);
+ }
+ free (filenames);
+
+void
+mount_loop (g, file, mountpoint)
+ guestfs_h *g;
+ char *file;
+ char *mountpoint;
+PREINIT:
+ int r;
+ PPCODE:
+ r = guestfs_mount_loop (g, file, mountpoint);
+ if (r == -1)
+ croak ("mount_loop: %s", guestfs_last_error (g));
+
+void
+mkswap (g, device)
+ guestfs_h *g;
+ char *device;
+PREINIT:
+ int r;
+ PPCODE:
+ r = guestfs_mkswap (g, device);
+ if (r == -1)
+ croak ("mkswap: %s", guestfs_last_error (g));
+
+void
+mkswap_L (g, label, device)
+ guestfs_h *g;
+ char *label;
+ char *device;
+PREINIT:
+ int r;
+ PPCODE:
+ r = guestfs_mkswap_L (g, label, device);
+ if (r == -1)
+ croak ("mkswap_L: %s", guestfs_last_error (g));
+
+void
+mkswap_U (g, uuid, device)
+ guestfs_h *g;
+ char *uuid;
+ char *device;
+PREINIT:
+ int r;
+ PPCODE:
+ r = guestfs_mkswap_U (g, uuid, device);
+ if (r == -1)
+ croak ("mkswap_U: %s", guestfs_last_error (g));
+