comparison: libpurple/plugins/tcl/tcl_purple.h
libpurple/plugins/tcl/tcl_purple.h
- changeset 37581
- 1fb661b5f206
- parent 37580
- 498763742ea4
- child 37582
- ca3533cdddc7
equal
deleted
inserted
replaced
| 37580:498763742ea4 | 37581:1fb661b5f206 |
|---|---|
| 1 /** | |
| 2 * @file tcl_purple.h Purple Tcl definitions | |
| 3 * | |
| 4 * purple | |
| 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA | |
| 21 */ | |
| 22 | |
| 23 #ifndef _PURPLE_TCL_PURPLE_H_ | |
| 24 #define _PURPLE_TCL_PURPLE_H_ | |
| 25 | |
| 26 #include <tcl.h> | |
| 27 | |
| 28 #include "internal.h" | |
| 29 #include "cmds.h" | |
| 30 #include "plugins.h" | |
| 31 #include "stringref.h" | |
| 32 | |
| 33 struct tcl_signal_handler { | |
| 34 Tcl_Obj *signal; | |
| 35 Tcl_Interp *interp; | |
| 36 | |
| 37 void *instance; | |
| 38 Tcl_Obj *namespace; | |
| 39 /* These following two are temporary during setup */ | |
| 40 Tcl_Obj *args; | |
| 41 Tcl_Obj *proc; | |
| 42 | |
| 43 GType returntype; | |
| 44 int nargs; | |
| 45 GType *argtypes; | |
| 46 }; | |
| 47 | |
| 48 struct tcl_cmd_handler { | |
| 49 PurpleCmdId id; | |
| 50 Tcl_Obj *cmd; | |
| 51 Tcl_Interp *interp; | |
| 52 | |
| 53 Tcl_Obj *namespace; | |
| 54 /* These are temporary during setup */ | |
| 55 const char *args; | |
| 56 int priority; | |
| 57 int flags; | |
| 58 const char *protocol_id; | |
| 59 Tcl_Obj *proc; | |
| 60 const char *helpstr; | |
| 61 | |
| 62 int nargs; | |
| 63 }; | |
| 64 | |
| 65 extern PurplePlugin *_tcl_plugin; | |
| 66 | |
| 67 /* Capitalized this way because these are "types" */ | |
| 68 extern PurpleStringref *PurpleTclRefAccount; | |
| 69 extern PurpleStringref *PurpleTclRefConnection; | |
| 70 extern PurpleStringref *PurpleTclRefConversation; | |
| 71 extern PurpleStringref *PurpleTclRefPointer; | |
| 72 extern PurpleStringref *PurpleTclRefPlugin; | |
| 73 extern PurpleStringref *PurpleTclRefPresence; | |
| 74 extern PurpleStringref *PurpleTclRefStatus; | |
| 75 extern PurpleStringref *PurpleTclRefStatusAttr; | |
| 76 extern PurpleStringref *PurpleTclRefStatusType; | |
| 77 extern PurpleStringref *PurpleTclRefXfer; | |
| 78 extern PurpleStringref *PurpleTclRefHandle; | |
| 79 | |
| 80 PurplePlugin *tcl_interp_get_plugin(Tcl_Interp *interp); | |
| 81 | |
| 82 void tcl_signal_init(void); | |
| 83 void tcl_signal_handler_free(struct tcl_signal_handler *handler); | |
| 84 void tcl_signal_cleanup(Tcl_Interp *interp); | |
| 85 gboolean tcl_signal_connect(struct tcl_signal_handler *handler); | |
| 86 void tcl_signal_disconnect(void *instance, const char *signal, Tcl_Interp *interp); | |
| 87 | |
| 88 void tcl_cmd_init(void); | |
| 89 void tcl_cmd_handler_free(struct tcl_cmd_handler *handler); | |
| 90 void tcl_cmd_cleanup(Tcl_Interp *interp); | |
| 91 PurpleCmdId tcl_cmd_register(struct tcl_cmd_handler *handler); | |
| 92 void tcl_cmd_unregister(PurpleCmdId id, Tcl_Interp *interp); | |
| 93 | |
| 94 void purple_tcl_ref_init(void); | |
| 95 void *purple_tcl_ref_get(Tcl_Interp *interp, Tcl_Obj *obj, PurpleStringref *type); | |
| 96 Tcl_Obj *purple_tcl_ref_new(PurpleStringref *type, void *value); | |
| 97 | |
| 98 Tcl_ObjCmdProc tcl_cmd_account; | |
| 99 Tcl_ObjCmdProc tcl_cmd_signal_connect; | |
| 100 Tcl_ObjCmdProc tcl_cmd_buddy; | |
| 101 Tcl_ObjCmdProc tcl_cmd_cmd; | |
| 102 Tcl_ObjCmdProc tcl_cmd_connection; | |
| 103 Tcl_ObjCmdProc tcl_cmd_conversation; | |
| 104 Tcl_ObjCmdProc tcl_cmd_core; | |
| 105 Tcl_ObjCmdProc tcl_cmd_debug; | |
| 106 Tcl_ObjCmdProc tcl_cmd_notify; | |
| 107 Tcl_ObjCmdProc tcl_cmd_plugins; | |
| 108 Tcl_ObjCmdProc tcl_cmd_prefs; | |
| 109 Tcl_ObjCmdProc tcl_cmd_presence; | |
| 110 Tcl_ObjCmdProc tcl_cmd_savedstatus; | |
| 111 Tcl_ObjCmdProc tcl_cmd_send_im; | |
| 112 Tcl_ObjCmdProc tcl_cmd_signal; | |
| 113 Tcl_ObjCmdProc tcl_cmd_status; | |
| 114 Tcl_ObjCmdProc tcl_cmd_status_attr; | |
| 115 Tcl_ObjCmdProc tcl_cmd_status_type; | |
| 116 Tcl_ObjCmdProc tcl_cmd_unload; | |
| 117 | |
| 118 #endif /* _PURPLE_TCL_PURPLE_H_ */ |
