Define PERL_NO_GET_CONTEXT in all perl source files

This removes the calls to Perl_get_context() that get automatically
added to XS code for ancient source code compatibility reasons.

The result is about a ~60K size reduction in the binary (based on
comparing two 64-bit stripped irssi binaries compiled
--with-perl-staticlib).

33 files changed, 33 insertions, 0 deletions

diff --git a/src/perl/common/Channel.xs b/src/perl/common/Channel.xs
index 0692a7cc..69141c7c 100644
--- a/src/perl/common/Channel.xs
+++ b/src/perl/common/Channel.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Channel  PACKAGE = Irssi
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 76ea0093..84f660ba 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 #include "irssi-version.h"
 #include "core.h"
diff --git a/src/perl/common/Expando.xs b/src/perl/common/Expando.xs
index 31b4f990..e1dd89ab 100644
--- a/src/perl/common/Expando.xs
+++ b/src/perl/common/Expando.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 #include "expandos.h"
 
diff --git a/src/perl/common/Ignore.xs b/src/perl/common/Ignore.xs
index e4452c78..8dfd0ad3 100644
--- a/src/perl/common/Ignore.xs
+++ b/src/perl/common/Ignore.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Ignore  PACKAGE = Irssi
diff --git a/src/perl/common/Irssi.xs b/src/perl/common/Irssi.xs
index 9f33d557..dc354bbd 100644
--- a/src/perl/common/Irssi.xs
+++ b/src/perl/common/Irssi.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 static int initialized = FALSE;
diff --git a/src/perl/common/Log.xs b/src/perl/common/Log.xs
index c87ee45b..cdcdbd90 100644
--- a/src/perl/common/Log.xs
+++ b/src/perl/common/Log.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Log  PACKAGE = Irssi
diff --git a/src/perl/common/Masks.xs b/src/perl/common/Masks.xs
index 1ea13969..9612911a 100644
--- a/src/perl/common/Masks.xs
+++ b/src/perl/common/Masks.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Masks  PACKAGE = Irssi
diff --git a/src/perl/common/Query.xs b/src/perl/common/Query.xs
index 54a0582c..9d8cd523 100644
--- a/src/perl/common/Query.xs
+++ b/src/perl/common/Query.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Query  PACKAGE = Irssi
diff --git a/src/perl/common/Rawlog.xs b/src/perl/common/Rawlog.xs
index dd95ce50..c405bc37 100644
--- a/src/perl/common/Rawlog.xs
+++ b/src/perl/common/Rawlog.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Rawlog  PACKAGE = Irssi
diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs
index 76ea7812..7ed41109 100644
--- a/src/perl/common/Server.xs
+++ b/src/perl/common/Server.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Server  PACKAGE = Irssi
diff --git a/src/perl/common/Settings.xs b/src/perl/common/Settings.xs
index dc5507cf..eb81b627 100644
--- a/src/perl/common/Settings.xs
+++ b/src/perl/common/Settings.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 #include "misc.h"
 
diff --git a/src/perl/irc/Channel.xs b/src/perl/irc/Channel.xs
index 828e8cca..782fa1d5 100644
--- a/src/perl/irc/Channel.xs
+++ b/src/perl/irc/Channel.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Irc::Channel	PACKAGE = Irssi::Irc  PREFIX = irc_
diff --git a/src/perl/irc/Client.xs b/src/perl/irc/Client.xs
index 8481a11e..05616af2 100644
--- a/src/perl/irc/Client.xs
+++ b/src/perl/irc/Client.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Irc::Client  PACKAGE = Irssi::Irc
diff --git a/src/perl/irc/Ctcp.xs b/src/perl/irc/Ctcp.xs
index f298a2a4..d1bf8ba4 100644
--- a/src/perl/irc/Ctcp.xs
+++ b/src/perl/irc/Ctcp.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 #include "ctcp.h"
 
diff --git a/src/perl/irc/Dcc.xs b/src/perl/irc/Dcc.xs
index eff4e982..c078a1b5 100644
--- a/src/perl/irc/Dcc.xs
+++ b/src/perl/irc/Dcc.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Irc::Dcc  PACKAGE = Irssi::Irc
diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs
index 251efb8b..22a87384 100644
--- a/src/perl/irc/Irc.xs
+++ b/src/perl/irc/Irc.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 static int initialized = FALSE;
diff --git a/src/perl/irc/Modes.xs b/src/perl/irc/Modes.xs
index 4f355ce0..a53391b3 100644
--- a/src/perl/irc/Modes.xs
+++ b/src/perl/irc/Modes.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Irc::Modes	PACKAGE = Irssi::Irc
diff --git a/src/perl/irc/Netsplit.xs b/src/perl/irc/Netsplit.xs
index b0b1e523..9fafaf74 100644
--- a/src/perl/irc/Netsplit.xs
+++ b/src/perl/irc/Netsplit.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Irc::Netsplit	PACKAGE = Irssi::Irc::Server
diff --git a/src/perl/irc/Notifylist.xs b/src/perl/irc/Notifylist.xs
index 192489cc..74747baa 100644
--- a/src/perl/irc/Notifylist.xs
+++ b/src/perl/irc/Notifylist.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Irc::Notifylist  PACKAGE = Irssi::Irc
diff --git a/src/perl/irc/Query.xs b/src/perl/irc/Query.xs
index a4f6bd03..e873d9a5 100644
--- a/src/perl/irc/Query.xs
+++ b/src/perl/irc/Query.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::Irc::Query	PACKAGE = Irssi::Irc::Server  PREFIX = irc_
diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs
index a330fb20..4fe0d6b5 100644
--- a/src/perl/irc/Server.xs
+++ b/src/perl/irc/Server.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 static GSList *register_hash2list(HV *hv)
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c
index 198da57d..43325a82 100644
--- a/src/perl/perl-common.c
+++ b/src/perl/perl-common.c
@@ -19,6 +19,7 @@
 */
 
 #define NEED_PERL_H
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 #include "modules.h"
 #include "signals.h"
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c
index 08d0738c..26138510 100644
--- a/src/perl/perl-core.c
+++ b/src/perl/perl-core.c
@@ -19,6 +19,7 @@
 */
 
 #define NEED_PERL_H
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 #include "modules.h"
 #include "core.h"
diff --git a/src/perl/perl-signals.c b/src/perl/perl-signals.c
index a455cfd3..0173ff15 100644
--- a/src/perl/perl-signals.c
+++ b/src/perl/perl-signals.c
@@ -19,6 +19,7 @@
 */
 
 #define NEED_PERL_H
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 #include "modules.h"
 #include "signals.h"
diff --git a/src/perl/perl-sources.c b/src/perl/perl-sources.c
index 1697dbd2..d36329c9 100644
--- a/src/perl/perl-sources.c
+++ b/src/perl/perl-sources.c
@@ -19,6 +19,7 @@
 */
 
 #define NEED_PERL_H
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 #include "signals.h"
 
diff --git a/src/perl/textui/Statusbar.xs b/src/perl/textui/Statusbar.xs
index 522a93ee..7336c3cd 100644
--- a/src/perl/textui/Statusbar.xs
+++ b/src/perl/textui/Statusbar.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 static GHashTable *perl_sbar_defs;
diff --git a/src/perl/textui/TextBuffer.xs b/src/perl/textui/TextBuffer.xs
index 0a0fe0d1..14ef5950 100644
--- a/src/perl/textui/TextBuffer.xs
+++ b/src/perl/textui/TextBuffer.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::TextUI::TextBuffer  PACKAGE = Irssi
diff --git a/src/perl/textui/TextBufferView.xs b/src/perl/textui/TextBufferView.xs
index 4d755494..6e49e453 100644
--- a/src/perl/textui/TextBufferView.xs
+++ b/src/perl/textui/TextBufferView.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 MODULE = Irssi::TextUI::TextBufferView  PACKAGE = Irssi::TextUI::TextBuffer  PREFIX = textbuffer_
diff --git a/src/perl/textui/TextUI.xs b/src/perl/textui/TextUI.xs
index 84320ffa..fe51076a 100644
--- a/src/perl/textui/TextUI.xs
+++ b/src/perl/textui/TextUI.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 void perl_statusbar_init(void);
diff --git a/src/perl/ui/Formats.xs b/src/perl/ui/Formats.xs
index ba28f247..5c59bc5c 100644
--- a/src/perl/ui/Formats.xs
+++ b/src/perl/ui/Formats.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 static int magic_free_text_dest(pTHX_ SV *sv, MAGIC *mg)
diff --git a/src/perl/ui/Themes.xs b/src/perl/ui/Themes.xs
index ebc8b69b..1a782dc0 100644
--- a/src/perl/ui/Themes.xs
+++ b/src/perl/ui/Themes.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 static void printformat_perl(TEXT_DEST_REC *dest, char *format, char **arglist)
diff --git a/src/perl/ui/UI.xs b/src/perl/ui/UI.xs
index d8c7f7ae..2e32762c 100644
--- a/src/perl/ui/UI.xs
+++ b/src/perl/ui/UI.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 void perl_themes_init(void);
diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs
index ea3735a6..8c994cc2 100644
--- a/src/perl/ui/Window.xs
+++ b/src/perl/ui/Window.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT
 #include "module.h"
 
 #include "window-activity.h"