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 $*