Beta Shell v2.0

File Manager

~ /usr/lib64/perl5/vendor_perl/auto/Term/ReadLine/Gnu/XS

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Tk_getc.al	512 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
_ch_wrapper.al	975 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
_str2fn.al	531 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
_str2map.al	570 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
_tgetstrs.al	845 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
_trp_completion_function.al	1.21 KB	-rw-r--r--	2020-02-14 20:56:13	Edit Del
autosplit.ix	1.11 KB	-rw-r--r--	2020-02-14 20:56:13	Edit Del
change_ornaments.al	904 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
display_readline_version.al	681 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
get_history_event.al	449 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
hist_arg_extract.al	742 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
hist_list.al	665 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
history_expand_line.al	902 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
list_completion_function.al	675 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
operate_and_get_next.al	1.35 KB	-rw-r--r--	2020-02-14 20:56:13	Edit Del
ornaments.al	1.32 KB	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_add_funmap_entry.al	603 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_bind_key.al	510 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_bind_key_if_unbound.al	759 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_bind_keyseq.al	703 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_bind_keyseq_if_unbound.al	780 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_call_function.al	599 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_completion_mode.al	662 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_copy_keymap.al	408 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_discard_keymap.al	417 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_filename_list.al	614 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_generic_bind.al	1.05 KB	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_invoking_keyseqs.al	536 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_macro_bind.al	567 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_message.al	429 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_set_key.al	662 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_set_keymap.al	420 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_tty_set_default_bindings.al	716 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
rl_tty_unset_default_bindings.al	728 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
shadow_redisplay.al	1.14 KB	-rw-r--r--	2020-02-14 20:56:13	Edit Del
unbind_command.al	682 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
unbind_function.al	765 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del
unbind_key.al	495 B	-rw-r--r--	2020-02-14 20:56:13	Edit Del

Editing: _trp_completion_function.al (1.21 KB)

# NOTE: Derived from blib/lib/Term/ReadLine/Gnu/XS.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Term::ReadLine::Gnu::XS;

#line 560 "blib/lib/Term/ReadLine/Gnu/XS.pm (autosplit into blib/lib/auto/Term/ReadLine/Gnu/XS/_trp_completion_function.al)"
#
#	wrapper completion function of 'completion_function'
#	for compatibility with Term::ReadLine::Perl
#
sub _trp_completion_function ( $$ ) {
    my($text, $state) = @_;

    my $cf;
    if (not defined ($cf = $Attribs{completion_function})) {
	carp "_trp_comletion_fuction: internal error\n";
	return undef;
    }

    if ($state) {
	$_i++;
    } else {
	# the first call
	$_i = 0;		# clear index
	@_matches = &$cf($text,
			 $Attribs{line_buffer},
			 $Attribs{point} - length($text));
	# return here since $#_matches is 0 instead of -1 when
	# @_matches = undef
	return undef unless defined $_matches[0];
    }

    for (; $_i <= $#_matches; $_i++) {
	# case insensitive match to be compatible with
	# Term::ReadLine::Perl.
	# https://rt.cpan.org/Ticket/Display.html?id=72378
	return $_matches[$_i] if ($_matches[$_i] =~ /^\Q$text/i);
    }
    return undef;
}

1;

__END__
1;
# end of Term::ReadLine::Gnu::XS::_trp_completion_function