diff options
author | Richard Jones <rjones@redhat.com> | 2009-04-07 14:55:25 +0100 |
---|---|---|
committer | Richard Jones <rjones@redhat.com> | 2009-04-07 14:55:25 +0100 |
commit | 21ba59ce3cbc594ce9c7aeecd4dadb8430e4042d (patch) | |
tree | ce105adcb3c81e91e2c64eb0ccf6d822a1c7ca1a /src | |
parent | bccbfe5ab55c8aa5bbb0fb6e209936ff1359605a (diff) | |
download | libguestfs-21ba59ce3cbc594ce9c7aeecd4dadb8430e4042d.tar.gz libguestfs-21ba59ce3cbc594ce9c7aeecd4dadb8430e4042d.tar.xz libguestfs-21ba59ce3cbc594ce9c7aeecd4dadb8430e4042d.zip |
Added guestfish(1) manpage.
Diffstat (limited to 'src')
-rwxr-xr-x | src/generator.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/generator.ml b/src/generator.ml index 5aaea82e..427c9df2 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -1249,6 +1249,22 @@ FTP." pr "}\n"; pr "\n" +(* Generate the POD documentation for guestfish. *) +and generate_fish_actions_pod () = + List.iter ( + fun (name, style, _, _, _, longdesc) -> + let name = replace name '_' '-' in + pr "=head2 %s\n\n" name; + pr " %s" name; + iter_args ( + function + | String n -> pr " %s" n + ) (snd style); + pr "\n"; + pr "\n"; + pr "%s\n\n" longdesc + ) sorted_functions + (* Generate a C function prototype. *) and generate_prototype ?(extern = true) ?(static = false) ?(semicolon = true) ?(single_line = false) ?(newline = false) ?(in_daemon = false) @@ -1355,4 +1371,8 @@ let () = let close = output_to "guestfs-actions.pod" in generate_actions_pod (); + close (); + + let close = output_to "guestfish-actions.pod" in + generate_fish_actions_pod (); close () |