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.27 by root, Tue Jan 3 23:41:37 2006 UTC vs.
Revision 1.32 by root, Wed Jan 4 21:37:55 2006 UTC

… …
171number of lines that will be in the scrollback buffer. 171number of lines that will be in the scrollback buffer.
172 172
173=item on_tty_activity $term *NYI* 173=item on_tty_activity $term *NYI*
174 174
175Called whenever the program(s) running in the urxvt window send output. 175Called whenever the program(s) running in the urxvt window send output.
176
177=item on_osc_seq $term, $string
178
179Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC =
180operating system command) is processed. Cursor position and other state
181information is up-to-date when this happens. For interoperability, the
182string should start with the extension name and a colon, to distinguish
183it from commands for other extensions, and this might be enforced in the
184future.
185
186Be careful not ever to trust (in a security sense) the data you receive,
187as its source can not easily be controleld (e-mail content, messages from
188other users on the same system etc.).
176 189
177=item on_refresh_begin $term 190=item on_refresh_begin $term
178 191
179Called just before the screen gets redrawn. Can be used for overlay 192Called just before the screen gets redrawn. Can be used for overlay
180or similar effects by modify terminal contents in refresh_begin, and 193or similar effects by modify terminal contents in refresh_begin, and
… …
353 366
354 $pkg 367 $pkg
355 } 368 }
356} 369}
357 370
371our $retval; # return value for urxvt
372
358# called by the rxvt core 373# called by the rxvt core
359sub invoke { 374sub invoke {
360 local $TERM = shift; 375 local $TERM = shift;
361 my $htype = shift; 376 my $htype = shift;
362 377
363 if ($htype == 0) { # INIT 378 if ($htype == 0) { # INIT
364 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 379 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
365 380
366 for my $ext (split /:/, $TERM->resource ("perl_ext")) { 381 for my $ext (map { split /:/, $TERM->resource ("perl_ext_$_") } 1, 2) {
367 my @files = grep -f $_, map "$_/$ext", @dirs; 382 my @files = grep -f $_, map "$_/$ext", @dirs;
368 383
369 if (@files) { 384 if (@files) {
370 register_package script_package $files[0]; 385 register_package script_package $files[0];
371 } else { 386 } else {
372 warn "perl extension '$ext' not found in perl library search path\n"; 387 warn "perl extension '$ext' not found in perl library search path\n";
373 } 388 }
374 } 389 }
390 }
375 391
392 $retval = undef;
393
394 if (my $cb = $TERM->{_hook}[$htype]) {
395 verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")"
396 if $verbosity >= 10;
397
398 keys %$cb;
399
400 while (my ($pkg, $cb) = each %$cb) {
401 $retval = $cb->(
402 $TERM->{_pkg}{$pkg} ||= do {
403 my $proxy = bless { }, urxvt::term::proxy::;
404 Scalar::Util::weaken ($proxy->{term} = $TERM);
405 $proxy
406 },
407 @_,
408 ) and last;
409 }
410 }
411
376 } elsif ($htype == 1) { # DESTROY 412 if ($htype == 1) { # DESTROY
413 # remove hooks if unused
377 if (my $hook = $TERM->{_hook}) { 414 if (my $hook = $TERM->{_hook}) {
378 for my $htype (0..$#$hook) { 415 for my $htype (0..$#$hook) {
379 $hook_count[$htype] -= scalar keys %{ $hook->[$htype] || {} } 416 $hook_count[$htype] -= scalar keys %{ $hook->[$htype] || {} }
380 or set_should_invoke $htype, 0; 417 or set_should_invoke $htype, 0;
381 } 418 }
382 } 419 }
420
421 # clear package objects
422 %$_ = () for values %{ $TERM->{_pkg} };
423
424 # clear package
425 %$TERM = ();
383 } 426 }
384 427
385 my $cb = $TERM->{_hook}[$htype] 428 $retval
386 or return;
387
388 verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")"
389 if $verbosity >= 10;
390
391 keys %$cb;
392
393 while (my ($pkg, $cb) = each %$cb) {
394 return 1
395 if $cb->(
396 $TERM->{$pkg} ||= do {
397 my $proxy = bless { }, urxvt::term::proxy::;
398 Scalar::Util::weaken ($proxy->{term} = $TERM);
399 $proxy
400 },
401 @_,
402 );
403 }
404
405 0
406} 429}
407 430
408sub urxvt::term::proxy::AUTOLOAD { 431sub urxvt::term::proxy::AUTOLOAD {
409 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/ 432 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
410 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable"; 433 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
… …
448 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 471 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
449 borderLess color cursorBlink cursorUnderline cutchars delete_key 472 borderLess color cursorBlink cursorUnderline cutchars delete_key
450 display_name embed ext_bwidth fade font geometry hold iconName 473 display_name embed ext_bwidth fade font geometry hold iconName
451 imFont imLocale inputMethod insecure int_bwidth intensityStyles 474 imFont imLocale inputMethod insecure int_bwidth intensityStyles
452 italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier 475 italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier
453 mouseWheelScrollPage name pastableTabs path perl_eval perl_ext 476 mouseWheelScrollPage name pastableTabs path perl_eval perl_ext_1 perl_ext_2
454 perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd 477 perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd
455 reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating 478 reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating
456 scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput 479 scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput
457 scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle 480 scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle
458 shade term_name title transparent transparent_all tripleclickwords 481 shade term_name title transparent transparent_all tripleclickwords
… …
464 my ($self, $name) = (shift, shift); 487 my ($self, $name) = (shift, shift);
465 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 488 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
466 goto &urxvt::term::_resource; 489 goto &urxvt::term::_resource;
467} 490}
468 491
492=item $rend = $term->screen_rstyle ([$new_rstyle])
493
494Return and optionally change the current rendition. Text thta is output by
495the temrianl application will use this style.
496
497=item ($row, $col) = $term->screen_cur ([$row, $col])
498
499Return the current coordinates of the text cursor position and optionally
500set it (which is usually bad as applications don't expect that).
501
469=item ($row, $col) = $term->selection_mark ([$row, $col]) 502=item ($row, $col) = $term->selection_mark ([$row, $col])
470 503
471=item ($row, $col) = $term->selection_beg ([$row, $col]) 504=item ($row, $col) = $term->selection_beg ([$row, $col])
472 505
473=item ($row, $col) = $term->selection_end ([$row, $col]) 506=item ($row, $col) = $term->selection_end ([$row, $col])
… …
557 590
558Write the octets given in C<$data> to the tty (i.e. as program input). To 591Write the octets given in C<$data> to the tty (i.e. as program input). To
559pass characters instead of octets, you should convert your strings first 592pass characters instead of octets, you should convert your strings first
560to the locale-specific encoding using C<< $term->locale_encode >>. 593to the locale-specific encoding using C<< $term->locale_encode >>.
561 594
595=item $window_width = $term->width
596
597=item $window_height = $term->height
598
599=item $font_width = $term->fwidth
600
601=item $font_height = $term->fheight
602
603=item $font_ascent = $term->fbase
604
562=item $nrow = $term->nrow 605=item $terminal_rows = $term->nrow
563 606
564=item $ncol = $term->ncol 607=item $terminal_columns = $term->ncol
565 608
566Return the number of rows/columns of the terminal window (i.e. as 609=item $has_focus = $term->focus
567specified by C<-geometry>, excluding any scrollback).
568 610
569=item $nsaved = $term->nsaved 611=item $is_mapped = $term->mapped
570 612
571Returns the number of lines in the scrollback buffer. 613=item $max_scrollback = $term->saveLines
614
615=item $nrow_plus_saveLines = $term->total_rows
616
617=item $lines_in_scrollback = $term->nsaved
618
619Return various integers describing terminal characteristics.
572 620
573=item $view_start = $term->view_start ([$newvalue]) 621=item $view_start = $term->view_start ([$newvalue])
574 622
575Returns the negative row number of the topmost line. Minimum value is 623Returns the negative row number of the topmost line. Minimum value is
576C<0>, which displays the normal terminal contents. Larger values scroll 624C<0>, which displays the normal terminal contents. Larger values scroll

Diff Legend

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