/pidgin/main: 1fb661b5f206: Remove the tcl loader
Gary Kramlich
grim at reaperworld.com
Wed Mar 9 10:33:58 EST 2016
Changeset: 1fb661b5f206113bebe874c67d86b8ab75638d14
Author: Gary Kramlich <grim at reaperworld.com>
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 <elb at pidgin.im>" \
- "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 <eblanton at 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., 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;
More information about the Commits
mailing list