[Pkg-libvirt-commits] [libguestfs] 10/72: ocaml: hide internal methods from apidocs

[Hilko Bengen]

This is an automated email from the git hooks/post-receive script.

bengen pushed a commit to branch master
in repository libguestfs.

commit ca8769052af56a68e06b7c67347ec9ce37096c4a
Author: Pino Toscano <ptoscano at redhat.com>
Date:   Thu Feb 12 15:07:58 2015 +0100

    ocaml: hide internal methods from apidocs
    
    (cherry picked from commit a0892aa29e92bc906a011faca84befe58f0265bc)
---
 generator/ocaml.ml | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/generator/ocaml.ml b/generator/ocaml.ml
index bd27f7a..80cc33c 100644
--- a/generator/ocaml.ml
+++ b/generator/ocaml.ml
@@ -144,9 +144,14 @@ end
     fun ({ name = name; style = style; deprecated_by = deprecated_by;
           non_c_aliases = non_c_aliases;
           shortdesc = shortdesc } as f) ->
+      let need_doc = is_documented f in
+
+      if not need_doc then
+        pr "(**/**)\n";
+
       generate_ocaml_prototype name style;
 
-      if is_documented f then (
+      if need_doc then (
         pr "(** %s" shortdesc;
         (match deprecated_by with
          | None -> ()
@@ -155,14 +160,18 @@ end
         );
         pr " *)\n";
       );
-      pr "\n";
 
       (* Aliases. *)
       List.iter (
         fun alias ->
-          generate_ocaml_prototype alias style;
           pr "\n";
+          generate_ocaml_prototype alias style;
       ) non_c_aliases;
+
+      if not need_doc then
+        pr "(**/**)\n";
+
+      pr "\n";
   ) external_functions_sorted;
 
   pr "\

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-libvirt/libguestfs.git