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

@@ -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.
 

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

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;