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::signal_add_first() and .._last() allows hashes now.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2334 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-01-21 19:20:08 +00:00 committed by cras
parent 1af5f41812
commit e4aa149c54
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,24 +50,20 @@ CODE:
perl_signal_add_hash(1, ST(0)); perl_signal_add_hash(1, ST(0));
void void
signal_add_first(signal, func) signal_add_first(...)
char *signal
SV *func
CODE: CODE:
if (items != 1 && items != 2) if (items != 1 && items != 2)
croak("Usage: Irssi::signal_add(signal, func)"); croak("Usage: Irssi::signal_add_first(signal, func)");
if (items == 2) if (items == 2)
perl_signal_add_first((char *)SvPV(ST(0),PL_na), ST(1)); perl_signal_add_first((char *)SvPV(ST(0),PL_na), ST(1));
else else
perl_signal_add_hash(0, ST(0)); perl_signal_add_hash(0, ST(0));
void void
signal_add_last(signal, func) signal_add_last(...)
char *signal
SV *func
CODE: CODE:
if (items != 1 && items != 2) if (items != 1 && items != 2)
croak("Usage: Irssi::signal_add(signal, func)"); croak("Usage: Irssi::signal_add_last(signal, func)");
if (items == 2) if (items == 2)
perl_signal_add_last((char *)SvPV(ST(0),PL_na), ST(1)); perl_signal_add_last((char *)SvPV(ST(0),PL_na), ST(1));
else else