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