-let command_line () =
- let connect_uri = ref None in
- let images = ref [] in
-
- let argspec = Arg.align [
- "--verbose", Arg.Unit set_verbose_flag, " Enable debugging messages";
- "--write", Arg.Unit set_write_flag, " Allow writes to the disk";
- "--connect", Arg.String (function
- | "" -> connect_uri := Some None
- | uri -> connect_uri := Some (Some uri)),
- "uri Connect to libvirt URI";
- ] in
-
- let anon_fun image = images := image :: !images in
-
- let prog = Filename.basename Sys.executable_name in
-
- let usage_msg =
- sprintf "\
-
+let argspec = Arg.align [
+ "-a", Arg.String add_image, "image Open disk image";
+ "--add", Arg.String add_image, "image Open disk image";
+ "-c", Arg.String set_connect, "uri Connect to libvirt URI";
+ "--connect", Arg.String set_connect, "uri Connect to libvirt URI";
+ "-d", Arg.String add_guest, "guest Open libvirt guest";
+ "--domain", Arg.String add_guest, "guest Open libvirt guest";
+ "--format", Arg.String set_format, "format Set format";
+ "-v", Arg.Unit set_verbose_flag, " Enable debugging messages";
+ "--verbose", Arg.Unit set_verbose_flag, " Enable debugging messages";
+ "-V", Arg.Unit display_version, " Display version and exit";
+ "--version", Arg.Unit display_version, " Display version and exit";
+ "-x", Arg.Unit set_trace_flag, " Enable tracing of libguestfs calls";
+]
+
+let prog = Filename.basename Sys.executable_name
+
+let anon_fun _ =
+ raise (Arg.Bad "unknown argument")
+
+let usage_msg =
+ sprintf "\