#! /bin/awk -f
# 2004 (GPL) Manfred Wassmann http://www.berlinos.de/
function pr(l,pfx)
{
	while(i=index(l," "))
	{
		p=substr(l,1,i)+0;
		l=substr(l,i+1);
		if(S[p]&&!pfx)continue;
		f="/proc/"p+0"/cmdline";
		c="["N[p]"]";getline c<f;
		printf"%5d %-4X %-6s %5d %5d %7d %s%s\n",p,T[p],X[p],V[p],R[p],A[p],pfx,c;
		if(C[p]){#print"C[p]:"C[p];
			pr(C[p]" ",pfx?"    "pfx:" \\_ ")}
	}
}

BEGIN{"cd /proc&&echo [1-9] [1-9][0-9] [1-9][0-9][0-9] [1-9][0-9][0-9][0-9] [1-9][0-9][0-9][0-9][0-9]"|getline l;
 l=l" ";while(i=index(l," ")){p=substr(l,1,i)+0;l=substr(l,i+1);if(p)ARGV[ARGC++]="/proc/"p"/stat"};
 TT[4]="tty/";TT[128]="pts/"}
{
	l=l" "$1+0;
	if($4>1){S[$1]=1;C[$4]=C[$4]?C[$4]" "$1:$1}#is child?
  gsub("^\(|\)$","",$2);N[$1]=$2;#name
	X[$1]=$3;#exec status
	T[$1]=$7;#tty dev no
	A[$1]=$22/100;#rel start time
	V[$1]=$23/1024;#virt size
	R[$1]=$24*4;#res set size
}
END{
	printf"%5s %-4s %-6s %5s %5s %7s %s\n",
	  "PID","TTY","STAT","VSZ","RSS","RSTART","CMD";
	l=substr(l,2);
	pr(l,"");
}