gnome-perl-introspection r41 - trunk/Glib-Object-Introspection/xs

[tsch svn gnome org]

Author: tsch
Date: Sun Nov  9 14:28:44 2008
New Revision: 41
URL: http://svn.gnome.org/viewvc/gnome-perl-introspection?rev=41&view=rev

Log:
Wrap g_enum_info_get_values.


Modified:
   trunk/Glib-Object-Introspection/xs/IdlEnumInfo.xs

Modified: trunk/Glib-Object-Introspection/xs/IdlEnumInfo.xs
==============================================================================
--- trunk/Glib-Object-Introspection/xs/IdlEnumInfo.xs	(original)
+++ trunk/Glib-Object-Introspection/xs/IdlEnumInfo.xs	Sun Nov  9 14:28:44 2008
@@ -34,3 +34,18 @@
         return INT2PTR (GIEnumInfo *, SvIV (SvRV (info)));
 
 }
+
+MODULE = Glib::Object::Introspection::EnumInfo	PACKAGE = Glib::Object::Introspection::EnumInfo	PREFIX = g_enum_info_
+
+# gint g_enum_info_get_n_values (GIEnumInfo *info);
+# GIValueInfo * g_enum_info_get_value (GIEnumInfo *info, gint n);
+void
+g_enum_info_get_values (GIEnumInfo *info)
+    PREINIT:
+	gint number, i;
+    PPCODE:
+	number = g_enum_info_get_n_values (info);
+	EXTEND (sp, number);
+	for (i = 0; i < number; i++)
+		PUSHs (sv_2mortal (newSVGIValueInfo (
+		  g_enum_info_get_value (info, i))));