| … | |
… | |
| 402 | perl_environ = rxvt_environ; |
402 | perl_environ = rxvt_environ; |
| 403 | swap (perl_environ, environ); |
403 | swap (perl_environ, environ); |
| 404 | |
404 | |
| 405 | char *argv[] = { |
405 | char *argv[] = { |
| 406 | "", |
406 | "", |
| 407 | "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", |
407 | "-e" |
|
|
408 | "BEGIN {" |
|
|
409 | " urxvt->bootstrap;" |
|
|
410 | " unshift @INC, '" LIBDIR "';" |
|
|
411 | "}" |
|
|
412 | "" |
|
|
413 | "use urxvt;" |
| 408 | }; |
414 | }; |
| 409 | |
415 | |
| 410 | perl = perl_alloc (); |
416 | perl = perl_alloc (); |
| 411 | perl_construct (perl); |
417 | perl_construct (perl); |
| 412 | |
418 | |
| … | |
… | |
| 1506 | PUSHs (sv_2mortal (newSViv (rc.col))); |
1512 | PUSHs (sv_2mortal (newSViv (rc.col))); |
| 1507 | } |
1513 | } |
| 1508 | |
1514 | |
| 1509 | if (items == 3) |
1515 | if (items == 3) |
| 1510 | { |
1516 | { |
|
|
1517 | rc.row = SvIV (ST (1)); |
|
|
1518 | rc.col = SvIV (ST (2)); |
|
|
1519 | |
|
|
1520 | if (ix == 2 && rc.col == 0) |
|
|
1521 | { |
|
|
1522 | rc.row--; |
|
|
1523 | rc.col = THIS->ncol; |
|
|
1524 | } |
|
|
1525 | |
|
|
1526 | clamp_it (rc.col, 0, THIS->ncol); |
| 1511 | rc.row = clamp (SvIV (ST (1)), THIS->top_row, THIS->nrow - 1); |
1527 | clamp_it (rc.row, THIS->top_row, THIS->nrow - 1); |
| 1512 | rc.col = clamp (SvIV (ST (2)), 0, THIS->ncol - 1); |
|
|
| 1513 | |
1528 | |
| 1514 | if (ix) |
1529 | if (ix) |
| 1515 | THIS->want_refresh = 1; |
1530 | THIS->want_refresh = 1; |
| 1516 | } |
1531 | } |
| 1517 | } |
1532 | } |
