|
|
1.1 ! root 1: # NOTICE-NOT TO BE DISCLOSED OUTSIDE BELL SYS EXCEPT UNDER WRITTEN AGRMT ! 2: L=/usr/lib/style ! 3: M=/usr/vol2/index/tools ! 4: N=/usr/vol2/index/tools ! 5: mflag=-ms ! 6: mlflag=-ml ! 7: number=40 ! 8: for i in $* ! 9: do case $i in ! 10: -mm) mflag=-mm;shift;continue;; ! 11: -ms) mflag=-ms;shift;continue;; ! 12: -ml|-li) mlflag=-ml;shift;continue;; ! 13: +li) mlflag=;shift;continue;; ! 14: -ver) echo $0 version 2.0: 2.0;exit;; ! 15: -flags) echo $0 \[-flags\] \[-ver\] \[file ...\];exit;; ! 16: -*) echo unknown topic flag $i;exit;; ! 17: *) if test ! \( -r $i -o -r $i.tex \) ! 18: then echo Can\'t find the file $i\; try specifying a more complete pathname.; exit ! 19: fi ! 20: esac ! 21: done ! 22: if test -s $1.tex ! 23: then ! 24: awk -f $N/doinp.awk $1.tex|awk -f $M/top2.awk |$N/detex|$L/style1|$L/style2|$M/adj_noun -T|sed -f $M/top.sed|sort|uniq -c|sed "/^ 1/d"|sort -nr ! 25: else ! 26: awk -f $M/top2.awk $*|$M/deroff -i $mflag $mlflag|$L/style1|$L/style2|$M/adj_noun -T|sed -f $M/top.sed|sort|uniq -c|sed "/^ 1/d"|sort -nr ! 27: #|sed -n "1,${number}p" ! 28: fi
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.