rc/bin/spell

   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