mirror of https://github.com/jorgebucaran/fisher
You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
980 B
Fish
40 lines
980 B
Fish
# Usage
|
|
# __fisher_complete [awk_var=value] [--help]
|
|
#
|
|
# Example
|
|
# set -l IFS \t
|
|
# STDIN | __fisher_complete | while read -l d l s
|
|
# complete -c <command> -s -l -d
|
|
# end
|
|
|
|
function __fisher_complete -d "Parse usage help output"
|
|
switch "$argv"
|
|
case \*OFS=\*
|
|
case \*
|
|
set argv $argv OFS=\t
|
|
end
|
|
|
|
awk (printf "-v\n%s\n" $argv) '
|
|
/^ *--?[A-Za-z0-9-]+[, ]?/ {
|
|
re = "[<=\\\[]"
|
|
for (n = 1; n <= NF; n++) {
|
|
|
|
if ($n ~ /^--/ && !long) {
|
|
long = substr($n, 3)
|
|
split(long, _, re)
|
|
long = substr(_[1], 1)
|
|
|
|
} else if ($n ~ /^-.,?$/ && !short) {
|
|
short = substr($n, 2, 1)
|
|
|
|
} else if ($n !~ re) {
|
|
info = (info ? info" " : info)$n
|
|
}
|
|
}
|
|
|
|
print info, long, short
|
|
info = short = long = ""
|
|
}
|
|
'
|
|
end
|