package xenstore
Xenstore protocol in pure OCaml
Install
Dune Dependency
github.com
Readme
Changelog
LGPL-2.1-only WITH OCaml-LGPL-linking-exception License
Edit opam file
Versions (2)
Authors
Maintainers
Sources
xenstore-2.3.0.tbz
sha256=d63c6bbcb2d3c297767d83c0a0f6dd46cecfd4e691f1cf5c5b6554445ec1b3f4
sha512=5cea990ab16ef708e53605172f708dde6ed15981cca6890939274db6efde1e5b2f9ec5c659d4d2f4115c5e0c3b69bcacc798a0d7fd5c1b75b83ddccd699de189
doc/src/xenstore.server/heap_debug_interface.ml.html
Source file heap_debug_interface.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25include Namespace.Unsupported let debug fmt = Logging.debug "memory_interface" fmt let ( |> ) a b = b a let read _t (perms: Perms.t) (path: Store.Path.t) = Perms.has perms Perms.CONFIGURE; match Store.Path.to_string_list path with | [] -> "" | "heap_words" :: [] -> string_of_int (Gc.stat ()).Gc.heap_words | "live_words" :: [] -> string_of_int (Gc.stat ()).Gc.live_words | "free_words" :: [] -> string_of_int (Gc.stat ()).Gc.free_words | "symbols" :: [] -> string_of_int (Symbol.stats ()) | _ -> Store.Path.doesnt_exist path let exists t perms path = try ignore(read t perms path); true with Store.Path.Doesnt_exist _ -> false let list _t perms path = Perms.has perms Perms.CONFIGURE; match Store.Path.to_string_list path with | [] -> [ "heap_words"; "live_words"; "free_words"; "symbols" ] | _ -> []