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.105 by root, Mon Aug 21 15:11:46 2006 UTC vs.
Revision 1.111 by root, Thu Dec 14 17:33:53 2006 UTC

… …
50#undef LINENO 50#undef LINENO
51#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows) 51#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)
52#undef ROW 52#undef ROW
53#define ROW(n) THIS->row_buf [LINENO (n)] 53#define ROW(n) THIS->row_buf [LINENO (n)]
54 54
55typedef int CHAINED UNUSED;
56
57///////////////////////////////////////////////////////////////////////////// 55/////////////////////////////////////////////////////////////////////////////
58 56
59static wchar_t * 57static wchar_t *
60sv2wcs (SV *sv) 58sv2wcs (SV *sv)
61{ 59{
… …
114 return (long)mg->mg_ptr; 112 return (long)mg->mg_ptr;
115} 113}
116 114
117#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self) 115#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)
118#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term") 116#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")
119
120/////////////////////////////////////////////////////////////////////////////
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 117
244///////////////////////////////////////////////////////////////////////////// 118/////////////////////////////////////////////////////////////////////////////
245 119
246#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay") 120#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
247 121
… …
425 } 299 }
426 300
427 THIS->want_refresh = 1; 301 THIS->want_refresh = 1;
428} 302}
429 303
304/////////////////////////////////////////////////////////////////////////////
305
306#define IOM_CLASS "urxvt"
307#include <iom_perl.h>
430 308
431///////////////////////////////////////////////////////////////////////////// 309/////////////////////////////////////////////////////////////////////////////
432 310
433struct rxvt_perl_interp rxvt_perl; 311struct rxvt_perl_interp rxvt_perl;
434 312
… …
794 const_iv (AnyModifier), 672 const_iv (AnyModifier),
795 673
796 const_iv (NoSymbol), 674 const_iv (NoSymbol),
797 const_iv (GrabModeSync), 675 const_iv (GrabModeSync),
798 const_iv (GrabModeAsync), 676 const_iv (GrabModeAsync),
799
800 const_iv (EVENT_NONE),
801 const_iv (EVENT_READ),
802 const_iv (EVENT_WRITE),
803 677
804 const_iv (NoEventMask), 678 const_iv (NoEventMask),
805 const_iv (KeyPressMask), 679 const_iv (KeyPressMask),
806 const_iv (KeyReleaseMask), 680 const_iv (KeyReleaseMask),
807 const_iv (ButtonPressMask), 681 const_iv (ButtonPressMask),
… …
941 RETVAL 815 RETVAL
942 816
943int 817int
944GET_CUSTOM (int rend) 818GET_CUSTOM (int rend)
945 CODE: 819 CODE:
946 RETVAL = (rend && RS_customMask) >> RS_customShift; 820 RETVAL = (rend & RS_customMask) >> RS_customShift;
947 OUTPUT: 821 OUTPUT:
948 RETVAL 822 RETVAL
949 823
950int 824int
951SET_CUSTOM (int rend, int new_value) 825SET_CUSTOM (int rend, int new_value)
… …
1128 for (wchar_t *wc = wstr; *wc; wc++) 1002 for (wchar_t *wc = wstr; *wc; wc++)
1129 { 1003 {
1130 int w = WCWIDTH (*wc); 1004 int w = WCWIDTH (*wc);
1131 1005
1132 if (w) 1006 if (w)
1133 RETVAL += min (w, 1); 1007 RETVAL += max (w, 1);
1134 } 1008 }
1135 rxvt_pop_locale (); 1009 rxvt_pop_locale ();
1136 1010
1137 free (wstr); 1011 free (wstr);
1138} 1012}
… …
1169 rxvt_pop_locale (); 1043 rxvt_pop_locale ();
1170 1044
1171 RETVAL = wcs2sv (wstr); 1045 RETVAL = wcs2sv (wstr);
1172 free (wstr); 1046 free (wstr);
1173} 1047}
1048 OUTPUT:
1049 RETVAL
1050
1051char *
1052rxvt_term::locale ()
1053 CODE:
1054 RETVAL = THIS->locale;
1174 OUTPUT: 1055 OUTPUT:
1175 RETVAL 1056 RETVAL
1176 1057
1177#define TERM_OFFSET(sym) offsetof (TermWin_t, sym) 1058#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
1178 1059
… …
1939overlay::hide () 1820overlay::hide ()
1940 1821
1941void 1822void
1942overlay::DESTROY () 1823overlay::DESTROY ()
1943 1824
1944############################################################################# 1825INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g |
1945# urxvt::watcher
1946#############################################################################
1947 1826
1948MODULE = urxvt PACKAGE = urxvt::watcher
1949
1950CHAINED
1951perl_watcher::cb (SV *cb)
1952 CODE:
1953 THIS->cb (cb);
1954 OUTPUT:
1955 RETVAL
1956
1957#############################################################################
1958# urxvt::timer
1959#############################################################################
1960
1961MODULE = urxvt PACKAGE = urxvt::timer
1962
1963SV *
1964timer::new ()
1965 CODE:
1966 timer *w = new timer;
1967 w->start (NOW);
1968 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::timer");
1969 w->self = (HV *)SvRV (RETVAL);
1970 OUTPUT:
1971 RETVAL
1972
1973NV
1974timer::at ()
1975 CODE:
1976 RETVAL = THIS->at;
1977 OUTPUT:
1978 RETVAL
1979
1980CHAINED
1981timer::interval (NV interval)
1982 CODE:
1983 THIS->interval = interval;
1984 OUTPUT:
1985 RETVAL
1986
1987CHAINED
1988timer::set (NV tstamp)
1989 CODE:
1990 THIS->set (tstamp);
1991 OUTPUT:
1992 RETVAL
1993
1994CHAINED
1995timer::start (NV tstamp = THIS->at)
1996 CODE:
1997 THIS->start (tstamp);
1998 OUTPUT:
1999 RETVAL
2000
2001CHAINED
2002timer::after (NV delay)
2003 CODE:
2004 THIS->start (NOW + delay);
2005 OUTPUT:
2006 RETVAL
2007
2008CHAINED
2009timer::stop ()
2010 CODE:
2011 THIS->stop ();
2012 OUTPUT:
2013 RETVAL
2014
2015void
2016timer::DESTROY ()
2017
2018#############################################################################
2019# urxvt::iow
2020#############################################################################
2021
2022MODULE = urxvt PACKAGE = urxvt::iow
2023
2024SV *
2025iow::new ()
2026 CODE:
2027 iow *w = new iow;
2028 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::iow");
2029 w->self = (HV *)SvRV (RETVAL);
2030 OUTPUT:
2031 RETVAL
2032
2033CHAINED
2034iow::fd (int fd)
2035 CODE:
2036 THIS->fd = fd;
2037 OUTPUT:
2038 RETVAL
2039
2040CHAINED
2041iow::events (short events)
2042 CODE:
2043 THIS->events = events;
2044 OUTPUT:
2045 RETVAL
2046
2047CHAINED
2048iow::start ()
2049 CODE:
2050 THIS->start ();
2051 OUTPUT:
2052 RETVAL
2053
2054CHAINED
2055iow::stop ()
2056 CODE:
2057 THIS->stop ();
2058 OUTPUT:
2059 RETVAL
2060
2061void
2062iow::DESTROY ()
2063
2064#############################################################################
2065# urxvt::iw
2066#############################################################################
2067
2068MODULE = urxvt PACKAGE = urxvt::iw
2069
2070SV *
2071iw::new ()
2072 CODE:
2073 iw *w = new iw;
2074 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::iw");
2075 w->self = (HV *)SvRV (RETVAL);
2076 OUTPUT:
2077 RETVAL
2078
2079CHAINED
2080iw::start ()
2081 CODE:
2082 THIS->start ();
2083 OUTPUT:
2084 RETVAL
2085
2086CHAINED
2087iw::stop ()
2088 CODE:
2089 THIS->stop ();
2090 OUTPUT:
2091 RETVAL
2092
2093void
2094iw::DESTROY ()
2095
2096#############################################################################
2097# urxvt::pw
2098#############################################################################
2099
2100MODULE = urxvt PACKAGE = urxvt::pw
2101
2102SV *
2103pw::new ()
2104 CODE:
2105 pw *w = new pw;
2106 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::pw");
2107 w->self = (HV *)SvRV (RETVAL);
2108 OUTPUT:
2109 RETVAL
2110
2111CHAINED
2112pw::start (int pid)
2113 CODE:
2114 THIS->start (pid);
2115 OUTPUT:
2116 RETVAL
2117
2118CHAINED
2119pw::stop ()
2120 CODE:
2121 THIS->stop ();
2122 OUTPUT:
2123 RETVAL
2124
2125void
2126pw::DESTROY ()
2127
2128

Diff Legend

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