diff options
| author | rsc <devnull@localhost> | 2005-01-04 22:11:58 +0000 |
|---|---|---|
| committer | rsc <devnull@localhost> | 2005-01-04 22:11:58 +0000 |
| commit | 3ff9213bcd3493446f29942ea9f1a78a59d48823 (patch) | |
| tree | df656a132bbea541e0eb432b3ae6007be903c2e9 /bin/spell | |
| parent | 2ce287bb130ff77a6547a582fe7df6a28aefedfb (diff) | |
| download | plan9port-3ff9213bcd3493446f29942ea9f1a78a59d48823.tar.gz plan9port-3ff9213bcd3493446f29942ea9f1a78a59d48823.tar.bz2 plan9port-3ff9213bcd3493446f29942ea9f1a78a59d48823.zip | |
new scripts
Diffstat (limited to 'bin/spell')
| -rwxr-xr-x | bin/spell | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/bin/spell b/bin/spell new file mode 100755 index 00000000..3a6b4a3e --- /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 |