X-Git-Url: http://git.annexia.org/?p=virt-mem.git;a=blobdiff_plain;f=lib%2Fvirt_mem_utils.ml;h=6ac70832f069b8ed52d35ea386a93dc9479d5cc0;hp=db759dd981d3d1af072add3f3c3ba22e84ff787c;hb=b70c967911e197b74d6d7ad98e3df9240d82572f;hpb=6a4bf18801508eb18520b7b1ec13325fd4101764

diff --git a/lib/virt_mem_utils.ml b/lib/virt_mem_utils.ml
index db759dd..6ac7083 100644
--- a/lib/virt_mem_utils.ml
+++ b/lib/virt_mem_utils.ml
@@ -95,3 +95,9 @@ let frequency xs =
   in
   let xs = loop xs in
   List.rev (List.sort compare xs)
+
+(* Pad a string to a fixed width (from virt-top, but don't truncate). *)
+let pad width str =
+  let n = String.length str in
+  if n >= width then str
+  else (* if n < width then *) str ^ String.make (width-n) ' '