![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to foo.awk CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / vol2 / index|
Return to foo.awk CVS log | Up to [Research Unix] / researchv10dc / vol2 / index |
1.1 ! root 1: sed -e 's/\\f(..//g' -e 's/\\f[a-z0-9A-Z]//g' -e 's/\\em//' -e 's/ ,/,/' -e 's/\\\&//g' -e 's/,/ /' -e 's/^ //' -e 's/ / /' x|sed 's/ \([^A-Za-z]\)/ \1/'|sort -f|sed -e 's/ / /' -e 's/\b//'| ! 2: awk ' ! 3: #single ! 4: #s ! 5: #Sfor cw ! 6: #p for 1cw ! 7: #r for 2cw ! 8: #t for 4cw ! 9: #q for 3cw ! 10: #x for 4&6 ! 11: #y for 1&3 ! 12: #z for 2&4 ! 13: #Z for 3&5 ! 14: #Y for 1,2,&4 ! 15: # ! 16: #global ! 17: #g ! 18: #G for CW ! 19: #P for 1cw ! 20: #R for 2cw ! 21: # ! 22: #c cw ! 23: #f 1st cw ! 24: #C paper name to cw ! 25: BEGIN { ! 26: while((getline<"contents") > 0){ ! 27: names[$1] = $2 ! 28: last[$1] = $3 ! 29: } ! 30: FS=" " ! 31: } ! 32: { ! 33: junk=$0 ! 34: caps=gsub(/[A-HJ-Z]/,"",junk) ! 35: constant=0 ! 36: control=0 ! 37: if($1 == term){ ! 38: ck = global = substr($2,2,index($2,",")-2) ! 39: if(ck in names && ((NF>2 && $NF !~ /C/)||NF < 3)){ ! 40: sub(/^ /, " \\fI", $2) ! 41: sub(/,/,"\\fP,", $2) ! 42: } ! 43: if($2 ~ /[A-Z_$][A-Z_][A-Z_$0-9& ]*/){ ! 44: if($2 !~ /[a-z]/)caps = caps/2 ! 45: control=8*gsub(/[A-Z_$][A-Z_$][A-Z_$0-9& ]*/,"\\s-2&\\s+2") ! 46: } ! 47: sub(/^ /,"",$2) ! 48: if(NF == 3){ ! 49: rside = ckcw($2,0,$NF) ! 50: if(global in names){ ! 51: if( $3~ /[gGPR]/) ! 52: printit(" \\fI" global "\\fP, " names[global] "-" last[global],1,control) ! 53: else if($2 ~ /\\fI/)printit(" " $2, 1, control) ! 54: else printit(" " rside, 1, control) ! 55: next ! 56: } ! 57: } ! 58: else rside = $2 ! 59: printit(" " rside, 1, control) #removed space ! 60: } ! 61: else { ! 62: term = $1 ! 63: control=0 ! 64: if(hadamatch){ ! 65: printf("\n") ! 66: } ! 67: if(term in names){ ! 68: if(!hadamatch)printf("\n") ! 69: hadamatch=1 ! 70: newt="\\fI" term "\\fP, " names[term] "-" last[term] ! 71: printit(newt, 0, 0) ! 72: if($2 ~ /[A-Z_$][A-Z_$][A-Z_$0-9& ]*/){ ! 73: if($2 !~ /[a-z]/)caps /= 2 ! 74: control=8*gsub(/[A-Z_$][A-Z_$][A-Z_$0-9& ]*/,"\\s-2&\\s+2") ! 75: } ! 76: sub(/^ /,"",$2) ! 77: if(NF == 3) ! 78: rside = ckcw($2,0,$NF) ! 79: else rside = $2 ! 80: printit(" " rside, 1, control) #removed space ! 81: } ! 82: else { ! 83: hadamatch=0 ! 84: if($1 ~ /[A-Z_$][A-Z_$][A-Z_$0-9& ]*/){ ! 85: control=8*gsub(/[A-Z_$][A-Z_$][A-Z_$0-9& ]*/,"\\s-2&\\s+2") ! 86: } ! 87: lside = $1 ! 88: if(NF == 3){ ! 89: lside = ckcw($1,1,$NF) ! 90: if($NF ~ /[gGPR]/){ ! 91: r = substr($2,2,index($2,",")-2) ! 92: if(r in names ){ ! 93: control += 6 ! 94: printit(lside ", \\fI" r "\\fP, " names[r] "-" last[r],0,control) ! 95: next ! 96: } ! 97: else { ! 98: print "term not in names:" r|"cat 1>&2" ! 99: sub(/ ./,"") ! 100: } ! 101: } ! 102: } ! 103: control += 6 ! 104: sub(",","\\fP,",$2) ! 105: printit(lside ",\\fI" $2, 0, control) ! 106: } ! 107: }} ! 108: function ckcw(rterm,first,code){ ! 109: constant=0 ! 110: savit=rterm ! 111: if(rterm ~ /^-/){ ! 112: control += 2 ! 113: sub(/^-/,"\\(em",rterm) ! 114: } ! 115: if(rterm ~ /^\./){ ! 116: control += 2 ! 117: sub(/^\./,"\\\\&&",rterm) ! 118: } ! 119: if(code ~ /[gs]/)return(rterm) ! 120: if(code ~ /[GcSC]/){ ! 121: if(first)rterm = addit(rterm) ! 122: else { ! 123: constant = index(rterm,",")-1 ! 124: if(rterm ~ /s[-+]2/){ ! 125: constant -= 8 ! 126: gsub(/s\+2/,"s+1", rterm) ! 127: gsub(/s\-2/,"s-1", rterm) ! 128: rterm = "\\s-1\\f(CW" rterm ! 129: sub(/,/,"\\fP\\s+1,",rterm) ! 130: } ! 131: else { ! 132: rterm = "\\s-1\\f(CW" rterm ! 133: sub(/,/,"\\fP\\s+1,",rterm) ! 134: } ! 135: } ! 136: } ! 137: else if(code ~ /[pPf]/){ ! 138: constant = index(rterm," ")-1 ! 139: if(rterm ~ /s[-+]2/){ ! 140: constant -= 8 ! 141: gsub(/s\+2/,"s+1", rterm) ! 142: gsub(/s\-2/,"s-1", rterm) ! 143: rterm = "\\s-1\\f(CW" rterm ! 144: sub(/ /,"\\fP\\s+1 ", rterm) ! 145: } ! 146: else { ! 147: rterm = "\\s-1\\f(CW" rterm ! 148: sub(/ /,"\\fP\\s+1 ", rterm) ! 149: } ! 150: } ! 151: else{ ! 152: n=split(rterm, arr, " ") ! 153: if(code ~ /[Yy]/)rterm = addit(arr[1]) ! 154: else rterm = arr[1] ! 155: for(i=2;i<=n;i++){ ! 156: if(i==2 && code~/[rRzY]/)rterm = rterm " " addit(arr[i]) ! 157: else if(i==3 && code~/[qyZ]/)rterm=rterm " " addit(arr[i]) ! 158: else if(i==4 && code~/[txzY]/)rterm=rterm " " addit(arr[i]) ! 159: else if(i==5 && code~/[Z]/)rterm=rterm " " addit(arr[i]) ! 160: else if(i==6 && code~/x/)rterm=rterm " " addit(arr[i]) ! 161: else { ! 162: if(arr[i] ~ /s\+2/)sub(/s\+2/,"s+1",arr[i]) ! 163: rterm = rterm " " arr[i] ! 164: } ! 165: } ! 166: } ! 167: if(code ~ /[xyz]/)control+=16 ! 168: control += 16 ! 169: return(rterm) ! 170: } ! 171: function addit(string){ ! 172: constant += length(string) ! 173: if(string ~ /s[-+]2/){ ! 174: constant -= 8 ! 175: gsub(/s\+2/,"s+1", string) ! 176: gsub(/s\-2/,"s-1", string) ! 177: return("\\s-1\\f(CW" string "\\fP\\s+1") ! 178: } ! 179: else return("\\s-1\\f(CW" string "\\fP\\s+1") ! 180: } ! 181: function printit(line, space, control){ ! 182: if(!constant) ! 183: limit=43+control - caps*.5 #was 46 at 8 pt - 43 with italic change ! 184: else limit = 43 - constant*.4 + 1 + control - caps*.5 ! 185: print "lim " limit " leng " length(line) " cons:ctl:caps " constant ":" control ":" caps " " line|"cat 1>&2" ! 186: if(space == 0)limit += 2 ! 187: if(length(line)< limit)print line ! 188: else { ! 189: n=split(line, a, ",") ! 190: if(length(a[1])>=limit-6 || space){ #adjust for italic change ! 191: if(!space)limit -=6 ! 192: m=split(a[1],b," ") ! 193: nline=b[1] ! 194: if(space)nline = " " b[1] ! 195: if(m > 1)for(i=2;i<=m;i++){ ! 196: if(length(nline)+length(b[i])+1>=limit){ ! 197: if(nline ~ /s-2/ && nline !~ /s+2/){ ! 198: print nline "\\s+2" ! 199: nline = " \\s-2" b[i] ! 200: } ! 201: else { ! 202: print nline ! 203: nline = " " b[i] ! 204: } ! 205: } ! 206: else nline = nline " " b[i] ! 207: } ! 208: for(i=2; i<=n;i++){ ! 209: leng=length(a[i]) ! 210: if(a[i] ~ /-/)leng-- ! 211: if(length(nline)+leng >= limit){ ! 212: print nline "," ! 213: nline = " " a[i] ! 214: } ! 215: else nline = nline "," a[i] ! 216: } ! 217: print nline ! 218: return ! 219: } ! 220: nline=a[1] ! 221: for(i=2;i<=n;i++){ ! 222: if(length(nline)+ length(a[i])>= limit){ #used to be -6 ! 223: print nline "," ! 224: nline = " " a[i] ! 225: } ! 226: else nline = nline "," a[i] ! 227: } ! 228: if(length(nline) > 0)print nline ! 229: } ! 230: }'
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.