diff options
| author | Richard Jones <rjones@redhat.com> | 2009-04-09 19:36:07 +0100 |
|---|---|---|
| committer | Richard Jones <rjones@redhat.com> | 2009-04-09 19:36:07 +0100 |
| commit | 01c26253a12ed1e6b1199f8c85f049a7fc4aef28 (patch) | |
| tree | 02a9f655430a8e7cf282b7dd9bf042640654f599 /perl/Guestfs.xs | |
| parent | 0677b12f2273ed266da9dd276c129342d6a939a2 (diff) | |
| download | libguestfs-01c26253a12ed1e6b1199f8c85f049a7fc4aef28.tar.gz libguestfs-01c26253a12ed1e6b1199f8c85f049a7fc4aef28.tar.xz libguestfs-01c26253a12ed1e6b1199f8c85f049a7fc4aef28.zip | |
Added aug-ls (generated code).
Diffstat (limited to 'perl/Guestfs.xs')
| -rw-r--r-- | perl/Guestfs.xs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs index 99eb3190..954d7e2e 100644 --- a/perl/Guestfs.xs +++ b/perl/Guestfs.xs @@ -623,3 +623,22 @@ aug_load (g) if (guestfs_aug_load (g) == -1) croak ("aug_load: %s", last_error); +void +aug_ls (g, path) + guestfs_h *g; + char *path; +PREINIT: + char **matches; + int i, n; + PPCODE: + matches = guestfs_aug_ls (g, path); + if (matches == NULL) + croak ("aug_ls: %s", last_error); + for (n = 0; matches[n] != NULL; ++n) /**/; + EXTEND (SP, n); + for (i = 0; i < n; ++i) { + PUSHs (sv_2mortal (newSVpv (matches[i], 0))); + free (matches[i]); + } + free (matches); + |