/pidgin/main: e8af63f4a8ed: Remove the old perl loader

Gary Kramlich grim at reaperworld.com
Wed Mar 9 10:33:58 EST 2016


Changeset: e8af63f4a8ed6a6ffe1d08688810b21d974ea185
Author:	 Gary Kramlich <grim at reaperworld.com>
Date:	 2016-03-08 20:29 -0600
Branch:	 default
URL: https://hg.pidgin.im/pidgin/main/rev/e8af63f4a8ed

Description:

Remove the old perl loader

diffstat:

 libpurple/plugins/perl/Makefile.am                  |  171 ---
 libpurple/plugins/perl/Makefile.mingw               |   87 -
 libpurple/plugins/perl/common/Account.xs            |  353 -------
 libpurple/plugins/perl/common/AccountOpts.xs        |  166 ---
 libpurple/plugins/perl/common/BuddyIcon.xs          |   71 -
 libpurple/plugins/perl/common/BuddyList.xs          |  418 --------
 libpurple/plugins/perl/common/Certificate.xs        |  309 ------
 libpurple/plugins/perl/common/Cipher.xs             |  329 ------
 libpurple/plugins/perl/common/Cmds.xs               |  108 --
 libpurple/plugins/perl/common/Connection.xs         |   87 -
 libpurple/plugins/perl/common/Conversation.xs       |  435 --------
 libpurple/plugins/perl/common/Core.xs               |   21 -
 libpurple/plugins/perl/common/Debug.xs              |   72 -
 libpurple/plugins/perl/common/Idle.xs               |   12 -
 libpurple/plugins/perl/common/Log.xs                |  129 --
 libpurple/plugins/perl/common/MANIFEST              |   36 -
 libpurple/plugins/perl/common/Makefile.PL.in        |   29 -
 libpurple/plugins/perl/common/Makefile.mingw        |  128 --
 libpurple/plugins/perl/common/Network.xs            |   42 -
 libpurple/plugins/perl/common/Notify.xs             |  178 ---
 libpurple/plugins/perl/common/Plugin.xs             |  166 ---
 libpurple/plugins/perl/common/PluginPref.xs         |  188 ---
 libpurple/plugins/perl/common/Pounce.xs             |  126 --
 libpurple/plugins/perl/common/Prefs.xs              |  244 -----
 libpurple/plugins/perl/common/Presence.xs           |  102 --
 libpurple/plugins/perl/common/Proxy.xs              |   86 -
 libpurple/plugins/perl/common/Prpl.xs               |   76 -
 libpurple/plugins/perl/common/Purple.pm             |  129 --
 libpurple/plugins/perl/common/Purple.xs             |  108 --
 libpurple/plugins/perl/common/Request.xs            |  648 -------------
 libpurple/plugins/perl/common/Roomlist.xs           |   92 -
 libpurple/plugins/perl/common/SSLConn.xs            |   45 -
 libpurple/plugins/perl/common/SavedStatuses.xs      |  152 ---
 libpurple/plugins/perl/common/Server.xs             |  195 ----
 libpurple/plugins/perl/common/Signal.xs             |   34 -
 libpurple/plugins/perl/common/Sound.xs              |   37 -
 libpurple/plugins/perl/common/Status.xs             |  267 -----
 libpurple/plugins/perl/common/Stringref.xs          |   37 -
 libpurple/plugins/perl/common/Util.xs               |  437 ---------
 libpurple/plugins/perl/common/Whiteboard.xs         |   74 -
 libpurple/plugins/perl/common/XMLNode.xs            |  122 --
 libpurple/plugins/perl/common/Xfer.xs               |  179 ---
 libpurple/plugins/perl/common/fallback/const-c.inc  |  115 --
 libpurple/plugins/perl/common/fallback/const-xs.inc |   88 -
 libpurple/plugins/perl/common/module.h              |  310 ------
 libpurple/plugins/perl/common/typemap               |  210 ----
 libpurple/plugins/perl/libpurpleperl.c              |   18 -
 libpurple/plugins/perl/perl-common.c                |  620 ------------
 libpurple/plugins/perl/perl-common.h                |   82 -
 libpurple/plugins/perl/perl-handlers.c              |  967 --------------------
 libpurple/plugins/perl/perl-handlers.h              |   91 -
 libpurple/plugins/perl/perl.c                       |  726 ---------------
 libpurple/plugins/perl/scripts/account.pl           |  155 ---
 libpurple/plugins/perl/scripts/buddy_list.pl        |  107 --
 libpurple/plugins/perl/scripts/conversation.pl      |  119 --
 libpurple/plugins/perl/scripts/count_down.pl        |   89 -
 libpurple/plugins/perl/scripts/function_list.pl     |   69 -
 libpurple/plugins/perl/scripts/gtk_frame_test.pl    |   66 -
 libpurple/plugins/perl/scripts/plugin_action.pl     |   58 -
 libpurple/plugins/perl/scripts/plugin_pref.pl       |  103 --
 libpurple/plugins/perl/scripts/request.pl           |  109 --
 libpurple/plugins/perl/scripts/signals-test.pl      |   88 -
 62 files changed, 0 insertions(+), 10915 deletions(-)

diffs (truncated from 11225 to 300 lines):

diff --git a/libpurple/plugins/perl/Makefile.am b/libpurple/plugins/perl/Makefile.am
deleted file mode 100644
--- a/libpurple/plugins/perl/Makefile.am
+++ /dev/null
@@ -1,171 +0,0 @@
-plugindir = @PURPLE_PLUGINDIR@
-
-perl_dirs = common
-
-plugin_LTLIBRARIES = perl.la
-
-perl_la_LDFLAGS = -module -avoid-version
-perl_la_LIBADD = $(GLIB_LIBS) $(GPLUGIN_LIBS) $(PERL_LIBS)
-perl_la_SOURCES = \
-	perl.c \
-	perl-common.c \
-	perl-common.h \
-	perl-handlers.c \
-	perl-handlers.h
-
-perl_la_DEPENDENCIES = \
-	.libs/libperl_orig.a \
-	.libs/DynaLoader.a
-
-.libs/libperl_orig.a:
-	@mkdir -p .libs
-	@rm -f .libs/libperl_orig.a
-	@if [ x$(LIBPERL_A) = x ]; then \
-		touch .libs/libperl_orig.a; \
-	else \
-		$(LN_S) $(LIBPERL_A) .libs/libperl_orig.a; \
-	fi
-
-.libs/DynaLoader.a:
-	@mkdir -p .libs
-	@rm -f .libs/DynaLoader.a
-	@if [ x$(DYNALOADER_A) = x ]; then \
-		touch .libs/DynaLoader.a; \
-	else \
-		$(LN_S) $(DYNALOADER_A) .libs/DynaLoader.a; \
-	fi
-
-common_sources = \
-	common/Account.xs \
-	common/AccountOpts.xs \
-	common/BuddyIcon.xs \
-	common/BuddyList.xs \
-	common/Certificate.xs \
-	common/Cipher.xs \
-	common/Cmds.xs \
-	common/Core.xs \
-	common/Connection.xs \
-	common/Conversation.xs \
-	common/Debug.xs \
-	common/Idle.xs \
-	common/Log.xs \
-	common/Makefile.PL.in \
-	common/Network.xs \
-	common/Notify.xs \
-	common/Plugin.xs \
-	common/PluginPref.xs \
-	common/Pounce.xs \
-	common/Prefs.xs \
-	common/Presence.xs \
-	common/Proxy.xs \
-	common/Prpl.xs \
-	common/Purple.pm \
-	common/Purple.xs \
-	common/Request.xs \
-	common/Roomlist.xs \
-	common/SSLConn.xs \
-	common/SavedStatuses.xs \
-	common/Server.xs \
-	common/Signal.xs \
-	common/Sound.xs \
-	common/Status.xs \
-	common/Stringref.xs \
-	common/Util.xs \
-	common/Whiteboard.xs \
-	common/Xfer.xs \
-	common/XMLNode.xs \
-	common/module.h \
-	common/typemap
-#	common/fallback/const-c.inc \
-#	common/fallback/const-xs.inc
-
-perl_scripts = \
-	scripts/function_list.pl \
-	scripts/signals-test.pl
-
-EXTRA_DIST = \
-	Makefile.mingw \
-	common/Makefile.mingw \
-	$(common_sources) \
-	$(perl_scripts)
-
-common/Makefile: common/Makefile.PL
-	$(AM_V_GEN)if test "x${top_srcdir}" != "x${top_builddir}"; then \
-		for f in ${common_sources}; do \
-			srcloc=${srcdir}; \
-			case $$srcloc in /*) ;; *) srcloc=../${srcdir} ;; esac; \
-			${LN_S} -f $$srcloc/$$f $$f; \
-		done; \
-	fi
-	$(AM_V_at)cd common && $(perlpath) Makefile.PL > /dev/null
-
-common/Makefile.PL: common/Makefile.PL.in $(top_builddir)/config.status
-	cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)
-
-all-local: common/Makefile
-	@for dir in $(perl_dirs); do \
-		cd $$dir && \
-		if [ ! -f Makefile ]; then \
-			$(perlpath) Makefile.PL; \
-		fi && \
-		($(MAKE) CC="@$(abs_top_srcdir)/libpurple/tag.sh CC $(CC)" LD="@$(abs_top_srcdir)/libpurple/tag.sh LD $(CC)" PERLRUN="@$(abs_top_srcdir)/libpurple/tag.sh PERL $(PERL)" CCFLAGS="$(PERL_CFLAGS) $(CFLAGS)" CP="@cp" RM_F="@rm -f" CHMOD="@chmod" $(PERL_EXTRA_OPTS) || \
-		 $(MAKE) CC="@$(abs_top_srcdir)/libpurple/tag.sh CC $(CC)" LD="@$(abs_top_srcdir)/libpurple/tag.sh LD $(CC)" PERLRUN="@$(abs_top_srcdir)/libpurple/tag.sh PERL $(PERL)" CCFLAGS="$(PERL_CFLAGS) $(CFLAGS)" CP="@cp" RM_F="@rm -f" CHMOD="@chmod" $(PERL_EXTRA_OPTS)) && \
-		cd ..; \
-	done
-
-install-exec-local:
-	@for dir in $(perl_dirs); do \
-		cd $$dir; \
-		$(MAKE) install; \
-		cd ..; \
-	done
-
-# Evil Hack (TM)
-# ... which doesn't work with DESTDIR installs. FIXME?
-uninstall-local:
-	@for dir in $(perl_dirs); do \
-		cd $$dir && \
-		`$(MAKE) uninstall | grep unlink | sed -e 's#/usr#${prefix}#' -e 's#unlink#rm -f#'` && \
-		cd ..; \
-	done
-
-clean-generic:
-	@for dir in $(perl_dirs); do \
-		cd $$dir; \
-		$(MAKE) clean; \
-		cd ..; \
-	done
-	cd common ; rm -rf *.c *.o pm_to_blib Purple.bs MYMETA.* blib/*/.exists blib/*/auto/Purple blib/*/Purple.*pm ; cd ..
-	rm -f *.so
-
-distclean-generic:
-	@for dir in $(perl_dirs); do \
-		cd $$dir; \
-		$(MAKE) realclean; \
-		rm -f Makefile.PL; \
-		rm -f Makefile.old; \
-		rm -f Makefile; \
-		cd ..; \
-	done
-
-	@rm -f Makefile
-#	@rm -f common/const-c.inc common/const-xs.inc
-
-	@if test "x${top_srcdir}" != "x${top_builddir}"; then \
-		for f in ${common_sources}; do \
-			srcloc=${srcdir}; \
-			case $$srcloc in /*) ;; *) srcloc=../${srcdir} ;; esac; \
-			${LN_S} -f $$srcloc/$$f $$f; \
-		done; \
-	fi
-
-AM_CPPFLAGS = \
-	-I$(top_srcdir) \
-	-I$(top_srcdir)/libpurple \
-	-I$(top_builddir)/libpurple \
-	$(DEBUG_CFLAGS) \
-	$(GLIB_CFLAGS) \
-	$(GPLUGIN_CFLAGS) \
-	$(PLUGIN_CFLAGS) \
-	$(PERL_CFLAGS) \
-	-Wno-float-equal
diff --git a/libpurple/plugins/perl/Makefile.mingw b/libpurple/plugins/perl/Makefile.mingw
deleted file mode 100644
--- a/libpurple/plugins/perl/Makefile.mingw
+++ /dev/null
@@ -1,87 +0,0 @@
-#
-# Makefile.mingw
-#
-# Description: Makefile for perl plugin loader plugin.
-#
-
-PIDGIN_TREE_TOP := ../../..
-include $(PIDGIN_TREE_TOP)/libpurple/win32/global.mak
-
-#we cannot include win32dep.h, but we need struct sockaddr_in6 definition
-CFLAGS += -include ws2tcpip.h
-
-DEFINES := $(subst -DWIN32_LEAN_AND_MEAN,,$(DEFINES))
-
-TARGET = perl
-
-# Perl headers with /* /* */ type comments.. Turn off warnings.
-GCCWARNINGS += -Wno-comment
-
-##
-## 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$(PERL_LIB_TOP)/include
-
-LIB_PATHS +=		-L$(GTK_TOP)/lib \
-			-L$(PURPLE_TOP) \
-			-L$(PERL_LIB_TOP)/lib
-
-##
-##  SOURCES, OBJECTS
-##
-C_SRC =			perl.c \
-			perl-common.c \
-			perl-handlers.c
-
-OBJECTS = $(C_SRC:%.c=%.o)
-
-##
-## LIBRARIES
-##
-LIBS =	\
-			-lglib-2.0 \
-			-lgmodule-2.0 \
-			-lgobject-2.0 \
-			-lws2_32 \
-			-lintl \
-			-lpurple \
-			-lperl520
-
-include $(PIDGIN_COMMON_RULES)
-
-##
-## TARGET DEFINITIONS
-##
-.PHONY: all install clean
-
-all: $(TARGET).dll
-	$(MAKE_at) $(MAKE) -C ./common -f $(MINGW_MAKEFILE)
-
-install: all $(PURPLE_INSTALL_PLUGINS_DIR)
-	cp $(TARGET).dll $(PURPLE_INSTALL_PLUGINS_DIR)
-	$(MAKE_at) $(MAKE) -C ./common -f $(MINGW_MAKEFILE) install
-
-$(OBJECTS): $(PURPLE_CONFIG_H)
-
-##
-## BUILD DLL
-##
-$(TARGET).dll $(TARGET).dll.a: $(PURPLE_DLL).a $(OBJECTS)
-	$(CC) -shared $(OBJECTS) $(LIB_PATHS) $(LIBS) $(DLL_LD_FLAGS)  -Wl,--export-all-symbols -Wl,--out-implib,$(TARGET).dll.a -o $(TARGET).dll
-
-##
-## CLEAN RULES
-##
-clean:
-	rm -rf $(OBJECTS)
-	rm -rf $(TARGET).dll $(TARGET).dll.a
-	$(MAKE_at) $(MAKE) -C ./common -f $(MINGW_MAKEFILE) clean
-
-include $(PIDGIN_COMMON_TARGETS)
diff --git a/libpurple/plugins/perl/common/Account.xs b/libpurple/plugins/perl/common/Account.xs
deleted file mode 100644
--- a/libpurple/plugins/perl/common/Account.xs
+++ /dev/null
@@ -1,353 +0,0 @@
-#include "module.h"
-#include "../perl-handlers.h"
-
-MODULE = Purple::Account  PACKAGE = Purple::Accounts  PREFIX = purple_accounts_
-PROTOTYPES: ENABLE
-
-void
-purple_accounts_add(account)
-    Purple::Account account
-
-void
-purple_accounts_remove(account)
-    Purple::Account account
-
-void
-purple_accounts_delete(account)
-    Purple::Account account
-
-void
-purple_accounts_reorder(account, new_index)
-    Purple::Account account
-    size_t new_index
-
-void
-purple_accounts_get_all()
-PREINIT:
-    GList *l;



More information about the Commits mailing list