Blob
1 #!/usr/local/plan9/bin/rc3 if(~ $#* 0)4 pid=core5 if not6 pid=$17 shift8 if(! ~ $pid [0-9] [0-9]*[0-9] */core *.core core.* */core.* core){9 name=$pid10 pid=`{psu|awk '$NF=="'$name'" {print $2}'}11 if(~ $#pid 0){12 echo 'stack: no process '$name13 exit none14 }15 }16 for(p in $pid)17 echo '$c' | 9 db -q $p $*