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.170 by root, Tue Jun 5 19:32:29 2012 UTC vs.
Revision 1.173 by root, Wed Jun 6 11:46:11 2012 UTC

… …
392 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0); 392 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0);
393 } 393 }
394} 394}
395 395
396void 396void
397rxvt_perl_interp::usage (int type) 397rxvt_perl_interp::usage (rxvt_term *term, int type)
398{ 398{
399 localise_env set_environ (perl_environ); 399 localise_env set_environ (perl_environ);
400 400
401 ENTER; 401 ENTER;
402 SAVETMPS; 402 SAVETMPS;
403 403
404 dSP; 404 dSP;
405 EXTEND (SP, 2);
406 PUSHs (sv_2mortal (newSVterm (term)));
405 XPUSHs (sv_2mortal (newSViv (type))); 407 PUSHs (sv_2mortal (newSViv (type)));
406 PUTBACK; 408 PUTBACK;
407 call_pv ("urxvt::usage", G_VOID | G_DISCARD | G_EVAL); 409 call_pv ("urxvt::usage", G_VOID | G_DISCARD);
408 410
409 FREETMPS; 411 FREETMPS;
410 LEAVE; 412 LEAVE;
411} 413}
412 414
413uint8_t 415uint8_t
414rxvt_perl_interp::resource (rxvt_term *term, const char *name, bool arg, bool longopt, bool flag, const char *value) 416rxvt_perl_interp::parse_resource (rxvt_term *term, const char *name, bool arg, bool longopt, bool flag, const char *value)
415{ 417{
416 localise_env set_environ (perl_environ); 418 localise_env set_environ (perl_environ);
417 419
418 ENTER; 420 ENTER;
419 SAVETMPS; 421 SAVETMPS;
… …
425 PUSHs (arg ? &PL_sv_yes : &PL_sv_no); 427 PUSHs (arg ? &PL_sv_yes : &PL_sv_no);
426 PUSHs (longopt ? &PL_sv_yes : &PL_sv_no); 428 PUSHs (longopt ? &PL_sv_yes : &PL_sv_no);
427 PUSHs (flag ? &PL_sv_yes : &PL_sv_no); 429 PUSHs (flag ? &PL_sv_yes : &PL_sv_no);
428 PUSHs (value ? sv_2mortal (newSVpv (value, 0)) : &PL_sv_undef); 430 PUSHs (value ? sv_2mortal (newSVpv (value, 0)) : &PL_sv_undef);
429 PUTBACK; 431 PUTBACK;
430 call_pv ("urxvt::resource", G_SCALAR | G_EVAL); 432 call_pv ("urxvt::parse_resource", G_SCALAR);
433 SPAGAIN;
431 434
432 uint8_t ret = POPi; 435 uint8_t ret = POPi;
433 436
434 FREETMPS; 437 FREETMPS;
435 LEAVE; 438 LEAVE;
… …
879 for (civ = const_iv + ecb_array_length (const_iv); civ > const_iv; civ--) 882 for (civ = const_iv + ecb_array_length (const_iv); civ > const_iv; civ--)
880 newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv)); 883 newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
881} 884}
882 885
883void 886void
887log (const char *msg)
888 CODE:
889 rxvt_log ("%s", msg);
890
891void
884warn (const char *msg) 892warn (const char *msg)
885 CODE: 893 CODE:
886 rxvt_warn ("%s", msg); 894 rxvt_warn ("%s", msg);
887 895
888void 896void
… …
1053 case HOOK_POSITION_CHANGE: 1061 case HOOK_POSITION_CHANGE:
1054 if (count) 1062 if (count)
1055 THIS->get_window_origin (THIS->parent_x, THIS->parent_y); 1063 THIS->get_window_origin (THIS->parent_x, THIS->parent_y);
1056 } 1064 }
1057 } 1065 }
1066
1067void
1068rxvt_term::put_option_db (octet_string specifier, octet_string value)
1069 CODE:
1070 XrmPutStringResource (&THIS->option_db, specifier, value);
1058 1071
1059int 1072int
1060rxvt_term::grab_button (int button, U32 modifiers, Window window = THIS->vt) 1073rxvt_term::grab_button (int button, U32 modifiers, Window window = THIS->vt)
1061 CODE: 1074 CODE:
1062 RETVAL = XGrabButton (THIS->dpy, button, modifiers, window, 1, 1075 RETVAL = XGrabButton (THIS->dpy, button, modifiers, window, 1,
… …
2039 OUTPUT: 2052 OUTPUT:
2040 RETVAL 2053 RETVAL
2041 2054
2042#if ENABLE_TRANSPARENCY 2055#if ENABLE_TRANSPARENCY
2043 2056
2044#if 0
2045
2046rxvt_img * 2057rxvt_img *
2047rxvt_term::new_img_from_root () 2058rxvt_term::new_img_from_root ()
2048 CODE: 2059 CODE:
2049 RETVAL = rxvt_img::new_from_root (THIS); 2060 RETVAL = rxvt_img::new_from_root (THIS);
2050 OUTPUT: 2061 OUTPUT:
2051 RETVAL 2062 RETVAL
2052
2053#endif
2054 2063
2055#endif 2064#endif
2056 2065
2057#if HAVE_PIXBUF 2066#if HAVE_PIXBUF
2058 2067
… …
2082 THIS->bg_flags &= ~rxvt_term::BG_NEEDS_REFRESH; 2091 THIS->bg_flags &= ~rxvt_term::BG_NEEDS_REFRESH;
2083 2092
2084 if (img) // TODO: cannot be false 2093 if (img) // TODO: cannot be false
2085 { 2094 {
2086 img->unshare (); 2095 img->unshare ();
2096 //TODO: convetr to visual, possibly precompose with colour
2087 THIS->bg_pixmap = img->steal (); 2097 THIS->bg_pixmap = img->steal ();
2088 THIS->bg_flags |= rxvt_term::BG_NEEDS_REFRESH; 2098 THIS->bg_flags |= rxvt_term::BG_NEEDS_REFRESH;
2089 THIS->bg_valid_since = ev::now (); // TODO: extra bloat 2099 THIS->bg_valid_since = ev::now (); // TODO: extra bloat
2090 } 2100 }
2091 2101

Diff Legend

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