Mercurial > pidgin

comparison plugins/tcl/tcl.c @ 8761:10caa1ec2dc4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 9516] Wordski committer: Tailor Script <tailor@pidgin.im>
author Mark Doliner <mark@kingant.net>
date Thu, 22 Apr 2004 20:57:39 +0000
parents 184b8c3b6d09
children a88d4463d233
comparison
equal deleted inserted replaced
8760:16d91ca1a353 8761:10caa1ec2dc4
209 if (Tcl_EvalEx(interp, "plugin_init", -1, TCL_EVAL_GLOBAL) == TCL_OK) { 209 if (Tcl_EvalEx(interp, "plugin_init", -1, TCL_EVAL_GLOBAL) == TCL_OK) {
210 result = Tcl_GetObjResult(interp); 210 result = Tcl_GetObjResult(interp);
211 if (Tcl_ListObjGetElements(interp, result, &nelems, &listitems) == TCL_OK) { 211 if (Tcl_ListObjGetElements(interp, result, &nelems, &listitems) == TCL_OK) {
212 if (nelems == 6) { 212 if (nelems == 6) {
213 info = g_new0(GaimPluginInfo, 1); 213 info = g_new0(GaimPluginInfo, 1);
214 214
215 info->api_version = 2; 215 info->api_version = GAIM_PLUGIN_API_VERSION;
216 info->type = GAIM_PLUGIN_STANDARD; 216 info->type = GAIM_PLUGIN_STANDARD;
217 info->dependencies = g_list_append(info->dependencies, "core-tcl"); 217 info->dependencies = g_list_append(info->dependencies, "core-tcl");
218 218
219 info->name = g_strdup(Tcl_GetString(listitems[0])); 219 info->name = g_strdup(Tcl_GetString(listitems[0]));
220 info->version = g_strdup(Tcl_GetString(listitems[1])); 220 info->version = g_strdup(Tcl_GetString(listitems[1]));
221 info->summary = g_strdup(Tcl_GetString(listitems[2])); 221 info->summary = g_strdup(Tcl_GetString(listitems[2]));
222 info->description = g_strdup(Tcl_GetString(listitems[3]));; 222 info->description = g_strdup(Tcl_GetString(listitems[3]));;
223 info->author = g_strdup(Tcl_GetString(listitems[5])); 223 info->author = g_strdup(Tcl_GetString(listitems[5]));
224 info->homepage = g_strdup(Tcl_GetString(listitems[5])); 224 info->homepage = g_strdup(Tcl_GetString(listitems[5]));
225 225
226 plugin->info = info; 226 plugin->info = info;
227 227
228 if (gaim_plugin_register(plugin)) 228 if (gaim_plugin_register(plugin))
229 status = TRUE; 229 status = TRUE;
230 } 230 }
231 } 231 }
232 } 232 }