git.annexia.org
/
virt-mem.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Finish static approach in favour of a simpler, more dynamic version.
[virt-mem.git]
/
uname
/
virt_uname.ml
diff --git
a/uname/virt_uname.ml
b/uname/virt_uname.ml
index
3d902ce
..
4b38d4c
100644
(file)
--- a/
uname/virt_uname.ml
+++ b/
uname/virt_uname.ml
@@
-23,13
+23,13
@@
open Virt_mem_gettext.Gettext
open Virt_mem_utils
open Virt_mem_types
open Virt_mem_utils
open Virt_mem_types
-let run debug
({ domname = domname }, _, utsname)
=
+let run debug
{ domname = domname } { utsname = utsname }
=
match utsname with
| Some u ->
printf "%s: %s %s %s %s %s %s\n"
domname
match utsname with
| Some u ->
printf "%s: %s %s %s %s %s %s\n"
domname
- u.
kernel_name u.nodename u.
kernel_release
- u.
kernel_version u.machine u.
domainname
+ u.
uts_kernel_name u.uts_nodename u.uts_
kernel_release
+ u.
uts_kernel_version u.uts_machine u.uts_
domainname
| None ->
eprintf (f_"%s: no system_utsname in kernel image\n") domname
| None ->
eprintf (f_"%s: no system_utsname in kernel image\n") domname
@@
-39,4
+39,4
@@
virt-uname prints the uname information such as OS version,
architecture and node name for virtual machines running under
libvirt."
architecture and node name for virtual machines running under
libvirt."
-let () = Virt_mem.register "uname" summary description ~run
+let () = Virt_mem.register "uname" summary description ~
needs_utsname:true ~
run