view plugins/tcl/tcl_gaim.h @ 12798:09d4ea834370

[gaim-migrate @ 15145] SF Patch #1389870 from Bleeter, building on work in SF Patch #1114194 from Alex Badea "Following on from #1114194, where I thought that sending audibles is a little twitty because we can't see what's going on, I also noted that it would be nice if we could display the URL wheree the audible swf file lived. The example URL provided only supported US locales, which also needed addressing. I've tested this patch with the Taiwain audible, named within the patch, by confirming that the URL pattern match actually works. Whether it actually works when sent from a Taiwanese YIM native client, I have no idea. It looks like it should. Just to re-iterate: This patch displays the the received audible's URL and text only, not the audible swf file itself, nor does it send anything." committer: Tailor Script <[e-mail]>

+
鐃緒申/**
+
鐃緒申 * @file tcl_gaim.h Gaim Tcl definitions
+
鐃緒申 *
+
鐃緒申 * gaim
+
鐃緒申 *
+
鐃緒申 * Copyright (C) 2003 Ethan Blanton <[e-mail]>
+
鐃緒申 * 
+
鐃緒申 * 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 {
+
鐃緒申	Tcl_Obj *signal;
+
鐃緒申	Tcl_Interp *interp;
+
鐃緒申
+
鐃緒申	void *instance;
+
鐃緒申	Tcl_Obj *namespace;
+
鐃緒申	/* These following two are temporary during setup */
+
鐃緒申	Tcl_Obj *args;
+
鐃緒申	Tcl_Obj *proc;
+
鐃緒申
+
鐃緒申	GaimValue *returntype;
+
鐃緒申	int nargs;
+
鐃緒申	GaimValue **argtypes;
+
鐃緒申};
+
鐃緒申
+
鐃緒申extern GaimPlugin *_tcl_plugin;
+
鐃緒申
+
鐃緒申GaimPlugin *tcl_interp_get_plugin(Tcl_Interp *interp);
+
鐃緒申
+
鐃緒申void tcl_signal_init(void);
+
鐃緒申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_ */