ref: 03baa934bacdbf48e9e8e94711e6687e6bb1fb30
dir: /bin/lstk/
#!/bin/rc
rfork n
print=()
if(~ $1 -p){
print=1
shift
}
if(~ $#* 0)
p=Broken
if not{
p=$1
shift
}
ps -a | grep $p | grep -v 'grep '^$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
}
echo scroll >/mnt/wsys/wctl
if(! ~ $#print 0){
echo lstk'()' | acid -lthread $p
echo acid -lthread -lpool $* $p
}
if not{
{echo lstk'()'; cat} | acid -q -lthread -lpool $* $p
}