+ s_"Print the max VCPUs of a domain.",
+ [dom_help];
+ "dommempeek",
+ cmd3 print_string
+ (fun dom offset size ->
+ let buf = String.create size in
+ let max_peek = D.max_peek dom in
+ let rec loop i =
+ let remaining = size-i in
+ if remaining > 0 then (
+ let size = min remaining max_peek in
+ D.memory_peek dom [D.Virtual]
+ (Int64.add offset (Int64.of_int i)) size buf i;
+ loop (i+size)
+ )
+ in
+ loop 0;
+ buf)
+ (arg_full_connection domain_of_string)
+ Int64.of_string int_of_string,
+ s_"Peek into memory of a device.",
+ [dom_help; s_"offset",s_"Offset in memory";
+ s_"size",s_"Size in bytes to read"];