forked from PsychoticNinja/irssi
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).
48 lines
933 B
Plaintext
48 lines
933 B
Plaintext
#define PERL_NO_GET_CONTEXT
|
|
#include "module.h"
|
|
|
|
MODULE = Irssi::Irc::Modes PACKAGE = Irssi::Irc
|
|
PROTOTYPES: ENABLE
|
|
|
|
void
|
|
modes_join(server, old, mode, channel)
|
|
Irssi::Irc::Server server
|
|
char *old
|
|
char *mode
|
|
int channel
|
|
PREINIT:
|
|
char *ret;
|
|
PPCODE:
|
|
ret = modes_join(server, old, mode, channel);
|
|
XPUSHs(sv_2mortal(new_pv(ret)));
|
|
g_free(ret);
|
|
|
|
#*******************************
|
|
MODULE = Irssi::Irc::Modes PACKAGE = Irssi::Irc::Channel PREFIX = channel_
|
|
#*******************************
|
|
|
|
void
|
|
ban_get_mask(channel, nick, ban_type)
|
|
Irssi::Irc::Channel channel
|
|
char *nick
|
|
int ban_type
|
|
PREINIT:
|
|
char *ret;
|
|
PPCODE:
|
|
ret = ban_get_mask(channel, nick, ban_type);
|
|
XPUSHs(sv_2mortal(new_pv(ret)));
|
|
g_free(ret);
|
|
|
|
Irssi::Irc::Ban
|
|
banlist_add(channel, ban, nick, time)
|
|
Irssi::Irc::Channel channel
|
|
char *ban
|
|
char *nick
|
|
time_t time
|
|
|
|
void
|
|
banlist_remove(channel, ban, nick)
|
|
Irssi::Irc::Channel channel
|
|
char *ban
|
|
char *nick
|