[Pkg-libvirt-commits] [libguestfs] 08/72: gobject: generate deprecation markers

[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 2f86c9fcbfa66e8068214496c2f74901f082e7bd
Author: Pino Toscano <ptoscano at redhat.com>
Date:   Thu Feb 12 10:32:25 2015 +0100

    gobject: generate deprecation markers
    
    Generate proper deprecation markers for API documentation and
    introspection annotations.
    
    (cherry picked from commit 8c91a68b804f8385b6f26a3b0343d6e351447cd6)
---
 generator/gobject.ml | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/generator/gobject.ml b/generator/gobject.ml
index 661fa48..93b8944 100644
--- a/generator/gobject.ml
+++ b/generator/gobject.ml
@@ -961,7 +961,8 @@ guestfs_session_close (GuestfsSession *session, GError **err)
     fun ({ name = name; style = (ret, args, optargs as style);
            cancellable = cancellable; c_function = c_function;
            c_optarg_prefix = c_optarg_prefix;
-           shortdesc = shortdesc; longdesc = longdesc } as f) ->
+           shortdesc = shortdesc; longdesc = longdesc;
+           deprecated_by = deprecated_by } as f) ->
       pr "\n";
 
       let longdesc = Str.global_substitute urls (
@@ -1103,6 +1104,11 @@ guestfs_session_close (GuestfsSession *session, GError **err)
          pr "(transfer full) (array zero-terminated=1) (element-type Guestfs%s): an array of %s objects, or NULL on error" name name
       );
       pr "\n";
+      (match deprecated_by with
+      | None -> ()
+      | Some alt ->
+        pr " * Deprecated: In new code, use guestfs_session_%s() instead\n" alt
+      );
       pr " */\n";
 
       (* The function body *)

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