rem: putline(i, nl)
add: putline(int i, int nl)
context: putline(i, nl)	/* i is line number for deciding format */	/* nl is line number for finding data   usually identical */{int c, lf, ct, form, lwid, vspf, ip = -1, cmidx, exvspen, vforml;int vct, chfont;char *s, *size, *fn;watchout=vspf=exvspen=0;if (i==0) once=0;if (i==0 && ( allflg || boxflg || dboxflg))	fullwide(0,   dboxflg? '=' : '-');if (instead[nl]==0 && fullbot[nl] ==0)for(c=0; c<ncol; c++)	{	s = table[nl][c].col;	if (s==0) continue;	if (vspen(s))		{		for(ip=nl; ip<nlin; ip=next(ip))			if (!vspen(s=table[ip][c].col)) break;		if (s>(char *)0 && s<(char *)128)		fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s);		continue;		}	if (point(s)) continue;	fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s);	watchout=1;	}if (linestop[nl])	fprintf(tabout, ".mk #%c\n", linestop[nl]+'a'-1);lf = prev(nl);if (instead[nl])	{	puts(instead[nl]);	return;	}if (fullbot[nl])	{	switch (ct=fullbot[nl])		{		case '=':		case '-':			fullwide(nl,ct);		}	return;	}for(c=0; c<ncol; c++)	{	if (instead[nl]==0 && fullbot[nl]==0)	if (vspen(table[nl][c].col)) vspf=1;	if (lf>=0)		if (vspen(table[lf][c].col)) vspf=1;	}if (vspf)	{	fprintf(tabout, ".nr #^ \\n(\\*(#du\n");	fprintf(tabout, ".nr #- \\n(#^\n"); /* current line position relative to bottom */	}vspf=0;chfont=0;for(c=0; c<ncol; c++)	{	s = table[nl][c].col;	if (s==0) continue;	chfont |= (int)(font[stynum[nl]][c]);	if (point(s) ) continue;	lf=prev(nl);	if (lf>=0 && vspen(table[lf][c].col))		fprintf(tabout, ".if (\\n(%c|+\\n(^%c-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(^%c-\\n(#--1v)\n",s,'a'+c,s,'a'+c);	else		fprintf(tabout, ".if (\\n(%c|+\\n(#^-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(#^-\\n(#--1v)\n",s,s);	}if (allflg && once>0 )	fullwide(i,'-');once=1;runtabs(i, nl);if (allh(nl) && !pr1403)	{	fprintf(tabout, ".nr %d \\n(.v\n", SVS);	fprintf(tabout, ".vs \\n(.vu-\\n(.sp\n");	}if (chfont)	fprintf(tabout, ".nr %2d \\n(.f\n", S1);fprintf(tabout, ".nr 35 1m\n");fprintf(tabout, "\\&");vct = 0;for(c=0; c<ncol; c++)	{	if (watchout==0 && i+1<nlin && (lf=left(i,c, &lwid))>=0)		{		tohcol(c);		drawvert(lf, i, c, lwid);		vct += 2;		}	if (rightl && c+1==ncol) continue;	vforml=i;	for(lf=prev(nl); lf>=0 && vspen(table[lf][c].col); lf=prev(lf))		vforml= lf;	form= ctype(vforml,c);	if (form != 's')		{		ct = c+CLEFT;		if (form=='a') ct = c+CMID;		if (form=='n' && table[nl][c].rcol && lused[c]==0) ct= c+CMID;		fprintf(tabout, "\\h'|\\n(%du'", ct);		}	s= table[nl][c].col;	fn = font[stynum[vforml]][c];	size = csize[stynum[vforml]][c];	if (*size==0)size=0;	switch(ct=ctype(vforml, c))		{		case 'n':		case 'a':			if (table[nl][c].rcol)				{			   if (lused[c]) /*Zero field width*/				{				ip = prev(nl);				if (ip>=0)				if (vspen(table[ip][c].col))					{					if (exvspen==0)						{						fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a');						if (cmidx)							fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');						vct++;						fprintf(tabout, "'");						exvspen=1;						}					}				fprintf(tabout, "%c%c",F1,F2);				puttext(s,fn,size);				fprintf(tabout, "%c",F1);				}				s= table[nl][c].rcol;				form=1;				break;				}		case 'c':			form=3; break;		case 'r':			form=2; break;		case 'l':			form=1; break;		case '-':		case '=':			if (real(table[nl][c].col))				fprintf(stderr,gettext("%s: line %d: Data ignored on table line %d\n"), ifile, iline-1, i+1);			makeline(i,c,ct);			continue;		default:			continue;		}	if (realsplit ? rused[c]: used[c]) /*Zero field width*/		{		/* form: 1 left, 2 right, 3 center adjust */		if (ifline(s))			{			makeline(i,c,ifline(s));			continue;			}		if (filler(s))			{			printf("\\l'|\\n(%du\\&%s'", c+CRIGHT, s+2);			continue;			}		ip = prev(nl);		cmidx = ctop[stynum[nl]][c]==0;		if (ip>=0)		if (vspen(table[ip][c].col))			{			if (exvspen==0)				{				fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a');				if (cmidx)					fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');				vct++;				fprintf(tabout, "'");				}			}		fprintf(tabout, "%c", F1);		if (form!= 1)			fprintf(tabout, "%c", F2);		if (vspen(s))			vspf=1;		else		puttext(s, fn, size);		if (form !=2)			fprintf(tabout, "%c", F2);		fprintf(tabout, "%c", F1);		}	if (ip>=0)	if (vspen(table[ip][c].col))		{		exvspen = (c+1 < ncol) && vspen(table[ip][c+1].col) &&			(topat[c] == topat[c+1]) &&			(cmidx == (ctop [stynum[nl]][c+1]==0)) && (left(i,c+1,&lwid)<0);		if (exvspen==0)			{			fprintf(tabout, "\\v'(\\n(\\*(#du-\\n(^%cu", c+'a');			if (cmidx)				fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');			vct++;			fprintf(tabout, "'");			}		}	else		exvspen=0;	/* if lines need to be split for gcos here is the place for a backslash */	if (vct > 7 && c < ncol)		{		fprintf(tabout, "\n.sp-1\n\\&");		vct=0;		}	}fprintf(tabout, "\n");if (allh(nl) && !pr1403) fprintf(tabout, ".vs \\n(%du\n", SVS);if (watchout)	funnies(i,nl);if (vspf)	{	for(c=0; c<ncol; c++)		if (vspen(table[nl][c].col) && (nl==0 || (lf=prev(nl))<0 || !vspen(table[lf][c].col)))			{			fprintf(tabout, ".nr ^%c \\n(#^u\n", 'a'+c);			topat[c]=nl;			}	}}