completion handled by node-cmdln
This commit is contained in:
Dave Eddy
parent
411659180f
commit
3dd84362d0
@ -1,99 +0,0 @@
|
|||||||
#!/usr/bin/env bash
|
|
||||||
|
|
||||||
_triton_default_words() {
|
|
||||||
# main command
|
|
||||||
local words=(
|
|
||||||
-h --help
|
|
||||||
--version
|
|
||||||
-v --verbose
|
|
||||||
help ?
|
|
||||||
account whoami
|
|
||||||
info
|
|
||||||
keys
|
|
||||||
create-instance create
|
|
||||||
instances insts
|
|
||||||
instance inst
|
|
||||||
instance-audit
|
|
||||||
start-instance start
|
|
||||||
stop-instance stop
|
|
||||||
reboot-instance reboot
|
|
||||||
delete-instance delete
|
|
||||||
wait-instance wait
|
|
||||||
ssh
|
|
||||||
images imgs
|
|
||||||
image img
|
|
||||||
packages pkgs
|
|
||||||
package pkg
|
|
||||||
networks
|
|
||||||
network
|
|
||||||
)
|
|
||||||
echo "${words[*]}"
|
|
||||||
}
|
|
||||||
|
|
||||||
_triton_words() {
|
|
||||||
local cmd=$1
|
|
||||||
local curword=${COMP_WORDS[COMP_CWORD]}
|
|
||||||
if [[ $cmd == $curword ]]; then
|
|
||||||
COMPREPLY=($(compgen -W "$(_triton_default_words)" -- "$curword"))
|
|
||||||
return
|
|
||||||
fi
|
|
||||||
|
|
||||||
# assume everything supports this
|
|
||||||
local words=(-j --json -h --help)
|
|
||||||
|
|
||||||
case "$cmd" in
|
|
||||||
account|whoami) ;;
|
|
||||||
info) ;;
|
|
||||||
keys) ;;
|
|
||||||
create|create-instance)
|
|
||||||
words+=(-n --name --dry-run -w --wait -q --quiet)
|
|
||||||
;;
|
|
||||||
start|start-instance|stop|stop-instance|reboot|reboot-instance|delete|delete-instance)
|
|
||||||
words=(-h --help -w --wait)
|
|
||||||
;;
|
|
||||||
wait|wait-instance)
|
|
||||||
words+=(-q --quiet)
|
|
||||||
;;
|
|
||||||
insts|instances)
|
|
||||||
words+=(-H -o -s)
|
|
||||||
;;
|
|
||||||
inst|instance) ;;
|
|
||||||
images|imgs)
|
|
||||||
words+=(-a --all -H -o -s -l --long)
|
|
||||||
;;
|
|
||||||
image|img) ;;
|
|
||||||
packages|pkgs)
|
|
||||||
words+=(-H -o -s -l --long)
|
|
||||||
;;
|
|
||||||
package|pkg) ;;
|
|
||||||
networks)
|
|
||||||
words+=(-H -o -s -l --long)
|
|
||||||
;;
|
|
||||||
network) ;;
|
|
||||||
ssh)
|
|
||||||
words+=()
|
|
||||||
;;
|
|
||||||
*)
|
|
||||||
words=($(_triton_default_words))
|
|
||||||
;;
|
|
||||||
esac
|
|
||||||
|
|
||||||
COMPREPLY=($(compgen -W "${words[*]}" -- "$curword"))
|
|
||||||
}
|
|
||||||
|
|
||||||
_triton() {
|
|
||||||
local cur=$COMP_CWORD
|
|
||||||
|
|
||||||
local i word
|
|
||||||
for ((i = 1; i <= COMP_CWORD; i++)); do
|
|
||||||
word=${COMP_WORDS[i]}
|
|
||||||
if ((i < COMP_CWORD)) && [[ ${word:0:1} == '-' ]]; then
|
|
||||||
continue
|
|
||||||
fi
|
|
||||||
_triton_words "$word"
|
|
||||||
break
|
|
||||||
done
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
complete -F _triton triton
|
|
||||||
@ -1,237 +0,0 @@
|
|||||||
|
|
||||||
|
|
||||||
#XXX drop this name
|
|
||||||
function trace
|
|
||||||
{
|
|
||||||
#echo "$*" >&2
|
|
||||||
echo "$*" >>/var/tmp/triton-completion.log
|
|
||||||
}
|
|
||||||
|
|
||||||
function _dashdash_complete() {
|
|
||||||
trace ""
|
|
||||||
trace "-- $(date)"
|
|
||||||
trace "\$@: '$@'"
|
|
||||||
trace "COMP_WORDBREAKS: '$COMP_WORDBREAKS'"
|
|
||||||
trace "COMP_CWORD: '$COMP_CWORD'"
|
|
||||||
trace "COMP_LINE: '$COMP_LINE'"
|
|
||||||
trace "COMP_POINT: $COMP_POINT"
|
|
||||||
|
|
||||||
# Guard against negative COMP_CWORD. This is a Bash bug at least on
|
|
||||||
# Mac 10.10.4's bash. See
|
|
||||||
# <https://lists.gnu.org/archive/html/bug-bash/2009-07/msg00125.html>.
|
|
||||||
if [[ $COMP_CWORD -lt 0 ]]; then
|
|
||||||
trace "abort on negative COMP_CWORD"
|
|
||||||
exit 1;
|
|
||||||
fi
|
|
||||||
|
|
||||||
local interspersed shortOpts longOpts takesArgOpts subCmds
|
|
||||||
interspersed=$1
|
|
||||||
shift # $interspersed
|
|
||||||
shortOpts=$1
|
|
||||||
shift # $shortOpts
|
|
||||||
longOpts=$1
|
|
||||||
shift # $longOpts
|
|
||||||
takesArgOpts=$1
|
|
||||||
shift # $takesArgOpts
|
|
||||||
subCmds=$1
|
|
||||||
shift # $subCmds or '--'
|
|
||||||
if [[ -n "$subCmds" ]]; then
|
|
||||||
shift # '--'
|
|
||||||
fi
|
|
||||||
trace "interspersed: '$interspersed'"
|
|
||||||
trace "shortOpts: '$shortOpts'"
|
|
||||||
trace "longOpts: '$longOpts'"
|
|
||||||
trace "takesArgOpts: '$takesArgOpts'"
|
|
||||||
trace "subCmds: '$subCmds'"
|
|
||||||
|
|
||||||
# I don't know how to do array manip on argv vars,
|
|
||||||
# so copy over to ARGV array to work on them.
|
|
||||||
declare -a ARGV
|
|
||||||
i=0
|
|
||||||
len=$#
|
|
||||||
while [[ $# -gt 0 ]]; do
|
|
||||||
ARGV[$i]=$1
|
|
||||||
shift;
|
|
||||||
i=$(( $i + 1 ))
|
|
||||||
done
|
|
||||||
|
|
||||||
trace "ARGV: '${ARGV[@]}'"
|
|
||||||
trace "ARGV[COMP_CWORD-1]: '${ARGV[$(( $COMP_CWORD - 1 ))]}'"
|
|
||||||
trace "ARGV[COMP_CWORD]: '${ARGV[$COMP_CWORD]}'"
|
|
||||||
trace "ARGV len: '$len'"
|
|
||||||
|
|
||||||
# Get 'state' of option parsing at this COMP_POINT.
|
|
||||||
# Copying "dashdash.js#parse()" behaviour here.
|
|
||||||
state=
|
|
||||||
nargs=0
|
|
||||||
i=1
|
|
||||||
while [[ $i -lt $len && $i -le $COMP_CWORD ]]; do
|
|
||||||
optname=
|
|
||||||
prefix=
|
|
||||||
word=
|
|
||||||
|
|
||||||
arg=${ARGV[$i]}
|
|
||||||
trace "consider ARGV[$i]: '$arg'"
|
|
||||||
|
|
||||||
if [[ "$arg" == "--" ]]; then
|
|
||||||
state=longopt
|
|
||||||
word=--
|
|
||||||
i=$(( $i + 1 ))
|
|
||||||
break;
|
|
||||||
elif [[ "${arg:0:2}" == "--" ]]; then
|
|
||||||
arg=${arg:2}
|
|
||||||
if [[ "$arg" == *"="* ]]; then
|
|
||||||
optname=${arg%%=*}
|
|
||||||
val=${arg##*=}
|
|
||||||
trace " long opt: optname='$optname' val='$val'"
|
|
||||||
state=arg
|
|
||||||
word=$val
|
|
||||||
prefix="--$optname="
|
|
||||||
else
|
|
||||||
optname=$arg
|
|
||||||
val=
|
|
||||||
trace " long opt: optname='$optname'"
|
|
||||||
state=longopt
|
|
||||||
word=--$optname
|
|
||||||
|
|
||||||
if [[ "$takesArgOpts" == *"-$optname="* && $i -lt $COMP_CWORD ]]; then
|
|
||||||
i=$(( $i + 1 ))
|
|
||||||
state=arg
|
|
||||||
word=${ARGV[$i]}
|
|
||||||
trace " takes arg (next arg, word='$word')"
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
elif [[ "${arg:0:1}" == "-" ]]; then
|
|
||||||
trace " short opt group"
|
|
||||||
state=shortopt
|
|
||||||
word=$arg
|
|
||||||
|
|
||||||
j=1
|
|
||||||
while [[ $j -lt ${#arg} ]]; do
|
|
||||||
optname=${arg:$j:1}
|
|
||||||
trace " consider index $j: optname '$optname'"
|
|
||||||
|
|
||||||
if [[ "$takesArgOpts" == *"-$optname="* ]]; then
|
|
||||||
if [[ $(( $j + 1 )) -lt ${#arg} ]]; then
|
|
||||||
state=arg
|
|
||||||
word=${arg:$(( $j + 1 ))}
|
|
||||||
trace " takes arg (rest of this arg, word='$word')"
|
|
||||||
elif [[ $i -lt $COMP_CWORD ]]; then
|
|
||||||
state=arg
|
|
||||||
i=$(( $i + 1 ))
|
|
||||||
word=${ARGV[$i]}
|
|
||||||
trace " takes arg (word='$word')"
|
|
||||||
fi
|
|
||||||
break
|
|
||||||
fi
|
|
||||||
|
|
||||||
j=$(( $j + 1 ))
|
|
||||||
done
|
|
||||||
elif [[ "$interspersed" == "true" ]]; then
|
|
||||||
trace " not an opt"
|
|
||||||
state=arg #XXX arg type
|
|
||||||
word=$arg
|
|
||||||
nargs=$(( $nargs + 1 ))
|
|
||||||
elif [[ -n "$subCmds" ]]; then
|
|
||||||
if [[ $i -eq $COMP_CWORD ]]; then
|
|
||||||
state=subcmds
|
|
||||||
word=$arg
|
|
||||||
else
|
|
||||||
trace "XXX defer on to _triton_${arg}_complete"
|
|
||||||
#_triton_${arg}_complete XXX a b c XXX
|
|
||||||
return
|
|
||||||
fi
|
|
||||||
else
|
|
||||||
trace "XXX here else"
|
|
||||||
XXX
|
|
||||||
fi
|
|
||||||
|
|
||||||
trace " state=$state prefix='$prefix' word='$word'"
|
|
||||||
i=$(( $i + 1 ))
|
|
||||||
done
|
|
||||||
|
|
||||||
trace "parsed: state=$state prefix='$prefix' word='$word'"
|
|
||||||
compgen_opts=
|
|
||||||
if [[ -n "$prefix" ]]; then
|
|
||||||
compgen_opts="$compgen_opts -P $prefix"
|
|
||||||
fi
|
|
||||||
|
|
||||||
case $state in
|
|
||||||
shortopt)
|
|
||||||
compgen $compgen_opts -W "$shortOpts" -- "$word"
|
|
||||||
;;
|
|
||||||
longopt)
|
|
||||||
compgen $compgen_opts -W "$longOpts" -- "$word"
|
|
||||||
;;
|
|
||||||
subcmds)
|
|
||||||
compgen $compgen_opts -W "$subCmds" -- "$word"
|
|
||||||
;;
|
|
||||||
arg)
|
|
||||||
# Figure out arg type, if we can. If this was an *option* arg, then
|
|
||||||
# 'optname' is set.
|
|
||||||
if [[ -n "$optname" ]]; then
|
|
||||||
argtype=$(echo "$takesArgOpts" | awk -F "-$optname=" '{print $2}' | cut -d' ' -f1)
|
|
||||||
trace "argtype (for opt '$optname'): $argtype"
|
|
||||||
else
|
|
||||||
# TODO set argtype from nargs
|
|
||||||
trace "argtype (for arg $nargs): $argtype"
|
|
||||||
fi
|
|
||||||
|
|
||||||
# If we don't know what completion to do, then emit nothing. We
|
|
||||||
# expect that we are running with:
|
|
||||||
# complete -o default ...
|
|
||||||
# where "default" means: "Use Readline's default filename completion if
|
|
||||||
# the compspec generates no matches." This gives us the good filename
|
|
||||||
# completion, completion in subshells/backticks.
|
|
||||||
#
|
|
||||||
# The trade-off here is that we cannot explicitly have *no* completion.
|
|
||||||
if [[ "${word:0:1}" == '$' ]]; then
|
|
||||||
# "-o default" does *not* give us envvar completion apparently. This
|
|
||||||
# means that with '-A export' we are missing envvars like "PS1" et al.
|
|
||||||
compgen $compgen_opts -P '$' -A export -- "${word:1}"
|
|
||||||
elif [[ $argtype == "none" ]]; then
|
|
||||||
# TODO: want this hacky way to avoid completions for explicit none?
|
|
||||||
echo "(no completion)"
|
|
||||||
elif [[ $argtype == "directory" ]]; then
|
|
||||||
# XXX damnit... using 'complete -o default' means that no dir hits
|
|
||||||
# results in filenames matching. Arrrrgggg. Compare to 'rmdir'.
|
|
||||||
# Does `compopt` work on Linux? If so
|
|
||||||
# compopt +o filenames -o dirnames
|
|
||||||
compgen $compgen_opts -S '/' -A directory -- "$word"
|
|
||||||
elif [[ -z $argtype || $argtype == "file" ]]; then
|
|
||||||
# 'complete -o default' gives the best filename completion, at least
|
|
||||||
# on Mac. ... but we're not using 'complete -o default' here.
|
|
||||||
compgen $compgen_opts -S '/' -A file -- "$word"
|
|
||||||
else
|
|
||||||
# Custom completion types.
|
|
||||||
potentials=$($argtype "" "$word")
|
|
||||||
compgen $compgen_opts -W "$potentials" -- "$word"
|
|
||||||
fi
|
|
||||||
;;
|
|
||||||
*)
|
|
||||||
trace "unknown state: $state"
|
|
||||||
;;
|
|
||||||
esac
|
|
||||||
}
|
|
||||||
|
|
||||||
function _triton_account_complete() {
|
|
||||||
trace "XXX _triton_account_complete start"
|
|
||||||
COMPREPLY=( $(_dashdash_complete \
|
|
||||||
true \
|
|
||||||
"-h -j" \
|
|
||||||
"--help --json" \
|
|
||||||
"" \
|
|
||||||
-- "$*") )
|
|
||||||
}
|
|
||||||
|
|
||||||
function _triton_complete() {
|
|
||||||
COMPREPLY=( $(_dashdash_complete \
|
|
||||||
false \
|
|
||||||
"-h -v" \
|
|
||||||
"--version --help --verbose" \
|
|
||||||
"" \
|
|
||||||
"help account info keys create-instance instances instance instance-audit start-instance stop-instance reboot-instance ssh images image packages package" \
|
|
||||||
-- "${COMP_WORDS[@]}") )
|
|
||||||
}
|
|
||||||
|
|
||||||
complete -F _triton_complete triton
|
|
||||||
Reference in New Issue
Block a user