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.171 by root, Tue Jun 5 22:23:07 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 | G_EVAL);
408 410
409 FREETMPS; 411 FREETMPS;
410 LEAVE; 412 LEAVE;
… …
879 for (civ = const_iv + ecb_array_length (const_iv); civ > const_iv; civ--) 881 for (civ = const_iv + ecb_array_length (const_iv); civ > const_iv; civ--)
880 newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv)); 882 newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
881} 883}
882 884
883void 885void
886log (const char *msg)
887 CODE:
888 rxvt_log ("%s", msg);
889
890void
884warn (const char *msg) 891warn (const char *msg)
885 CODE: 892 CODE:
886 rxvt_warn ("%s", msg); 893 rxvt_warn ("%s", msg);
887 894
888void 895void

Diff Legend

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