| … | |
… | |
| 823 | |
823 | |
| 824 | eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval"); |
824 | eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval"); |
| 825 | warn $@ if $@; |
825 | warn $@ if $@; |
| 826 | } |
826 | } |
| 827 | |
827 | |
| 828 | $retval = undef; |
|
|
| 829 | |
|
|
| 830 | if ($htype == HOOK_OSC_SEQ) { |
828 | if ($htype == HOOK_OSC_SEQ) { |
| 831 | if (my $exts = delete $TERM->{meta}{autoload_osc}{$_[0]}) { |
829 | if (my $exts = delete $TERM->{meta}{autoload_osc}{$_[0]}) { |
| 832 | $TERM->autoload_extension ($_->[0]) for @$exts; |
830 | $TERM->autoload_extension ($_->[0]) for @$exts; |
| 833 | } |
831 | } |
| 834 | } elsif ($htype == HOOK_OSC_SEQ_PERL) { |
832 | } elsif ($htype == HOOK_OSC_SEQ_PERL) { |
| 835 | if ($_[0] =~ /^([^;]+)/ and (my $exts = delete $TERM->{meta}{autoload_osc_perl}{$1})) { |
833 | if ($_[0] =~ /^([^;]+)/ and (my $exts = delete $TERM->{meta}{autoload_osc_perl}{$1})) { |
| 836 | $TERM->autoload_extension ($_->[0]) for @$exts; |
834 | $TERM->autoload_extension ($_->[0]) for @$exts; |
| 837 | } |
835 | } |
| 838 | } |
836 | } |
|
|
837 | |
|
|
838 | $retval = undef; |
| 839 | |
839 | |
| 840 | if (my $cb = $TERM->{_hook}[$htype]) { |
840 | if (my $cb = $TERM->{_hook}[$htype]) { |
| 841 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" |
841 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" |
| 842 | if $verbosity >= 10; |
842 | if $verbosity >= 10; |
| 843 | |
843 | |
| … | |
… | |
| 1625 | Returns the number of screen-cells this string would need. Correctly |
1625 | Returns the number of screen-cells this string would need. Correctly |
| 1626 | accounts for wide and combining characters. |
1626 | accounts for wide and combining characters. |
| 1627 | |
1627 | |
| 1628 | =item $octets = $term->locale_encode ($string) |
1628 | =item $octets = $term->locale_encode ($string) |
| 1629 | |
1629 | |
| 1630 | Convert the given text string into the corresponding locale encoding. |
1630 | Convert the given text string into the corresponding locale |
|
|
1631 | encoding. Returns C<undef> if C<$string> is C<undef>. |
| 1631 | |
1632 | |
| 1632 | =item $string = $term->locale_decode ($octets) |
1633 | =item $string = $term->locale_decode ($octets) |
| 1633 | |
1634 | |
| 1634 | Convert the given locale-encoded octets into a perl string. |
1635 | Convert the given locale-encoded octets into a perl string. Returns |
|
|
1636 | C<undef> if C<$octets> is C<undef>. |
| 1635 | |
1637 | |
| 1636 | =item $term->scr_xor_span ($beg_row, $beg_col, $end_row, $end_col[, $rstyle]) |
1638 | =item $term->scr_xor_span ($beg_row, $beg_col, $end_row, $end_col[, $rstyle]) |
| 1637 | |
1639 | |
| 1638 | XORs the rendition values in the given span with the provided value |
1640 | XORs the rendition values in the given span with the provided value |
| 1639 | (default: C<RS_RVid>), which I<MUST NOT> contain font styles. Useful in |
1641 | (default: C<RS_RVid>), which I<MUST NOT> contain font styles. Useful in |
