Mirrors/fish-shell
2
0
Fork 0
mirror of https://github.com/fish-shell/fish-shell synced 2024-12-26 21:03:12 +00:00
Code Issues Projects Releases Packages Wiki Activity

__fish_describe_command: Remove awk

Browse source 
This is really the only important place we're using it.

See #5553.
This commit is contained in:
Fabian Homborg 2019-03-14 12:39:47 +01:00
parent 29556efebd
commit 7784a5f23c
1 changed files with 4 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
share/functions/__fish_describe_command.fish
View file

@ -3,20 +3,8 @@
#
function __fish_describe_command -d "Command used to find descriptions for commands"
# We're going to try to build a regex out of $argv inside awk.
# Make sure $argv has no special characters.
# TODO: stop interpolating argv into regex, and remove this hack.
string match --quiet --regex '^[a-zA-Z0-9_ ]+$' -- "$argv"
or return
type -q apropos; or return
apropos $argv 2>/dev/null | awk -v FS=" +- +" '{
split($1, names, ", ");
for (name in names)
if (names[name] ~ /^'"$argv"'.* *\([18]\)/ ) {
sub( "( |\t)*\\\([18]\\\)", "", names[name] );
sub( " \\\[.*\\\]", "", names[name] );
print names[name] "\t" $2;
}
}'
command -sq apropos; or return
# Some systems could use -s 1,8 here, but FreeBSD doesn't have that.
apropos $argv 2>/dev/null | string replace -rf '^(\S+) \(\S+\)\s+- (.*)' '$1\t$2' \
| string match (string replace -a '*' '\*' -- "$argv")"*"
end