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