2005-01-11 20:58:13 +00:00
|
|
|
#!/usr/local/plan9/bin/rc
|
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
|
