|
|
1 | #define IOM_CLASS "urxvt" |
1 | typedef int IOM_CHAINED; |
2 | typedef int IOM_CHAINED; |
2 | |
3 | |
3 | static SV * |
4 | static SV * |
4 | iom_new_ref (HV *hv, const char *klass) |
5 | iom_new_ref (HV *hv, const char *klass) |
5 | { |
6 | { |
… | |
… | |
56 | PUTBACK; |
57 | PUTBACK; |
57 | FREETMPS; |
58 | FREETMPS; |
58 | LEAVE; |
59 | LEAVE; |
59 | |
60 | |
60 | if (SvTRUE (ERRSV)) |
61 | if (SvTRUE (ERRSV)) |
61 | IOM_WARN ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV)); |
62 | rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV)); |
62 | } |
63 | } |
63 | |
64 | |
64 | #define newSVtimer(timer) iom_new_ref ((timer)->self, IOM_CLASS "::timer") |
65 | #define newSVtimer(timer) iom_new_ref ((timer)->self, IOM_CLASS "::timer") |
65 | #define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::timer") |
66 | #define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::timer") |
66 | |
67 | |