xref: /plan9/rc/bin/delkey (revision e4bcdcb8d475bc773903d8d060f216f1310e22eb) 
1#!/bin/rc
2
3rfork e
4
5ctl = /mnt/factotum/ctl
6if(test -r /mnt/term/mnt/factotum/ctl)
7	ctl = /mnt/term/mnt/factotum/ctl
8
9fn forceit {
10	switch($force){
11	case no
12		echo -n $* '? [y/n]' > /dev/cons
13		ok = `{read}
14		switch($ok){
15		case y* Y*
16			echo yes
17		case q* Q*
18			exit ''
19		case *
20			echo no
21		}
22	case *
23		echo yes
24	}
25}
26
27fn deleteit {
28	key = `{echo $* | sed 's/ ![0-9a-zA-Z_]+\??/ /g' | sed 's/ +$//'}
29	if(~ `{forceit del$key} yes)
30		if(! echo del$key > $ctl)
31			exit bad
32}
33
34force = no
35
36if(~ $1 '-f'){
37	force = yes
38	shift
39}
40
41ifs='
42'
43
44if(~ $#* 0){
45	for(i in `{cat $ctl})
46		deleteit $i
47	exit ''
48}
49
50for(i in `{grep $"* $ctl})
51	deleteit $i
52exit ''
53