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

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.76 by root, Tue Jan 10 19:46:28 2006 UTC vs.
Revision 1.85 by root, Thu Jan 12 03:32:56 2006 UTC

 Displays a digital clock using the built-in overlay.
 =item mark-urls
-Uses per-line display filtering (C<on_line_update>) to underline urls.
+Uses per-line display filtering (C<on_line_update>) to underline urls and
+make them clickable. When middle-clicked, the program specified in the
+resource C<urlLauncher> (default C<x-www-browser>) will be started.
 =item block-graphics-to-ascii
 A not very useful example of filtering all text output to the terminal,
 by replacing all line-drawing characters (U+2500 .. U+259F) by a
 =over 4
 =item $text
 Rxvt-unicodes special way of encoding text, where one "unicode" character
-always represents one screen cell. See L<row_t> for a discussion of this format.
+always represents one screen cell. See L<ROW_t> for a discussion of this format.
 =item $string
 A perl text string, with an emphasis on I<text>. It can store all unicode
 characters and is to be distinguished with text encoded in a specific
 =item on_sel_extend $term
 Called whenever the user tries to extend the selection (e.g. with a double
 click) and is either supposed to return false (normal operation), or
 should extend the selection itelf and return true to suppress the built-in
-processing.
+processing. This can happen multiple times, as long as the callback
+returns true, it will be called on every further click by the user and is
+supposed to enlarge the selection more and more, if possible.
 See the F<selection> example extension.
 =item on_view_change $term, $offset
 subwindow.
 =back
-=head2 Variables in the C<urxvt> Package
-=over 4
-=item $urxvt::LIBDIR
-The rxvt-unicode library directory, where, among other things, the perl
-modules and scripts are stored.
-=item $urxvt::RESCLASS, $urxvt::RESCLASS
-The resource class and name rxvt-unicode uses to look up X resources.
-=item $urxvt::RXVTNAME
-The basename of the installed binaries, usually C<urxvt>.
-=item $urxvt::TERM
-The current terminal. This variable stores the current C<urxvt::term>
-object, whenever a callback/hook is executing.
-=item
-=back
-=head2 Functions in the C<urxvt> Package
-=over 4
-=item $term = new urxvt [arg...]
-Creates a new terminal, very similar as if you had started it with
-C<system $binfile, arg...>. Croaks (and probably outputs an error message)
-if the new instance couldn't be created.  Returns C<undef> if the new
-instance didn't initialise perl, and the terminal object otherwise. The
-C<init> and C<start> hooks will be called during the call.
-=item urxvt::fatal $errormessage
-Fatally aborts execution with the given error message. Avoid at all
-costs! The only time this is acceptable is when the terminal process
-starts up.
-=item urxvt::warn $string
-Calls C<rxvt_warn> with the given string which should not include a
-newline. The module also overwrites the C<warn> builtin with a function
-that calls this function.
-Using this function has the advantage that its output ends up in the
-correct place, e.g. on stderr of the connecting urxvtc client.
-=item $is_safe = urxvt::safe
-Returns true when it is safe to do potentially unsafe things, such as
-evaluating perl code specified by the user. This is true when urxvt was
-started setuid or setgid.
-=item $time = urxvt::NOW
-Returns the "current time" (as per the event loop).
-=item urxvt::CurrentTime
-=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
-Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
-Button4Mask, Button5Mask, AnyModifier
-Various constants for use in X calls and event processing.
-=back
-=head2 RENDITION
-Rendition bitsets contain information about colour, font, font styles and
-similar information for each screen cell.
-The following "macros" deal with changes in rendition sets. You should
-never just create a bitset, you should always modify an existing one,
-as they contain important information required for correct operation of
-rxvt-unicode.
-=over 4
-=item $rend = urxvt::DEFAULT_RSTYLE
-Returns the default rendition, as used when the terminal is starting up or
-being reset. Useful as a base to start when creating renditions.
-=item $rend = urxvt::OVERLAY_RSTYLE
-Return the rendition mask used for overlays by default.
-=item $rendbit = urxvt::RS_Bold, RS_Italic, RS_Blink, RS_RVid, RS_Uline
-Return the bit that enabled bold, italic, blink, reverse-video and
-underline, respectively. To enable such a style, just logically OR it into
-the bitset.
-=item $foreground = urxvt::GET_BASEFG $rend
-=item $background = urxvt::GET_BASEBG $rend
-Return the foreground/background colour index, respectively.
-=item $rend = urxvt::SET_FGCOLOR $rend, $new_colour
-=item $rend = urxvt::SET_BGCOLOR $rend, $new_colour
-Replace the foreground/background colour in the rendition mask with the
-specified one.
-=item $value = urxvt::GET_CUSTOM $rend
-Return the "custom" value: Every rendition has 5 bits for use by
-extensions. They can be set and changed as you like and are initially
-zero.
-=item $rend = urxvt::SET_CUSTOM $rend, $new_value
-Change the custom value.
-=back
 =cut
 package urxvt;
 use utf8;
 our $LIBDIR;
 our $RESNAME;
 our $RESCLASS;
 our $RXVTNAME;
+=head2 Variables in the C<urxvt> Package
+=over 4
+=item $urxvt::LIBDIR
+The rxvt-unicode library directory, where, among other things, the perl
+modules and scripts are stored.
+=item $urxvt::RESCLASS, $urxvt::RESCLASS
+The resource class and name rxvt-unicode uses to look up X resources.
+=item $urxvt::RXVTNAME
+The basename of the installed binaries, usually C<urxvt>.
+=item $urxvt::TERM
+The current terminal. This variable stores the current C<urxvt::term>
+object, whenever a callback/hook is executing.
+=back
+=head2 Functions in the C<urxvt> Package
+=over 4
+=item urxvt::fatal $errormessage
+Fatally aborts execution with the given error message. Avoid at all
+costs! The only time this is acceptable is when the terminal process
+starts up.
+=item urxvt::warn $string
+Calls C<rxvt_warn> with the given string which should not include a
+newline. The module also overwrites the C<warn> builtin with a function
+that calls this function.
+Using this function has the advantage that its output ends up in the
+correct place, e.g. on stderr of the connecting urxvtc client.
+Messages have a size limit of 1023 bytes currently.
+=item $is_safe = urxvt::safe
+Returns true when it is safe to do potentially unsafe things, such as
+evaluating perl code specified by the user. This is true when urxvt was
+started setuid or setgid.
+=item $time = urxvt::NOW
+Returns the "current time" (as per the event loop).
+=item urxvt::CurrentTime
+=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
+Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
+Button4Mask, Button5Mask, AnyModifier
+Various constants for use in X calls and event processing.
+=back
+=head2 RENDITION
+Rendition bitsets contain information about colour, font, font styles and
+similar information for each screen cell.
+The following "macros" deal with changes in rendition sets. You should
+never just create a bitset, you should always modify an existing one,
+as they contain important information required for correct operation of
+rxvt-unicode.
+=over 4
+=item $rend = urxvt::DEFAULT_RSTYLE
+Returns the default rendition, as used when the terminal is starting up or
+being reset. Useful as a base to start when creating renditions.
+=item $rend = urxvt::OVERLAY_RSTYLE
+Return the rendition mask used for overlays by default.
+=item $rendbit = urxvt::RS_Bold, RS_Italic, RS_Blink, RS_RVid, RS_Uline
+Return the bit that enabled bold, italic, blink, reverse-video and
+underline, respectively. To enable such a style, just logically OR it into
+the bitset.
+=item $foreground = urxvt::GET_BASEFG $rend
+=item $background = urxvt::GET_BASEBG $rend
+Return the foreground/background colour index, respectively.
+=item $rend = urxvt::SET_FGCOLOR $rend, $new_colour
+=item $rend = urxvt::SET_BGCOLOR $rend, $new_colour
+Replace the foreground/background colour in the rendition mask with the
+specified one.
+=item $value = urxvt::GET_CUSTOM $rend
+Return the "custom" value: Every rendition has 5 bits for use by
+extensions. They can be set and changed as you like and are initially
+zero.
+=item $rend = urxvt::SET_CUSTOM $rend, $new_value
+Change the custom value.
+=back
+=cut
 BEGIN {
    urxvt->bootstrap;
    # overwrite perl's warn
       $msg .= "\n"
          unless $msg =~ /\n$/;
       urxvt::warn ($msg);
    };
+   # %ENV is the original startup environment
    delete $ENV{IFS};
    delete $ENV{CDPATH};
    delete $ENV{BASH_ENV};
    $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
 }
          if ($@) {
             $TERM->ungrab; # better to lose the grab than the session
             warn $@;
          }
       }
+      verbose 11, "$HOOKNAME[$htype] returning <$retval>"
+         if $verbosity >= 11;
    }
    if ($htype == 1) { # DESTROY
       if (my $hook = delete $TERM->{_hook}) {
          for my $htype (0..$#$hook) {
       # clear package
       %$TERM = ();
    }
    $retval
+}
+sub exec_async(@) {
+   my $pid = fork;
+   return
+      if !defined $pid or $pid;
+   %ENV = %{ $TERM->env };
+   exec @_;
+   _exit 255;
 }
 # urxvt::term::extension
 package urxvt::term::extension;
    for my $name (@HOOKNAME) {
       if (my $ref = $pkg->can ("on_" . lc $name)) {
          $proxy->enable ($name => $ref);
       }
    }
+}
+=item $term = new urxvt::term $envhashref, $rxvtname, [arg...]
+Creates a new terminal, very similar as if you had started it with system
+C<$rxvtname, arg...>. C<$envhashref> must be a reference to a C<%ENV>-like
+hash which defines the environment of the new terminal.
+Croaks (and probably outputs an error message) if the new instance
+couldn't be created.  Returns C<undef> if the new instance didn't
+initialise perl, and the terminal object otherwise. The C<init> and
+C<start> hooks will be called during this call.
+=cut
+sub new {
+   my ($class, $env, @args) = @_;
+   _new ([ map "$_=$env->{$_}", keys %$env ], @args);
 }
 =item $term->destroy
 Destroy the terminal object (close the window, free resources
    my ($self, $name) = (shift, shift);
    unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
    &urxvt::term::_resource
 }
+=item $value = $term->x_resource ($pattern)
+Returns the X-Resource for the given pattern, excluding the program or
+class name, i.e.  C<< $term->x_resource ("boldFont") >> should return the
+same value as used by this instance of rxvt-unicode. Returns C<undef> if no
+resource with that pattern exists.
+This method should only be called during the C<on_start> hook, as there is
+only one resource database per display, and later invocations might return
+the wrong resources.
 =item $success = $term->parse_keysym ($keysym_spec, $command_string)
 Adds a keymap translation exactly as specified via a resource. See the
 C<keysym> resource in the @@RXVT_NAME@@(1) manpage.
 =item $lines_in_scrollback = $term->nsaved
 Return various integers describing terminal characteristics.
+=item $x_display = $term->display_id
+Return the DISPLAY used by rxvt-unicode.
 =item $lc_ctype = $term->locale
 Returns the LC_CTYPE category string used by this rxvt-unicode.
-=item $x_display = $term->display_id
+=item $env = $term->env
-Return the DISPLAY used by rxvt-unicode.
+Returns a copy of the environment in effect for the terminal as a hashref
+similar to C<\%ENV>.
+=cut
+sub env {
+   if (my $env = $_[0]->_env) {
+      +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), @$env }
+   } else {
+      +{ %ENV }
+   }
+}
 =item $modifiermask = $term->ModLevel3Mask
 =item $modifiermask = $term->ModMetaMask
 Return the row number of the first/last row of the line, respectively.
 =item $offset = $line->offset_of ($row, $col)
 Returns the character offset of the given row|col pair within the logical
-line.
+line. Works for rows outside the line, too, and returns corresponding
+offsets outside the string.
 =item ($row, $col) = $line->coord_of ($offset)
 Translates a string offset into terminal coordinates again.
 sub show {
    my ($self) = @_;
    local $urxvt::popup::self = $self;
+   my $env = $self->{term}->env;
+   # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE.
+   delete $env->{LC_ALL};
-   local $ENV{LC_ALL} = $self->{term}->locale;
+   $env->{LC_CTYPE} = $self->{term}->locale;
+   urxvt::term->new ($env, $self->{term}->resource ("name"),
-   urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
+                     "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
-               "--transient-for" => $self->{term}->parent,
+                     "--transient-for" => $self->{term}->parent,
-               "-display" => $self->{term}->display_id,
+                     "-display" => $self->{term}->display_id,
-               "-pe" => "urxvt-popup")
+                     "-pe" => "urxvt-popup")
       or die "unable to create popup window\n";
 }
 sub DESTROY {
    my ($self) = @_;
    delete $self->{term}{_destroy}{$self};
    $self->{term}->ungrab;
 }
+=back
 =head2 The C<urxvt::timer> Class
 This class implements timer watchers/events. Time is represented as a
 fractional number of seconds since the epoch. Example:
 =item == 0 - fatal messages
 =item >= 3 - script loading and management
-=item >=10 - all events received
+=item >=10 - all called hooks
+=item >=11 - hook reutrn values
 =back
 =head1 AUTHOR

Diff Legend

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

Comparing rxvt-unicode/src/urxvt.pm (file contents): Revision 1.76 by root, Tue Jan 10 19:46:28 2006 UTC vs. Revision 1.85 by root, Thu Jan 12 03:32:56 2006 UTC

Diff Legend

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.76 by root, Tue Jan 10 19:46:28 2006 UTC vs.
Revision 1.85 by root, Thu Jan 12 03:32:56 2006 UTC