1 a4eeb3c1 2005-01-23 devnull #!/usr/local/plan9/bin/rc
 2 a4eeb3c1 2005-01-23 devnull 
 3 dd6c037b 2006-06-26 devnull pid=$1
 4 dd6c037b 2006-06-26 devnull shift
 5 dd6c037b 2006-06-26 devnull if(! ~ $pid [0-9] [0-9]*[0-9] */core *.core core.* */core.*){
 6 dd6c037b 2006-06-26 devnull 	name=$pid
 7 dd6c037b 2006-06-26 devnull 	pid=`{psu|awk '$NF=="'$name'" {print $2}'}
 8 dd6c037b 2006-06-26 devnull 	if(~ $#pid 0){
 9 dd6c037b 2006-06-26 devnull 		echo 'stack: no process '$name
10 dd6c037b 2006-06-26 devnull 		exit none
11 dd6c037b 2006-06-26 devnull 	}
12 dd6c037b 2006-06-26 devnull }
13 dd6c037b 2006-06-26 devnull for(p in $pid)
14 dd6c037b 2006-06-26 devnull 	echo '$c' | 9 db -q $p $*