summaryrefslogtreecommitdiffstats
path: root/completions/perl
blob: 9823d7307ec15a560496db3b02650536a21de450 (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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
# bash completion for perl                                 -*- shell-script -*-

_perl_helper()
{
    COMPREPLY=($(compgen -P "$prefix" -W \
        "$(${2:-perl} ${BASH_SOURCE[0]%/*}/../helpers/perl $1 $cur)" \
        -- "$cur"))
    [[ $1 == functions ]] || __ltrim_colon_completions "$prefix$cur"
}

_perl()
{
    local cur prev words cword
    _init_completion -n : || return

    local prefix="" temp optPrefix optSuffix

    # If option not followed by whitespace, reassign prev and cur
    if [[ $cur == -?* ]]; then
        temp=$cur
        prev=${temp:0:2}
        cur=${temp:2}
        if [[ $prev == -d && $cur == t* ]]; then
            prev=-dt
            cur=${cur:1}
        fi
        optPrefix=-P$prev
        optSuffix=-S/
        prefix=$prev

        case $prev in
            -*[DeEiFl])
                return
                ;;
            -*[Ix])
                local IFS=$'\n'
                compopt -o filenames
                COMPREPLY=($(compgen -d $optPrefix $optSuffix -- "$cur"))
                return
                ;;
            -*[mM])
                temp="${cur#-}"
                prefix+="${cur%$temp}"
                cur="$temp"
                _perl_helper modules $1
                return
                ;;
            -*V)
                if [[ $cur == :* ]]; then
                    temp="${cur##+(:)}"
                    prefix+="${cur%$temp}"
                    local IFS=$'\n'
                    COMPREPLY=($(compgen -P "$prefix" -W \
                        '$($1 -MConfig -e "print join \"\\n\",
                           keys %Config::Config" 2>/dev/null)' -- "$temp"))
                    __ltrim_colon_completions "$prefix$temp"
                fi
                return
                ;;
            -*d | -*dt)
                if [[ $cur == :* ]]; then
                    temp="${cur#:}"
                    prefix="$prefix${cur%$temp}"
                    cur="Devel::$temp"
                    _perl_helper modules $1
                fi
                ;;
        esac

    # Unlike other perl options, having a space between the `-e' and
    # `-E' options and their arguments, e.g. `perl -e "exit 2"', is
    # valid syntax.  However, the argument is neither a filename nor a
    # directory, but one line of perl program, thus do not suggest
    # _filedir completion.
    elif [[ $prev == -e ]] || [[ $prev == -E ]]; then
        return

    # Likewise, `-I' also accepts a space between option and argument
    # and it takes a directory as value.
    elif [[ $prev == -I ]]; then
        local IFS=$'\n'
        compopt -o filenames
        COMPREPLY=($(compgen -d ${optPrefix-} ${optSuffix-} -- "$cur"))
        return

    elif [[ $cur == -* ]]; then
        COMPREPLY=($(compgen -W '-C -s -T -u -U -W -X -h -v -V -c -w -d -D -p
            -n -a -F -l -0 -I -m -M -P -S -x -i -e' -- "$cur"))
    else
        _filedir
    fi
} &&
    complete -F _perl perl

_perldoc()
{
    local cur prev words cword
    _init_completion -n : || return

    local prefix="" temp

    # completing an option (may or may not be separated by a space)
    if [[ $cur == -?* ]]; then
        temp=$cur
        prev=${temp:0:2}
        cur=${temp:2}
        prefix=$prev
    fi

    local perl="${1%doc}"
    [[ $perl == "$1" ]] || ! type $perl &>/dev/null && perl=

    case $prev in
        -*[hVnoMwL])
            return
            ;;
        -*d)
            _filedir
            return
            ;;
        -*f)
            _perl_helper functions $perl
            return
            ;;
    esac

    if [[ $cur == -* ]]; then
        COMPREPLY=($(compgen -W '$(_parse_help "$1" -h)' -- "$cur"))
    else
        # return available modules (unless it is clearly a file)
        if [[ $cur != @(*/|[.~])* ]]; then
            _perl_helper perldocs $perl
            if [[ $cur == p* ]]; then
                COMPREPLY+=($(compgen -W \
                    '$(PERLDOC_PAGER=cat "$1" -u perl |  \
                       command sed -ne "/perl.*Perl overview/,/perlwin32/p" | \
                       awk "\$NF=2 && \$1 ~ /^perl/ { print \$1 }")' \
                    -- "$cur"))
            fi
        fi
        _filedir 'p@([lm]|od)'
    fi
} &&
    complete -F _perldoc -o bashdefault perldoc

# ex: filetype=sh