diff options
author | Timo Sirainen <cras@irssi.org> | 2000-10-01 20:48:48 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-10-01 20:48:48 +0000 |
commit | 62dee8fdafe558b638cfc1995841e3ca7e007368 (patch) | |
tree | ce328ef6fb25a689b0364743a9f3c59405302b9e /src/perl/irc/IrcChannel.xs | |
parent | c1a191955ba9903e1dc07b49886a9ce52fdf4207 (diff) | |
download | irssi-62dee8fdafe558b638cfc1995841e3ca7e007368.zip |
Perl works again :) Split to Irssi and Irssi::Irc packages.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@705 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/irc/IrcChannel.xs')
-rw-r--r-- | src/perl/irc/IrcChannel.xs | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/src/perl/irc/IrcChannel.xs b/src/perl/irc/IrcChannel.xs new file mode 100644 index 00000000..7d2b1092 --- /dev/null +++ b/src/perl/irc/IrcChannel.xs @@ -0,0 +1,44 @@ +MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Channel PREFIX = irc_channel_ + +void +bans(channel) + Irssi::Irc::Channel channel +PREINIT: + GSList *tmp; + HV *stash; +PPCODE: + stash = gv_stashpv("Irssi::Irc::Ban", 0); + for (tmp = channel->banlist; tmp != NULL; tmp = tmp->next) { + XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash))); + } + +void +ebans(channel) + Irssi::Irc::Channel channel +PREINIT: + GSList *tmp; + HV *stash; +PPCODE: + stash = gv_stashpv("Irssi::Irc::Ban", 0); + for (tmp = channel->ebanlist; tmp != NULL; tmp = tmp->next) { + XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash))); + } + +void +invites(channel) + Irssi::Irc::Channel channel +PREINIT: + GSList *tmp; + HV *stash; +PPCODE: + for (tmp = channel->invitelist; tmp != NULL; tmp = tmp->next) { + XPUSHs(new_pv(tmp->data)); + } + +MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Server PREFIX = irc_ + +Irssi::Irc::Channel +irc_channel_create(server, name, automatic) + Irssi::Irc::Server server + char *name + int automatic |