… | |
… | |
29 | #include "../config.h" |
29 | #include "../config.h" |
30 | |
30 | |
31 | #include <cstddef> |
31 | #include <cstddef> |
32 | #include <cstdarg> |
32 | #include <cstdarg> |
33 | |
33 | |
|
|
34 | #include "unistd.h" |
|
|
35 | |
34 | #include "iom.h" |
36 | #include "iom.h" |
35 | #include "rxvt.h" |
37 | #include "rxvt.h" |
36 | #include "keyboard.h" |
38 | #include "keyboard.h" |
37 | #include "rxvtutil.h" |
39 | #include "rxvtutil.h" |
38 | #include "rxvtperl.h" |
40 | #include "rxvtperl.h" |
… | |
… | |
392 | ///////////////////////////////////////////////////////////////////////////// |
394 | ///////////////////////////////////////////////////////////////////////////// |
393 | |
395 | |
394 | struct rxvt_perl_interp rxvt_perl; |
396 | struct rxvt_perl_interp rxvt_perl; |
395 | |
397 | |
396 | static PerlInterpreter *perl; |
398 | static PerlInterpreter *perl; |
397 | |
|
|
398 | rxvt_perl_interp::rxvt_perl_interp () |
|
|
399 | { |
|
|
400 | } |
|
|
401 | |
399 | |
402 | rxvt_perl_interp::~rxvt_perl_interp () |
400 | rxvt_perl_interp::~rxvt_perl_interp () |
403 | { |
401 | { |
404 | if (perl) |
402 | if (perl) |
405 | { |
403 | { |
… | |
… | |
714 | RETVAL = newSVsv (sv); |
712 | RETVAL = newSVsv (sv); |
715 | SvTAINTED_off (RETVAL); |
713 | SvTAINTED_off (RETVAL); |
716 | OUTPUT: |
714 | OUTPUT: |
717 | RETVAL |
715 | RETVAL |
718 | |
716 | |
|
|
717 | void |
|
|
718 | _exit (int status) |
|
|
719 | |
719 | bool |
720 | bool |
720 | safe () |
721 | safe () |
721 | CODE: |
722 | CODE: |
722 | RETVAL = !rxvt_tainted (); |
723 | RETVAL = !rxvt_tainted (); |
723 | OUTPUT: |
724 | OUTPUT: |
… | |
… | |
1380 | CODE: |
1381 | CODE: |
1381 | RETVAL = THIS->charsets [THIS->screen.charset]; |
1382 | RETVAL = THIS->charsets [THIS->screen.charset]; |
1382 | OUTPUT: |
1383 | OUTPUT: |
1383 | RETVAL |
1384 | RETVAL |
1384 | |
1385 | |
|
|
1386 | #void |
|
|
1387 | #rxvt_term::selection_clear () |
|
|
1388 | |
|
|
1389 | void |
|
|
1390 | rxvt_term::selection_make (U32 eventtime, bool rect = false) |
|
|
1391 | CODE: |
|
|
1392 | THIS->selection.op = SELECTION_CONT; |
|
|
1393 | THIS->selection.rect = rect; |
|
|
1394 | THIS->selection_make (eventtime); |
|
|
1395 | |
1385 | int |
1396 | int |
1386 | rxvt_term::selection_grab (U32 eventtime) |
1397 | rxvt_term::selection_grab (U32 eventtime) |
1387 | |
1398 | |
1388 | void |
1399 | void |
1389 | rxvt_term::selection (SV *newtext = 0) |
1400 | rxvt_term::selection (SV *newtext = 0) |