[ViewVC] Diff of: cvs/rxvt-unicode/src/urxvt.pm

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.222 by root, Sat Jul 7 07:00:17 2012 UTC vs.
Revision 1.230 by root, Sat Apr 26 20:51:12 2014 UTC

 =encoding utf8
 =head1 NAME
-@@RXVT_NAME@@perl - rxvt-unicode's embedded perl interpreter
+urxvtperl - rxvt-unicode's embedded perl interpreter
 =head1 SYNOPSIS
    # create a file grab_test in $HOME:
    sub on_sel_grab {
       warn "you selected ", $_[0]->selection;
       ()
    }
-   # start a @@RXVT_NAME@@ using it:
+   # start a urxvt using it:
-   @@RXVT_NAME@@ --perl-lib $HOME -pe grab_test
+   urxvt --perl-lib $HOME -pe grab_test
 =head1 DESCRIPTION
 Every time a terminal object gets created, extension scripts specified via
 the C<perl> resource are loaded and associated with it.
 Scripts are compiled in a 'use strict "vars"' and 'use utf8' environment, and
 thus must be encoded as UTF-8.
-Each script will only ever be loaded once, even in @@RXVT_NAME@@d, where
+Each script will only ever be loaded once, even in urxvtd, where
 scripts will be shared (but not enabled) for all terminals.
 You can disable the embedded perl interpreter by setting both "perl-ext"
 and "perl-ext-common" resources to the empty string.
 =head1 PREPACKAGED EXTENSIONS
 A number of extensions are delivered with this release. You can find them
-in F<@@RXVT_LIBDIR@@/urxvt/perl/>, and the documentation can be viewed
+in F<< <libdir>/urxvt/perl/ >>, and the documentation can be viewed using
-using F<< man urxvt-<EXTENSIONNAME> >>.
+F<< man urxvt-<EXTENSIONNAME> >>.
 You can activate them like this:
-  @@RXVT_NAME@@ -pe <extensionname>
+  urxvt -pe <extensionname>
 Or by adding them to the resource for extensions loaded by default:
   URxvt.perl-ext-common: default,selection-autotransform
 =item on_refresh_end $term
 Called just after the screen gets redrawn. See C<on_refresh_begin>.
-=item on_user_command $term, $string
+=item on_user_command $term, $string *DEPRECATED*
 Called whenever a user-configured event is being activated (e.g. via
 a C<perl:string> action bound to a key, see description of the B<keysym>
-resource in the @@RXVT_NAME@@(1) manpage).
+resource in the urxvt(1) manpage).
-The event is simply the action string. This interface is assumed to change
+The event is simply the action string. This interface is going away in
-slightly in the future.
+preference to the C<< ->register_keysym_action >> method.
 =item on_register_command $term, $keysym, $modifiermask, $string
 Called after parsing a keysym resource but before registering the
-associated binding. If this hook returns TRUE the binding is not
+associated binding. If this hook returns a true value the binding
-registered. It can be used to modify a binding by calling
+is not registered. It can be used to modify a binding by calling
 C<register_command>.
 =item on_resize_all_windows $term, $new_width, $new_height
 Called just after the new window size has been calculated, but before
 windows are actually being resized or hints are being set. If this hook
-returns TRUE, setting of the window hints is being skipped.
+returns a true value, setting of the window hints is being skipped.
 =item on_x_event $term, $event
 Called on every X event received on the vt window (and possibly other
 windows). Should only be used as a last resort. Most event structure
    $name =~ y/-/./ if $isarg;
    $term->scan_meta;
    my $r = $term->{meta}{resource};
-   keys %$r; # reste iterator
+   keys %$r; # reset iterator
    while (my ($pattern, $v) = each %$r) {
       if (
          $pattern =~ /\.$/
          ? $pattern eq substr $name, 0, length $pattern
          : $pattern eq $name
 # called by the rxvt core
 sub invoke {
    local $TERM = shift;
    my $htype = shift;
-   if ($htype == 0) { # INIT
+   if ($htype == HOOK_INIT) {
       my @dirs = $TERM->perl_libdirs;
       my %ext_arg;
       {
    if (my $cb = $TERM->{_hook}[$htype]) {
       verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")"
          if $verbosity >= 10;
-      for my $pkg (keys %$cb) {
+      for my $pkg (
+         # this hook is only sent to the extension with the name
+         # matching the first arg
+         $htype == HOOK_KEYBOARD_DISPATCH
+         ? exists $cb->{"urxvt::ext::$_[0]"} ? "urxvt::ext::" . shift : return undef
+         : keys %$cb
+      ) {
          my $retval_ = eval { $cb->{$pkg}->($TERM->{_pkg}{$pkg} || $TERM, @_) };
          $retval ||= $retval_;
          if ($@) {
             $TERM->ungrab; # better to lose the grab than the session
       verbose 11, "$HOOKNAME[$htype] returning <$retval>"
          if $verbosity >= 11;
    }
-   if ($htype == 1) { # DESTROY
+   if ($htype == HOOK_DESTROY) {
       # clear package objects
       %$_ = () for values %{ $TERM->{_pkg} };
       # clear package
       %$TERM = ();
 }
 =item $self->enable ($hook_name => $cb[, $hook_name => $cb..])
 Dynamically enable the given hooks (named without the C<on_> prefix) for
-this extension, replacing any previous hook. This is useful when you want
+this extension, replacing any hook previously installed via C<enable> in
-to overwrite time-critical hooks only temporarily.
+this extension.
+This is useful when you want to overwrite time-critical hooks only
+temporarily.
 To install additional callbacks for the same hook, you can use the C<on>
 method of the C<urxvt::term> class.
 =item $self->disable ($hook_name[, $hook_name..])
 =cut
 sub urxvt::extension::on_disable::DESTROY {
    my $disable = shift;
-   my $self = delete $disable->{""};
+   my $term = delete $disable->{""};
    while (my ($htype, $id) = each %$disable) {
-      delete $self->{_hook}[$htype]{$id};
+      delete $term->{_hook}[$htype]{$id};
-      $self->set_should_invoke ($htype, -1);
+      $term->set_should_invoke ($htype, -1);
    }
 }
 sub on {
    my ($self, %hook) = @_;
+   my $term = $self->{term};
-   my %disable = ( "" => $self );
+   my %disable = ( "" => $term );
    while (my ($name, $cb) = each %hook) {
       my $htype = $HOOKTYPE{uc $name};
       defined $htype
          or Carp::croak "unsupported hook type '$name'";
-      my $id = $cb+0;
-      $self->set_should_invoke ($htype, +1);
+      $term->set_should_invoke ($htype, +1);
-      $disable{$htype} = $id;
+      $term->{_hook}[$htype]{ $disable{$htype} = $cb+0 }
-      $self->{_hook}[$htype]{$id} = sub { shift; $cb->($self, @_) }; # very ugly indeed
+         = sub { shift; $cb->($self, @_) }; # very ugly indeed
    }
    bless \%disable, "urxvt::extension::on_disable"
 }
    for my $dir (reverse @libdirs) {
       opendir my $fh, $dir
          or next;
       for my $ext (readdir $fh) {
-         $ext ne "."
+         $ext !~ /^\./
-            and $ext ne ".."
             and open my $fh, "<", "$dir/$ext"
             or next;
          while (<$fh>) {
             if (/^#:META:X_RESOURCE:(.*)/) {
 }
 =item $term->destroy
 Destroy the terminal object (close the window, free resources
-etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event
+etc.). Please note that urxvt will not exit as long as any event
 watchers (timers, io watchers) are still active.
 =item $term->exec_async ($cmd[, @args])
 Works like the combination of the C<fork>/C<exec> builtins, which executes
 }
 =item $success = $term->parse_keysym ($key, $octets)
 Adds a key binding exactly as specified via a resource. See the
-C<keysym> resource in the @@RXVT_NAME@@(1) manpage.
+C<keysym> resource in the urxvt(1) manpage.
 =item $term->register_command ($keysym, $modifiermask, $string)
 Adds a key binding. This is a lower level api compared to
 C<parse_keysym>, as it expects a parsed key description, and can be
 }
 sub urxvt::line::t {
    my ($self) = @_;
-   if (@_ > 1)
+   if (@_ > 1) {
-     {
-       $self->{term}->ROW_t ($_, $_[1], 0, ($_ - $self->{beg}) * $self->{ncol}, $self->{ncol})
+      $self->{term}->ROW_t ($_, $_[1], 0, ($_ - $self->{beg}) * $self->{ncol}, $self->{ncol})
-          for $self->{beg} .. $self->{end};
+         for $self->{beg} .. $self->{end};
-     }
+   }
    defined wantarray &&
       substr +(join "", map $self->{term}->ROW_t ($_), $self->{beg} .. $self->{end}),
              0, $self->{len}
 }
 sub urxvt::line::r {
    my ($self) = @_;
-   if (@_ > 1)
+   if (@_ > 1) {
-     {
-       $self->{term}->ROW_r ($_, $_[1], 0, ($_ - $self->{beg}) * $self->{ncol}, $self->{ncol})
+      $self->{term}->ROW_r ($_, $_[1], 0, ($_ - $self->{beg}) * $self->{ncol}, $self->{ncol})
-          for $self->{beg} .. $self->{end};
+         for $self->{beg} .. $self->{end};
-     }
+   }
    if (defined wantarray) {
       my $rend = [
          map @{ $self->{term}->ROW_r ($_) }, $self->{beg} .. $self->{end}
       ];

Diff Legend

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

Comparing rxvt-unicode/src/urxvt.pm (file contents): Revision 1.222 by root, Sat Jul 7 07:00:17 2012 UTC vs. Revision 1.230 by root, Sat Apr 26 20:51:12 2014 UTC

Diff Legend

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.222 by root, Sat Jul 7 07:00:17 2012 UTC vs.
Revision 1.230 by root, Sat Apr 26 20:51:12 2014 UTC