# HG changeset patch # User Etan Reisner # Date 1156824929 0 # Node ID d5c22258df097d8a6fc121180d15f1e2fd6fe05b # Parent f3137c1faebe32ca784e0e263c066856f592f9db [gaim-migrate @ 17078] Reenable the perl build on non-Windows. I'm looking at making a gtk perl plugin to use the gtk stuff, we'll see if I succeed. I'm leaving the gtk stuff in here but ifdef:d out for now. I'll clean it up if I get the gtk perl plugin working. committer: Tailor Script diff -r f3137c1faebe -r d5c22258df09 libgaim/plugins/Makefile.am --- a/libgaim/plugins/Makefile.am Tue Aug 29 03:47:34 2006 +0000 +++ b/libgaim/plugins/Makefile.am Tue Aug 29 04:15:29 2006 +0000 @@ -1,9 +1,7 @@ DIST_SUBDIRS = mono perl ssl tcl if USE_PERL -# Fix the perl plugin to not use gtk first -# PERL_DIR = perl -PERL_DIR = +PERL_DIR = perl endif if USE_TCL diff -r f3137c1faebe -r d5c22258df09 libgaim/plugins/perl/Makefile.am --- a/libgaim/plugins/perl/Makefile.am Tue Aug 29 03:47:34 2006 +0000 +++ b/libgaim/plugins/perl/Makefile.am Tue Aug 29 04:15:29 2006 +0000 @@ -158,8 +158,7 @@ -DVERSION=\"$(VERSION)\" \ -I$(top_srcdir) \ -I$(top_srcdir)/libgaim \ - -I$(top_srcdir)/gtk \ # FIXME $(DEBUG_CFLAGS) \ - $(GTK_CFLAGS) \ + $(GLIB_CFLAGS) \ $(PLUGIN_CFLAGS) \ $(PERL_CFLAGS) diff -r f3137c1faebe -r d5c22258df09 libgaim/plugins/perl/common/Makefile.PL.in --- a/libgaim/plugins/perl/common/Makefile.PL.in Tue Aug 29 03:47:34 2006 +0000 +++ b/libgaim/plugins/perl/common/Makefile.PL.in Tue Aug 29 04:15:29 2006 +0000 @@ -11,7 +11,7 @@ AUTHOR => 'Christian Hammond ') : ()), 'LIBS' => [''], # e.g., '-lm' 'DEFINE' => '@DEBUG_CFLAGS@', # e.g., '-DHAVE_SOMETHING' - 'INC' => '-I. -I@srcdir@ -I@top_srcdir@ -I@top_srcdir@/src @GLIB_CFLAGS@ @GTK_CFLAGS@', # e.g., '-I. -I/usr/include/other' + 'INC' => '-I. -I@srcdir@ -I@top_srcdir@ -I@top_srcdir@/libgaim @GLIB_CFLAGS@', # e.g., '-I. -I/usr/include/other' 'OBJECT' => '$(O_FILES)', # link all the C files too ); diff -r f3137c1faebe -r d5c22258df09 libgaim/plugins/perl/common/Network.xs --- a/libgaim/plugins/perl/common/Network.xs Tue Aug 29 03:47:34 2006 +0000 +++ b/libgaim/plugins/perl/common/Network.xs Tue Aug 29 04:15:29 2006 +0000 @@ -25,14 +25,14 @@ gaim_network_ip_atoi(ip) const char *ip -Gaim::NetworkListenData * +Gaim::NetworkListenData gaim_network_listen(port, socket_type, cb, cb_data) unsigned short port int socket_type Gaim::NetworkListenCallback cb gpointer cb_data -Gaim::NetworkListenData * +Gaim::NetworkListenData gaim_network_listen_range(start, end, socket_type, cb, cb_data) unsigned short start unsigned short end diff -r f3137c1faebe -r d5c22258df09 libgaim/plugins/perl/common/module.h --- a/libgaim/plugins/perl/common/module.h Tue Aug 29 03:47:34 2006 +0000 +++ b/libgaim/plugins/perl/common/module.h Tue Aug 29 04:15:29 2006 +0000 @@ -28,11 +28,13 @@ #include "desktopitem.h" #include "eventloop.h" #include "ft.h" +#ifdef GAIM_GTKPERL #include "gtkaccount.h" #include "gtkblist.h" #include "gtkconn.h" #include "gtkconv.h" #include "gtkutils.h" +#endif #include "imgstore.h" #include "network.h" #include "notify.h" @@ -96,7 +98,6 @@ /* conversation.h */ typedef GaimConversationType Gaim__ConversationType; -typedef GaimUnseenState Gaim__UnseenState; typedef GaimConvUpdateType Gaim__ConvUpdateType; typedef GaimTypingState Gaim__TypingState; typedef GaimMessageFlags Gaim__MessageFlags; @@ -124,6 +125,7 @@ typedef GaimXferStatusType Gaim__XferStatusType; typedef GaimXferUiOps * Gaim__XferUiOps; +#ifdef GAIM_GTKPERL /* gtkblish.h */ typedef GaimGtkBuddyList * Gaim__GTK__BuddyList; typedef GaimStatusIconSize Gaim__StatusIconSize; @@ -136,6 +138,7 @@ #endif /* _WIN32 */ /* gtkconv.h */ +typedef GaimUnseenState Gaim__UnseenState; typedef GaimGtkConversation * Gaim__GTK__Conversation; typedef GdkPixbuf * Gaim__GDK__Pixbuf; typedef GtkWidget * Gaim__GTK__Widget; @@ -146,6 +149,7 @@ typedef GtkTextView * Gaim__GTK__TextView; /* gtkconn.h */ +#endif /* imgstore.h */ typedef GaimStoredImage * Gaim__StoredImage; @@ -159,7 +163,7 @@ typedef GaimLogType Gaim__LogType; /* network.h */ -typedef GaimNetworkListenData Gaim__NetworkListenData; +typedef GaimNetworkListenData * Gaim__NetworkListenData; typedef GaimNetworkListenCallback Gaim__NetworkListenCallback; /* notify.h */ diff -r f3137c1faebe -r d5c22258df09 libgaim/plugins/perl/common/typemap --- a/libgaim/plugins/perl/common/typemap Tue Aug 29 03:47:34 2006 +0000 +++ b/libgaim/plugins/perl/common/typemap Tue Aug 29 04:15:29 2006 +0000 @@ -92,6 +92,7 @@ Gaim::Menu::Action T_GaimObj +Gaim::NetworkListenData T_GaimObj Gaim::NetworkListenCallback T_PTR Gaim::NotifyCloseCallback T_PTR diff -r f3137c1faebe -r d5c22258df09 libgaim/plugins/perl/perl-handlers.h --- a/libgaim/plugins/perl/perl-handlers.h Tue Aug 29 03:47:34 2006 +0000 +++ b/libgaim/plugins/perl/perl-handlers.h Tue Aug 29 04:15:29 2006 +0000 @@ -5,8 +5,10 @@ #include "plugin.h" #include "prefs.h" #include "pluginpref.h" +#ifdef GAIM_GTKPERL #include "gtkplugin.h" #include "gtkutils.h" +#endif typedef struct { @@ -42,7 +44,9 @@ GaimPluginPrefFrame *gaim_perl_get_plugin_frame(GaimPlugin *plugin); +#ifdef GAIM_GTKPERL GtkWidget *gaim_perl_gtk_get_plugin_frame(GaimPlugin *plugin); +#endif void gaim_perl_timeout_add(GaimPlugin *plugin, int seconds, SV *callback, SV *data); diff -r f3137c1faebe -r d5c22258df09 libgaim/plugins/perl/perl.c --- a/libgaim/plugins/perl/perl.c Tue Aug 29 03:47:34 2006 +0000 +++ b/libgaim/plugins/perl/perl.c Tue Aug 29 04:15:29 2006 +0000 @@ -304,9 +304,11 @@ /* Set id here in case we don't find one later. */ info->id = g_strdup(SvPV(*key, len)); +#ifdef GAIM_GTKPERL if ((key = hv_fetch(plugin_info, "GTK_UI", strlen("GTK_UI"), 0))) info->ui_requirement = GAIM_GTK_PLUGIN_TYPE; +#endif if ((key = hv_fetch(plugin_info, "url", strlen("url"), 0)))