reynir/albatross
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

vmm_stats: guard vmmapi_stats

Browse source
This commit is contained in:
Hannes Mehnert 2018-03-22 14:00:04 +01:00
parent d3941e70c6
commit 42ca0670c9
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
stats/vmm_stats.ml
View file

@ -28,7 +28,7 @@ let rec safe_sysctl f arg =
let vm_vmmapi_stats pid = let vm_vmmapi_stats pid =
let name = "ukvm" ^ string_of_int pid in let name = "ukvm" ^ string_of_int pid in
vmmapi_stats name try Some (vmmapi_stats name) with _ -> None
let gather pid nics = let gather pid nics =
safe_sysctl sysctl_rusage pid, safe_sysctl sysctl_rusage pid,
@ -40,13 +40,16 @@ let gather pid nics =
String.Map.empty nics String.Map.empty nics
let tick t = let tick t =
Logs.debug (fun m -> m "tick with %d vms" (IM.cardinal t.pid_nic)) ;
let pid_rusage, pid_vmmapi, nic_ifdata = let pid_rusage, pid_vmmapi, nic_ifdata =
IM.fold (fun pid nics (rus, vmms, ifds) -> IM.fold (fun pid nics (rus, vmms, ifds) ->
let ru, vmm, ifd = gather pid nics in let ru, vmm, ifd = gather pid nics in
(match ru with (match ru with
| None -> rus | None -> rus
| Some ru -> IM.add pid ru rus), | Some ru -> IM.add pid ru rus),
IM.add pid vmm vmms, (match vmm with
| None -> vmms
| Some vmm -> IM.add pid vmm vmms),
String.Map.union (fun _k a _b -> Some a) ifd ifds) String.Map.union (fun _k a _b -> Some a) ifd ifds)
t.pid_nic (IM.empty, IM.empty, String.Map.empty) t.pid_nic (IM.empty, IM.empty, String.Map.empty)
in in