ref: 5a4afb116aebf9d351283566a84f0e54e358cc65
dir: /bin/lstk/
#!/bin/rc rfork n print=() if(~ $1 -p){ print=1 shift } if(~ $#* 0) p=Broken if not{ p=$1 shift } psd $p p=`{ps | awk -v 'P='^$p '$7 == P || $2 == P || $6 == P{ p=$2 } END{ print p }'} if(~ $#p 0){ echo no proc $p >[1=2] exit noproctohand } if(! ~ $#print 0){ echo lstk'()' | acid -lthread $p echo acid -lthread -lpool $* $p } if not{ {echo lstk'()'; cat} | acid -q -lthread -lpool $* $p }