git.annexia.org
/
virt-top.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove D.get_cpu_stats second parameter.
[virt-top.git]
/
virt-top
/
virt_top_xml.ml
diff --git
a/virt-top/virt_top_xml.ml
b/virt-top/virt_top_xml.ml
old mode 100755
(executable)
new mode 100644
(file)
index
8bf3d8a
..
ab291d3
--- a/
virt-top/virt_top_xml.ml
+++ b/
virt-top/virt_top_xml.ml
@@
-1,5
+1,5
@@
(* 'top'-like tool for libvirt domains.
(* 'top'-like tool for libvirt domains.
- (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
+ (C) Copyright 2007
-2009
Richard W.M. Jones, Red Hat Inc.
http://libvirt.org/
This program is free software; you can redistribute it and/or modify
http://libvirt.org/
This program is free software; you can redistribute it and/or modify
@@
-21,6
+21,8
@@
open ExtList
open ExtList
+open Virt_top_gettext.Gettext
+
module C = Libvirt.Connect
module D = Libvirt.Domain
module N = Libvirt.Network ;;
module C = Libvirt.Connect
module D = Libvirt.Domain
module N = Libvirt.Network ;;
@@
-41,7
+43,7
@@
fun id dom ->
) children in
List.concat devices
| _ ->
) children in
List.concat devices
| _ ->
- failwith
"get_xml_desc didn't return <domain/>"
in
+ failwith
(s_ "get_xml_desc didn't return <domain/>")
in
let rec target_dev_of = function
| [] -> None
| Xml.Element ("target", attrs, _) :: rest ->
let rec target_dev_of = function
| [] -> None
| Xml.Element ("target", attrs, _) :: rest ->