|
|
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/$$abst; trap 0; exit' 0 1 2 3 15;
4: mflag=-ms
5: mlflag=-ml
6: sflag=
7: fflag=
8: file=
9: xfile=
10: audflag=m
11: for i in $*
12: do case $i in
13: -f) fflag=F; shift; file=$1;shift;continue;;
14: -mm) mflag=-mm;shift;continue;;
15: -ms) mflag=-ms;shift;continue;;
16: -ml|-li) mlflag=-ml;shift;continue;;
17: +li) mlflag=;shift;continue;;
18: -c) audflag=c;shift;continue;;
19: -t) audflag=t;shift;continue;;
20: -tm) audflag=m;shift;continue;;
21: -x) audflag=x;shift; xfile=$1; shift;continue;;
22: -s) sflag=s;shift;continue;;
23: -ver) echo $0 version 2.0: 2.2: 2.0;exit;;
24: -flags) echo $0 "[-flags] [-ver] [-tm|-c|-t|-x standards-file] [-mm|-ms] [-li|+li] [-s] [-f style-file|file ...]";exit 0;;
25: -*) echo unknown prose flag $i; exit;;
26: *) if test ! -r $i
27: then echo Can\'t find the file $i\; try specifying a more complete pathname.; exit
28: fi
29: esac
30: done
31:
32: if test $fflag
33: then if test ! -r $file
34: then echo Can\'t find the file $file, try specifying a more complete pathname.
35: exit 1
36: fi
37: if test $sflag
38: then $L/prose f${sflag}${audflag} $xfile < $file
39: else $L/prose f${audflag} $xfile < $file |pr -h "PROSE OUTPUT FOR $file"
40: fi
41: else
42: if test $sflag
43: then deroff $mflag $mlflag $* | $L/style1 | $L/style2 | $L/style3 | tee styl.tmp| $L/prose ${sflag}${audflag} $xfile $$
44: else deroff $mflag $mlflag $* | $L/style1 | $L/style2 | $L/style3 | tee styl.tmp| $L/prose ${audflag} $xfile $$ |pr -h "PROSE OUTPUT FOR $*"
45: fi
46: fi
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.