new scripts

This commit is contained in:
rsc 2005-01-04 22:11:58 +00:00
parent 2ce287bb13
commit 3ff9213bcd
7 changed files with 147 additions and 1 deletions

21
bin/spell Executable file
View file

@ -0,0 +1,21 @@
#!/usr/local/plan9/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 | sprog $spellflags