ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/iom_perl.h
(Generate patch)

Comparing rxvt-unicode/src/iom_perl.h (file contents):
Revision 1.6 by root, Tue Dec 4 16:23:59 2007 UTC vs.
Revision 1.7 by root, Fri Jan 7 21:17:07 2011 UTC

1#define IOM_CLASS "urxvt"
1typedef int IOM_CHAINED; 2typedef int IOM_CHAINED;
2 3
3static SV * 4static SV *
4iom_new_ref (HV *hv, const char *klass) 5iom_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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines