271 lines
8.8 KiB
Bash
271 lines
8.8 KiB
Bash
# This function is required by _dpkg() and _dpkg-reconfigure()
|
|
have dpkg && {
|
|
have grep-status && {
|
|
_comp_dpkg_installed_packages()
|
|
{
|
|
grep-status -P -e "^$1" -a -FStatus 'install ok installed' -n -s Package
|
|
}
|
|
} || {
|
|
_comp_dpkg_installed_packages()
|
|
{
|
|
command grep -A 1 "Package: $1" /var/lib/dpkg/status | \
|
|
command grep -B 1 -Ee "ok installed|half-installed|unpacked| \
|
|
half-configured|config-files" \
|
|
-Ee "^Essential: yes" | \
|
|
command grep "Package: $1" | cut -d\ -f2
|
|
}
|
|
}
|
|
|
|
# Debian dpkg(8) completion
|
|
#
|
|
_dpkg()
|
|
{
|
|
local cur prev i
|
|
|
|
COMPREPLY=()
|
|
cur=`_get_cword`
|
|
prev=${COMP_WORDS[COMP_CWORD-1]}
|
|
i=$COMP_CWORD
|
|
|
|
_expand || return 0
|
|
|
|
_split_longopt
|
|
|
|
# find the last option flag
|
|
if [[ $cur != -* ]]; then
|
|
while [[ $prev != -* && $i != 1 ]]; do
|
|
i=$((i-1))
|
|
prev=${COMP_WORDS[i-1]}
|
|
done
|
|
fi
|
|
|
|
case $prev in
|
|
-c|-i|-A|-I|-f|-e|-x|-X|-W|--install|--unpack|--record-avail| \
|
|
--contents|--info|--fsys-tarfile|--field|--control|--extract| \
|
|
--show)
|
|
_filedir '?(u)deb'
|
|
return 0
|
|
;;
|
|
-b|--build)
|
|
_filedir -d
|
|
return 0
|
|
;;
|
|
-s|-p|-l|--status|--print-avail|--list)
|
|
COMPREPLY=( $( apt-cache pkgnames "$cur" 2>/dev/null ) )
|
|
return 0
|
|
;;
|
|
-S|--search)
|
|
_filedir
|
|
return 0
|
|
;;
|
|
-r|-L|-P|--remove|--purge|--listfiles)
|
|
COMPREPLY=( $( _comp_dpkg_installed_packages "$cur" ) )
|
|
return 0
|
|
;;
|
|
*)
|
|
COMPREPLY=( $( compgen -W '-i --install --unpack -A --record-avail \
|
|
--configure -r --remove -P --purge --get-selections \
|
|
--set-selections --update-avail --merge-avail \
|
|
--clear-avail --command-fd --forget-old-unavail -s \
|
|
--status -p --print-avail -L --listfiles -l --list \
|
|
-S --search -C --audit --print-architecture \
|
|
--print-gnu-build-architecture \
|
|
--print-installation-architecture \
|
|
--compare-versions --help --version --force-help \
|
|
--force-all --force-auto-select --force-downgrade \
|
|
--force-configure-any --force-hold --force-bad-path \
|
|
--force-not-root --force-overwrite \
|
|
--force-overwrite-diverted --force-bad-verify \
|
|
--force-depends-version --force-depends \
|
|
--force-confnew --force-confold --force-confdef \
|
|
--force-confmiss --force-conflicts --force-architecture\
|
|
--force-overwrite-dir --force-remove-reinstreq \
|
|
--force-remove-essential -Dh \
|
|
--debug=help --licence --admindir --root --instdir \
|
|
-O --selected-only -E --skip-same-version \
|
|
-G --refuse-downgrade -B --auto-deconfigure \
|
|
--no-debsig --no-act -D --debug --status-fd \
|
|
-b --build -I --info -f --field -c --contents \
|
|
-x --extract -X --vextract --fsys-tarfile -e --control \
|
|
--ignore-depends --abort-after' -- "$cur" ) )
|
|
;;
|
|
esac
|
|
|
|
|
|
}
|
|
complete -F _dpkg -o filenames dpkg dpkg-deb
|
|
}
|
|
|
|
# Debian GNU dpkg-reconfigure(8) completion
|
|
#
|
|
have dpkg-reconfigure &&
|
|
_dpkg_reconfigure()
|
|
{
|
|
local cur prev opt
|
|
|
|
COMPREPLY=()
|
|
cur=`_get_cword`
|
|
prev=${COMP_WORDS[COMP_CWORD-1]}
|
|
|
|
|
|
case $prev in
|
|
-f|--frontend)
|
|
opt=( $( printf '%s\n' /usr/share/perl5/Debconf/FrontEnd/* ) )
|
|
opt=( ${opt[@]##*/} )
|
|
opt=( ${opt[@]%.pm} )
|
|
COMPREPLY=( $( compgen -W '${opt[@]}' -- "$cur" ) )
|
|
return 0
|
|
;;
|
|
-p|--priority)
|
|
COMPREPLY=( $( compgen -W 'low medium high critical' -- "$cur" ) )
|
|
return 0
|
|
;;
|
|
esac
|
|
|
|
if [[ "$cur" == -* ]]; then
|
|
COMPREPLY=( $( compgen -W '-f --frontend -p --priority -a --all -u \
|
|
--unseen-only -h --help -s --showold --force --terse' -- "$cur" ) )
|
|
else
|
|
COMPREPLY=( $( _comp_dpkg_installed_packages "$cur" ) )
|
|
fi
|
|
} &&
|
|
complete -F _dpkg_reconfigure -o default dpkg-reconfigure
|
|
|
|
# Debian dpkg-source completion
|
|
#
|
|
have dpkg-source &&
|
|
_dpkg_source()
|
|
{
|
|
local cur prev options work i action packopts unpackopts
|
|
|
|
packopts="-c -l -F -V -T -D -U -W -E -sa -i -I -sk -sp -su -sr -ss -sn -sA -sK -sP -sU -sR"
|
|
unpackopts="-sp -sn -su"
|
|
options=`echo "-x -b $packopts $unpackopts" | xargs echo | sort -u | xargs echo`
|
|
|
|
COMPREPLY=()
|
|
if [ "$1" != "dpkg-source" ]; then
|
|
return 1
|
|
fi
|
|
cur=`_get_cword`
|
|
prev=${COMP_WORDS[COMP_CWORD-1]}
|
|
action="options"
|
|
for (( i=0; i < ${#COMP_WORDS[@]}-1; i++ )); do
|
|
if [[ ${COMP_WORDS[$i]} == "-x" ]]; then
|
|
action=unpack
|
|
elif [[ ${COMP_WORDS[$i]} == "-b" ]]; then
|
|
action=pack
|
|
elif [[ ${COMP_WORDS[$i]} == "-h" ]]; then
|
|
action=help
|
|
fi
|
|
done
|
|
# if currently seeing a complete option, return just itself.
|
|
for i in $options; do
|
|
if [ "$cur" = "$i" ]; then
|
|
COMPREPLY=( "$cur" )
|
|
return 0
|
|
fi
|
|
done
|
|
case $action in
|
|
unpack)
|
|
if [[ "$cur" == - || "$cur" == -s ]]; then
|
|
COMPREPLY=( $unpackopts )
|
|
return 0
|
|
fi
|
|
case $prev in
|
|
-x)
|
|
COMPREPLY=( $( compgen -d -- "$cur" ) \
|
|
$( compgen -f -X '!*.dsc' -- "$cur" ) )
|
|
return 0
|
|
;;
|
|
*)
|
|
COMPREPLY=( $unpackopts $(compgen -d -f -- "$cur" ) )
|
|
return 0
|
|
;;
|
|
esac
|
|
return 0
|
|
;;
|
|
pack)
|
|
if [ "$cur" = "-" ]; then
|
|
COMPREPLY=( $packopts )
|
|
return 0
|
|
fi
|
|
if [ "$cur" = "-s" ]; then
|
|
COMPREPLY=( "-sa" "-sk" "-sp" "-su" "-sr" "-ss" "-sn" \
|
|
"-sA" "-sK" "-sP" "-sU" "-sR" )
|
|
return 0
|
|
fi
|
|
case $prev in
|
|
-b)
|
|
COMPREPLY=( $( compgen -d -- "$cur" ) )
|
|
return 0
|
|
;;
|
|
-c|-l|-T|-i|-I)
|
|
# -c: get controlfile
|
|
# -l: get per-version info from this file
|
|
# -T: read variables here, not debian/substvars
|
|
# -i: <regexp> filter out files to ignore diffs of.
|
|
# -I: filter out files when building tarballs.
|
|
# return directory names and file names
|
|
COMPREPLY=( $( compgen -d -f ) )
|
|
return 0
|
|
;;
|
|
-F)
|
|
# -F: force change log format
|
|
COMPREPLY=( $( ( cd /usr/lib/dpkg/parsechangelog; compgen -f "$cur" ) ) )
|
|
return 0
|
|
;;
|
|
-V|-D)
|
|
# -V: set a substitution variable
|
|
# we don't know anything about possible variables or values
|
|
# so we don't try to suggest any completion.
|
|
COMPREPLY=()
|
|
return 0
|
|
;;
|
|
-D)
|
|
# -D: override or add a .dsc field and value
|
|
# if $cur doesn't contain a = yet, suggest variable names
|
|
if [[ "$cur" == *=* ]]; then
|
|
# $cur contains a "="
|
|
COMPREPLY=()
|
|
return 0
|
|
else
|
|
COMPREPLY=( Format Source Version Binary Maintainer Uploader Architecture Standards-Version Build-Depends Files )
|
|
return 0
|
|
fi
|
|
;;
|
|
-U)
|
|
# -U: remove a field
|
|
# Suggest possible fieldnames
|
|
COMPREPLY=( Format Source Version Binary Maintainer Uploader Architecture Standards-Version Build-Depends Files )
|
|
return 0
|
|
;;
|
|
*)
|
|
COMPREPLY=( $packopts )
|
|
return 0
|
|
;;
|
|
esac
|
|
return 0
|
|
;;
|
|
*)
|
|
# if seeing a partial option, return possible completions.
|
|
if [ "$cur" = "-s" ]; then
|
|
COMPREPLY=( "-sa" "-sk" "-sp" "-su" "-sr" "-ss" "-sn" \
|
|
"-sA" "-sK" "-sP" "-sU" "-sR" )
|
|
return 0
|
|
fi
|
|
# else return all possible options.
|
|
COMPREPLY=( $options )
|
|
return 0
|
|
;;
|
|
esac
|
|
} &&
|
|
complete -F _dpkg_source dpkg-source
|
|
|
|
# Local variables:
|
|
# mode: shell-script
|
|
# sh-basic-offset: 4
|
|
# sh-indent-comment: t
|
|
# indent-tabs-mode: nil
|
|
# End:
|
|
# ex: ts=4 sw=4 et filetype=sh
|