1 (* Example of using Domain.get_all_domain_stats (virConnectGetAllDomainStats).
2 * Usage: get_all_domain_stats
8 module C = Libvirt.Connect
9 module D = Libvirt.Domain
11 let print_stats conn stats =
14 fun { D.dom_uuid = uuid; D.params = params } ->
15 let dom = D.lookup_by_uuid conn uuid in
16 printf "domain %s:\n" (D.get_name dom);
18 fun i (field, value) ->
19 printf "\t%-20s = " field;
21 | D.TypedFieldInt32 i -> printf "%ld" i
22 | D.TypedFieldUInt32 i -> printf "%ld" i
23 | D.TypedFieldInt64 i -> printf "%Ld" i
24 | D.TypedFieldUInt64 i -> printf "%Ld" i
25 | D.TypedFieldFloat f -> printf "%g" f
26 | D.TypedFieldBool b -> printf "%b" b
27 | D.TypedFieldString s -> printf "%S" s);
33 Libvirt.Virterror err ->
34 eprintf "error: %s\n" (Libvirt.Virterror.to_string err)
37 if Array.length Sys.argv <> 1 then (
38 eprintf "error: get_all_domain_stats\n";
42 let conn = C.connect_readonly () in
52 let who = [] in (* empty list means returns all domains *)
54 let quit = ref false in
57 let stats = D.get_all_domain_stats conn what who in
59 if stats <> [||] then print_stats conn stats
61 printf "no guests found\n";
66 (* Run the garbage collector which is a good way to check for
67 * memory corruption errors and reference counting issues in
68 * libvirt. You shouldn't do this in ordinary programs.
72 if not !quit then Unix.sleep 3