/* t7.c: control to write table entries */# include "t..c"# define realsplit ((ct=='a'||ct=='n') && table[ldata][c].rcol)runout(){int i;if (boxflg || allflg || dboxflg) need();if (ctrflg)	{	fprintf(tabout, ".nr #I \\n(.i\n");	fprintf(tabout, ".in +(\\n(.lu-\\n(TWu-\\n(.iu)/2u\n");	}fprintf(tabout, ".fc %c %c\n", F1, F2);fprintf(tabout, ".nr #T 0-1\n");deftail();for(i=0; i<nlin; i++)	putline(i,i);if (leftover)	yetmore();fprintf(tabout, ".fc\n");fprintf(tabout, ".nr T. 1\n");fprintf(tabout, ".T# 1\n");if (ctrflg)	fprintf(tabout, ".in \\n(#Iu\n");}runtabs(lform, ldata){int c, ct, vforml, lf;fprintf(tabout, ".ta ");for(c=0; c<ncol; c++)	{	vforml=lform;	for(lf=prev(lform); lf>=0 && vspen(table[lf][c].col); lf=prev(lf))		vforml=lf;	if (fspan(vforml,c))		continue;	switch(ct=ctype(vforml,c))		{		case 'n':		case 'a':			if (table[ldata][c].rcol)			  if (lused[c]) /*Zero field width*/				fprintf(tabout, "\\n(%du ",c+CMID);		case 'c':		case 'l':		case 'r':		    if (realsplit? rused[c]: (used[c]+lused[c]))			fprintf(tabout, "\\n(%du ",c+CRIGHT);			continue;		case 's':			if (lspan(lform, c))				fprintf(tabout, "\\n(%du ", c+CRIGHT);			continue;		}	}fprintf(tabout, "\n");}ifline(s)	char *s;{if (s[0] == '\\') s++;if (s[1] ) return(0);if (s[0] == '_') return('-');if (s[0] == '=') return('=');return(0);}need(){int texlin, horlin, i;for(texlin=horlin=i=0; i<nlin; i++)	{	if (fullbot[i]!=0)		horlin++;	else	if (instead[i]!=0)		continue;	else		texlin++;	}fprintf(tabout, ".ne %dv+%dp\n",texlin,2*horlin);}deftail(){int i, c, lf, lwid;for(i=0; i<MAXHEAD; i++)	if (linestop[i])		fprintf(tabout, ".nr #%c 0-1\n", linestop[i]+'a'-1);fprintf(tabout, ".nr #a 0-1\n");fprintf(tabout, ".eo\n");fprintf(tabout, ".de T#\n");fprintf(tabout, ".ds #d .d\n");fprintf(tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");	fprintf(tabout, ".mk ##\n");	fprintf(tabout, ".nr ## -1v\n");	fprintf(tabout, ".ls 1\n");	for(i=0; i<MAXHEAD; i++)		if (linestop[i])			fprintf(tabout, ".if \\n(#T>=0 .nr #%c \\n(#T\n",linestop[i]+'a'-1);if (boxflg || allflg || dboxflg) /* bottom of table line */	if (fullbot[nlin-1]==0)		{		if (!pr1403)			fprintf(tabout, ".if \\n(T. .vs \\n(.vu-\\n(.sp\n");		fprintf(tabout, ".if \\n(T. ");		drawline(nlin,0,ncol, dboxflg ? '=' : '-',1,0);		fprintf(tabout, "\n.if \\n(T. .vs\n");		/* T. is really an argument to a macro but because of 		   eqn we don't dare pass it as an argument and reference by $1 */		}	for(c=0; c<ncol; c++)		{		if ((lf=left(nlin-1,c, &lwid))>=0)			{			fprintf(tabout, ".if \\n(#%c>=0 .sp -1\n",linestop[lf]+'a'-1);			fprintf(tabout, ".if \\n(#%c>=0 ", linestop[lf]+'a'-1);			tohcol(c);			drawvert(lf, nlin-1, c, lwid);			fprintf(tabout, "\\h'|\\n(TWu'\n");			}		}	if (boxflg || allflg || dboxflg) /* right hand line */		{		fprintf(tabout, ".if \\n(#a>=0 .sp -1\n");		fprintf(tabout, ".if \\n(#a>=0 \\h'|\\n(TWu'");		drawvert (0, nlin-1, ncol, dboxflg? 2 : 1);		fprintf(tabout, "\n");		}fprintf(tabout, ".ls\n");fprintf(tabout, "..\n");fprintf(tabout, ".ec\n");}