### stack traces

alias init_i='declare i="${i-0}"'

alias next_stack_frame='let! i++'

# makes stack_trace() skip the entry for the caller

alias skip_stack_frame='init_i; next_stack_frame'

fi # load new aliases

if self_being_included; then

# usage: [i=#] get_stack_frame # i: 0-based index from top of stack

# to get all stack frames:

# init_i; while get_stack_frame; do use $func $file $line; next_stack_frame;done

# better than `caller` builtin because returns info in separate vars

get_stack_frame()

{

	skip_stack_frame; init_i

	# the extra FUNCNAME/BASH_LINENO entries have dummy values (main/0)

	func="${FUNCNAME[$i]}" # the called function, which = the current function

	file="${BASH_SOURCE[$i+1]}" # not the *current* file, but the call's file

	line="${BASH_LINENO[$i]}" # the line the function was called at

	test "$file" # exit false if invalid index

}

alias get_stack_frame='declare func file line && "get_stack_frame"'

	# && instead of ; so it can be used as a while cond