wvtest-bash.sh

   1
   2 declare -a _wvbtstack
   3
   4 _wvpushcall()
   5 {
   6     _wvbtstack[${#_wvbtstack[@]}]="$*"
   7 }
   8
   9 _wvpopcall()
  10 {
  11     unset _wvbtstack[$((${#_wvbtstack[@]} - 1))]
  12 }
  13
  14 _wvbacktrace()
  15 {
  16     local i loc
  17     local call=$((${#_wvbtstack[@]} - 1))
  18     for ((i=0; i <= ${#FUNCNAME[@]}; i++)); do
  19         local name="${FUNCNAME[$i]}"
  20         if test "${name:0:2}" == WV; then
  21             loc="${BASH_SOURCE[$i+1]}:${BASH_LINENO[$i]}"
  22             echo "called from $loc ${FUNCNAME[$i]} ${_wvbtstack[$call]}" 1>&2
  23             ((call--))
  24         fi
  25     done
  26 }
  27
  28 _wvfind_caller()
  29 {
  30     WVCALLER_FILE=${BASH_SOURCE[2]}
  31     WVCALLER_LINE=${BASH_LINENO[1]}
  32 }