harvey/sys/src/cmd/tbl/t8.c

/* t8.c: write out one line of output table */
# include "t.h"
# define realsplit ((ct=='a'||ct=='n') && table[nl][c].rcol)
int	watchout;
int	once;

void
putline(int i, int nl)
				/* i is line number for deciding format */
				/* nl is line number for finding data   usually identical */
{
	int	c, s, lf, ct, form, lwid, vspf, ip, cmidx, exvspen, vforml;
	int	vct, chfont, uphalf;
	char	*ss, *size, *fn, *rct;

	cmidx = 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++) {
			ss = table[nl][c].col;
			if (ss == 0) 
				continue;
			if (vspen(ss)) {
				for (ip = nl; ip < nlin; ip = next(ip)){
					ss = table[ip][c].col;
					if (!vspen(ss)) 
						break;
				}
				s = (int)(uintptr)ss;
				if (s > 0 && s < 128)
					Bprint(&tabout, ".ne \\n(%c|u+\\n(.Vu\n", s);
				continue;
			}
			if (point(ss)) 
				continue;
			s = (int)(uintptr)ss;
			Bprint(&tabout, ".ne \\n(%c|u+\\n(.Vu\n", s);
			watchout = 1;
		}
	if (linestop[nl])
		Bprint(&tabout, ".mk #%c\n", linestop[nl] + 'a' - 1);
	lf = prev(nl);
	if (instead[nl]) {
		Bprint(&tabout, "%s\n", 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) {
		Bprint(&tabout, ".nr #^ \\n(\\*(#du\n");
		Bprint(&tabout, ".nr #- \\n(#^\n"); /* current line position relative to bottom */
	}
	vspf = 0;
	chfont = 0;
	for (c = 0; c < ncol; c++) {
		ss = table[nl][c].col;
		if (ss == 0) 
			continue;
		if(font[c][stynum[nl]])
			chfont = 1;
		if (point(ss) ) 
			continue;
		s = (int)(uintptr)ss;
		lf = prev(nl);
		if (lf >= 0 && vspen(table[lf][c].col))
			Bprint(&tabout,
			   ".if (\\n(%c|+\\n(^%c-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(^%c-\\n(#--1v)\n",
			    s, 'a' + c, s, 'a' + c);
		else
			Bprint(&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(i) && !pr1403) {
		Bprint(&tabout, ".nr %d \\n(.v\n", SVS);
		Bprint(&tabout, ".vs \\n(.vu-\\n(.sp\n");
		Bprint(&tabout, ".nr 35 \\n(.vu\n");
	} else
		Bprint(&tabout, ".nr 35 1m\n");
	if (chfont)
		Bprint(&tabout, ".nr %2d \\n(.f\n", S1);
	Bprint(&tabout, "\\&");
	vct = 0;
	for (c = 0; c < ncol; c++) {
		uphalf = 0;
		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') {
			rct = reg(c, CLEFT);
			if (form == 'a') 
				rct = reg(c, CMID);
			if (form == 'n' && table[nl][c].rcol && lused[c] == 0) 
				rct = reg(c, CMID);
			Bprint(&tabout, "\\h'|\\n(%2su'", rct);
		}
		ss = table[nl][c].col;
		fn = font[c][stynum[vforml]];
		size = csize[c][stynum[vforml]];
		if (*size == 0)
			size = 0;
		if ((flags[c][stynum[nl]] & HALFUP) != 0 && pr1403 == 0)
			uphalf = 1;
		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) {
								Bprint(&tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c + 'a');
								if (cmidx)
/* code folded from here */
	Bprint(&tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
/* unfolding */
								vct++;
								if (pr1403) /* must round to whole lines */
/* code folded from here */
	Bprint(&tabout, "/1v*1v");
/* unfolding */
								Bprint(&tabout, "'");
								exvspen = 1;
							}
						}
					Bprint(&tabout, "%c%c", F1, F2);
					if (uphalf) 
						Bprint(&tabout, "\\u");
					puttext(ss, fn, size);
					if (uphalf) 
						Bprint(&tabout, "\\d");
					Bprint(&tabout, "%c", F1);
				}
				ss = 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))
				fprint(2, "%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(ss)) {
				makeline(i, c, ifline(ss));
				continue;
			}
			if (filler(ss)) {
				Bprint(&tabout, "\\l'|\\n(%2su\\&%s'", reg(c, CRIGHT), ss + 2);
				continue;
			}
			ip = prev(nl);
			cmidx = (flags[c][stynum[nl]] & (CTOP | CDOWN)) == 0;
			if (ip >= 0)
				if (vspen(table[ip][c].col)) {
					if (exvspen == 0) {
						Bprint(&tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c + 'a');
						if (cmidx)
							Bprint(&tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
						vct++;
						if (pr1403) /* round to whole lines */
							Bprint(&tabout, "/1v*1v");
						Bprint(&tabout, "'");
					}
				}
			Bprint(&tabout, "%c", F1);
			if (form != 1)
				Bprint(&tabout, "%c", F2);
			if (vspen(ss))
				vspf = 1;
			else
			 {
				if (uphalf) 
					Bprint(&tabout, "\\u");
				puttext(ss, fn, size);
				if (uphalf) 
					Bprint(&tabout, "\\d");
			}
			if (form != 2)
				Bprint(&tabout, "%c", F2);
			Bprint(&tabout, "%c", F1);
		}
		ip = prev(nl);
		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 == (flags[c+1] [stynum[nl]] & (CTOP | CDOWN) == 0))
				     && (left(i, c + 1, &lwid) < 0);
				if (exvspen == 0) {
					Bprint(&tabout, "\\v'(\\n(\\*(#du-\\n(^%cu", c + 'a');
					if (cmidx)
						Bprint(&tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
					vct++;
					if (pr1403) /* round to whole lines */
						Bprint(&tabout, "/1v*1v");
					Bprint(&tabout, "'");
				}
			}
			else
				exvspen = 0;
		/* if lines need to be split for gcos here is the place for a backslash */
		if (vct > 7 && c < ncol) {
			Bprint(&tabout, "\n.sp-1\n\\&");
			vct = 0;
		}
	}
	Bprint(&tabout, "\n");
	if (allh(i) && !pr1403) 
		Bprint(&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))) {
				Bprint(&tabout, ".nr ^%c \\n(#^u\n", 'a' + c);
				topat[c] = nl;
			}
	}
}


void
puttext(char *s, char *fn, char *size)
{
	if (point(s)) {
		putfont(fn);
		putsize(size);
		Bprint(&tabout, "%s", s);
		if (*fn > 0) 
			Bprint(&tabout, "\\f\\n(%2d", S1);
		if (size != 0) 
			putsize("0");
	}
}


void
funnies(int stl, int lin)
{
					/* write out funny diverted things */
	int	c, s, pl, lwid, dv, lf, ct;
	char	*fn, *ss;

	Bprint(&tabout, ".mk ##\n");	 /* rmember current vertical position */
	Bprint(&tabout, ".nr %d \\n(##\n", S1);		 /* bottom position */
	for (c = 0; c < ncol; c++) {
		ss = table[lin][c].col;
		if (point(ss)) 
			continue;
		if (ss == 0) 
			continue;
		s = (int)(uintptr)ss;
		Bprint(&tabout, ".sp |\\n(##u-1v\n");
		Bprint(&tabout, ".nr %d ", SIND);
		ct = 0;
		for (pl = stl; pl >= 0 && !isalpha(ct = ctype(pl, c)); pl = prev(pl))
			;
		switch (ct) {
		case 'n':
		case 'c':
			Bprint(&tabout, "(\\n(%2su+\\n(%2su-\\n(%c-u)/2u\n", reg(c, CLEFT),
			     reg(c - 1 + ctspan(lin, c), CRIGHT),
			     s);
			break;
		case 'l':
			Bprint(&tabout, "\\n(%2su\n", reg(c, CLEFT));
			break;
		case 'a':
			Bprint(&tabout, "\\n(%2su\n", reg(c, CMID));
			break;
		case 'r':
			Bprint(&tabout, "\\n(%2su-\\n(%c-u\n", reg(c, CRIGHT), s);
			break;
		}
		Bprint(&tabout, ".in +\\n(%du\n", SIND);
		fn = font[c][stynum[stl]];
		putfont(fn);
		pl = prev(stl);
		if (stl > 0 && pl >= 0 && vspen(table[pl][c].col)) {
			Bprint(&tabout, ".sp |\\n(^%cu\n", 'a' + c);
			if ((flags[c][stynum[stl]] & (CTOP | CDOWN)) == 0) {
				Bprint(&tabout, ".nr %d \\n(#-u-\\n(^%c-\\n(%c|+1v\n",
				     TMP, 'a' + c, s);
				Bprint(&tabout, ".if \\n(%d>0 .sp \\n(%du/2u", TMP, TMP);
				if (pr1403)		 /* round */
					Bprint(&tabout, "/1v*1v");
				Bprint(&tabout, "\n");
			}
		}
		Bprint(&tabout, ".%c+\n", s);
		Bprint(&tabout, ".in -\\n(%du\n", SIND);
		if (*fn > 0) 
			putfont("P");
		Bprint(&tabout, ".mk %d\n", S2);
		Bprint(&tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n", S2, S1, S1, S2);
	}
	Bprint(&tabout, ".sp |\\n(%du\n", S1);
	for (c = dv = 0; c < ncol; c++) {
		if (stl + 1 < nlin && (lf = left(stl, c, &lwid)) >= 0) {
			if (dv++ == 0)
				Bprint(&tabout, ".sp -1\n");
			tohcol(c);
			dv++;
			drawvert(lf, stl, c, lwid);
		}
	}
	if (dv)
		Bprint(&tabout, "\n");
}


void
putfont(char *fn)
{
	if (fn && *fn)
		Bprint(&tabout,  fn[1] ? "\\f(%.2s" : "\\f%.2s",  fn);
}


void
putsize(char *s)
{
	if (s && *s)
		Bprint(&tabout, "\\s%s", s);
}