![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to nmkfile 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 nmkfile CVS log | Up to [Research Unix] / researchv10dc / vol2 / index |
1.1 ! root 1: < ../ADM/defns ! 2: <../index/defns ! 3: ! 4: all:V: index.out ! 5: ! 6: pg: index.out ! 7: count index.ms index.out ! 8: ! 9: spell:VQ: ! 10: dospell index.ms ! 11: ! 12: lp: index.out ! 13: $LP $newprereq && touch $target ! 14: ! 15: index.out:D: index.ms ! 16: $PREFER $prereq | pic | troff -mpm > $target ! 17: ! 18: index:V: ! 19: touch index.ind ! 20: pindex:V: ! 21: touch index.ind ! 22: ! 23: PAPERS=`cd /usr/vol2;echo [a-z]*` ! 24: INDEX=${PAPERS:%=%.index} ! 25: incindex:V: $INDEX ! 26: ! 27: %.index:VQ: ! 28: cd ../$stem; mk index ! 29: PINDEX=${PAPERS:%=%.pindex} ! 30: pincindex:V: $PINDEX ! 31: ! 32: %.pindex:VQ: ! 33: cd ../$stem; mk pindex ! 34: ! 35: restart:V: ! 36: for i in ../[a-z]* ! 37: do ! 38: cd $i ! 39: mk index ! 40: done ! 41: ! 42: sindex:VQ: ! 43: wc sindex ! 44: awk ' ! 45: /^\.XX/ { ! 46: if($2 ~ /[a-z]/){ ! 47: name=$2 ! 48: first=$3 ! 49: str = "..\/" $4 ".pg" ! 50: getline <str ! 51: last=$1 + first -1 ! 52: print name " " first " " last ! 53: close(str) ! 54: } ! 55: }' ../contents/contents.ms >contents ! 56: 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/^ //' ../[a-z]*/*.ind|sort -f| ! 57: awk ' ! 58: BEGIN { ! 59: while((getline<"contents") > 0){ ! 60: names[$1] = $2 ! 61: last[$1] = $3 ! 62: } ! 63: FS=" " ! 64: mult = .2 ! 65: } ! 66: {if($1 == term){ ! 67: ck = global = substr($2,2,index($2,",")-2) ! 68: if(ck in names){ ! 69: sub(/^ /, " \\fI", $2) ! 70: sub(/,/,"\\fP,", $2) ! 71: control = 6 ! 72: } ! 73: else control=0 ! 74: if($2 ~ /[A-Z_$][A-Z_$][A-Z_$0-9& ]*/){ ! 75: if($2 !~ /\\s/) ! 76: control += 8*gsub(/[A-Z_$][A-Z_$][A-Z_$0-9& ]*/,"\\s-2&\\s+2") ! 77: } ! 78: sub(/^ /,"",$2) ! 79: if(NF == 3){ ! 80: rside = ckcw($2,0,$NF) ! 81: if(global in names){ ! 82: if( $3~ /[gGPR]/) ! 83: printit(" \\fI" global "\\fP, " names[global] "-" last[global],1,control) ! 84: else printit(" " $2, 1, control) ! 85: next ! 86: } ! 87: } ! 88: else rside = $2 ! 89: printit(" " rside, 1, control) #removed space ! 90: } ! 91: else { ! 92: term = $1 ! 93: control=0 ! 94: if(term in names){ ! 95: newt="\\fI" term "\\fP, " names[term] "-" last[term] ! 96: printit(newt, 0, 0) ! 97: if($2 ~ /[A-Z_$][A-Z_$][A-Z_$0-9& ]*/){ ! 98: if($2 !~ /\\s/)control=8*gsub(/[A-Z_$][A-Z_$][A-Z_$0-9& ]*/,"\\s-2&\\s+2") ! 99: } ! 100: sub(/^ /,"",$2) ! 101: if(NF == 3) ! 102: rside = ckcw($2,0,$NF) ! 103: else rside = $2 ! 104: printit(" " rside, 1, control) #removed space ! 105: } ! 106: else { ! 107: if($1 ~ /[A-Z_$][A-Z_$][A-Z_$0-9& ]*/){ ! 108: if($1 !~ /\\s/)control=8*gsub(/[A-Z_$][A-Z_$][A-Z_$0-9& ]*/,"\\s-2&\\s+2") ! 109: } ! 110: lside = $1 ! 111: if(NF == 3){ ! 112: lside = ckcw($1,1,$NF) ! 113: if($NF ~ /[gGPR]/){ ! 114: r = substr($2,2,index($2,",")-2) ! 115: if(r in names ){ ! 116: printit(lside ", \\fI" r "\\fP, " names[r] "-" last[r],0,control) ! 117: next ! 118: } ! 119: else { ! 120: print "term not in names:" r|"cat 1>&2" ! 121: sub(/ ./,"") ! 122: } ! 123: } ! 124: } ! 125: sub(",","\\fP,",$2) ! 126: printit(lside ",\\fI" $2, 0, control) ! 127: } ! 128: }} ! 129: function ckcw(rterm,first,code){ ! 130: if(rterm ~ /^-/){ ! 131: sub(/^-/,"\\(em",rterm) ! 132: control += 3 ! 133: } ! 134: if(rterm ~ /^\./){ ! 135: sub(/^\./,"\\\\&&",rterm) ! 136: control += 2 ! 137: } ! 138: if(code ~ /[GcS]/){ ! 139: if(first)rterm = addcw( rterm,0) ! 140: else { ! 141: control -= length(rterm)*mult ! 142: rterm = "\\f(CW" rterm ! 143: sub(/,/,"\\fP,",rterm) ! 144: } ! 145: } ! 146: else if(code ~ /[pPf]/){ ! 147: control -= length(rterm)*mult ! 148: rterm = "\\f(CW" rterm ! 149: sub(/ /,"\\fP ", rterm) ! 150: } ! 151: else{ ! 152: n=split(rterm, arr, " ") ! 153: if(code ~ /y/)rterm = addcw( arr[1],0) ! 154: else rterm = arr[1] ! 155: for(i=2;i<=n;i++){ ! 156: if(i==2 && code~/[rRz]/)rterm = rterm addcw( arr[i],1) ! 157: else if(i==3 && code~/[qy]/)rterm=rterm addcw( arr[i],1) ! 158: else if(i==4 && code~/[txz]/)rterm=rterm addcw( arr[i],1) ! 159: else if(i==6 && code~/x/)rterm=rterm addcw( arr[i],1) ! 160: else rterm = rterm " " arr[i] ! 161: } ! 162: } ! 163: if(code ~ /[xyz]/)control += 16 ! 164: control += 8 ! 165: return(rterm) ! 166: } ! 167: function addcw(term,adds,hidden){ ! 168: control -= length(term)*mult ! 169: hidden = "\\f(CW" term "\\fP" ! 170: if(adds) hidden = " " hidden ! 171: return(hidden) ! 172: } ! 173: function printit(line, space, caps){ ! 174: limit=46+caps ! 175: if(space == 0)limit += 2 ! 176: if(length(line)< limit)print line ! 177: else { ! 178: n=split(line, a, ",") ! 179: if(length(a[1])>=limit){ ! 180: m=split(a[1],b," ") ! 181: nline=b[1] ! 182: if(space)nline = " " b[1] ! 183: for(i=2;i<=m;i++){ ! 184: nline = nline " " b[i] ! 185: if(length(nline)>=limit){ ! 186: print nline ! 187: nline = " " ! 188: } ! 189: } ! 190: for(i=2; i<=n;i++){ ! 191: if(nline == " ")nline = nline a[i] ! 192: else nline = nline "," a[i] ! 193: } ! 194: print nline ! 195: return ! 196: } ! 197: nline=a[1] ! 198: for(i=2;i<=n;i++){ ! 199: nline = nline "," a[i] ! 200: if(length(nline)>= limit-6){ ! 201: if(i < n)print nline "," ! 202: else print nline ! 203: if(i < n)nline = " " a[++i] ! 204: else nline = "" ! 205: } ! 206: } ! 207: if(length(nline) > 0)print nline ! 208: } ! 209: }' |finddups >sindex ! 210: wc sindex ! 211: # troff -ms sindex.ms >tr.out ! 212:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.