![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mkfile 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 mkfile 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 ../setup ../snocone ../spin ../streams ../[t-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/^ //' -e 's/ / /' ../[a-z]*/*.ind|sed 's/ \([^A-Za-z]\)/ \1/'|sort -f|sed -e 's/ / /' -e 's/\b//'|
57: awk '
58: #single
59: #s
60: #Sfor cw
61: #p for 1cw
62: #r for 2cw
63: #t for 4cw
64: #q for 3cw
65: #x for 4&6
66: #y for 1&3
67: #z for 2&4
68: #Z for 3&5
69: #Y for 1,2,&4
70: #
71: #global
72: #g
73: #G for CW
74: #P for 1cw
75: #R for 2cw
76: #
77: #c cw
78: #f 1st cw
79: #C paper name to cw
80: BEGIN {
81: while((getline<"contents") > 0){
82: names[$1] = $2
83: last[$1] = $3
84: }
85: FS=" "
86: }
87: {
88: junk=$0
89: caps=gsub(/[A-HJ-Z]/,"",junk)
90: constant=0
91: control=0
92: if($1 == term){
93: ck = global = substr($2,2,index($2,",")-2)
94: if(ck in names && ((NF>2 && $NF !~ /C/)||NF < 3)){
95: sub(/^ /, " \\fI", $2)
96: sub(/,/,"\\fP,", $2)
97: }
98: if($2 ~ /[A-Z_$][A-Z_][A-Z_$0-9& ]*/){
99: if($2 !~ /[a-z]/)caps = caps/2
100: control=8*gsub(/[A-Z_$][A-Z_$][A-Z_$0-9& ]*/,"\\s-2&\\s+2")
101: }
102: sub(/^ /,"",$2)
103: if(NF == 3){
104: rside = ckcw($2,0,$NF)
105: if(global in names){
106: if( $3~ /[gGPR]/)
107: printit(" \\fI" global "\\fP, " names[global] "-" last[global],1,control)
108: else if($2 ~ /\\fI/)printit(" " $2, 1, control)
109: else printit(" " rside, 1, control)
110: next
111: }
112: }
113: else rside = $2
114: printit(" " rside, 1, control) #removed space
115: }
116: else {
117: term = $1
118: control=0
119: if(hadamatch){
120: printf("\n")
121: }
122: if(term in names){
123: if(!hadamatch)printf("\n")
124: hadamatch=1
125: newt="\\fI" term "\\fP, " names[term] "-" last[term]
126: printit(newt, 0, 0)
127: if($2 ~ /[A-Z_$][A-Z_$][A-Z_$0-9& ]*/){
128: if($2 !~ /[a-z]/)caps /= 2
129: control=8*gsub(/[A-Z_$][A-Z_$][A-Z_$0-9& ]*/,"\\s-2&\\s+2")
130: }
131: sub(/^ /,"",$2)
132: if(NF == 3)
133: rside = ckcw($2,0,$NF)
134: else rside = $2
135: printit(" " rside, 1, control) #removed space
136: }
137: else {
138: hadamatch=0
139: if($1 ~ /[A-Z_$][A-Z_$][A-Z_$0-9& ]*/){
140: control=8*gsub(/[A-Z_$][A-Z_$][A-Z_$0-9& ]*/,"\\s-2&\\s+2")
141: }
142: lside = $1
143: if(NF == 3){
144: lside = ckcw($1,1,$NF)
145: if($NF ~ /[gGPR]/){
146: r = substr($2,2,index($2,",")-2)
147: if(r in names ){
148: control += 6
149: printit(lside ", \\fI" r "\\fP, " names[r] "-" last[r],0,control)
150: next
151: }
152: else {
153: print "term not in names:" r|"cat 1>&2"
154: sub(/ ./,"")
155: }
156: }
157: }
158: control += 6
159: sub(",","\\fP,",$2)
160: printit(lside ",\\fI" $2, 0, control)
161: }
162: }}
163: function ckcw(rterm,first,code){
164: constant=0
165: savit=rterm
166: if(rterm ~ /^-/){
167: control += 2
168: sub(/^-/,"\\(em",rterm)
169: }
170: if(rterm ~ /^\./){
171: control += 2
172: sub(/^\./,"\\\\&&",rterm)
173: }
174: if(code ~ /[gs]/)return(rterm)
175: if(code ~ /[GcSC]/){
176: if(first)rterm = addit(rterm)
177: else {
178: constant = index(rterm,",")-1
179: if(rterm ~ /s[-+]2/){
180: constant -= 8
181: gsub(/s\+2/,"s+1", rterm)
182: gsub(/s\-2/,"s-1", rterm)
183: rterm = "\\s-1\\f(CW" rterm
184: sub(/,/,"\\fP\\s+1,",rterm)
185: }
186: else {
187: rterm = "\\s-1\\f(CW" rterm
188: sub(/,/,"\\fP\\s+1,",rterm)
189: }
190: }
191: }
192: else if(code ~ /[pPf]/){
193: constant = index(rterm," ")-1
194: if(rterm ~ /s[-+]2/){
195: constant -= 8
196: gsub(/s\+2/,"s+1", rterm)
197: gsub(/s\-2/,"s-1", rterm)
198: rterm = "\\s-1\\f(CW" rterm
199: sub(/ /,"\\fP\\s+1 ", rterm)
200: }
201: else {
202: rterm = "\\s-1\\f(CW" rterm
203: sub(/ /,"\\fP\\s+1 ", rterm)
204: }
205: }
206: else{
207: n=split(rterm, arr, " ")
208: if(code ~ /[Yy]/)rterm = addit(arr[1])
209: else rterm = arr[1]
210: for(i=2;i<=n;i++){
211: if(i==2 && code~/[rRzY]/)rterm = rterm " " addit(arr[i])
212: else if(i==3 && code~/[qyZ]/)rterm=rterm " " addit(arr[i])
213: else if(i==4 && code~/[txzY]/)rterm=rterm " " addit(arr[i])
214: else if(i==5 && code~/[Z]/)rterm=rterm " " addit(arr[i])
215: else if(i==6 && code~/x/)rterm=rterm " " addit(arr[i])
216: else {
217: if(arr[i] ~ /s\+2/)sub(/s\+2/,"s+1",arr[i])
218: rterm = rterm " " arr[i]
219: }
220: }
221: }
222: if(code ~ /[xyz]/)control+=16
223: control += 16
224: return(rterm)
225: }
226: function addit(string){
227: constant += length(string)
228: if(string ~ /s[-+]2/){
229: constant -= 8
230: gsub(/s\+2/,"s+1", string)
231: gsub(/s\-2/,"s-1", string)
232: return("\\s-1\\f(CW" string "\\fP\\s+1")
233: }
234: else return("\\s-1\\f(CW" string "\\fP\\s+1")
235: }
236: function printit(line, space, control){
237: if(!constant)
238: limit=43+control - caps*.5 #was 46 at 8 pt - 43 with italic change
239: else limit = 43 - constant*.4 + 1 + control - caps*.5
240: print "lim " limit " leng " length(line) " cons:ctl:caps " constant ":" control ":" caps " " line|"cat 1>&2"
241: if(space == 0)limit += 2
242: if(length(line)< limit)print line
243: else {
244: n=split(line, a, ",")
245: if(length(a[1])>=limit-6 || space){ #adjust for italic change
246: if(!space)limit -=6
247: m=split(a[1],b," ")
248: nline=b[1]
249: if(space)nline = " " b[1]
250: if(m > 1)for(i=2;i<=m;i++){
251: if(length(nline)+length(b[i])+1>=limit){
252: if(nline ~ /s-2/ && nline !~ /s+2/){
253: print nline "\\s+2"
254: nline = " \\s-2" b[i]
255: }
256: else {
257: print nline
258: nline = " " b[i]
259: }
260: }
261: else nline = nline " " b[i]
262: }
263: for(i=2; i<=n;i++){
264: leng=length(a[i])
265: if(a[i] ~ /-/)leng--
266: if(length(nline)+leng >= limit){
267: print nline ","
268: nline = " " a[i]
269: }
270: else nline = nline "," a[i]
271: }
272: print nline
273: return
274: }
275: nline=a[1]
276: for(i=2;i<=n;i++){
277: if(length(nline)+ length(a[i])>= limit){ #used to be -6
278: print nline ","
279: nline = " " a[i]
280: }
281: else nline = nline "," a[i]
282: }
283: if(length(nline) > 0)print nline
284: }
285: }' 2>/dev/null|finddups >sindex
286: wc sindex
287: # troff sindex.ms >tr.out
288:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.