1 files changed, 29 insertions, 0 deletions
diff --git a/rc/bin/thesaurus b/rc/bin/thesaurus
new file mode 100755
index 000000000..1f4707c5d
--- /dev/null
+++ b/rc/bin/thesaurus
@@ -0,0 +1,29 @@
+#!/bin/rc
+
+hget 'http://thesaurus.reference.com/search?q='^$1 |
+	htmlfmt -l 1000 |
+	sed -n '/^Main Entry:/,/^Source/ {
+		/^Source/ q
+		/^[A-Z].*:/ {
+			N
+			s/\n/	/g
+		}
+		p
+	}' | awk -F', ' '{
+		if(length($0)<=70){
+			print
+			next
+		}
+		l = 0
+		for(i = 1; i < NF; i++){
+			printf "%s ", $i
+			l += length($i)+1
+			if(l > 70){
+				printf "\n\t\t"
+				l = 2*ENVIRON["tabstop"]
+			}
+		}
+		if(l>0)
+			printf "\n"
+		next
+	}'