1 5cedca1b 2004-05-15 devnull /* t6.c: compute tab stops */
2 5cedca1b 2004-05-15 devnull # define tx(a) (a>0 && a<128)
3 5cedca1b 2004-05-15 devnull # include "t.h"
4 5cedca1b 2004-05-15 devnull # define FN(i,c) font[c][stynum[i]]
5 5cedca1b 2004-05-15 devnull # define SZ(i,c) csize[c][stynum[i]]
6 5cedca1b 2004-05-15 devnull # define TMP1 S1
7 5cedca1b 2004-05-15 devnull # define TMP2 S2
10 5cedca1b 2004-05-15 devnull maktab(void) /* define the tab stops of the table */
12 a5f3a00b 2006-04-20 devnull int icol, ilin, tsep, k, ik, vforml, il, s, text;
13 a5f3a00b 2006-04-20 devnull char *ss;
15 5cedca1b 2004-05-15 devnull for (icol = 0; icol < ncol; icol++) {
16 5cedca1b 2004-05-15 devnull doubled[icol] = acase[icol] = 0;
17 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s 0\n", reg(icol, CRIGHT));
18 5cedca1b 2004-05-15 devnull for (text = 0; text < 2; text++) {
19 5cedca1b 2004-05-15 devnull if (text)
20 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".%2s\n.rm %2s\n", reg(icol, CRIGHT),
21 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT));
22 5cedca1b 2004-05-15 devnull for (ilin = 0; ilin < nlin; ilin++) {
23 fa325e9b 2020-01-10 cross if (instead[ilin] || fullbot[ilin])
24 5cedca1b 2004-05-15 devnull continue;
25 5cedca1b 2004-05-15 devnull vforml = ilin;
26 5cedca1b 2004-05-15 devnull for (il = prev(ilin); il >= 0 && vspen(table[il][icol].col); il = prev(il))
27 5cedca1b 2004-05-15 devnull vforml = il;
28 fa325e9b 2020-01-10 cross if (fspan(vforml, icol))
29 5cedca1b 2004-05-15 devnull continue;
30 fa325e9b 2020-01-10 cross if (filler(table[ilin][icol].col))
31 5cedca1b 2004-05-15 devnull continue;
32 fa325e9b 2020-01-10 cross if ((flags[icol][stynum[ilin]] & ZEROW) != 0)
33 5cedca1b 2004-05-15 devnull continue;
34 5cedca1b 2004-05-15 devnull switch (ctype(vforml, icol)) {
35 5cedca1b 2004-05-15 devnull case 'a':
36 5cedca1b 2004-05-15 devnull acase[icol] = 1;
37 a5f3a00b 2006-04-20 devnull ss = table[ilin][icol].col;
38 a5f3a00b 2006-04-20 devnull s = (int)(uintptr)ss;
39 a5f3a00b 2006-04-20 devnull if (s > 0 && s < 128 && text) {
40 5cedca1b 2004-05-15 devnull if (doubled[icol] == 0)
41 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 0\n.nr %d 0\n",
43 5cedca1b 2004-05-15 devnull doubled[icol] = 1;
44 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%c->\\n(%d .nr %d \\n(%c-\n",
45 a5f3a00b 2006-04-20 devnull s, S2, S2, s);
47 5cedca1b 2004-05-15 devnull case 'n':
48 5cedca1b 2004-05-15 devnull if (table[ilin][icol].rcol != 0) {
49 5cedca1b 2004-05-15 devnull if (doubled[icol] == 0 && text == 0)
50 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 0\n.nr %d 0\n",
52 5cedca1b 2004-05-15 devnull doubled[icol] = 1;
53 a5f3a00b 2006-04-20 devnull if (real(ss = table[ilin][icol].col) && !vspen(ss)) {
54 a5f3a00b 2006-04-20 devnull s = (int)(uintptr)ss;
55 fa325e9b 2020-01-10 cross if (tx(s) != text)
56 5cedca1b 2004-05-15 devnull continue;
57 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d ", TMP);
58 fa325e9b 2020-01-10 cross wide(ss, FN(vforml, icol), SZ(vforml, icol));
59 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
60 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",
61 5cedca1b 2004-05-15 devnull S1, TMP, S1, TMP);
63 a5f3a00b 2006-04-20 devnull if (text == 0 && real(ss = table[ilin][icol].rcol) && !vspen(ss) && !barent(ss)) {
64 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\w%c%s%c\n",
65 a5f3a00b 2006-04-20 devnull TMP, F1, ss, F1);
66 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", S2, TMP, S2,
69 5cedca1b 2004-05-15 devnull continue;
71 5cedca1b 2004-05-15 devnull case 'r':
72 5cedca1b 2004-05-15 devnull case 'c':
73 5cedca1b 2004-05-15 devnull case 'l':
74 a5f3a00b 2006-04-20 devnull if (real(ss = table[ilin][icol].col) && !vspen(ss)) {
75 a5f3a00b 2006-04-20 devnull s = (int)(uintptr)ss;
76 fa325e9b 2020-01-10 cross if (tx(s) != text)
77 5cedca1b 2004-05-15 devnull continue;
78 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d ", TMP);
79 fa325e9b 2020-01-10 cross wide(ss, FN(vforml, icol), SZ(vforml, icol));
80 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
81 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n",
82 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT), TMP, reg(icol, CRIGHT), TMP);
87 5cedca1b 2004-05-15 devnull if (acase[icol]) {
88 fa325e9b 2020-01-10 cross Bprint(&tabout, ".if \\n(%d>=\\n(%2s .nr %2s \\n(%du+2n\n",
89 5cedca1b 2004-05-15 devnull S2, reg(icol, CRIGHT), reg(icol, CRIGHT), S2);
91 5cedca1b 2004-05-15 devnull if (doubled[icol]) {
92 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s \\n(%d\n", reg(icol, CMID), S1);
93 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(%2s+\\n(%d\n", TMP, reg(icol, CMID), S2);
94 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d>\\n(%2s .nr %2s \\n(%d\n", TMP,
95 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT), reg(icol, CRIGHT), TMP);
96 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<\\n(%2s .nr %2s +(\\n(%2s-\\n(%d)/2\n",
97 5cedca1b 2004-05-15 devnull TMP, reg(icol, CRIGHT), reg(icol, CMID), reg(icol, CRIGHT), TMP);
99 5cedca1b 2004-05-15 devnull if (cll[icol][0]) {
100 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d %sn\n", TMP, cll[icol]);
101 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n",
102 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT), TMP, reg(icol, CRIGHT), TMP);
104 5cedca1b 2004-05-15 devnull for (ilin = 0; ilin < nlin; ilin++)
105 8a3cbc15 2004-05-17 devnull if (k = lspan(ilin, icol)) {
106 a5f3a00b 2006-04-20 devnull ss = table[ilin][icol-k].col;
107 fa325e9b 2020-01-10 cross if (!real(ss) || barent(ss) || vspen(ss) )
108 5cedca1b 2004-05-15 devnull continue;
109 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d ", TMP);
110 5cedca1b 2004-05-15 devnull wide(table[ilin][icol-k].col, FN(ilin, icol - k), SZ(ilin, icol - k));
111 5cedca1b 2004-05-15 devnull for (ik = k; ik >= 0; ik--) {
112 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "-\\n(%2s", reg(icol - ik, CRIGHT));
113 fa325e9b 2020-01-10 cross if (!expflg && ik > 0)
114 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "-%dn", sep[icol-ik]);
116 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
117 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d>0 .nr %d \\n(%d/%d\n", TMP,
118 5cedca1b 2004-05-15 devnull TMP, TMP, k);
119 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
120 5cedca1b 2004-05-15 devnull for (ik = 1; ik <= k; ik++) {
121 5cedca1b 2004-05-15 devnull if (doubled[icol-k+ik])
122 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s +\\n(%d/2\n",
123 5cedca1b 2004-05-15 devnull reg(icol - k + ik, CMID), TMP);
124 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s +\\n(%d\n",
125 5cedca1b 2004-05-15 devnull reg(icol - k + ik, CRIGHT), TMP);
129 fa325e9b 2020-01-10 cross if (textflg)
130 5cedca1b 2004-05-15 devnull untext();
131 5cedca1b 2004-05-15 devnull /* if even requested, make all columns widest width */
132 5cedca1b 2004-05-15 devnull if (evenflg) {
133 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 0\n", TMP);
134 5cedca1b 2004-05-15 devnull for (icol = 0; icol < ncol; icol++) {
135 fa325e9b 2020-01-10 cross if (evenup[icol] == 0)
136 5cedca1b 2004-05-15 devnull continue;
137 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%2s>\\n(%d .nr %d \\n(%2s\n",
138 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT), TMP, TMP, reg(icol, CRIGHT));
140 5cedca1b 2004-05-15 devnull for (icol = 0; icol < ncol; icol++) {
141 5cedca1b 2004-05-15 devnull if (evenup[icol] == 0)
142 5cedca1b 2004-05-15 devnull /* if column not evened just retain old interval */
143 5cedca1b 2004-05-15 devnull continue;
144 5cedca1b 2004-05-15 devnull if (doubled[icol])
145 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s (100*\\n(%2s/\\n(%2s)*\\n(%d/100\n",
146 5cedca1b 2004-05-15 devnull reg(icol, CMID), reg(icol, CMID), reg(icol, CRIGHT), TMP);
147 5cedca1b 2004-05-15 devnull /* that nonsense with the 100's and parens tries
148 5cedca1b 2004-05-15 devnull to avoid overflow while proportionally shifting
149 5cedca1b 2004-05-15 devnull the middle of the number */
150 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s \\n(%d\n", reg(icol, CRIGHT), TMP);
153 5cedca1b 2004-05-15 devnull /* now adjust for total table width */
154 5cedca1b 2004-05-15 devnull for (tsep = icol = 0; icol < ncol; icol++)
155 5cedca1b 2004-05-15 devnull tsep += sep[icol];
156 5cedca1b 2004-05-15 devnull if (expflg) {
157 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 0", TMP);
158 5cedca1b 2004-05-15 devnull for (icol = 0; icol < ncol; icol++)
159 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "+\\n(%2s", reg(icol, CRIGHT));
160 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
161 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(.l-\\n(%d\n", TMP, TMP);
162 5cedca1b 2004-05-15 devnull if (boxflg || dboxflg || allflg)
163 8a3cbc15 2004-05-17 devnull /* tsep += 1; */ {}
165 5cedca1b 2004-05-15 devnull tsep -= sep[ncol-1];
166 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(%d/%d\n", TMP, TMP, tsep);
167 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
169 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 1n\n", TMP);
170 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s 0\n", reg(-1, CRIGHT));
171 5cedca1b 2004-05-15 devnull tsep = (boxflg || allflg || dboxflg || left1flg) ? 2 : 0;
172 fa325e9b 2020-01-10 cross if (sep[-1] >= 0)
173 5cedca1b 2004-05-15 devnull tsep = sep[-1];
174 5cedca1b 2004-05-15 devnull for (icol = 0; icol < ncol; icol++) {
175 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s \\n(%2s+((%d*\\n(%d)/2)\n", reg(icol, CLEFT),
176 5cedca1b 2004-05-15 devnull reg(icol - 1, CRIGHT), tsep, TMP);
177 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s +\\n(%2s\n", reg(icol, CRIGHT), reg(icol, CLEFT));
178 5cedca1b 2004-05-15 devnull if (doubled[icol]) {
179 5cedca1b 2004-05-15 devnull /* the next line is last-ditch effort to avoid zero field width */
180 8a3cbc15 2004-05-17 devnull /*Bprint(&tabout, ".if \\n(%2s=0 .nr %2s 1\n",reg(icol,CMID), reg(icol,CMID));*/
181 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s +\\n(%2s\n", reg(icol, CMID),
182 5cedca1b 2004-05-15 devnull reg(icol, CLEFT));
183 8a3cbc15 2004-05-17 devnull /* Bprint(&tabout, ".if n .if \\n(%s%%24>0 .nr %s +12u\n",reg(icol,CMID), reg(icol,CMID)); */
185 5cedca1b 2004-05-15 devnull tsep = sep[icol] * 2;
187 5cedca1b 2004-05-15 devnull if (rightl)
188 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %s (\\n(%s+\\n(%s)/2\n", reg(ncol - 1, CRIGHT),
189 5cedca1b 2004-05-15 devnull reg(ncol - 1, CLEFT), reg(ncol - 2, CRIGHT));
190 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr TW \\n(%2s\n", reg(ncol - 1, CRIGHT));
191 5cedca1b 2004-05-15 devnull tsep = sep[ncol-1];
192 5cedca1b 2004-05-15 devnull if (boxflg || allflg || dboxflg)
193 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr TW +((%d*\\n(%d)/2)\n", tsep, TMP);
194 8a3cbc15 2004-05-17 devnull Bprint(&tabout,
195 5cedca1b 2004-05-15 devnull ".if t .if (\\n(TW+\\n(.o)>7.65i .tm Table at line %d file %s is too wide - \\n(TW units\n", iline - 1, ifile);
201 5cedca1b 2004-05-15 devnull wide(char *s, char *fn, char *size)
203 5cedca1b 2004-05-15 devnull if (point(s)) {
204 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\w%c", F1);
205 fa325e9b 2020-01-10 cross if (*fn > 0)
206 5cedca1b 2004-05-15 devnull putfont(fn);
207 fa325e9b 2020-01-10 cross if (*size)
208 5cedca1b 2004-05-15 devnull putsize(size);
209 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%s", s);
210 fa325e9b 2020-01-10 cross if (*fn > 0)
211 5cedca1b 2004-05-15 devnull putfont("P");
212 fa325e9b 2020-01-10 cross if (*size)
213 5cedca1b 2004-05-15 devnull putsize("0");
214 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%c", F1);
216 a5f3a00b 2006-04-20 devnull Bprint(&tabout, "\\n(%c-", (int)(uintptr)s);
221 5cedca1b 2004-05-15 devnull filler(char *s)
223 5cedca1b 2004-05-15 devnull return (point(s) && s[0] == '\\' && s[1] == 'R');
