gee
oldstatus
2005-09-19, Nathan Walp
* @file tcl_signals.c Gaim Tcl signal API * Copyright (C) 2003 Ethan Blanton <eblanton@cs.purdue.edu> * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #include "conversation.h" static GList *tcl_callbacks; static void *tcl_signal_callback(va_list args, struct tcl_signal_handler *handler); void tcl_signal_handler_free(struct tcl_signal_handler *handler) if (handler->argnames != NULL) { for (i = 0; i < handler->nnames; i++) g_free(handler->argnames[i]); g_free(handler->argnames); Tcl_DecrRefCount(handler->proc); void tcl_signal_cleanup(Tcl_Interp *interp) struct tcl_signal_handler *handler; for (cur = tcl_callbacks; cur != NULL; cur = g_list_next(cur)) { if (handler->interp == interp) { tcl_signal_handler_free(handler); tcl_callbacks = g_list_remove_all(tcl_callbacks, NULL); gboolean tcl_signal_connect(struct tcl_signal_handler *handler) gaim_signal_get_values(handler->instance, handler->signal, &handler->returntype, &handler->nargs, &handler->argtypes); if (handler->nargs != handler->nnames) tcl_signal_disconnect(handler->interp, handler->signal, handler->interp); if (!gaim_signal_connect_vargs(handler->instance, handler->signal, (void *)handler->interp, GAIM_CALLBACK(tcl_signal_callback), (void *)handler)) tcl_callbacks = g_list_append(tcl_callbacks, (gpointer)handler); void tcl_signal_disconnect(void *instance, const char *signal, Tcl_Interp *interp) struct tcl_signal_handler *handler; for (cur = tcl_callbacks; cur != NULL; cur = g_list_next(cur)) { if (handler->interp == interp && handler->instance == instance && !strcmp(signal, handler->signal)) { gaim_signal_disconnect(instance, signal, handler->interp, GAIM_CALLBACK(tcl_signal_callback)); tcl_signal_handler_free(handler); tcl_callbacks = g_list_remove_all(tcl_callbacks, NULL); static void *tcl_signal_callback(va_list args, struct tcl_signal_handler *handler) vars = g_new0(struct var, handler->nargs); val = g_string_sized_new(32); name = g_string_sized_new(32); for (i = 0; i < handler->nargs; i++) { g_string_printf(name, "::gaim::_callback::%s", handler->argnames[i]); switch(gaim_value_get_type(handler->argtypes[i])) { default: /* Yes, at the top */ case GAIM_TYPE_UNKNOWN: /* What? I guess just pass the word ... */ /* treat this as a pointer, but complain first */ gaim_debug(GAIM_DEBUG_ERROR, "tcl", "unknown GaimValue type %d\n", gaim_value_get_type(handler->argtypes[i])); /* These are all "pointer" types to us */ if (gaim_value_is_outgoing(handler->argtypes[i])) { vars[i].val = va_arg(args, void **); Tcl_LinkVar(handler->interp, name->str, vars[i].val, TCL_LINK_INT); vars[i].val = va_arg(args, void *); Tcl_LinkVar(handler->interp, name->str, (char *)&vars[i].val, TCL_LINK_INT|TCL_LINK_READ_ONLY); if (gaim_value_is_outgoing(handler->argtypes[i])) { vars[i].val = va_arg(args, gboolean *); Tcl_LinkVar(handler->interp, name->str, vars[i].val, TCL_LINK_BOOLEAN); vars[i].val = (void *)va_arg(args, gboolean); Tcl_LinkVar(handler->interp, name->str, (char *)&vars[i].val, TCL_LINK_BOOLEAN|TCL_LINK_READ_ONLY); /* These next two are totally bogus */ /* I should really cast these individually to * preserve as much information as possible ... if (gaim_value_is_outgoing(handler->argtypes[i])) { vars[i].val = (void *)va_arg(args, int *); Tcl_LinkVar(handler->interp, name->str, vars[i].val, TCL_LINK_INT); vars[i].val = (void *)va_arg(args, int); Tcl_LinkVar(handler->interp, name->str, (char *)&vars[i].val, TCL_LINK_INT|TCL_LINK_READ_ONLY); if (gaim_value_is_outgoing(handler->argtypes[i])) { vars[i].val = (void *)va_arg(args, char **); if (vars[i].val != NULL && *(char **)vars[i].val != NULL) { vars[i].str = (char *)ckalloc(strlen(*(char **)vars[i].val) + 1); strcpy(vars[i].str, *(char **)vars[i].val); vars[i].str = (char *)ckalloc(1); Tcl_LinkVar(handler->interp, name->str, (char *)&vars[i].str, TCL_LINK_STRING); vars[i].val = (void *)va_arg(args, char *); Tcl_LinkVar(handler->interp, name->str, (char *)&vars[i].val, TCL_LINK_STRING|TCL_LINK_READ_ONLY); switch (gaim_value_get_subtype(handler->argtypes[i])) { case GAIM_SUBTYPE_UNKNOWN: gaim_debug(GAIM_DEBUG_ERROR, "tcl", "subtype unknown\n"); case GAIM_SUBTYPE_ACCOUNT: case GAIM_SUBTYPE_CONNECTION: case GAIM_SUBTYPE_CONVERSATION: case GAIM_SUBTYPE_CONV_WINDOW: case GAIM_SUBTYPE_PLUGIN: if (gaim_value_is_outgoing(handler->argtypes[i])) { vars[i].val = va_arg(args, void **); Tcl_LinkVar(handler->interp, name->str, vars[i].val, TCL_LINK_INT); vars[i].val = va_arg(args, void *); Tcl_LinkVar(handler->interp, name->str, (char *)&vars[i].val, TCL_LINK_INT|TCL_LINK_READ_ONLY); case GAIM_SUBTYPE_BLIST_BUDDY: case GAIM_SUBTYPE_BLIST_GROUP: case GAIM_SUBTYPE_BLIST_CHAT: /* We're going to switch again for code-deduping */ if (gaim_value_is_outgoing(handler->argtypes[i])) node = *va_arg(args, GaimBlistNode **); node = va_arg(args, GaimBlistNode *); case GAIM_BLIST_GROUP_NODE: g_string_printf(val, "group {%s}", ((GaimGroup *)node)->name); case GAIM_BLIST_CONTACT_NODE: /* g_string_printf(val, "contact {%s}", Contact Name? ); */ case GAIM_BLIST_BUDDY_NODE: g_string_printf(val, "buddy {%s} %lu", ((GaimBuddy *)node)->name, (unsigned long)((GaimBuddy *)node)->account); case GAIM_BLIST_CHAT_NODE: g_string_printf(val, "chat {%s} %lu", ((GaimChat *)node)->alias, (unsigned long)((GaimChat *)node)->account); case GAIM_BLIST_OTHER_NODE: g_string_printf(val, "other"); vars[i].str = g_strdup(val->str); Tcl_LinkVar(handler->interp, name->str, (char *)&vars[i].str, TCL_LINK_STRING|TCL_LINK_READ_ONLY); /* Call the friggin' procedure already */ if ((error = Tcl_EvalObjEx(handler->interp, handler->proc, TCL_EVAL_GLOBAL)) != TCL_OK) { gaim_debug(GAIM_DEBUG_ERROR, "tcl", "error evaluating callback: %s\n", Tcl_GetString(Tcl_GetObjResult(handler->interp))); result = Tcl_GetObjResult(handler->interp); /* handle return values -- strings and words only */ if (handler->returntype) { if (gaim_value_get_type(handler->returntype) == GAIM_TYPE_STRING) { retval = (void *)g_strdup(Tcl_GetString(result)); if ((error = Tcl_GetIntFromObj(handler->interp, result, (int *)&retval)) != TCL_OK) { gaim_debug(GAIM_DEBUG_ERROR, "tcl", "Error retrieving procedure result: %s\n", Tcl_GetString(Tcl_GetObjResult(handler->interp))); /* And finally clean up */ for (i = 0; i < handler->nargs; i++) { g_string_printf(name, "::gaim::_callback::%s", handler->argnames[i]); Tcl_UnlinkVar(handler->interp, name->str); /* We basically only have to deal with strings and buddies switch (gaim_value_get_type(handler->argtypes[i])) { if (gaim_value_is_outgoing(handler->argtypes[i])) { if (vars[i].val != NULL && *(char **)vars[i].val != NULL) { g_free(*(char **)vars[i].val); *(char **)vars[i].val = g_strdup(vars[i].str); switch(gaim_value_get_subtype(handler->argtypes[i])) { case GAIM_SUBTYPE_BLIST_BUDDY: case GAIM_SUBTYPE_BLIST_GROUP: case GAIM_SUBTYPE_BLIST_CHAT: g_string_free(name, TRUE); g_string_free(val, TRUE);