backtrace: diverge

This commit is contained in:
tv 2015-05-21 03:40:27 +02:00
parent d41e3a5577
commit b27ec1aafa

View File

@ -1,10 +1,12 @@
#! /bin/sh #! /bin/sh
set -euf set -euf
exec >&2
pid=$$ pid=$$
while :; do while :; do
cd /proc/$pid cd /proc/$pid
cmdline=$(cat cmdline | sed 's/\0/ /g;s/ $//') cmdline=$(cat cmdline | tr '\0' ' ' | sed 's/ $//')
ppid=$(grep PPid status | awk '{print$2}') ppid=$(grep PPid status | awk '{print$2}')
printf '%5d %s\n' $pid "$cmdline" printf '%5d %s\n' $pid "$cmdline"
if [ $pid = 1 ]; then if [ $pid = 1 ]; then
@ -13,4 +15,18 @@ while :; do
pid=$ppid pid=$ppid
fi fi
done \ 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 | tac
ps='Press ^C to abort: '
while :; do
printf '\e[K\e[31;1m%s\e[m' "$ps"
read -r _input
done