From 77cfffee6177fb0421fa0fce15d6a1875bde4816 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?David=20W=C3=BChrer?= <def@gmx.at>
Date: Sat, 18 May 2024 21:04:34 +0200
Subject: manuals, sum-down, radix

---
 bin/pf | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100755 bin/pf

(limited to 'bin/pf')

diff --git a/bin/pf b/bin/pf
new file mode 100755
index 0000000..0358689
--- /dev/null
+++ b/bin/pf
@@ -0,0 +1,38 @@
+#!/bin/bash
+
+set -ue
+
+get_parent () {
+	ps hoppid p$1
+}
+
+get_children () {
+	ps hopid --ppid "$1"
+}
+
+get_ancestors () {
+	case $1 in
+		0|1|'')	:
+	;;	*)	get_ancestors $(get_parent $1)
+	esac
+	echo "$1"
+}
+
+get_descendents () {
+	for c in $(get_children "$1")
+	do	echo "$c"
+		get_descendents "$c"
+	done
+}
+
+declare -i p
+for p in "$@"
+do	
+	[[ $p -ne 0 ]] && {
+		get_ancestors "$p"
+		get_descendents "$p"
+	} | {
+		readarray -t pids
+		ps -Hf "${pids[@]}" | sed "/^[^ ]* *$p /s/.*/&/"
+	}
+done
-- 
cgit v1.2.3