30 lines
422 B
Text
30 lines
422 B
Text
|
#!/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
|
||
|
|
}'
|