1 2b85f70d 2005-01-11 devnull #!/usr/local/plan9/bin/rc
 2 3ff9213b 2005-01-04 devnull 
 3 3ff9213b 2005-01-04 devnull spellflags=()
 4 3ff9213b 2005-01-04 devnull deroffargs=()
 5 3ff9213b 2005-01-04 devnull fflag=''
 6 3ff9213b 2005-01-04 devnull for(x){
 7 3ff9213b 2005-01-04 devnull 	switch($x){
 8 3ff9213b 2005-01-04 devnull 	case -[abcvx]
 9 3ff9213b 2005-01-04 devnull 		spellflags=($spellflags $x)
10 3ff9213b 2005-01-04 devnull 	case -f
11 3ff9213b 2005-01-04 devnull 		fflag=$x
12 3ff9213b 2005-01-04 devnull 	case *
13 3ff9213b 2005-01-04 devnull 		if(~ $fflag -f)	{
14 3ff9213b 2005-01-04 devnull 			spellflags=($spellflags -f $x)
15 3ff9213b 2005-01-04 devnull 			fflag=''
16 3ff9213b 2005-01-04 devnull 		}
17 3ff9213b 2005-01-04 devnull 		if not		deroffargs=($deroffargs $x)
18 3ff9213b 2005-01-04 devnull 	}
19 3ff9213b 2005-01-04 devnull }
20 3ff9213b 2005-01-04 devnull 
21 3ff9213b 2005-01-04 devnull deroff -w $deroffargs | sort -u | sprog $spellflags