1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
# bash completion for cpan2dist -*- shell-script -*-
_comp_cmd_cpan2dist()
{
local cur prev words cword comp_args
_comp_initialize -- "$@" || return
case $prev in
--format)
# should remove ":" from COMP_WORDBREAKS, but doesn't work (?)
_comp_compgen_split -- "$(perl -MCPANPLUS::Dist -e \
'print map { "$_n" } CPANPLUS::Dist->dist_types')"
return
;;
--banlist | --ignorelist | --modulelist | --logfile)
_comp_compgen_filedir
return
;;
esac
if [[ $cur == -* ]]; then
_comp_compgen_help
else
local cpandirs=("$HOME/.cpanplus/" "$HOME/.cpan/source/modules/")
local dir packagelist=
for dir in "${cpandirs[@]}"; do
[[ -d $dir && -r "$dir/02packages.details.txt.gz" ]] &&
packagelist="$dir/02packages.details.txt.gz"
done
[[ $packagelist ]] && _comp_split COMPREPLY "$(zgrep "^${cur//-/::}" \
"$packagelist" 2>/dev/null | _comp_awk '{print $1}' |
command sed -e 's/::/-/g')"
fi
} &&
complete -F _comp_cmd_cpan2dist -o default cpan2dist
# ex: filetype=sh
|
