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