X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl%2FGuestfs.xs;h=fe2c81c9bb756f900e8e60edcaefa5cb4ee54d6e;hb=refs%2Ftags%2F1.0.10;hp=63dce7498e33697081c57b35ace7cb11eec73df7;hpb=0232e722826cfda0f6042da983f9eb871f24e946;p=libguestfs.git diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs index 63dce74..fe2c81c 100644 --- a/perl/Guestfs.xs +++ b/perl/Guestfs.xs @@ -168,6 +168,30 @@ PREINIT: croak ("config: %s", guestfs_last_error (g)); void +set_qemu (g, qemu) + guestfs_h *g; + char *qemu; +PREINIT: + int r; + PPCODE: + r = guestfs_set_qemu (g, qemu); + if (r == -1) + croak ("set_qemu: %s", guestfs_last_error (g)); + +SV * +get_qemu (g) + guestfs_h *g; +PREINIT: + const char *qemu; + CODE: + qemu = guestfs_get_qemu (g); + if (qemu == NULL) + croak ("get_qemu: %s", guestfs_last_error (g)); + RETVAL = newSVpv (qemu, 0); + OUTPUT: + RETVAL + +void set_path (g, path) guestfs_h *g; char *path; @@ -1405,3 +1429,42 @@ PREINIT: if (r == -1) croak ("tgz_out: %s", guestfs_last_error (g)); +void +mount_ro (g, device, mountpoint) + guestfs_h *g; + char *device; + char *mountpoint; +PREINIT: + int r; + PPCODE: + r = guestfs_mount_ro (g, device, mountpoint); + if (r == -1) + croak ("mount_ro: %s", guestfs_last_error (g)); + +void +mount_options (g, options, device, mountpoint) + guestfs_h *g; + char *options; + char *device; + char *mountpoint; +PREINIT: + int r; + PPCODE: + r = guestfs_mount_options (g, options, device, mountpoint); + if (r == -1) + croak ("mount_options: %s", guestfs_last_error (g)); + +void +mount_vfs (g, options, vfstype, device, mountpoint) + guestfs_h *g; + char *options; + char *vfstype; + char *device; + char *mountpoint; +PREINIT: + int r; + PPCODE: + r = guestfs_mount_vfs (g, options, vfstype, device, mountpoint); + if (r == -1) + croak ("mount_vfs: %s", guestfs_last_error (g)); +