Plan 9 from User Space's /usr/local/plan9/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

Space Glenda

Copyright © 2005 Lucent Technologies, Russ Cox, MIT.
See license for details.