X-Git-Url: http://git.annexia.org/?p=virt-mem.git;a=blobdiff_plain;f=uname%2Fvirt_uname.ml;h=f2f6ddc6bc23eb3d13445c8cde0a033ecfa4e951;hp=fff6d7fa0c2ba71b1e80d375ed2191292b466d8d;hb=b70c967911e197b74d6d7ad98e3df9240d82572f;hpb=6a4bf18801508eb18520b7b1ec13325fd4101764

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index fff6d7f..f2f6ddc 100644
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -23,20 +23,7 @@ open Virt_mem_gettext.Gettext
 open Virt_mem_utils
 open Virt_mem_mmap
 
-let usage = s_"NAME
-  virt-uname - uname command for virtual machines
-
-SUMMARY
-  virt-uname [-options] [domains]
-
-DESCRIPTION
-  virt-uname prints the uname information such as OS version,
-  architecture and node name for virtual machines running under
-  libvirt."
-
-let _, images = Virt_mem.start usage
-
-let () =
+let run debug images =
   (* Print new_utsname structure from bitstring. *)
   let print_new_utsname name bs =
     (* Truncate an OCaml string at the first ASCII NUL character, ie. as
@@ -100,3 +87,11 @@ let () =
 	    Not_found ->
 	      eprintf (f_"%s: could not find utsname in kernel image\n") name
   ) images
+
+let summary = s_"uname command for virtual machines"
+let description = s_"\
+virt-uname prints the uname information such as OS version,
+architecture and node name for virtual machines running under
+libvirt."
+
+let () = Virt_mem.register "uname" summary description true run