[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.227 by root, Sun Mar 31 20:30:32 2013 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_user_command $term, $string
 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
 slightly in the future.
 =item on_register_command $term, $keysym, $modifiermask, $string
 =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.227 by root, Sun Mar 31 20:30:32 2013 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.227 by root, Sun Mar 31 20:30:32 2013 UTC