1
0

aspell 822 B

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. #!/bin/rc
  2. spellflags=()
  3. fflag=''
  4. for(x){
  5. switch($x){
  6. case -[bcvx]
  7. spellflags=($spellflags $x)
  8. case -f
  9. fflag=$x
  10. case *
  11. if(~ $fflag -f) {
  12. spellflags=($spellflags -f $x)
  13. fflag=''
  14. }
  15. if not args = ($args $x)
  16. }
  17. }
  18. dir = /mnt/wsys
  19. if(! test -f $dir/cons)
  20. dir = /mnt/term/$dir
  21. id=`{cat $dir/new/ctl}
  22. id=$id(1)
  23. if(~ $#args 1 && ~ $args /*){
  24. adir = `{basename -d $args}
  25. args = `{basename $args}
  26. echo 'name '^$adir^/-spell > $dir/$id/ctl
  27. cd $adir
  28. }
  29. if not {
  30. echo 'name '^`{pwd}^/-spell > $dir/$id/ctl
  31. }
  32. {
  33. echo noscroll
  34. if(~ $#args 0)
  35. /acme/bin/$cputype/spout | sort -t: -u +2 | sort -t: +1.1n | aux/sprog -a $spellflags > $dir/$id/body
  36. if not for(i in $args)
  37. /acme/bin/$cputype/spout $i | sort -t: -u +2 | sort -t: +1.1n | aux/sprog -a $spellflags > $dir/$id/body
  38. echo clean
  39. }> $dir/$id/ctl