Tue, 30 May 2017 22:39:20 -0500
Clean out Perl files and references as they're no longer used
--- a/Makefile.am Sun Oct 09 17:18:55 2016 -0500 +++ b/Makefile.am Tue May 30 22:39:20 2017 -0500 @@ -138,12 +138,5 @@ SUBDIRS = . m4macros libpurple $(GNT_DIR) $(GTK_DIR) $(PO_DIR) share/ca-certs share/sounds doc -# perl's MakeMaker uninstall foo doesn't work well with DESTDIR set, which -# breaks "make distcheck" unless we ignore perl things -# TODO drop it when we drop perl wrapper - -distuninstallcheck_listfiles = \ - find . -type f -print | grep -v perl | grep -v Purple.3pm | grep -v Pidgin.3pm - DISTCLEANFILES= intltool-extract intltool-merge intltool-update \ package_revision_raw.txt
--- a/config.h.mingw Sun Oct 09 17:18:55 2016 -0500 +++ b/config.h.mingw Tue May 30 22:39:20 2017 -0500 @@ -180,18 +180,6 @@ /* Define to 1 if you have the <paths.h> header file. */ /* #define HAVE_PATHS_H 1 */ -/* Compile with support for perl */ -#define HAVE_PERL 1 - -/* Define to 1 if you have the `Perl_eval_pv' function. */ -/* #undef HAVE_PERL_EVAL_PV */ - -/* Define to 1 if you have the <perl.h> header file. */ -#define HAVE_PERL_H 1 - -/* Define to 1 if you have the `perl_run' function. */ -/* #define HAVE_PERL_RUN 1 */ - /* Define to 1 if you have the <prio.h> header file. */ /* #undef HAVE_PRIO_H */ @@ -321,9 +309,6 @@ /* Define to 1 if you don't have wide-character support. */ /* #undef NO_WIDECHAR */ -/* Define if old perl is installed. */ -/* #undef OLD_PERL */ - /* Name of package */ #define PACKAGE "pidgin"
--- a/doc/pidgin.1.in Sun Oct 09 17:18:55 2016 -0500 +++ b/doc/pidgin.1.in Tue May 30 22:39:20 2017 -0500 @@ -520,11 +520,6 @@ configuration options, the \fIConfigure Plugin\fR button will present the plugin's preferences dialog. -.SH PERL -Pidgin allows for plugins to be written in the perl scripting language. See -\fIPerl Scripting HOWTO\fR in the Pidgin documentation for more information -about perl scripting. - .SH TCL Pidgin allows for plugins to be written in the Tcl scripting language. See \fIplugins/tcl/TCL-HOWTO\fR for more information about Tcl scripting.
--- a/libpurple/plugins/Makefile.mingw Sun Oct 09 17:18:55 2016 -0500 +++ b/libpurple/plugins/Makefile.mingw Tue May 30 22:39:20 2017 -0500 @@ -7,7 +7,6 @@ PIDGIN_TREE_TOP := ../.. include $(PIDGIN_TREE_TOP)/libpurple/win32/global.mak -PERL_PLUGIN := ./perl SSL_PLUGIN := ./ssl KEYRING_PLUGIN := ./keyrings @@ -45,12 +44,10 @@ .PHONY: all clean plugins install all: $(PURPLE_DLL).a plugins - $(MAKE_at) $(MAKE) -C $(PERL_PLUGIN) -f $(MINGW_MAKEFILE) $(MAKE_at) $(MAKE) -C $(SSL_PLUGIN) -f $(MINGW_MAKEFILE) $(MAKE_at) $(MAKE) -C $(KEYRING_PLUGIN) -f $(MINGW_MAKEFILE) install: all $(PURPLE_INSTALL_PLUGINS_DIR) - $(MAKE_at) $(MAKE) -C $(PERL_PLUGIN) -f $(MINGW_MAKEFILE) install $(MAKE_at) $(MAKE) -C $(SSL_PLUGIN) -f $(MINGW_MAKEFILE) install $(MAKE_at) $(MAKE) -C $(KEYRING_PLUGIN) -f $(MINGW_MAKEFILE) install cp *.dll $(PURPLE_INSTALL_PLUGINS_DIR) @@ -74,7 +71,6 @@ ## clean: rm -f *.o *.dll - $(MAKE_at) $(MAKE) -C $(PERL_PLUGIN) -f $(MINGW_MAKEFILE) clean $(MAKE_at) $(MAKE) -C $(SSL_PLUGIN) -f $(MINGW_MAKEFILE) clean $(MAKE_at) $(MAKE) -C $(KEYRING_PLUGIN) -f $(MINGW_MAKEFILE) clean
--- a/libpurple/tag.sh Sun Oct 09 17:18:55 2016 -0500 +++ b/libpurple/tag.sh Tue May 30 22:39:20 2017 -0500 @@ -22,17 +22,6 @@ if [ "$tag" == "auto" ] && [ "$arg" == "-shared" ]; then tag="CCLD" fi - if [ "$tag" == "PERL" ] && [ "${arg%(*}" == "Mkbootstrap" ]; then - object="${arg%;}" - is_final=1 - break - fi - if [ "$tag" == "PERL" ] && [ "${arg%(*}" == "ExtUtils::ParseXS::process_file" ]; then - object="${arg#*output => \"}" - object="${object%\", *}" - is_final=1 - break - fi ext_1=${arg#${arg%??}} if [ "${ext_1}" == ".c" ]; then file_1="$arg" @@ -51,10 +40,6 @@ tag="CC" fi -if [ "$tag" == "PERL" ] && [ "$is_final" == 0 ]; then - object=`echo "$object" | sed -n 's|.*output *=> *"\([^"]*\)".*|\1|p'` -fi - if [ "$object" == "" ] && [ "${file_1}" != "" ]; then object="${file_1}" fi
--- a/libpurple/win32/global.mak Sun Oct 09 17:18:55 2016 -0500 +++ b/libpurple/win32/global.mak Tue May 30 22:39:20 2017 -0500 @@ -25,7 +25,6 @@ LIBXML2_TOP ?= $(WIN32_DEV_TOP)/libxml2-2.9.2_daa1 MEANWHILE_TOP ?= $(WIN32_DEV_TOP)/meanwhile-1.0.2_daa3 NSS_TOP ?= $(WIN32_DEV_TOP)/nss-3.24-nspr-4.12 -PERL_LIB_TOP ?= $(WIN32_DEV_TOP)/perl-5.20.1.1 SILC_TOOLKIT ?= $(WIN32_DEV_TOP)/silc-toolkit-1.1.12 GSTREAMER_TOP ?= $(WIN32_DEV_TOP)/gstreamer-0.10.13 GCC_SSP_TOP ?= $(shell dirname $(shell which $(CC))) @@ -40,15 +39,12 @@ PIDGIN_INSTALL_DIR := $(PIDGIN_TREE_TOP)/win32-install-dir PURPLE_INSTALL_DIR := $(PIDGIN_TREE_TOP)/win32-install-dir PIDGIN_INSTALL_PLUGINS_DIR := $(PIDGIN_INSTALL_DIR)/plugins -PIDGIN_INSTALL_PERL_DIR := $(PIDGIN_INSTALL_PLUGINS_DIR)/perl PURPLE_INSTALL_PLUGINS_DIR := $(PURPLE_INSTALL_DIR)/plugins -PURPLE_INSTALL_PERL_DIR := $(PURPLE_INSTALL_PLUGINS_DIR)/perl PURPLE_INSTALL_PO_DIR := $(PURPLE_INSTALL_DIR)/locale # Important (enough) locations in our source code PURPLE_TOP := $(PIDGIN_TREE_TOP)/libpurple PURPLE_PLUGINS_TOP := $(PURPLE_TOP)/plugins -PURPLE_PERL_TOP := $(PURPLE_PLUGINS_TOP)/perl PIDGIN_TOP := $(PIDGIN_TREE_TOP)/pidgin PIDGIN_PIXMAPS_TOP := $(PIDGIN_TOP)/pixmaps PIDGIN_PLUGINS_TOP := $(PIDGIN_TOP)/plugins @@ -63,7 +59,6 @@ PURPLE_PURPLE_H := $(PURPLE_TOP)/purple.h PURPLE_VERSION_H := $(PURPLE_TOP)/version.h PURPLE_DLL := $(PURPLE_TOP)/libpurple.dll -PURPLE_PERL_DLL := $(PURPLE_PERL_TOP)/perl.dll PIDGIN_DLL := $(PIDGIN_TOP)/pidgin.dll PIDGIN_EXE := $(PIDGIN_TOP)/pidgin.exe PIDGIN_PORTABLE_EXE := $(PIDGIN_TOP)/pidgin-portable.exe
--- a/libpurple/win32/rules.mak Sun Oct 09 17:18:55 2016 -0500 +++ b/libpurple/win32/rules.mak Tue May 30 22:39:20 2017 -0500 @@ -3,9 +3,6 @@ %.o: %.c $(CC) $(CFLAGS) $(DEFINES) $(INCLUDE_PATHS) -o $@ -c $< -%.c: %.xs - $(TAG) "PERL" $(PERL) -MExtUtils::ParseXS -e 'ExtUtils::ParseXS::process_file(filename => "$<", output => "$@", typemap => "$(PURPLE_PERL_TOP)/common/typemap");' - %.o: %.rc @echo -e " GEN\t$@" @$(WINDRES) -I$(PURPLE_TOP) -i $< -o $@
--- a/libpurple/win32/targets.mak Sun Oct 09 17:18:55 2016 -0500 +++ b/libpurple/win32/targets.mak Tue May 30 22:39:20 2017 -0500 @@ -35,9 +35,6 @@ $(PURPLE_DLL) $(PURPLE_DLL).a: $(PURPLE_VERSION_H) $(MAKE) -C $(PURPLE_TOP) -f $(MINGW_MAKEFILE) libpurple.dll -$(PURPLE_PERL_DLL) $(PURPLE_PERL_DLL).a: - $(MAKE) -C $(PURPLE_PERL_TOP) -f $(MINGW_MAKEFILE) perl.dll - $(PIDGIN_DLL) $(PIDGIN_DLL).a: $(MAKE_at) $(MAKE) -C $(PIDGIN_TOP) -f $(MINGW_MAKEFILE) pidgin.dll @@ -48,9 +45,6 @@ $(PIDGIN_INSTALL_DIR): mkdir -p $(PIDGIN_INSTALL_DIR) -$(PIDGIN_INSTALL_PERL_DIR): - mkdir -p $(PIDGIN_INSTALL_PERL_DIR) - $(PIDGIN_INSTALL_PLUGINS_DIR): mkdir -p $(PIDGIN_INSTALL_PLUGINS_DIR) @@ -59,6 +53,3 @@ #$(PURPLE_INSTALL_PLUGINS_DIR): # mkdir -p $(PURPLE_INSTALL_PLUGINS_DIR) - -#$(PURPLE_INSTALL_PERL_DIR): -# mkdir -p $(PURPLE_INSTALL_PERL_DIR)
--- a/pidgin/gtkdialogs.c Sun Oct 09 17:18:55 2016 -0500 +++ b/pidgin/gtkdialogs.c Tue May 30 22:39:20 2017 -0500 @@ -683,12 +683,6 @@ g_string_append(str, "<dt>Network Security Services (NSS):</dt><dd>Disabled</dd>"); #endif -#warning TODO: Check for perl. - if (purple_plugins_find_plugin("core-perl") != NULL) - g_string_append(str, "<dt>Perl:</dt><dd>Enabled</dd>"); - else - g_string_append(str, "<dt>Perl:</dt><dd>Disabled</dd>"); - #warning TODO: Check for tcl. if (purple_plugins_find_plugin("core-tcl") != NULL) { g_string_append(str, "<dt>Tcl:</dt><dd>Enabled</dd>");
--- a/pidgin/plugins/Makefile.mingw Sun Oct 09 17:18:55 2016 -0500 +++ b/pidgin/plugins/Makefile.mingw Tue May 30 22:39:20 2017 -0500 @@ -8,7 +8,6 @@ include $(PIDGIN_TREE_TOP)/libpurple/win32/global.mak DISCO_PLUGIN := ./disco -GTKPERL_PLUGIN := ./perl TICKER_PLUGIN := ./ticker TRANSPARENCY_PLUGIN := ./win32/transparency WINPREFS_PLUGIN := ./win32/winprefs @@ -66,14 +65,12 @@ all: plugins $(MAKE_at) $(MAKE) -C $(DISCO_PLUGIN) -f $(MINGW_MAKEFILE) - $(MAKE_at) $(MAKE) -C $(GTKPERL_PLUGIN) -f $(MINGW_MAKEFILE) $(MAKE_at) $(MAKE) -C $(TICKER_PLUGIN) -f $(MINGW_MAKEFILE) $(MAKE_at) $(MAKE) -C $(TRANSPARENCY_PLUGIN) -f $(MINGW_MAKEFILE) $(MAKE_at) $(MAKE) -C $(WINPREFS_PLUGIN) -f $(MINGW_MAKEFILE) install: all $(PIDGIN_INSTALL_PLUGINS_DIR) $(MAKE_at) $(MAKE) -C $(DISCO_PLUGIN) -f $(MINGW_MAKEFILE) install - $(MAKE_at) $(MAKE) -C $(GTKPERL_PLUGIN) -f $(MINGW_MAKEFILE) install $(MAKE_at) $(MAKE) -C $(TICKER_PLUGIN) -f $(MINGW_MAKEFILE) install $(MAKE_at) $(MAKE) -C $(TRANSPARENCY_PLUGIN) -f $(MINGW_MAKEFILE) install $(MAKE_at) $(MAKE) -C $(WINPREFS_PLUGIN) -f $(MINGW_MAKEFILE) install @@ -106,7 +103,6 @@ clean: rm -f *.o *.dll $(MAKE_at) $(MAKE) -C $(DISCO_PLUGIN) -f $(MINGW_MAKEFILE) clean - $(MAKE_at) $(MAKE) -C $(GTKPERL_PLUGIN) -f $(MINGW_MAKEFILE) clean $(MAKE_at) $(MAKE) -C $(TICKER_PLUGIN) -f $(MINGW_MAKEFILE) clean $(MAKE_at) $(MAKE) -C $(TRANSPARENCY_PLUGIN) -f $(MINGW_MAKEFILE) clean $(MAKE_at) $(MAKE) -C $(WINPREFS_PLUGIN) -f $(MINGW_MAKEFILE) clean
--- a/pidgin/plugins/perl/Makefile.am Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,106 +0,0 @@ -perl_dirs = common - -common_sources = \ - common/GtkAccount.xs \ - common/GtkBlist.xs \ - common/GtkConn.xs \ - common/GtkConv.xs \ - common/GtkConvWin.xs \ - common/GtkDebug.xs \ - common/GtkDialogs.xs \ - common/GtkFt.xs \ - common/GtkLog.xs \ - common/GtkMenuTray.xs \ - common/GtkPlugin.xs \ - common/GtkPluginPref.xs \ - common/GtkPounce.xs \ - common/GtkPrefs.xs \ - common/GtkPrivacy.xs \ - common/GtkRoomlist.xs \ - common/GtkSavedStatuses.xs \ - common/GtkSession.xs \ - common/GtkSound.xs \ - common/GtkStatusBox.xs \ - common/GtkUtils.xs \ - common/Makefile.PL.in \ - common/Pidgin.pm \ - common/Pidgin.xs \ - common/gtkmodule.h \ - common/typemap - -EXTRA_DIST = \ - Makefile.mingw \ - common/Makefile.mingw \ - $(common_sources) - -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 Pidgin.bs MYMETA.* blib/*/.exists blib/*/auto/Pidgin blib/*/Pidgin.*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 - -AM_CPPFLAGS = \ - -I$(top_srcdir) \ - -I$(top_srcdir)/libpurple \ - -I$(top_builddir)/libpurple \ - -I$(top_srcdir)/pidgin \ - $(DEBUG_CFLAGS) \ - $(GTK_CFLAGS) \ - $(GPLUGIN_CFLAGS) \ - $(PLUGIN_CFLAGS) \ - $(PERL_CFLAGS)
--- a/pidgin/plugins/perl/Makefile.mingw Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,28 +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 - -## -## TARGET DEFINITIONS -## -.PHONY: all install clean - -all: - $(MAKE_at) $(MAKE) -C ./common -f $(MINGW_MAKEFILE) - -install: all $(PIDGIN_INSTALL_PLUGINS_DIR) - $(MAKE_at) $(MAKE) -C ./common -f $(MINGW_MAKEFILE) install - -## -## CLEAN RULES -## -clean: - $(MAKE_at) $(MAKE) -C ./common -f $(MINGW_MAKEFILE) clean
--- a/pidgin/plugins/perl/common/GtkAccount.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,24 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Account PACKAGE = Pidgin::Account PREFIX = pidgin_account_ -PROTOTYPES: ENABLE - -Purple::Handle -pidgin_accounts_get_handle() - -MODULE = Pidgin::Account PACKAGE = Pidgin::Account::Dialog PREFIX = pidgin_account_dialog_ -PROTOTYPES: ENABLE - -void -pidgin_account_dialog_show(type, account) - Pidgin::Account::Dialog::Type type - Purple::Account account - -MODULE = Pidgin::Account PACKAGE = Pidgin::Account::Window PREFIX = pidgin_accounts_window_ -PROTOTYPES: ENABLE - -void -pidgin_accounts_window_show() - -void -pidgin_accounts_window_hide()
--- a/pidgin/plugins/perl/common/GtkBlist.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,71 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::BuddyList PACKAGE = Pidgin::BuddyList PREFIX = pidgin_blist_ -PROTOTYPES: ENABLE - -Purple::Handle -pidgin_blist_get_handle() - -Pidgin::BuddyList -pidgin_blist_get_default_gtk_blist() - -void -pidgin_blist_refresh(list) - Purple::BuddyList list - -void -pidgin_blist_update_refresh_timeout() - -gboolean -pidgin_blist_node_is_contact_expanded(node) - Purple::BuddyList::Node node - -void -pidgin_blist_toggle_visibility() - -void -pidgin_blist_visibility_manager_add() - -void -pidgin_blist_visibility_manager_remove() - -void -pidgin_blist_get_sort_methods() -PREINIT: - GList *l; -PPCODE: - for (l = pidgin_blist_get_sort_methods(); l != NULL; l = l->next) { - XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Pidgin::BuddyList::SortMethod"))); - } - -void -pidgin_blist_sort_method_reg(id, name, func) - const char * id - const char * name - Pidgin::BuddyList::SortFunction func - -void -pidgin_blist_sort_method_unreg(id) - const char * id - -void -pidgin_blist_sort_method_set(id) - const char * id - -void -pidgin_blist_setup_sort_methods() - -void -pidgin_blist_update_accounts_menu() - -void -pidgin_blist_update_plugin_actions() - -void -pidgin_blist_update_sort_methods() - -gboolean -pidgin_blist_joinchat_is_showable() - -void -pidgin_blist_joinchat_show()
--- a/pidgin/plugins/perl/common/GtkConn.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,7 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Connection PACKAGE = Pidgin::Connection PREFIX = pidgin_connection_ -PROTOTYPES: ENABLE - -Purple::Handle -pidgin_connection_get_handle()
--- a/pidgin/plugins/perl/common/GtkConv.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,67 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Conversation PACKAGE = Pidgin::Conversation PREFIX = pidgin_conv_ -PROTOTYPES: ENABLE - -void -pidgin_conv_update_buddy_icon(im) - Purple::IMConversation im - -void -pidgin_conv_switch_active_conversation(conv) - Purple::Conversation conv - -void -pidgin_conv_update_buttons_by_protocol(conv) - Purple::Conversation conv - -void -pidgin_conv_present_conversation(conv) - Purple::Conversation conv - -Pidgin::Conversation::Window -pidgin_conv_get_window(conv) - Pidgin::Conversation conv - -void -pidgin_conv_new(class, conv) - Purple::Conversation conv - C_ARGS: - conv - -gboolean -pidgin_conv_is_hidden(gtkconv) - Pidgin::Conversation gtkconv - -void -pidgin_conv_get_gtkconv(conv) - Purple::Conversation conv -PPCODE: - if (conv != NULL && PIDGIN_IS_PIDGIN_CONVERSATION(conv)) - XPUSHs(sv_2mortal(purple_perl_bless_object( - PIDGIN_CONVERSATION(conv), - "Pidgin::Conversation"))); - -MODULE = Pidgin::Conversation PACKAGE = Pidgin::Conversations PREFIX = pidgin_conversations_ -PROTOTYPES: ENABLE - -void -pidgin_conversations_get_unseen_all(min_state, hidden_only, max_count) - Pidgin::UnseenState min_state - gboolean hidden_only - guint max_count - -void -pidgin_conversations_get_unseen_ims(min_state, hidden_only, max_count) - Pidgin::UnseenState min_state - gboolean hidden_only - guint max_count - -void -pidgin_conversations_get_unseen_chats(min_state, hidden_only, max_count) - Pidgin::UnseenState min_state - gboolean hidden_only - guint max_count - -Purple::Handle -pidgin_conversations_get_handle()
--- a/pidgin/plugins/perl/common/GtkConvWin.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,139 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Conversation::Window PACKAGE = Pidgin::Conversation::Window PREFIX = pidgin_conv_window_ -PROTOTYPES: ENABLE - -Pidgin::Conversation::Window -pidgin_conv_window_new(class) - C_ARGS: /* void */ - -void -pidgin_conv_window_destroy(win) - Pidgin::Conversation::Window win - -void -pidgin_conv_window_show(win) - Pidgin::Conversation::Window win - -void -pidgin_conv_window_hide(win) - Pidgin::Conversation::Window win - -void -pidgin_conv_window_raise(win) - Pidgin::Conversation::Window win - -void -pidgin_conv_window_switch_gtkconv(win, gtkconv) - Pidgin::Conversation::Window win - Pidgin::Conversation gtkconv - -void -pidgin_conv_window_add_gtkconv(win, gtkconv) - Pidgin::Conversation::Window win - Pidgin::Conversation gtkconv - -void -pidgin_conv_window_remove_gtkconv(win, gtkconv) - Pidgin::Conversation::Window win - Pidgin::Conversation gtkconv - -Pidgin::Conversation -pidgin_conv_window_get_gtkconv_at_index(win, index) - Pidgin::Conversation::Window win - int index - -Pidgin::Conversation -pidgin_conv_window_get_active_gtkconv(win) - Pidgin::Conversation::Window win - -Purple::Conversation -pidgin_conv_window_get_active_conversation(win) - Pidgin::Conversation::Window win - -gboolean -pidgin_conv_window_is_active_conversation(conv) - Purple::Conversation conv - -gboolean -pidgin_conv_window_has_focus(win) - Pidgin::Conversation::Window win - -void -pidgin_conv_window_get_gtkconvs(win) - Pidgin::Conversation::Window win -PREINIT: - GList *l; -PPCODE: - for (l = pidgin_conv_window_get_gtkconvs(win); l != NULL; l = l->next) { - XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Pidgin::Conversation"))); - } - -guint -pidgin_conv_window_get_gtkconv_count(win) - Pidgin::Conversation::Window win - -Pidgin::Conversation::Window -pidgin_conv_window_first_im() - -Pidgin::Conversation::Window -pidgin_conv_window_last_im() - -Pidgin::Conversation::Window -pidgin_conv_window_first_chat() - -Pidgin::Conversation::Window -pidgin_conv_window_last_chat() - -MODULE = Pidgin::Conversation::Window PACKAGE = Pidgin::Conversation::Placement PREFIX = pidgin_conv_placement_ -PROTOTYPES: ENABLE - -void -pidgin_conv_placement_get_options() -PREINIT: - GList *l; -PPCODE: - for (l = pidgin_conv_placement_get_options(); l != NULL; l = l->next) { - XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Pidgin::Conversation::Window"))); - } - -void -pidgin_conv_placement_add_fnc(id, name, fnc) - const char * id - const char * name - Pidgin::Conversation::PlacementFunc fnc - -void -pidgin_conv_placement_remove_fnc(id) - const char * id - -const char * -pidgin_conv_placement_get_name(id) - const char * id - -Pidgin::Conversation::PlacementFunc -pidgin_conv_placement_get_fnc(id) - const char * id - -void -pidgin_conv_placement_set_current_func(func) - Pidgin::Conversation::PlacementFunc func - -Pidgin::Conversation::PlacementFunc -pidgin_conv_placement_get_current_func() - -void -pidgin_conv_placement_place(gtkconv) - Pidgin::Conversation gtkconv - -MODULE = Pidgin::Conversation::Window PACKAGE = Pidgin::Conversation::Windows PREFIX = pidgin_conv_windows_ -PROTOTYPES: ENABLE - -void -pidgin_conv_windows_get_list() -PREINIT: - GList *l; -PPCODE: - for (l = pidgin_conv_windows_get_list(); l != NULL; l = l->next) { - XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Pidgin::Conversation::Window"))); - }
--- a/pidgin/plugins/perl/common/GtkDebug.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,16 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Debug PACKAGE = Pidgin::Debug PREFIX = pidgin_debug_ -PROTOTYPES: ENABLE - -Purple::Handle -pidgin_debug_get_handle() - -MODULE = Pidgin::Debug PACKAGE = Pidgin::Debug::Window PREFIX = pidgin_debug_window_ -PROTOTYPES: ENABLE - -void -pidgin_debug_window_show() - -void -pidgin_debug_window_hide()
--- a/pidgin/plugins/perl/common/GtkDialogs.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,48 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Dialogs PACKAGE = Pidgin::Dialogs PREFIX = pidgin_dialogs_ -PROTOTYPES: ENABLE - -void -pidgin_dialogs_destroy_all() - -void -pidgin_dialogs_about() - -void -pidgin_dialogs_im() - -void -pidgin_dialogs_im_with_user(account, username) - Purple::Account account - const char * username - -void -pidgin_dialogs_info() - -void -pidgin_dialogs_log() - -void -pidgin_dialogs_alias_buddy(buddy) - Purple::BuddyList::Buddy buddy - -void -pidgin_dialogs_alias_chat(chat) - Purple::BuddyList::Chat chat - -void -pidgin_dialogs_remove_buddy(buddy) - Purple::BuddyList::Buddy buddy - -void -pidgin_dialogs_remove_group(group) - Purple::BuddyList::Group group - -void -pidgin_dialogs_remove_chat(chat) - Purple::BuddyList::Chat chat - -void -pidgin_dialogs_remove_contact(contact) - Purple::BuddyList::Contact contact
--- a/pidgin/plugins/perl/common/GtkFt.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,50 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Xfer PACKAGE = Pidgin::Xfer PREFIX = pidgin_ -PROTOTYPES: ENABLE - -void -pidgin_set_xfer_dialog(dialog) - Pidgin::Xfer::Dialog dialog - -Pidgin::Xfer::Dialog -pidgin_get_xfer_dialog() - -MODULE = Pidgin::Xfer PACKAGE = Pidgin::Xfer::Dialog PREFIX = pidgin_xfer_dialog_ -PROTOTYPES: ENABLE - -Pidgin::Xfer::Dialog -pidgin_xfer_dialog_new(class) - C_ARGS: /* void */ - -void -pidgin_xfer_dialog_destroy(dialog) - Pidgin::Xfer::Dialog dialog - -void -pidgin_xfer_dialog_show(dialog = NULL) - Pidgin::Xfer::Dialog dialog - -void -pidgin_xfer_dialog_hide(dialog) - Pidgin::Xfer::Dialog dialog - -void -pidgin_xfer_dialog_add_xfer(dialog, xfer) - Pidgin::Xfer::Dialog dialog - Purple::Xfer xfer - -void -pidgin_xfer_dialog_remove_xfer(dialog, xfer) - Pidgin::Xfer::Dialog dialog - Purple::Xfer xfer - -void -pidgin_xfer_dialog_cancel_xfer(dialog, xfer) - Pidgin::Xfer::Dialog dialog - Purple::Xfer xfer - -void -pidgin_xfer_dialog_update_xfer(dialog, xfer) - Pidgin::Xfer::Dialog dialog - Purple::Xfer xfer
--- a/pidgin/plugins/perl/common/GtkLog.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,23 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Log PACKAGE = Pidgin::Log PREFIX = pidgin_log_ -PROTOTYPES: ENABLE - -Purple::Handle -pidgin_log_get_handle() - -void -pidgin_log_show(type, buddyname, account) - Purple::LogType type - const char * buddyname - Purple::Account account - -void -pidgin_log_show_contact(contact) - Purple::BuddyList::Contact contact - -MODULE = Pidgin::Log PACKAGE = Pidgin::SysLog PREFIX = pidgin_syslog_ -PROTOTYPES: ENABLE - -void -pidgin_syslog_show()
--- a/pidgin/plugins/perl/common/GtkMenuTray.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,33 +0,0 @@ -#include "gtkmodule.h" - -/* This can't work at the moment since I don't have a typemap for Gtk::Widget. - * I thought about using the one from libgtk2-perl but wasn't sure how to go - * about doing that. -Gtk::Widget -pidgin_menu_tray_new() - -Gtk::Widget -pidgin_menu_tray_get_box(menu_tray) - Pidgin::MenuTray menu_tray - -void -pidgin_menu_tray_append(menu_tray, widget, tooltip) - Pidgin::MenuTray menu_tray - Gtk::Widget widget - const char * tooltip - -void -pidgin_menu_tray_prepend(menu_tray, widget, tooltip) - Pidgin::MenuTray menu_tray - Gtk::Widget widget - const char * tooltip - -void -pidgin_menu_tray_set_tooltip(menu_tray, widget, tooltip) - Pidgin::MenuTray menu_tray - Gtk::Widget widget - const char * tooltip -*/ - -MODULE = Pidgin::MenuTray PACKAGE = Pidgin::MenuTray PREFIX = pidgin_menu_tray -PROTOTYPES: ENABLE
--- a/pidgin/plugins/perl/common/GtkPlugin.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,13 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Plugin PACKAGE = Pidgin::Plugins PREFIX = pidgin_plugins_ -PROTOTYPES: ENABLE - -void -pidgin_plugins_save() - -MODULE = Pidgin::Plugin PACKAGE = Pidgin::Plugin::Dialog PREFIX = pidgin_plugin_dialog_ -PROTOTYPES: ENABLE - -void -pidgin_plugin_dialog_show()
--- a/pidgin/plugins/perl/common/GtkPluginPref.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,4 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::PluginPref PACKAGE = Pidgin::PluginPref PREFIX = pidgin_plugin_pref_ -PROTOTYPES: ENABLE
--- a/pidgin/plugins/perl/common/GtkPounce.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,25 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Pounce PACKAGE = Pidgin::Pounce PREFIX = pidgin_pounce_ -PROTOTYPES: ENABLE - -void -pidgin_pounce_editor_show(account, name, cur_pounce) - Purple::Account account - const char * name - Purple::Pounce cur_pounce - -MODULE = Pidgin::Pounce PACKAGE = Pidgin::Pounces PREFIX = pidgin_pounces_ -PROTOTYPES: ENABLE - -Purple::Handle -pidgin_pounces_get_handle() - -MODULE = Pidgin::Pounce PACKAGE = Pidgin::Pounces::Manager PREFIX = pidgin_pounces_manager_ -PROTOTYPES: ENABLE - -void -pidgin_pounces_manager_show() - -void -pidgin_pounces_manager_hide()
--- a/pidgin/plugins/perl/common/GtkPrefs.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,7 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Prefs PACKAGE = Pidgin::Prefs PREFIX = pidgin_prefs_ -PROTOTYPES: ENABLE - -void -pidgin_prefs_show()
--- a/pidgin/plugins/perl/common/GtkPrivacy.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,23 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Privacy PACKAGE = Pidgin::Privacy PREFIX = pidgin_ -PROTOTYPES: ENABLE - -void -pidgin_request_add_permit(account, name) - Purple::Account account - const char * name - -void -pidgin_request_add_block(account, name) - Purple::Account account - const char * name - -MODULE = Pidgin::Privacy PACKAGE = Pidgin::Privacy::Dialog PREFIX = pidgin_privacy_dialog_ -PROTOTYPES: ENABLE - -void -pidgin_privacy_dialog_show() - -void -pidgin_privacy_dialog_hide()
--- a/pidgin/plugins/perl/common/GtkRoomlist.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,17 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Roomlist PACKAGE = Pidgin::Roomlist PREFIX = pidgin_roomlist_ -PROTOTYPES: ENABLE - -gboolean -pidgin_roomlist_is_showable() - -MODULE = Pidgin::Roomlist PACKAGE = Pidgin::Roomlist::Dialog PREFIX = pidgin_roomlist_dialog_ -PROTOTYPES: ENABLE - -void -pidgin_roomlist_dialog_show() - -void -pidgin_roomlist_dialog_show_with_account(account) - Purple::Account account
--- a/pidgin/plugins/perl/common/GtkSavedStatuses.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,24 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Status PACKAGE = Pidgin::Status PREFIX = pidgin_status_ -PROTOTYPES: ENABLE - -Purple::Handle -pidgin_status_get_handle() - -MODULE = Pidgin::Status PACKAGE = Pidgin::Status::Editor PREFIX = pidgin_status_editor_ -PROTOTYPES: ENABLE - -void -pidgin_status_editor_show(edit, status) - gboolean edit - Purple::SavedStatus status - -MODULE = Pidgin::Status PACKAGE = Pidgin::Status::Window PREFIX = pidgin_status_window_ -PROTOTYPES: ENABLE - -void -pidgin_status_window_show() - -void -pidgin_status_window_hide()
--- a/pidgin/plugins/perl/common/GtkSession.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,13 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Session PACKAGE = Pidgin::Session PREFIX = pidgin_session_ -PROTOTYPES: ENABLE - -void -pidgin_session_init(argv0, previous_id, config_dir) - gchar * argv0 - gchar * previous_id - gchar * config_dir - -void -pidgin_session_end()
--- a/pidgin/plugins/perl/common/GtkSound.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,15 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Sound PACKAGE = Pidgin::Sound PREFIX = pidgin_sound_ -PROTOTYPES: ENABLE - -const char * -pidgin_sound_get_event_option(event) - Purple::SoundEventID event - -const char * -pidgin_sound_get_event_label(event) - Purple::SoundEventID event - -Purple::Handle -pidgin_sound_get_handle()
--- a/pidgin/plugins/perl/common/GtkStatusBox.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,41 +0,0 @@ -#include "gtkmodule.h" - -/* This can't work at the moment since I don't have a typemap for Gtk::Widget. - * I thought about using the one from libgtk2-perl but wasn't sure how to go - * about doing that. -Gtk::Widget -pidgin_status_box_new() - -Gtk::Widget -pidgin_status_box_new_with_account(account) - Purple::Account account - -void -pidgin_status_box_add(status_box, type, pixbuf, text, sec_text, data) - Pidgin::StatusBox status_box - Pidgin::StatusBox::ItemType type - GdkPixbuf pixbuf - const char * text - const char * sec_text - gpointer data -*/ - -MODULE = Pidgin::StatusBox PACKAGE = Pidgin::StatusBox PREFIX = pidgin_status_box_ -PROTOTYPES: ENABLE - -void -pidgin_status_box_add_separator(status_box) - Pidgin::StatusBox status_box - -void -pidgin_status_box_set_connecting(status_box, connecting) - Pidgin::StatusBox status_box - gboolean connecting - -void -pidgin_status_box_pulse_connecting(status_box) - Pidgin::StatusBox status_box - -gchar_own * -pidgin_status_box_get_message(status_box) - Pidgin::StatusBox status_box
--- a/pidgin/plugins/perl/common/GtkUtils.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,17 +0,0 @@ -#include "gtkmodule.h" - -MODULE = Pidgin::Utils PACKAGE = Pidgin::Utils PREFIX = pidgin_ -PROTOTYPES: ENABLE - -gboolean -pidgin_save_accels(data) - gpointer data - -void -pidgin_load_accels() - -gchar_own * -pidgin_convert_buddy_icon(plugin, path, size) - Purple::Plugin plugin - const char * path - size_t *size
--- a/pidgin/plugins/perl/common/MANIFEST Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,25 +0,0 @@ -GtkAccount.xs -GtkBlist.xs -GtkConn.xs -GtkConv.xs -GtkConvWin.xs -GtkDebug.xs -GtkDialogs.xs -GtkFt.xs -GtkLog.xs -GtkMenuTray.xs -GtkPlugin.xs -GtkPluginPref.xs -GtkPounce.xs -GtkPrefs.xs -GtkPrivacy.xs -GtkRoomlist.xs -GtkSavedStatuses.xs -GtkSession.xs -GtkSound.xs -GtkStatusBox.xs -GtkUtils.xs -MANIFEST -Pidgin.pm -Pidgin.xs -typemap
--- a/pidgin/plugins/perl/common/Makefile.PL.in Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,28 +0,0 @@ -use 5.006; -use ExtUtils::MakeMaker; -# See lib/ExtUtils/MakeMaker.pm for details of how to influence the contents -# of the Makefile that is written. -WriteMakefile( - 'NAME' => 'Pidgin', - 'VERSION' => '@VERSION@', - ($] >= 5.005 ? ## Add these new keywords supported since 5.005 - ('ABSTRACT_FROM' => '@srcdir@/Pidgin.pm', # finds $ABSTRACT - 'AUTHOR' => 'Pidgin <https://pidgin.im/>') : ()), - 'DEFINE' => '@DEBUG_CFLAGS@ -Wno-float-equal', - 'dynamic_lib' => { 'OTHERLDFLAGS' => '@LDFLAGS@' }, - 'INC' => '-I. -I@srcdir@ -I@top_srcdir@ -I@top_builddir@ -I@top_srcdir@/libpurple -I@top_srcdir@/pidgin @GTK_CFLAGS@ @WEBKIT_CFLAGS@ -DHAVE_CONFIG_H', - 'OBJECT' => '$(O_FILES)', # link all the C files too - 'TYPEMAPS' => ["@top_srcdir@/libpurple/plugins/perl/common/typemap"], -# 'OPTIMIZE' => '-g', # For debugging. - 'INSTALLDIRS' => 'vendor', - 'INSTALL_BASE' => '$(prefix)', - 'INSTALLVENDORARCH' => '$(libdir)/pidgin-$(PURPLE_MAJOR_VERSION)/perl', - 'INSTALLVENDORMAN3DIR' => '$(mandir)/man3', - 'macro' => { - 'prefix' => '@prefix@', - 'exec_prefix' => '@exec_prefix@', - 'libdir' => '@libdir@', - 'mandir' => '@mandir@', - 'datarootdir' => '@datarootdir@', - }, -);
--- a/pidgin/plugins/perl/common/Makefile.mingw Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,117 +0,0 @@ -# -# Makefile.mingw -# -# Description: Makefile for Pidgin perl module. -# - -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 - -GCCWARNINGS += -Wno-comment -Wno-unused -Wno-nested-externs - -DEFINES := $(subst -DWIN32_LEAN_AND_MEAN,,$(DEFINES)) - -TARGET = Pidgin - -## -## INCLUDE PATHS -## -INCLUDE_PATHS = -I. \ - -I$(PIDGIN_TREE_TOP) \ - -I$(PURPLE_TOP) \ - -I$(PURPLE_TOP)/win32 \ - -I$(PIDGIN_TOP) \ - -I$(PIDGIN_TOP)/win32 \ - -I$(GTK_TOP)/include \ - -I$(GTK_TOP)/include/atk-1.0 \ - -I$(GTK_TOP)/include/cairo \ - -I$(GTK_TOP)/include/glib-2.0 \ - -I$(GTK_TOP)/include/gtk-2.0 \ - -I$(GTK_TOP)/include/pango-1.0 \ - -I$(GTK_TOP)/include/gdk-pixbuf-2.0 \ - -I$(GTK_TOP)/lib/glib-2.0/include \ - -I$(GTK_TOP)/lib/gtk-2.0/include \ - -I$(LIBSOUP_TOP)/include/libsoup-2.4 \ - -I$(WEBKITGTK_TOP)/include/webkitgtk-1.0 \ - -I$(PERL_LIB_TOP)/include - -LIB_PATHS += \ - -L$(PERL_LIB_TOP)/lib \ - -L$(PURPLE_TOP) \ - -L$(PIDGIN_TOP) \ - -L$(PURPLE_PERL_TOP) \ - -L$(GTK_TOP)/lib - -## -## SOURCES, OBJECTS -## -XS_FILES = \ - Pidgin.xs \ - GtkAccount.xs \ - GtkBlist.xs \ - GtkConn.xs \ - GtkConv.xs \ - GtkConvWin.xs \ - GtkDebug.xs \ - GtkDialogs.xs \ - GtkFt.xs \ - GtkLog.xs \ - GtkMenuTray.xs \ - GtkPlugin.xs \ - GtkPluginPref.xs \ - GtkPounce.xs \ - GtkPrefs.xs \ - GtkPrivacy.xs \ - GtkRoomlist.xs \ - GtkSavedStatuses.xs \ - GtkSound.xs \ - GtkStatusBox.xs \ - GtkUtils.xs - - -C_FILES = $(XS_FILES:%.xs=%.c) -OBJECTS = $(C_FILES:%.c=%.o) - -## -## LIBRARIES -## -LIBS = -lperl520 \ - -lperl \ - -lpurple \ - -lpidgin \ - -lglib-2.0 - -include $(PIDGIN_COMMON_RULES) - -## -## TARGETS -## -.PHONY: all install clean - -all: $(TARGET).dll - -$(PURPLE_INSTALL_PERL_DIR)/Purple.pm: - $(MAKE) -C $(PURPLE_PERL_TOP)/common -f $(MINGW_MAKEFILE) install - -install: all $(PURPLE_INSTALL_PERL_DIR)/Purple.pm - rm -f $(PIDGIN_INSTALL_PERL_DIR)/$(TARGET).dll $(PIDGIN_INSTALL_PERL_DIR)/auto/Pidgin/$(TARGET).pm - mkdir -p $(PIDGIN_INSTALL_PERL_DIR) - cp $(TARGET).pm $(PIDGIN_INSTALL_PERL_DIR) - mkdir -p $(PIDGIN_INSTALL_PERL_DIR)/auto/Pidgin - cp $(TARGET).dll $(PIDGIN_INSTALL_PERL_DIR)/auto/Pidgin - -$(C_FILES): $(PIDGIN_CONFIG_H) - -$(TARGET).dll: $(PIDGIN_DLL).a $(PURPLE_PERL_DLL).a $(OBJECTS) - $(CC) -shared $(OBJECTS) $(LIB_PATHS) $(DLL_LD_FLAGS) $(LIBS) -o $(TARGET).dll - -## -## CLEAN -## -clean: - rm -f *.o $(C_FILES) $(TARGET).dll - -include $(PIDGIN_COMMON_TARGETS)
--- a/pidgin/plugins/perl/common/Pidgin.pm Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,59 +0,0 @@ -package Pidgin; - -use 5.008; -use strict; -use warnings; -use Carp; - -use Purple; - -require XSLoader; -XSLoader::load('Pidgin', $VERSION); - -1; -__END__ - -=head1 NAME - -Pidgin - Perl extension for the Pidgin instant messenger. - -=head1 SYNOPSIS - - use Pidgin; - -=head1 ABSTRACT - - This module provides the interface for using perl scripts as plugins in - Pidgin, with access to the Pidgin Gtk interface functions. - -=head1 DESCRIPTION - -This module provides the interface for using perl scripts as plugins in Pidgin, -with access to the Pidgin Gtk interface functions. With this, developers can -write perl scripts that can be loaded in Pidgin as plugins. The script can -interact with IMs, chats, accounts, the buddy list, pidgin signals, and more. - -The API for the perl interface is very similar to that of the Pidgin C API, -which can be viewed at https://developer.pidgin.im/doxygen/ or in the header files -in the Pidgin source tree. - -=head1 FUNCTIONS - -=over - -=back - -=head1 SEE ALSO -Pidgin C API documentation - https://developer.pidgin.im/doxygen/ - -The Pidgin perl module. - -Pidgin website - https://pidgin.im/ - -=head1 AUTHOR - -Etan Reisner, E<lt>deryni@gmail.comE<gt> - -=head1 COPYRIGHT AND LICENSE - -Copyright 2006 by Etan Reisner
--- a/pidgin/plugins/perl/common/Pidgin.xs Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,60 +0,0 @@ -#define PIDGIN_PERL_BOOT_PROTO(x) \ - void boot_Pidgin__##x(pTHX_ CV *cv) - -#define PIDGIN_PERL_BOOT(x) \ - purple_perl_callXS(boot_Pidgin__##x, cv, mark) - -#include "gtkmodule.h" - -/* Prototypes for the BOOT section below. */ -PIDGIN_PERL_BOOT_PROTO(Account); -PIDGIN_PERL_BOOT_PROTO(BuddyList); -PIDGIN_PERL_BOOT_PROTO(Connection); -PIDGIN_PERL_BOOT_PROTO(Conversation); -PIDGIN_PERL_BOOT_PROTO(Conversation__Window); -PIDGIN_PERL_BOOT_PROTO(Debug); -PIDGIN_PERL_BOOT_PROTO(Dialogs); -PIDGIN_PERL_BOOT_PROTO(Log); -PIDGIN_PERL_BOOT_PROTO(MenuTray); -PIDGIN_PERL_BOOT_PROTO(Plugin); -PIDGIN_PERL_BOOT_PROTO(PluginPref); -PIDGIN_PERL_BOOT_PROTO(Pounce); -PIDGIN_PERL_BOOT_PROTO(Prefs); -PIDGIN_PERL_BOOT_PROTO(Privacy); -PIDGIN_PERL_BOOT_PROTO(Roomlist); -PIDGIN_PERL_BOOT_PROTO(Status); -#ifndef _WIN32 -PIDGIN_PERL_BOOT_PROTO(Session); -#endif -PIDGIN_PERL_BOOT_PROTO(Sound); -PIDGIN_PERL_BOOT_PROTO(StatusBox); -PIDGIN_PERL_BOOT_PROTO(Utils); -PIDGIN_PERL_BOOT_PROTO(Xfer); - -MODULE = Pidgin PACKAGE = Pidgin PREFIX = pidgin_ -PROTOTYPES: ENABLE - -BOOT: - PIDGIN_PERL_BOOT(Account); - PIDGIN_PERL_BOOT(BuddyList); - PIDGIN_PERL_BOOT(Connection); - PIDGIN_PERL_BOOT(Conversation); - PIDGIN_PERL_BOOT(Conversation__Window); - PIDGIN_PERL_BOOT(Debug); - PIDGIN_PERL_BOOT(Dialogs); - PIDGIN_PERL_BOOT(Log); - PIDGIN_PERL_BOOT(MenuTray); - PIDGIN_PERL_BOOT(Plugin); - PIDGIN_PERL_BOOT(PluginPref); - PIDGIN_PERL_BOOT(Pounce); - PIDGIN_PERL_BOOT(Prefs); - PIDGIN_PERL_BOOT(Privacy); - PIDGIN_PERL_BOOT(Roomlist); - PIDGIN_PERL_BOOT(Status); -#ifndef _WIN32 - PIDGIN_PERL_BOOT(Session); -#endif - PIDGIN_PERL_BOOT(Sound); - PIDGIN_PERL_BOOT(StatusBox); - PIDGIN_PERL_BOOT(Utils); - PIDGIN_PERL_BOOT(Xfer);
--- a/pidgin/plugins/perl/common/gtkmodule.h Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,70 +0,0 @@ -/* Allow the Perl code to see deprecated functions, so we can continue to - * export them to Perl plugins. */ -#undef PIDGIN_DISABLE_DEPRECATED - -typedef struct group *Pidgin__Group; - -#define group perl_group - -#include <glib.h> -#include <gtk/gtk.h> -#ifdef _WIN32 -#undef pipe -#endif - -#define SILENT_NO_TAINT_SUPPORT 0 -#define NO_TAINT_SUPPORT 0 - -#include <EXTERN.h> -#include <perl.h> -#include <XSUB.h> - -#undef group - -#include <plugins/perl/common/module.h> - -#include "gtkaccount.h" -#include "gtkblist.h" -#include "gtkconn.h" -#include "gtkconv.h" -#include "gtkconvwin.h" -#include "gtkdebug.h" -#include "gtkdialogs.h" -#include "gtkxfer.h" -#include "gtklog.h" -#include "gtkmenutray.h" -#include "gtkplugin.h" -#include "gtkpluginpref.h" -#include "gtkpounce.h" -#include "gtkprefs.h" -#include "gtkprivacy.h" -#include "gtkroomlist.h" -#include "gtksavedstatuses.h" -#include "gtksession.h" -#include "gtksound.h" -#include "gtkstatusbox.h" -#include "gtkutils.h" - -/* gtkaccount.h */ -typedef PidginAccountDialogType Pidgin__Account__Dialog__Type; - -/* gtkblist.h */ -typedef PidginBuddyList * Pidgin__BuddyList; -typedef pidgin_blist_sort_function Pidgin__BuddyList__SortFunction; - -/* gtkconv.h */ -typedef PidginConversation * Pidgin__Conversation; -typedef PidginUnseenState Pidgin__UnseenState; - -/* gtkconvwin.h */ -typedef PidginConvWindow * Pidgin__Conversation__Window; -typedef PidginConvPlacementFunc Pidgin__Conversation__PlacementFunc; - -/* gtkxfer.h */ -typedef PidginXferDialog * Pidgin__Xfer__Dialog; - -/* gtkmenutray.h */ -typedef PidginMenuTray * Pidgin__MenuTray; - -/* gtkstatusbox.h */ -typedef PidginStatusBox * Pidgin__StatusBox;
--- a/pidgin/plugins/perl/common/typemap Sun Oct 09 17:18:55 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,12 +0,0 @@ -TYPEMAP - -Pidgin::Account::Dialog::Type T_IV -Pidgin::BuddyList T_PurpleObj -Pidgin::BuddyList::SortFunction T_PurpleObj -Pidgin::Conversation T_PurpleObj -Pidgin::Conversation::PlacementFunc T_PurpleObj -Pidgin::Conversation::Window T_PurpleObj -Pidgin::Xfer::Dialog T_PurpleObj -Pidgin::MenuTray T_PurpleObj -Pidgin::StatusBox T_PurpleObj -Pidgin::UnseenState T_IV
--- a/pidgin/win32/nsis/pidgin-installer.nsi Sun Oct 09 17:18:55 2016 -0500 +++ b/pidgin/win32/nsis/pidgin-installer.nsi Tue May 30 22:39:20 2017 -0500 @@ -566,7 +566,6 @@ Delete "$INSTDIR\plugins\notify.dll" Delete "$INSTDIR\plugins\nss-prefs.dll" Delete "$INSTDIR\plugins\offlinemsg.dll" - Delete "$INSTDIR\plugins\perl.dll" Delete "$INSTDIR\plugins\pidginrc.dll" Delete "$INSTDIR\plugins\psychic.dll" Delete "$INSTDIR\plugins\relnot.dll" @@ -582,15 +581,6 @@ Delete "$INSTDIR\plugins\winprefs.dll" Delete "$INSTDIR\plugins\xmppconsole.dll" Delete "$INSTDIR\plugins\xmppdisco.dll" - Delete "$INSTDIR\plugins\perl\auto\Pidgin\Pidgin.dll" - RMDir "$INSTDIR\plugins\perl\auto\Pidgin" - Delete "$INSTDIR\plugins\perl\auto\Purple\autosplit.ix" - Delete "$INSTDIR\plugins\perl\auto\Purple\Purple.dll" - RMDir "$INSTDIR\plugins\perl\auto\Purple" - RMDir "$INSTDIR\plugins\perl\auto" - Delete "$INSTDIR\plugins\perl\Pidgin.pm" - Delete "$INSTDIR\plugins\perl\Purple.pm" - RMDir "$INSTDIR\plugins\perl" RMDir "$INSTDIR\plugins" Delete "$INSTDIR\sasl2\libanonymous-3.dll" Delete "$INSTDIR\sasl2\libcrammd5-3.dll"
--- a/po/POTFILES.skip Sun Oct 09 17:18:55 2016 -0500 +++ b/po/POTFILES.skip Tue May 30 22:39:20 2017 -0500 @@ -1,56 +1,6 @@ libpurple/data/purple-url-handler.desktop.in.in libpurple/protocols/null/nullprpl.c pidgin/data/pidgin.desktop.in.in -pidgin/plugins/perl/common/GtkAccount.c -pidgin/plugins/perl/common/GtkBlist.c -pidgin/plugins/perl/common/GtkConn.c -pidgin/plugins/perl/common/GtkConv.c -pidgin/plugins/perl/common/GtkConvWin.c -pidgin/plugins/perl/common/GtkDebug.c -pidgin/plugins/perl/common/GtkDialogs.c -pidgin/plugins/perl/common/GtkFt.c -pidgin/plugins/perl/common/GtkIMHtml.c -pidgin/plugins/perl/common/GtkIMHtmlToolbar.c -pidgin/plugins/perl/common/GtkLog.c -pidgin/plugins/perl/common/GtkMenuTray.c -pidgin/plugins/perl/common/GtkPlugin.c -pidgin/plugins/perl/common/GtkPluginPref.c -pidgin/plugins/perl/common/GtkPounce.c -pidgin/plugins/perl/common/GtkPrefs.c -pidgin/plugins/perl/common/GtkPrivacy.c -pidgin/plugins/perl/common/GtkRoomlist.c -pidgin/plugins/perl/common/GtkSavedStatuses.c -pidgin/plugins/perl/common/GtkSession.c -pidgin/plugins/perl/common/GtkSound.c -pidgin/plugins/perl/common/GtkStatusBox.c -pidgin/plugins/perl/common/GtkThemes.c -pidgin/plugins/perl/common/GtkUtils.c -pidgin/plugins/perl/common/Pidgin.c sub/libpurple/data/purple-url-handler.desktop.in sub/libpurple/protocols/null/nullprpl.c sub/pidgin/data/pidgin.desktop.in -sub/pidgin/plugins/perl/common/GtkAccount.c -sub/pidgin/plugins/perl/common/GtkBlist.c -sub/pidgin/plugins/perl/common/GtkConn.c -sub/pidgin/plugins/perl/common/GtkConv.c -sub/pidgin/plugins/perl/common/GtkConvWin.c -sub/pidgin/plugins/perl/common/GtkDebug.c -sub/pidgin/plugins/perl/common/GtkDialogs.c -sub/pidgin/plugins/perl/common/GtkFt.c -sub/pidgin/plugins/perl/common/GtkIMHtml.c -sub/pidgin/plugins/perl/common/GtkIMHtmlToolbar.c -sub/pidgin/plugins/perl/common/GtkLog.c -sub/pidgin/plugins/perl/common/GtkMenuTray.c -sub/pidgin/plugins/perl/common/GtkPlugin.c -sub/pidgin/plugins/perl/common/GtkPluginPref.c -sub/pidgin/plugins/perl/common/GtkPounce.c -sub/pidgin/plugins/perl/common/GtkPrefs.c -sub/pidgin/plugins/perl/common/GtkPrivacy.c -sub/pidgin/plugins/perl/common/GtkRoomlist.c -sub/pidgin/plugins/perl/common/GtkSavedStatuses.c -sub/pidgin/plugins/perl/common/GtkSession.c -sub/pidgin/plugins/perl/common/GtkSound.c -sub/pidgin/plugins/perl/common/GtkStatusBox.c -sub/pidgin/plugins/perl/common/GtkThemes.c -sub/pidgin/plugins/perl/common/GtkUtils.c -sub/pidgin/plugins/perl/common/Pidgin.c