1/*
2 * Copyright 1998 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/* t7.c: control to write table entries */
16# include "t..c"
17# define realsplit ((ct=='a'||ct=='n') && table[ldata][c].rcol)
18
19void	need(void);
20void	deftail(void);
21
22void
23runout(void)
24{
25int i;
26if (boxflg || allflg || dboxflg) need();
27if (ctrflg)
28	{
29	fprintf(tabout, ".nr #I \\n(.i\n");
30	fprintf(tabout, ".in +(\\n(.lu-\\n(TWu-\\n(.iu)/2u\n");
31	}
32fprintf(tabout, ".fc %c %c\n", F1, F2);
33fprintf(tabout, ".nr #T 0-1\n");
34deftail();
35for(i=0; i<nlin; i++)
36	putline(i,i);
37if (leftover)
38	yetmore();
39fprintf(tabout, ".fc\n");
40fprintf(tabout, ".nr T. 1\n");
41fprintf(tabout, ".T# 1\n");
42if (ctrflg)
43	fprintf(tabout, ".in \\n(#Iu\n");
44}
45
46void
47runtabs(int lform, int ldata)
48{
49int c, ct, vforml, lf;
50fprintf(tabout, ".ta ");
51for(c=0; c<ncol; c++)
52	{
53	vforml=lform;
54	for(lf=prev(lform); lf>=0 && vspen(table[lf][c].col); lf=prev(lf))
55		vforml=lf;
56	if (fspan(vforml,c))
57		continue;
58	switch(ct=ctype(vforml,c))
59		{
60		case 'n':
61		case 'a':
62			if (table[ldata][c].rcol)
63			  if (lused[c]) /*Zero field width*/
64				fprintf(tabout, "\\n(%du ",c+CMID);
65			/* FALLTHROUGH */
66		case 'c':
67		case 'l':
68		case 'r':
69			if (realsplit? rused[c]: (used[c]+lused[c]))
70				fprintf(tabout, "\\n(%du ",c+CRIGHT);
71			continue;
72		case 's':
73			if (lspan(lform, c))
74				fprintf(tabout, "\\n(%du ", c+CRIGHT);
75			continue;
76		}
77	}
78fprintf(tabout, "\n");
79}
80
81int
82ifline(char *s)
83{
84if (!point(s)) return(0);
85if (s[0] == '\\') s++;
86if (s[1] ) return(0);
87if (s[0] == '_') return('-');
88if (s[0] == '=') return('=');
89return(0);
90}
91
92void
93need(void)
94{
95	int texlin, horlin, i;
96
97	for(texlin = horlin = i = 0; i < nlin; i++) {
98		if (allh(i))
99			horlin++;
100		else if (instead[i] != 0)
101			continue;
102		else
103			texlin++;
104	}
105	(void) fprintf(tabout, ".ne %dv+%dp\n", texlin, 2 * horlin);
106	/*
107	 * For nroff runs, we need to reserve space for the full height of the
108	 * horizontal rules.  If we don't reserve sufficient height, we'll have
109	 * problems trying to draw the vertical lines across the page boundary.
110	 */
111	(void) fprintf(tabout, ".if n .ne %dv\n", 2 * texlin + 2 * horlin + 2);
112}
113
114void
115deftail(void)
116{
117int i, c, lf, lwid;
118for(i=0; i<MAXHEAD; i++)
119	if (linestop[i])
120		fprintf(tabout, ".nr #%c 0-1\n", linestop[i]+'a'-1);
121fprintf(tabout, ".nr #a 0-1\n");
122fprintf(tabout, ".eo\n");
123fprintf(tabout, ".de T#\n");
124fprintf(tabout, ".ds #d .d\n");
125fprintf(tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");
126	fprintf(tabout, ".mk ##\n");
127	fprintf(tabout, ".nr ## -1v\n");
128	fprintf(tabout, ".ls 1\n");
129	for(i=0; i<MAXHEAD; i++)
130		if (linestop[i])
131			fprintf(tabout, ".if \\n(#T>=0 .nr #%c \\n(#T\n",linestop[i]+'a'-1);
132if (boxflg || allflg || dboxflg) { /* bottom of table line */
133	if (!pr1403)
134		fprintf(tabout, ".if \\n(T. .vs \\n(.vu-\\n(.sp\n");
135	fprintf(tabout, ".if \\n(T. ");
136	drawline(nlin,0,ncol, dboxflg ? '=' : '-',1,0);
137	fprintf(tabout, "\n.if \\n(T. .vs\n");
138	/* T. is really an argument to a macro but because of
139		   eqn we don't dare pass it as an argument and reference by $1 */
140}
141	for(c=0; c<ncol; c++)
142		{
143		if ((lf=left(nlin-1,c, &lwid))>=0)
144			{
145			fprintf(tabout, ".if \\n(#%c>=0 .sp -1\n",linestop[lf]+'a'-1);
146			fprintf(tabout, ".if \\n(#%c>=0 ", linestop[lf]+'a'-1);
147			tohcol(c);
148			drawvert(lf, nlin-1, c, lwid);
149			fprintf(tabout, "\\h'|\\n(TWu'\n");
150			}
151		}
152	if (boxflg || allflg || dboxflg) /* right hand line */
153		{
154		fprintf(tabout, ".if \\n(#a>=0 .sp -1\n");
155		fprintf(tabout, ".if \\n(#a>=0 \\h'|\\n(TWu'");
156		drawvert (0, nlin-1, ncol, dboxflg? 2 : 1);
157		fprintf(tabout, "\n");
158		}
159fprintf(tabout, ".ls\n");
160fprintf(tabout, "..\n");
161fprintf(tabout, ".ec\n");
162}
163