Return to try CVS log

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

Annotation of researchv10dc/vol2/index/try, revision 1.1.1.1

1.1       root        1:        sed 's/,/       /' x|
                      2:        awk '
                      3:        BEGIN   {FS="   "
                      4:                while((getline<"contents") > 0){
                      5:                        names[$0] = 1
                      6:                }
                      7:        }
                      8:        {if($1 == term){
                      9:                ck = substr($2,2,index($2,",")-2)
                     10:                if(ck in names){
                     11:                        sub(/^ /, " \\fI", $2)
                     12:                        sub(/,/,"\\fP,", $2)
                     13:                }
                     14:                printit("  " $2)
                     15:        }
                     16:        else {
                     17:                term = $1
                     18:                if(term in names){
                     19:                        sub("   ","\\fP,")
                     20:                        sub(/^/,"\\fI")
                     21:                }
                     22:                else {
                     23:                        sub(",","\\fP,")
                     24:                        sub("   ",",\\fI")
                     25:                }
                     26:                printit($0)
                     27:        }}
                     28:        function printit(line){
                     29:        if(length(line)<40)print line
                     30:        else {
                     31:                n=split(line, a, ",")
                     32:                if(length(a[1])>=40){
                     33:                        m=split(a[1],b," ")
                     34:                        nline=b[1]
                     35:                        for(i=2;i<=m;i++){
                     36:                                nline = nline " " b[i]
                     37:                                if(length(nline)>=40){
                     38:                                        print nline
                     39:                                        nline = "      "
                     40:                                }
                     41:                        }
                     42:                        for(i=2; i<=n;i++){
                     43:                                if(nline == "      ")nline = nline a[i]
                     44:                                else nline = nline "," a[i]
                     45:                        }
                     46:                        print nline
                     47:                        return
                     48:                }
                     49:                nline=a[1]
                     50:                for(i=2;i<=n;i++){
                     51:                        nline = nline "," a[i]
                     52:                        if(length(nline)>= 40){
                     53:                                if(i < n)print nline ","
                     54:                                else print nline
                     55:                                if(i < n)nline = "      " a[++i]
                     56:                                else nline = ""
                     57:                        }
                     58:                }
                     59:                if(length(nline) > 0)print nline
                     60:        }
                     61:        }' 

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