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

Irssi::signal_add(), Irssi::timeout_add(), Irssi::input_add() and their

Browse source 
variants now also allow use of code references.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2199 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-12-06 17:17:40 +00:00 • committed by cras
commit 31dcd8258f
8 changed files with 112 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -27,28 +27,28 @@ CODE:
void
signal_add(signal, func)
char *signal
char *func
SV *func
CODE:
perl_signal_add(signal, func);
void
signal_add_first(signal, func)
char *signal
char *func
SV *func
CODE:
perl_signal_add_first(signal, func);
void
signal_add_last(signal, func)
char *signal
char *func
SV *func
CODE:
perl_signal_add_last(signal, func);
void
signal_remove(signal, func)
char *signal
char *func
SV *func
CODE:
perl_signal_remove(signal, func);
@ -72,7 +72,7 @@ signal_get_emitted_id()
int
timeout_add(msecs, func, data)
int msecs
char *func
SV *func
void *data
CODE:
RETVAL = perl_timeout_add(msecs, func, ST(2));
@ -104,7 +104,7 @@ int
input_add(source, condition, func, data)
int source
int condition
char *func
SV *func
void *data
CODE:
RETVAL = perl_input_add(source, condition, func, ST(2));
@ -333,7 +333,7 @@ void
command_bind_first(cmd, func, category = "Perl scripts' commands")
char *cmd
char *category
char *func
SV *func
CODE:
perl_command_bind_first(cmd, category, func);
@ -341,7 +341,7 @@ void
command_bind(cmd, func, category = "Perl scripts' commands")
char *cmd
char *category
char *func
SV *func
CODE:
perl_command_bind(cmd, category, func);
@ -349,7 +349,7 @@ void
command_bind_last(cmd, func, category = "Perl scripts' commands")
char *cmd
char *category
char *func
SV *func
CODE:
perl_command_bind_last(cmd, category, func);
@ -365,7 +365,7 @@ CODE:
void
command_unbind(cmd, func)
char *cmd
char *func
SV *func
CODE:
perl_command_unbind(cmd, func);