introduce the type Irssi::Irc::Client and signals to communicate with proxy

clients to allow for scripting parts of the irssi-proxy.



git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4882 dbcabf3a-b0e7-0310-adc4-f8d773084564

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