virt-uname command done.

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index dcdf5c8..14a8bcc 100644 (file)
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -34,7 +34,7 @@ DESCRIPTION
   architecture and node name for virtual machines running under
   libvirt."
 
   architecture and node name for virtual machines running under
   libvirt."
 

-let verbose, images = Virt_mem.start usage
+let _, images = Virt_mem.start usage

 
 let () =
   (* Print new_utsname structure from bitstring. *)
 
 let () =
   (* Print new_utsname structure from bitstring. *)


@@ -72,7 +72,6 @@ let () =
        *)
       try
        let addr = lookup_ksym "init_uts_ns" in
        *)
       try
        let addr = lookup_ksym "init_uts_ns" in

-       if verbose then printf "init_uts_ns at %Lx\n" addr;

 
        let bs = Bitmatch.bitstring_of_string (get_bytes mem addr (65*6+4)) in
        (bitmatch bs with
 
        let bs = Bitmatch.bitstring_of_string (get_bytes mem addr (65*6+4)) in
        (bitmatch bs with


@@ -89,7 +88,6 @@ let () =
           *)
          try
            let addr = lookup_ksym "system_utsname" in
           *)
          try
            let addr = lookup_ksym "system_utsname" in

-           if verbose then printf "system_utsname at %Lx\n" addr;

 
            let bs =
              Bitmatch.bitstring_of_string (get_bytes mem addr (65*6)) in
 
            let bs =
              Bitmatch.bitstring_of_string (get_bytes mem addr (65*6)) in