X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_utils.ml;h=425a57941f8e4668715d4dc876290152da6af9e9;hp=851122714ab2a73520fdbc90baacfb7410b84801;hb=f661db2c393d1b7e4211c55682b7fac82a70e36d;hpb=5d6a91844520d07f9477e2ddca4caf8f040ef8a1

diff --git a/generator/generator_utils.ml b/generator/generator_utils.ml
index 8511227..425a579 100644
--- a/generator/generator_utils.ml
+++ b/generator/generator_utils.ml
@@ -305,3 +305,12 @@ let pod2text ~width name longdesc =
 
 (* Compare two actions (for sorting). *)
 let action_compare (n1,_,_,_,_,_,_) (n2,_,_,_,_,_,_) = compare n1 n2
+
+let chars c n =
+  let str = String.create n in
+  for i = 0 to n-1 do
+    String.unsafe_set str i c
+  done;
+  str
+
+let spaces n = chars ' ' n