187a56857SDavid du Colombier#!/bin/rc 287a56857SDavid du Colombier# dontkill regexp - mark invoker's processes with names matching regexp 387a56857SDavid du Colombier# as not killable when the kernel runs out of memory 487a56857SDavid du Colombierif (! ~ $#* 1) { 587a56857SDavid du Colombier echo $0 regexp >[1=2] 687a56857SDavid du Colombier exit usage 787a56857SDavid du Colombier} 8ea755f8cSDavid du Colombiercd /proc 987a56857SDavid du Colombier# see /sys/src/9/port/proc.c:/^killbig 100c238bdaSDavid du Colombierpids=`{psu | awk '$NF ~ /'$1'/ {print $2}'} 11*1eb50af0SDavid du Colombier~ $#pids 0 || chmod -w $pids^/ctl >[2]/dev/null 12