Return to headings.awk CVS log

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

Annotation of researchv10dc/vol2/index/tools/headings.awk, revision 1.1.1.1

1.1       root        1: BEGIN  {
                      2:        longest = 0
                      3:        overf = 0
                      4:        i = 1
                      5:        }
                      6: (/^\.sh/&& NF == 1)||
                      7: /^\.(([NS]H)|(TL)|(TI))/       {
                      8:        place[i] = total
                      9:        if($0 ~ /SH/ && NF > 1|| $0 ~ /NH/ && (NF > 2 || $2 ~ /[A-Za-z]/)){
                     10:                if($0 ~ /"/){
                     11:                        n = split($0,x,"\"")
                     12:                        heading = x[2]
                     13:                }
                     14:                else heading = $2
                     15:                hsize += length(heading) + 1
                     16:        }
                     17:        else {
                     18:        total += length($0) + 1
                     19:        nlines = 0
                     20:        while(getline){
                     21:                if(nlines++ > 3){
                     22:                        print "too many lines in heading:" heading |"cat 1>&2"
                     23:                        break
                     24:                }
                     25:                total += length($0) +1
                     26:                hsize += length($0) +1
                     27:                if($0 ~ /^\.UX/){
                     28:                        nlines--
                     29:                        heading = heading " UNIX"
                     30:                        hsize += 1
                     31:                }
                     32:                else if($0 ~ /^\./){
                     33:                        if($1 ~ /^\.P/ || $1 ~ /^\.LP/|| $1 ~ /^\.[AT]/)break
                     34:                        if(heading == "")heading = $2
                     35:                        else heading = heading " " $2
                     36:                        if(NF > 2)for(n=3;n<=NF;n++)
                     37:                                heading = heading " " $n
                     38:                }
                     39:                else if(heading == "")
                     40:                        heading = $0
                     41:                else
                     42:                        heading = heading " " $0
                     43:        }
                     44:        }
                     45:        total += length($0) +1
                     46:        text[i] = heading
                     47:        l = length(heading)
                     48:        if(longest < l+1)
                     49:                longest = l + 1
                     50:        if(l > 23){
                     51:                while(l>=23){
                     52:                        overf++;
                     53:                        l -= 23
                     54:                }
                     55:        }
                     56:        heading = ""
                     57:        i++
                     58:        next
                     59:        }
                     60: /^\.(H[U ]|[su]h)/     {
                     61:        place[i] = total
                     62:        total += length($0) + 1
                     63:        if($0 ~ /"/){
                     64:                n = split($0, hd, "\"")
                     65:                if(n == 3)
                     66:                        heading = hd[2]
                     67:                else{
                     68:                        heading = hd[2]
                     69:                        print "unbalanced quotes: " $0 >"err.hd"
                     70:                }
                     71:        }
                     72:        else if($1 ~ /HU|uh/)heading = $2
                     73:        else  heading = $3
                     74:        text[i] = heading
                     75:        l = length(heading)
                     76:        hsize += l + 1
                     77:        if(longest < l+1)
                     78:                longest = l + 1
                     79:        if(l > 23){
                     80:                while(l>=23){
                     81:                        overf++;
                     82:                        l -= 23
                     83:                }
                     84:        }
                     85:        heading = ""
                     86:        i++
                     87:        next
                     88:        }
                     89: /^\.de/        {
                     90:        total += length($0) +1
                     91:        while(getline && $0 !~ /^\.\.$/){
                     92:                total += length($0) +1
                     93:        }
                     94:        total += length($0) +1
                     95:        next
                     96:        }
                     97: /.*/   {
                     98:        total += length($0) + 1
                     99:        }
                    100: END    {
                    101:        if(i > 1){
                    102: #              print hsize " " longest " " i-1 " " overf
                    103:                for(n=1;n<i;n++){
                    104: #                      print place[n]
                    105:                        print text[n]
                    106:                }
                    107:        }
                    108:        }

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