… | |
… | |
501 | open my $fh, "<:raw", $path |
501 | open my $fh, "<:raw", $path |
502 | or die "$path: $!"; |
502 | or die "$path: $!"; |
503 | |
503 | |
504 | my $source = untaint |
504 | my $source = untaint |
505 | "package $pkg; use strict; use utf8;\n" |
505 | "package $pkg; use strict; use utf8;\n" |
506 | . "use base urxvt::term::proxy::;\n" |
506 | . "use base urxvt::term::extension::;\n" |
507 | . "#line 1 \"$path\"\n{\n" |
507 | . "#line 1 \"$path\"\n{\n" |
508 | . (do { local $/; <$fh> }) |
508 | . (do { local $/; <$fh> }) |
509 | . "\n};\n1"; |
509 | . "\n};\n1"; |
510 | |
510 | |
511 | eval $source |
511 | eval $source |
… | |
… | |
588 | } |
588 | } |
589 | |
589 | |
590 | $retval |
590 | $retval |
591 | } |
591 | } |
592 | |
592 | |
593 | # urxvt::term::proxy |
593 | # urxvt::term::extension |
594 | |
594 | |
595 | package urxvt::term::proxy; |
595 | package urxvt::term::extension; |
596 | |
596 | |
597 | sub enable { |
597 | sub enable { |
598 | my ($self, %hook) = @_; |
598 | my ($self, %hook) = @_; |
599 | my $pkg = $self->{_pkg}; |
599 | my $pkg = $self->{_pkg}; |
600 | |
600 | |
… | |
… | |
941 | |
941 | |
942 | =item $string = $term->locale_decode ($octets) |
942 | =item $string = $term->locale_decode ($octets) |
943 | |
943 | |
944 | Convert the given locale-encoded octets into a perl string. |
944 | Convert the given locale-encoded octets into a perl string. |
945 | |
945 | |
|
|
946 | =item $term->scr_xor_span ($beg_row, $beg_col, $end_row, $end_col[, $rstyle]) |
|
|
947 | |
|
|
948 | XORs the rendition values in the given span with the provided value |
|
|
949 | (default: C<RS_RVid>). Useful in refresh hooks to provide effects similar |
|
|
950 | to the selection. |
|
|
951 | |
|
|
952 | =item $term->scr_xor_rect ($beg_row, $beg_col, $end_row, $end_col[, $rstyle1[, $rstyle2]]) |
|
|
953 | |
|
|
954 | Similar to C<scr_xor_span>, but xors a rectangle instead. Trailing |
|
|
955 | whitespace will additionally be xored with the C<$rstyle2>, which defaults |
|
|
956 | to C<RS_RVid | RS_Uline>, which removes reverse video again and underlines |
|
|
957 | it instead. |
|
|
958 | |
946 | =item $term->scr_bell |
959 | =item $term->scr_bell |
947 | |
960 | |
948 | Ring the bell! |
961 | Ring the bell! |
949 | |
962 | |
950 | =item $term->scr_add_lines ($string) |
963 | =item $term->scr_add_lines ($string) |