summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard W.M. Jones <rjones@redhat.com>2010-11-03 22:11:22 +0000
committerRichard W.M. Jones <rjones@redhat.com>2010-11-03 22:12:05 +0000
commit19ea54b3f488755731ffc079519d6011dade9e5c (patch)
treec38a092bbb131035de90dcc9b98333484913f792
parentece3b30e4957b2d1d02377a82afb132e8061804d (diff)
downloadlibguestfs-19ea54b3f488755731ffc079519d6011dade9e5c.tar.gz
libguestfs-19ea54b3f488755731ffc079519d6011dade9e5c.tar.xz
libguestfs-19ea54b3f488755731ffc079519d6011dade9e5c.zip
docs: Indent *_va and *_argv functions correctly.
This fixes commit f661db2c393d1b7e4211c55682b7fac82a70e36d.
-rw-r--r--generator/generator_c.ml14
1 files changed, 7 insertions, 7 deletions
diff --git a/generator/generator_c.ml b/generator/generator_c.ml
index ca14d142..13040f0b 100644
--- a/generator/generator_c.ml
+++ b/generator/generator_c.ml
@@ -84,9 +84,11 @@ let rec generate_prototype ?(extern = true) ?(static = false)
let next () =
if !comma then (
if single_line then pr ", "
- else
- pr ",\n%s%s"
- indent (spaces (String.length prefix + String.length name + 2))
+ else (
+ let namelen = String.length prefix + String.length name +
+ String.length suffix + 2 in
+ pr ",\n%s%s" indent (spaces namelen)
+ )
);
comma := true
in
@@ -256,16 +258,14 @@ L</KEYS AND PASSPHRASES> for more information.\n\n";
(* Handling of optional argument variants. *)
if optargs <> [] then (
pr "=head2 %s_va\n\n" name;
- pr " ";
- generate_prototype ~extern:false ~handle:"g"
+ generate_prototype ~extern:false ~indent:" " ~handle:"g"
~prefix:"guestfs_" ~suffix:"_va" ~optarg_proto:VA
shortname style;
pr "\n\n";
pr "This is the \"va_list variant\" of L</%s>.\n\n" name;
pr "See L</CALLS WITH OPTIONAL ARGUMENTS>.\n\n";
pr "=head2 %s_argv\n\n" name;
- pr " ";
- generate_prototype ~extern:false ~handle:"g"
+ generate_prototype ~extern:false ~indent:" " ~handle:"g"
~prefix:"guestfs_" ~suffix:"_argv" ~optarg_proto:Argv
shortname style;
pr "\n\n";