jrd/irssi
1
0
Fork 0
forked from PsychoticNinja/irssi
Code Issues Pull Requests Projects Releases Wiki Activity

Irssi::signal_add() accepts now a hash, so you can do eg. signal_add('sig1'

Browse Source 
=> 'func1', 'sig2' => 'func2');


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2200 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-12-06 20:46:31 +00:00 committed by cras
parent 31dcd8258f
commit e558f1252a
1 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,21 @@
#include "module.h" #include "module.h"
#include "irssi-version.h" #include "irssi-version.h"
void perl_signal_add_hash(int priority, SV *sv)
{
HV *hv;
HE *he;
I32 len;
if (!is_hvref(sv))
croak("Usage: Irssi::signal_add(hash)");
hv = hvref(sv);
hv_iterinit(hv);
while ((he = hv_iternext(hv)) != NULL)
perl_signal_add_to(hv_iterkey(he, &len), HeVAL(he), priority);
}
MODULE = Irssi::Core PACKAGE = Irssi MODULE = Irssi::Core PACKAGE = Irssi
PROTOTYPES: ENABLE PROTOTYPES: ENABLE
@ -25,25 +40,38 @@ CODE:
signal_emit(signal, items-1, p[0], p[1], p[2], p[3], p[4], p[5]); signal_emit(signal, items-1, p[0], p[1], p[2], p[3], p[4], p[5]);
void void
signal_add(signal, func) signal_add(...)
char *signal
SV *func
CODE: CODE:
perl_signal_add(signal, func); 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));
else
perl_signal_add_hash(1, ST(0));
void void
signal_add_first(signal, func) signal_add_first(signal, func)
char *signal char *signal
SV *func SV *func
CODE: CODE:
perl_signal_add_first(signal, func); if (items != 1 && items != 2)
croak("Usage: Irssi::signal_add(signal, func)");
if (items == 2)
perl_signal_add_first((char *)SvPV(ST(0),PL_na), ST(1));
else
perl_signal_add_hash(0, ST(0));
void void
signal_add_last(signal, func) signal_add_last(signal, func)
char *signal char *signal
SV *func SV *func
CODE: CODE:
perl_signal_add_last(signal, func); if (items != 1 && items != 2)
croak("Usage: Irssi::signal_add(signal, func)");
if (items == 2)
perl_signal_add_last((char *)SvPV(ST(0),PL_na), ST(1));
else
perl_signal_add_hash(2, ST(0));
void void
signal_remove(signal, func) signal_remove(signal, func)