spell 312 B

123456789101112131415161718192021
  1. #!/bin/rc
  2. spellflags=()
  3. deroffargs=()
  4. fflag=''
  5. for(x){
  6. switch($x){
  7. case -[abcvx]
  8. spellflags=($spellflags $x)
  9. case -f
  10. fflag=$x
  11. case *
  12. if(~ $fflag -f) {
  13. spellflags=($spellflags -f $x)
  14. fflag=''
  15. }
  16. if not deroffargs=($deroffargs $x)
  17. }
  18. }
  19. deroff -w $deroffargs | sort -u | aux/sprog $spellflags