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.148 by root, Sat Dec 17 23:17:33 2011 UTC vs.
Revision 1.192 by root, Tue Jun 12 10:45:53 2012 UTC

23#define line_t perl_line_t 23#define line_t perl_line_t
24#include <EXTERN.h> 24#include <EXTERN.h>
25#include <perl.h> 25#include <perl.h>
26#include <XSUB.h> 26#include <XSUB.h>
27#undef line_t 27#undef line_t
28#undef bool // perl defines it's own bool type, except with g++... what a trap
28 29
29#include "../config.h" 30#include "../config.h"
30 31
31#include <cstddef> 32#include <stddef.h>
32#include <cstdarg> 33#include <stdarg.h>
33 34
34#include "unistd.h" 35#include "unistd.h"
35 36
36#include "ev_cpp.h" 37#include "ev_cpp.h"
37#include "rxvt.h" 38#include "rxvt.h"
45 46
46#undef LINENO 47#undef LINENO
47#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows) 48#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)
48#undef ROW 49#undef ROW
49#define ROW(n) THIS->row_buf [LINENO (n)] 50#define ROW(n) THIS->row_buf [LINENO (n)]
51
52/////////////////////////////////////////////////////////////////////////////
53
54typedef char * octet_string;
55typedef char * utf8_string;
56
57typedef int render_repeat_mode;
58
59#if HAVE_PIXBUF
60typedef GdkPixbuf * urxvt__pixbuf;
61#endif
62typedef rxvt_img * urxvt__img;
63
64/////////////////////////////////////////////////////////////////////////////
65
66static void
67parse_color (rxvt_screen *s, rxvt_color &c, SV *sv)
68{
69 //TODO: support component stuff, 0..1
70 c.set (s, SvPVbyte_nolen (sv));
71}
50 72
51///////////////////////////////////////////////////////////////////////////// 73/////////////////////////////////////////////////////////////////////////////
52 74
53static wchar_t * 75static wchar_t *
54sv2wcs (SV *sv) 76sv2wcs (SV *sv)
321 PERL_SYS_TERM (); 343 PERL_SYS_TERM ();
322 } 344 }
323} 345}
324 346
325void 347void
326rxvt_perl_interp::init (rxvt_term *term) 348rxvt_perl_interp::init ()
327{ 349{
328 if (!perl) 350 if (!perl)
329 { 351 {
330 rxvt_push_locale (""); // perl init destroys current locale 352 rxvt_push_locale (""); // perl init destroys current locale
331 353
361 } 383 }
362 } 384 }
363 385
364 rxvt_pop_locale (); 386 rxvt_pop_locale ();
365 } 387 }
388}
366 389
367 if (perl) 390void
391rxvt_perl_interp::init (rxvt_term *term)
392{
393 init ();
394
395 if (perl && !term->perl.self)
368 { 396 {
369 // runs outside of perls ENV 397 // runs outside of perls ENV
370 term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); 398 term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");
371 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0); 399 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0);
372 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0); 400 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0);
373 } 401 }
374} 402}
375 403
404void
405rxvt_perl_interp::eval (const char *str)
406{
407 eval_pv (str, 1);
408}
409
410void
411rxvt_perl_interp::usage (rxvt_term *term, int type)
412{
413 localise_env set_environ (perl_environ);
414
415 ENTER;
416 SAVETMPS;
417
418 dSP;
419 PUSHMARK (SP);
420 EXTEND (SP, 2);
421 PUSHs (sv_2mortal (newSVterm (term)));
422 PUSHs (sv_2mortal (newSViv (type)));
423 PUTBACK;
424 call_pv ("urxvt::usage", G_VOID | G_DISCARD);
425
426 FREETMPS;
427 LEAVE;
428}
429
430uint8_t
431rxvt_perl_interp::parse_resource (rxvt_term *term, const char *name, bool arg, bool longopt, bool flag, const char *value)
432{
433 localise_env set_environ (perl_environ);
434
435 ENTER;
436 SAVETMPS;
437
438 dSP;
439 PUSHMARK (SP);
440 EXTEND (SP, 6);
441 PUSHs (sv_2mortal (newSVterm (term)));
442 PUSHs (sv_2mortal (newSVpv (name, 0)));
443 PUSHs (arg ? &PL_sv_yes : &PL_sv_no);
444 PUSHs (longopt ? &PL_sv_yes : &PL_sv_no);
445 PUSHs (flag ? &PL_sv_yes : &PL_sv_no);
446 PUSHs (value ? sv_2mortal (newSVpv (value, 0)) : &PL_sv_undef);
447 PUTBACK;
448 call_pv ("urxvt::parse_resource", G_SCALAR);
449 SPAGAIN;
450
451 uint8_t ret = POPi;
452
453 FREETMPS;
454 LEAVE;
455
456 return ret;
457}
458
376static void 459static void
377ungrab (rxvt_term *THIS) 460ungrab (rxvt_term *THIS)
378{ 461{
379 if (THIS->perl.grabtime) 462 if (THIS->perl.grabtime)
380 { 463 {
411 } 494 }
412 } 495 }
413 496
414 bool event_consumed; 497 bool event_consumed;
415 498
416 if (htype == HOOK_INIT || htype == HOOK_DESTROY // must be called always
417 || term->perl.should_invoke [htype]) 499 if (term->perl.should_invoke [htype])
418 { 500 {
419 dSP; 501 dSP;
420 va_list ap; 502 va_list ap;
421 503
422 va_start (ap, htype); 504 va_start (ap, htype);
632 ENTER; 714 ENTER;
633 SAVETMPS; 715 SAVETMPS;
634 716
635 dSP; 717 dSP;
636 XPUSHs (sv_2mortal (newSVpvn (data, len))); 718 XPUSHs (sv_2mortal (newSVpvn (data, len)));
719 PUTBACK;
637 call_sv ((SV *)sel->cb_sv, G_VOID | G_DISCARD | G_EVAL); 720 call_sv ((SV *)sel->cb_sv, G_VOID | G_DISCARD | G_EVAL);
638 721
639 if (SvTRUE (ERRSV)) 722 if (SvTRUE (ERRSV))
640 rxvt_warn ("perl selection callback evaluation error: %s", SvPVbyte_nolen (ERRSV)); 723 rxvt_warn ("perl selection callback evaluation error: %s", SvPVbyte_nolen (ERRSV));
641 724
782 const_iv (XIMSecondary), 865 const_iv (XIMSecondary),
783 const_iv (XIMTertiary), 866 const_iv (XIMTertiary),
784 const_iv (XIMVisibleToForward), 867 const_iv (XIMVisibleToForward),
785 const_iv (XIMVisibleToBackword), 868 const_iv (XIMVisibleToBackword),
786 const_iv (XIMVisibleToCenter), 869 const_iv (XIMVisibleToCenter),
870#if XRENDER
871 const_iv (PictStandardARGB32),
872 const_iv (PictStandardRGB24),
873 const_iv (PictStandardA8),
874 const_iv (PictStandardA4),
875 const_iv (PictStandardA1),
876 const_iv (RepeatNone),
877 const_iv (RepeatNormal),
878 const_iv (RepeatPad),
879 const_iv (RepeatReflect),
880#endif
787# if 0 881# if 0
788 const_iv (XIMForwardChar), 882 const_iv (XIMForwardChar),
789 const_iv (XIMBackwardChar), 883 const_iv (XIMBackwardChar),
790 const_iv (XIMForwardWord), 884 const_iv (XIMForwardWord),
791 const_iv (XIMBackwardWord), 885 const_iv (XIMBackwardWord),
804 for (civ = const_iv + ecb_array_length (const_iv); civ > const_iv; civ--) 898 for (civ = const_iv + ecb_array_length (const_iv); civ > const_iv; civ--)
805 newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv)); 899 newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
806} 900}
807 901
808void 902void
903log (const char *msg)
904 CODE:
905 rxvt_log ("%s", msg);
906
907void
809warn (const char *msg) 908warn (const char *msg)
810 CODE: 909 CODE:
811 rxvt_warn ("%s", msg); 910 rxvt_warn ("%s", msg);
812 911
813void 912void
815 CODE: 914 CODE:
816 rxvt_fatal ("%s", msg); 915 rxvt_fatal ("%s", msg);
817 916
818void 917void
819_exit (int status) 918_exit (int status)
919
920void
921catch_fatal (SV *block)
922 PROTOTYPE: &
923 CODE:
924 try
925 {
926 PUSHMARK (SP);
927 PUTBACK;
928 call_sv (block, G_VOID | G_DISCARD);
929 SPAGAIN;
930 }
931 catch (const rxvt_failure_exception &e)
932 {
933 croak ("rxvt_fatal exception caught, trying to continue.");
934 }
820 935
821NV 936NV
822NOW () 937NOW ()
823 CODE: 938 CODE:
824 RETVAL = ev::now (); 939 RETVAL = ev::now ();
949rxvt_term::destroy () 1064rxvt_term::destroy ()
950 1065
951void 1066void
952rxvt_term::set_should_invoke (int htype, int inc) 1067rxvt_term::set_should_invoke (int htype, int inc)
953 CODE: 1068 CODE:
954 THIS->perl.should_invoke [htype] += inc; 1069 uint8_t &count = THIS->perl.should_invoke [htype];
1070 uint8_t prev = count;
1071 count += inc;
1072 if (!prev != !count)
1073 {
1074 // hook status changed, react
1075 switch (htype)
1076 {
1077 case HOOK_POSITION_CHANGE:
1078 if (count)
1079 THIS->get_window_origin (THIS->parent_x, THIS->parent_y);
1080 }
1081 }
1082
1083void
1084rxvt_term::put_option_db (octet_string specifier, octet_string value)
1085 CODE:
1086 XrmPutStringResource (&THIS->option_db, specifier, value);
955 1087
956int 1088int
957rxvt_term::grab_button (int button, U32 modifiers, Window window = THIS->vt) 1089rxvt_term::grab_button (int button, U32 modifiers, Window window = THIS->vt)
958 CODE: 1090 CODE:
959 RETVAL = XGrabButton (THIS->dpy, button, modifiers, window, 1, 1091 RETVAL = XGrabButton (THIS->dpy, button, modifiers, window, 1,
1096 rxvt_pop_locale (); 1228 rxvt_pop_locale ();
1097 1229
1098 RETVAL = wcs2sv (wstr); 1230 RETVAL = wcs2sv (wstr);
1099 free (wstr); 1231 free (wstr);
1100} 1232}
1101 OUTPUT:
1102 RETVAL
1103
1104char *
1105rxvt_term::locale ()
1106 CODE:
1107 RETVAL = THIS->locale;
1108 OUTPUT: 1233 OUTPUT:
1109 RETVAL 1234 RETVAL
1110 1235
1111#define TERM_OFFSET(sym) offsetof (TermWin_t, sym) 1236#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
1112 1237
1223 CODE: 1348 CODE:
1224 RETVAL = THIS->parent; 1349 RETVAL = THIS->parent;
1225 OUTPUT: 1350 OUTPUT:
1226 RETVAL 1351 RETVAL
1227 1352
1228Window 1353int
1229rxvt_term::vt () 1354rxvt_term::parent_x ()
1230 CODE: 1355 CODE:
1231 RETVAL = THIS->vt; 1356 RETVAL = THIS->parent_x;
1357 OUTPUT:
1358 RETVAL
1359
1360int
1361rxvt_term::parent_y ()
1362 CODE:
1363 RETVAL = THIS->parent_y;
1232 OUTPUT: 1364 OUTPUT:
1233 RETVAL 1365 RETVAL
1234 1366
1235void 1367void
1236rxvt_term::vt_emask_add (U32 emask) 1368rxvt_term::vt_emask_add (U32 emask)
1550 1682
1551 if (set >= 0) 1683 if (set >= 0)
1552 { 1684 {
1553 THIS->set_option (optval, set); 1685 THIS->set_option (optval, set);
1554 1686
1555 if (THIS->env_colorfgbg [0]) // avoid doing this before START 1687 if (THIS->init_done) // avoid doing this before START
1556 switch (optval) 1688 switch (optval)
1557 { 1689 {
1558 case Opt_skipBuiltinGlyphs: 1690 case Opt_skipBuiltinGlyphs:
1559 THIS->set_fonts (); 1691 THIS->set_fonts ();
1560 THIS->scr_remap_chars (); 1692 THIS->scr_remap_chars ();
1561 THIS->scr_touch (true); 1693 THIS->scr_touch (true);
1562 THIS->want_refresh = 1; 1694 THIS->want_refresh = 1;
1563 THIS->refresh_check (); 1695 THIS->refresh_check ();
1564 break; 1696 break;
1697#ifdef CURSOR_BLINK
1698 case Opt_cursorBlink:
1699 THIS->cursor_blink_reset ();
1700 break;
1701#endif
1565 1702
1566 case Opt_cursorUnderline: 1703 case Opt_cursorUnderline:
1567 THIS->want_refresh = 1; 1704 THIS->want_refresh = 1;
1568 THIS->refresh_check (); 1705 THIS->refresh_check ();
1569 break; 1706 break;
1707 1844
1708void 1845void
1709rxvt_term::scr_bell () 1846rxvt_term::scr_bell ()
1710 1847
1711void 1848void
1849rxvt_term::scr_recolour (bool refresh = true);
1850
1851void
1712rxvt_term::scr_change_screen (int screen) 1852rxvt_term::scr_change_screen (int screen)
1713 1853
1714void 1854void
1715rxvt_term::scr_add_lines (SV *string) 1855rxvt_term::scr_add_lines (SV *string)
1716 CODE: 1856 CODE:
1829 type, format, PropModeReplace, 1969 type, format, PropModeReplace,
1830 (unsigned char *)data_, len / elemsize); 1970 (unsigned char *)data_, len / elemsize);
1831} 1971}
1832 1972
1833Atom 1973Atom
1834XInternAtom (rxvt_term *term, char *atom_name, int only_if_exists = FALSE) 1974XInternAtom (rxvt_term *term, octet_string atom_name, int only_if_exists = FALSE)
1835 C_ARGS: term->dpy, atom_name, only_if_exists 1975 C_ARGS: term->dpy, atom_name, only_if_exists
1836 1976
1837char * 1977char *
1838XGetAtomName (rxvt_term *term, Atom atom) 1978XGetAtomName (rxvt_term *term, Atom atom)
1839 C_ARGS: term->dpy, atom 1979 C_ARGS: term->dpy, atom
1840 CLEANUP: 1980 CLEANUP:
1841 XFree (RETVAL); 1981 XFree (RETVAL);
1842 1982
1843void 1983void
1844XDeleteProperty (rxvt_term *term, Window window, Atom property) 1984XDeleteProperty (rxvt_term *term, Window window, Atom property)
1845 C_ARGS: term->dpy, window, property 1985 C_ARGS: term->dpy, window, property
1846 1986
1847Window 1987Window
1848rxvt_term::DefaultRootWindow () 1988rxvt_term::DefaultRootWindow ()
1849 CODE: 1989 CODE:
1850 RETVAL = THIS->display->root; 1990 RETVAL = THIS->display->root;
1902 PUSHs (newSVuv (child)); 2042 PUSHs (newSVuv (child));
1903 } 2043 }
1904} 2044}
1905 2045
1906############################################################################# 2046#############################################################################
2047# fancy bg bloatstuff (TODO: should be moved up somewhere)
2048
2049bool
2050rxvt_term::has_render ()
2051 CODE:
2052 RETVAL = THIS->display->flags & DISPLAY_HAS_RENDER;
2053 OUTPUT:
2054 RETVAL
2055
2056void
2057rxvt_term::background_geometry (bool border = false)
2058 PPCODE:
2059 EXTEND (SP, 4);
2060 PUSHs (sv_2mortal (newSViv (THIS->parent_x + (border ? THIS->window_vt_x : 0))));
2061 PUSHs (sv_2mortal (newSViv (THIS->parent_y + (border ? THIS->window_vt_y : 0))));
2062 PUSHs (sv_2mortal (newSViv (border ? THIS->vt_width : THIS->szHint.width )));
2063 PUSHs (sv_2mortal (newSViv (border ? THIS->vt_height : THIS->szHint.height)));
2064
2065#if HAVE_IMG
2066
2067rxvt_img *
2068rxvt_term::new_img (SV *format, int width = 1, int height = 1)
2069 CODE:
2070 XRenderPictFormat *f = SvOK (format)
2071 ? XRenderFindStandardFormat (THIS->dpy, SvIV (format))
2072 : XRenderFindVisualFormat (THIS->dpy, THIS->visual);
2073 RETVAL = new rxvt_img (THIS, f, 0, 0, width, height);
2074 RETVAL->alloc ();
2075 OUTPUT:
2076 RETVAL
2077
2078#if ENABLE_TRANSPARENCY
2079
2080rxvt_img *
2081rxvt_term::new_img_from_root ()
2082 CODE:
2083 RETVAL = rxvt_img::new_from_root (THIS);
2084 OUTPUT:
2085 RETVAL
2086
2087#endif
2088
2089#if HAVE_PIXBUF
2090
2091rxvt_img *
2092rxvt_term::new_img_from_file (octet_string filename)
2093 CODE:
2094 try
2095 {
2096 RETVAL = rxvt_img::new_from_file (THIS, filename);
2097 }
2098 catch (const class rxvt_failure_exception &e)
2099 {
2100 croak ("new_img_from_file failed");
2101 }
2102 OUTPUT:
2103 RETVAL
2104
2105#endif
2106
2107#if HAVE_BG_PIXMAP
2108
2109void
2110rxvt_term::set_background (rxvt_img *img, bool border = false)
2111 CODE:
2112 THIS->bg_destroy ();
2113 THIS->bg_flags &= ~(rxvt_term::BG_NEEDS_REFRESH | rxvt_term::BG_INHIBIT_RENDER | rxvt_term::BG_IS_TRANSPARENT);
2114
2115 if (img) // TODO: cannot be false
2116 {
2117 img = img->clone (); // own the img
2118
2119 if (img->repeat != RepeatNormal) // X11 only supports RepeatNormal as bg pixmap
2120 img->sub_rect (0, 0,
2121 border ? THIS->vt_width : THIS->szHint.width,
2122 border ? THIS->vt_height : THIS->szHint.height)
2123 ->replace (img);
2124
2125 // just in case, should usually be a nop
2126 img->reify ()
2127 ->replace (img);
2128
2129 img->convert_format (XRenderFindVisualFormat (THIS->dpy, THIS->visual), THIS->pix_colors [Color_bg])
2130 ->replace (img);
2131
2132 THIS->bg_img = img;
2133 THIS->bg_flags |= rxvt_term::BG_NEEDS_REFRESH | rxvt_term::BG_INHIBIT_RENDER;
2134
2135 if (!border)
2136 THIS->bg_flags |= rxvt_term::BG_IS_TRANSPARENT;
2137 }
2138
2139#endif
2140
2141#endif
2142
2143#############################################################################
1907# urxvt::overlay 2144# urxvt::overlay
1908############################################################################# 2145#############################################################################
1909 2146
1910MODULE = urxvt PACKAGE = urxvt::overlay 2147MODULE = urxvt PACKAGE = urxvt::overlay
1911 2148
1921void 2158void
1922overlay::DESTROY () 2159overlay::DESTROY ()
1923 2160
1924INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g | 2161INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g |
1925 2162
2163MODULE = urxvt PACKAGE = urxvt::pixbuf PREFIX = gdk_pixbuf_
2164
2165#if HAVE_PIXBUF
2166
2167urxvt::pixbuf gdk_pixbuf_new_from_file (SV *klass, octet_string filename)
2168 C_ARGS: filename, 0
2169
2170void
2171DESTROY (urxvt::pixbuf self)
2172 CODE:
2173 gdk_pixbuf_unref (self);
2174
2175#endif
2176
2177MODULE = urxvt PACKAGE = urxvt::img
2178
2179#if HAVE_IMG
2180
2181# rxvt_img *new (rxvt_screen *screen, XRenderPictFormat *format, int width, int height)
2182# rxvt_img *rxvt_img (rxvt_screen *screen, XRenderPictFormat *format, int width, int height, Pixmap pixmap);
2183
2184int
2185rxvt_img::w ()
2186 CODE:
2187 RETVAL = THIS->w;
2188 OUTPUT:
2189 RETVAL
2190
2191int
2192rxvt_img::h ()
2193 CODE:
2194 RETVAL = THIS->h;
2195 OUTPUT:
2196 RETVAL
2197
2198Pixmap
2199rxvt_img::pm ()
2200 CODE:
2201 RETVAL = THIS->pm;
2202 OUTPUT:
2203 RETVAL
2204
2205void
2206rxvt_img::fill (SV *c)
2207 INIT:
2208 rxvt_color rc;
2209 parse_color (THIS->s, rc, c);
2210 C_ARGS: rc
2211
2212void
2213rxvt_img::DESTROY ()
2214 CODE:
2215 delete THIS;
2216
2217void
2218rxvt_img::unshare ()
2219
2220int
2221rxvt_img::repeat_mode (render_repeat_mode repeat = 0)
2222 CODE:
2223 if (items >= 2)
2224 THIS->repeat_mode (repeat);
2225 if (GIMME_V != G_VOID)
2226 XPUSHs (sv_2mortal (newSViv (THIS->repeat)));
2227
2228void
2229rxvt_img::move (int dx, int dy)
2230
2231void
2232rxvt_img::brightness (NV r, NV g, NV b, NV a = 1.)
2233
2234void
2235rxvt_img::contrast (NV r, NV g, NV b, NV a = 1.)
2236
2237rxvt_img *
2238rxvt_img::clone ()
2239
2240rxvt_img *
2241rxvt_img::reify ()
2242
2243rxvt_img *
2244rxvt_img::sub_rect (int x, int y, int width, int height)
2245
2246rxvt_img *
2247rxvt_img::blur (int rh, int rv)
2248
2249rxvt_img *
2250rxvt_img::transform (NV p11, NV p12, NV p13, NV p21, NV p22, NV p23, NV p31, NV p32, NV p33, int new_width = 0, int new_height = 0)
2251 INIT:
2252 double matrix[9] = {
2253 p11, p12, p13,
2254 p21, p22, p23,
2255 p31, p32, p33
2256 };
2257 C_ARGS: matrix, new_width, new_height
2258
2259rxvt_img *
2260rxvt_img::scale (int new_width, int new_height)
2261
2262rxvt_img *
2263rxvt_img::rotate (int x, int y, NV phi, int new_width = 0, int new_height = 0)
2264
2265#endif
2266

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines