Return to suggest.sh CVS log

Up to [Research Unix] / researchv10no / cmd / diction

Annotation of researchv10no/cmd/diction/suggest.sh, revision 1.1

1.1     ! root        1: trap 'rm -f $$; exit' 1 2 3 15
        !             2: D=/usr/lib/style/suggest.d
        !             3: if test $1
        !             4: then
        !             5: cat >$$ <<dn
        !             6: / $*.* /s/\(.*\)       \(.*\)/use "\2" for "\1"/p
        !             7: dn
        !             8: sed -n -f $$ $D; rm $$
        !             9: fi
        !            10: while echo "phrase?"; read x
        !            11: do
        !            12: cat >$$ <<dn
        !            13: / $x.* /s/\(.*\)       \(.*\)/use "\2" for "\1"/p
        !            14: dn
        !            15: case $x in
        !            16: and/or)
        !            17:        sed "s/and./and./" $$ >a$$
        !            18:        sed -n -f a$$ $D;rm $$ a$$;;
        !            19: q)
        !            20:        rm $$; exit;;
        !            21: [a-z]*)
        !            22: sed -n -f $$ $D; rm $$;;
        !            23: *) rm $$;;
        !            24: esac
        !            25: done

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.