Mercurial > pidgin
annotate plugins/tcl/tcl_cmds.c @ 13815:724e4c08391a
[gaim-migrate @ 16247]
This cleans up a few missed account and conversation cases, and moves
GaimConnections to the typed pointer references.
committer: Tailor Script <tailor@pidgin.im>
author | Ethan Blanton <elb@pidgin.im> |
---|---|
date | Sat, 10 Jun 2006 19:16:58 +0000 |
parents | a84523152a24 |
children | e5e07c996c56 |
rev | line source |
---|---|
6694 | 1 /** |
2 * @file tcl_cmds.c Commands for the 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 <tcl.h> | |
24 | |
25 #include "internal.h" | |
26 #include "conversation.h" | |
27 #include "connection.h" | |
28 #include "account.h" | |
29 #include "server.h" | |
30 #include "notify.h" | |
6700 | 31 #include "blist.h" |
6694 | 32 #include "debug.h" |
33 #include "prefs.h" | |
34 #include "core.h" | |
35 | |
36 #include "tcl_gaim.h" | |
37 | |
13810 | 38 static GaimAccount *tcl_validate_account(Tcl_Obj *obj, Tcl_Interp *interp); |
39 static GaimConversation *tcl_validate_conversation(Tcl_Obj *obj, Tcl_Interp *interp); | |
13815 | 40 static GaimConnection *tcl_validate_gc(Tcl_Obj *obj, Tcl_Interp *interp); |
6694 | 41 |
13810 | 42 static GaimAccount *tcl_validate_account(Tcl_Obj *obj, Tcl_Interp *interp) |
6694 | 43 { |
13810 | 44 GaimAccount *account; |
6694 | 45 GList *cur; |
13810 | 46 |
47 account = gaim_tcl_ref_get(interp, obj, GaimTclRefAccount); | |
48 | |
49 if (account == NULL) | |
50 return NULL; | |
51 | |
6694 | 52 for (cur = gaim_accounts_get_all(); cur != NULL; cur = g_list_next(cur)) { |
53 if (account == cur->data) | |
13810 | 54 return account; |
6694 | 55 } |
56 if (interp != NULL) | |
57 Tcl_SetStringObj(Tcl_GetObjResult(interp), "invalid account", -1); | |
13810 | 58 return NULL; |
6694 | 59 } |
60 | |
13810 | 61 static GaimConversation *tcl_validate_conversation(Tcl_Obj *obj, Tcl_Interp *interp) |
6694 | 62 { |
13810 | 63 GaimConversation *convo; |
6694 | 64 GList *cur; |
65 | |
13810 | 66 convo = gaim_tcl_ref_get(interp, obj, GaimTclRefConversation); |
67 | |
68 if (convo == NULL) | |
69 return NULL; | |
70 | |
6694 | 71 for (cur = gaim_get_conversations(); cur != NULL; cur = g_list_next(cur)) { |
72 if (convo == cur->data) | |
13810 | 73 return convo; |
6694 | 74 } |
75 if (interp != NULL) | |
76 Tcl_SetStringObj(Tcl_GetObjResult(interp), "invalid account", -1); | |
13810 | 77 return NULL; |
6694 | 78 } |
79 | |
13815 | 80 static GaimConnection *tcl_validate_gc(Tcl_Obj *obj, Tcl_Interp *interp) |
6694 | 81 { |
13815 | 82 GaimConnection *gc; |
6694 | 83 GList *cur; |
13815 | 84 |
85 gc = gaim_tcl_ref_get(interp, obj, GaimTclRefConnection); | |
86 | |
87 if (gc == NULL) | |
88 return NULL; | |
89 | |
6694 | 90 for (cur = gaim_connections_get_all(); cur != NULL; cur = g_list_next(cur)) { |
91 if (gc == cur->data) | |
13815 | 92 return gc; |
6694 | 93 } |
13815 | 94 return NULL; |
6694 | 95 } |
96 | |
97 int tcl_cmd_account(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
98 { | |
99 Tcl_Obj *result = Tcl_GetObjResult(interp), *list, *elem; | |
13810 | 100 const char *cmds[] = { "active_status", "alias", "connect", |
101 "connection", "disconnect", "enabled", "find", | |
102 "handle", "isconnected", "list", "protocol", | |
103 "status_type", "status_types", "username", NULL }; | |
104 enum { CMD_ACCOUNT_ACTIVE_STATUS, CMD_ACCOUNT_ALIAS, | |
105 CMD_ACCOUNT_CONNECT, CMD_ACCOUNT_CONNECTION, | |
106 CMD_ACCOUNT_DISCONNECT, CMD_ACCOUNT_ENABLED, CMD_ACCOUNT_FIND, | |
107 CMD_ACCOUNT_HANDLE, CMD_ACCOUNT_ISCONNECTED, CMD_ACCOUNT_LIST, | |
108 CMD_ACCOUNT_PROTOCOL, CMD_ACCOUNT_STATUS_TYPE, | |
109 CMD_ACCOUNT_STATUS_TYPES, CMD_ACCOUNT_USERNAME } cmd; | |
10339 | 110 const char *listopts[] = { "-all", "-online", NULL }; |
6694 | 111 enum { CMD_ACCOUNTLIST_ALL, CMD_ACCOUNTLIST_ONLINE } listopt; |
8834 | 112 const char *alias; |
13810 | 113 const GList *cur; |
6694 | 114 GaimAccount *account; |
13810 | 115 GaimStatusType *status_type; |
6694 | 116 int error; |
13810 | 117 int b; |
6694 | 118 |
119 if (objc < 2) { | |
120 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
121 return TCL_ERROR; | |
122 } | |
123 | |
124 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
125 return error; | |
126 | |
127 switch (cmd) { | |
13810 | 128 case CMD_ACCOUNT_ACTIVE_STATUS: |
129 if (objc != 3) { | |
130 Tcl_WrongNumArgs(interp, 2, objv, "account"); | |
131 return TCL_ERROR; | |
132 } | |
133 if ((account = tcl_validate_account(objv[2], interp)) == NULL) | |
134 return TCL_ERROR; | |
135 Tcl_SetObjResult(interp, | |
136 gaim_tcl_ref_new(GaimTclRefStatus, | |
137 gaim_account_get_active_status(account))); | |
138 break; | |
6694 | 139 case CMD_ACCOUNT_ALIAS: |
140 if (objc != 3) { | |
141 Tcl_WrongNumArgs(interp, 2, objv, "account"); | |
142 return TCL_ERROR; | |
143 } | |
13810 | 144 if ((account = tcl_validate_account(objv[2], interp)) == NULL) |
6694 | 145 return TCL_ERROR; |
146 alias = gaim_account_get_alias(account); | |
147 Tcl_SetStringObj(result, alias ? (char *)alias : "", -1); | |
148 break; | |
149 case CMD_ACCOUNT_CONNECT: | |
150 if (objc != 3) { | |
151 Tcl_WrongNumArgs(interp, 2, objv, "account"); | |
152 return TCL_ERROR; | |
153 } | |
13810 | 154 if ((account = tcl_validate_account(objv[2], interp)) == NULL) |
6694 | 155 return TCL_ERROR; |
10740 | 156 if (!gaim_account_is_connected(account)) |
157 gaim_account_connect(account); | |
13815 | 158 Tcl_SetObjResult(interp, |
159 gaim_tcl_ref_new(GaimTclRefConnection, | |
160 gaim_account_get_connection(account))); | |
6694 | 161 break; |
162 case CMD_ACCOUNT_CONNECTION: | |
163 if (objc != 3) { | |
164 Tcl_WrongNumArgs(interp, 2, objv, "account"); | |
165 return TCL_ERROR; | |
166 } | |
13810 | 167 |
168 if ((account = tcl_validate_account(objv[2], interp)) == NULL) | |
6694 | 169 return TCL_ERROR; |
13815 | 170 Tcl_SetObjResult(interp, |
171 gaim_tcl_ref_new(GaimTclRefConnection, | |
172 gaim_account_get_connection(account))); | |
6694 | 173 break; |
174 case CMD_ACCOUNT_DISCONNECT: | |
175 if (objc != 3) { | |
176 Tcl_WrongNumArgs(interp, 2, objv, "account"); | |
177 return TCL_ERROR; | |
178 } | |
13810 | 179 if ((account = tcl_validate_account(objv[2], interp)) == NULL) |
6694 | 180 return TCL_ERROR; |
181 gaim_account_disconnect(account); | |
182 break; | |
13810 | 183 case CMD_ACCOUNT_ENABLED: |
184 if (objc != 3 && objc != 4) { | |
185 Tcl_WrongNumArgs(interp, 2, objv, "account ?enabled?"); | |
186 return TCL_ERROR; | |
187 } | |
188 if ((account = tcl_validate_account(objv[2], interp)) == NULL) | |
189 return TCL_ERROR; | |
190 if (objc == 3) { | |
191 Tcl_SetBooleanObj(result, | |
192 gaim_account_get_enabled(account, | |
193 gaim_core_get_ui())); | |
194 } else { | |
195 if ((error = Tcl_GetBooleanFromObj(interp, objv[3], &b)) != TCL_OK) | |
196 return TCL_ERROR; | |
197 gaim_account_set_enabled(account, gaim_core_get_ui(), b); | |
198 } | |
199 break; | |
6694 | 200 case CMD_ACCOUNT_FIND: |
201 if (objc != 4) { | |
202 Tcl_WrongNumArgs(interp, 2, objv, "username protocol"); | |
203 return TCL_ERROR; | |
204 } | |
13815 | 205 account = gaim_accounts_find(Tcl_GetString(objv[2]), |
206 Tcl_GetString(objv[3])); | |
207 Tcl_SetObjResult(interp, | |
208 gaim_tcl_ref_new(GaimTclRefAccount, account)); | |
6694 | 209 break; |
210 case CMD_ACCOUNT_HANDLE: | |
211 if (objc != 2) { | |
212 Tcl_WrongNumArgs(interp, 2, objv, ""); | |
213 return TCL_ERROR; | |
214 } | |
215 Tcl_SetIntObj(result, (int)gaim_accounts_get_handle()); | |
216 break; | |
217 case CMD_ACCOUNT_ISCONNECTED: | |
218 if (objc != 3) { | |
219 Tcl_WrongNumArgs(interp, 2, objv, "account"); | |
220 return TCL_ERROR; | |
221 } | |
13810 | 222 if ((account = tcl_validate_account(objv[2], interp)) == NULL) |
6694 | 223 return TCL_ERROR; |
224 Tcl_SetBooleanObj(result, gaim_account_is_connected(account)); | |
225 break; | |
226 case CMD_ACCOUNT_LIST: | |
227 listopt = CMD_ACCOUNTLIST_ALL; | |
228 if (objc > 3) { | |
229 Tcl_WrongNumArgs(interp, 2, objv, "?option?"); | |
230 return TCL_ERROR; | |
231 } | |
232 if (objc == 3) { | |
233 if ((error = Tcl_GetIndexFromObj(interp, objv[2], listopts, "option", 0, (int *)&listopt)) != TCL_OK) | |
234 return error; | |
235 } | |
236 list = Tcl_NewListObj(0, NULL); | |
237 for (cur = gaim_accounts_get_all(); cur != NULL; cur = g_list_next(cur)) { | |
238 account = cur->data; | |
239 if (listopt == CMD_ACCOUNTLIST_ONLINE && !gaim_account_is_connected(account)) | |
240 continue; | |
13810 | 241 elem = gaim_tcl_ref_new(GaimTclRefAccount, account); |
6694 | 242 Tcl_ListObjAppendElement(interp, list, elem); |
243 } | |
244 Tcl_SetObjResult(interp, list); | |
245 break; | |
246 case CMD_ACCOUNT_PROTOCOL: | |
247 if (objc != 3) { | |
248 Tcl_WrongNumArgs(interp, 2, objv, "account"); | |
249 return TCL_ERROR; | |
250 } | |
13810 | 251 if ((account = tcl_validate_account(objv[2], interp)) == NULL) |
6694 | 252 return TCL_ERROR; |
253 Tcl_SetStringObj(result, (char *)gaim_account_get_protocol_id(account), -1); | |
254 break; | |
13810 | 255 case CMD_ACCOUNT_STATUS_TYPE: |
256 if (objc != 4 && objc != 5) { | |
257 Tcl_WrongNumArgs(interp, 2, objv, "account ?statustype? ?-primitive primitive?"); | |
258 return TCL_ERROR; | |
259 } | |
260 if ((account = tcl_validate_account(objv[2], interp)) == NULL) | |
261 return TCL_ERROR; | |
262 if (objc == 4) { | |
263 status_type = gaim_account_get_status_type(account, | |
264 Tcl_GetString(objv[3])); | |
265 } else { | |
266 GaimStatusPrimitive primitive; | |
267 if (strcmp(Tcl_GetString(objv[3]), "-primitive")) { | |
268 Tcl_SetStringObj(result, "bad option \"", -1); | |
269 Tcl_AppendObjToObj(result, objv[3]); | |
270 Tcl_AppendToObj(result, | |
271 "\": should be -primitive", -1); | |
272 return TCL_ERROR; | |
273 } | |
274 primitive = gaim_primitive_get_type_from_id(Tcl_GetString(objv[4])); | |
275 status_type = gaim_account_get_status_type_with_primitive(account, | |
276 primitive); | |
277 } | |
278 if (status_type == NULL) { | |
279 Tcl_SetStringObj(result, "status type not found", -1); | |
280 return TCL_ERROR; | |
281 } | |
282 Tcl_SetObjResult(interp, | |
283 gaim_tcl_ref_new(GaimTclRefStatusType, | |
284 status_type)); | |
285 break; | |
286 case CMD_ACCOUNT_STATUS_TYPES: | |
287 if (objc != 3) { | |
288 Tcl_WrongNumArgs(interp, 2, objv, "account"); | |
289 return TCL_ERROR; | |
290 } | |
291 if ((account = tcl_validate_account(objv[2], interp)) == NULL) | |
292 return TCL_ERROR; | |
293 list = Tcl_NewListObj(0, NULL); | |
294 for (cur = gaim_account_get_status_types(account); cur != NULL; | |
295 cur = g_list_next(cur)) { | |
296 Tcl_ListObjAppendElement(interp, list, | |
297 gaim_tcl_ref_new(GaimTclRefStatusType, | |
298 cur->data)); | |
299 } | |
300 Tcl_SetObjResult(interp, list); | |
301 break; | |
6694 | 302 case CMD_ACCOUNT_USERNAME: |
303 if (objc != 3) { | |
304 Tcl_WrongNumArgs(interp, 2, objv, "account"); | |
305 return TCL_ERROR; | |
306 } | |
13810 | 307 if ((account = tcl_validate_account(objv[2], interp)) == NULL) |
6694 | 308 return TCL_ERROR; |
309 Tcl_SetStringObj(result, (char *)gaim_account_get_username(account), -1); | |
310 break; | |
311 } | |
312 | |
313 return TCL_OK; | |
314 } | |
315 | |
316 static GaimBlistNode *tcl_list_to_buddy(Tcl_Interp *interp, int count, Tcl_Obj **elems) | |
317 { | |
318 GaimBlistNode *node = NULL; | |
319 GaimAccount *account; | |
320 char *name; | |
321 char *type; | |
322 | |
323 if (count < 3) { | |
324 Tcl_SetStringObj(Tcl_GetObjResult(interp), "list too short", -1); | |
325 return NULL; | |
326 } | |
327 | |
328 type = Tcl_GetString(elems[0]); | |
329 name = Tcl_GetString(elems[1]); | |
13810 | 330 if ((account = tcl_validate_account(elems[2], interp)) == NULL) |
6694 | 331 return NULL; |
332 | |
333 if (!strcmp(type, "buddy")) { | |
334 node = (GaimBlistNode *)gaim_find_buddy(account, name); | |
335 } else if (!strcmp(type, "group")) { | |
336 node = (GaimBlistNode *)gaim_blist_find_chat(account, name); | |
337 } | |
338 | |
339 return node; | |
340 } | |
341 | |
342 int tcl_cmd_buddy(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
343 { | |
6746 | 344 Tcl_Obj *list, *tclgroup, *tclgrouplist, *tclcontact, *tclcontactlist, *tclbud, **elems, *result; |
10339 | 345 const char *cmds[] = { "alias", "handle", "info", "list", NULL }; |
6694 | 346 enum { CMD_BUDDY_ALIAS, CMD_BUDDY_HANDLE, CMD_BUDDY_INFO, CMD_BUDDY_LIST } cmd; |
7100
abdc55ffadba
[gaim-migrate @ 7665]
Christian Hammond <chipx86@chipx86.com>
parents:
6982
diff
changeset
|
347 GaimBuddyList *blist; |
6746 | 348 GaimBlistNode *node, *gnode, *bnode; |
6694 | 349 GaimAccount *account; |
6746 | 350 GaimBuddy *bud; |
7118
bf630f7dfdcd
[gaim-migrate @ 7685]
Christian Hammond <chipx86@chipx86.com>
parents:
7100
diff
changeset
|
351 GaimChat *cnode; |
6694 | 352 int error, all = 0, count; |
353 | |
354 if (objc < 2) { | |
355 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
356 return TCL_ERROR; | |
357 } | |
358 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
359 return error; | |
360 | |
361 result = Tcl_GetObjResult(interp); | |
362 | |
363 switch (cmd) { | |
364 case CMD_BUDDY_ALIAS: | |
365 if (objc != 3) { | |
366 Tcl_WrongNumArgs(interp, 2, objv, "buddy"); | |
367 return TCL_ERROR; | |
368 } | |
369 if ((error = Tcl_ListObjGetElements(interp, objv[2], &count, &elems)) != TCL_OK) | |
370 return error; | |
371 if ((node = tcl_list_to_buddy(interp, count, elems)) == NULL) | |
372 return TCL_ERROR; | |
373 if (node->type == GAIM_BLIST_CHAT_NODE) | |
7118
bf630f7dfdcd
[gaim-migrate @ 7685]
Christian Hammond <chipx86@chipx86.com>
parents:
7100
diff
changeset
|
374 Tcl_SetStringObj(result, ((GaimChat *)node)->alias, -1); |
6694 | 375 else if (node->type == GAIM_BLIST_BUDDY_NODE) |
9620 | 376 Tcl_SetStringObj(result, (char *)gaim_buddy_get_alias((GaimBuddy *)node), -1); |
6694 | 377 return TCL_OK; |
378 break; | |
379 case CMD_BUDDY_HANDLE: | |
380 if (objc != 2) { | |
381 Tcl_WrongNumArgs(interp, 2, objv, ""); | |
382 return TCL_ERROR; | |
383 } | |
384 Tcl_SetIntObj(result, (int)gaim_blist_get_handle()); | |
385 break; | |
386 case CMD_BUDDY_INFO: | |
387 if (objc != 3 && objc != 4) { | |
388 Tcl_WrongNumArgs(interp, 2, objv, "( buddy | account username )"); | |
389 return TCL_ERROR; | |
390 } | |
391 if (objc == 3) { | |
392 if ((error = Tcl_ListObjGetElements(interp, objv[2], &count, &elems)) != TCL_OK) | |
393 return error; | |
394 if (count < 3) { | |
395 Tcl_SetStringObj(result, "buddy too short", -1); | |
396 return TCL_ERROR; | |
397 } | |
398 if (strcmp("buddy", Tcl_GetString(elems[0]))) { | |
399 Tcl_SetStringObj(result, "invalid buddy", -1); | |
400 return TCL_ERROR; | |
401 } | |
13810 | 402 if ((account = tcl_validate_account(elems[2], interp)) == NULL) |
6694 | 403 return TCL_ERROR; |
404 serv_get_info(gaim_account_get_connection(account), Tcl_GetString(elems[1])); | |
405 } else { | |
13810 | 406 if ((account = tcl_validate_account(objv[2], interp)) == NULL) |
6694 | 407 return TCL_ERROR; |
408 serv_get_info(gaim_account_get_connection(account), Tcl_GetString(objv[3])); | |
409 } | |
410 break; | |
411 case CMD_BUDDY_LIST: | |
412 if (objc == 3) { | |
413 if (!strcmp("-all", Tcl_GetString(objv[2]))) { | |
414 all = 1; | |
415 } else { | |
416 Tcl_SetStringObj(result, "", -1); | |
417 Tcl_AppendStringsToObj(result, "unknown option: ", Tcl_GetString(objv[2]), NULL); | |
418 return TCL_ERROR; | |
419 } | |
420 } | |
421 list = Tcl_NewListObj(0, NULL); | |
422 blist = gaim_get_blist(); | |
423 for (gnode = blist->root; gnode != NULL; gnode = gnode->next) { | |
424 tclgroup = Tcl_NewListObj(0, NULL); | |
425 Tcl_ListObjAppendElement(interp, tclgroup, Tcl_NewStringObj("group", -1)); | |
426 Tcl_ListObjAppendElement(interp, tclgroup, | |
6700 | 427 Tcl_NewStringObj(((GaimGroup *)gnode)->name, -1)); |
6694 | 428 tclgrouplist = Tcl_NewListObj(0, NULL); |
429 for (node = gnode->child; node != NULL; node = node->next) { | |
430 switch (node->type) { | |
6746 | 431 case GAIM_BLIST_CONTACT_NODE: |
432 tclcontact = Tcl_NewListObj(0, NULL); | |
433 Tcl_IncrRefCount(tclcontact); | |
434 Tcl_ListObjAppendElement(interp, tclcontact, Tcl_NewStringObj("contact", -1)); | |
435 tclcontactlist = Tcl_NewListObj(0, NULL); | |
436 Tcl_IncrRefCount(tclcontactlist); | |
437 count = 0; | |
438 for (bnode = node->child; bnode != NULL; bnode = bnode ->next) { | |
439 if (bnode->type != GAIM_BLIST_BUDDY_NODE) | |
440 continue; | |
441 bud = (GaimBuddy *)bnode; | |
442 if (!all && !gaim_account_is_connected(bud->account)) | |
443 continue; | |
444 count++; | |
445 tclbud = Tcl_NewListObj(0, NULL); | |
446 Tcl_ListObjAppendElement(interp, tclbud, Tcl_NewStringObj("buddy", -1)); | |
447 Tcl_ListObjAppendElement(interp, tclbud, Tcl_NewStringObj(bud->name, -1)); | |
13810 | 448 Tcl_ListObjAppendElement(interp, tclbud, gaim_tcl_ref_new(GaimTclRefAccount, bud->account)); |
6746 | 449 Tcl_ListObjAppendElement(interp, tclcontactlist, tclbud); |
450 } | |
451 if (count) { | |
452 Tcl_ListObjAppendElement(interp, tclcontact, tclcontactlist); | |
453 Tcl_ListObjAppendElement(interp, tclgrouplist, tclcontact); | |
454 } | |
455 Tcl_DecrRefCount(tclcontact); | |
456 Tcl_DecrRefCount(tclcontactlist); | |
6694 | 457 break; |
458 case GAIM_BLIST_CHAT_NODE: | |
7118
bf630f7dfdcd
[gaim-migrate @ 7685]
Christian Hammond <chipx86@chipx86.com>
parents:
7100
diff
changeset
|
459 cnode = (GaimChat *)node; |
6694 | 460 if (!all && !gaim_account_is_connected(cnode->account)) |
461 continue; | |
462 tclbud = Tcl_NewListObj(0, NULL); | |
463 Tcl_ListObjAppendElement(interp, tclbud, Tcl_NewStringObj("chat", -1)); | |
464 Tcl_ListObjAppendElement(interp, tclbud, Tcl_NewStringObj(cnode->alias, -1)); | |
13810 | 465 Tcl_ListObjAppendElement(interp, tclbud, gaim_tcl_ref_new(GaimTclRefAccount, cnode->account)); |
6746 | 466 Tcl_ListObjAppendElement(interp, tclgrouplist, tclbud); |
6694 | 467 break; |
468 default: | |
6746 | 469 gaim_debug(GAIM_DEBUG_WARNING, "tcl", "Unexpected buddy type %d", node->type); |
6694 | 470 continue; |
471 } | |
472 } | |
473 Tcl_ListObjAppendElement(interp, tclgroup, tclgrouplist); | |
474 Tcl_ListObjAppendElement(interp, list, tclgroup); | |
475 } | |
476 Tcl_SetObjResult(interp, list); | |
477 break; | |
478 } | |
479 | |
480 return TCL_OK; | |
481 } | |
482 | |
483 int tcl_cmd_connection(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
484 { | |
485 Tcl_Obj *result = Tcl_GetObjResult(interp), *list, *elem; | |
10339 | 486 const char *cmds[] = { "account", "displayname", "handle", "list", NULL }; |
7713 | 487 enum { CMD_CONN_ACCOUNT, CMD_CONN_DISPLAYNAME, CMD_CONN_HANDLE, CMD_CONN_LIST } cmd; |
6694 | 488 int error; |
489 GList *cur; | |
490 GaimConnection *gc; | |
491 | |
492 if (objc < 2) { | |
493 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
494 return TCL_ERROR; | |
495 } | |
496 | |
497 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
498 return error; | |
499 | |
500 switch (cmd) { | |
501 case CMD_CONN_ACCOUNT: | |
502 if (objc != 3) { | |
6864 | 503 Tcl_WrongNumArgs(interp, 2, objv, "gc"); |
6694 | 504 return TCL_ERROR; |
505 } | |
13815 | 506 if ((gc = tcl_validate_gc(objv[2], interp)) == NULL) |
6694 | 507 return TCL_ERROR; |
13815 | 508 Tcl_SetObjResult(interp, |
509 gaim_tcl_ref_new(GaimTclRefAccount, | |
510 gaim_connection_get_account(gc))); | |
6694 | 511 break; |
7713 | 512 case CMD_CONN_DISPLAYNAME: |
513 if (objc != 3) { | |
514 Tcl_WrongNumArgs(interp, 2, objv, "gc"); | |
515 return TCL_ERROR; | |
516 } | |
13815 | 517 if ((gc = tcl_validate_gc(objv[2], interp)) == NULL) |
7713 | 518 return TCL_ERROR; |
519 Tcl_SetStringObj(result, (char *)gaim_connection_get_display_name(gc), -1); | |
520 break; | |
6694 | 521 case CMD_CONN_HANDLE: |
522 if (objc != 2) { | |
523 Tcl_WrongNumArgs(interp, 2, objv, ""); | |
524 return TCL_ERROR; | |
525 } | |
526 Tcl_SetIntObj(result, (int)gaim_connections_get_handle()); | |
527 break; | |
528 case CMD_CONN_LIST: | |
529 if (objc != 2) { | |
530 Tcl_WrongNumArgs(interp, 2, objv, ""); | |
531 return TCL_ERROR; | |
532 } | |
533 list = Tcl_NewListObj(0, NULL); | |
534 for (cur = gaim_connections_get_all(); cur != NULL; cur = g_list_next(cur)) { | |
13815 | 535 elem = gaim_tcl_ref_new(GaimTclRefConnection, cur->data); |
6694 | 536 Tcl_ListObjAppendElement(interp, list, elem); |
537 } | |
538 Tcl_SetObjResult(interp, list); | |
539 break; | |
540 } | |
541 | |
542 return TCL_OK; | |
543 } | |
544 | |
545 int tcl_cmd_conversation(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
546 { | |
547 Tcl_Obj *list, *elem, *result = Tcl_GetObjResult(interp); | |
10339 | 548 const char *cmds[] = { "find", "handle", "list", "new", "write", NULL }; |
6694 | 549 enum { CMD_CONV_FIND, CMD_CONV_HANDLE, CMD_CONV_LIST, CMD_CONV_NEW, CMD_CONV_WRITE } cmd; |
10339 | 550 const char *styles[] = { "send", "recv", "system", NULL }; |
6694 | 551 enum { CMD_CONV_WRITE_SEND, CMD_CONV_WRITE_RECV, CMD_CONV_WRITE_SYSTEM } style; |
10339 | 552 const char *newopts[] = { "-chat", "-im" }; |
6694 | 553 enum { CMD_CONV_NEW_CHAT, CMD_CONV_NEW_IM } newopt; |
554 GaimConversation *convo; | |
555 GaimAccount *account; | |
556 GaimConversationType type; | |
557 GList *cur; | |
558 char *opt, *from, *what; | |
7156 | 559 int error, argsused, flags = 0; |
6694 | 560 |
561 if (objc < 2) { | |
562 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
563 return TCL_ERROR; | |
564 } | |
565 | |
566 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
567 return error; | |
568 | |
569 switch (cmd) { | |
570 case CMD_CONV_FIND: | |
10829 | 571 if (objc != 4) { |
572 Tcl_WrongNumArgs(interp, 2, objv, "account name"); | |
6694 | 573 return TCL_ERROR; |
574 } | |
575 account = NULL; | |
13810 | 576 if ((account = tcl_validate_account(objv[2], interp)) == NULL) |
10829 | 577 return TCL_ERROR; |
11338 | 578 convo = gaim_find_conversation_with_account(GAIM_CONV_TYPE_ANY, |
10829 | 579 Tcl_GetString(objv[3]), |
580 account); | |
13815 | 581 Tcl_SetObjResult(interp, gaim_tcl_ref_new(GaimTclRefConversation, convo)); |
6694 | 582 break; |
583 case CMD_CONV_HANDLE: | |
584 if (objc != 2) { | |
585 Tcl_WrongNumArgs(interp, 2, objv, ""); | |
586 return TCL_ERROR; | |
587 } | |
588 Tcl_SetIntObj(result, (int)gaim_conversations_get_handle()); | |
589 break; | |
590 case CMD_CONV_LIST: | |
591 list = Tcl_NewListObj(0, NULL); | |
592 for (cur = gaim_get_conversations(); cur != NULL; cur = g_list_next(cur)) { | |
13815 | 593 elem = gaim_tcl_ref_new(GaimTclRefConversation, cur->data); |
6694 | 594 Tcl_ListObjAppendElement(interp, list, elem); |
595 } | |
596 Tcl_SetObjResult(interp, list); | |
597 break; | |
598 case CMD_CONV_NEW: | |
599 if (objc < 4) { | |
600 Tcl_WrongNumArgs(interp, 2, objv, "?options? account name"); | |
601 return TCL_ERROR; | |
602 } | |
603 argsused = 2; | |
11338 | 604 type = GAIM_CONV_TYPE_IM; |
6694 | 605 while (argsused < objc) { |
606 opt = Tcl_GetString(objv[argsused]); | |
607 if (*opt == '-') { | |
608 if ((error = Tcl_GetIndexFromObj(interp, objv[argsused], newopts, | |
609 "option", 0, (int *)&newopt)) != TCL_OK) | |
610 return error; | |
611 argsused++; | |
612 switch (newopt) { | |
613 case CMD_CONV_NEW_CHAT: | |
11338 | 614 type = GAIM_CONV_TYPE_CHAT; |
6694 | 615 break; |
616 case CMD_CONV_NEW_IM: | |
11338 | 617 type = GAIM_CONV_TYPE_IM; |
6694 | 618 break; |
619 } | |
620 } else { | |
621 break; | |
622 } | |
623 } | |
624 if (objc - argsused != 2) { | |
625 Tcl_WrongNumArgs(interp, 2, objv, "?options? account name"); | |
626 return TCL_ERROR; | |
627 } | |
13810 | 628 if ((account = tcl_validate_account(objv[argsused++], interp)) == NULL) |
6694 | 629 return TCL_ERROR; |
630 convo = gaim_conversation_new(type, account, Tcl_GetString(objv[argsused])); | |
13815 | 631 Tcl_SetObjResult(interp, gaim_tcl_ref_new(GaimTclRefConversation, convo)); |
6694 | 632 break; |
633 case CMD_CONV_WRITE: | |
634 if (objc != 6) { | |
635 Tcl_WrongNumArgs(interp, 2, objv, "conversation style from what"); | |
636 return TCL_ERROR; | |
637 } | |
13810 | 638 if ((convo = tcl_validate_conversation(objv[2], interp)) == NULL) |
639 return TCL_ERROR; | |
6694 | 640 if ((error = Tcl_GetIndexFromObj(interp, objv[3], styles, "style", 0, (int *)&style)) != TCL_OK) |
641 return error; | |
642 from = Tcl_GetString(objv[4]); | |
643 what = Tcl_GetString(objv[5]); | |
644 | |
645 switch (style) { | |
646 case CMD_CONV_WRITE_SEND: | |
647 flags = GAIM_MESSAGE_SEND; | |
648 break; | |
649 case CMD_CONV_WRITE_RECV: | |
650 flags = GAIM_MESSAGE_RECV; | |
651 break; | |
652 case CMD_CONV_WRITE_SYSTEM: | |
653 flags = GAIM_MESSAGE_SYSTEM; | |
654 break; | |
655 } | |
11338 | 656 if (gaim_conversation_get_type(convo) == GAIM_CONV_TYPE_CHAT) |
7118
bf630f7dfdcd
[gaim-migrate @ 7685]
Christian Hammond <chipx86@chipx86.com>
parents:
7100
diff
changeset
|
657 gaim_conv_chat_write(GAIM_CONV_CHAT(convo), from, what, flags, time(NULL)); |
6694 | 658 else |
7118
bf630f7dfdcd
[gaim-migrate @ 7685]
Christian Hammond <chipx86@chipx86.com>
parents:
7100
diff
changeset
|
659 gaim_conv_im_write(GAIM_CONV_IM(convo), from, what, flags, time(NULL)); |
6694 | 660 break; |
661 } | |
662 | |
663 return TCL_OK; | |
664 } | |
665 | |
666 int tcl_cmd_core(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
667 { | |
668 Tcl_Obj *result = Tcl_GetObjResult(interp); | |
10339 | 669 const char *cmds[] = { "handle", "quit", NULL }; |
6694 | 670 enum { CMD_CORE_HANDLE, CMD_CORE_QUIT } cmd; |
671 int error; | |
672 | |
673 if (objc < 2) { | |
674 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
675 return TCL_ERROR; | |
676 } | |
677 | |
678 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
679 return error; | |
680 | |
681 switch (cmd) { | |
682 case CMD_CORE_HANDLE: | |
683 if (objc != 2) { | |
684 Tcl_WrongNumArgs(interp, 2, objv, ""); | |
685 return TCL_ERROR; | |
686 } | |
687 Tcl_SetIntObj(result, (int)gaim_get_core()); | |
688 break; | |
689 case CMD_CORE_QUIT: | |
690 if (objc != 2) { | |
691 Tcl_WrongNumArgs(interp, 2, objv, ""); | |
692 return TCL_ERROR; | |
693 } | |
694 gaim_core_quit(); | |
695 break; | |
696 } | |
697 | |
698 return TCL_OK; | |
699 } | |
700 | |
701 int tcl_cmd_debug(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
702 { | |
703 char *category, *message; | |
704 int lev; | |
10339 | 705 const char *levels[] = { "-misc", "-info", "-warning", "-error", NULL }; |
6694 | 706 GaimDebugLevel levelind[] = { GAIM_DEBUG_MISC, GAIM_DEBUG_INFO, GAIM_DEBUG_WARNING, GAIM_DEBUG_ERROR }; |
707 int error; | |
708 | |
709 if (objc != 4) { | |
710 Tcl_WrongNumArgs(interp, 1, objv, "level category message"); | |
711 return TCL_ERROR; | |
712 } | |
713 | |
714 error = Tcl_GetIndexFromObj(interp, objv[1], levels, "debug level", 0, &lev); | |
715 if (error != TCL_OK) | |
716 return error; | |
717 | |
718 category = Tcl_GetString(objv[2]); | |
719 message = Tcl_GetString(objv[3]); | |
720 | |
721 gaim_debug(levelind[lev], category, "%s\n", message); | |
722 | |
723 return TCL_OK; | |
724 } | |
725 | |
726 int tcl_cmd_notify(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
727 { | |
728 int error, type; | |
10339 | 729 const char *opts[] = { "-error", "-warning", "-info", NULL }; |
6694 | 730 GaimNotifyMsgType optind[] = { GAIM_NOTIFY_MSG_ERROR, GAIM_NOTIFY_MSG_WARNING, GAIM_NOTIFY_MSG_INFO }; |
731 char *title, *msg1, *msg2; | |
732 | |
733 if (objc < 4 || objc > 5) { | |
734 Tcl_WrongNumArgs(interp, 1, objv, "?type? title primary secondary"); | |
735 return TCL_ERROR; | |
736 } | |
737 | |
738 if (objc == 4) { | |
13423 | 739 type = 1; /* Default to warning */ |
6694 | 740 title = Tcl_GetString(objv[1]); |
741 msg1 = Tcl_GetString(objv[2]); | |
742 msg2 = Tcl_GetString(objv[3]); | |
743 } else { | |
744 error = Tcl_GetIndexFromObj(interp, objv[1], opts, "message type", 0, &type); | |
745 if (error != TCL_OK) | |
746 return error; | |
747 title = Tcl_GetString(objv[2]); | |
748 msg1 = Tcl_GetString(objv[3]); | |
749 msg2 = Tcl_GetString(objv[4]); | |
750 } | |
751 | |
752 gaim_notify_message(_tcl_plugin, optind[type], title, msg1, msg2, NULL, NULL); | |
753 | |
754 return TCL_OK; | |
755 } | |
756 | |
757 int tcl_cmd_prefs(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
758 { | |
759 Tcl_Obj *result, *list, *elem, **elems; | |
10339 | 760 const char *cmds[] = { "get", "set", "type", NULL }; |
6694 | 761 enum { CMD_PREFS_GET, CMD_PREFS_SET, CMD_PREFS_TYPE } cmd; |
762 /* char *types[] = { "none", "boolean", "int", "string", "stringlist", NULL }; */ | |
763 /* enum { TCL_PREFS_NONE, TCL_PREFS_BOOL, TCL_PREFS_INT, TCL_PREFS_STRING, TCL_PREFS_STRINGLIST } type; */ | |
764 GaimPrefType preftype; | |
765 GList *cur; | |
766 int error, intval, nelem, i; | |
767 | |
768 if (objc < 2) { | |
769 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
770 return TCL_ERROR; | |
771 } | |
772 | |
773 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
774 return error; | |
775 | |
776 result = Tcl_GetObjResult(interp); | |
777 switch (cmd) { | |
778 case CMD_PREFS_GET: | |
779 if (objc != 3) { | |
780 Tcl_WrongNumArgs(interp, 1, objv, "path"); | |
781 return TCL_ERROR; | |
782 } | |
783 preftype = gaim_prefs_get_type(Tcl_GetString(objv[2])); | |
784 switch (preftype) { | |
785 case GAIM_PREF_NONE: | |
786 Tcl_SetStringObj(result, "pref type none", -1); | |
787 return TCL_ERROR; | |
788 break; | |
789 case GAIM_PREF_BOOLEAN: | |
790 Tcl_SetBooleanObj(result, gaim_prefs_get_bool(Tcl_GetString(objv[2]))); | |
791 break; | |
792 case GAIM_PREF_INT: | |
793 Tcl_SetIntObj(result, gaim_prefs_get_int(Tcl_GetString(objv[2]))); | |
794 break; | |
795 case GAIM_PREF_STRING: | |
796 Tcl_SetStringObj(result, (char *)gaim_prefs_get_string(Tcl_GetString(objv[2])), -1); | |
797 break; | |
798 case GAIM_PREF_STRING_LIST: | |
799 cur = gaim_prefs_get_string_list(Tcl_GetString(objv[2])); | |
800 list = Tcl_NewListObj(0, NULL); | |
801 while (cur != NULL) { | |
802 elem = Tcl_NewStringObj((char *)cur->data, -1); | |
803 Tcl_ListObjAppendElement(interp, list, elem); | |
804 cur = g_list_next(cur); | |
805 } | |
806 Tcl_SetObjResult(interp, list); | |
807 break; | |
808 default: | |
809 gaim_debug(GAIM_DEBUG_ERROR, "tcl", "tcl does not know about pref type %d\n", preftype); | |
810 Tcl_SetStringObj(result, "unknown pref type", -1); | |
811 return TCL_ERROR; | |
812 } | |
813 break; | |
814 case CMD_PREFS_SET: | |
815 if (objc != 4) { | |
816 Tcl_WrongNumArgs(interp, 1, objv, "path value"); | |
817 return TCL_ERROR; | |
818 } | |
819 preftype = gaim_prefs_get_type(Tcl_GetString(objv[2])); | |
820 switch (preftype) { | |
821 case GAIM_PREF_NONE: | |
822 Tcl_SetStringObj(result, "bad path or pref type none", -1); | |
823 return TCL_ERROR; | |
824 break; | |
825 case GAIM_PREF_BOOLEAN: | |
826 if ((error = Tcl_GetBooleanFromObj(interp, objv[3], &intval)) != TCL_OK) | |
827 return error; | |
828 gaim_prefs_set_bool(Tcl_GetString(objv[2]), intval); | |
829 break; | |
830 case GAIM_PREF_INT: | |
831 if ((error = Tcl_GetIntFromObj(interp, objv[3], &intval)) != TCL_OK) | |
832 return error; | |
833 gaim_prefs_set_int(Tcl_GetString(objv[2]), intval); | |
834 break; | |
835 case GAIM_PREF_STRING: | |
836 gaim_prefs_set_string(Tcl_GetString(objv[2]), Tcl_GetString(objv[3])); | |
837 break; | |
838 case GAIM_PREF_STRING_LIST: | |
839 if ((error = Tcl_ListObjGetElements(interp, objv[3], &nelem, &elems)) != TCL_OK) | |
840 return error; | |
841 cur = NULL; | |
842 for (i = 0; i < nelem; i++) { | |
843 cur = g_list_append(cur, (gpointer)Tcl_GetString(elems[i])); | |
844 } | |
845 gaim_prefs_set_string_list(Tcl_GetString(objv[2]), cur); | |
846 g_list_free(cur); | |
847 break; | |
848 default: | |
849 gaim_debug(GAIM_DEBUG_ERROR, "tcl", "tcl does not know about pref type %d\n", preftype); | |
850 return TCL_ERROR; | |
851 } | |
852 break; | |
853 case CMD_PREFS_TYPE: | |
854 if (objc != 3) { | |
855 Tcl_WrongNumArgs(interp, 1, objv, "path"); | |
856 return TCL_ERROR; | |
857 } | |
858 preftype = gaim_prefs_get_type(Tcl_GetString(objv[2])); | |
859 switch (preftype) { | |
860 case GAIM_PREF_NONE: | |
861 Tcl_SetStringObj(result, "none", -1); | |
862 break; | |
863 case GAIM_PREF_BOOLEAN: | |
864 Tcl_SetStringObj(result, "boolean", -1); | |
865 break; | |
866 case GAIM_PREF_INT: | |
867 Tcl_SetStringObj(result, "int", -1); | |
868 break; | |
869 case GAIM_PREF_STRING: | |
870 Tcl_SetStringObj(result, "string", -1); | |
871 break; | |
872 case GAIM_PREF_STRING_LIST: | |
873 Tcl_SetStringObj(result, "stringlist", -1); | |
874 break; | |
875 default: | |
876 gaim_debug(GAIM_DEBUG_ERROR, "tcl", "tcl does not know about pref type %d\n", preftype); | |
877 Tcl_SetStringObj(result, "unknown", -1); | |
878 } | |
879 break; | |
880 } | |
881 | |
882 return TCL_OK; | |
883 } | |
884 | |
885 int tcl_cmd_send_im(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
886 { | |
887 GaimConnection *gc; | |
888 char *who, *text; | |
889 | |
890 if (objc != 4) { | |
891 Tcl_WrongNumArgs(interp, 1, objv, "gc who text"); | |
892 return TCL_ERROR; | |
893 } | |
894 | |
13815 | 895 if ((gc = tcl_validate_gc(objv[1], interp)) == NULL) |
6694 | 896 return TCL_ERROR; |
897 | |
898 who = Tcl_GetString(objv[2]); | |
899 text = Tcl_GetString(objv[3]); | |
900 | |
6982 | 901 serv_send_im(gc, who, text, 0); |
6694 | 902 |
903 return TCL_OK; | |
904 } | |
905 | |
906 int tcl_cmd_signal(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
907 { | |
10339 | 908 const char *cmds[] = { "connect", "disconnect", NULL }; |
6694 | 909 enum { CMD_SIGNAL_CONNECT, CMD_SIGNAL_DISCONNECT } cmd; |
910 struct tcl_signal_handler *handler; | |
10597 | 911 Tcl_Obj *result = Tcl_GetObjResult(interp); |
6694 | 912 void *instance; |
10597 | 913 int error; |
6694 | 914 |
915 if (objc < 2) { | |
916 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
917 return TCL_ERROR; | |
918 } | |
919 | |
920 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
921 return error; | |
922 | |
923 switch (cmd) { | |
924 case CMD_SIGNAL_CONNECT: | |
925 if (objc != 6) { | |
926 Tcl_WrongNumArgs(interp, 2, objv, "instance signal args proc"); | |
927 return TCL_ERROR; | |
928 } | |
929 handler = g_new0(struct tcl_signal_handler, 1); | |
930 if ((error = Tcl_GetIntFromObj(interp, objv[2], (int *)&handler->instance)) != TCL_OK) { | |
931 g_free(handler); | |
932 return error; | |
933 } | |
10597 | 934 handler->signal = objv[3]; |
13810 | 935 Tcl_IncrRefCount(handler->signal); |
10597 | 936 handler->args = objv[4]; |
937 handler->proc = objv[5]; | |
6694 | 938 handler->interp = interp; |
939 if (!tcl_signal_connect(handler)) { | |
940 tcl_signal_handler_free(handler); | |
941 Tcl_SetIntObj(result, 1); | |
942 } else { | |
943 Tcl_SetIntObj(result, 0); | |
944 } | |
945 break; | |
946 case CMD_SIGNAL_DISCONNECT: | |
947 if (objc != 4) { | |
13810 | 948 Tcl_WrongNumArgs(interp, 2, objv, "instance signal"); |
6694 | 949 return TCL_ERROR; |
950 } | |
951 if ((error = Tcl_GetIntFromObj(interp, objv[2], (int *)&instance)) != TCL_OK) | |
952 return error; | |
953 tcl_signal_disconnect(instance, Tcl_GetString(objv[3]), interp); | |
954 break; | |
955 } | |
956 | |
957 return TCL_OK; | |
958 } | |
959 | |
13810 | 960 int tcl_cmd_status(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
961 { | |
962 const char *cmds[] = { "attr", "type" }; | |
963 enum { CMD_STATUS_ATTR, CMD_STATUS_TYPE } cmd; | |
964 Tcl_Obj *result = Tcl_GetObjResult(interp); | |
965 GaimStatus *status; | |
966 GaimStatusType *status_type; | |
967 GaimValue *value; | |
968 int error; | |
969 | |
970 if (objc < 2) { | |
971 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
972 return TCL_ERROR; | |
973 } | |
974 | |
975 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
976 return error; | |
977 | |
978 switch (cmd) { | |
979 case CMD_STATUS_ATTR: | |
980 if (objc != 4) { | |
981 Tcl_WrongNumArgs(interp, 2, objv, "status attr_id"); | |
982 return TCL_ERROR; | |
983 } | |
984 if ((status = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatus)) == NULL) | |
985 return TCL_ERROR; | |
986 value = gaim_status_get_attr_value(status, Tcl_GetString(objv[3])); | |
987 if (value == NULL) { | |
988 Tcl_SetStringObj(result, "no such attribute", -1); | |
989 return TCL_ERROR; | |
990 } | |
991 switch (gaim_value_get_type(value)) { | |
992 case GAIM_TYPE_BOOLEAN: | |
993 Tcl_SetBooleanObj(result, gaim_value_get_boolean(value)); | |
994 break; | |
995 case GAIM_TYPE_INT: | |
996 Tcl_SetIntObj(result, gaim_value_get_int(value)); | |
997 break; | |
998 case GAIM_TYPE_STRING: | |
999 Tcl_SetStringObj(result, gaim_value_get_string(value), -1); | |
1000 break; | |
1001 default: | |
1002 Tcl_SetStringObj(result, "attribute has unknown type", -1); | |
1003 return TCL_ERROR; | |
1004 } | |
1005 break; | |
1006 case CMD_STATUS_TYPE: | |
1007 if (objc != 3) { | |
1008 Tcl_WrongNumArgs(interp, 2, objv, "status"); | |
1009 return TCL_ERROR; | |
1010 } | |
1011 if ((status = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatus)) == NULL) | |
1012 return TCL_ERROR; | |
1013 status_type = gaim_status_get_type(status); | |
1014 Tcl_SetObjResult(interp, gaim_tcl_ref_new(GaimTclRefStatusType, | |
1015 status_type)); | |
1016 break; | |
1017 } | |
1018 | |
1019 return TCL_OK; | |
1020 } | |
1021 | |
1022 int tcl_cmd_status_attr(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
1023 { | |
1024 const char *cmds[] = { "id", "name", NULL }; | |
1025 enum { CMD_STATUS_ATTR_ID, CMD_STATUS_ATTR_NAME } cmd; | |
1026 Tcl_Obj *result = Tcl_GetObjResult(interp); | |
1027 GaimStatusAttr *attr; | |
1028 int error; | |
1029 | |
1030 if (objc < 2) { | |
1031 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
1032 return TCL_ERROR; | |
1033 } | |
1034 | |
1035 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
1036 return error; | |
1037 | |
1038 switch (cmd) { | |
1039 case CMD_STATUS_ATTR_ID: | |
1040 if (objc != 3) { | |
1041 Tcl_WrongNumArgs(interp, 2, objv, "attr"); | |
1042 return TCL_ERROR; | |
1043 } | |
1044 if ((attr = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusAttr)) == NULL) | |
1045 return TCL_ERROR; | |
1046 Tcl_SetStringObj(result, gaim_status_attr_get_id(attr), -1); | |
1047 break; | |
1048 case CMD_STATUS_ATTR_NAME: | |
1049 if (objc != 3) { | |
1050 Tcl_WrongNumArgs(interp, 2, objv, "attr"); | |
1051 return TCL_ERROR; | |
1052 } | |
1053 if ((attr = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusAttr)) == NULL) | |
1054 return TCL_ERROR; | |
1055 Tcl_SetStringObj(result, gaim_status_attr_get_name(attr), -1); | |
1056 break; | |
1057 } | |
1058 | |
1059 return TCL_OK; | |
1060 } | |
1061 | |
1062 int tcl_cmd_status_type(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
1063 { | |
1064 const char *cmds[] = { "attr", "attrs", "available", "exclusive", "id", | |
1065 "independent", "name", "primary_attr", | |
1066 "primitive", "saveable", "user_settable", | |
1067 NULL }; | |
1068 enum { CMD_STATUS_TYPE_ATTR, CMD_STATUS_TYPE_ATTRS, | |
1069 CMD_STATUS_TYPE_AVAILABLE, CMD_STATUS_TYPE_EXCLUSIVE, | |
1070 CMD_STATUS_TYPE_ID, CMD_STATUS_TYPE_INDEPENDENT, | |
1071 CMD_STATUS_TYPE_NAME, CMD_STATUS_TYPE_PRIMARY_ATTR, | |
1072 CMD_STATUS_TYPE_PRIMITIVE, CMD_STATUS_TYPE_SAVEABLE, | |
1073 CMD_STATUS_TYPE_USER_SETTABLE } cmd; | |
1074 Tcl_Obj *result = Tcl_GetObjResult(interp); | |
1075 GaimStatusType *status_type; | |
1076 Tcl_Obj *list, *elem; | |
1077 const GList *cur; | |
1078 int error; | |
1079 | |
1080 if (objc < 2) { | |
1081 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | |
1082 return TCL_ERROR; | |
1083 } | |
1084 | |
1085 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) | |
1086 return error; | |
1087 | |
1088 switch (cmd) { | |
1089 case CMD_STATUS_TYPE_AVAILABLE: | |
1090 if (objc != 3) { | |
1091 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1092 return TCL_ERROR; | |
1093 } | |
1094 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1095 return TCL_ERROR; | |
1096 Tcl_SetBooleanObj(result, gaim_status_type_is_available(status_type)); | |
1097 break; | |
1098 case CMD_STATUS_TYPE_ATTR: | |
1099 if (objc != 4) { | |
1100 Tcl_WrongNumArgs(interp, 2, objv, "statustype attr"); | |
1101 return TCL_ERROR; | |
1102 } | |
1103 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1104 return TCL_ERROR; | |
1105 Tcl_SetObjResult(interp, | |
1106 gaim_tcl_ref_new(GaimTclRefStatusAttr, | |
1107 gaim_status_type_get_attr(status_type, | |
1108 Tcl_GetStringFromObj(objv[3], NULL)))); | |
1109 break; | |
1110 case CMD_STATUS_TYPE_ATTRS: | |
1111 if (objc != 3) { | |
1112 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1113 return TCL_ERROR; | |
1114 } | |
1115 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1116 return TCL_ERROR; | |
1117 list = Tcl_NewListObj(0, NULL); | |
1118 for (cur = gaim_status_type_get_attrs(status_type); | |
1119 cur != NULL; cur = g_list_next(cur)) { | |
1120 elem = gaim_tcl_ref_new(GaimTclRefStatusAttr, cur->data); | |
1121 Tcl_ListObjAppendElement(interp, list, elem); | |
1122 } | |
1123 Tcl_SetObjResult(interp, list); | |
1124 break; | |
1125 case CMD_STATUS_TYPE_EXCLUSIVE: | |
1126 if (objc != 3) { | |
1127 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1128 return TCL_ERROR; | |
1129 } | |
1130 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1131 return TCL_ERROR; | |
1132 Tcl_SetBooleanObj(result, gaim_status_type_is_exclusive(status_type)); | |
1133 break; | |
1134 case CMD_STATUS_TYPE_ID: | |
1135 if (objc != 3) { | |
1136 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1137 return TCL_ERROR; | |
1138 } | |
1139 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1140 return TCL_ERROR; | |
1141 Tcl_SetStringObj(result, gaim_status_type_get_id(status_type), -1); | |
1142 break; | |
1143 case CMD_STATUS_TYPE_INDEPENDENT: | |
1144 if (objc != 3) { | |
1145 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1146 return TCL_ERROR; | |
1147 } | |
1148 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1149 return TCL_ERROR; | |
1150 Tcl_SetBooleanObj(result, gaim_status_type_is_independent(status_type)); | |
1151 break; | |
1152 case CMD_STATUS_TYPE_NAME: | |
1153 if (objc != 3) { | |
1154 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1155 return TCL_ERROR; | |
1156 } | |
1157 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1158 return TCL_ERROR; | |
1159 Tcl_SetStringObj(result, gaim_status_type_get_name(status_type), -1); | |
1160 break; | |
1161 case CMD_STATUS_TYPE_PRIMITIVE: | |
1162 if (objc != 3) { | |
1163 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1164 return TCL_ERROR; | |
1165 } | |
1166 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1167 return TCL_ERROR; | |
1168 Tcl_SetStringObj(result, gaim_primitive_get_id_from_type(gaim_status_type_get_primitive(status_type)), -1); | |
1169 break; | |
1170 case CMD_STATUS_TYPE_PRIMARY_ATTR: | |
1171 if (objc != 3) { | |
1172 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1173 return TCL_ERROR; | |
1174 } | |
1175 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1176 return TCL_ERROR; | |
1177 Tcl_SetStringObj(result, gaim_status_type_get_primary_attr(status_type), -1); | |
1178 break; | |
1179 case CMD_STATUS_TYPE_SAVEABLE: | |
1180 if (objc != 3) { | |
1181 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1182 return TCL_ERROR; | |
1183 } | |
1184 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1185 return TCL_ERROR; | |
1186 Tcl_SetBooleanObj(result, gaim_status_type_is_saveable(status_type)); | |
1187 break; | |
1188 case CMD_STATUS_TYPE_USER_SETTABLE: | |
1189 if (objc != 3) { | |
1190 Tcl_WrongNumArgs(interp, 2, objv, "statustype"); | |
1191 return TCL_ERROR; | |
1192 } | |
1193 if ((status_type = gaim_tcl_ref_get(interp, objv[2], GaimTclRefStatusType)) == NULL) | |
1194 return TCL_ERROR; | |
1195 Tcl_SetBooleanObj(result, gaim_status_type_is_user_settable(status_type)); | |
1196 break; | |
1197 } | |
1198 | |
1199 return TCL_OK; | |
1200 } | |
1201 | |
6694 | 1202 static gboolean unload_self(gpointer data) |
1203 { | |
1204 GaimPlugin *plugin = data; | |
1205 gaim_plugin_unload(plugin); | |
1206 return FALSE; | |
1207 } | |
1208 | |
1209 int tcl_cmd_unload(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | |
1210 { | |
1211 GaimPlugin *plugin; | |
1212 if (objc != 1) { | |
1213 Tcl_WrongNumArgs(interp, 1, objv, ""); | |
1214 return TCL_ERROR; | |
1215 } | |
1216 | |
1217 if ((plugin = tcl_interp_get_plugin(interp)) == NULL) { | |
1218 /* This isn't exactly OK, but heh. What do you do? */ | |
1219 return TCL_OK; | |
1220 } | |
1221 /* We can't unload immediately, but we can unload at the first | |
1222 * known safe opportunity. */ | |
1223 g_idle_add(unload_self, (gpointer)plugin); | |
1224 | |
1225 return TCL_OK; | |
1226 } |