fix thesaurus.

Reference: /n/sources/patch/applied/thesaurus
Date: Mon Mar 10 03:28:41 CET 2008
Signed-off-by: quanstro@quanstro.net

--- /rc/bin/thesaurus	Mon Mar 10 03:28:25 2008
+++ /rc/bin/thesaurus	Mon Mar 10 03:28:24 2008
@@ -2,19 +2,28 @@
 
 hget 'http://thesaurus.reference.com/search?q='^$1 |
 	htmlfmt -l 1000 |
-	sed -n '
-		1,/^[0-9]+ entries found for/d
-		/ADVERTISEMENT/,$d
-		1,/^$/d
-		s/^Entry://p
-		/^Source:/{
+	sed -n '/^Main Entry:/,/^Source/ {
+		/^Source/ q
+		/^[A-Z].*:/ {
 			N
-			d
+			s/\n/	/g
 		}
-		/^[A-Z][a-z]*:/{
-			N
-			s/\n/	/gp
+		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
+	}'