plan9port/bin/spell

#!/usr/local/plan9/bin/rc

. 9.rc
spellflags=()
deroffargs=()
fflag=''
for(x){
	switch($x){
	case -[abcvx]
		spellflags=($spellflags $x)
	case -f
		fflag=$x
	case *
		if(~ $fflag -f)	{
			spellflags=($spellflags -f $x)
			fflag=''
		}
		if not		deroffargs=($deroffargs $x)
	}
}

deroff -w $deroffargs | sort -u | sprog $spellflags
change scripts back to /usr/local/plan9/bin/rc. sigh. man replaces 9man 2005-01-11 20:58:13 +00:00			`#!/usr/local/plan9/bin/rc`
new scripts 2005-01-04 22:11:58 +00:00
paranoia 2005-01-14 05:55:09 +00:00			`. 9.rc`
new scripts 2005-01-04 22:11:58 +00:00			`spellflags=()`
			`deroffargs=()`
			`fflag=''`
			`for(x){`
			`switch($x){`
			`case -[abcvx]`
			`spellflags=($spellflags $x)`
			`case -f`
			`fflag=$x`
			`case *`
			`if(~ $fflag -f) {`
			`spellflags=($spellflags -f $x)`
			`fflag=''`
			`}`
			`if not deroffargs=($deroffargs $x)`
			`}`
			`}`

			`deroff -w $deroffargs \| sort -u \| sprog $spellflags`