blob: caec18fa3f565a2a9cba4dbe1a0e6eccf6f2df8e (
plain)
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
38
39
40
41
42
43
44
45
|
# -*- mode: shell-script; sh-basic-offset: 8; indent-tabs-mode: t -*-
# ex: ts=8 sw=8 noet filetype=sh
#
# bash completion for cpan2dist
have cpan2dist &&
_cpan2dist()
{
local cur prev packagelist cpandirs
COMPREPLY=()
cur=`_get_cword`
prev=${COMP_WORDS[COMP_CWORD-1]}
case $prev in
--format)
# should remove ":" from COMP_WORDBREAKS, but doesn't work (?)
COMPREPLY=( $( compgen -W '$(perl -MCPANPLUS::Dist -e "print map { \"\$_\n\" } CPANPLUS::Dist->dist_types")' -- "$cur" ) )
return 0
;;
--@(banlist|ignorelist|modulelist|logfile))
_filedir
return 0
;;
esac
if [[ "$cur" == -* ]]; then
COMPREPLY=( $( compgen -W '--help --skiptest --force --install \
--verbose --keepsource --makefile --buildprereq \
--archive --flushcache --defaults --edit-metafile \
--format --ban --banlist --ignore --ignorelist \
--modulelist --logfile --timeout --set-config \
--set-program --dist-opts --default-banlist \
--default-ignorelist' -- $cur ) )
else
cpandirs=( "$HOME/.cpanplus/" "$HOME/.cpan/source/modules/" )
for dir in ${cpandirs[@]}; do
[ -d "$dir" -a -r "$dir/02packages.details.txt.gz" ] && packagelist="$dir/02packages.details.txt.gz"
done
COMPREPLY=( $( zgrep "^${cur//-/::}" \
$packagelist 2>/dev/null \
| awk '{print $1}' | sed -e 's/::/-/g' ) )
fi
} &&
complete -F _cpan2dist $default cpan2dist
|
