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

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.23 by root, Tue Jan 3 19:42:53 2006 UTC vs.
Revision 1.31 by root, Wed Jan 4 19:39:46 2006 UTC

…		…
39		39
40	=over 4	40	=over 4
41		41
42	=item selection	42	=item selection
43		43
44	Intelligent selection. This etxension tries to be more intelligent when the user	44	Intelligent selection. This extension tries to be more intelligent when
45	extends selections (double-click).	45	the user extends selections (double-click). Right now, it tries to select
		46	urls and complete shell-quoted arguments, which is very convenient, too,
		47	if your F<ls> supports C<--quoting-style=shell>.
46		48
47	It also offers the following bindable event:	49	It also offers the following bindable event:
48		50
49	=over 4	51	=over 4
50		52
…		…
169	number of lines that will be in the scrollback buffer.	171	number of lines that will be in the scrollback buffer.
170		172
171	=item on_tty_activity $term NYI	173	=item on_tty_activity $term NYI
172		174
173	Called whenever the program(s) running in the urxvt window send output.	175	Called whenever the program(s) running in the urxvt window send output.
		176
		177	=item on_osc_seq $term, $string
		178
		179	Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC =
		180	operating system command) is processed. Cursor position and other state
		181	information is up-to-date when this happens. For interoperability, the
		182	string should start with the extension name and a colon, to distinguish
		183	it from commands for other extensions, and this might be enforced in the
		184	future.
		185
		186	Be careful not ever to trust (in a security sense) the data you receive,
		187	as its source can not easily be controleld (e-mail content, messages from
		188	other users on the same system etc.).
174		189
175	=item on_refresh_begin $term	190	=item on_refresh_begin $term
176		191
177	Called just before the screen gets redrawn. Can be used for overlay	192	Called just before the screen gets redrawn. Can be used for overlay
178	or similar effects by modify terminal contents in refresh_begin, and	193	or similar effects by modify terminal contents in refresh_begin, and
…		…
351		366
352	$pkg	367	$pkg
353	}	368	}
354	}	369	}
355		370
		371	our $retval; # return value for urxvt
		372
356	# called by the rxvt core	373	# called by the rxvt core
357	sub invoke {	374	sub invoke {
358	local $TERM = shift;	375	local $TERM = shift;
359	my $htype = shift;	376	my $htype = shift;
360		377
361	if ($htype == 0) { # INIT	378	if ($htype == 0) { # INIT
362	my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");	379	my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
363		380
364	for my $ext (split /:/, $TERM->resource ("perl_ext")) {	381	for my $ext (map { split /:/, $TERM->resource ("perl_ext_$_") } 1, 2) {
365	my @files = grep -f $_, map "$_/$ext", @dirs;	382	my @files = grep -f $_, map "$_/$ext", @dirs;
366		383
367	if (@files) {	384	if (@files) {
368	register_package script_package $files[0];	385	register_package script_package $files[0];
369	} else {	386	} else {
370	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";
371	}	388	}
372	}	389	}
		390	}
373		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
374	} elsif ($htype == 1) { # DESTROY	412	if ($htype == 1) { # DESTROY
		413	# remove hooks if unused
375	if (my $hook = $TERM->{_hook}) {	414	if (my $hook = $TERM->{_hook}) {
376	for my $htype (0..$#$hook) {	415	for my $htype (0..$#$hook) {
377	$hook_count[$htype] -= scalar keys %{ $hook->[$htype] \|\| {} }	416	$hook_count[$htype] -= scalar keys %{ $hook->[$htype] \|\| {} }
378	or set_should_invoke $htype, 0;	417	or set_should_invoke $htype, 0;
379	}	418	}
380	}	419	}
		420
		421	# clear package objects
		422	%$_ = () for values %{ $TERM->{_pkg} };
		423
		424	# clear package
		425	%$TERM = ();
381	}	426	}
382		427
383	my $cb = $TERM->{_hook}[$htype]	428	$retval
384	or return;
385
386	verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")"
387	if $verbosity >= 10;
388
389	while (my ($pkg, $cb) = each %$cb) {
390	return 1
391	if $cb->(
392	$TERM->{$pkg} \|\|= do {
393	my $proxy = bless { }, urxvt::term::proxy::;
394	Scalar::Util::weaken ($proxy->{term} = $TERM);
395	$proxy
396	},
397	@_,
398	);
399	}
400
401	0
402	}	429	}
403		430
404	sub urxvt::term::proxy::AUTOLOAD {	431	sub urxvt::term::proxy::AUTOLOAD {
405	$urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/	432	$urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
406	or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";	433	or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
407		434
408	eval qq{	435	eval qq{
409	sub $urxvt::term::proxy::AUTOLOAD {	436	sub $urxvt::term::proxy::AUTOLOAD {
410	unshift \@_, shift->{term};	437	my \$proxy = shift;
411	goto &urxvt::term::$1;	438	\$proxy->{term}->$1 (\@_)
412	}	439	}
413	1	440	1
414	} or die "FATAL: unable to compile method forwarder: $@";	441	} or die "FATAL: unable to compile method forwarder: $@";
415		442
416	goto &$urxvt::term::proxy::AUTOLOAD;	443	goto &$urxvt::term::proxy::AUTOLOAD;
…		…
444	answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont	471	answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
445	borderLess color cursorBlink cursorUnderline cutchars delete_key	472	borderLess color cursorBlink cursorUnderline cutchars delete_key
446	display_name embed ext_bwidth fade font geometry hold iconName	473	display_name embed ext_bwidth fade font geometry hold iconName
447	imFont imLocale inputMethod insecure int_bwidth intensityStyles	474	imFont imLocale inputMethod insecure int_bwidth intensityStyles
448	italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier	475	italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier
449	mouseWheelScrollPage name pastableTabs path perl_eval perl_ext	476	mouseWheelScrollPage name pastableTabs path perl_eval perl_ext_1 perl_ext_2
450	perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd	477	perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd
451	reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating	478	reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating
452	scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput	479	scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput
453	scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle	480	scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle
454	shade term_name title transparent transparent_all tripleclickwords	481	shade term_name title transparent transparent_all tripleclickwords
…		…
583	=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]])	610	=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]])
584		611
585	Returns the text of the entire row with number C<$row_number>. Row C<0>	612	Returns the text of the entire row with number C<$row_number>. Row C<0>
586	is the topmost terminal line, row C<< $term->$ncol-1 >> is the bottommost	613	is the topmost terminal line, row C<< $term->$ncol-1 >> is the bottommost
587	terminal line. The scrollback buffer starts at line C<-1> and extends to	614	terminal line. The scrollback buffer starts at line C<-1> and extends to
588	line C<< -$term->nsaved >>.	615	line C<< -$term->nsaved >>. Nothing will be returned if a nonexistent line
		616	is requested.
589		617
590	If C<$new_text> is specified, it will replace characters in the current	618	If C<$new_text> is specified, it will replace characters in the current
591	line, starting at column C<$start_col> (default C<0>), which is useful	619	line, starting at column C<$start_col> (default C<0>), which is useful
592	to replace only parts of a line. The font index in the rendition will	620	to replace only parts of a line. The font index in the rendition will
593	automatically be updated.	621	automatically be updated.
…		…
615		643
616	See the section on RENDITION, above.	644	See the section on RENDITION, above.
617		645
618	=item $length = $term->ROW_l ($row_number[, $new_length])	646	=item $length = $term->ROW_l ($row_number[, $new_length])
619		647
620	Returns the number of screen cells that are in use ("the line length"). If	648	Returns the number of screen cells that are in use ("the line
621	it is C<-1>, then the line is part of a multiple-row logical "line", which	649	length"). Unlike the urxvt core, this returns C<< $term->ncol >> if the
622	means all characters are in use and it is continued on the next row.	650	line is joined with the following one.
623		651
		652	=item $bool = $term->is_longer ($row_number)
		653
		654	Returns true if the row is part of a multiple-row logical "line" (i.e.
		655	joined with the following row), which means all characters are in use
		656	and it is continued on the next row (and possibly a continuation of the
		657	previous row(s)).
		658
		659	=item $line = $term->line ($row_number)
		660
		661	Create and return a new C<urxvt::line> object that stores information
		662	about the logical line that row C<$row_number> is part of. It supports the
		663	following methods:
		664
		665	=over 4
		666
		667	=item $text = $line->t
		668
		669	Returns the full text of the line, similar to C<ROW_t>
		670
		671	=item $rend = $line->r
		672
		673	Returns the full rendition array of the line, similar to C<ROW_r>
		674
		675	=item $length = $line->l
		676
		677	Returns the length of the line in cells, similar to C<ROW_l>.
		678
		679	=item $rownum = $line->beg
		680
		681	=item $rownum = $line->end
		682
		683	Return the row number of the first/last row of the line, respectively.
		684
		685	=item $offset = $line->offset_of ($row, $col)
		686
		687	Returns the character offset of the given row\|col pair within the logical
		688	line.
		689
		690	=item ($row, $col) = $line->coord_of ($offset)
		691
		692	Translates a string offset into terminal coordinates again.
		693
		694	=back
		695
		696	=cut
		697
		698	sub urxvt::term::line {
		699	my ($self, $row) = @_;
		700
		701	my $maxrow = $self->nrow - 1;
		702
		703	my ($beg, $end) = ($row, $row);
		704
		705	--$beg while $self->ROW_is_longer ($beg - 1);
		706	++$end while $self->ROW_is_longer ($end) && $end < $maxrow;
		707
		708	bless {
		709	term => $self,
		710	beg => $beg,
		711	end => $end,
		712	len => ($end - $beg) * $self->ncol + $self->ROW_l ($end),
		713	}, urxvt::line::
		714	}
		715
		716	sub urxvt::line::t {
		717	my ($self) = @_;
		718
		719	substr +(join "", map $self->{term}->ROW_t ($_), $self->{beg} .. $self->{end}),
		720	0, $self->{len}
		721	}
		722
		723	sub urxvt::line::r {
		724	my ($self) = @_;
		725
		726	my $rend = [
		727	map @{ $self->{term}->ROW_r ($_) }, $self->{beg} .. $self->{end}
		728	];
		729	$#$rend = $self->{len} - 1;
		730	$rend
		731	}
		732
		733	sub urxvt::line::beg { $_[0]{beg} }
		734	sub urxvt::line::end { $_[0]{end} }
		735	sub urxvt::line::l { $_[0]{len} }
		736
		737	sub urxvt::line::offset_of {
		738	my ($self, $row, $col) = @_;
		739
		740	($row - $self->{beg}) * $self->{term}->ncol + $col
		741	}
		742
		743	sub urxvt::line::coord_of {
		744	my ($self, $offset) = @_;
		745
		746	use integer;
		747
		748	(
		749	$offset / $self->{term}->ncol + $self->{beg},
		750	$offset % $self->{term}->ncol
		751	)
		752	}
		753
		754	=item ($row, $col) = $line->coord_of ($offset)
624	=item $text = $term->special_encode $string	755	=item $text = $term->special_encode $string
625		756
626	Converts a perl string into the special encoding used by rxvt-unicode,	757	Converts a perl string into the special encoding used by rxvt-unicode,
627	where one character corresponds to one screen cell. See	758	where one character corresponds to one screen cell. See
628	C<< $term->ROW_t >> for details.	759	C<< $term->ROW_t >> for details.
…		…
742	This variable controls the verbosity level of the perl extension. Higher	873	This variable controls the verbosity level of the perl extension. Higher
743	numbers indicate more verbose output.	874	numbers indicate more verbose output.
744		875
745	=over 4	876	=over 4
746		877
747	=item 0 - only fatal messages	878	=item =0 - only fatal messages
748		879
749	=item 3 - script loading and management	880	=item =3 - script loading and management
750		881
751	=item 10 - all events received	882	=item =10 - all events received
752		883
753	=back	884	=back
754		885
755	=head1 AUTHOR	886	=head1 AUTHOR
756		887

Diff Legend

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

Comparing rxvt-unicode/src/urxvt.pm (file contents): Revision 1.23 by root, Tue Jan 3 19:42:53 2006 UTC vs. Revision 1.31 by root, Wed Jan 4 19:39:46 2006 UTC

Diff Legend

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.23 by root, Tue Jan 3 19:42:53 2006 UTC vs.
Revision 1.31 by root, Wed Jan 4 19:39:46 2006 UTC