Return to tdoinsert CVS log

Up to [Research Unix] / researchv10dc / vol2 / index / tools

Annotation of researchv10dc/vol2/index/tools/tdoinsert, revision 1.1.1.1

1.1       root        1: T=/n/pipe/usr/vol2/index/tools
                      2: awk -f $T/doinp.awk -v texinp=$TEXINPUTS  $2|awk  -v name=$1.hits '
                      3: BEGIN  {
                      4:        sawbeg = 0
                      5:        getterm()
                      6:        }
                      7: /(\\begin\{document|\\chapter)/        {
                      8:        print "\\input try.tex"
                      9:        sawbeg=1
                     10:        print $0
                     11:        next
                     12:        }
                     13: /^$/   {print $0
                     14:        next
                     15:        }
                     16: /.*/   {
                     17:        line = $0
                     18:        if(NR >= number && sawbeg){
                     19:                putterm()
                     20:        }
                     21:        print line
                     22:        if(line ~ /\$\$/){
                     23:                n=gsub(/\$\$/,"",line)
                     24:                if(n%2){
                     25:                        while(getline>0){
                     26:                                print $0
                     27:                                n=gsub(/\$\$/,"",$0)
                     28:                                if(n%2)break
                     29:                        }
                     30:                }
                     31:                line = $0
                     32:        }
                     33:        if(line ~ /\$/){
                     34:                n=gsub(/\$/,"",line)
                     35:                if(n%2){
                     36:                        while(getline>0){
                     37:                                print $0
                     38:                                n=gsub(/\$/,"",$0)
                     39:                                if(n%2)break
                     40:                        }
                     41:                }
                     42:        }
                     43:        if(line ~ /\\begin\{eq\}/){
                     44:                while(getline > 0){
                     45:                        print $0
                     46:                        if($0 ~ /^\\end\{eq\}/)break
                     47:                }
                     48:        }
                     49: }
                     50: END    {print "\\end"}
                     51: function getterm(){
                     52:        if((getline < name)<= 0){
                     53:                number += 1000
                     54:        }
                     55:        else if($0 ~ /^[0-9]/ && NF > 1){
                     56:                number = $1
                     57:                sub(/^[0-9][0-9]* /,"")
                     58:                term = $0
                     59:        } else term=$0
                     60: }
                     61: function putterm(){
                     62:        print "\\index{" term "}%"
                     63:        getterm()
                     64:        if(NR >= number){
                     65:                while(NR >= number){
                     66:                        print "\\index{" term "}%"
                     67:                        getterm()
                     68:                }
                     69:        }
                     70: }
                     71: '

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.