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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.108 by root, Sun Dec 10 15:14:05 2006 UTC vs.
Revision 1.109 by root, Thu Dec 14 15:19:31 2006 UTC

… …
117#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self) 117#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)
118#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term") 118#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")
119 119
120///////////////////////////////////////////////////////////////////////////// 120/////////////////////////////////////////////////////////////////////////////
121 121
122#define SvWATCHER(sv) (perl_watcher *)SvPTR (sv, "urxvt::watcher")
123
124struct perl_watcher
125{
126 SV *cbsv;
127 HV *self;
128
129 perl_watcher ()
130 : cbsv (0)
131 {
132 }
133
134 ~perl_watcher ()
135 {
136 SvREFCNT_dec (cbsv);
137 }
138
139 void cb (SV *cb)
140 {
141 SvREFCNT_dec (cbsv);
142 cbsv = newSVsv (cb);
143 }
144
145 void invoke (const char *type, SV *self, int arg = -1);
146};
147
148void
149perl_watcher::invoke (const char *type, SV *self, int arg)
150{
151 dSP;
152
153 ENTER;
154 SAVETMPS;
155
156 PUSHMARK (SP);
157
158 XPUSHs (sv_2mortal (self));
159
160 if (arg >= 0)
161 XPUSHs (sv_2mortal (newSViv (arg)));
162
163 PUTBACK;
164 call_sv (cbsv, G_VOID | G_EVAL | G_DISCARD);
165 SPAGAIN;
166
167 PUTBACK;
168 FREETMPS;
169 LEAVE;
170
171 if (SvTRUE (ERRSV))
172 rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV));
173}
174
175#define newSVtimer(timer) new_ref ((timer)->self, "urxvt::timer")
176#define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR ((sv), "urxvt::timer")
177
178struct timer : perl_watcher, time_watcher
179{
180 tstamp interval;
181
182 timer ()
183 : time_watcher (this, &timer::execute)
184 {
185 }
186
187 void execute (time_watcher &w)
188 {
189 if (interval)
190 start (at + interval);
191
192 invoke ("urxvt::timer", newSVtimer (this));
193 }
194};
195
196#define newSViow(iow) new_ref ((iow)->self, "urxvt::iow")
197#define SvIOW(sv) (iow *)(perl_watcher *)SvPTR ((sv), "urxvt::iow")
198
199struct iow : perl_watcher, io_watcher
200{
201 iow ()
202 : io_watcher (this, &iow::execute)
203 {
204 }
205
206 void execute (io_watcher &w, short revents)
207 {
208 invoke ("urxvt::iow", newSViow (this), revents);
209 }
210};
211
212#define newSViw(iw) new_ref ((iw)->self, "urxvt::iw")
213#define SvIW(sv) (iw *)(perl_watcher *)SvPTR ((sv), "urxvt::iw")
214
215struct iw : perl_watcher, idle_watcher
216{
217 iw ()
218 : idle_watcher (this, &iw::execute)
219 {
220 }
221
222 void execute (idle_watcher &w)
223 {
224 invoke ("urxvt::iw", newSViw (this));
225 }
226};
227
228#define newSVpw(pw) new_ref ((pw)->self, "urxvt::pw")
229#define SvPW(sv) (pw *)(perl_watcher *)SvPTR ((sv), "urxvt::pw")
230
231struct pw : perl_watcher, child_watcher
232{
233 pw ()
234 : child_watcher (this, &pw::execute)
235 {
236 }
237
238 void execute (child_watcher &w, int status)
239 {
240 invoke ("urxvt::pw", newSVpw (this), status);
241 }
242};
243
244/////////////////////////////////////////////////////////////////////////////
245
246#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay") 122#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
247 123
248class overlay { 124class overlay {
249 rxvt_term *THIS; 125 rxvt_term *THIS;
250 AV *overlay_av; 126 AV *overlay_av;
… …
425 } 301 }
426 302
427 THIS->want_refresh = 1; 303 THIS->want_refresh = 1;
428} 304}
429 305
306/////////////////////////////////////////////////////////////////////////////
307
308#define IOM_CLASS "urxvt"
309#include <iom_perl.h>
430 310
431///////////////////////////////////////////////////////////////////////////// 311/////////////////////////////////////////////////////////////////////////////
432 312
433struct rxvt_perl_interp rxvt_perl; 313struct rxvt_perl_interp rxvt_perl;
434 314
… …
1946overlay::hide () 1826overlay::hide ()
1947 1827
1948void 1828void
1949overlay::DESTROY () 1829overlay::DESTROY ()
1950 1830
1951############################################################################# 1831INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g |
1952# urxvt::watcher
1953#############################################################################
1954 1832
1955MODULE = urxvt PACKAGE = urxvt::watcher
1956
1957CHAINED
1958perl_watcher::cb (SV *cb)
1959 CODE:
1960 THIS->cb (cb);
1961 OUTPUT:
1962 RETVAL
1963
1964#############################################################################
1965# urxvt::timer
1966#############################################################################
1967
1968MODULE = urxvt PACKAGE = urxvt::timer
1969
1970SV *
1971timer::new ()
1972 CODE:
1973 timer *w = new timer;
1974 w->start (NOW);
1975 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::timer");
1976 w->self = (HV *)SvRV (RETVAL);
1977 OUTPUT:
1978 RETVAL
1979
1980NV
1981timer::at ()
1982 CODE:
1983 RETVAL = THIS->at;
1984 OUTPUT:
1985 RETVAL
1986
1987CHAINED
1988timer::interval (NV interval)
1989 CODE:
1990 THIS->interval = interval;
1991 OUTPUT:
1992 RETVAL
1993
1994CHAINED
1995timer::set (NV tstamp)
1996 CODE:
1997 THIS->set (tstamp);
1998 OUTPUT:
1999 RETVAL
2000
2001CHAINED
2002timer::start (NV tstamp = THIS->at)
2003 CODE:
2004 THIS->start (tstamp);
2005 OUTPUT:
2006 RETVAL
2007
2008CHAINED
2009timer::after (NV delay)
2010 CODE:
2011 THIS->start (NOW + delay);
2012 OUTPUT:
2013 RETVAL
2014
2015CHAINED
2016timer::stop ()
2017 CODE:
2018 THIS->stop ();
2019 OUTPUT:
2020 RETVAL
2021
2022void
2023timer::DESTROY ()
2024
2025#############################################################################
2026# urxvt::iow
2027#############################################################################
2028
2029MODULE = urxvt PACKAGE = urxvt::iow
2030
2031SV *
2032iow::new ()
2033 CODE:
2034 iow *w = new iow;
2035 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::iow");
2036 w->self = (HV *)SvRV (RETVAL);
2037 OUTPUT:
2038 RETVAL
2039
2040CHAINED
2041iow::fd (int fd)
2042 CODE:
2043 THIS->fd = fd;
2044 OUTPUT:
2045 RETVAL
2046
2047CHAINED
2048iow::events (short events)
2049 CODE:
2050 THIS->events = events;
2051 OUTPUT:
2052 RETVAL
2053
2054CHAINED
2055iow::start ()
2056 CODE:
2057 THIS->start ();
2058 OUTPUT:
2059 RETVAL
2060
2061CHAINED
2062iow::stop ()
2063 CODE:
2064 THIS->stop ();
2065 OUTPUT:
2066 RETVAL
2067
2068void
2069iow::DESTROY ()
2070
2071#############################################################################
2072# urxvt::iw
2073#############################################################################
2074
2075MODULE = urxvt PACKAGE = urxvt::iw
2076
2077SV *
2078iw::new ()
2079 CODE:
2080 iw *w = new iw;
2081 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::iw");
2082 w->self = (HV *)SvRV (RETVAL);
2083 OUTPUT:
2084 RETVAL
2085
2086CHAINED
2087iw::start ()
2088 CODE:
2089 THIS->start ();
2090 OUTPUT:
2091 RETVAL
2092
2093CHAINED
2094iw::stop ()
2095 CODE:
2096 THIS->stop ();
2097 OUTPUT:
2098 RETVAL
2099
2100void
2101iw::DESTROY ()
2102
2103#############################################################################
2104# urxvt::pw
2105#############################################################################
2106
2107MODULE = urxvt PACKAGE = urxvt::pw
2108
2109SV *
2110pw::new ()
2111 CODE:
2112 pw *w = new pw;
2113 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::pw");
2114 w->self = (HV *)SvRV (RETVAL);
2115 OUTPUT:
2116 RETVAL
2117
2118CHAINED
2119pw::start (int pid)
2120 CODE:
2121 THIS->start (pid);
2122 OUTPUT:
2123 RETVAL
2124
2125CHAINED
2126pw::stop ()
2127 CODE:
2128 THIS->stop ();
2129 OUTPUT:
2130 RETVAL
2131
2132void
2133pw::DESTROY ()
2134
2135

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines