static void
store_objects_with_vfuncs (AV *objects_with_vfuncs, GIObjectInfo *info)
{
if (g_object_info_get_n_vfuncs (info) <= 0)
return;
av_push (objects_with_vfuncs,
newSVpv (g_base_info_get_name (info), 0));
}
static PyObject *
_get_vfuncs (PyGIBaseInfo *self, GIInfoType info_type)
{
gssize n_infos;
PyObject *infos;
gssize i;
switch (info_type) {
case GI_INFO_TYPE_INTERFACE:
n_infos = g_interface_info_get_n_vfuncs ( (GIInterfaceInfo *) self->info);
break;
case GI_INFO_TYPE_OBJECT:
n_infos = g_object_info_get_n_vfuncs ( (GIObjectInfo *) self->info);
break;
default:
g_assert_not_reached();
}
infos = PyTuple_New (n_infos);
if (infos == NULL) {
return NULL;
}
for (i = 0; i < n_infos; i++) {
GIBaseInfo *info;
PyObject *py_info;
switch (info_type) {
case GI_INFO_TYPE_INTERFACE:
info = (GIBaseInfo *) g_interface_info_get_vfunc ( (GIInterfaceInfo *) self->info, i);
break;
case GI_INFO_TYPE_OBJECT:
info = (GIBaseInfo *) g_object_info_get_vfunc ( (GIObjectInfo *) self->info, i);
break;
default:
g_assert_not_reached();
}
g_assert (info != NULL);
py_info = _pygi_info_new (info);
g_base_info_unref (info);
if (py_info == NULL) {
Py_CLEAR (infos);
break;
}
PyTuple_SET_ITEM (infos, i, py_info);
}
return infos;
}
{
if (g_object_info_get_n_vfuncs (info) <= 0)
return;
av_push (objects_with_vfuncs,
newSVpv (g_base_info_get_name (info), 0));
}
/* ------------------------------------------------------------------------- */
static void
generic_class_init (GIObjectInfo *info, const gchar *target_package, gpointer class)
{
GIStructInfo *struct_info;
gint n, i;
struct_info = g_object_info_get_class_struct (info);
n = g_object_info_get_n_vfuncs (info);
for (i = 0; i < n; i++) {
GIVFuncInfo *vfunc_info;
const gchar *vfunc_name;
GIFieldInfo *field_info;
gint field_offset;
GITypeInfo *field_type_info;
GIBaseInfo *field_interface_info;
gchar *perl_method_name;
GPerlI11nPerlCallbackInfo *callback_info;
vfunc_info = g_object_info_get_vfunc (info, i);
vfunc_name = g_base_info_get_name (vfunc_info);
perl_method_name = g_ascii_strup (vfunc_name, -1);
if (is_forbidden_sub_name (perl_method_name)) {
