Subversion Repositories planix.SVN

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