|
|
1.1 root 1: T=/n/pipe/usr/vol2/index/tools
2: J=`basename $1 .tex`
3: O=x$J.tex
4: FILE=$1
5: echo file=$FILE
6: tr A-Z a-z <$J.terms|sed 's/\([a-z][a-z/]*\)\.\([a-z][a-z]*\)/\1zz1\2/g'|sort|uniq|awk -f $T/dups.awk >$J.lt
7: awk -f $T/doinp.awk $FILE|sed 's/\([a-z][a-z]*\)\.\([a-z][a-z]*\)/\1zz1\2/g' >foo
8: diction -f $J.lt -o $J.hits foo >/dev/null
9: sed -e 's/zz1/\./g' -e 's/ /<tab>/g' -e 's/{\\sl//' -e 's/{\\em//' -e 's/}//g' -e 's/^ //' $J.hits|tr $ ~ >$J.nh
10: mv $J.nh $J.hits
11: tdoinsert $J $FILE >$O
12: rm $J.lt
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.