| rsc | d49a2e4 | 2004-03-09 12:45:12 +0000 | [diff] [blame] | 1 | #!/bin/rc |
| 2 | |||||
| 3 | spellflags=() | ||||
| 4 | deroffargs=() | ||||
| 5 | fflag='' | ||||
| 6 | for(x){ | ||||
| 7 | switch($x){ | ||||
| 8 | case -[abcvx] | ||||
| 9 | spellflags=($spellflags $x) | ||||
| 10 | case -f | ||||
| 11 | fflag=$x | ||||
| 12 | case * | ||||
| 13 | if(~ $fflag -f) { | ||||
| 14 | spellflags=($spellflags -f $x) | ||||
| 15 | fflag='' | ||||
| 16 | } | ||||
| 17 | if not deroffargs=($deroffargs $x) | ||||
| 18 | } | ||||
| 19 | } | ||||
| 20 | |||||
| 21 | deroff -w $deroffargs | sort -u | aux/sprog $spellflags | ||||