/pidgin/main: 1fb661b5f206: Remove the tcl loader
Gary Kramlich <[email protected]>
| Newsgroups | gmane.comp.gnome.gaim.cvs |
|---|---|
| Message-ID | <[email protected]> |
Changeset: 1fb661b5f206113bebe874c67d86b8ab75638d14 Author: Gary Kramlich <[email protected]> Date: 2016-03-08 20:31 -0600 Branch: default URL: https://hg.pidgin.im/pidgin/main/rev/1fb661b5f206 Description: Remove the tcl loader diffstat: libpurple/plugins/tcl/Makefile.am | 23 - libpurple/plugins/tcl/Makefile.mingw | 78 - libpurple/plugins/tcl/signal-test.tcl | 123 -- libpurple/plugins/tcl/tcl.c | 503 --------- libpurple/plugins/tcl/tcl_cmd.c | 189 --- libpurple/plugins/tcl/tcl_cmds.c | 1769 --------------------------------- libpurple/plugins/tcl/tcl_glib.c | 259 ---- libpurple/plugins/tcl/tcl_glib.h | 29 - libpurple/plugins/tcl/tcl_purple.h | 118 -- libpurple/plugins/tcl/tcl_ref.c | 156 -- libpurple/plugins/tcl/tcl_signals.c | 404 ------- 11 files changed, 0 insertions(+), 3651 deletions(-) diffs (truncated from 3706 to 300 lines): diff --git a/libpurple/plugins/tcl/Makefile.am b/libpurple/plugins/tcl/Makefile.am deleted file mode 100644 --- a/libpurple/plugins/tcl/Makefile.am +++ /dev/null @@ -1,23 +0,0 @@ -plugindir = @PURPLE_PLUGINDIR@ - -tcl_la_LDFLAGS = -module @PLUGIN_LDFLAGS@ - -plugin_LTLIBRARIES = tcl.la - -tcl_la_SOURCES = tcl.c tcl_glib.c tcl_glib.h tcl_cmds.c tcl_signals.c tcl_purple.h \ - tcl_ref.c tcl_cmd.c - -tcl_la_LIBADD = @PURPLE_LIBS@ $(GPLUGIN_LIBS) $(TCL_LIBS) $(TK_LIBS) - -EXTRA_DIST = signal-test.tcl Makefile.mingw - -AM_CPPFLAGS = \ - -I$(top_srcdir) \ - -I$(top_srcdir)/libpurple \ - -I$(top_builddir)/libpurple \ - $(DEBUG_CFLAGS) \ - $(GLIB_CFLAGS) \ - $(GPLUGIN_CFLAGS) \ - $(PLUGIN_CFLAGS) \ - $(TK_CFLAGS) \ - $(TCL_CFLAGS) diff --git a/libpurple/plugins/tcl/Makefile.mingw b/libpurple/plugins/tcl/Makefile.mingw deleted file mode 100644 --- a/libpurple/plugins/tcl/Makefile.mingw +++ /dev/null @@ -1,78 +0,0 @@ -# -# Makefile.mingw -# -# Description: Makefile for tcl plugin loader plugin. -# - -PIDGIN_TREE_TOP := ../../.. -include $(PIDGIN_TREE_TOP)/libpurple/win32/global.mak - -TARGET = tcl -TCL_INC_DIR := $(TCL_LIB_TOP)/include -DEFINES += -DHAVE_TK -DUSE_TCL_STUBS -DUSE_TK_STUBS - -## -## INCLUDE PATHS -## -INCLUDE_PATHS += -I. \ - -I$(PIDGIN_TREE_TOP) \ - -I$(PURPLE_TOP) \ - -I$(PURPLE_TOP)/win32 \ - -I$(GTK_TOP)/include \ - -I$(GTK_TOP)/include/glib-2.0 \ - -I$(GTK_TOP)/lib/glib-2.0/include \ - -I$(TCL_INC_DIR) - -LIB_PATHS += -L$(GTK_TOP)/lib \ - -L$(PURPLE_TOP) \ - -L$(TCL_LIB_TOP)/lib - -## -## SOURCES, OBJECTS -## -C_SRC = tcl.c \ - tcl_cmd.c \ - tcl_cmds.c \ - tcl_glib.c \ - tcl_ref.c \ - tcl_signals.c - -OBJECTS = $(C_SRC:%.c=%.o) - -## -## LIBRARIES -## -LIBS = \ - -lglib-2.0 \ - -lgobject-2.0 \ - -lws2_32 \ - -lintl \ - -lpurple \ - -ltclstub85 \ - -ltkstub85 - -include $(PIDGIN_COMMON_RULES) - -## -## TARGET DEFINITIONS -## -.PHONY: all install clean - -all: $(TARGET).dll - -install: all $(PURPLE_INSTALL_PLUGINS_DIR) - cp $(TARGET).dll $(PURPLE_INSTALL_PLUGINS_DIR) - -$(OBJECTS): $(PURPLE_CONFIG_H) - -$(TARGET).dll: $(PURPLE_DLL).a $(OBJECTS) - $(CC) -shared $(OBJECTS) $(LIB_PATHS) $(LIBS) $(DLL_LD_FLAGS) -o $(TARGET).dll - -## -## CLEAN RULES -## -clean: - rm -rf $(OBJECTS) - rm -rf $(TARGET).dll - -include $(PIDGIN_COMMON_TARGETS) diff --git a/libpurple/plugins/tcl/signal-test.tcl b/libpurple/plugins/tcl/signal-test.tcl deleted file mode 100644 --- a/libpurple/plugins/tcl/signal-test.tcl +++ /dev/null @@ -1,123 +0,0 @@ -purple::signal connect [purple::account handle] account-away { account state message } { - purple::debug -info "tcl signal" "account-away [purple::account username $account] \"$state\" \"$message\"" -} - -purple::signal connect [purple::account handle] account-connecting { account } { - purple::debug -info "tcl signal" "account-connecting [purple::account username $account]" -} - -purple::signal connect [purple::account handle] account-set-info { account info } { - purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info" -} - -purple::signal connect [purple::account handle] account-setting-info { account info } { - purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info" -} - -purple::signal connect [purple::buddy handle] buddy-away { buddy } { - purple::debug -info "tcl signal" "buddy-away [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" -} - -purple::signal connect [purple::buddy handle] buddy-back { buddy } { - purple::debug -info "tcl signal" "buddy-back [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" -} - -purple::signal connect [purple::buddy handle] buddy-idle { buddy } { - purple::debug -info "tcl signal" "buddy-idle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" -} - -purple::signal connect [purple::buddy handle] buddy-unidle { buddy } { - purple::debug -info "tcl signal" "buddy-unidle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" -} - -purple::signal connect [purple::buddy handle] buddy-signed-on { buddy } { - purple::debug -info "tcl signal" "buddy-signed-on [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" -} - -purple::signal connect [purple::buddy handle] buddy-signed-off { buddy } { - purple::debug -info "tcl signal" "buddy-signed-off [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" -} - -purple::signal connect [purple::core handle] quitting {} { - purple::debug -info "tcl signal" "quitting" -} - -purple::signal connect [purple::conversation handle] receiving-chat-msg { account who what id flags } { - purple::debug -info "tcl signal" "receiving-chat-msg [purple::account username $account] $id $flags $who \"$what\"" - return 0 -} - -purple::signal connect [purple::conversation handle] receiving-im-msg { account who what id flags } { - purple::debug -info "tcl signal" "receiving-im-msg [purple::account username $account] $id $flags $who \"$what\"" - return 0 -} - -purple::signal connect [purple::conversation handle] received-chat-msg { account who what id flags } { - purple::debug -info "tcl signal" "received-chat-msg [purple::account username $account] $id $flags $who \"$what\"" -} - -purple::signal connect [purple::conversation handle] received-im-msg { account who what id flags } { - purple::debug -info "tcl signal" "received-im-msg [purple::account username $account] $id $flags $who \"$what\"" -} - -purple::signal connect [purple::conversation handle] sending-chat-msg { account what id } { - purple::debug -info "tcl signal" "sending-chat-msg [purple::account username $account] $id \"$what\"" - return 0 -} - -purple::signal connect [purple::conversation handle] sending-im-msg { account who what } { - purple::debug -info "tcl signal" "sending-im-msg [purple::account username $account] $who \"$what\"" - return 0 -} - -purple::signal connect [purple::conversation handle] sent-chat-msg { account id what } { - purple::debug -info "tcl signal" "sent-chat-msg [purple::account username $account] $id \"$what\"" -} - -purple::signal connect [purple::conversation handle] sent-im-msg { account who what } { - purple::debug -info "tcl signal" "sent-im-msg [purple::account username $account] $who \"$what\"" -} - -purple::signal connect [purple::connection handle] signed-on { gc } { - purple::debug -info "tcl signal" "signed-on [purple::account username [purple::connection account $gc]]" -} - -purple::signal connect [purple::connection handle] signed-off { gc } { - purple::debug -info "tcl signal" "signed-off [purple::account username [purple::connection account $gc]]" -} - -purple::signal connect [purple::connection handle] signing-on { gc } { - purple::debug -info "tcl signal" "signing-on [purple::account username [purple::connection account $gc]]" -} - -if { 0 } { -purple::signal connect signing-off { - purple::debug -info "tcl signal" "signing-off [purple::account username [purple::connection account $event::gc]]" -} - -purple::signal connect update-idle { - purple::debug -info "tcl signal" "update-idle" -} -} - -purple::signal connect [purple::plugins handle] plugin-load args { - purple::debug -info "tcl signal" "plugin-load [list $args]" -} - -purple::signal connect [purple::plugins handle] plugin-unload args { - purple::debug -info "tcl signal" "plugin-unload [list $args]" -} - -purple::signal connect [purple::savedstatus handle] savedstatus-changed args { - purple::debug -info "tcl signal" "savedstatus-changed [list $args]" - purple::debug -info "tcl signal" "purple::savedstatus current = [purple::savedstatus current]" -} - -proc plugin_init { } { - list "Tcl Signal Test" \ - "$purple::version" \ - "Tests Tcl signal handlers" \ - "Debugs a ridiculous amount of signal information." \ - "Ethan Blanton <[email protected]>" \ - "https://pidgin.im/" -} diff --git a/libpurple/plugins/tcl/tcl.c b/libpurple/plugins/tcl/tcl.c deleted file mode 100644 --- a/libpurple/plugins/tcl/tcl.c +++ /dev/null @@ -1,503 +0,0 @@ -/** - * @file tcl.c Purple Tcl plugin bindings - * - * purple - * - * Copyright (C) 2003 Ethan Blanton <[email protected]> - * - * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA - */ - -#include "config.h" - -#include <tcl.h> - -#ifdef HAVE_TK -#include <tk.h> -#endif - -#include <stdio.h> -#include <sys/types.h> -#include <unistd.h> -#include <string.h> - -#include "tcl_glib.h" -#include "tcl_purple.h" - -#include "internal.h" -#include "connection.h" -#include "plugins.h" -#include "signals.h" -#include "debug.h" -#include "util.h" -#include "version.h" - -struct tcl_plugin_data { - PurplePlugin *plugin; - Tcl_Interp *interp; -}; - -typedef struct { - char *id; - char *name; - char *version; - char *summary; _______________________________________________ Commits mailing list [email protected] https://pidgin.im/cgi-bin/mailman/listinfo/commits