shithub: riscv

Info  •  Files  •  Log  •  Branches

delkey: don't be stupid

--- a/rc/bin/delkey

+++ b/rc/bin/delkey

@@ -6,47 +6,7 @@

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

 	ctl = /mnt/term/mnt/factotum/ctl

-fn forceit {

-	switch($force){

-	case no

-		echo -n $* '? [y/n]' > /dev/cons

-		ok = `{read}

-		switch($ok){

-		case y* Y*

-			echo yes

-		case q* Q*

-			exit ''

-		case *

-			echo no

-		}

-	case *

-		echo yes

-	}

-}

-

-fn deleteit {

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

-	if(~ `{forceit del$key} yes)

-		if(! echo del$key > $ctl)

-			exit bad

-}

-

-force = no

-

-if(~ $1 '-f'){

-	force = yes

-	shift

-}

-

 ifs='

 '

-if(~ $#* 0){

-	for(i in `{cat $ctl})

-		deleteit $i

-	exit ''

-}

-

-for(i in `{grep $"* $ctl})

-	deleteit $i

-exit ''

+sed 's/ ![0-9a-zA-Z_]+\??/ /g; s/''/''''/g; s/ +$//' $ctl | awk -v 'ctl='^$ctl ' { printf "echo ''del%s'' > %s\n", $0, ctl } '