stockholm/bin/backtrace
2015-05-21 03:40:27 +02:00

33 lines
643 B
Bash
Executable File

#! /bin/sh
set -euf
exec >&2
pid=$$
while :; do
cd /proc/$pid
cmdline=$(cat cmdline | tr '\0' ' ' | sed 's/ $//')
ppid=$(grep PPid status | awk '{print$2}')
printf '%5d %s\n' $pid "$cmdline"
if [ $pid = 1 ]; then
break
else
pid=$ppid
fi
done \
| sed \
"$(printf '
s:\(/bin/sh \)%s/\([^ ]\+\):\e[32m\\2\e[m:g
s:%s/\([^ ]\+\):\e[32;1m\\1\e[m:g
' \
"$(dirname "$0" | bre-escape | sed 's/:/\\:/g')" \
"$(dirname "$0" | bre-escape | sed 's/:/\\:/g')" \
)" \
| tac
ps='Press ^C to abort: '
while :; do
printf '\e[K\e[31;1m%s\e[m' "$ps"
read -r _input
done