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

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.