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.241 by root, Thu Jul 13 10:31:27 2017 UTC vs.
Revision 1.244 by root, Tue Jun 25 03:35:01 2019 UTC

… …
391 391
392 { 392 {
393 perl_environ = rxvt_environ; 393 perl_environ = rxvt_environ;
394 localise_env set_environ (perl_environ); 394 localise_env set_environ (perl_environ);
395 395
396 char *args[] = { 396 const char *args[] = {
397 "", 397 "",
398 "-e" 398 "-e"
399 "BEGIN {" 399 "BEGIN {"
400 " urxvt->bootstrap;" 400 " urxvt->bootstrap;"
401 " unshift @INC, '" LIBDIR "';" 401 " unshift @INC, '" LIBDIR "';"
402 "}" 402 "}"
403 "" 403 ""
404 "use urxvt;" 404 "use urxvt;",
405 0
405 }; 406 };
406 int argc = ecb_array_length (args); 407 int argc = ecb_array_length (args) - 1;
407 char **argv = args; 408 char **argv = (char **)args;
408 409
409 PERL_SYS_INIT3 (&argc, &argv, &environ); 410 PERL_SYS_INIT3 (&argc, &argv, &environ);
410 perl = perl_alloc (); 411 perl = perl_alloc ();
411 perl_construct (perl); 412 perl_construct (perl);
412 413
… …
1831 index += rs->value; 1832 index += rs->value;
1832 } 1833 }
1833 else 1834 else
1834 { 1835 {
1835 --rs; 1836 --rs;
1836 name = ""; 1837 name = (octet_string)"";
1837 } 1838 }
1838 1839
1839 if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES)) 1840 if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES))
1840 croak ("requested out-of-bound resource %s+%d,", name, index - rs->value); 1841 croak ("requested out-of-bound resource %s+%d,", name, index - rs->value);
1841 1842
… …
2422 2423
2423void 2424void
2424rxvt_img::fill (SV *c, int x = 0, int y = 0, int w = THIS->w, int h = THIS->h) 2425rxvt_img::fill (SV *c, int x = 0, int y = 0, int w = THIS->w, int h = THIS->h)
2425 PROTOTYPE: $;$$$$ 2426 PROTOTYPE: $;$$$$
2426 INIT: 2427 INIT:
2427 rgba cc = parse_rgba (c, THIS->s); 2428 rxvt_screen screen;
2429 screen.set (THIS->d);
2430 rgba cc = parse_rgba (c, &screen);
2428 C_ARGS: cc, x, y, w, h 2431 C_ARGS: cc, x, y, w, h
2429 2432
2430void 2433void
2431rxvt_img::DESTROY () 2434rxvt_img::DESTROY ()
2432 CODE: 2435 CODE:
… …
2490rxvt_img::rotate (int x, int y, rxvt_img::nv phi) 2493rxvt_img::rotate (int x, int y, rxvt_img::nv phi)
2491 2494
2492rxvt_img * 2495rxvt_img *
2493rxvt_img::tint (SV *c) 2496rxvt_img::tint (SV *c)
2494 INIT: 2497 INIT:
2495 rgba cc = parse_rgba (c, THIS->s); 2498 rxvt_screen screen;
2499 screen.set (THIS->d);
2500 rgba cc = parse_rgba (c, &screen);
2496 C_ARGS: cc 2501 C_ARGS: cc
2497 2502
2498rxvt_img * 2503rxvt_img *
2499rxvt_img::shade (rxvt_img::nv factor) 2504rxvt_img::shade (rxvt_img::nv factor)
2500 2505

Diff Legend

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