URI: 

       tstack - plan9port - [fork] Plan 9 from user space
  HTML git clone git://src.adamsgaard.dk/plan9port
   DIR Log
   DIR Files
   DIR Refs
   DIR README
   DIR LICENSE
       ---
       tstack (300B)
       ---
            1 #!/usr/local/plan9/bin/rc
            2 
            3 if(~ $#* 0)
            4         pid=core
            5 if not
            6         pid=$1
            7 shift
            8 if(! ~ $pid [0-9] [0-9]*[0-9] */core *.core core.* */core.* core){
            9         name=$pid
           10         pid=`{psu|awk '$NF=="'$name'" {print $2}'}
           11         if(~ $#pid 0){
           12                 echo 'stack: no process '$name
           13                 exit none
           14         }
           15 }
           16 for(p in $pid)
           17         echo '$c' | 9 db -q $p $*