5d4fd9c8b8
It's a follow up patch for a previous patch "perf tool: Return all events as auto-completions after comma". With this patch, auto-completion can work well for events with a ':'. For example: root@skl:/tmp# perf stat -e block:block_<TAB> block:block_bio_backmerge block:block_rq_complete block:block_bio_bounce block:block_rq_insert block:block_bio_complete block:block_rq_issue block:block_bio_frontmerge block:block_rq_remap block:block_bio_queue block:block_rq_requeue block:block_bio_remap block:block_sleeprq block:block_dirty_buffer block:block_split block:block_getrq block:block_touch_buffer block:block_plug block:block_unplug root@skl:/tmp# perf stat -e block:block_rq_<TAB> block:block_rq_complete block:block_rq_issue block:block_rq_requeue block:block_rq_insert block:block_rq_remap root@skl:/tmp# perf stat -e block:block_rq_complete<TAB> block:block_rq_complete root@skl:/tmp# perf stat -e block:block_rq_complete Signed-off-by: Jin Yao <yao.jin@linux.intel.com> Tested-by: Arnaldo Carvalho de Melo <acme@redhat.com> Cc: Alexander Shishkin <alexander.shishkin@linux.intel.com> Cc: Andi Kleen <ak@linux.intel.com> Cc: Jiri Olsa <jolsa@kernel.org> Cc: Kan Liang <kan.liang@intel.com> Cc: Peter Zijlstra <peterz@infradead.org> Link: http://lkml.kernel.org/r/1513973758-19109-1-git-send-email-yao.jin@linux.intel.com Signed-off-by: Arnaldo Carvalho de Melo <acme@redhat.com>
298 lines
6.2 KiB
Bash
298 lines
6.2 KiB
Bash
# perf bash and zsh completion
|
|
# SPDX-License-Identifier: GPL-2.0
|
|
|
|
# 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
|
|
}
|
|
|
|
# Define preload_get_comp_words_by_ref="false", if the function
|
|
# __perf_get_comp_words_by_ref() is required instead.
|
|
preload_get_comp_words_by_ref="true"
|
|
|
|
if [ $preload_get_comp_words_by_ref = "true" ]; then
|
|
type _get_comp_words_by_ref &>/dev/null ||
|
|
preload_get_comp_words_by_ref="false"
|
|
fi
|
|
[ $preload_get_comp_words_by_ref = "true" ] ||
|
|
__perf_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
|
|
}
|
|
|
|
# Define preload__ltrim_colon_completions="false", if the function
|
|
# __perf__ltrim_colon_completions() is required instead.
|
|
preload__ltrim_colon_completions="true"
|
|
|
|
if [ $preload__ltrim_colon_completions = "true" ]; then
|
|
type __ltrim_colon_completions &>/dev/null ||
|
|
preload__ltrim_colon_completions="false"
|
|
fi
|
|
[ $preload__ltrim_colon_completions = "true" ] ||
|
|
__perf__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"
|
|
if [ $preload__ltrim_colon_completions = "true" ]; then
|
|
__ltrim_colon_completions $cur
|
|
else
|
|
__perf__ltrim_colon_completions $cur
|
|
fi
|
|
}
|
|
|
|
__perf_prev_skip_opts ()
|
|
{
|
|
local i cmd_ cmds_
|
|
|
|
let i=cword-1
|
|
cmds_=$($cmd $1 --list-cmds)
|
|
prev_skip_opts=()
|
|
while [ $i -ge 0 ]; do
|
|
if [[ ${words[i]} == $1 ]]; then
|
|
return
|
|
fi
|
|
for cmd_ in $cmds_; do
|
|
if [[ ${words[i]} == $cmd_ ]]; then
|
|
prev_skip_opts=${words[i]}
|
|
return
|
|
fi
|
|
done
|
|
((i--))
|
|
done
|
|
}
|
|
|
|
__perf_main ()
|
|
{
|
|
local cmd
|
|
|
|
cmd=${words[0]}
|
|
COMPREPLY=()
|
|
|
|
# Skip options backward and find the last perf command
|
|
__perf_prev_skip_opts
|
|
# List perf subcommands or long options
|
|
if [ -z $prev_skip_opts ]; then
|
|
if [[ $cur == --* ]]; then
|
|
cmds=$($cmd --list-opts)
|
|
else
|
|
cmds=$($cmd --list-cmds)
|
|
fi
|
|
__perfcomp "$cmds" "$cur"
|
|
# List possible events for -e option
|
|
elif [[ $prev == @("-e"|"--event") &&
|
|
$prev_skip_opts == @(record|stat|top) ]]; then
|
|
|
|
local cur1=${COMP_WORDS[COMP_CWORD]}
|
|
local raw_evts=$($cmd list --raw-dump)
|
|
local arr s tmp result
|
|
|
|
if [[ "$cur1" == */* && ${cur1#*/} =~ ^[A-Z] ]]; then
|
|
OLD_IFS="$IFS"
|
|
IFS=" "
|
|
arr=($raw_evts)
|
|
IFS="$OLD_IFS"
|
|
|
|
for s in ${arr[@]}
|
|
do
|
|
if [[ "$s" == *cpu/* ]]; then
|
|
tmp=${s#*cpu/}
|
|
result=$result" ""cpu/"${tmp^^}
|
|
else
|
|
result=$result" "$s
|
|
fi
|
|
done
|
|
|
|
evts=${result}" "$(ls /sys/bus/event_source/devices/cpu/events)
|
|
else
|
|
evts=${raw_evts}" "$(ls /sys/bus/event_source/devices/cpu/events)
|
|
fi
|
|
|
|
if [[ "$cur1" == , ]]; then
|
|
__perfcomp_colon "$evts" ""
|
|
else
|
|
__perfcomp_colon "$evts" "$cur1"
|
|
fi
|
|
else
|
|
# List subcommands for perf commands
|
|
if [[ $prev_skip_opts == @(kvm|kmem|mem|lock|sched|
|
|
|data|help|script|test|timechart|trace) ]]; then
|
|
subcmds=$($cmd $prev_skip_opts --list-cmds)
|
|
__perfcomp_colon "$subcmds" "$cur"
|
|
fi
|
|
# List long option names
|
|
if [[ $cur == --* ]]; then
|
|
subcmd=$prev_skip_opts
|
|
__perf_prev_skip_opts $subcmd
|
|
subcmd=$subcmd" "$prev_skip_opts
|
|
opts=$($cmd $subcmd --list-opts)
|
|
__perfcomp "$opts" "$cur"
|
|
fi
|
|
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()
|
|
{
|
|
if [[ "$COMP_WORDBREAKS" != *,* ]]; then
|
|
COMP_WORDBREAKS="${COMP_WORDBREAKS},"
|
|
export COMP_WORDBREAKS
|
|
fi
|
|
|
|
if [[ "$COMP_WORDBREAKS" == *:* ]]; then
|
|
COMP_WORDBREAKS="${COMP_WORDBREAKS/:/}"
|
|
export COMP_WORDBREAKS
|
|
fi
|
|
|
|
local cur words cword prev
|
|
if [ $preload_get_comp_words_by_ref = "true" ]; then
|
|
_get_comp_words_by_ref -n =:, cur words cword prev
|
|
else
|
|
__perf_get_comp_words_by_ref -n =:, cur words cword prev
|
|
fi
|
|
__perf_main
|
|
} &&
|
|
|
|
complete -o bashdefault -o default -o nospace -F _perf perf 2>/dev/null \
|
|
|| complete -o default -o nospace -F _perf perf
|