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.116 by root, Sun Nov 11 04:08:00 2007 UTC

… …
31#include <cstddef> 31#include <cstddef>
32#include <cstdarg> 32#include <cstdarg>
33 33
34#include "unistd.h" 34#include "unistd.h"
35 35
36#include "iom.h" 36#include "ev_cpp.h"
37#include "rxvt.h" 37#include "rxvt.h"
38#include "keyboard.h" 38#include "keyboard.h"
39#include "rxvtutil.h" 39#include "rxvtutil.h"
40#include "rxvtperl.h" 40#include "rxvtperl.h"
41 41
… …
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{
… …
75 73
76 return sv; 74 return sv;
77} 75}
78 76
79static SV * 77static SV *
80new_ref (HV *hv, const char *klass)
81{
82 return sv_bless (newRV ((SV *)hv), gv_stashpv (klass, 1));
83}
84
85static SV *
86newSVptr (void *ptr, const char *klass) 78newSVptr (void *ptr, const char *klass)
87{ 79{
88 HV *hv = newHV (); 80 HV *hv = newHV ();
89 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0); 81 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
90 return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1)); 82 return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
… …
114 return (long)mg->mg_ptr; 106 return (long)mg->mg_ptr;
115} 107}
116 108
117#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self) 109#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)
118#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term") 110#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 111
244///////////////////////////////////////////////////////////////////////////// 112/////////////////////////////////////////////////////////////////////////////
245 113
246#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay") 114#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
247 115
… …
425 } 293 }
426 294
427 THIS->want_refresh = 1; 295 THIS->want_refresh = 1;
428} 296}
429 297
298/////////////////////////////////////////////////////////////////////////////
299
300#define IOM_CLASS "urxvt"
301#define IOM_WARN rxvt_warn
302#include <iom_perl.h>
430 303
431///////////////////////////////////////////////////////////////////////////// 304/////////////////////////////////////////////////////////////////////////////
432 305
433struct rxvt_perl_interp rxvt_perl; 306struct rxvt_perl_interp rxvt_perl;
434 307
… …
509 382
510 // pre-handling of some events 383 // pre-handling of some events
511 if (htype == HOOK_REFRESH_END) 384 if (htype == HOOK_REFRESH_END)
512 { 385 {
513 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0)); 386 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
514 387
515 for (int i = 0; i <= AvFILL (av); i++) 388 for (int i = 0; i <= AvFILL (av); i++)
516 ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap (); 389 ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
517 } 390 }
518 391
519 swap (perl_environ, environ); 392 swap (perl_environ, environ);
… …
718 591
719 // post-handling of some events 592 // post-handling of some events
720 if (htype == HOOK_REFRESH_BEGIN) 593 if (htype == HOOK_REFRESH_BEGIN)
721 { 594 {
722 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0)); 595 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
723 596
724 for (int i = AvFILL (av); i >= 0; i--) 597 for (int i = AvFILL (av); i >= 0; i--)
725 ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap (); 598 ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
726 } 599 }
727 else if (htype == HOOK_DESTROY) 600 else if (htype == HOOK_DESTROY)
728 { 601 {
729 clearSVptr ((SV *)term->perl.self); 602 clearSVptr ((SV *)term->perl.self);
730 SvREFCNT_dec ((SV *)term->perl.self); 603 SvREFCNT_dec ((SV *)term->perl.self);
731 604
732 // don't allow further calls 605 // don't allow further calls
733 term->perl.self = 0; 606 term->perl.self = 0;
734 } 607 }
735 608
736 swap (perl_environ, environ); 609 swap (perl_environ, environ);
… …
794 const_iv (AnyModifier), 667 const_iv (AnyModifier),
795 668
796 const_iv (NoSymbol), 669 const_iv (NoSymbol),
797 const_iv (GrabModeSync), 670 const_iv (GrabModeSync),
798 const_iv (GrabModeAsync), 671 const_iv (GrabModeAsync),
799
800 const_iv (EVENT_NONE),
801 const_iv (EVENT_READ),
802 const_iv (EVENT_WRITE),
803 672
804 const_iv (NoEventMask), 673 const_iv (NoEventMask),
805 const_iv (KeyPressMask), 674 const_iv (KeyPressMask),
806 const_iv (KeyReleaseMask), 675 const_iv (KeyReleaseMask),
807 const_iv (ButtonPressMask), 676 const_iv (ButtonPressMask),
… …
906_exit (int status) 775_exit (int status)
907 776
908NV 777NV
909NOW () 778NOW ()
910 CODE: 779 CODE:
911 RETVAL = NOW; 780 RETVAL = ev::now ();
912 OUTPUT: 781 OUTPUT:
913 RETVAL 782 RETVAL
914 783
915int 784int
916GET_BASEFG (int rend) 785GET_BASEFG (int rend)
… …
941 RETVAL 810 RETVAL
942 811
943int 812int
944GET_CUSTOM (int rend) 813GET_CUSTOM (int rend)
945 CODE: 814 CODE:
946 RETVAL = (rend && RS_customMask) >> RS_customShift; 815 RETVAL = (rend & RS_customMask) >> RS_customShift;
947 OUTPUT: 816 OUTPUT:
948 RETVAL 817 RETVAL
949 818
950int 819int
951SET_CUSTOM (int rend, int new_value) 820SET_CUSTOM (int rend, int new_value)
… …
1128 for (wchar_t *wc = wstr; *wc; wc++) 997 for (wchar_t *wc = wstr; *wc; wc++)
1129 { 998 {
1130 int w = WCWIDTH (*wc); 999 int w = WCWIDTH (*wc);
1131 1000
1132 if (w) 1001 if (w)
1133 RETVAL += min (w, 1); 1002 RETVAL += max (w, 1);
1134 } 1003 }
1135 rxvt_pop_locale (); 1004 rxvt_pop_locale ();
1136 1005
1137 free (wstr); 1006 free (wstr);
1138} 1007}
… …
1169 rxvt_pop_locale (); 1038 rxvt_pop_locale ();
1170 1039
1171 RETVAL = wcs2sv (wstr); 1040 RETVAL = wcs2sv (wstr);
1172 free (wstr); 1041 free (wstr);
1173} 1042}
1043 OUTPUT:
1044 RETVAL
1045
1046char *
1047rxvt_term::locale ()
1048 CODE:
1049 RETVAL = THIS->locale;
1174 OUTPUT: 1050 OUTPUT:
1175 RETVAL 1051 RETVAL
1176 1052
1177#define TERM_OFFSET(sym) offsetof (TermWin_t, sym) 1053#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
1178 1054
… …
1263 if (*i) 1139 if (*i)
1264 PUSHs (sv_2mortal (newSVpv (*i, 0))); 1140 PUSHs (sv_2mortal (newSVpv (*i, 0)));
1265} 1141}
1266 1142
1267int 1143int
1268rxvt_term::pty_ev_events (int events = EVENT_UNDEF) 1144rxvt_term::pty_ev_events (int events = ev::UNDEF)
1269 CODE: 1145 CODE:
1270 RETVAL = THIS->pty_ev.events; 1146 RETVAL = THIS->pty_ev.events;
1271 if (events != EVENT_UNDEF) 1147 if (events != ev::UNDEF)
1272 THIS->pty_ev.set (events); 1148 THIS->pty_ev.set (events);
1273 OUTPUT: 1149 OUTPUT:
1274 RETVAL 1150 RETVAL
1275 1151
1276int 1152int
… …
1519SV * 1395SV *
1520rxvt_term::special_decode (SV *text) 1396rxvt_term::special_decode (SV *text)
1521 CODE: 1397 CODE:
1522{ 1398{
1523 wchar_t *wstr = sv2wcs (text); 1399 wchar_t *wstr = sv2wcs (text);
1524 int wlen = wcslen (wstr);
1525 int dlen = 0; 1400 int dlen = 0;
1526 1401
1527 // find length 1402 // find length
1528 for (wchar_t *s = wstr; *s; s++) 1403 for (wchar_t *s = wstr; *s; s++)
1529 if (*s == NOCHAR) 1404 if (*s == NOCHAR)
… …
1592 1467
1593const char * 1468const char *
1594rxvt_term::x_resource (const char *name) 1469rxvt_term::x_resource (const char *name)
1595 1470
1596bool 1471bool
1597rxvt_term::option (U32 optval, int set = -1) 1472rxvt_term::option (U8 optval, int set = -1)
1598 CODE: 1473 CODE:
1599{ 1474{
1600 RETVAL = THIS->options & optval; 1475 RETVAL = THIS->option (optval);
1601 1476
1602 if (set >= 0) 1477 if (set >= 0)
1603 { 1478 {
1604 if (set)
1605 THIS->options |= optval; 1479 THIS->set_option (optval, set);
1606 else
1607 THIS->options &= ~optval;
1608 1480
1609 if (THIS->check_ev.is_active ()) // avoid doing this before START 1481 if (THIS->prepare_ev.is_active ()) // avoid doing this before START
1610 switch (optval) 1482 switch (optval)
1611 { 1483 {
1612 case Opt_skipBuiltinGlyphs: 1484 case Opt_skipBuiltinGlyphs:
1613 THIS->set_fonts (); 1485 THIS->set_fonts ();
1614 THIS->scr_remap_chars (); 1486 THIS->scr_remap_chars ();
… …
1800 Atom *props = XListProperties (THIS->dpy, window, &count); 1672 Atom *props = XListProperties (THIS->dpy, window, &count);
1801 1673
1802 EXTEND (SP, count); 1674 EXTEND (SP, count);
1803 while (count--) 1675 while (count--)
1804 PUSHs (newSVuv ((U32)props [count])); 1676 PUSHs (newSVuv ((U32)props [count]));
1805 1677
1806 XFree (props); 1678 XFree (props);
1807} 1679}
1808 1680
1809void 1681void
1810rxvt_term::XGetWindowProperty (Window window, Atom property) 1682rxvt_term::XGetWindowProperty (Window window, Atom property)
… …
1939overlay::hide () 1811overlay::hide ()
1940 1812
1941void 1813void
1942overlay::DESTROY () 1814overlay::DESTROY ()
1943 1815
1944############################################################################# 1816INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g |
1945# urxvt::watcher
1946#############################################################################
1947 1817
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