Mercurial > pidgin
annotate plugins/tcl/tcl_gaim.h @ 13824:3b8dc44ff25f
[gaim-migrate @ 16268]
Shut up a useless warning, fix a return bug, and allow setting of status attrs
committer: Tailor Script <tailor@pidgin.im>
author | Ethan Blanton <elb@pidgin.im> |
---|---|
date | Fri, 16 Jun 2006 03:42:34 +0000 |
parents | e5e07c996c56 |
children | d0ff520f87da |
rev | line source |
---|---|
6694 | 1 /** |
2 * @file tcl_gaim.h Gaim Tcl definitions | |
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 #ifndef _GAIM_TCL_GAIM_H_ | |
24 #define _GAIM_TCL_GAIM_H_ | |
25 | |
26 #include <tcl.h> | |
27 | |
28 #include "internal.h" | |
29 #include "plugin.h" | |
30 #include "value.h" | |
13810 | 31 #include "stringref.h" |
6694 | 32 |
33 struct tcl_signal_handler { | |
10597 | 34 Tcl_Obj *signal; |
6694 | 35 Tcl_Interp *interp; |
36 | |
37 void *instance; | |
10597 | 38 Tcl_Obj *namespace; |
39 /* These following two are temporary during setup */ | |
40 Tcl_Obj *args; | |
6694 | 41 Tcl_Obj *proc; |
42 | |
43 GaimValue *returntype; | |
44 int nargs; | |
45 GaimValue **argtypes; | |
46 }; | |
47 | |
48 extern GaimPlugin *_tcl_plugin; | |
49 | |
13810 | 50 /* Capitalized this way because these are "types" */ |
51 extern GaimStringref *GaimTclRefAccount; | |
13815 | 52 extern GaimStringref *GaimTclRefConnection; |
13810 | 53 extern GaimStringref *GaimTclRefConversation; |
13817 | 54 extern GaimStringref *GaimTclRefPointer; |
13821 | 55 extern GaimStringref *GaimTclRefPresence; |
13810 | 56 extern GaimStringref *GaimTclRefStatus; |
57 extern GaimStringref *GaimTclRefStatusAttr; | |
58 extern GaimStringref *GaimTclRefStatusType; | |
59 | |
6694 | 60 GaimPlugin *tcl_interp_get_plugin(Tcl_Interp *interp); |
61 | |
12323
fc464a0abccc
[gaim-migrate @ 14627]
Richard Laager <rlaager@wiktel.com>
parents:
10597
diff
changeset
|
62 void tcl_signal_init(void); |
6694 | 63 void tcl_signal_handler_free(struct tcl_signal_handler *handler); |
64 void tcl_signal_cleanup(Tcl_Interp *interp); | |
65 gboolean tcl_signal_connect(struct tcl_signal_handler *handler); | |
66 void tcl_signal_disconnect(void *instance, const char *signal, Tcl_Interp *interp); | |
67 | |
13824 | 68 void gaim_tcl_ref_init(void); |
13810 | 69 void *gaim_tcl_ref_get(Tcl_Interp *interp, Tcl_Obj *obj, GaimStringref *type); |
70 Tcl_Obj *gaim_tcl_ref_new(GaimStringref *type, void *value); | |
71 | |
6694 | 72 Tcl_ObjCmdProc tcl_cmd_account; |
73 Tcl_ObjCmdProc tcl_cmd_signal_connect; | |
74 Tcl_ObjCmdProc tcl_cmd_buddy; | |
75 Tcl_ObjCmdProc tcl_cmd_connection; | |
76 Tcl_ObjCmdProc tcl_cmd_conversation; | |
77 Tcl_ObjCmdProc tcl_cmd_core; | |
78 Tcl_ObjCmdProc tcl_cmd_debug; | |
79 Tcl_ObjCmdProc tcl_cmd_notify; | |
80 Tcl_ObjCmdProc tcl_cmd_prefs; | |
13821 | 81 Tcl_ObjCmdProc tcl_cmd_presence; |
6694 | 82 Tcl_ObjCmdProc tcl_cmd_send_im; |
83 Tcl_ObjCmdProc tcl_cmd_signal; | |
13810 | 84 Tcl_ObjCmdProc tcl_cmd_status; |
85 Tcl_ObjCmdProc tcl_cmd_status_attr; | |
86 Tcl_ObjCmdProc tcl_cmd_status_type; | |
6694 | 87 Tcl_ObjCmdProc tcl_cmd_unload; |
88 | |
89 #endif /* _GAIM_TCL_GAIM_H_ */ |