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