zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-18 16:12:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

Added Irssi::command_bind_first() and Irssi::command_bind_last()

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1638 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-07-16 20:03:36 +00:00 • committed by cras
commit 0d3b5c729f
3 changed files with 34 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/perl/perl-signals.c
View file

@ -213,9 +213,12 @@ SIG_FUNC_DECL(0, first);
SIG_FUNC_DECL(1, default);
SIG_FUNC_DECL(2, last);
#define priority_get_func(priority) \
(priority == 0 ? sig_func_first : \
priority == 1 ? sig_func_default : sig_func_last)
#define perl_signal_get_func(rec) \
((rec)->priority == 0 ? sig_func_first : \
(rec)->priority == 1 ? sig_func_default : sig_func_last)
(priority_get_func((rec)->priority))
void perl_signal_add_to_int(const char *signal, const char *func,
int priority, int add_signal)
@ -319,14 +322,15 @@ void perl_signal_remove(const char *signal, const char *func)
g_free(fullfunc);
}
void perl_command_bind(const char *cmd, const char *category, const char *func)
void perl_command_bind_to(const char *cmd, const char *category,
const char *func, int priority)
{
char *signal;
command_bind(cmd, category, sig_func_default);
command_bind(cmd, category, priority_get_func(priority));
signal = g_strconcat("command ", cmd, NULL);
perl_signal_add_to_int(signal, func, 1, FALSE);
perl_signal_add_to_int(signal, func, priority, FALSE);
g_free(signal);
}