Quelle  probe_vfs_getname.sh   Sprache: Shell

#!/bin/bash
# Arnaldo Carvalho de Melo <acme@kernel.org>, 2017

perf probe -l 2>&1 | grep -q probe:vfs_getname
had_vfs_getname=$?

cleanup_probe_vfs_getname() {
 if [ $had_vfs_getname -eq 1 ] ; then
  perf probe -q -d probe:vfs_getname*
 fi
}

add_probe_vfs_getname() {
 add_probe_verbose=$1
 if [ $had_vfs_getname -eq 1 ] ; then
  result_initname_re="[[:space:]]+([[:digit:]]+)[[:space:]]+initname.*"
  line=$(perf probe -L getname_flags 2>&1 | grep -E "$result_initname_re" | sed -r "s/$result_initname_re/\1/")

  # Search the old regular expressions so that this will
  # pass on older kernels as well.
  if [ -z "$line" ] ; then
   result_filename_re="[[:space:]]+([[:digit:]]+)[[:space:]]+result->uptr.*"
   line=$(perf probe -L getname_flags 2>&1 | grep -E "$result_filename_re" | sed -r "s/$result_filename_re/\1/")
  fi

  if [ -z "$line" ] ; then
   result_aname_re="[[:space:]]+([[:digit:]]+)[[:space:]]+result->aname = NULL;"
   line=$(perf probe -L getname_flags 2>&1 | grep -E "$result_aname_re" | sed -r "s/$result_aname_re/\1/")
  fi

  if [ -z "$line" ] ; then
   echo "Could not find probeable line"
   return 2
  fi

  perf probe -q       "vfs_getname=getname_flags:${line} pathname=result->name:string" || \
  perf probe $add_probe_verbose "vfs_getname=getname_flags:${line} pathname=filename:ustring" || return 1
 fi
}

skip_if_no_debuginfo() {
 add_probe_vfs_getname -v 2>&1 | grep -E -q "^(Failed to find the path for the kernel|Debuginfo-analysis is not supported)|(file has no debug information)" && return 2
 return 1
}

# check if perf is compiled with libtraceevent support
skip_no_probe_record_support() {
 if [ $had_vfs_getname -eq 1 ] ; then
  perf check feature -q libtraceevent && return 1
  return 2
 fi
}