![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t8.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / tbl|
Return to t8.c CVS log | Up to [Research Unix] / researchv9 / cmd / tbl |
1.1 root 1: /* t8.c: write out one line of output table */
2: # include "t..c"
3: # define realsplit ((ct=='a'||ct=='n') && table[nl][c].rcol)
4: int watchout;
5: int once;
6: putline(i, nl)
7: /* i is line number for deciding format */
8: /* nl is line number for finding data usually identical */
9: {
10: int c, lf, ct, form, lwid, vspf, ip, cmidx, exvspen, vforml;
11: int vct, chfont, uphalf;
12: char *s, *size, *fn;
13: cmidx=watchout=vspf=exvspen=0;
14: if (i==0) once=0;
15: if (i==0 && ( allflg || boxflg || dboxflg))
16: fullwide(0, dboxflg? '=' : '-');
17: if (instead[nl]==0 && fullbot[nl] ==0)
18: for(c=0; c<ncol; c++)
19: {
20: s = table[nl][c].col;
21: if (s==0) continue;
22: if (vspen(s))
23: {
24: for(ip=nl; ip<nlin; ip=next(ip))
25: if (!vspen(s=table[ip][c].col)) break;
26: if ((int)s>0 && (int)s<128)
27: fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s);
28: continue;
29: }
30: if (point(s)) continue;
31: fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s);
32: watchout=1;
33: }
34: if (linestop[nl])
35: fprintf(tabout, ".mk #%c\n", linestop[nl]+'a'-1);
36: lf = prev(nl);
37: if (instead[nl])
38: {
39: puts(instead[nl]);
40: return;
41: }
42: if (fullbot[nl])
43: {
44: switch (ct=fullbot[nl])
45: {
46: case '=':
47: case '-':
48: fullwide(nl,ct);
49: }
50: return;
51: }
52: for(c=0; c<ncol; c++)
53: {
54: if (instead[nl]==0 && fullbot[nl]==0)
55: if (vspen(table[nl][c].col)) vspf=1;
56: if (lf>=0)
57: if (vspen(table[lf][c].col)) vspf=1;
58: }
59: if (vspf)
60: {
61: fprintf(tabout, ".nr #^ \\n(\\*(#du\n");
62: fprintf(tabout, ".nr #- \\n(#^\n"); /* current line position relative to bottom */
63: }
64: vspf=0;
65: chfont=0;
66: for(c=0; c<ncol; c++)
67: {
68: s = table[nl][c].col;
69: if (s==0) continue;
70: chfont |= (int)(font[c][stynum[nl]]);
71: if (point(s) ) continue;
72: lf=prev(nl);
73: if (lf>=0 && vspen(table[lf][c].col))
74: fprintf(tabout, ".if (\\n(%c|+\\n(^%c-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(^%c-\\n(#--1v)\n",s,'a'+c,s,'a'+c);
75: else
76: fprintf(tabout, ".if (\\n(%c|+\\n(#^-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(#^-\\n(#--1v)\n",s,s);
77: }
78: if (allflg && once>0 )
79: fullwide(i,'-');
80: once=1;
81: runtabs(i, nl);
82: if (allh(i) && !pr1403)
83: {
84: fprintf(tabout, ".nr %d \\n(.v\n", SVS);
85: fprintf(tabout, ".vs \\n(.vu-\\n(.sp\n");
86: fprintf(tabout, ".nr 35 \\n(.vu\n");
87: }
88: else
89: fprintf(tabout, ".nr 35 1m\n");
90: if (chfont)
91: fprintf(tabout, ".nr %2d \\n(.f\n", S1);
92: fprintf(tabout, "\\&");
93: vct = 0;
94: for(c=0; c<ncol; c++)
95: {
96: uphalf=0;
97: if (watchout==0 && i+1<nlin && (lf=left(i,c, &lwid))>=0)
98: {
99: tohcol(c);
100: drawvert(lf, i, c, lwid);
101: vct += 2;
102: }
103: if (rightl && c+1==ncol) continue;
104: vforml=i;
105: for(lf=prev(nl); lf>=0 && vspen(table[lf][c].col); lf=prev(lf))
106: vforml= lf;
107: form= ctype(vforml,c);
108: if (form != 's')
109: {
110: ct = reg(c,CLEFT);
111: if (form=='a') ct = reg(c,CMID);
112: if (form=='n' && table[nl][c].rcol && lused[c]==0) ct= reg(c,CMID);
113: fprintf(tabout, "\\h'|\\n(%2su'", ct);
114: }
115: s= table[nl][c].col;
116: fn = font[c][stynum[vforml]];
117: size = csize[c][stynum[vforml]];
118: if (*size==0)size=0;
119: if ((flags[c][stynum[nl]] & HALFUP)!=0 && pr1403 == 0)
120: uphalf=1;
121: switch(ct=ctype(vforml, c))
122: {
123: case 'n':
124: case 'a':
125: if (table[nl][c].rcol)
126: {
127: if (lused[c]) /*Zero field width*/
128: {
129: ip = prev(nl);
130: if (ip>=0)
131: if (vspen(table[ip][c].col))
132: {
133: if (exvspen==0)
134: {
135: fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a');
136: if (cmidx)
137: fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');
138: vct++;
139: if (pr1403) /* must round to whole lines */
140: fprintf(tabout, "/1v*1v");
141: fprintf(tabout, "'");
142: exvspen=1;
143: }
144: }
145: fprintf(tabout, "%c%c",F1,F2);
146: if (uphalf) fprintf(tabout, "\\u");
147: puttext(s,fn,size);
148: if (uphalf) fprintf(tabout, "\\d");
149: fprintf(tabout, "%c",F1);
150: }
151: s= table[nl][c].rcol;
152: form=1;
153: break;
154: }
155: case 'c':
156: form=3; break;
157: case 'r':
158: form=2; break;
159: case 'l':
160: form=1; break;
161: case '-':
162: case '=':
163: if (real(table[nl][c].col))
164: fprintf(stderr,"%s: line %d: Data ignored on table line %d\n", ifile, iline-1, i+1);
165: makeline(i,c,ct);
166: continue;
167: default:
168: continue;
169: }
170: if (realsplit ? rused[c]: used[c]) /*Zero field width*/
171: {
172: /* form: 1 left, 2 right, 3 center adjust */
173: if (ifline(s))
174: {
175: makeline(i,c,ifline(s));
176: continue;
177: }
178: if (filler(s))
179: {
180: fprintf(tabout, "\\l'|\\n(%2su\\&%s'", reg(c,CRIGHT), s+2);
181: continue;
182: }
183: ip = prev(nl);
184: cmidx = (flags[c][stynum[nl]] & (CTOP|CDOWN))==0;
185: if (ip>=0)
186: if (vspen(table[ip][c].col))
187: {
188: if (exvspen==0)
189: {
190: fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a');
191: if (cmidx)
192: fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');
193: vct++;
194: if (pr1403) /* round to whole lines */
195: fprintf(tabout, "/1v*1v");
196: fprintf(tabout, "'");
197: }
198: }
199: fprintf(tabout, "%c", F1);
200: if (form!= 1)
201: fprintf(tabout, "%c", F2);
202: if (vspen(s))
203: vspf=1;
204: else
205: {
206: if (uphalf) fprintf(tabout, "\\u");
207: puttext(s, fn, size);
208: if (uphalf) fprintf(tabout, "\\d");
209: }
210: if (form !=2)
211: fprintf(tabout, "%c", F2);
212: fprintf(tabout, "%c", F1);
213: }
214: ip = prev(nl);
215: if (ip>=0)
216: if (vspen(table[ip][c].col))
217: {
218: exvspen = (c+1 < ncol) && vspen(table[ip][c+1].col) &&
219: (topat[c] == topat[c+1]) &&
220: (cmidx == (flags[c+1] [stynum[nl]]&(CTOP|CDOWN)==0)) && (left(i,c+1,&lwid)<0);
221: if (exvspen==0)
222: {
223: fprintf(tabout, "\\v'(\\n(\\*(#du-\\n(^%cu", c+'a');
224: if (cmidx)
225: fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');
226: vct++;
227: if (pr1403) /* round to whole lines */
228: fprintf(tabout, "/1v*1v");
229: fprintf(tabout, "'");
230: }
231: }
232: else
233: exvspen=0;
234: /* if lines need to be split for gcos here is the place for a backslash */
235: if (vct > 7 && c < ncol)
236: {
237: fprintf(tabout, "\n.sp-1\n\\&");
238: vct=0;
239: }
240: }
241: fprintf(tabout, "\n");
242: if (allh(i) && !pr1403) fprintf(tabout, ".vs \\n(%du\n", SVS);
243: if (watchout)
244: funnies(i,nl);
245: if (vspf)
246: {
247: for(c=0; c<ncol; c++)
248: if (vspen(table[nl][c].col) && (nl==0 || (lf=prev(nl))<0 || !vspen(table[lf][c].col)))
249: {
250: fprintf(tabout, ".nr ^%c \\n(#^u\n", 'a'+c);
251: topat[c]=nl;
252: }
253: }
254: }
255: puttext(s,fn, size)
256: char *s, *size, *fn;
257: {
258: if (point(s))
259: {
260: putfont(fn);
261: putsize(size);
262: fprintf(tabout, "%s",s);
263: if (*fn>0) fprintf(tabout, "\\f\\n(%2d", S1);
264: if (size!=0) putsize("0");
265: }
266: }
267: funnies( stl, lin)
268: {
269: /* write out funny diverted things */
270: int c, s, pl, lwid, dv, lf, ct;
271: char *fn;
272: fprintf(tabout, ".mk ##\n"); /* rmember current vertical position */
273: fprintf(tabout, ".nr %d \\n(##\n", S1); /* bottom position */
274: for(c=0; c<ncol; c++)
275: {
276: s = (int)table[lin][c].col;
277: if (point(s)) continue;
278: if (s==0) continue;
279: fprintf(tabout, ".sp |\\n(##u-1v\n");
280: fprintf(tabout, ".nr %d ", SIND);
281: for(pl=stl; pl>=0 && !isalpha(ct=ctype(pl,c)); pl=prev(pl))
282: ;
283: switch (ct)
284: {
285: case 'n':
286: case 'c':
287: fprintf(tabout, "(\\n(%2su+\\n(%2su-\\n(%c-u)/2u\n",reg(c,CLEFT),reg(c-1+ctspan(lin,c),CRIGHT), s);
288: break;
289: case 'l':
290: fprintf(tabout, "\\n(%2su\n",reg(c,CLEFT));
291: break;
292: case 'a':
293: fprintf(tabout, "\\n(%2su\n",reg(c,CMID));
294: break;
295: case 'r':
296: fprintf(tabout, "\\n(%2su-\\n(%c-u\n", reg(c,CRIGHT), s);
297: break;
298: }
299: fprintf(tabout, ".in +\\n(%du\n", SIND);
300: fn=font[c][stynum[stl]];
301: putfont(fn);
302: pl = prev(stl);
303: if (stl>0 && pl>=0 && vspen(table[pl][c].col))
304: {
305: fprintf(tabout, ".sp |\\n(^%cu\n", 'a'+c);
306: if ((flags[c][stynum[stl]]&(CTOP|CDOWN))==0)
307: {
308: fprintf(tabout, ".nr %d \\n(#-u-\\n(^%c-\\n(%c|+1v\n",TMP, 'a'+c, s);
309: fprintf(tabout, ".if \\n(%d>0 .sp \\n(%du/2u", TMP, TMP);
310: if (pr1403) /* round */
311: fprintf(tabout, "/1v*1v");
312: fprintf(tabout, "\n");
313: }
314: }
315: fprintf(tabout, ".%c+\n",s);
316: fprintf(tabout, ".in -\\n(%du\n", SIND);
317: if (*fn>0) putfont("P");
318: fprintf(tabout, ".mk %d\n", S2);
319: fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n", S2, S1, S1, S2);
320: }
321: fprintf(tabout, ".sp |\\n(%du\n", S1);
322: for(c=dv=0; c<ncol; c++)
323: {
324: if (stl+1< nlin && (lf=left(stl,c,&lwid))>=0)
325: {
326: if (dv++ == 0)
327: fprintf(tabout, ".sp -1\n");
328: tohcol(c);
329: dv++;
330: drawvert(lf, stl, c, lwid);
331: }
332: }
333: if (dv)
334: fprintf(tabout,"\n");
335: }
336: putfont(fn)
337: char *fn;
338: {
339: if (fn && *fn)
340: fprintf(tabout, fn[1] ? "\\f(%.2s" : "\\f%.2s", fn);
341: }
342: putsize(s)
343: char *s;
344: {
345: if (s && *s)
346: fprintf(tabout, "\\s%s",s);
347: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.