From 0d3b5c729f16a0c8c2d7ccbc04854de2e8b5b45a Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Mon, 16 Jul 2001 20:03:36 +0000 Subject: Added Irssi::command_bind_first() and Irssi::command_bind_last() git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1638 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/common/Core.xs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'src/perl/common/Core.xs') diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index e69b5a50..6c04cc9d 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -315,6 +315,14 @@ PPCODE: XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Command"))); } +void +command_bind_first(cmd, func, category = "Perl scripts' commands") + char *cmd + char *category + char *func +CODE: + perl_command_bind_first(cmd, category, func); + void command_bind(cmd, func, category = "Perl scripts' commands") char *cmd @@ -323,6 +331,14 @@ command_bind(cmd, func, category = "Perl scripts' commands") CODE: perl_command_bind(cmd, category, func); +void +command_bind_last(cmd, func, category = "Perl scripts' commands") + char *cmd + char *category + char *func +CODE: + perl_command_bind_last(cmd, category, func); + void command_runsub(cmd, data, server, item) char *cmd -- cgit v1.2.3