4 5cedca1b 2004-05-15 devnull * output, cleanup
7 5cedca1b 2004-05-15 devnull #include "tdef.h"
8 5cedca1b 2004-05-15 devnull #include "fns.h"
9 5cedca1b 2004-05-15 devnull #include "ext.h"
10 5cedca1b 2004-05-15 devnull #include <setjmp.h>
12 5cedca1b 2004-05-15 devnull #ifdef STRICT
13 5cedca1b 2004-05-15 devnull /* not in ANSI or POSIX */
14 5cedca1b 2004-05-15 devnull FILE* popen(char*, char*);
18 5cedca1b 2004-05-15 devnull extern jmp_buf sjbuf;
19 5cedca1b 2004-05-15 devnull int toolate;
20 5cedca1b 2004-05-15 devnull int error;
22 5cedca1b 2004-05-15 devnull char obuf[2*BUFSIZ];
23 5cedca1b 2004-05-15 devnull char *obufp = obuf;
25 5cedca1b 2004-05-15 devnull /* pipe command structure; allows redicously long commends for .pi */
26 5cedca1b 2004-05-15 devnull struct Pipe {
27 5cedca1b 2004-05-15 devnull char *buf;
28 5cedca1b 2004-05-15 devnull int tick;
33 5cedca1b 2004-05-15 devnull int xon = 0; /* records if in middle of \X */
35 5cedca1b 2004-05-15 devnull int pchar(Tchar i)
38 5cedca1b 2004-05-15 devnull static int hx = 0; /* records if have seen HX */
40 5cedca1b 2004-05-15 devnull if (hx) {
42 5cedca1b 2004-05-15 devnull j = absmot(i);
43 5cedca1b 2004-05-15 devnull if (isnmot(i)) {
44 5cedca1b 2004-05-15 devnull if (j > dip->blss)
45 5cedca1b 2004-05-15 devnull dip->blss = j;
47 5cedca1b 2004-05-15 devnull if (j > dip->alss)
48 5cedca1b 2004-05-15 devnull dip->alss = j;
49 5cedca1b 2004-05-15 devnull ralss = dip->alss;
51 5cedca1b 2004-05-15 devnull return 0;
53 5cedca1b 2004-05-15 devnull if (ismot(i)) {
54 5cedca1b 2004-05-15 devnull pchar1(i);
55 5cedca1b 2004-05-15 devnull return 0;
57 5cedca1b 2004-05-15 devnull switch (j = cbits(i)) {
59 5cedca1b 2004-05-15 devnull case IMP:
60 5cedca1b 2004-05-15 devnull case RIGHT:
61 5cedca1b 2004-05-15 devnull case LEFT:
62 5cedca1b 2004-05-15 devnull return 0;
65 5cedca1b 2004-05-15 devnull return 0;
66 5cedca1b 2004-05-15 devnull case XON:
69 5cedca1b 2004-05-15 devnull case XOFF:
72 5cedca1b 2004-05-15 devnull case PRESC:
73 5cedca1b 2004-05-15 devnull if (!xon && !tflg && dip == &d[0])
74 5cedca1b 2004-05-15 devnull j = eschar; /* fall through */
76 5cedca1b 2004-05-15 devnull setcbits(i, trtab[j]);
78 5cedca1b 2004-05-15 devnull if (NROFF & xon) /* rob fix for man2html */
79 5cedca1b 2004-05-15 devnull return 0;
80 5cedca1b 2004-05-15 devnull pchar1(i);
81 5cedca1b 2004-05-15 devnull return 0;
85 5cedca1b 2004-05-15 devnull void pchar1(Tchar i)
89 5cedca1b 2004-05-15 devnull j = cbits(i);
90 5cedca1b 2004-05-15 devnull if (dip != &d[0]) {
92 5cedca1b 2004-05-15 devnull dip->op = offset;
95 5cedca1b 2004-05-15 devnull if (!tflg && !print) {
96 5cedca1b 2004-05-15 devnull if (j == '\n')
97 5cedca1b 2004-05-15 devnull dip->alss = dip->blss = 0;
100 5cedca1b 2004-05-15 devnull if (j == FILLER && !xon)
102 5cedca1b 2004-05-15 devnull if (tflg) { /* transparent mode, undiverted */
103 5cedca1b 2004-05-15 devnull if (print) /* assumes that it's ok to print */
104 5cedca1b 2004-05-15 devnull /* OUT "%c", j PUT; /* i.e., is ascii */
105 5cedca1b 2004-05-15 devnull outascii(i);
108 5cedca1b 2004-05-15 devnull if (TROFF && ascii)
109 5cedca1b 2004-05-15 devnull outascii(i);
111 5cedca1b 2004-05-15 devnull ptout(i);
115 5cedca1b 2004-05-15 devnull void outweird(int k) /* like ptchname() but ascii */
117 5cedca1b 2004-05-15 devnull char *chn = chname(k);
119 5cedca1b 2004-05-15 devnull switch (chn[0]) {
120 5cedca1b 2004-05-15 devnull case MBchar:
121 5cedca1b 2004-05-15 devnull OUT "%s", chn+1 PUT; /* \n not needed? */
123 5cedca1b 2004-05-15 devnull case Number:
124 5cedca1b 2004-05-15 devnull OUT "\\N'%s'", chn+1 PUT;
126 5cedca1b 2004-05-15 devnull case Troffchar:
127 5cedca1b 2004-05-15 devnull if (strlen(chn+1) == 2)
128 5cedca1b 2004-05-15 devnull OUT "\\(%s", chn+1 PUT;
130 5cedca1b 2004-05-15 devnull OUT "\\C'%s'", chn+1 PUT;
132 5cedca1b 2004-05-15 devnull default:
133 5cedca1b 2004-05-15 devnull OUT " %s? ", chn PUT;
138 5cedca1b 2004-05-15 devnull void outascii(Tchar i) /* print i in best-guess ascii */
140 5cedca1b 2004-05-15 devnull int j = cbits(i);
142 5cedca1b 2004-05-15 devnull /* is this ever called with NROFF set? probably doesn't work at all. */
144 5cedca1b 2004-05-15 devnull if (ismot(i))
145 5cedca1b 2004-05-15 devnull oput(' ');
146 5cedca1b 2004-05-15 devnull else if (j < ALPHABET && j >= ' ' || j == '\n' || j == '\t')
147 5cedca1b 2004-05-15 devnull oput(j);
148 5cedca1b 2004-05-15 devnull else if (j == DRAWFCN)
149 5cedca1b 2004-05-15 devnull oputs("\\D");
150 5cedca1b 2004-05-15 devnull else if (j == HYPHEN)
151 5cedca1b 2004-05-15 devnull oput('-');
152 5cedca1b 2004-05-15 devnull else if (j == MINUS) /* special pleading for strange encodings */
153 5cedca1b 2004-05-15 devnull oputs("\\-");
154 5cedca1b 2004-05-15 devnull else if (j == PRESC)
155 5cedca1b 2004-05-15 devnull oputs("\\e");
156 5cedca1b 2004-05-15 devnull else if (j == FILLER)
157 5cedca1b 2004-05-15 devnull oputs("\\&");
158 5cedca1b 2004-05-15 devnull else if (j == UNPAD)
159 5cedca1b 2004-05-15 devnull oputs("\\ ");
160 5cedca1b 2004-05-15 devnull else if (j == OHC) /* this will never occur; stripped out earlier */
161 5cedca1b 2004-05-15 devnull oputs("\\%");
162 5cedca1b 2004-05-15 devnull else if (j == XON)
163 5cedca1b 2004-05-15 devnull oputs("\\X");
164 5cedca1b 2004-05-15 devnull else if (j == XOFF)
165 5cedca1b 2004-05-15 devnull oputs(" ");
166 5cedca1b 2004-05-15 devnull else if (j == LIG_FI)
167 5cedca1b 2004-05-15 devnull oputs("fi");
168 5cedca1b 2004-05-15 devnull else if (j == LIG_FL)
169 5cedca1b 2004-05-15 devnull oputs("fl");
170 5cedca1b 2004-05-15 devnull else if (j == LIG_FF)
171 5cedca1b 2004-05-15 devnull oputs("ff");
172 5cedca1b 2004-05-15 devnull else if (j == LIG_FFI)
173 5cedca1b 2004-05-15 devnull oputs("ffi");
174 5cedca1b 2004-05-15 devnull else if (j == LIG_FFL)
175 5cedca1b 2004-05-15 devnull oputs("ffl");
176 5cedca1b 2004-05-15 devnull else if (j == WORDSP) { /* nothing at all */
177 5cedca1b 2004-05-15 devnull if (xon) /* except in \X */
178 5cedca1b 2004-05-15 devnull oput(' ');
181 5cedca1b 2004-05-15 devnull outweird(j);
184 5cedca1b 2004-05-15 devnull int flusho(void)
186 5cedca1b 2004-05-15 devnull if (NROFF && !toolate && t.twinit)
187 5cedca1b 2004-05-15 devnull fwrite(t.twinit, strlen(t.twinit), 1, ptid);
189 5cedca1b 2004-05-15 devnull if (obufp > obuf) {
190 5cedca1b 2004-05-15 devnull if (pipeflg && !toolate) {
191 5cedca1b 2004-05-15 devnull /* fprintf(stderr, "Pipe to <%s>\n", Pipe.buf); */
192 5cedca1b 2004-05-15 devnull if (!Pipe.buf[0] || (ptid = popen(Pipe.buf, "w")) == NULL)
193 5cedca1b 2004-05-15 devnull ERROR "pipe %s not created.", Pipe.buf WARN;
194 5cedca1b 2004-05-15 devnull if (Pipe.buf)
195 5cedca1b 2004-05-15 devnull free(Pipe.buf);
197 5cedca1b 2004-05-15 devnull if (!toolate)
198 5cedca1b 2004-05-15 devnull toolate++;
199 5cedca1b 2004-05-15 devnull *obufp = 0;
200 5cedca1b 2004-05-15 devnull fputs(obuf, ptid);
201 5cedca1b 2004-05-15 devnull fflush(ptid);
202 5cedca1b 2004-05-15 devnull obufp = obuf;
204 5cedca1b 2004-05-15 devnull return 1;
208 5cedca1b 2004-05-15 devnull void caseex(void)
210 5cedca1b 2004-05-15 devnull done(0);
214 5cedca1b 2004-05-15 devnull void done(int x)
218 5cedca1b 2004-05-15 devnull error |= x;
219 5cedca1b 2004-05-15 devnull app = ds = lgf = 0;
220 5cedca1b 2004-05-15 devnull if (i = em) {
221 5cedca1b 2004-05-15 devnull donef = -1;
222 5cedca1b 2004-05-15 devnull eschar = '\\';
224 5cedca1b 2004-05-15 devnull if (control(i, 0))
225 5cedca1b 2004-05-15 devnull longjmp(sjbuf, 1);
227 5cedca1b 2004-05-15 devnull if (!nfo)
228 5cedca1b 2004-05-15 devnull done3(0);
229 5cedca1b 2004-05-15 devnull mflg = 0;
230 5cedca1b 2004-05-15 devnull dip = &d[0];
231 5cedca1b 2004-05-15 devnull if (woff) /* BUG!!! This isn't set anywhere */
232 5cedca1b 2004-05-15 devnull wbf((Tchar)0);
233 5cedca1b 2004-05-15 devnull if (pendw)
234 5cedca1b 2004-05-15 devnull getword(1);
235 5cedca1b 2004-05-15 devnull pendnf = 0;
236 5cedca1b 2004-05-15 devnull if (donef == 1)
237 5cedca1b 2004-05-15 devnull done1(0);
238 5cedca1b 2004-05-15 devnull donef = 1;
240 5cedca1b 2004-05-15 devnull frame = stk;
241 5cedca1b 2004-05-15 devnull nxf = frame + 1;
242 5cedca1b 2004-05-15 devnull if (!ejf)
243 5cedca1b 2004-05-15 devnull tbreak();
244 5cedca1b 2004-05-15 devnull nflush++;
245 5cedca1b 2004-05-15 devnull eject((Stack *)0);
246 5cedca1b 2004-05-15 devnull longjmp(sjbuf, 1);
250 5cedca1b 2004-05-15 devnull void done1(int x)
252 5cedca1b 2004-05-15 devnull error |= x;
253 5cedca1b 2004-05-15 devnull if (numtabp[NL].val) {
254 5cedca1b 2004-05-15 devnull trap = 0;
255 5cedca1b 2004-05-15 devnull eject((Stack *)0);
256 5cedca1b 2004-05-15 devnull longjmp(sjbuf, 1);
258 5cedca1b 2004-05-15 devnull if (!ascii)
259 5cedca1b 2004-05-15 devnull pttrailer();
260 5cedca1b 2004-05-15 devnull done2(0);
264 5cedca1b 2004-05-15 devnull void done2(int x)
266 5cedca1b 2004-05-15 devnull ptlead();
267 5cedca1b 2004-05-15 devnull if (TROFF && !ascii)
268 5cedca1b 2004-05-15 devnull ptstop();
269 5cedca1b 2004-05-15 devnull flusho();
270 5cedca1b 2004-05-15 devnull done3(x);
273 5cedca1b 2004-05-15 devnull void done3(int x)
275 5cedca1b 2004-05-15 devnull error |= x;
276 5cedca1b 2004-05-15 devnull flusho();
277 5cedca1b 2004-05-15 devnull if (NROFF)
278 5cedca1b 2004-05-15 devnull twdone();
279 5cedca1b 2004-05-15 devnull if (pipeflg)
280 5cedca1b 2004-05-15 devnull pclose(ptid);
281 5cedca1b 2004-05-15 devnull exit(error);
285 5cedca1b 2004-05-15 devnull void edone(int x)
287 5cedca1b 2004-05-15 devnull frame = stk;
288 5cedca1b 2004-05-15 devnull nxf = frame + 1;
290 5cedca1b 2004-05-15 devnull done(x);
294 5cedca1b 2004-05-15 devnull void casepi(void)
297 5cedca1b 2004-05-15 devnull char buf[NTM];
299 5cedca1b 2004-05-15 devnull if (Pipe.buf == NULL) {
300 5cedca1b 2004-05-15 devnull if ((Pipe.buf = (char *)calloc(NTM, sizeof(char))) == NULL) {
301 5cedca1b 2004-05-15 devnull ERROR "No buf space for pipe cmd" WARN;
304 5cedca1b 2004-05-15 devnull Pipe.tick = 1;
306 5cedca1b 2004-05-15 devnull Pipe.buf[Pipe.cnt++] = '|';
308 5cedca1b 2004-05-15 devnull getline(buf, NTM);
309 5cedca1b 2004-05-15 devnull j = strlen(buf);
310 5cedca1b 2004-05-15 devnull if (toolate) {
311 5cedca1b 2004-05-15 devnull ERROR "Cannot create pipe to %s", buf WARN;
314 5cedca1b 2004-05-15 devnull Pipe.cnt += j;
315 5cedca1b 2004-05-15 devnull if (j >= NTM +1) {
316 5cedca1b 2004-05-15 devnull Pipe.tick++;
317 5cedca1b 2004-05-15 devnull if ((Pipe.buf = (char *)realloc(Pipe.buf, Pipe.tick * NTM * sizeof(char))) == NULL) {
318 5cedca1b 2004-05-15 devnull ERROR "No more buf space for pipe cmd" WARN;
322 5cedca1b 2004-05-15 devnull strcat(Pipe.buf, buf);
323 5cedca1b 2004-05-15 devnull pipeflg++;