|
|
1 | typedef int IOM_CHAINED; |
|
|
2 | |
1 | ///////////////////////////////////////////////////////////////////////////// |
3 | ///////////////////////////////////////////////////////////////////////////// |
2 | |
4 | |
3 | #define SvWATCHER(sv) (perl_watcher *)SvPTR (sv, IOM_CLASS "::watcher") |
5 | #define SvWATCHER(sv) (perl_watcher *)SvPTR (sv, IOM_CLASS "::watcher") |
4 | |
6 | |
5 | struct perl_watcher |
7 | struct perl_watcher |
… | |
… | |
48 | PUTBACK; |
50 | PUTBACK; |
49 | FREETMPS; |
51 | FREETMPS; |
50 | LEAVE; |
52 | LEAVE; |
51 | |
53 | |
52 | if (SvTRUE (ERRSV)) |
54 | if (SvTRUE (ERRSV)) |
53 | rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV)); |
55 | IOM_WARN ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV)); |
54 | } |
56 | } |
55 | |
57 | |
56 | #define newSVtimer(timer) new_ref ((timer)->self, IOM_CLASS "::timer") |
58 | #define newSVtimer(timer) new_ref ((timer)->self, IOM_CLASS "::timer") |
57 | #define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::timer") |
59 | #define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::timer") |
58 | |
60 | |