diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2009-06-29 10:09:13 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2009-06-29 10:09:13 +0100 |
| commit | f450ce75b754fb869b34433c0126f7bb592b141b (patch) | |
| tree | d5871faf1cc109629f7df0b59e1eb1403199ccf4 /perl/Guestfs.xs | |
| parent | 62ccc07e744d5ebfb45d9344827d36f9f61699f4 (diff) | |
| download | libguestfs-f450ce75b754fb869b34433c0126f7bb592b141b.tar.gz libguestfs-f450ce75b754fb869b34433c0126f7bb592b141b.tar.xz libguestfs-f450ce75b754fb869b34433c0126f7bb592b141b.zip | |
Generated code for 'wc_*' commands.
Diffstat (limited to 'perl/Guestfs.xs')
| -rw-r--r-- | perl/Guestfs.xs | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs index 96b02f9b..1dc634f5 100644 --- a/perl/Guestfs.xs +++ b/perl/Guestfs.xs @@ -2650,3 +2650,45 @@ PREINIT: OUTPUT: RETVAL +SV * +wc_l (g, path) + guestfs_h *g; + char *path; +PREINIT: + int lines; + CODE: + lines = guestfs_wc_l (g, path); + if (lines == -1) + croak ("wc_l: %s", guestfs_last_error (g)); + RETVAL = newSViv (lines); + OUTPUT: + RETVAL + +SV * +wc_w (g, path) + guestfs_h *g; + char *path; +PREINIT: + int words; + CODE: + words = guestfs_wc_w (g, path); + if (words == -1) + croak ("wc_w: %s", guestfs_last_error (g)); + RETVAL = newSViv (words); + OUTPUT: + RETVAL + +SV * +wc_c (g, path) + guestfs_h *g; + char *path; +PREINIT: + int chars; + CODE: + chars = guestfs_wc_c (g, path); + if (chars == -1) + croak ("wc_c: %s", guestfs_last_error (g)); + RETVAL = newSViv (chars); + OUTPUT: + RETVAL + |