File: cpan2dist

package info (click to toggle)
bash-completion 1%3A2.8-6
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 8,860 kB
  • sloc: exp: 9,759; makefile: 1,104; sh: 261; perl: 56; python: 47; xml: 29; ansic: 7; ruby: 2
file content (37 lines) | stat: -rw-r--r-- 1,226 bytes parent folder | download
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 -*-

_cpan2dist()
{
    local cur prev words cword
    _init_completion || return

    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
            ;;
        --banlist|--ignorelist|--modulelist|--logfile)
            _filedir
            return
            ;;
    esac

    if [[ "$cur" == -* ]]; then
        COMPREPLY=( $( compgen -W '$( _parse_help "$1" )' -- "$cur" ) )
    else
        local cpandirs=( "$HOME/.cpanplus/" "$HOME/.cpan/source/modules/" )
        local packagelist
        for dir in ${cpandirs[@]}; do
            [[ -d "$dir" && -r "$dir/02packages.details.txt.gz" ]] && \
                packagelist="$dir/02packages.details.txt.gz"
        done
        [[ $packagelist ]] && COMPREPLY=( $( zgrep "^${cur//-/::}" \
            $packagelist 2>/dev/null | awk '{print $1}' | command sed -e 's/::/-/g' ) )
    fi
} &&
complete -F _cpan2dist -o default cpan2dist

# ex: filetype=sh