1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
function get_stack () {
# bash throws an error "Unbound variable" when dealing with empty arrays
set +u
STACK=""
# to avoid noise we start with $1 + 1 to skip get_stack caller
# (and other functions, if the user whishes to)
local skip
skip=$((${1} + 1))
local i
local stack_size=${#FUNCNAME[@]}
local argv_beg=0 # where arguments for current function begin
for (( i = 0; i < stack_size; ++i )); do
local func=${FUNCNAME[$i]}
local line=${BASH_LINENO[$i]}
local src=${BASH_SOURCE[$((i + 1))]}
local arguments_count=${BASH_ARGC[$i]:-0}
local args=()
local j
for (( j = argv_beg + arguments_count - 1; j >= argv_beg; --j )); do
# Cut the argument if it's really long (sometimes we use arguments
# longer than tens of kilobytes which span over many lines)
local arg="${BASH_ARGV[$j]}"
if (( ${#arg} > 150 )); then
arg="'${arg:0:150}'..."
else
arg="'$arg'"
fi
args+=("$arg")
done
argv_beg=$((argv_beg + arguments_count))
if (( i >= skip && line > 0 )); then
# join arguments with commas
local joined_args=$(IFS=, ; echo "${args[*]}")
STACK+="$(basename "$src"):$line $func(${joined_args})"$'\n'
fi
done
set -u
}
function print_stack () {
local skip
skip=$((${1:-0} + 1))
get_stack $skip # remove get_stack_echo from stack trace
# Print red message to the console
echo -n "$STACK"
unset STACK
}
|
