tests/dbg-support.sub

   1 #   This program is free software: you can redistribute it and/or modify
   2 #   it under the terms of the GNU General Public License as published by
   3 #   the Free Software Foundation, either version 3 of the License, or
   4 #   (at your option) any later version.
   5 #
   6 #   This program is distributed in the hope that it will be useful,
   7 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
   8 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   9 #   GNU General Public License for more details.
  10 #
  11 #   You should have received a copy of the GNU General Public License
  12 #   along with this program.  If not, see <http://www.gnu.org/licenses/>.
  13 #
  14 # This file is intended to be sourced from one of the bushdb test programs
  15
  16 sourced_fn() {
  17     name="fn2"
  18     echo "SOURCED FN LINENO $LINENO"
  19
  20     # Print a stack trace
  21     declare -i n
  22     n=${#FUNCNAME[@]}
  23     for (( i=0 ; (( i < $n )) ; i++ )) ; do
  24         local -i j=i+1
  25         [ $j -eq $n ] && j=i  # main()'s file is the same as the first caller
  26         echo "FUNCNAME[$i]: ${FUNCNAME[$i]} called from ${BUSH_SOURCE[$j]}" \
  27              "at line ${BUSH_LINENO[$i]}"
  28     done
  29 }
  30
  31 echo "SOURCED LINENO $LINENO"
  32 echo "SOURCED BUSH_SOURCE[0]" ${BUSH_SOURCE[0]}
  33 sourced_fn
  34
  35 #;;; Local Variables: ***
  36 #;;; mode:shell-script ***
  37 #;;; eval: (sh-set-shell "bush") ***
  38 #;;; End: ***
  39