diff options
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/Makefile.am | 1 | ||||
| -rwxr-xr-x | src/perl/get-signals.pl | 1 | ||||
| -rw-r--r-- | src/perl/irc/Client.xs | 5 | ||||
| -rw-r--r-- | src/perl/irc/Irc.xs | 15 | ||||
| -rw-r--r-- | src/perl/irc/module.h | 4 | ||||
| -rw-r--r-- | src/perl/irc/typemap | 1 |
6 files changed, 27 insertions, 0 deletions
diff --git a/src/perl/Makefile.am b/src/perl/Makefile.am index 72521c3f..0bf65f79 100644 --- a/src/perl/Makefile.am +++ b/src/perl/Makefile.am @@ -100,6 +100,7 @@ irc_sources = \ irc/Modes.xs \ irc/Netsplit.xs \ irc/Notifylist.xs \ + irc/Client.xs \ irc/Makefile.PL.in \ irc/typemap \ irc/module.h diff --git a/src/perl/get-signals.pl b/src/perl/get-signals.pl index c61c81cc..8f600fa9 100755 --- a/src/perl/get-signals.pl +++ b/src/perl/get-signals.pl @@ -42,6 +42,7 @@ while (<STDIN>) { s/DCC_REC[^,]*/siobject/g; s/AUTOIGNORE_REC[^,]*/Irssi::Irc::Autoignore/g; s/NOTIFYLIST_REC[^,]*/Irssi::Irc::Notifylist/g; + s/CLIENT_REC[^,]*/Irssi::Irc::Client/g; # fe-common s/THEME_REC[^,]*/Irssi::UI::Theme/g; diff --git a/src/perl/irc/Client.xs b/src/perl/irc/Client.xs new file mode 100644 index 00000000..8481a11e --- /dev/null +++ b/src/perl/irc/Client.xs @@ -0,0 +1,5 @@ +#include "module.h" + +MODULE = Irssi::Irc::Client PACKAGE = Irssi::Irc +PROTOTYPES: ENABLE + diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs index 3fda1e68..251efb8b 100644 --- a/src/perl/irc/Irc.xs +++ b/src/perl/irc/Irc.xs @@ -144,6 +144,19 @@ static void perl_notifylist_fill_hash(HV *hv, NOTIFYLIST_REC *notify) hv_store(hv, "ircnets", 7, newRV_noinc((SV*)av), 0); } +static void perl_client_fill_hash(HV *hv, CLIENT_REC *client) +{ + hv_store(hv, "nick", 4, new_pv(client->nick), 0); + hv_store(hv, "host", 4, new_pv(client->host), 0); + hv_store(hv, "proxy_address", 13, new_pv(client->proxy_address), 0); + hv_store(hv, "server", 6, iobject_bless(client->server), 0); + hv_store(hv, "pass_sent", 9, newSViv(client->pass_sent), 0); + hv_store(hv, "user_sent", 9, newSViv(client->user_sent), 0); + hv_store(hv, "connected", 9, newSViv(client->connected), 0); + hv_store(hv, "want_ctcp", 9, newSViv(client->want_ctcp), 0); + hv_store(hv, "ircnet", 6, new_pv(client->listen->ircnet), 0); +} + static PLAIN_OBJECT_INIT_REC irc_plains[] = { { "Irssi::Irc::Ban", (PERL_OBJECT_FUNC) perl_ban_fill_hash }, { "Irssi::Irc::Dcc", (PERL_OBJECT_FUNC) perl_dcc_fill_hash }, @@ -151,6 +164,7 @@ static PLAIN_OBJECT_INIT_REC irc_plains[] = { { "Irssi::Irc::Netsplitserver", (PERL_OBJECT_FUNC) perl_netsplit_server_fill_hash }, { "Irssi::Irc::Netsplitchannel", (PERL_OBJECT_FUNC) perl_netsplit_channel_fill_hash }, { "Irssi::Irc::Notifylist", (PERL_OBJECT_FUNC) perl_notifylist_fill_hash }, + { "Irssi::Irc::Client", (PERL_OBJECT_FUNC) perl_client_fill_hash }, { NULL, NULL } }; @@ -209,3 +223,4 @@ BOOT: irssi_boot(Irc__Notifylist); irssi_boot(Irc__Query); irssi_boot(Irc__Server); + irssi_boot(Irc__Client); diff --git a/src/perl/irc/module.h b/src/perl/irc/module.h index 4f0ce06d..91c19c7a 100644 --- a/src/perl/irc/module.h +++ b/src/perl/irc/module.h @@ -20,6 +20,8 @@ #include "dcc/dcc-send.h" #include "notifylist/notifylist.h" +#include "proxy/proxy.h" + typedef IRC_SERVER_REC *Irssi__Irc__Server; typedef IRC_SERVER_CONNECT_REC *Irssi__Irc__Connect; typedef IRC_CHANNEL_REC *Irssi__Irc__Channel; @@ -35,3 +37,5 @@ typedef NETSPLIT_REC *Irssi__Irc__Netsplit; typedef NETSPLIT_SERVER_REC *Irssi__Irc__Netsplitserver; typedef NETSPLIT_CHAN_REC *Irssi__Irc__Netsplitchannel; typedef NOTIFYLIST_REC *Irssi__Irc__Notifylist; + +typedef CLIENT_REC *Irssi__Irc__Client; diff --git a/src/perl/irc/typemap b/src/perl/irc/typemap index d5604a77..9bf87647 100644 --- a/src/perl/irc/typemap +++ b/src/perl/irc/typemap @@ -14,6 +14,7 @@ Irssi::Irc::Netsplit T_PlainObj Irssi::Irc::Netsplitserver T_PlainObj Irssi::Irc::Netsplitchannel T_PlainObj Irssi::Irc::Notifylist T_PlainObj +Irssi::Irc::Client T_IrssiObj INPUT |