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

fixes for new signaling code.

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2691 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-04-16 18:11:06 +00:00 • committed by cras
commit c7320514aa
7 changed files with 123 additions and 159 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/perl/common/Core.xs
View file

@ -82,9 +82,10 @@ CODE:
if (items != 1 && items != 2)
croak("Usage: Irssi::signal_add(signal, func)");
if (items == 2)
perl_signal_add((char *)SvPV(ST(0),PL_na), ST(1));
perl_signal_add_full((char *)SvPV(ST(0),PL_na), ST(1),
SIGNAL_PRIORITY_DEFAULT);
else
perl_signal_add_hash(1, ST(0));
perl_signal_add_hash(SIGNAL_PRIORITY_DEFAULT, ST(0));
void
signal_add_first(...)
@ -92,9 +93,10 @@ CODE:
if (items != 1 && items != 2)
croak("Usage: Irssi::signal_add_first(signal, func)");
if (items == 2)
perl_signal_add_first((char *)SvPV(ST(0),PL_na), ST(1));
perl_signal_add_full((char *)SvPV(ST(0),PL_na), ST(1),
SIGNAL_PRIORITY_HIGH);
else
perl_signal_add_hash(0, ST(0));
perl_signal_add_hash(SIGNAL_PRIORITY_HIGH, ST(0));
void
signal_add_last(...)
@ -102,9 +104,20 @@ CODE:
if (items != 1 && items != 2)
croak("Usage: Irssi::signal_add_last(signal, func)");
if (items == 2)
perl_signal_add_last((char *)SvPV(ST(0),PL_na), ST(1));
perl_signal_add_full((char *)SvPV(ST(0),PL_na), ST(1),
SIGNAL_PRIORITY_LOW);
else
perl_signal_add_hash(2, ST(0));
perl_signal_add_hash(SIGNAL_PRIORITY_LOW, ST(0));
void
signal_add_priority(...)
CODE:
if (items != 2 && items != 3)
croak("Usage: Irssi::signal_add_priority(signal, func, priority)");
if (items == 3)
perl_signal_add_full((char *)SvPV(ST(0),PL_na), ST(1), SvIV(ST(2)));
else
perl_signal_add_hash(SvIV(ST(0)), ST(1));
void
signal_remove(signal, func)