1 5cedca1b 2004-05-15 devnull /* tg.c: process included text blocks */
2 5cedca1b 2004-05-15 devnull # include "t.h"
5 5cedca1b 2004-05-15 devnull gettext(char *sp, int ilin, int icol, char *fn, char *sz)
7 5cedca1b 2004-05-15 devnull /* get a section of text */
8 5cedca1b 2004-05-15 devnull char line[4096];
9 a5f3a00b 2006-04-20 devnull int oname, startline;
10 5cedca1b 2004-05-15 devnull char *vs;
12 a5f3a00b 2006-04-20 devnull startline = iline;
13 5cedca1b 2004-05-15 devnull if (texname == 0)
14 5cedca1b 2004-05-15 devnull error("Too many text block diversions");
15 5cedca1b 2004-05-15 devnull if (textflg == 0) {
16 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(.lu\n", SL); /* remember old line length */
17 5cedca1b 2004-05-15 devnull textflg = 1;
19 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".eo\n");
20 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".am %s\n", reg(icol, CRIGHT));
21 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".br\n");
22 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".di %c+\n", texname);
23 5cedca1b 2004-05-15 devnull rstofill();
24 5cedca1b 2004-05-15 devnull if (fn && *fn)
25 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(.f\n.ft %s\n", S1, fn);
26 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ft \\n(.f\n"); /* protect font */
27 5cedca1b 2004-05-15 devnull vs = vsize[icol][stynum[ilin]];
28 5cedca1b 2004-05-15 devnull if ((sz && *sz) || (vs && *vs)) {
29 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %d \\n(.v\n", S9);
30 5cedca1b 2004-05-15 devnull if (vs == 0 || *vs == 0)
31 5cedca1b 2004-05-15 devnull vs = "\\n(.s+2";
32 5cedca1b 2004-05-15 devnull if (sz && *sz)
33 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ps %s\n", sz);
34 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".vs %s\n", vs);
35 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(%du>\\n(.vu .sp \\n(%du-\\n(.vu\n", S9, S9);
37 5cedca1b 2004-05-15 devnull if (cll[icol][0])
38 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ll %sn\n", cll[icol]);
40 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ll \\n(%du*%du/%du\n", SL, ctspan(ilin, icol), ncol + 1);
41 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".if \\n(.l<\\n(%2s .ll \\n(%2su\n", reg(icol, CRIGHT),
42 5cedca1b 2004-05-15 devnull reg(icol, CRIGHT));
43 5cedca1b 2004-05-15 devnull if (ctype(ilin, icol) == 'a')
44 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ll -2n\n");
45 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".in 0\n");
46 a5f3a00b 2006-04-20 devnull for (;;) {
47 a5f3a00b 2006-04-20 devnull if (gets1(line, sizeof(line)) == nil) {
48 a5f3a00b 2006-04-20 devnull iline = startline;
49 a5f3a00b 2006-04-20 devnull error("missing closing T}");
51 5cedca1b 2004-05-15 devnull if (line[0] == 'T' && line[1] == '}' && line[2] == tab)
53 5cedca1b 2004-05-15 devnull if (match("T}", line))
55 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%s\n", line);
57 5cedca1b 2004-05-15 devnull if (fn && *fn)
58 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ft \\n(%d\n", S1);
59 5cedca1b 2004-05-15 devnull if (sz && *sz)
60 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".br\n.ps\n.vs\n");
61 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".br\n");
62 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".di\n");
63 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %c| \\n(dn\n", texname);
64 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nr %c- \\n(dl\n", texname);
65 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "..\n");
66 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ec \\\n");
67 5cedca1b 2004-05-15 devnull /* copy remainder of line */
68 5cedca1b 2004-05-15 devnull if (line[2])
69 5cedca1b 2004-05-15 devnull tcopy (sp, line + 3);
72 5cedca1b 2004-05-15 devnull oname = texname;
73 5cedca1b 2004-05-15 devnull texname = texstr[++texct];
74 5cedca1b 2004-05-15 devnull return(oname);
79 5cedca1b 2004-05-15 devnull untext(void)
81 5cedca1b 2004-05-15 devnull rstofill();
82 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".nf\n");
83 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ll \\n(%du\n", SL);
