|
|
1.1 ! root 1: # NOTICE-NOT TO BE DISCLOSED OUTSIDE BELL SYS EXCEPT UNDER WRITTEN AGRMT ! 2: L=/usr/lib/style ! 3: trap 'rm -f /tmp/$$*; trap 0;exit' 0 1 2 3 15 ! 4: nflag= ! 5: fflag= ! 6: file= ! 7: for i in $* ! 8: do case $i in ! 9: -f) fflag=-f; val=f; shift; file=$1;shift;continue;; ! 10: -n) nflag=-n;shift;continue;; ! 11: -ver) echo $0 version 2.2: 2.0: 2.1,2.0;exit;; ! 12: -flags) echo $0 \[-f pfile\] \[-n\] \[-flags\] \[-ver\] \[file ...\];exit;; ! 13: -*) echo unknown dictplus flag $i;exit;; ! 14: *) if test ! -r $i ! 15: then echo Can\'t find the file $i\; try specifying a more complete pathname.; exit ! 16: fi ! 17: esac ! 18: done ! 19: echo $* ! 20: if test $val ! 21: then if test ! -r $file ! 22: then echo Can\'t find the pattern file $file. ! 23: exit 1 ! 24: fi ! 25: fi ! 26: $L/dprog -l $nflag $fflag $file -o /tmp/$$dictsed $* ! 27: if test -s /tmp/$$dictsed ! 28: then ! 29: echo -e '\nPlease wait for the substitution phrases\n ! 30: \n------------------- Table of Substitutions --------------------\n ! 31: PHRASE SUBSTITUTION\n' ! 32: sort -u /tmp/$$dictsed|sed -f $L/script.sed|split -50 -f /tmp/$$d_ ! 33: for i in /tmp/$$d_* ! 34: do ! 35: sed -n -f $i $L/suggest.d >>/tmp/$$d ! 36: done ! 37: sort /tmp/$$d ! 38: echo -e '\n------------------------------------------------------------------\n' ! 39: fi
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.