22 lines
312 B
Plaintext
22 lines
312 B
Plaintext
|
#!/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 | aux/sprog $spellflags
|