plan9port/bin/spell
2005-01-04 22:11:58 +00:00

21 lines
324 B
Bash
Executable file

#!/usr/local/plan9/bin/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