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