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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
#include "mono-glue.h"
#include "mono-helper.h"
#include "debug.h"
#include "blist.h"
#include "signals.h"
#include "value.h"
typedef struct {
MonoObject *func;
char *signal;
PurpleValue **values;
PurpleValue *ret_value;
int num_vals;
} SignalData;
static PurpleCallback get_callback(SignalData *sig_data);
static gpointer dispatch_callback(SignalData *sig_data, int num_vals, ...)
{
MonoArray *array;
MonoObject *obj;
int i;
gpointer meth_args[1];
gpointer purple_obj;
va_list args;
va_start(args, num_vals);
array = mono_array_new(ml_get_domain(), mono_get_object_class(), num_vals);
for (i = 0; i < num_vals; i++) {
if (purple_value_get_type(sig_data->values[i]) == PURPLE_TYPE_SUBTYPE) {
purple_obj = va_arg(args, gpointer);
obj = ml_object_from_purple_subtype(purple_value_get_subtype(sig_data->values[i]), purple_obj);
mono_array_set(array, MonoObject*, i, obj);
} else {
purple_obj = va_arg(args, gpointer);
obj = ml_object_from_purple_type(purple_value_get_type(sig_data->values[i]), purple_obj);
mono_array_set(array, MonoObject*, i, obj);
}
}
va_end(args);
meth_args[0] = array;
return ml_delegate_invoke(sig_data->func, meth_args);
}
static void cb_void__pointer(void *arg1, void *data)
{
dispatch_callback((SignalData*)data, ((SignalData*)data)->num_vals, arg1);
}
static void cb_void__pointer_pointer_pointer(void *arg1, void *arg2, void *arg3, void *data)
{
dispatch_callback((SignalData*)data, ((SignalData*)data)->num_vals, arg1, arg2, arg3);
}
int purple_signal_connect_glue(MonoObject* h, MonoObject *plugin, MonoString *signal, MonoObject *func)
{
char *sig;
void **instance = NULL;
SignalData *sig_data;
PurpleMonoPlugin *mplug;
MonoClass *klass;
sig = mono_string_to_utf8(signal);
purple_debug(PURPLE_DEBUG_INFO, "mono", "connecting signal: %s\n", sig);
instance = (void*)mono_object_unbox(h);
sig_data = g_new0(SignalData, 1);
sig_data->func = func;
sig_data->signal = sig;
purple_signal_get_values(*instance, sig, &sig_data->ret_value, &sig_data->num_vals, &sig_data->values);
klass = mono_object_get_class(plugin);
mplug = ml_find_plugin_by_class(klass);
mplug->signal_data = g_list_append(mplug->signal_data, (gpointer)sig_data);
return purple_signal_connect(*instance, sig, (gpointer)klass, get_callback(sig_data), (gpointer)sig_data);
}
static int determine_index(PurpleType type)
{
switch (type) {
case PURPLE_TYPE_SUBTYPE:
case PURPLE_TYPE_STRING:
case PURPLE_TYPE_OBJECT:
case PURPLE_TYPE_POINTER:
case PURPLE_TYPE_BOXED:
return 1;
break;
default:
return type;
break;
}
}
static gpointer callbacks[]= {
NULL,
cb_void__pointer,
NULL,
cb_void__pointer_pointer_pointer
};
static int callbacks_array_size = sizeof(callbacks) / sizeof(PurpleCallback);
static PurpleCallback get_callback(SignalData *sig_data)
{
int i, index = 0;
if (sig_data->ret_value == NULL)
index = 0;
else
index = determine_index(purple_value_get_type(sig_data->ret_value));
for (i = 0; i < sig_data->num_vals; i++) {
index += determine_index(purple_value_get_type(sig_data->values[i]));
}
purple_debug(PURPLE_DEBUG_INFO, "mono", "get_callback index = %d\n", index);
if (index >= callbacks_array_size || callbacks[index] == NULL) {
purple_debug(PURPLE_DEBUG_ERROR, "mono", "couldn't find a callback function for signal: %s\n", sig_data->signal);
return NULL;
}
purple_debug(PURPLE_DEBUG_MISC, "mono", "using callback at index: %d\n", index);
return PURPLE_CALLBACK(callbacks[index]);
}
|
