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

Diff Legend

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