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.112 by root, Thu Jan 19 21:02:06 2006 UTC vs.
Revision 1.113 by root, Fri Jan 20 10:27:08 2006 UTC

… …
323place. 323place.
324 324
325=item on_start $term 325=item on_start $term
326 326
327Called at the very end of initialisation of a new terminal, just before 327Called at the very end of initialisation of a new terminal, just before
328returning to the mainloop. 328trying to map (display) the toplevel and returning to the mainloop.
329
330=item on_destroy $term
331
332Called whenever something tries to destroy terminal, before doing anything
333yet. If this hook returns true, then destruction is skipped, but this is
334rarely a good idea.
329 335
330=item on_reset $term 336=item on_reset $term
331 337
332Called after the screen is "reset" for any reason, such as resizing or 338Called after the screen is "reset" for any reason, such as resizing or
333control sequences. Here is where you can react on changes to size-related 339control sequences. Here is where you can react on changes to size-related
… …
499use Scalar::Util (); 505use Scalar::Util ();
500use List::Util (); 506use List::Util ();
501 507
502our $VERSION = 1; 508our $VERSION = 1;
503our $TERM; 509our $TERM;
510our @TERM_INIT;
511our @TERM_EXT;
504our @HOOKNAME; 512our @HOOKNAME;
505our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME; 513our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME;
506our %OPTION; 514our %OPTION;
507 515
508our $LIBDIR; 516our $LIBDIR;
… …
529 537
530=item $urxvt::TERM 538=item $urxvt::TERM
531 539
532The current terminal. This variable stores the current C<urxvt::term> 540The current terminal. This variable stores the current C<urxvt::term>
533object, whenever a callback/hook is executing. 541object, whenever a callback/hook is executing.
542
543=item @urxvt::TERM_INIT
544
545All coderefs in this array will be called as methods of the next newly
546created C<urxvt::term> object (during the C<on_init> phase). The array
547gets cleared before the codereferences that were in it are being executed,
548so coderefs can push themselves onto it again if they so desire.
549
550This complements to the perl-eval commandline option, but gets executed
551first.
552
553=item @urxvt::TERM_EXT
554
555Works similar to C<@TERM_INIT>, but contains perl package/class names, which
556get registered as normal extensions after calling the hooks in C<@TERM_INIT>
557but before other extensions. Gets cleared just like C<@TERM_INIT>.
534 558
535=back 559=back
536 560
537=head2 Functions in the C<urxvt> Package 561=head2 Functions in the C<urxvt> Package
538 562
… …
660 684
661# load a single script into its own package, once only 685# load a single script into its own package, once only
662sub extension_package($) { 686sub extension_package($) {
663 my ($path) = @_; 687 my ($path) = @_;
664 688
665 no strict 'refs';
666
667 $extension_pkg{$path} ||= do { 689 $extension_pkg{$path} ||= do {
668 $path =~ /([^\/\\]+)$/; 690 $path =~ /([^\/\\]+)$/;
669 my $pkg = $1; 691 my $pkg = $1;
670 $pkg =~ s/[^[:word:]]/_/g; 692 $pkg =~ s/[^[:word:]]/_/g;
671 $pkg = "urxvt::ext::$pkg"; 693 $pkg = "urxvt::ext::$pkg";
… …
673 verbose 3, "loading extension '$path' into package '$pkg'"; 695 verbose 3, "loading extension '$path' into package '$pkg'";
674 696
675 open my $fh, "<:raw", $path 697 open my $fh, "<:raw", $path
676 or die "$path: $!"; 698 or die "$path: $!";
677 699
678 @{"$pkg\::ISA"} = urxvt::term::extension::;
679
680 my $source = 700 my $source =
681 "package $pkg; use strict; use utf8;\n" 701 "package $pkg; use strict; use utf8;\n"
682 . "#line 1 \"$path\"\n{\n" 702 . "#line 1 \"$path\"\n{\n"
683 . (do { local $/; <$fh> }) 703 . (do { local $/; <$fh> })
684 . "\n};\n1"; 704 . "\n};\n1";
… …
700 if ($htype == 0) { # INIT 720 if ($htype == 0) { # INIT
701 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 721 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
702 722
703 my %ext_arg; 723 my %ext_arg;
704 724
725 {
726 my @init = @TERM_INIT;
727 @TERM_INIT = ();
728 $_->($TERM) for @init;
729 my @pkg = @TERM_EXT;
730 @TERM_EXT = ();
731 $TERM->register_package ($_) for @pkg;
732 }
733
705 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 734 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
706 if ($_ eq "default") { 735 if ($_ eq "default") {
707 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback); 736 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback);
708 } elsif (/^-(.*)$/) { 737 } elsif (/^-(.*)$/) {
709 delete $ext_arg{$1}; 738 delete $ext_arg{$1};
710 } elsif (/^([^<]+)<(.*)>$/) { 739 } elsif (/^([^<]+)<(.*)>$/) {
… …
735 if $verbosity >= 10; 764 if $verbosity >= 10;
736 765
737 keys %$cb; 766 keys %$cb;
738 767
739 while (my ($pkg, $cb) = each %$cb) { 768 while (my ($pkg, $cb) = each %$cb) {
740 $retval ||= eval { $cb->($TERM->{_pkg}{$pkg}, @_) }; 769 my $retval_ = eval { $cb->($TERM->{_pkg}{$pkg}, @_) };
770 $retval ||= $retval_;
741 771
742 if ($@) { 772 if ($@) {
743 $TERM->ungrab; # better to lose the grab than the session 773 $TERM->ungrab; # better to lose the grab than the session
744 warn $@; 774 warn $@;
745 } 775 }
… …
903 933
904# find on_xxx subs in the package and register them 934# find on_xxx subs in the package and register them
905# as hooks 935# as hooks
906sub register_package { 936sub register_package {
907 my ($self, $pkg, $argv) = @_; 937 my ($self, $pkg, $argv) = @_;
938
939 no strict 'refs';
940
941 urxvt::verbose 6, "register package $pkg to $self";
942
943 @{"$pkg\::ISA"} = urxvt::term::extension::;
908 944
909 my $proxy = bless { 945 my $proxy = bless {
910 _pkg => $pkg, 946 _pkg => $pkg,
911 argv => $argv, 947 argv => $argv,
912 }, $pkg; 948 }, $pkg;
… …
1639 $self->{term}->ungrab; 1675 $self->{term}->ungrab;
1640} 1676}
1641 1677
1642=back 1678=back
1643 1679
1680=cut
1681
1682package urxvt::watcher;
1683
1684@urxvt::timer::ISA = __PACKAGE__;
1685@urxvt::iow::ISA = __PACKAGE__;
1686@urxvt::pw::ISA = __PACKAGE__;
1687@urxvt::iw::ISA = __PACKAGE__;
1688
1644=head2 The C<urxvt::timer> Class 1689=head2 The C<urxvt::timer> Class
1645 1690
1646This class implements timer watchers/events. Time is represented as a 1691This class implements timer watchers/events. Time is represented as a
1647fractional number of seconds since the epoch. Example: 1692fractional number of seconds since the epoch. Example:
1648 1693

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines