commit | 3ff9213bcd3493446f29942ea9f1a78a59d48823 | [log] [tgz] |
---|---|---|
author | rsc <devnull@localhost> | Tue Jan 04 22:11:58 2005 +0000 |
committer | rsc <devnull@localhost> | Tue Jan 04 22:11:58 2005 +0000 |
tree | df656a132bbea541e0eb432b3ae6007be903c2e9 | |
parent | 2ce287bb130ff77a6547a582fe7df6a28aefedfb [diff] [blame] |
new scripts
diff --git a/bin/spell b/bin/spell new file mode 100755 index 0000000..3a6b4a3 --- /dev/null +++ b/bin/spell
@@ -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