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.53 by root, Sun Jan 8 01:16:09 2006 UTC vs.
Revision 1.57 by root, Sun Jan 8 08:43:11 2006 UTC

… …
37 37
38 @@RXVT_NAME@@ -pe <extensionname> 38 @@RXVT_NAME@@ -pe <extensionname>
39 39
40=over 4 40=over 4
41 41
42=item selection 42=item selection (enabled by default)
43 43
44Intelligent selection. This extension tries to be more intelligent when 44Intelligent selection. This extension tries to be more intelligent when
45the user extends selections (double-click). Right now, it tries to select 45the user extends selections (double-click). Right now, it tries to select
46urls and complete shell-quoted arguments, which is very convenient, too, 46urls and complete shell-quoted arguments, which is very convenient, too,
47if your F<ls> supports C<--quoting-style=shell>. 47if your F<ls> supports C<--quoting-style=shell>.
… …
55Rot-13 the selection when activated. Used via keyboard trigger: 55Rot-13 the selection when activated. Used via keyboard trigger:
56 56
57 URxvt.keysym.C-M-r: perl:selection:rot13 57 URxvt.keysym.C-M-r: perl:selection:rot13
58 58
59=back 59=back
60
61=item option-popup (enabled by default)
62
63Binds a popup menu to Ctrl-Button3 that lets you toggle (some) options at
64runtime.
60 65
61=item digital-clock 66=item digital-clock
62 67
63Displays a digital clock using the built-in overlay. 68Displays a digital clock using the built-in overlay.
64 69
… …
337 342
338=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask, 343=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
339Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask, 344Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
340Button4Mask, Button5Mask, AnyModifier 345Button4Mask, Button5Mask, AnyModifier
341 346
342Various constants for use in X events. 347Various constants for use in X calls and event processing.
343 348
344=back 349=back
345 350
346=head2 RENDITION 351=head2 RENDITION
347 352
… …
402use utf8; 407use utf8;
403use strict; 408use strict;
404use Scalar::Util (); 409use Scalar::Util ();
405use List::Util (); 410use List::Util ();
406 411
412our $VERSION = 1;
407our $TERM; 413our $TERM;
408our @HOOKNAME; 414our @HOOKNAME;
409our %OPTION; 415our %OPTION;
410our $LIBDIR; 416our $LIBDIR;
411 417
… …
464 my $source = "package $pkg; use strict; use utf8;\n" 470 my $source = "package $pkg; use strict; use utf8;\n"
465 . "use base urxvt::term::proxy::;\n" 471 . "use base urxvt::term::proxy::;\n"
466 . "#line 1 \"$path\"\n{\n" 472 . "#line 1 \"$path\"\n{\n"
467 . (do { local $/; <$fh> }) 473 . (do { local $/; <$fh> })
468 . "\n};\n1"; 474 . "\n};\n1";
475
476 $source =~ /(.*)/s and $source = $1; # untaint
469 477
470 eval $source or die "$path: $@"; 478 eval $source or die "$path: $@";
471 479
472 $pkg 480 $pkg
473 } 481 }
… …
502 register_package extension_package $files[0]; 510 register_package extension_package $files[0];
503 } else { 511 } else {
504 warn "perl extension '$ext' not found in perl library search path\n"; 512 warn "perl extension '$ext' not found in perl library search path\n";
505 } 513 }
506 } 514 }
515
516 eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval");
517 warn $@ if $@;
507 } 518 }
508 519
509 $retval = undef; 520 $retval = undef;
510 521
511 if (my $cb = $TERM->{_hook}[$htype]) { 522 if (my $cb = $TERM->{_hook}[$htype]) {
… …
546 } 557 }
547 558
548 $retval 559 $retval
549} 560}
550 561
562# urxvt::term::proxy
563
551sub urxvt::term::proxy::AUTOLOAD { 564sub urxvt::term::proxy::AUTOLOAD {
552 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/ 565 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
553 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable"; 566 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
554 567
555 eval qq{ 568 eval qq{
… …
561 } or die "FATAL: unable to compile method forwarder: $@"; 574 } or die "FATAL: unable to compile method forwarder: $@";
562 575
563 goto &$urxvt::term::proxy::AUTOLOAD; 576 goto &$urxvt::term::proxy::AUTOLOAD;
564} 577}
565 578
579# urxvt::destroy_hook
580
566sub urxvt::destroy_hook::DESTROY { 581sub urxvt::destroy_hook::DESTROY {
567 ${$_[0]}->(); 582 ${$_[0]}->();
568} 583}
569 584
570sub urxvt::destroy_hook(&) { 585sub urxvt::destroy_hook(&) {
571 bless \shift, urxvt::destroy_hook:: 586 bless \shift, urxvt::destroy_hook::
572} 587}
588
589package urxvt::anyevent;
590
591=head2 The C<urxvt::anyevent> Class
592
593The sole purpose of this class is to deliver an interface to the
594C<AnyEvent> module - any module using it will work inside urxvt without
595further work. The only exception is that you cannot wait on condition
596variables, but non-blocking condvar use is ok. What this means is that you
597cannot use blocking APIs, but the non-blocking variant should work.
598
599=cut
600
601our $VERSION = 1;
602
603$INC{"urxvt/anyevent.pm"} = 1; # mark us as there
604push @AnyEvent::REGISTRY, [urxvt => urxvt::anyevent::];
605
606sub timer {
607 my ($class, %arg) = @_;
608
609 my $cb = $arg{cb};
610
611 urxvt::timer
612 ->new
613 ->start (urxvt::NOW + $arg{after})
614 ->cb (sub {
615 $_[0]->stop; # need to cancel manually
616 $cb->();
617 })
618}
619
620sub io {
621 my ($class, %arg) = @_;
622
623 my $cb = $arg{cb};
624
625 bless [$arg{fh}, urxvt::iow
626 ->new
627 ->fd (fileno $arg{fh})
628 ->events (($arg{poll} =~ /r/ ? 1 : 0)
629 | ($arg{poll} =~ /w/ ? 2 : 0))
630 ->start
631 ->cb (sub {
632 $cb->(($_[1] & 1 ? 'r' : '')
633 . ($_[1] & 2 ? 'w' : ''));
634 })],
635 urxvt::anyevent::
636}
637
638sub DESTROY {
639 $_[0][1]->stop;
640}
641
642sub condvar {
643 bless \my $flag, urxvt::anyevent::condvar::
644}
645
646sub urxvt::anyevent::condvar::broadcast {
647 ${$_[0]}++;
648}
649
650sub urxvt::anyevent::condvar::wait {
651 unless (${$_[0]}) {
652 require Carp;
653 Carp::croak ("AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API");
654 }
655}
656
657package urxvt::term;
573 658
574=head2 The C<urxvt::term> Class 659=head2 The C<urxvt::term> Class
575 660
576=over 4 661=over 4
577 662
… …
629 shade term_name title transparent transparent_all tripleclickwords 714 shade term_name title transparent transparent_all tripleclickwords
630 utmpInhibit visualBell 715 utmpInhibit visualBell
631 716
632=cut 717=cut
633 718
634sub urxvt::term::resource($$;$) { 719sub resource($$;$) {
635 my ($self, $name) = (shift, shift); 720 my ($self, $name) = (shift, shift);
636 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 721 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
637 &urxvt::term::_resource 722 &urxvt::term::_resource
638} 723}
639 724
… …
726C<$event> I<must> be the event causing the menu to pop up (a button event, 811C<$event> I<must> be the event causing the menu to pop up (a button event,
727currently). 812currently).
728 813
729=cut 814=cut
730 815
731sub urxvt::term::popup { 816sub popup {
732 my ($self, $event) = @_; 817 my ($self, $event) = @_;
733 818
734 $self->grab ($event->{time}, 1) 819 $self->grab ($event->{time}, 1)
735 or return; 820 or return;
736 821
… …
926 1011
927=back 1012=back
928 1013
929=cut 1014=cut
930 1015
931sub urxvt::term::line { 1016sub line {
932 my ($self, $row) = @_; 1017 my ($self, $row) = @_;
933 1018
934 my $maxrow = $self->nrow - 1; 1019 my $maxrow = $self->nrow - 1;
935 1020
936 my ($beg, $end) = ($row, $row); 1021 my ($beg, $end) = ($row, $row);
… …
1014Converts rxvt-unicodes text reprsentation into a perl string. See 1099Converts rxvt-unicodes text reprsentation into a perl string. See
1015C<< $term->ROW_t >> for details. 1100C<< $term->ROW_t >> for details.
1016 1101
1017=back 1102=back
1018 1103
1104=cut
1105
1106package urxvt::popup;
1107
1019=head2 The C<urxvt::popup> Class 1108=head2 The C<urxvt::popup> Class
1020 1109
1021=over 4 1110=over 4
1022 1111
1023=cut 1112=cut
1024
1025package urxvt::popup;
1026 1113
1027sub add_item { 1114sub add_item {
1028 my ($self, $item) = @_; 1115 my ($self, $item) = @_;
1029 1116
1030 $item->{rend}{normal} = "\x1b[0;30;47m" unless exists $item->{rend}{normal}; 1117 $item->{rend}{normal} = "\x1b[0;30;47m" unless exists $item->{rend}{normal};

Diff Legend

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