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 5cedca1b 2004-05-15 devnull int icol, ilin, tsep, k, ik, vforml, il, text;
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 5cedca1b 2004-05-15 devnull 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 5cedca1b 2004-05-15 devnull if (fspan(vforml, icol))
29 5cedca1b 2004-05-15 devnull continue;
30 5cedca1b 2004-05-15 devnull if (filler(table[ilin][icol].col))
31 5cedca1b 2004-05-15 devnull continue;
32 5cedca1b 2004-05-15 devnull 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 5cedca1b 2004-05-15 devnull s = table[ilin][icol].col;
38 5cedca1b 2004-05-15 devnull if ((int)s > 0 && (int)s < 128 && text) {
39 5cedca1b 2004-05-15 devnull if (doubled[icol] == 0)
40 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 0\n.nr %d 0\n",
42 5cedca1b 2004-05-15 devnull doubled[icol] = 1;
43 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%c->\\n(%d .nr %d \\n(%c-\n",
44 5cedca1b 2004-05-15 devnull (int)s, S2, S2, (int)s);
46 5cedca1b 2004-05-15 devnull case 'n':
47 5cedca1b 2004-05-15 devnull if (table[ilin][icol].rcol != 0) {
48 5cedca1b 2004-05-15 devnull if (doubled[icol] == 0 && text == 0)
49 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 0\n.nr %d 0\n",
51 5cedca1b 2004-05-15 devnull doubled[icol] = 1;
52 5cedca1b 2004-05-15 devnull if (real(s = table[ilin][icol].col) && !vspen(s)) {
53 5cedca1b 2004-05-15 devnull if (tx((int)s) != text)
54 5cedca1b 2004-05-15 devnull continue;
55 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d ", TMP);
56 5cedca1b 2004-05-15 devnull wide(s, FN(vforml, icol), SZ(vforml, icol));
57 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
58 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",
59 5cedca1b 2004-05-15 devnull S1, TMP, S1, TMP);
61 5cedca1b 2004-05-15 devnull if (text == 0 && real(s = table[ilin][icol].rcol) && !vspen(s) && !barent(s)) {
62 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\w%c%s%c\n",
63 5cedca1b 2004-05-15 devnull TMP, F1, s, F1);
64 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", S2, TMP, S2,
67 5cedca1b 2004-05-15 devnull continue;
69 5cedca1b 2004-05-15 devnull case 'r':
70 5cedca1b 2004-05-15 devnull case 'c':
71 5cedca1b 2004-05-15 devnull case 'l':
72 5cedca1b 2004-05-15 devnull if (real(s = table[ilin][icol].col) && !vspen(s)) {
73 5cedca1b 2004-05-15 devnull if (tx((int)s) != text)
74 5cedca1b 2004-05-15 devnull continue;
75 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d ", TMP);
76 5cedca1b 2004-05-15 devnull wide(s, FN(vforml, icol), SZ(vforml, icol));
77 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
78 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n",
79 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT), TMP, reg(icol, CRIGHT), TMP);
84 5cedca1b 2004-05-15 devnull if (acase[icol]) {
85 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d>=\\n(%2s .nr %2s \\n(%du+2n\n",
86 5cedca1b 2004-05-15 devnull S2, reg(icol, CRIGHT), reg(icol, CRIGHT), S2);
88 5cedca1b 2004-05-15 devnull if (doubled[icol]) {
89 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s \\n(%d\n", reg(icol, CMID), S1);
90 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(%2s+\\n(%d\n", TMP, reg(icol, CMID), S2);
91 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d>\\n(%2s .nr %2s \\n(%d\n", TMP,
92 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT), reg(icol, CRIGHT), TMP);
93 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<\\n(%2s .nr %2s +(\\n(%2s-\\n(%d)/2\n",
94 5cedca1b 2004-05-15 devnull TMP, reg(icol, CRIGHT), reg(icol, CMID), reg(icol, CRIGHT), TMP);
96 5cedca1b 2004-05-15 devnull if (cll[icol][0]) {
97 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d %sn\n", TMP, cll[icol]);
98 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n",
99 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT), TMP, reg(icol, CRIGHT), TMP);
101 5cedca1b 2004-05-15 devnull for (ilin = 0; ilin < nlin; ilin++)
102 8a3cbc15 2004-05-17 devnull if (k = lspan(ilin, icol)) {
103 5cedca1b 2004-05-15 devnull s = table[ilin][icol-k].col;
104 5cedca1b 2004-05-15 devnull if (!real(s) || barent(s) || vspen(s) )
105 5cedca1b 2004-05-15 devnull continue;
106 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d ", TMP);
107 5cedca1b 2004-05-15 devnull wide(table[ilin][icol-k].col, FN(ilin, icol - k), SZ(ilin, icol - k));
108 5cedca1b 2004-05-15 devnull for (ik = k; ik >= 0; ik--) {
109 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "-\\n(%2s", reg(icol - ik, CRIGHT));
110 5cedca1b 2004-05-15 devnull if (!expflg && ik > 0)
111 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "-%dn", sep[icol-ik]);
113 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
114 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d>0 .nr %d \\n(%d/%d\n", TMP,
115 5cedca1b 2004-05-15 devnull TMP, TMP, k);
116 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
117 5cedca1b 2004-05-15 devnull for (ik = 1; ik <= k; ik++) {
118 5cedca1b 2004-05-15 devnull if (doubled[icol-k+ik])
119 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s +\\n(%d/2\n",
120 5cedca1b 2004-05-15 devnull reg(icol - k + ik, CMID), TMP);
121 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s +\\n(%d\n",
122 5cedca1b 2004-05-15 devnull reg(icol - k + ik, CRIGHT), TMP);
126 5cedca1b 2004-05-15 devnull if (textflg)
127 5cedca1b 2004-05-15 devnull untext();
128 5cedca1b 2004-05-15 devnull /* if even requested, make all columns widest width */
129 5cedca1b 2004-05-15 devnull if (evenflg) {
130 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 0\n", TMP);
131 5cedca1b 2004-05-15 devnull for (icol = 0; icol < ncol; icol++) {
132 5cedca1b 2004-05-15 devnull if (evenup[icol] == 0)
133 5cedca1b 2004-05-15 devnull continue;
134 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%2s>\\n(%d .nr %d \\n(%2s\n",
135 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT), TMP, TMP, reg(icol, CRIGHT));
137 5cedca1b 2004-05-15 devnull for (icol = 0; icol < ncol; icol++) {
138 5cedca1b 2004-05-15 devnull if (evenup[icol] == 0)
139 5cedca1b 2004-05-15 devnull /* if column not evened just retain old interval */
140 5cedca1b 2004-05-15 devnull continue;
141 5cedca1b 2004-05-15 devnull if (doubled[icol])
142 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s (100*\\n(%2s/\\n(%2s)*\\n(%d/100\n",
143 5cedca1b 2004-05-15 devnull reg(icol, CMID), reg(icol, CMID), reg(icol, CRIGHT), TMP);
144 5cedca1b 2004-05-15 devnull /* that nonsense with the 100's and parens tries
145 5cedca1b 2004-05-15 devnull to avoid overflow while proportionally shifting
146 5cedca1b 2004-05-15 devnull the middle of the number */
147 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s \\n(%d\n", reg(icol, CRIGHT), TMP);
150 5cedca1b 2004-05-15 devnull /* now adjust for total table width */
151 5cedca1b 2004-05-15 devnull for (tsep = icol = 0; icol < ncol; icol++)
152 5cedca1b 2004-05-15 devnull tsep += sep[icol];
153 5cedca1b 2004-05-15 devnull if (expflg) {
154 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 0", TMP);
155 5cedca1b 2004-05-15 devnull for (icol = 0; icol < ncol; icol++)
156 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "+\\n(%2s", reg(icol, CRIGHT));
157 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
158 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(.l-\\n(%d\n", TMP, TMP);
159 5cedca1b 2004-05-15 devnull if (boxflg || dboxflg || allflg)
160 8a3cbc15 2004-05-17 devnull /* tsep += 1; */ {}
162 5cedca1b 2004-05-15 devnull tsep -= sep[ncol-1];
163 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(%d/%d\n", TMP, TMP, tsep);
164 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
166 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d 1n\n", TMP);
167 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s 0\n", reg(-1, CRIGHT));
168 5cedca1b 2004-05-15 devnull tsep = (boxflg || allflg || dboxflg || left1flg) ? 2 : 0;
169 5cedca1b 2004-05-15 devnull if (sep[-1] >= 0)
170 5cedca1b 2004-05-15 devnull tsep = sep[-1];
171 5cedca1b 2004-05-15 devnull for (icol = 0; icol < ncol; icol++) {
172 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s \\n(%2s+((%d*\\n(%d)/2)\n", reg(icol, CLEFT),
173 5cedca1b 2004-05-15 devnull reg(icol - 1, CRIGHT), tsep, TMP);
174 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s +\\n(%2s\n", reg(icol, CRIGHT), reg(icol, CLEFT));
175 5cedca1b 2004-05-15 devnull if (doubled[icol]) {
176 5cedca1b 2004-05-15 devnull /* the next line is last-ditch effort to avoid zero field width */
177 8a3cbc15 2004-05-17 devnull /*Bprint(&tabout, ".if \\n(%2s=0 .nr %2s 1\n",reg(icol,CMID), reg(icol,CMID));*/
178 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2s +\\n(%2s\n", reg(icol, CMID),
179 5cedca1b 2004-05-15 devnull reg(icol, CLEFT));
180 8a3cbc15 2004-05-17 devnull /* Bprint(&tabout, ".if n .if \\n(%s%%24>0 .nr %s +12u\n",reg(icol,CMID), reg(icol,CMID)); */
182 5cedca1b 2004-05-15 devnull tsep = sep[icol] * 2;
184 5cedca1b 2004-05-15 devnull if (rightl)
185 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %s (\\n(%s+\\n(%s)/2\n", reg(ncol - 1, CRIGHT),
186 5cedca1b 2004-05-15 devnull reg(ncol - 1, CLEFT), reg(ncol - 2, CRIGHT));
187 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr TW \\n(%2s\n", reg(ncol - 1, CRIGHT));
188 5cedca1b 2004-05-15 devnull tsep = sep[ncol-1];
189 5cedca1b 2004-05-15 devnull if (boxflg || allflg || dboxflg)
190 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr TW +((%d*\\n(%d)/2)\n", tsep, TMP);
191 8a3cbc15 2004-05-17 devnull Bprint(&tabout,
192 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);
198 5cedca1b 2004-05-15 devnull wide(char *s, char *fn, char *size)
200 5cedca1b 2004-05-15 devnull if (point(s)) {
201 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\w%c", F1);
202 5cedca1b 2004-05-15 devnull if (*fn > 0)
203 5cedca1b 2004-05-15 devnull putfont(fn);
204 5cedca1b 2004-05-15 devnull if (*size)
205 5cedca1b 2004-05-15 devnull putsize(size);
206 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%s", s);
207 5cedca1b 2004-05-15 devnull if (*fn > 0)
208 5cedca1b 2004-05-15 devnull putfont("P");
209 5cedca1b 2004-05-15 devnull if (*size)
210 5cedca1b 2004-05-15 devnull putsize("0");
211 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%c", F1);
213 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\n(%c-", (int)s);
218 5cedca1b 2004-05-15 devnull filler(char *s)
220 5cedca1b 2004-05-15 devnull return (point(s) && s[0] == '\\' && s[1] == 'R');
