Add --list-kernels option and add a warning to the generated files.

[virt-mem.git] / lib / virt_mem.ml

diff --git a/lib/virt_mem.ml b/lib/virt_mem.ml
index 22cbbc5..ca89e32 100644 (file)
--- a/lib/virt_mem.ml
+++ b/lib/virt_mem.ml
@@ -239,6 +239,12 @@ Options:") cmd summary description in
     exit 0
   in
 
+  (* Handle --list-kernels option. *)
+  let list_kernels () =
+    List.iter print_endline Virt_mem_kernels.kernels;
+    exit 0
+  in
+
   (* Function to collect up any anonymous args (domain names/IDs). *)
   let anon_arg str = anon_args := str :: !anon_args in
 
@@ -264,6 +270,8 @@ Options:") cmd summary description in
         "uri " ^ s_ "Connect to URI";
       "--debug", Arg.Set debug,
         " " ^ s_"Debug mode (default: false)";
+      "--list-kernels", Arg.Unit list_kernels,
+        " " ^ s_"List known kernels";
       "-t", Arg.String memory_image,
         "image " ^ s_"Use saved kernel memory image";
       "--version", Arg.Unit version,