X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=src%2Fgenerator.ml;h=427c9df27b44daf54eba2f36941552771ab58201;hp=5aaea82e15d51df718cc8b3037bcb6107966efd2;hb=21ba59ce3cbc594ce9c7aeecd4dadb8430e4042d;hpb=af92796e0308b31c9a6167e1c7bde6510ca409d7;ds=sidebyside

diff --git a/src/generator.ml b/src/generator.ml
index 5aaea82..427c9df 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 ()