diff options
| author | Richard Jones <rjones@trick.home.annexia.org> | 2009-06-22 07:49:50 +0100 |
|---|---|---|
| committer | Richard Jones <rjones@trick.home.annexia.org> | 2009-06-22 07:49:50 +0100 |
| commit | 4211c7a258debd236017a19c70965bc1b3658edb (patch) | |
| tree | 50372cfd72f49b84b753e2aa58c92dfc99b4586f /perl/Guestfs.xs | |
| parent | 57d2dfab18ad3d987d9273bb7c1f42e73e0bbcb2 (diff) | |
| download | libguestfs-4211c7a258debd236017a19c70965bc1b3658edb.tar.gz libguestfs-4211c7a258debd236017a19c70965bc1b3658edb.tar.xz libguestfs-4211c7a258debd236017a19c70965bc1b3658edb.zip | |
Generated code for 'sh' and 'sh-lines' commands.
Diffstat (limited to 'perl/Guestfs.xs')
| -rw-r--r-- | perl/Guestfs.xs | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs index c26faa16..8a6c4bb9 100644 --- a/perl/Guestfs.xs +++ b/perl/Guestfs.xs @@ -2549,3 +2549,37 @@ PREINIT: OUTPUT: RETVAL +SV * +sh (g, command) + guestfs_h *g; + char *command; +PREINIT: + char *output; + CODE: + output = guestfs_sh (g, command); + if (output == NULL) + croak ("sh: %s", guestfs_last_error (g)); + RETVAL = newSVpv (output, 0); + free (output); + OUTPUT: + RETVAL + +void +sh_lines (g, command) + guestfs_h *g; + char *command; +PREINIT: + char **lines; + int i, n; + PPCODE: + lines = guestfs_sh_lines (g, command); + if (lines == NULL) + croak ("sh_lines: %s", guestfs_last_error (g)); + for (n = 0; lines[n] != NULL; ++n) /**/; + EXTEND (SP, n); + for (i = 0; i < n; ++i) { + PUSHs (sv_2mortal (newSVpv (lines[i], 0))); + free (lines[i]); + } + free (lines); + |