mirror of
https://github.com/irssi/irssi.git
synced 2026-08-10 04:13:32 +02:00
43df6e424e
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).
51 lines
959 B
Text
51 lines
959 B
Text
#define PERL_NO_GET_CONTEXT
|
|
#include "module.h"
|
|
|
|
MODULE = Irssi::Ignore PACKAGE = Irssi
|
|
PROTOTYPES: ENABLE
|
|
|
|
void
|
|
ignores()
|
|
PREINIT:
|
|
GSList *tmp;
|
|
PPCODE:
|
|
for (tmp = ignores; tmp != NULL; tmp = tmp->next) {
|
|
XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Ignore")));
|
|
}
|
|
|
|
int
|
|
ignore_check(nick, host, channel, text, level)
|
|
char *nick
|
|
char *host
|
|
char *channel
|
|
char *text
|
|
int level
|
|
CODE:
|
|
RETVAL = ignore_check(NULL, nick, host, channel, text, level);
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
#*******************************
|
|
MODULE = Irssi::Ignore PACKAGE = Irssi::Server
|
|
#*******************************
|
|
|
|
int
|
|
ignore_check(server, nick, host, channel, text, level)
|
|
Irssi::Server server
|
|
char *nick
|
|
char *host
|
|
char *channel
|
|
char *text
|
|
int level
|
|
|
|
#*******************************
|
|
MODULE = Irssi::Ignore PACKAGE = Irssi::Ignore PREFIX = ignore_
|
|
#*******************************
|
|
|
|
void
|
|
ignore_add_rec(rec)
|
|
Irssi::Ignore rec
|
|
|
|
void
|
|
ignore_update_rec(rec)
|
|
Irssi::Ignore rec
|