2001-01-03 02:34:12 -05:00
|
|
|
#ifndef __PERL_SIGNALS_H
|
|
|
|
#define __PERL_SIGNALS_H
|
|
|
|
|
2002-04-16 14:11:06 -04:00
|
|
|
void perl_signal_add_full(const char *signal, SV *func, int priority);
|
2001-01-03 02:34:12 -05:00
|
|
|
|
2001-12-06 12:17:40 -05:00
|
|
|
void perl_signal_remove(const char *signal, SV *func);
|
|
|
|
/* remove all signals used by script */
|
|
|
|
void perl_signal_remove_script(PERL_SCRIPT_REC *script);
|
2001-01-03 02:34:12 -05:00
|
|
|
|
2001-07-16 16:03:36 -04:00
|
|
|
void perl_command_bind_to(const char *cmd, const char *category,
|
2001-12-06 12:17:40 -05:00
|
|
|
SV *func, int priority);
|
2001-07-16 16:03:36 -04:00
|
|
|
#define perl_command_bind_first(cmd, category, func) \
|
|
|
|
perl_command_bind_to(cmd, category, func, 0)
|
|
|
|
#define perl_command_bind(cmd, category, func) \
|
|
|
|
perl_command_bind_to(cmd, category, func, 1)
|
|
|
|
#define perl_command_bind_last(cmd, category, func) \
|
|
|
|
perl_command_bind_to(cmd, category, func, 2)
|
|
|
|
|
2001-12-06 12:17:40 -05:00
|
|
|
void perl_command_unbind(const char *cmd, SV *func);
|
2001-01-04 04:45:46 -05:00
|
|
|
|
2001-01-03 02:34:12 -05:00
|
|
|
void perl_signals_start(void);
|
|
|
|
void perl_signals_stop(void);
|
|
|
|
|
|
|
|
void perl_signals_init(void);
|
|
|
|
void perl_signals_deinit(void);
|
|
|
|
|
|
|
|
#endif
|