1 5cedca1b 2004-05-15 devnull /* t8.c: write out one line of output table */
2 5cedca1b 2004-05-15 devnull # include "t.h"
3 5cedca1b 2004-05-15 devnull # define realsplit ((ct=='a'||ct=='n') && table[nl][c].rcol)
4 5cedca1b 2004-05-15 devnull int watchout;
8 5cedca1b 2004-05-15 devnull putline(int i, int nl)
9 5cedca1b 2004-05-15 devnull /* i is line number for deciding format */
10 5cedca1b 2004-05-15 devnull /* nl is line number for finding data usually identical */
12 a5f3a00b 2006-04-20 devnull int c, s, lf, ct, form, lwid, vspf, ip, cmidx, exvspen, vforml;
13 5cedca1b 2004-05-15 devnull int vct, chfont, uphalf;
14 a5f3a00b 2006-04-20 devnull char *ss, *size, *fn, *rct;
16 5cedca1b 2004-05-15 devnull cmidx = watchout = vspf = exvspen = 0;
17 5cedca1b 2004-05-15 devnull if (i == 0)
18 5cedca1b 2004-05-15 devnull once = 0;
19 5cedca1b 2004-05-15 devnull if (i == 0 && ( allflg || boxflg || dboxflg))
20 5cedca1b 2004-05-15 devnull fullwide(0, dboxflg ? '=' : '-');
21 5cedca1b 2004-05-15 devnull if (instead[nl] == 0 && fullbot[nl] == 0)
22 5cedca1b 2004-05-15 devnull for (c = 0; c < ncol; c++) {
23 a5f3a00b 2006-04-20 devnull ss = table[nl][c].col;
24 a5f3a00b 2006-04-20 devnull if (ss == 0)
25 5cedca1b 2004-05-15 devnull continue;
26 a5f3a00b 2006-04-20 devnull if (vspen(ss)) {
27 5cedca1b 2004-05-15 devnull for (ip = nl; ip < nlin; ip = next(ip))
28 a5f3a00b 2006-04-20 devnull if (!vspen(ss = table[ip][c].col))
30 a5f3a00b 2006-04-20 devnull s = (int)(uintptr)ss;
31 a5f3a00b 2006-04-20 devnull if (s > 0 && s < 128)
32 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ne \\n(%c|u+\\n(.Vu\n", (int)s);
33 5cedca1b 2004-05-15 devnull continue;
35 a5f3a00b 2006-04-20 devnull if (point(ss))
36 5cedca1b 2004-05-15 devnull continue;
37 a5f3a00b 2006-04-20 devnull s = (int)(uintptr)ss;
38 a5f3a00b 2006-04-20 devnull Bprint(&tabout, ".ne \\n(%c|u+\\n(.Vu\n", s);
39 5cedca1b 2004-05-15 devnull watchout = 1;
41 5cedca1b 2004-05-15 devnull if (linestop[nl])
42 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".mk #%c\n", linestop[nl] + 'a' - 1);
43 5cedca1b 2004-05-15 devnull lf = prev(nl);
44 5cedca1b 2004-05-15 devnull if (instead[nl]) {
45 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%s\n", instead[nl]);
48 5cedca1b 2004-05-15 devnull if (fullbot[nl]) {
49 5cedca1b 2004-05-15 devnull switch (ct = fullbot[nl]) {
50 5cedca1b 2004-05-15 devnull case '=':
51 5cedca1b 2004-05-15 devnull case '-':
52 5cedca1b 2004-05-15 devnull fullwide(nl, ct);
56 5cedca1b 2004-05-15 devnull for (c = 0; c < ncol; c++) {
57 5cedca1b 2004-05-15 devnull if (instead[nl] == 0 && fullbot[nl] == 0)
58 5cedca1b 2004-05-15 devnull if (vspen(table[nl][c].col))
59 5cedca1b 2004-05-15 devnull vspf = 1;
60 5cedca1b 2004-05-15 devnull if (lf >= 0)
61 5cedca1b 2004-05-15 devnull if (vspen(table[lf][c].col))
62 5cedca1b 2004-05-15 devnull vspf = 1;
64 5cedca1b 2004-05-15 devnull if (vspf) {
65 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr #^ \\n(\\*(#du\n");
66 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr #- \\n(#^\n"); /* current line position relative to bottom */
68 5cedca1b 2004-05-15 devnull vspf = 0;
69 5cedca1b 2004-05-15 devnull chfont = 0;
70 5cedca1b 2004-05-15 devnull for (c = 0; c < ncol; c++) {
71 a5f3a00b 2006-04-20 devnull ss = table[nl][c].col;
72 a5f3a00b 2006-04-20 devnull if (ss == 0)
73 5cedca1b 2004-05-15 devnull continue;
74 a5f3a00b 2006-04-20 devnull if(font[c][stynum[nl]])
75 a5f3a00b 2006-04-20 devnull chfont = 1;
76 a5f3a00b 2006-04-20 devnull if (point(ss) )
77 5cedca1b 2004-05-15 devnull continue;
78 a5f3a00b 2006-04-20 devnull s = (int)(uintptr)ss;
79 5cedca1b 2004-05-15 devnull lf = prev(nl);
80 5cedca1b 2004-05-15 devnull if (lf >= 0 && vspen(table[lf][c].col))
81 8a3cbc15 2004-05-17 devnull Bprint(&tabout,
82 5cedca1b 2004-05-15 devnull ".if (\\n(%c|+\\n(^%c-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(^%c-\\n(#--1v)\n",
83 a5f3a00b 2006-04-20 devnull s, 'a' + c, s, 'a' + c);
85 8a3cbc15 2004-05-17 devnull Bprint(&tabout,
86 5cedca1b 2004-05-15 devnull ".if (\\n(%c|+\\n(#^-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(#^-\\n(#--1v)\n",
87 5cedca1b 2004-05-15 devnull (int)s, (int)s);
89 5cedca1b 2004-05-15 devnull if (allflg && once > 0 )
90 5cedca1b 2004-05-15 devnull fullwide(i, '-');
91 5cedca1b 2004-05-15 devnull once = 1;
92 5cedca1b 2004-05-15 devnull runtabs(i, nl);
93 5cedca1b 2004-05-15 devnull if (allh(i) && !pr1403) {
94 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(.v\n", SVS);
95 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".vs \\n(.vu-\\n(.sp\n");
96 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr 35 \\n(.vu\n");
98 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr 35 1m\n");
99 5cedca1b 2004-05-15 devnull if (chfont)
100 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %2d \\n(.f\n", S1);
101 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\&");
102 5cedca1b 2004-05-15 devnull vct = 0;
103 5cedca1b 2004-05-15 devnull for (c = 0; c < ncol; c++) {
104 5cedca1b 2004-05-15 devnull uphalf = 0;
105 5cedca1b 2004-05-15 devnull if (watchout == 0 && i + 1 < nlin && (lf = left(i, c, &lwid)) >= 0) {
106 5cedca1b 2004-05-15 devnull tohcol(c);
107 5cedca1b 2004-05-15 devnull drawvert(lf, i, c, lwid);
108 5cedca1b 2004-05-15 devnull vct += 2;
110 5cedca1b 2004-05-15 devnull if (rightl && c + 1 == ncol)
111 5cedca1b 2004-05-15 devnull continue;
112 5cedca1b 2004-05-15 devnull vforml = i;
113 5cedca1b 2004-05-15 devnull for (lf = prev(nl); lf >= 0 && vspen(table[lf][c].col); lf = prev(lf))
114 5cedca1b 2004-05-15 devnull vforml = lf;
115 5cedca1b 2004-05-15 devnull form = ctype(vforml, c);
116 5cedca1b 2004-05-15 devnull if (form != 's') {
117 5cedca1b 2004-05-15 devnull rct = reg(c, CLEFT);
118 5cedca1b 2004-05-15 devnull if (form == 'a')
119 5cedca1b 2004-05-15 devnull rct = reg(c, CMID);
120 5cedca1b 2004-05-15 devnull if (form == 'n' && table[nl][c].rcol && lused[c] == 0)
121 5cedca1b 2004-05-15 devnull rct = reg(c, CMID);
122 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\h'|\\n(%2su'", rct);
124 a5f3a00b 2006-04-20 devnull ss = table[nl][c].col;
125 5cedca1b 2004-05-15 devnull fn = font[c][stynum[vforml]];
126 5cedca1b 2004-05-15 devnull size = csize[c][stynum[vforml]];
127 5cedca1b 2004-05-15 devnull if (*size == 0)
128 5cedca1b 2004-05-15 devnull size = 0;
129 5cedca1b 2004-05-15 devnull if ((flags[c][stynum[nl]] & HALFUP) != 0 && pr1403 == 0)
130 5cedca1b 2004-05-15 devnull uphalf = 1;
131 5cedca1b 2004-05-15 devnull switch (ct = ctype(vforml, c)) {
132 5cedca1b 2004-05-15 devnull case 'n':
133 5cedca1b 2004-05-15 devnull case 'a':
134 5cedca1b 2004-05-15 devnull if (table[nl][c].rcol) {
135 5cedca1b 2004-05-15 devnull if (lused[c]) /*Zero field width*/ {
136 5cedca1b 2004-05-15 devnull ip = prev(nl);
137 5cedca1b 2004-05-15 devnull if (ip >= 0)
138 5cedca1b 2004-05-15 devnull if (vspen(table[ip][c].col)) {
139 5cedca1b 2004-05-15 devnull if (exvspen == 0) {
140 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c + 'a');
141 5cedca1b 2004-05-15 devnull if (cmidx)
142 5cedca1b 2004-05-15 devnull /* code folded from here */
143 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
144 5cedca1b 2004-05-15 devnull /* unfolding */
146 5cedca1b 2004-05-15 devnull if (pr1403) /* must round to whole lines */
147 5cedca1b 2004-05-15 devnull /* code folded from here */
148 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "/1v*1v");
149 5cedca1b 2004-05-15 devnull /* unfolding */
150 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "'");
151 5cedca1b 2004-05-15 devnull exvspen = 1;
154 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%c%c", F1, F2);
155 5cedca1b 2004-05-15 devnull if (uphalf)
156 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\u");
157 a5f3a00b 2006-04-20 devnull puttext(ss, fn, size);
158 5cedca1b 2004-05-15 devnull if (uphalf)
159 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\d");
160 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%c", F1);
162 a5f3a00b 2006-04-20 devnull ss = table[nl][c].rcol;
163 5cedca1b 2004-05-15 devnull form = 1;
166 5cedca1b 2004-05-15 devnull case 'c':
167 5cedca1b 2004-05-15 devnull form = 3;
169 5cedca1b 2004-05-15 devnull case 'r':
170 5cedca1b 2004-05-15 devnull form = 2;
172 5cedca1b 2004-05-15 devnull case 'l':
173 5cedca1b 2004-05-15 devnull form = 1;
175 5cedca1b 2004-05-15 devnull case '-':
176 5cedca1b 2004-05-15 devnull case '=':
177 5cedca1b 2004-05-15 devnull if (real(table[nl][c].col))
178 8a3cbc15 2004-05-17 devnull fprint(2, "%s: line %d: Data ignored on table line %d\n", ifile, iline - 1, i + 1);
179 5cedca1b 2004-05-15 devnull makeline(i, c, ct);
180 5cedca1b 2004-05-15 devnull continue;
181 5cedca1b 2004-05-15 devnull default:
182 5cedca1b 2004-05-15 devnull continue;
184 5cedca1b 2004-05-15 devnull if (realsplit ? rused[c] : used[c]) /*Zero field width*/ {
185 5cedca1b 2004-05-15 devnull /* form: 1 left, 2 right, 3 center adjust */
186 a5f3a00b 2006-04-20 devnull if (ifline(ss)) {
187 a5f3a00b 2006-04-20 devnull makeline(i, c, ifline(ss));
188 5cedca1b 2004-05-15 devnull continue;
190 a5f3a00b 2006-04-20 devnull if (filler(ss)) {
191 a5f3a00b 2006-04-20 devnull Bprint(&tabout, "\\l'|\\n(%2su\\&%s'", reg(c, CRIGHT), ss + 2);
192 5cedca1b 2004-05-15 devnull continue;
194 5cedca1b 2004-05-15 devnull ip = prev(nl);
195 5cedca1b 2004-05-15 devnull cmidx = (flags[c][stynum[nl]] & (CTOP | CDOWN)) == 0;
196 5cedca1b 2004-05-15 devnull if (ip >= 0)
197 5cedca1b 2004-05-15 devnull if (vspen(table[ip][c].col)) {
198 5cedca1b 2004-05-15 devnull if (exvspen == 0) {
199 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c + 'a');
200 5cedca1b 2004-05-15 devnull if (cmidx)
201 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
203 5cedca1b 2004-05-15 devnull if (pr1403) /* round to whole lines */
204 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "/1v*1v");
205 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "'");
208 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%c", F1);
209 5cedca1b 2004-05-15 devnull if (form != 1)
210 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%c", F2);
211 a5f3a00b 2006-04-20 devnull if (vspen(ss))
212 5cedca1b 2004-05-15 devnull vspf = 1;
215 5cedca1b 2004-05-15 devnull if (uphalf)
216 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\u");
217 a5f3a00b 2006-04-20 devnull puttext(ss, fn, size);
218 5cedca1b 2004-05-15 devnull if (uphalf)
219 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\d");
221 5cedca1b 2004-05-15 devnull if (form != 2)
222 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%c", F2);
223 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%c", F1);
225 5cedca1b 2004-05-15 devnull ip = prev(nl);
226 8a3cbc15 2004-05-17 devnull if (ip >= 0)
227 5cedca1b 2004-05-15 devnull if (vspen(table[ip][c].col)) {
228 5cedca1b 2004-05-15 devnull exvspen = (c + 1 < ncol) && vspen(table[ip][c+1].col) &&
229 5cedca1b 2004-05-15 devnull (topat[c] == topat[c+1]) &&
230 8a3cbc15 2004-05-17 devnull (cmidx == (flags[c+1] [stynum[nl]] & (CTOP | CDOWN) == 0))
231 5cedca1b 2004-05-15 devnull && (left(i, c + 1, &lwid) < 0);
232 5cedca1b 2004-05-15 devnull if (exvspen == 0) {
233 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\v'(\\n(\\*(#du-\\n(^%cu", c + 'a');
234 5cedca1b 2004-05-15 devnull if (cmidx)
235 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
237 5cedca1b 2004-05-15 devnull if (pr1403) /* round to whole lines */
238 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "/1v*1v");
239 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "'");
243 5cedca1b 2004-05-15 devnull exvspen = 0;
244 5cedca1b 2004-05-15 devnull /* if lines need to be split for gcos here is the place for a backslash */
245 5cedca1b 2004-05-15 devnull if (vct > 7 && c < ncol) {
246 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n.sp-1\n\\&");
247 5cedca1b 2004-05-15 devnull vct = 0;
250 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
251 5cedca1b 2004-05-15 devnull if (allh(i) && !pr1403)
252 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".vs \\n(%du\n", SVS);
253 5cedca1b 2004-05-15 devnull if (watchout)
254 5cedca1b 2004-05-15 devnull funnies(i, nl);
255 5cedca1b 2004-05-15 devnull if (vspf) {
256 5cedca1b 2004-05-15 devnull for (c = 0; c < ncol; c++)
257 5cedca1b 2004-05-15 devnull if (vspen(table[nl][c].col) && (nl == 0 || (lf = prev(nl)) < 0 ||
258 5cedca1b 2004-05-15 devnull !vspen(table[lf][c].col))) {
259 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr ^%c \\n(#^u\n", 'a' + c);
260 5cedca1b 2004-05-15 devnull topat[c] = nl;
267 5cedca1b 2004-05-15 devnull puttext(char *s, char *fn, char *size)
269 5cedca1b 2004-05-15 devnull if (point(s)) {
270 5cedca1b 2004-05-15 devnull putfont(fn);
271 5cedca1b 2004-05-15 devnull putsize(size);
272 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%s", s);
273 5cedca1b 2004-05-15 devnull if (*fn > 0)
274 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\f\\n(%2d", S1);
275 5cedca1b 2004-05-15 devnull if (size != 0)
276 5cedca1b 2004-05-15 devnull putsize("0");
282 5cedca1b 2004-05-15 devnull funnies(int stl, int lin)
284 5cedca1b 2004-05-15 devnull /* write out funny diverted things */
285 5cedca1b 2004-05-15 devnull int c, s, pl, lwid, dv, lf, ct;
286 5cedca1b 2004-05-15 devnull char *fn, *ss;
288 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".mk ##\n"); /* rmember current vertical position */
289 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(##\n", S1); /* bottom position */
290 5cedca1b 2004-05-15 devnull for (c = 0; c < ncol; c++) {
291 5cedca1b 2004-05-15 devnull ss = table[lin][c].col;
292 5cedca1b 2004-05-15 devnull if (point(ss))
293 5cedca1b 2004-05-15 devnull continue;
294 5cedca1b 2004-05-15 devnull if (ss == 0)
295 5cedca1b 2004-05-15 devnull continue;
296 a5f3a00b 2006-04-20 devnull s = (int)(uintptr)ss;
297 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".sp |\\n(##u-1v\n");
298 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d ", SIND);
300 5cedca1b 2004-05-15 devnull for (pl = stl; pl >= 0 && !isalpha(ct = ctype(pl, c)); pl = prev(pl))
302 5cedca1b 2004-05-15 devnull switch (ct) {
303 5cedca1b 2004-05-15 devnull case 'n':
304 5cedca1b 2004-05-15 devnull case 'c':
305 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "(\\n(%2su+\\n(%2su-\\n(%c-u)/2u\n", reg(c, CLEFT),
306 5cedca1b 2004-05-15 devnull reg(c - 1 + ctspan(lin, c), CRIGHT),
309 5cedca1b 2004-05-15 devnull case 'l':
310 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\n(%2su\n", reg(c, CLEFT));
312 5cedca1b 2004-05-15 devnull case 'a':
313 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\n(%2su\n", reg(c, CMID));
315 5cedca1b 2004-05-15 devnull case 'r':
316 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\n(%2su-\\n(%c-u\n", reg(c, CRIGHT), s);
319 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".in +\\n(%du\n", SIND);
320 5cedca1b 2004-05-15 devnull fn = font[c][stynum[stl]];
321 5cedca1b 2004-05-15 devnull putfont(fn);
322 5cedca1b 2004-05-15 devnull pl = prev(stl);
323 5cedca1b 2004-05-15 devnull if (stl > 0 && pl >= 0 && vspen(table[pl][c].col)) {
324 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".sp |\\n(^%cu\n", 'a' + c);
325 5cedca1b 2004-05-15 devnull if ((flags[c][stynum[stl]] & (CTOP | CDOWN)) == 0) {
326 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(#-u-\\n(^%c-\\n(%c|+1v\n",
327 5cedca1b 2004-05-15 devnull TMP, 'a' + c, s);
328 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d>0 .sp \\n(%du/2u", TMP, TMP);
329 5cedca1b 2004-05-15 devnull if (pr1403) /* round */
330 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "/1v*1v");
331 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
334 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".%c+\n", s);
335 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".in -\\n(%du\n", SIND);
336 5cedca1b 2004-05-15 devnull if (*fn > 0)
337 5cedca1b 2004-05-15 devnull putfont("P");
338 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".mk %d\n", S2);
339 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n", S2, S1, S1, S2);
341 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".sp |\\n(%du\n", S1);
342 5cedca1b 2004-05-15 devnull for (c = dv = 0; c < ncol; c++) {
343 5cedca1b 2004-05-15 devnull if (stl + 1 < nlin && (lf = left(stl, c, &lwid)) >= 0) {
344 5cedca1b 2004-05-15 devnull if (dv++ == 0)
345 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".sp -1\n");
346 5cedca1b 2004-05-15 devnull tohcol(c);
348 5cedca1b 2004-05-15 devnull drawvert(lf, stl, c, lwid);
352 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\n");
357 5cedca1b 2004-05-15 devnull putfont(char *fn)
359 5cedca1b 2004-05-15 devnull if (fn && *fn)
360 8a3cbc15 2004-05-17 devnull Bprint(&tabout, fn[1] ? "\\f(%.2s" : "\\f%.2s", fn);
365 5cedca1b 2004-05-15 devnull putsize(char *s)
367 5cedca1b 2004-05-15 devnull if (s && *s)
368 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "\\s%s", s);
