shithub: rc

ref: 5a4afb116aebf9d351283566a84f0e54e358cc65
dir: /bin/lstk/

View raw version
#!/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
}