mirror of
https://github.com/irssi/irssi.git
synced 2026-08-13 05:32:11 +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).
117 lines
2.2 KiB
Text
117 lines
2.2 KiB
Text
#define PERL_NO_GET_CONTEXT
|
|
#include "module.h"
|
|
|
|
MODULE = Irssi::Channel PACKAGE = Irssi
|
|
PROTOTYPES: ENABLE
|
|
|
|
void
|
|
channels()
|
|
PREINIT:
|
|
GSList *tmp;
|
|
PPCODE:
|
|
for (tmp = channels; tmp != NULL; tmp = tmp->next) {
|
|
XPUSHs(sv_2mortal(iobject_bless((CHANNEL_REC *) tmp->data)));
|
|
}
|
|
|
|
Irssi::Channel
|
|
channel_find(channel)
|
|
char *channel
|
|
CODE:
|
|
RETVAL = channel_find(NULL, channel);
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
#*******************************
|
|
MODULE = Irssi::Channel PACKAGE = Irssi::Server
|
|
#*******************************
|
|
|
|
void
|
|
channels(server)
|
|
Irssi::Server server
|
|
PREINIT:
|
|
GSList *tmp;
|
|
PPCODE:
|
|
for (tmp = server->channels; tmp != NULL; tmp = tmp->next) {
|
|
XPUSHs(sv_2mortal(iobject_bless((CHANNEL_REC *) tmp->data)));
|
|
}
|
|
|
|
void
|
|
channels_join(server, channels, automatic)
|
|
Irssi::Server server
|
|
char *channels
|
|
int automatic
|
|
CODE:
|
|
server->channels_join(server, channels, automatic);
|
|
|
|
Irssi::Channel
|
|
channel_find(server, name)
|
|
Irssi::Server server
|
|
char *name
|
|
|
|
void
|
|
nicks_get_same(server, nick)
|
|
Irssi::Server server
|
|
char *nick
|
|
PREINIT:
|
|
GSList *list, *tmp;
|
|
PPCODE:
|
|
list = nicklist_get_same(server, nick);
|
|
|
|
for (tmp = list; tmp != NULL; tmp = tmp->next->next) {
|
|
XPUSHs(sv_2mortal(iobject_bless((CHANNEL_REC *) tmp->data)));
|
|
XPUSHs(sv_2mortal(iobject_bless((NICK_REC *) tmp->next->data)));
|
|
}
|
|
g_slist_free(list);
|
|
|
|
#*******************************
|
|
MODULE = Irssi::Channel PACKAGE = Irssi::Channel PREFIX = channel_
|
|
#*******************************
|
|
|
|
void
|
|
channel_destroy(channel)
|
|
Irssi::Channel channel
|
|
|
|
void
|
|
nick_insert(channel, nick)
|
|
Irssi::Channel channel
|
|
Irssi::Nick nick
|
|
CODE:
|
|
nicklist_insert(channel, nick);
|
|
|
|
void
|
|
nick_remove(channel, nick)
|
|
Irssi::Channel channel
|
|
Irssi::Nick nick
|
|
CODE:
|
|
nicklist_remove(channel, nick);
|
|
|
|
Irssi::Nick
|
|
nick_find(channel, nick)
|
|
Irssi::Channel channel
|
|
char *nick
|
|
CODE:
|
|
RETVAL = nicklist_find(channel, nick);
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
Irssi::Nick
|
|
nick_find_mask(channel, mask)
|
|
Irssi::Channel channel
|
|
char *mask
|
|
CODE:
|
|
RETVAL = nicklist_find_mask(channel, mask);
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
void
|
|
nicks(channel)
|
|
Irssi::Channel channel
|
|
PREINIT:
|
|
GSList *list, *tmp;
|
|
PPCODE:
|
|
list = nicklist_getnicks(channel);
|
|
|
|
for (tmp = list; tmp != NULL; tmp = tmp->next) {
|
|
XPUSHs(sv_2mortal(iobject_bless((NICK_REC *) tmp->data)));
|
|
}
|
|
g_slist_free(list);
|