From 3ff9213bcd3493446f29942ea9f1a78a59d48823 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Tue, 4 Jan 2005 22:11:58 +0000
Subject: new scripts

---
 bin/spell | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 bin/spell

(limited to 'bin/spell')

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
-- 
cgit v1.2.3