|
|
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.