shithub: riscv

ref: 8bf1e5b77521d94876a58989a434ef1a08d6d509
dir: /rc/bin/thesaurus/

View raw version 
#!/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
	}'