Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/bin/rc
2 
 
3 
rfork e
4 
 
5 
ctl = /mnt/factotum/ctl
6 
if(test -r /mnt/term/mnt/factotum/ctl)
7 
	ctl = /mnt/term/mnt/factotum/ctl
8 
 
9 
fn 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 
 
27 
fn 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 
 
34 
force = no
35 
 
36 
if(~ $1 '-f'){
37 
	force = yes
38 
	shift
39 
}
40 
 
41 
ifs='
42 
'
43 
 
44 
if(~ $#* 0){
45 
	for(i in `{cat $ctl})
46 
		deleteit $i
47 
	exit ''
48 
}
49 
 
50 
for(i in `{grep $"* $ctl})
51 
	deleteit $i
52 
exit ''