1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
/* -*- mode: c; indent-tabs-mode: t; c-basic-offset: 8; -*- */
static void
generic_interface_init (gpointer iface, gpointer data)
{
GIInterfaceInfo *info = data;
GIStructInfo *struct_info;
gint n, i;
struct_info = g_interface_info_get_iface_struct (info);
n = g_interface_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;
gchar *perl_method_name;
GPerlI11nPerlCallbackInfo *callback_info;
vfunc_info = g_interface_info_get_vfunc (info, i);
vfunc_name = g_base_info_get_name (vfunc_info);
/* FIXME: g_vfunc_info_get_offset does not seem to work here. */
field_info = get_field_info (struct_info, vfunc_name);
g_assert (field_info);
field_offset = g_field_info_get_offset (field_info);
field_type_info = g_field_info_get_type (field_info);
perl_method_name = g_ascii_strup (vfunc_name, -1);
callback_info = create_perl_callback_closure_for_named_sub (
field_type_info, perl_method_name);
dwarn ("installing vfunc %s as %s at offset %d (vs. %d) inside %p\n",
vfunc_name, perl_method_name,
field_offset, g_vfunc_info_get_offset (vfunc_info),
iface);
G_STRUCT_MEMBER (gpointer, iface, field_offset) = callback_info->closure;
g_base_info_unref (field_type_info);
g_base_info_unref (field_info);
g_base_info_unref (vfunc_info);
}
g_base_info_unref (struct_info);
}
static void
generic_interface_finalize (gpointer iface, gpointer data)
{
GIInterfaceInfo *info = data;
PERL_UNUSED_VAR (iface);
dwarn ("releasing interface info\n");
g_base_info_unref ((GIBaseInfo *) info);
}
|
