Return to doinsert CVS log

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

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

1.1       root        1: awk  -v name=$1.hits '
                      2: BEGIN  {
                      3:        getterm()
                      4:        }
                      5: /.*/   {
                      6:        line = $0
                      7:        if(NR >= number){
                      8:                putterm()
                      9:        }
                     10:        print line
                     11:        if(line ~ /^\.PS[ ]*</)next
                     12:        if(line ~ /^\.[TPI]S/){
                     13:                while(getline > 0){
                     14:                        if($0 ~ /^\.T\&/){
                     15:                                if(NR >= number)
                     16:                                        putterm()
                     17:                        }
                     18:                        print $0
                     19:                        if($0 ~ /^\.([PTI]E)|IF/)break
                     20:                }
                     21:        }
                     22:        if(line ~ /^\.EQ/){
                     23:                while(getline > 0){
                     24:                        print $0
                     25:                        if($0 ~ /^\.EN/)break
                     26:                }
                     27:        }
                     28:        }
                     29: function getterm(){
                     30:        if((getline < name)<= 0){
                     31:                number += 1000
                     32:        }
                     33:        else if($0 ~ /^[0-9]/ && NF > 1){
                     34:                number = $1
                     35:                sub(/^[0-9][0-9]* /,"")
                     36:                term = $0
                     37:        } else term=$0
                     38: }
                     39: function putterm(){
                     40:        print ".Tm " term
                     41:        getterm()
                     42:        if(NR >= number){
                     43:                while(NR >= number){
                     44:                        print ".Tm " term
                     45:                        getterm()
                     46:                }
                     47:        }
                     48: }
                     49: ' $2
                     50: 
                     51: 

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