Mercurial > pidgin.yaz
annotate plugins/tcl/tcl.c @ 9233:0c352d0e4ddc
[gaim-migrate @ 10029]
gaim_str_seconds_to_string() was overly complex, was painful to read, and
had far too many nested if statements. I've replaced it with a very simple,
easy to read function. Also, fixed a warning with rizzo's patch.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Mon, 07 Jun 2004 10:09:29 +0000 |
parents | 294ae6548d4e |
children | 4c1a1be8ce33 |
rev | line source |
---|---|
6694 | 1 /** |
2 * @file tcl.c Gaim Tcl plugin bindings | |
3 * | |
4 * gaim | |
5 * | |
6 * Copyright (C) 2003 Ethan Blanton <eblanton@cs.purdue.edu> | |
7 * | |
8 * This program is free software; you can redistribute it and/or modify | |
9 * it under the terms of the GNU General Public License as published by | |
10 * the Free Software Foundation; either version 2 of the License, or | |
11 * (at your option) any later version. | |
12 * | |
13 * This program is distributed in the hope that it will be useful, | |
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 * GNU General Public License for more details. | |
17 * | |
18 * You should have received a copy of the GNU General Public License | |
19 * along with this program; if not, write to the Free Software | |
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
21 */ | |
22 | |
23 #include "config.h" | |
24 | |
25 #include <tcl.h> | |
26 | |
27 #ifdef HAVE_TK | |
28 #include <tk.h> | |
29 #endif | |
30 | |
31 #include <stdio.h> | |
32 #include <sys/types.h> | |
33 #include <sys/stat.h> | |
34 #include <unistd.h> | |
35 #include <string.h> | |
36 | |
37 #include "tcl_glib.h" | |
38 #include "tcl_gaim.h" | |
39 | |
40 #include "internal.h" | |
41 #include "connection.h" | |
42 #include "plugin.h" | |
43 #include "signals.h" | |
44 #include "debug.h" | |
45 #include "util.h" | |
46 | |
47 struct tcl_plugin_data { | |
48 GaimPlugin *plugin; | |
49 Tcl_Interp *interp; | |
50 }; | |
51 | |
52 static GHashTable *tcl_plugins = NULL; | |
53 | |
54 GaimPlugin *_tcl_plugin; | |
55 | |
7831
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
56 static gboolean tcl_loaded = FALSE; |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
57 |
6694 | 58 GaimPlugin *tcl_interp_get_plugin(Tcl_Interp *interp) |
59 { | |
60 struct tcl_plugin_data *data; | |
61 | |
62 if (tcl_plugins == NULL) | |
63 return NULL; | |
64 | |
65 data = g_hash_table_lookup(tcl_plugins, (gpointer)interp); | |
66 return data != NULL ? data->plugin : NULL; | |
67 } | |
68 | |
69 static int tcl_init_interp(Tcl_Interp *interp) | |
70 { | |
71 char *rcfile; | |
72 char init[] = | |
73 "namespace eval ::gaim {\n" | |
74 " namespace export account buddy connection conversation\n" | |
75 " namespace export core debug notify prefs send_im\n" | |
76 " namespace export signal unload\n" | |
77 " namespace eval _callback { }\n" | |
78 "\n" | |
79 " proc conv_send { account who text } {\n" | |
80 " set gc [gaim::account connection $account]\n" | |
81 " set convo [gaim::conversation new $account $who]\n" | |
82 " set myalias [gaim::account alias $account]\n" | |
83 "\n" | |
84 " if {![string length $myalias]} {\n" | |
85 " set myalias [gaim::account username $account]\n" | |
86 " }\n" | |
87 "\n" | |
88 " gaim::send_im $gc $who $text\n" | |
89 " gaim::conversation write $convo send $myalias $text\n" | |
90 " }\n" | |
91 "}\n" | |
92 "\n" | |
93 "proc bgerror { message } {\n" | |
94 " global errorInfo\n" | |
95 " gaim::notify -error \"Tcl Error\" \"Tcl Error: $message\" \"$errorInfo\"\n" | |
96 "}\n"; | |
97 | |
98 if (Tcl_EvalEx(interp, init, -1, TCL_EVAL_GLOBAL) != TCL_OK) { | |
99 return 1; | |
100 } | |
101 | |
102 Tcl_SetVar(interp, "argc", "0", TCL_GLOBAL_ONLY); | |
103 Tcl_SetVar(interp, "argv0", "gaim", TCL_GLOBAL_ONLY); | |
104 Tcl_SetVar(interp, "tcl_interactive", "0", TCL_GLOBAL_ONLY); | |
105 rcfile = g_strdup_printf("%s" G_DIR_SEPARATOR_S "tclrc", gaim_user_dir()); | |
106 Tcl_SetVar(interp, "tcl_rcFileName", rcfile, TCL_GLOBAL_ONLY); | |
107 g_free(rcfile); | |
108 | |
109 Tcl_SetVar(interp, "::gaim::version", VERSION, TCL_GLOBAL_ONLY); | |
110 Tcl_SetVar(interp, "::gaim::user_dir", gaim_user_dir(), TCL_GLOBAL_ONLY); | |
111 #ifdef HAVE_TK | |
112 Tcl_SetVar(interp, "::gaim::tk_available", "1", TCL_GLOBAL_ONLY); | |
113 #else | |
114 Tcl_SetVar(interp, "::gaim::tk_available", "0", TCL_GLOBAL_ONLY); | |
115 #endif /* HAVE_TK */ | |
116 | |
117 Tcl_CreateObjCommand(interp, "::gaim::account", tcl_cmd_account, (ClientData)NULL, NULL); | |
118 Tcl_CreateObjCommand(interp, "::gaim::buddy", tcl_cmd_buddy, (ClientData)NULL, NULL); | |
119 Tcl_CreateObjCommand(interp, "::gaim::connection", tcl_cmd_connection, (ClientData)NULL, NULL); | |
120 Tcl_CreateObjCommand(interp, "::gaim::conversation", tcl_cmd_conversation, (ClientData)NULL, NULL); | |
121 Tcl_CreateObjCommand(interp, "::gaim::core", tcl_cmd_core, (ClientData)NULL, NULL); | |
122 Tcl_CreateObjCommand(interp, "::gaim::debug", tcl_cmd_debug, (ClientData)NULL, NULL); | |
123 Tcl_CreateObjCommand(interp, "::gaim::notify", tcl_cmd_notify, (ClientData)NULL, NULL); | |
124 Tcl_CreateObjCommand(interp, "::gaim::prefs", tcl_cmd_prefs, (ClientData)NULL, NULL); | |
125 Tcl_CreateObjCommand(interp, "::gaim::send_im", tcl_cmd_send_im, (ClientData)NULL, NULL); | |
126 Tcl_CreateObjCommand(interp, "::gaim::signal", tcl_cmd_signal, (ClientData)NULL, NULL); | |
127 Tcl_CreateObjCommand(interp, "::gaim::unload", tcl_cmd_unload, (ClientData)NULL, NULL); | |
128 | |
129 return 0; | |
130 } | |
131 | |
132 static Tcl_Interp *tcl_create_interp() | |
133 { | |
134 Tcl_Interp *interp; | |
135 | |
136 interp = Tcl_CreateInterp(); | |
137 if (Tcl_Init(interp) == TCL_ERROR) { | |
138 Tcl_DeleteInterp(interp); | |
139 return NULL; | |
140 } | |
141 | |
142 if (tcl_init_interp(interp)) { | |
143 Tcl_DeleteInterp(interp); | |
144 return NULL; | |
145 } | |
146 Tcl_StaticPackage(interp, "gaim", tcl_init_interp, NULL); | |
147 | |
148 return interp; | |
149 } | |
150 | |
151 static gboolean tcl_probe_plugin(GaimPlugin *plugin) | |
152 { | |
153 GaimPluginInfo *info; | |
154 Tcl_Interp *interp; | |
155 Tcl_Parse parse; | |
156 Tcl_Obj *result, **listitems; | |
157 struct stat st; | |
158 FILE *fp; | |
159 char *buf, *cur; | |
160 int len, found = 0, err = 0, nelems; | |
161 gboolean status = FALSE; | |
162 | |
163 if ((fp = fopen(plugin->path, "r")) == NULL) | |
164 return FALSE; | |
165 if (fstat(fileno(fp), &st)) { | |
166 fclose(fp); | |
167 return FALSE; | |
168 } | |
169 len = st.st_size; | |
170 | |
171 buf = g_malloc(len + 1); | |
8989 | 172 |
173 cur = buf; | |
174 while (fgets(cur, (int) buf - (buf - cur), fp)) { | |
175 cur += strlen(cur); | |
176 if (feof(fp)) | |
177 break; | |
178 } | |
179 | |
180 if (ferror(fp)) { | |
181 gaim_debug(GAIM_DEBUG_ERROR, "tcl", "error reading %s (%s)\n", plugin->path, strerror(errno)); | |
6694 | 182 g_free(buf); |
183 fclose(fp); | |
184 return FALSE; | |
185 } | |
8989 | 186 |
6694 | 187 fclose(fp); |
188 | |
189 if ((interp = tcl_create_interp()) == NULL) { | |
190 return FALSE; | |
191 } | |
192 | |
193 cur = buf; | |
194 do { | |
195 if (Tcl_ParseCommand(interp, cur, len, 0, &parse) == TCL_ERROR) { | |
196 gaim_debug(GAIM_DEBUG_ERROR, "tcl", "parse error in %s: %s\n", plugin->path, | |
197 Tcl_GetString(Tcl_GetObjResult(interp))); | |
198 err = 1; | |
199 break; | |
200 } | |
201 if (parse.tokenPtr[0].type == TCL_TOKEN_SIMPLE_WORD | |
202 && !strncmp(parse.tokenPtr[0].start, "proc", parse.tokenPtr[0].size)) { | |
203 if (!strncmp(parse.tokenPtr[2].start, "plugin_init", parse.tokenPtr[2].size)) { | |
204 if (Tcl_EvalEx(interp, parse.commandStart, parse.commandSize, TCL_EVAL_GLOBAL) != TCL_OK) { | |
205 Tcl_FreeParse(&parse); | |
206 break; | |
207 } | |
208 found = 1; | |
209 /* We'll continue parsing the file, just in case */ | |
210 } | |
211 } | |
212 len -= (parse.commandStart + parse.commandSize) - cur; | |
213 cur = parse.commandStart + parse.commandSize; | |
214 Tcl_FreeParse(&parse); | |
215 } while (len); | |
216 | |
217 if (found && !err) { | |
218 if (Tcl_EvalEx(interp, "plugin_init", -1, TCL_EVAL_GLOBAL) == TCL_OK) { | |
219 result = Tcl_GetObjResult(interp); | |
220 if (Tcl_ListObjGetElements(interp, result, &nelems, &listitems) == TCL_OK) { | |
8117 | 221 if (nelems == 6) { |
6694 | 222 info = g_new0(GaimPluginInfo, 1); |
8761 | 223 |
224 info->api_version = GAIM_PLUGIN_API_VERSION; | |
6694 | 225 info->type = GAIM_PLUGIN_STANDARD; |
226 info->dependencies = g_list_append(info->dependencies, "core-tcl"); | |
8761 | 227 |
6694 | 228 info->name = g_strdup(Tcl_GetString(listitems[0])); |
229 info->version = g_strdup(Tcl_GetString(listitems[1])); | |
8117 | 230 info->summary = g_strdup(Tcl_GetString(listitems[2])); |
231 info->description = g_strdup(Tcl_GetString(listitems[3]));; | |
232 info->author = g_strdup(Tcl_GetString(listitems[5])); | |
233 info->homepage = g_strdup(Tcl_GetString(listitems[5])); | |
8761 | 234 |
6694 | 235 plugin->info = info; |
8761 | 236 |
6694 | 237 if (gaim_plugin_register(plugin)) |
238 status = TRUE; | |
239 } | |
240 } | |
241 } | |
242 } | |
243 | |
244 Tcl_DeleteInterp(interp); | |
245 g_free(buf); | |
246 return status; | |
247 } | |
248 | |
249 static gboolean tcl_load_plugin(GaimPlugin *plugin) | |
250 { | |
251 struct tcl_plugin_data *data; | |
252 Tcl_Interp *interp; | |
253 Tcl_Obj *result; | |
254 | |
255 plugin->extra = NULL; | |
256 | |
257 if ((interp = tcl_create_interp()) == NULL) { | |
258 gaim_debug(GAIM_DEBUG_ERROR, "tcl", "Could not initialize Tcl interpreter\n"); | |
259 return FALSE; | |
260 } | |
261 | |
262 Tcl_SourceRCFile(interp); | |
263 | |
264 if (Tcl_EvalFile(interp, plugin->path) != TCL_OK) { | |
265 result = Tcl_GetObjResult(interp); | |
266 gaim_debug(GAIM_DEBUG_ERROR, "tcl", "Error evaluating %s: %s\n", plugin->path, Tcl_GetString(result)); | |
267 Tcl_DeleteInterp(interp); | |
268 return FALSE; | |
269 } | |
270 | |
271 Tcl_Preserve((ClientData)interp); | |
272 | |
273 data = g_new0(struct tcl_plugin_data, 1); | |
274 data->plugin = plugin; | |
275 data->interp = interp; | |
276 plugin->extra = data; | |
277 | |
278 g_hash_table_insert(tcl_plugins, (gpointer)interp, (gpointer)data); | |
279 | |
280 return TRUE; | |
281 } | |
282 | |
283 static gboolean tcl_unload_plugin(GaimPlugin *plugin) | |
284 { | |
285 struct tcl_plugin_data *data; | |
286 | |
287 if (plugin == NULL) | |
288 return TRUE; | |
289 | |
290 data = plugin->extra; | |
291 | |
292 g_hash_table_remove(tcl_plugins, (gpointer)data); | |
293 if (data != NULL) { | |
294 gaim_signals_disconnect_by_handle(data->interp); | |
295 tcl_signal_cleanup(data->interp); | |
296 Tcl_Release((ClientData)data->interp); | |
297 Tcl_DeleteInterp(data->interp); | |
298 g_free(data); | |
299 } | |
300 | |
301 return TRUE; | |
302 } | |
303 | |
304 static void tcl_destroy_plugin(GaimPlugin *plugin) | |
305 { | |
306 if (plugin->info != NULL) { | |
307 g_free(plugin->info->name); | |
308 g_free(plugin->info->version); | |
309 g_free(plugin->info->description); | |
310 g_free(plugin->info->author); | |
311 g_free(plugin->info->homepage); | |
312 } | |
313 | |
314 return; | |
315 } | |
316 | |
317 static gboolean tcl_load(GaimPlugin *plugin) | |
318 { | |
7831
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
319 if(!tcl_loaded) |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
320 return FALSE; |
6694 | 321 tcl_glib_init(); |
322 tcl_signal_init(); | |
323 tcl_plugins = g_hash_table_new(g_direct_hash, g_direct_equal); | |
324 | |
7828 | 325 #ifdef HAVE_TK |
326 Tcl_StaticPackage(NULL, "Tk", Tk_Init, Tk_SafeInit); | |
327 #endif /* HAVE_TK */ | |
328 | |
6694 | 329 return TRUE; |
330 } | |
331 | |
332 static gboolean tcl_unload(GaimPlugin *plugin) | |
333 { | |
334 g_hash_table_destroy(tcl_plugins); | |
335 tcl_plugins = NULL; | |
336 | |
337 return TRUE; | |
338 } | |
339 | |
340 static GaimPluginLoaderInfo tcl_loader_info = | |
341 { | |
8759
184b8c3b6d09
[gaim-migrate @ 9514]
Christian Hammond <chipx86@chipx86.com>
parents:
8750
diff
changeset
|
342 GAIM_LOADER_API_VERSION, |
6694 | 343 NULL, |
344 tcl_probe_plugin, | |
345 tcl_load_plugin, | |
346 tcl_unload_plugin, | |
347 tcl_destroy_plugin, | |
348 }; | |
349 | |
350 static GaimPluginInfo tcl_info = | |
351 { | |
8749
d7b8eb1f0a18
[gaim-migrate @ 9504]
Christian Hammond <chipx86@chipx86.com>
parents:
8117
diff
changeset
|
352 GAIM_PLUGIN_API_VERSION, |
6694 | 353 GAIM_PLUGIN_LOADER, |
354 NULL, | |
355 0, | |
356 NULL, | |
357 GAIM_PRIORITY_DEFAULT, | |
358 "core-tcl", | |
359 N_("Tcl Plugin Loader"), | |
360 VERSION, | |
361 N_("Provides support for loading Tcl plugins"), | |
362 N_("Provides support for loading Tcl plugins"), | |
363 "Ethan Blanton <eblanton@cs.purdue.edu>", | |
364 GAIM_WEBSITE, | |
365 tcl_load, | |
366 tcl_unload, | |
367 NULL, | |
368 NULL, | |
8993 | 369 &tcl_loader_info, |
370 NULL, | |
371 NULL | |
6694 | 372 }; |
373 | |
7831
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
374 #ifdef _WIN32 |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
375 extern Tcl_Interp* (CALLBACK* wtcl_CreateInterp)(); |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
376 extern void (CALLBACK* wtk_Init)(Tcl_Interp*); |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
377 #undef Tcl_CreateInterp |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
378 #define Tcl_CreateInterp wtcl_CreateInterp |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
379 #undef Tk_Init |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
380 #define Tk_Init wtk_Init |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
381 #endif /* _WIN32 */ |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
382 |
6694 | 383 static void tcl_init_plugin(GaimPlugin *plugin) |
384 { | |
7831
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
385 #ifdef USE_TCL_STUBS |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
386 Tcl_Interp *interp=NULL; |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
387 #endif |
6694 | 388 _tcl_plugin = plugin; |
389 | |
7831
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
390 #ifdef USE_TCL_STUBS |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
391 if(!(interp=Tcl_CreateInterp())) |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
392 return; |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
393 |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
394 if(!Tcl_InitStubs(interp, TCL_VERSION, 0)) { |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
395 gaim_debug(GAIM_DEBUG_ERROR, "tcl", "Tcl_InitStubs: %s\n", interp->result); |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
396 return; |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
397 } |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
398 #endif |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
399 |
6694 | 400 Tcl_FindExecutable("gaim"); |
401 | |
7831
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
402 #if defined(USE_TK_STUBS) && defined(HAVE_TK) |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
403 Tk_Init(interp); |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
404 |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
405 if(!Tk_InitStubs(interp, TK_VERSION, 0)) { |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
406 gaim_debug(GAIM_DEBUG_ERROR, "tcl", "Error Tk_InitStubs: %s\n", interp->result); |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
407 Tcl_DeleteInterp(interp); |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
408 return; |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
409 } |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
410 #endif |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
411 tcl_loaded = TRUE; |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
412 #ifdef USE_TCL_STUBS |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
413 Tcl_DeleteInterp(interp); |
409f7f167c98
[gaim-migrate @ 8483]
Herman Bloggs <hermanator12002@yahoo.com>
parents:
7828
diff
changeset
|
414 #endif |
6694 | 415 tcl_loader_info.exts = g_list_append(tcl_loader_info.exts, "tcl"); |
416 } | |
417 | |
6735 | 418 GAIM_INIT_PLUGIN(tcl, tcl_init_plugin, tcl_info) |