/usr/web/sources/plan9/rc/bin/broke - Plan 9 from Bell Labs

Plan 9 from Bell Labs’s /usr/web/sources/plan9/rc/bin/broke


#!/bin/rc
U=`{cat /dev/user}
if(~ $#* 1){
	U=$1
}
ps | sed -n '/^'$U' .* Broken/s%[^ ]*  *%~>/proc/%
s%  *.* (.*)%/ctl # \1%
s%~%echo kill%p'