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

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.25 by root, Tue Jan 3 21:08:39 2006 UTC vs.
Revision 1.32 by root, Wed Jan 4 21:37:55 2006 UTC

 =over 4
 =item selection
-Intelligent selection. This etxension tries to be more intelligent when the user
+Intelligent selection. This extension tries to be more intelligent when
-extends selections (double-click).
+the user extends selections (double-click). Right now, it tries to select
+urls and complete shell-quoted arguments, which is very convenient, too,
+if your F<ls> supports C<--quoting-style=shell>.
 It also offers the following bindable event:
 =over 4
 number of lines that will be in the scrollback buffer.
 =item on_tty_activity $term *NYI*
 Called whenever the program(s) running in the urxvt window send output.
+=item on_osc_seq $term, $string
+Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC =
+operating system command) is processed. Cursor position and other state
+information is up-to-date when this happens. For interoperability, the
+string should start with the extension name and a colon, to distinguish
+it from commands for other extensions, and this might be enforced in the
+future.
+Be careful not ever to trust (in a security sense) the data you receive,
+as its source can not easily be controleld (e-mail content, messages from
+other users on the same system etc.).
 =item on_refresh_begin $term
 Called just before the screen gets redrawn. Can be used for overlay
 or similar effects by modify terminal contents in refresh_begin, and
       $pkg
    }
 }
+our $retval; # return value for urxvt
 # called by the rxvt core
 sub invoke {
    local $TERM = shift;
    my $htype = shift;
    if ($htype == 0) { # INIT
       my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
-      for my $ext (split /:/, $TERM->resource ("perl_ext")) {
+      for my $ext (map { split /:/, $TERM->resource ("perl_ext_$_") } 1, 2) {
          my @files = grep -f $_, map "$_/$ext", @dirs;
          if (@files) {
             register_package script_package $files[0];
          } else {
             warn "perl extension '$ext' not found in perl library search path\n";
          }
       }
+   }
+   $retval = undef;
+   if (my $cb = $TERM->{_hook}[$htype]) {
+      verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")"
+         if $verbosity >= 10;
+      keys %$cb;
+      while (my ($pkg, $cb) = each %$cb) {
+         $retval = $cb->(
+            $TERM->{_pkg}{$pkg} ||= do {
+               my $proxy = bless { }, urxvt::term::proxy::;
+               Scalar::Util::weaken ($proxy->{term} = $TERM);
+               $proxy
+            },
+            @_,
+         ) and last;
+      }
+   }
-   } elsif ($htype == 1) { # DESTROY
+   if ($htype == 1) { # DESTROY
+      # remove hooks if unused
       if (my $hook = $TERM->{_hook}) {
          for my $htype (0..$#$hook) {
             $hook_count[$htype] -= scalar keys %{ $hook->[$htype] || {} }
                or set_should_invoke $htype, 0;
          }
       }
+      # clear package objects
+      %$_ = () for values %{ $TERM->{_pkg} };
+      # clear package
+      %$TERM = ();
    }
-   my $cb = $TERM->{_hook}[$htype]
+   $retval
-      or return;
-   verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")"
-      if $verbosity >= 10;
-   keys %$cb;
-   while (my ($pkg, $cb) = each %$cb) {
-      return 1
-         if $cb->(
-               $TERM->{$pkg} ||= do {
-                  my $proxy = bless { }, urxvt::term::proxy::;
-                  Scalar::Util::weaken ($proxy->{term} = $TERM);
-                  $proxy
-               },
-               @_,
-            );
-   }
-   0
 }
 sub urxvt::term::proxy::AUTOLOAD {
    $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
       or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
   answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
   borderLess color cursorBlink cursorUnderline cutchars delete_key
   display_name embed ext_bwidth fade font geometry hold iconName
   imFont imLocale inputMethod insecure int_bwidth intensityStyles
   italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier
-  mouseWheelScrollPage name pastableTabs path perl_eval perl_ext
+  mouseWheelScrollPage name pastableTabs path perl_eval perl_ext_1 perl_ext_2
   perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd
   reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating
   scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput
   scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle
   shade term_name title transparent transparent_all tripleclickwords
    my ($self, $name) = (shift, shift);
    unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
    goto &urxvt::term::_resource;
 }
+=item $rend = $term->screen_rstyle ([$new_rstyle])
+Return and optionally change the current rendition. Text thta is output by
+the temrianl application will use this style.
+=item ($row, $col) = $term->screen_cur ([$row, $col])
+Return the current coordinates of the text cursor position and optionally
+set it (which is usually bad as applications don't expect that).
 =item ($row, $col) = $term->selection_mark ([$row, $col])
 =item ($row, $col) = $term->selection_beg ([$row, $col])
 =item ($row, $col) = $term->selection_end ([$row, $col])
 Write the octets given in C<$data> to the tty (i.e. as program input). To
 pass characters instead of octets, you should convert your strings first
 to the locale-specific encoding using C<< $term->locale_encode >>.
+=item $window_width = $term->width
+=item $window_height = $term->height
+=item $font_width = $term->fwidth
+=item $font_height = $term->fheight
+=item $font_ascent = $term->fbase
-=item $nrow = $term->nrow
+=item $terminal_rows = $term->nrow
-=item $ncol = $term->ncol
+=item $terminal_columns = $term->ncol
-Return the number of rows/columns of the terminal window (i.e. as
+=item $has_focus = $term->focus
-specified by C<-geometry>, excluding any scrollback).
-=item $nsaved = $term->nsaved
+=item $is_mapped = $term->mapped
-Returns the number of lines in the scrollback buffer.
+=item $max_scrollback = $term->saveLines
+=item $nrow_plus_saveLines = $term->total_rows
+=item $lines_in_scrollback = $term->nsaved
+Return various integers describing terminal characteristics.
 =item $view_start = $term->view_start ([$newvalue])
 Returns the negative row number of the topmost line. Minimum value is
 C<0>, which displays the normal terminal contents. Larger values scroll
 This variable controls the verbosity level of the perl extension. Higher
 numbers indicate more verbose output.
 =over 4
-=item 0 - only fatal messages
+=item =0 - only fatal messages
-=item 3 - script loading and management
+=item =3 - script loading and management
-=item 10 - all events received
+=item =10 - all events received
 =back
 =head1 AUTHOR

Diff Legend

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

Comparing rxvt-unicode/src/urxvt.pm (file contents): Revision 1.25 by root, Tue Jan 3 21:08:39 2006 UTC vs. Revision 1.32 by root, Wed Jan 4 21:37:55 2006 UTC

Diff Legend

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.25 by root, Tue Jan 3 21:08:39 2006 UTC vs.
Revision 1.32 by root, Wed Jan 4 21:37:55 2006 UTC