#!/bin/rc

rfork e

ctl = /mnt/factotum/ctl
if(test -r /mnt/term/mnt/factotum/ctl)
	ctl = /mnt/term/mnt/factotum/ctl

fn deleteit {
	key = `{echo $* | sed 's/ ![0-9a-zA-Z_]+\??/ /g' | sed 's/ +$//'}
	echo echo ''''del$key'''' '>' $ctl
}

ifs='
'

if(~ $#* 0){
	for(i in `{cat $ctl})
		deleteit $i
	exit ''
}

for(i in `{grep $"* $ctl})
	deleteit $i
exit ''