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