harvey/rc/bin/dontkill

#!/bin/rc
# dontkill regexp - mark invoker's processes with names matching regexp
#	as not killable when the kernel runs out of memory
if (! ~ $#* 1) {
	echo $0 regexp >[1=2]
	exit usage
}
cd /proc
# see /sys/src/9/port/proc.c:/^killbig
#pids=`{psu | awk '$NF ~ /'$1'/ {print $2}'}
pattern=`{echo $1  | sed 's/^^/ /'}
pids=`{psu | grep $pattern | field 2}
~ $#pids 0 || chmod -w $pids^/ctl >[2]/dev/null