/usr/web/sources/patch/applied/thesaurus/thesaurus.orig

Plan 9 from Bell Labs’s /usr/web/sources/patch/applied/thesaurus/thesaurus.orig


#!/bin/rc

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:/{
			N
			d
		}
		/^[A-Z][a-z]*:/{
			N
			s/\n/	/gp
		}
	'

(Return to Plan 9 Home Page)