[gobject-introspection] scanner: support stability tag

[Evan Nemerson <evann src gnome org>]

commit 368d72e61740cb318647296ff39495ad32fbe4d3
Author: Evan Nemerson <evan coeus-group com>
Date:   Tue Jul 10 13:59:23 2012 -0700

    scanner: support stability tag
    
    https://bugzilla.gnome.org/show_bug.cgi?id=679160

 giscanner/ast.py                       |    1 +
 giscanner/girwriter.py                 |    2 ++
 giscanner/maintransformer.py           |   12 +++++++++++-
 tests/scanner/Regress-1.0-expected.gir |   10 ++++++++++
 tests/scanner/regress.c                |   12 ++++++++++++
 tests/scanner/regress.h                |    3 +++
 6 files changed, 39 insertions(+), 1 deletions(-)
---
diff --git a/giscanner/ast.py b/giscanner/ast.py
index 6945d60..7fa75ed 100644
--- a/giscanner/ast.py
+++ b/giscanner/ast.py
@@ -480,6 +480,7 @@ properties."""
         self.skip = False
         self.introspectable = True
         self.attributes = [] # (key, value)*
+        self.stability = None
         self.deprecated = None
         self.deprecated_version = None
         self.doc = None
diff --git a/giscanner/girwriter.py b/giscanner/girwriter.py
index cb13d21..0f5c700 100644
--- a/giscanner/girwriter.py
+++ b/giscanner/girwriter.py
@@ -145,6 +145,8 @@ and/or use gtk-doc annotations. ''')
             if node.deprecated_version:
                 attrs.append(('deprecated-version',
                               node.deprecated_version))
+        if node.stability:
+            attrs.append(('stability', node.stability))
 
     def _append_throws(self, func, attrs):
         if func.throws:
diff --git a/giscanner/maintransformer.py b/giscanner/maintransformer.py
index 8723875..77a66d2 100644
--- a/giscanner/maintransformer.py
+++ b/giscanner/maintransformer.py
@@ -24,7 +24,8 @@ from . import message
 from .annotationparser import (TAG_VFUNC, TAG_SINCE, TAG_DEPRECATED, TAG_RETURNS,
                                TAG_ATTRIBUTES, TAG_RENAME_TO, TAG_TYPE,
                                TAG_UNREF_FUNC, TAG_REF_FUNC, TAG_SET_VALUE_FUNC,
-                               TAG_GET_VALUE_FUNC, TAG_VALUE, TAG_TRANSFER)
+                               TAG_GET_VALUE_FUNC, TAG_VALUE, TAG_TRANSFER,
+                               TAG_STABILITY)
 from .annotationparser import (OPT_ALLOW_NONE, OPT_ARRAY, OPT_ATTRIBUTE,
                                OPT_ELEMENT_TYPE, OPT_IN, OPT_INOUT,
                                OPT_INOUT_ALT, OPT_OUT, OPT_SCOPE,
@@ -617,6 +618,15 @@ usage is void (*_gtk_reserved1)(void);"""
             if version is not None:
                 node.deprecated_version = version
 
+        stability_tag = block.get_tag(TAG_STABILITY)
+        if stability_tag is not None:
+            stability = stability_tag.value.capitalize()
+            if stability in ["Stable", "Unstable", "Private", "Internal"]:
+                node.stability = stability
+            else:
+                message.warn('unknown value "%s" for Stability tag' % (
+                    stability_tag.value), stability_tag.position)
+
         annos_tag = block.get_tag(TAG_ATTRIBUTES)
         if annos_tag is not None:
             for key, value in annos_tag.options.iteritems():
diff --git a/tests/scanner/Regress-1.0-expected.gir b/tests/scanner/Regress-1.0-expected.gir
index 631dd98..e5d8b5a 100644
--- a/tests/scanner/Regress-1.0-expected.gir
+++ b/tests/scanner/Regress-1.0-expected.gir
@@ -3482,5 +3482,15 @@ What we're testing here is that the scanner ignores the @a nested inside XML.</d
         </parameter>
       </parameters>
     </function>
+    <function name="test_versioning"
+              c:identifier="regress_test_versioning"
+              version="1.32.1"
+              deprecated="Use foobar instead"
+              deprecated-version="1.33.3"
+              stability="Unstable">
+      <return-value transfer-ownership="none">
+        <type name="none" c:type="void"/>
+      </return-value>
+    </function>
   </namespace>
 </repository>
diff --git a/tests/scanner/regress.c b/tests/scanner/regress.c
index 6ba2bdf..1f58d19 100644
--- a/tests/scanner/regress.c
+++ b/tests/scanner/regress.c
@@ -3812,3 +3812,15 @@ regress_has_parameter_named_attrs (int        foo,
                                    gpointer   attributes)
 {
 }
+
+/**
+ * regress_test_versioning:
+ *
+ * Since: 1.32.1
+ * Deprecated: 1.33.3: Use foobar instead
+ * Stability: Unstable
+ */
+void
+regress_test_versioning ()
+{
+}
diff --git a/tests/scanner/regress.h b/tests/scanner/regress.h
index fd937cd..112d935 100644
--- a/tests/scanner/regress.h
+++ b/tests/scanner/regress.h
@@ -137,6 +137,9 @@ cairo_surface_t *regress_test_cairo_surface_full_return (void);
 void regress_test_cairo_surface_none_in (cairo_surface_t *surface);
 void regress_test_cairo_surface_full_out (cairo_surface_t **surface);
 
+/* versioning (deprecated, since, stability) */
+void regress_test_versioning ();
+
 GVariant *regress_test_gvariant_i (void);
 GVariant *regress_test_gvariant_s (void);
 GVariant *regress_test_gvariant_asv (void);