aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-02-02 15:08:01 -05:00
Code

Irssi::command_runsub() - patch by fuchs

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1519 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-05-30 08:58:48 +00:00 committed by cras
parent 5fe2ba9f61
commit 5f6d953602
3 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
docs/perl.txt
View File

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

9
src/perl/common/Core.xs
View File

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

6
src/perl/perl-signals.c
View File

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