rc/bin/thesaurus


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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
	}'