# This function is required by _dpkg and _dpkg-reconfigure -*- shell-script -*-

_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" \
-Ee "^Essential: yes" | \
command grep "Package: $1" | cut -d\ -f2
}
}

_have grep-status && {
_comp_dpkg_purgeable_packages()
{
grep-status -P -e "^$1" -a -FStatus 'install ok installed' -o -FStatus 'deinstall ok config-files' -n -s Package
}
} || {
_comp_dpkg_purgeable_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(1) completion
#
_dpkg()
{
local cur prev words cword split
_init_completion -s || return

_expand || return 0

local i=$cword

# find the last option flag
if [[ $cur != -* ]]; then
while [[ $prev != -* && $i -ne 1 ]]; do
i=$((i-1))
prev=${words[i-1]}
done
fi

case $prev in
-c|-i|-A|-I|-f|-e|-x|-X|--install|--unpack|--record-avail| \
--contents|--info|--fsys-tarfile|--field|--control|--extract| \
--vextract)
_filedir '?(u|d)deb'
return 0
;;
-b|--build)
_filedir -d
return 0
;;
-s|-p|-l|-W|--status|--print-avail|--list|--show)
COMPREPLY=( $( apt-cache pkgnames "$cur" 2>/dev/null ) )
return 0
;;
-S|--search)
_filedir
return 0
;;
-r|--remove)
COMPREPLY=( $( _comp_dpkg_installed_packages "$cur" ) )
return 0
;;
-L|-P|--listfiles|--purge)
COMPREPLY=( $( _comp_dpkg_purgeable_packages "$cur" ) )
return 0
;;
esac

$split && return

COMPREPLY=( $( compgen -W '$( _parse_help "$1" )' -- "$cur" ) )
[[ $COMPREPLY == *= ]] && compopt -o nospace
} &&
complete -F _dpkg dpkg dpkg-query

# Debian dpkg-deb(1) completion
#
_dpkg_deb()
{
local cur prev words cword split
_init_completion -s || return

_expand || return 0

local i=$cword

# find the last option flag
if [[ $cur != -* ]]; then
while [[ $prev != -* && $i -ne 1 ]]; do
i=$((i-1))
prev=${words[i-1]}
done
fi

case $prev in
-c|-I|-W|-f|-e|-x|-X|-R|--contents|--info|--show|--field|--control| \
--extract|--vextract|--raw-extract|--fsys-tarfile)
_filedir '?(u|d)deb'
return 0
;;
-b|--build)
_filedir -d
return 0
;;
esac

$split && return

COMPREPLY=( $( compgen -W '$( _parse_help "$1" )' -- "$cur" ) )
[[ $COMPREPLY == *= ]] && compopt -o nospace
} &&
complete -F _dpkg_deb dpkg-deb

# Debian GNU dpkg-reconfigure(8) completion
#
_dpkg_reconfigure()
{
local cur prev words cword
_init_completion || return

local opt

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 '--frontend --priority --all --unseen-only
--help --showold --force --terse' -- "$cur" ) )
else
COMPREPLY=( $( _comp_dpkg_installed_packages "$cur" ) )
fi
} &&
complete -F _dpkg_reconfigure -o default dpkg-reconfigure

# ex: ts=4 sw=4 et filetype=sh