git.annexia.org
/
ocaml-libvirt.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
380f1e0
)
examples: Print more stats in the get_all_domain_stats.ml example.
author
Richard W.M. Jones
<rjones@redhat.com>
Tue, 28 Mar 2017 12:11:09 +0000
(13:11 +0100)
committer
Richard W.M. Jones
<rjones@redhat.com>
Tue, 28 Mar 2017 12:11:28 +0000
(13:11 +0100)
Updates commit
380f1e05b244ae4750ca5101b5b5a182dcd0d1fd
.
examples/get_all_domain_stats.ml
patch
|
blob
|
history
diff --git
a/examples/get_all_domain_stats.ml
b/examples/get_all_domain_stats.ml
index
4375639
..
cc86da6
100644
(file)
--- a/
examples/get_all_domain_stats.ml
+++ b/
examples/get_all_domain_stats.ml
@@
-40,13
+40,20
@@
let () =
let conn = C.connect_readonly () in
let conn = C.connect_readonly () in
- let what_stats = [D.StatsCpuTotal; D.StatsInterface; D.StatsBlock] in
- let flags = [D.GetAllDomainsStatsActive; D.GetAllDomainsStatsInactive] in
+ let what = [
+ D.StatsState;
+ D.StatsCpuTotal;
+ D.StatsBalloon;
+ D.StatsVcpu;
+ D.StatsInterface;
+ D.StatsBlock;
+ ] in
+ let who = [] in (* empty list means returns all domains *)
let quit = ref false in
while not !quit do
let quit = ref false in
while not !quit do
- let stats = D.get_all_domain_stats conn what
_stats flags
in
+ let stats = D.get_all_domain_stats conn what
who
in
if stats <> [||] then print_stats stats
else (
if stats <> [||] then print_stats stats
else (