diff options
| author | Taru Karttunen <taruti@taruti.net> | 2011-03-30 17:14:36 +0300 |
|---|---|---|
| committer | Taru Karttunen <taruti@taruti.net> | 2011-03-30 17:14:36 +0300 |
| commit | 2959e1ede0ebc6fdffd7b8660f43c2ce14c9696f (patch) | |
| tree | f6343b1ce11a8c87251dd27cf3d3e26b50693fa7 /rc/bin/thesaurus | |
| parent | e463eb40363ff4c68b1d903f4e0cdd0ac1c5977f (diff) | |
Import sources from 2011-03-30 iso image - rc
Diffstat (limited to 'rc/bin/thesaurus')
| -rwxr-xr-x | rc/bin/thesaurus | 29 |
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 + }' |