ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/urxvt.pm
(Generate patch)

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.70 by root, Mon Jan 9 23:00:07 2006 UTC vs.
Revision 1.72 by root, Mon Jan 9 23:30:01 2006 UTC

262Called whenever text is about to be output, with the text as argument. You 262Called whenever text is about to be output, with the text as argument. You
263can filter/change and output the text yourself by returning a true value 263can filter/change and output the text yourself by returning a true value
264and calling C<< $term->scr_add_lines >> yourself. Please note that this 264and calling C<< $term->scr_add_lines >> yourself. Please note that this
265might be very slow, however, as your hook is called for B<all> text being 265might be very slow, however, as your hook is called for B<all> text being
266output. 266output.
267
268=item on_tt_write $term, $octets
269
270Called whenever some data is written to the tty/pty and can be used to
271suppress or filter tty input.
267 272
268=item on_line_update $term, $row 273=item on_line_update $term, $row
269 274
270Called whenever a line was updated or changed. Can be used to filter 275Called whenever a line was updated or changed. Can be used to filter
271screen output (e.g. underline urls or other useless stuff). Only lines 276screen output (e.g. underline urls or other useless stuff). Only lines
501 open my $fh, "<:raw", $path 506 open my $fh, "<:raw", $path
502 or die "$path: $!"; 507 or die "$path: $!";
503 508
504 my $source = untaint 509 my $source = untaint
505 "package $pkg; use strict; use utf8;\n" 510 "package $pkg; use strict; use utf8;\n"
506 . "use base urxvt::term::proxy::;\n" 511 . "use base urxvt::term::extension::;\n"
507 . "#line 1 \"$path\"\n{\n" 512 . "#line 1 \"$path\"\n{\n"
508 . (do { local $/; <$fh> }) 513 . (do { local $/; <$fh> })
509 . "\n};\n1"; 514 . "\n};\n1";
510 515
511 eval $source 516 eval $source
588 } 593 }
589 594
590 $retval 595 $retval
591} 596}
592 597
593# urxvt::term::proxy 598# urxvt::term::extension
594 599
595package urxvt::term::proxy; 600package urxvt::term::extension;
596 601
597sub enable { 602sub enable {
598 my ($self, %hook) = @_; 603 my ($self, %hook) = @_;
599 my $pkg = $self->{_pkg}; 604 my $pkg = $self->{_pkg};
600 605

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines