Mercurial > pidgin
diff plugins/tcl/tcl_gaim.h @ 6694:2d2f04c5c7d2
[gaim-migrate @ 7220]
Sean probably won't think this is contact support. This is in fact a
Tcl script plugin loader. That's probably what he'll think it is.
committer: Tailor Script <tailor@pidgin.im>
author | Ethan Blanton <elb@pidgin.im> |
---|---|
date | Tue, 02 Sep 2003 03:34:37 +0000 |
parents | |
children | 0e886a234d92 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/plugins/tcl/tcl_gaim.h Tue Sep 02 03:34:37 2003 +0000 @@ -0,0 +1,69 @@ +/** + * @file tcl_gaim.h Gaim Tcl definitions + * + * gaim + * + * Copyright (C) 2003 Ethan Blanton <eblanton@cs.purdue.edu> + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + */ + +#ifndef _GAIM_TCL_GAIM_H_ +#define _GAIM_TCL_GAIM_H_ + +#include <tcl.h> + +#include "internal.h" +#include "plugin.h" +#include "value.h" + +struct tcl_signal_handler { + char *signal; + Tcl_Interp *interp; + + void *instance; + Tcl_Obj *proc; + int nnames; + char **argnames; + + GaimValue *returntype; + int nargs; + GaimValue **argtypes; +}; + +extern GaimPlugin *_tcl_plugin; + +GaimPlugin *tcl_interp_get_plugin(Tcl_Interp *interp); + +void tcl_signal_init(); +void tcl_signal_handler_free(struct tcl_signal_handler *handler); +void tcl_signal_cleanup(Tcl_Interp *interp); +gboolean tcl_signal_connect(struct tcl_signal_handler *handler); +void tcl_signal_disconnect(void *instance, const char *signal, Tcl_Interp *interp); + +Tcl_ObjCmdProc tcl_cmd_account; +Tcl_ObjCmdProc tcl_cmd_signal_connect; +Tcl_ObjCmdProc tcl_cmd_buddy; +Tcl_ObjCmdProc tcl_cmd_connection; +Tcl_ObjCmdProc tcl_cmd_conversation; +Tcl_ObjCmdProc tcl_cmd_core; +Tcl_ObjCmdProc tcl_cmd_debug; +Tcl_ObjCmdProc tcl_cmd_notify; +Tcl_ObjCmdProc tcl_cmd_prefs; +Tcl_ObjCmdProc tcl_cmd_send_im; +Tcl_ObjCmdProc tcl_cmd_signal; +Tcl_ObjCmdProc tcl_cmd_unload; + +#endif /* _GAIM_TCL_GAIM_H_ */