summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Meyering <meyering@redhat.com>2009-08-11 17:38:05 +0200
committerJim Meyering <meyering@redhat.com>2009-08-13 14:45:34 +0200
commit1020246b278aade9671d12dae2554cf7538cf0de (patch)
tree79d86f1353c3d9da1cd299dddef8db28665cb43f
parent1f0810eb3a98cbfd347af59b6b9bc624ddff6028 (diff)
downloadlibguestfs-1020246b278aade9671d12dae2554cf7538cf0de.tar.gz
libguestfs-1020246b278aade9671d12dae2554cf7538cf0de.tar.xz
libguestfs-1020246b278aade9671d12dae2554cf7538cf0de.zip
generator.ml: add type: Dev_or_Path
* src/generator.ml (file, download): Use it.
-rwxr-xr-xsrc/generator.ml5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/generator.ml b/src/generator.ml
index 60e3a028..a7450638 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -136,6 +136,7 @@ and argt =
| String of string (* const char *name, cannot be NULL *)
| Device of string (* /dev device name, cannot be NULL *)
| Pathname of string (* file name, cannot be NULL *)
+ | Dev_or_Path of string (* /dev device name or Pathname, cannot be NULL *)
| OptString of string (* const char *name, may be NULL *)
| StringList of string(* list of strings (each string cannot be NULL) *)
| Bool of string (* boolean *)
@@ -1477,7 +1478,7 @@ Some internal mounts are not unmounted by this call.");
This command removes all LVM logical volumes, volume groups
and physical volumes.");
- ("file", (RString "description", [Pathname "path"]), 49, [],
+ ("file", (RString "description", [Dev_or_Path "path"]), 49, [],
[InitSquashFS, Always, TestOutput (
[["file"; "/empty"]], "empty");
InitSquashFS, Always, TestOutput (
@@ -1801,7 +1802,7 @@ C<filename> can also be a named pipe.
See also C<guestfs_download>.");
- ("download", (RErr, [String "remotefilename"; FileOut "filename"]), 67, [],
+ ("download", (RErr, [Dev_or_Path "remotefilename"; FileOut "filename"]), 67, [],
[InitBasicFS, Always, TestOutput (
(* Pick a file from cwd which isn't likely to change. *)
[["upload"; "../COPYING.LIB"; "/COPYING.LIB"];