Subversion Repositories configs

# perf bash and zsh completion

# Taken from git.git's completion script.
__my_reassemble_comp_words_by_ref()
{
        local exclude i j first
        # Which word separators to exclude?
        exclude="${1//[^$COMP_WORDBREAKS]}"
        cword_=$COMP_CWORD
        if [ -z "$exclude" ]; then
                words_=("${COMP_WORDS[@]}")
                return
        fi
        # List of word completion separators has shrunk;
        # re-assemble words to complete.
        for ((i=0, j=0; i < ${#COMP_WORDS[@]}; i++, j++)); do
                # Append each nonempty word consisting of just
                # word separator characters to the current word.
                first=t
                while
                        [ $i -gt 0 ] &&
                        [ -n "${COMP_WORDS[$i]}" ] &&
                        # word consists of excluded word separators
                        [ "${COMP_WORDS[$i]//[^$exclude]}" = "${COMP_WORDS[$i]}" ]
                do
                        # Attach to the previous token,
                        # unless the previous token is the command name.
                        if [ $j -ge 2 ] && [ -n "$first" ]; then
                                ((j--))
                        fi
                        first=
                        words_[$j]=${words_[j]}${COMP_WORDS[i]}
                        if [ $i = $COMP_CWORD ]; then
                                cword_=$j
                        fi
                        if (($i < ${#COMP_WORDS[@]} - 1)); then
                                ((i++))
                        else
                                # Done.
                                return
                        fi
                done
                words_[$j]=${words_[j]}${COMP_WORDS[i]}
                if [ $i = $COMP_CWORD ]; then
                        cword_=$j
                fi
        done
}

type _get_comp_words_by_ref &>/dev/null ||
_get_comp_words_by_ref()
{
        local exclude cur_ words_ cword_
        if [ "$1" = "-n" ]; then
                exclude=$2
                shift 2
        fi
        __my_reassemble_comp_words_by_ref "$exclude"
        cur_=${words_[cword_]}
        while [ $# -gt 0 ]; do
                case "$1" in
                cur)
                        cur=$cur_
                        ;;
                prev)
                        prev=${words_[$cword_-1]}
                        ;;
                words)
                        words=("${words_[@]}")
                        ;;
                cword)
                        cword=$cword_
                        ;;
                esac
                shift
        done
}

type __ltrim_colon_completions &>/dev/null ||
__ltrim_colon_completions()
{
        if [[ "$1" == *:* && "$COMP_WORDBREAKS" == *:* ]]; then
                # Remove colon-word prefix from COMPREPLY items
                local colon_word=${1%"${1##*:}"}
                local i=${#COMPREPLY[*]}
                while [[ $((--i)) -ge 0 ]]; do
                        COMPREPLY[$i]=${COMPREPLY[$i]#"$colon_word"}
                done
        fi
}

__perfcomp ()
{
        COMPREPLY=( $( compgen -W "$1" -- "$2" ) )
}

__perfcomp_colon ()
{
        __perfcomp "$1" "$2"
        __ltrim_colon_completions $cur
}

__perf_main ()
{
        local cmd

        cmd=${words[0]}
        COMPREPLY=()

        # List perf subcommands or long options
        if [ $cword -eq 1 ]; then
                if [[ $cur == --* ]]; then
                        __perfcomp '--help --version \
                        --exec-path --html-path --paginate --no-pager \
                        --perf-dir --work-tree --debugfs-dir' -- "$cur"
                else
                        cmds=$($cmd --list-cmds)
                        __perfcomp "$cmds" "$cur"
                fi
        # List possible events for -e option
        elif [[ $prev == "-e" && "${words[1]}" == @(record|stat|top) ]]; then
                evts=$($cmd list --raw-dump)
                __perfcomp_colon "$evts" "$cur"
        # List subcommands for perf commands
        elif [[ $prev == @(kvm|kmem|mem|lock|sched) ]]; then
                subcmds=$($cmd $prev --list-cmds)
                __perfcomp_colon "$subcmds" "$cur"
        # List long option names
        elif [[ $cur == --* ]];  then
                subcmd=${words[1]}
                opts=$($cmd $subcmd --list-opts)
                __perfcomp "$opts" "$cur"
        fi
}

if [[ -n ${ZSH_VERSION-} ]]; then
        autoload -U +X compinit && compinit

        __perfcomp ()
        {
                emulate -L zsh

                local c IFS=$' \t\n'
                local -a array

                for c in ${=1}; do
                        case $c in
                        --*=*|*.) ;;
                        *) c="$c " ;;
                        esac
                        array[${#array[@]}+1]="$c"
                done

                compset -P '*[=:]'
                compadd -Q -S '' -a -- array && _ret=0
        }

        __perfcomp_colon ()
        {
                emulate -L zsh

                local cur_="${2-$cur}"
                local c IFS=$' \t\n'
                local -a array

                if [[ "$cur_" == *:* ]]; then
                        local colon_word=${cur_%"${cur_##*:}"}
                fi

                for c in ${=1}; do
                        case $c in
                        --*=*|*.) ;;
                        *) c="$c " ;;
                        esac
                        array[$#array+1]=${c#"$colon_word"}
                done

                compset -P '*[=:]'
                compadd -Q -S '' -a -- array && _ret=0
        }

        _perf ()
        {
                local _ret=1 cur cword prev
                cur=${words[CURRENT]}
                prev=${words[CURRENT-1]}
                let cword=CURRENT-1
                emulate ksh -c __perf_main
                let _ret && _default && _ret=0
                return _ret
        }

        compdef _perf perf
        return
fi

type perf &>/dev/null &&
_perf()
{
        local cur words cword prev
        _get_comp_words_by_ref -n =: cur words cword prev
        __perf_main
} &&

complete -o bashdefault -o default -o nospace -F _perf perf 2>/dev/null \
        || complete -o default -o nospace -F _perf perf