Mercurial > pidgin.yaz

comparison src/module.c @ 2393:a7ecfd3f7714

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 2406] Arkadiusz Miskiewicz\'s Gadu-Gadu plugin. I was able to figure out enough polish to be able to download Gadu-Gadu, create an account, and test the plugin. Imagine my shock when I got my info and it said I was a woman. Whoops. Also splitting plugins.c so that non-gtk stuff is in modules.c. gaim-core is almost ready for protocol implantaion. Also fixing an IRC bug. Also patiently waiting for anoncvs_gaim's lock in /cvsroot/gaim/gaim/pixmaps committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Sat, 29 Sep 2001 23:06:30 +0000
parents
children 6e637ad18494
comparison
equal deleted inserted replaced
2392:9965c0bbdb7c 2393:a7ecfd3f7714
1 /*
2 * gaim
3 *
4 * Copyright (C) 1998-1999, Mark Spencer <markster@marko.net>
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 *
20 * ----------------
21 * The Plug-in plug
22 *
23 * Plugin support is currently being maintained by Mike Saraf
24 * msaraf@dwc.edu
25 *
26 * Well, I didn't see any work done on it for a while, so I'm going to try
27 * my hand at it. - Eric warmenhoven@yahoo.com
28 *
29 * Mike is my roomate. I can assure you that he's lazy :-P -- Rob rob@marko.net
30 *
31 */
32
33 #ifdef HAVE_CONFIG_H
34 #include <config.h>
35 #endif
36
37 #ifdef GAIM_PLUGINS
38
39 #include <string.h>
40 #include <sys/time.h>
41
42 #include <sys/types.h>
43 #include <sys/stat.h>
44
45 #include <unistd.h>
46 #include <stdio.h>
47 #include <stdlib.h>
48 #include "gaim.h"
49
50 /* ------------------ Global Variables ----------------------- */
51
52 GList *plugins = NULL;
53 GList *callbacks = NULL;
54
55 /* --------------- Function Declarations --------------------- */
56
57 struct gaim_plugin * load_plugin(char *);
58 void unload_plugin(struct gaim_plugin *p);
59 struct gaim_plugin *reload_plugin(struct gaim_plugin *p);
60
61 void gaim_signal_connect(GModule *, enum gaim_event, void *, void *);
62 void gaim_signal_disconnect(GModule *, enum gaim_event, void *);
63 void gaim_plugin_unload(GModule *);
64
65 /* --------------- Static Function Declarations ------------- */
66
67 static void plugin_remove_callbacks(GModule *);
68
69 /* ------------------ Code Below ---------------------------- */
70
71 struct gaim_plugin *load_plugin(char *filename)
72 {
73 struct gaim_plugin *plug;
74 GList *c = plugins;
75 char *(*gaim_plugin_init)(GModule *);
76 char *(*cfunc)();
77 char *error;
78 char *retval;
79
80 if (!g_module_supported())
81 return NULL;
82 if (filename && !strlen(filename))
83 return NULL;
84
85 while (filename && c) {
86 plug = (struct gaim_plugin *)c->data;
87 if (!strcmp(filename, g_module_name(plug->handle))) {
88 /* just need to reload plugin */
89 return reload_plugin(plug);
90 } else
91 c = g_list_next(c);
92 }
93 plug = g_malloc(sizeof *plug);
94
95 debug_printf("Loading %s\n", filename);
96 plug->handle = g_module_open(filename, 0);
97 if (!plug->handle) {
98 error = (char *)g_module_error();
99 do_error_dialog(error, _("Plugin Error"));
100 g_free(plug);
101 return NULL;
102 }
103
104 if (!g_module_symbol(plug->handle, "gaim_plugin_init", (gpointer *)&gaim_plugin_init)) {
105 do_error_dialog(g_module_error(), _("Plugin Error"));
106 g_module_close(plug->handle);
107 g_free(plug);
108 return NULL;
109 }
110
111 retval = (*gaim_plugin_init)(plug->handle);
112 debug_printf("loaded plugin returned %s\n", retval ? retval : "NULL");
113 if (retval) {
114 plugin_remove_callbacks(plug->handle);
115 do_error_dialog(retval, _("Plugin Error"));
116 g_module_close(plug->handle);
117 g_free(plug);
118 return NULL;
119 }
120
121 plugins = g_list_append(plugins, plug);
122
123 if (g_module_symbol(plug->handle, "name", (gpointer *)&cfunc)) {
124 plug->name = (*cfunc)();
125 } else {
126 plug->name = NULL;
127 }
128
129 if (g_module_symbol(plug->handle, "description", (gpointer *)&cfunc))
130 plug->description = (*cfunc)();
131 else
132 plug->description = NULL;
133
134 save_prefs();
135 return plug;
136 }
137
138 static void unload_gaim_plugin(struct gaim_plugin *p)
139 {
140 void (*gaim_plugin_remove)();
141
142 debug_printf("Unloading %s\n", g_module_name(p->handle));
143
144 /* Attempt to call the plugin's remove function (if there) */
145 if (g_module_symbol(p->handle, "gaim_plugin_remove", (gpointer *)&gaim_plugin_remove))
146 (*gaim_plugin_remove)();
147
148 plugin_remove_callbacks(p->handle);
149
150 plugins = g_list_remove(plugins, p);
151 g_free(p);
152 save_prefs();
153 }
154
155 void unload_plugin(struct gaim_plugin *p)
156 {
157 GModule *handle = p->handle;
158 unload_gaim_plugin(p);
159 g_module_close(handle);
160 }
161
162 static gboolean unload_timeout(gpointer handle)
163 {
164 g_module_close(handle);
165 return FALSE;
166 }
167
168 void gaim_plugin_unload(GModule *handle)
169 {
170 g_timeout_add(5000, unload_timeout, handle);
171 }
172
173 /* Do unload/load cycle of plugin. */
174 struct gaim_plugin *reload_plugin(struct gaim_plugin *p)
175 {
176 char file[1024];
177 GModule *handle = p->handle;
178
179 strncpy(file, g_module_name(handle), sizeof(file));
180 file[sizeof(file) - 1] = '\0';
181
182 debug_printf("Reloading %s\n", file);
183
184 /* Unload */
185 unload_plugin(p);
186
187 /* Load */
188 return load_plugin(file);
189 }
190
191 /* Remove all callbacks associated with plugin handle */
192 static void plugin_remove_callbacks(GModule *handle)
193 {
194 GList *c = callbacks;
195 struct gaim_callback *g;
196
197 debug_printf("%d callbacks to search\n", g_list_length(callbacks));
198
199 while (c) {
200 g = (struct gaim_callback *)c->data;
201 if (g->handle == handle) {
202 c = g_list_next(c);
203 callbacks = g_list_remove(callbacks, (gpointer)g);
204 debug_printf("Removing callback, %d remain\n", g_list_length(callbacks));
205 } else
206 c = g_list_next(c);
207 }
208 }
209
210 void gaim_signal_connect(GModule *handle, enum gaim_event which, void *func, void *data)
211 {
212 struct gaim_callback *call = g_new0(struct gaim_callback, 1);
213 call->handle = handle;
214 call->event = which;
215 call->function = func;
216 call->data = data;
217
218 callbacks = g_list_append(callbacks, call);
219 debug_printf("Adding callback %d\n", g_list_length(callbacks));
220 }
221
222 void gaim_signal_disconnect(GModule *handle, enum gaim_event which, void *func)
223 {
224 GList *c = callbacks;
225 struct gaim_callback *g = NULL;
226
227 while (c) {
228 g = (struct gaim_callback *)c->data;
229 if (handle == g->handle && func == g->function) {
230 callbacks = g_list_remove(callbacks, c->data);
231 g_free(g);
232 c = callbacks;
233 if (c == NULL)
234 break;
235 }
236 c = g_list_next(c);
237 }
238 }
239
240 #endif /* GAIM_PLUGINS */
241
242 static char *event_name(enum gaim_event event)
243 {
244 static char buf[128];
245 switch (event) {
246 case event_signon:
247 sprintf(buf, "event_signon");
248 break;
249 case event_signoff:
250 sprintf(buf, "event_signoff");
251 break;
252 case event_away:
253 sprintf(buf, "event_away");
254 break;
255 case event_back:
256 sprintf(buf, "event_back");
257 break;
258 case event_im_recv:
259 sprintf(buf, "event_im_recv");
260 break;
261 case event_im_send:
262 sprintf(buf, "event_im_send");
263 break;
264 case event_buddy_signon:
265 sprintf(buf, "event_buddy_signon");
266 break;
267 case event_buddy_signoff:
268 sprintf(buf, "event_buddy_signoff");
269 break;
270 case event_buddy_away:
271 sprintf(buf, "event_buddy_away");
272 break;
273 case event_buddy_back:
274 sprintf(buf, "event_buddy_back");
275 break;
276 case event_buddy_idle:
277 sprintf(buf, "event_buddy_idle");
278 break;
279 case event_buddy_unidle:
280 sprintf(buf, "event_buddy_unidle");
281 break;
282 case event_blist_update:
283 sprintf(buf, "event_blist_update");
284 break;
285 case event_chat_invited:
286 sprintf(buf, "event_chat_invited");
287 break;
288 case event_chat_join:
289 sprintf(buf, "event_chat_join");
290 break;
291 case event_chat_leave:
292 sprintf(buf, "event_chat_leave");
293 break;
294 case event_chat_buddy_join:
295 sprintf(buf, "event_chat_buddy_join");
296 break;
297 case event_chat_buddy_leave:
298 sprintf(buf, "event_chat_buddy_leave");
299 break;
300 case event_chat_recv:
301 sprintf(buf, "event_chat_recv");
302 break;
303 case event_chat_send:
304 sprintf(buf, "event_chat_send");
305 break;
306 case event_warned:
307 sprintf(buf, "event_warned");
308 break;
309 case event_error:
310 sprintf(buf, "event_error");
311 break;
312 case event_quit:
313 sprintf(buf, "event_quit");
314 break;
315 case event_new_conversation:
316 sprintf(buf, "event_new_conversation");
317 break;
318 case event_set_info:
319 sprintf(buf, "event_set_info");
320 break;
321 case event_draw_menu:
322 sprintf(buf, "event_draw_menu");
323 break;
324 case event_im_displayed_sent:
325 sprintf(buf, "event_im_displayed_sent");
326 break;
327 case event_im_displayed_rcvd:
328 sprintf(buf, "event_im_displayed_rcvd");
329 break;
330 case event_chat_send_invite:
331 sprintf(buf, "event_chat_send_invite");
332 break;
333 default:
334 sprintf(buf, "event_unknown");
335 break;
336 }
337 return buf;
338 }
339
340 int plugin_event(enum gaim_event event, void *arg1, void *arg2, void *arg3, void *arg4)
341 {
342 #ifdef USE_PERL
343 char buf[BUF_LONG];
344 #endif
345 #ifdef GAIM_PLUGINS
346 GList *c = callbacks;
347 struct gaim_callback *g;
348
349 while (c) {
350 void (*zero)(void *);
351 void (*one)(void *, void *);
352 void (*two)(void *, void *, void *);
353 void (*three)(void *, void *, void *, void *);
354 void (*four)(void *, void *, void *, void *, void *);
355
356 g = (struct gaim_callback *)c->data;
357 if (g->event == event && g->function !=NULL) {
358 switch (event) {
359
360 /* no args */
361 case event_blist_update:
362 case event_quit:
363 zero = g->function;
364 (*zero)(g->data);
365 break;
366
367 /* one arg */
368 case event_signon:
369 case event_signoff:
370 case event_new_conversation:
371 case event_error:
372 one = g->function;
373 (*one)(arg1, g->data);
374 break;
375
376 /* two args */
377 case event_buddy_signon:
378 case event_buddy_signoff:
379 case event_buddy_away:
380 case event_buddy_back:
381 case event_buddy_idle:
382 case event_buddy_unidle:
383 case event_chat_leave:
384 case event_set_info:
385 case event_draw_menu:
386 two = g->function;
387 (*two)(arg1, arg2, g->data);
388 break;
389
390 /* three args */
391 case event_im_send:
392 case event_im_displayed_sent:
393 case event_chat_join:
394 case event_chat_buddy_join:
395 case event_chat_buddy_leave:
396 case event_chat_send:
397 case event_away:
398 case event_back:
399 case event_warned:
400 three = g->function;
401 (*three)(arg1, arg2, arg3, g->data);
402 break;
403
404 /* four args */
405 case event_im_recv:
406 case event_chat_recv:
407 case event_im_displayed_rcvd:
408 case event_chat_send_invite:
409 case event_chat_invited:
410 four = g->function;
411 (*four)(arg1, arg2, arg3, arg4, g->data);
412 break;
413
414 default:
415 debug_printf("unknown event %d\n", event);
416 break;
417 }
418 }
419 c = c->next;
420 }
421 #endif /* GAIM_PLUGINS */
422 #ifdef USE_PERL
423 switch (event) {
424 case event_signon:
425 case event_signoff:
426 case event_away:
427 case event_back:
428 g_snprintf(buf, sizeof buf, "%lu", (unsigned long)arg1);
429 break;
430 case event_im_recv:
431 g_snprintf(buf, sizeof buf, "%lu \"%s\" %s", (unsigned long)arg1,
432 *(char **)arg2 ? *(char **)arg2 : "(null)",
433 *(char **)arg3 ? *(char **)arg3 : "(null)");
434 break;
435 case event_im_send:
436 g_snprintf(buf, sizeof buf, "%lu \"%s\" %s", (unsigned long)arg1,
437 (char *)arg2, *(char **)arg3 ? *(char **)arg3 : "(null)");
438 break;
439 case event_buddy_signon:
440 case event_buddy_signoff:
441 case event_set_info:
442 case event_buddy_away:
443 case event_buddy_back:
444 case event_buddy_idle:
445 case event_buddy_unidle:
446 g_snprintf(buf, sizeof buf, "%lu \"%s\"", (unsigned long)arg1, (char *)arg2);
447 break;
448 case event_chat_invited:
449 g_snprintf(buf, sizeof buf, "%lu \"%s\" \"%s\" %s", (unsigned long)arg1,
450 (char *)arg2, (char *)arg3, arg4 ? (char *)arg4 : "");
451 break;
452 case event_chat_join:
453 case event_chat_buddy_join:
454 case event_chat_buddy_leave:
455 g_snprintf(buf, sizeof buf, "%lu %d \"%s\"", (unsigned long)arg1,
456 (int)arg2, (char *)arg3);
457 break;
458 case event_chat_leave:
459 g_snprintf(buf, sizeof buf, "%lu %d", (unsigned long)arg1, (int)arg2);
460 break;
461 case event_chat_recv:
462 g_snprintf(buf, sizeof buf, "%lu %d \"%s\" %s", (unsigned long)arg1,
463 (int)arg2, (char *)arg3, (char *)arg4 ? (char *)arg4 : "(null)");
464 break;
465 case event_chat_send_invite:
466 g_snprintf(buf, sizeof buf, "%lu %d \"%s\" %s", (unsigned long)arg1,
467 (int)arg2, (char *)arg3, *(char **)arg4 ? *(char **)arg4 : "(null)");
468 break;
469 case event_chat_send:
470 g_snprintf(buf, sizeof buf, "%lu %d %s", (unsigned long)arg1, (int)arg2,
471 *(char **)arg3 ? *(char **)arg3 : "(null)");
472 break;
473 case event_warned:
474 g_snprintf(buf, sizeof buf, "%lu \"%s\" %d", (unsigned long)arg1,
475 arg2 ? (char *)arg2 : "", (int)arg3);
476 break;
477 case event_quit:
478 buf[0] = 0;
479 break;
480 case event_new_conversation:
481 g_snprintf(buf, sizeof buf, "\"%s\"", (char *)arg1);
482 break;
483 case event_im_displayed_sent:
484 g_snprintf(buf, sizeof buf, "%lu \"%s\" %s", (unsigned long)arg1,
485 (char *)arg2, *(char **)arg3 ? *(char **)arg3 : "(null)");
486 break;
487 case event_im_displayed_rcvd:
488 g_snprintf(buf, sizeof buf, "%lu \"%s\" %s", (unsigned long)arg1,
489 (char *)arg2, (char *)arg3 ? (char *)arg3 : "(null)");
490 break;
491 default:
492 return 0;
493 }
494 return perl_event(event_name(event), buf);
495 #else
496 return 0;
497 #endif
498 }
499
500 /* Calls the gaim_plugin_remove function in any loaded plugin that has one */
501 #ifdef GAIM_PLUGINS
502 void remove_all_plugins()
503 {
504 GList *c = plugins;
505 struct gaim_plugin *p;
506 void (*gaim_plugin_remove)();
507
508 while (c) {
509 p = (struct gaim_plugin *)c->data;
510 if (g_module_symbol(p->handle, "gaim_plugin_remove", (gpointer *)&gaim_plugin_remove))
511 (*gaim_plugin_remove)();
512 g_free(p);
513 c = c->next;
514 }
515 }
516 #endif