From 5f6d953602fa8c01b76f3ba09470f05afc367658 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Wed, 30 May 2001 08:58:48 +0000
Subject: [PATCH] Irssi::command_runsub() - patch by fuchs

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1519 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 docs/perl.txt           | 8 ++++++++
 src/perl/common/Core.xs | 9 +++++++++
 src/perl/perl-signals.c | 6 ++++++
 3 files changed, 23 insertions(+)

diff --git a/docs/perl.txt b/docs/perl.txt
index e04330a0..a774ef52 100644
--- a/docs/perl.txt
+++ b/docs/perl.txt
@@ -307,6 +307,14 @@ command_bind(cmd, func[, category])
   Bind command `cmd' to call function `func'. `category' is the
   category where the command is displayed in /HELP.
 
+command_runsub(cms, data, server, item)
+  Run subcommands for `cmd'. First word in `data' is parsed as
+  subcommand. `server' is Irssi::Server rec for current
+  Irssi::Windowitem `item'.
+  
+  Call command_runsub in handler function for `cmd' and bind
+  with command_bind("`cmd' `subcmd'", subcmdfunc[, category]);
+
 command_unbind(cmd, func)
   Unbind command `cmd' from function 'func.
 
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index c369b193..a225d09a 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -325,6 +325,15 @@ command_bind(cmd, func, category = "Perl scripts' commands")
 CODE:
 	perl_command_bind(cmd, category, func);
 
+void
+command_runsub(cmd, data, server, item)
+	char *cmd
+	char *data
+	Irssi::Server server
+	Irssi::Windowitem item
+CODE:
+	perl_command_runsub(cmd, data, server, item);
+
 void
 command_unbind(cmd, func)
 	char *cmd
diff --git a/src/perl/perl-signals.c b/src/perl/perl-signals.c
index 7f0db750..10f2534f 100644
--- a/src/perl/perl-signals.c
+++ b/src/perl/perl-signals.c
@@ -273,6 +273,12 @@ void perl_command_bind(const char *cmd, const char *category, const char *func)
 	g_free(signal);
 }
 
+void perl_command_runsub(const char *cmd, const char *data, 
+			 SERVER_REC *server, WI_ITEM_REC *item)
+{
+	command_runsub(cmd, data, server, item);
+}
+
 void perl_command_unbind(const char *cmd, const char *func)
 {
 	char *signal;