4 5cedca1b 2004-05-15 devnull * output, cleanup
7 cbeb0b26 2006-04-01 devnull #define _BSD_SOURCE 1 /* popen */
8 5cedca1b 2004-05-15 devnull #include "tdef.h"
9 5cedca1b 2004-05-15 devnull #include "fns.h"
10 5cedca1b 2004-05-15 devnull #include "ext.h"
11 5cedca1b 2004-05-15 devnull #include <setjmp.h>
13 5cedca1b 2004-05-15 devnull #ifdef STRICT
14 5cedca1b 2004-05-15 devnull /* not in ANSI or POSIX */
15 5cedca1b 2004-05-15 devnull FILE* popen(char*, char*);
19 5cedca1b 2004-05-15 devnull extern jmp_buf sjbuf;
20 5cedca1b 2004-05-15 devnull int toolate;
21 5cedca1b 2004-05-15 devnull int error;
23 5cedca1b 2004-05-15 devnull char obuf[2*BUFSIZ];
24 5cedca1b 2004-05-15 devnull char *obufp = obuf;
26 5cedca1b 2004-05-15 devnull /* pipe command structure; allows redicously long commends for .pi */
27 5cedca1b 2004-05-15 devnull struct Pipe {
28 5cedca1b 2004-05-15 devnull char *buf;
29 5cedca1b 2004-05-15 devnull int tick;
34 5cedca1b 2004-05-15 devnull int xon = 0; /* records if in middle of \X */
36 5cedca1b 2004-05-15 devnull int pchar(Tchar i)
39 5cedca1b 2004-05-15 devnull static int hx = 0; /* records if have seen HX */
41 5cedca1b 2004-05-15 devnull if (hx) {
43 5cedca1b 2004-05-15 devnull j = absmot(i);
44 5cedca1b 2004-05-15 devnull if (isnmot(i)) {
45 5cedca1b 2004-05-15 devnull if (j > dip->blss)
46 5cedca1b 2004-05-15 devnull dip->blss = j;
48 5cedca1b 2004-05-15 devnull if (j > dip->alss)
49 5cedca1b 2004-05-15 devnull dip->alss = j;
50 5cedca1b 2004-05-15 devnull ralss = dip->alss;
52 5cedca1b 2004-05-15 devnull return 0;
54 5cedca1b 2004-05-15 devnull if (ismot(i)) {
55 5cedca1b 2004-05-15 devnull pchar1(i);
56 5cedca1b 2004-05-15 devnull return 0;
58 5cedca1b 2004-05-15 devnull switch (j = cbits(i)) {
60 5cedca1b 2004-05-15 devnull case IMP:
61 5cedca1b 2004-05-15 devnull case RIGHT:
62 5cedca1b 2004-05-15 devnull case LEFT:
63 5cedca1b 2004-05-15 devnull return 0;
66 5cedca1b 2004-05-15 devnull return 0;
67 5cedca1b 2004-05-15 devnull case XON:
70 5cedca1b 2004-05-15 devnull case XOFF:
73 5cedca1b 2004-05-15 devnull case PRESC:
74 5cedca1b 2004-05-15 devnull if (!xon && !tflg && dip == &d[0])
75 5cedca1b 2004-05-15 devnull j = eschar; /* fall through */
77 5cedca1b 2004-05-15 devnull setcbits(i, trtab[j]);
79 5cedca1b 2004-05-15 devnull if (NROFF & xon) /* rob fix for man2html */
80 5cedca1b 2004-05-15 devnull return 0;
81 5cedca1b 2004-05-15 devnull pchar1(i);
82 5cedca1b 2004-05-15 devnull return 0;
86 5cedca1b 2004-05-15 devnull void pchar1(Tchar i)
90 5cedca1b 2004-05-15 devnull j = cbits(i);
91 5cedca1b 2004-05-15 devnull if (dip != &d[0]) {
93 5cedca1b 2004-05-15 devnull dip->op = offset;
96 5cedca1b 2004-05-15 devnull if (!tflg && !print) {
97 5cedca1b 2004-05-15 devnull if (j == '\n')
98 5cedca1b 2004-05-15 devnull dip->alss = dip->blss = 0;
101 5cedca1b 2004-05-15 devnull if (j == FILLER && !xon)
103 5cedca1b 2004-05-15 devnull if (tflg) { /* transparent mode, undiverted */
104 5cedca1b 2004-05-15 devnull if (print) /* assumes that it's ok to print */
105 5cedca1b 2004-05-15 devnull /* OUT "%c", j PUT; /* i.e., is ascii */
106 5cedca1b 2004-05-15 devnull outascii(i);
109 5cedca1b 2004-05-15 devnull if (TROFF && ascii)
110 5cedca1b 2004-05-15 devnull outascii(i);
112 5cedca1b 2004-05-15 devnull ptout(i);
116 5cedca1b 2004-05-15 devnull void outweird(int k) /* like ptchname() but ascii */
118 5cedca1b 2004-05-15 devnull char *chn = chname(k);
120 5cedca1b 2004-05-15 devnull switch (chn[0]) {
121 5cedca1b 2004-05-15 devnull case MBchar:
122 5cedca1b 2004-05-15 devnull OUT "%s", chn+1 PUT; /* \n not needed? */
124 5cedca1b 2004-05-15 devnull case Number:
125 5cedca1b 2004-05-15 devnull OUT "\\N'%s'", chn+1 PUT;
127 5cedca1b 2004-05-15 devnull case Troffchar:
128 5cedca1b 2004-05-15 devnull if (strlen(chn+1) == 2)
129 5cedca1b 2004-05-15 devnull OUT "\\(%s", chn+1 PUT;
131 5cedca1b 2004-05-15 devnull OUT "\\C'%s'", chn+1 PUT;
133 5cedca1b 2004-05-15 devnull default:
134 5cedca1b 2004-05-15 devnull OUT " %s? ", chn PUT;
139 5cedca1b 2004-05-15 devnull void outascii(Tchar i) /* print i in best-guess ascii */
141 5cedca1b 2004-05-15 devnull int j = cbits(i);
143 5cedca1b 2004-05-15 devnull /* is this ever called with NROFF set? probably doesn't work at all. */
145 5cedca1b 2004-05-15 devnull if (ismot(i))
146 5cedca1b 2004-05-15 devnull oput(' ');
147 5cedca1b 2004-05-15 devnull else if (j < ALPHABET && j >= ' ' || j == '\n' || j == '\t')
148 5cedca1b 2004-05-15 devnull oput(j);
149 5cedca1b 2004-05-15 devnull else if (j == DRAWFCN)
150 5cedca1b 2004-05-15 devnull oputs("\\D");
151 5cedca1b 2004-05-15 devnull else if (j == HYPHEN)
152 5cedca1b 2004-05-15 devnull oput('-');
153 5cedca1b 2004-05-15 devnull else if (j == MINUS) /* special pleading for strange encodings */
154 5cedca1b 2004-05-15 devnull oputs("\\-");
155 5cedca1b 2004-05-15 devnull else if (j == PRESC)
156 5cedca1b 2004-05-15 devnull oputs("\\e");
157 5cedca1b 2004-05-15 devnull else if (j == FILLER)
158 5cedca1b 2004-05-15 devnull oputs("\\&");
159 5cedca1b 2004-05-15 devnull else if (j == UNPAD)
160 5cedca1b 2004-05-15 devnull oputs("\\ ");
161 5cedca1b 2004-05-15 devnull else if (j == OHC) /* this will never occur; stripped out earlier */
162 5cedca1b 2004-05-15 devnull oputs("\\%");
163 5cedca1b 2004-05-15 devnull else if (j == XON)
164 5cedca1b 2004-05-15 devnull oputs("\\X");
165 5cedca1b 2004-05-15 devnull else if (j == XOFF)
166 5cedca1b 2004-05-15 devnull oputs(" ");
167 5cedca1b 2004-05-15 devnull else if (j == LIG_FI)
168 5cedca1b 2004-05-15 devnull oputs("fi");
169 5cedca1b 2004-05-15 devnull else if (j == LIG_FL)
170 5cedca1b 2004-05-15 devnull oputs("fl");
171 5cedca1b 2004-05-15 devnull else if (j == LIG_FF)
172 5cedca1b 2004-05-15 devnull oputs("ff");
173 5cedca1b 2004-05-15 devnull else if (j == LIG_FFI)
174 5cedca1b 2004-05-15 devnull oputs("ffi");
175 5cedca1b 2004-05-15 devnull else if (j == LIG_FFL)
176 5cedca1b 2004-05-15 devnull oputs("ffl");
177 5cedca1b 2004-05-15 devnull else if (j == WORDSP) { /* nothing at all */
178 5cedca1b 2004-05-15 devnull if (xon) /* except in \X */
179 5cedca1b 2004-05-15 devnull oput(' ');
182 5cedca1b 2004-05-15 devnull outweird(j);
185 5cedca1b 2004-05-15 devnull int flusho(void)
187 5cedca1b 2004-05-15 devnull if (NROFF && !toolate && t.twinit)
188 5cedca1b 2004-05-15 devnull fwrite(t.twinit, strlen(t.twinit), 1, ptid);
190 5cedca1b 2004-05-15 devnull if (obufp > obuf) {
191 5cedca1b 2004-05-15 devnull if (pipeflg && !toolate) {
192 5cedca1b 2004-05-15 devnull /* fprintf(stderr, "Pipe to <%s>\n", Pipe.buf); */
193 5cedca1b 2004-05-15 devnull if (!Pipe.buf[0] || (ptid = popen(Pipe.buf, "w")) == NULL)
194 5cedca1b 2004-05-15 devnull ERROR "pipe %s not created.", Pipe.buf WARN;
195 5cedca1b 2004-05-15 devnull if (Pipe.buf)
196 5cedca1b 2004-05-15 devnull free(Pipe.buf);
198 5cedca1b 2004-05-15 devnull if (!toolate)
199 5cedca1b 2004-05-15 devnull toolate++;
200 5cedca1b 2004-05-15 devnull *obufp = 0;
201 5cedca1b 2004-05-15 devnull fputs(obuf, ptid);
202 5cedca1b 2004-05-15 devnull fflush(ptid);
203 5cedca1b 2004-05-15 devnull obufp = obuf;
205 5cedca1b 2004-05-15 devnull return 1;
209 5cedca1b 2004-05-15 devnull void caseex(void)
211 5cedca1b 2004-05-15 devnull done(0);
215 5cedca1b 2004-05-15 devnull void done(int x)
219 5cedca1b 2004-05-15 devnull error |= x;
220 5cedca1b 2004-05-15 devnull app = ds = lgf = 0;
221 5cedca1b 2004-05-15 devnull if (i = em) {
222 5cedca1b 2004-05-15 devnull donef = -1;
223 5cedca1b 2004-05-15 devnull eschar = '\\';
225 5cedca1b 2004-05-15 devnull if (control(i, 0))
226 5cedca1b 2004-05-15 devnull longjmp(sjbuf, 1);
228 5cedca1b 2004-05-15 devnull if (!nfo)
229 5cedca1b 2004-05-15 devnull done3(0);
230 5cedca1b 2004-05-15 devnull mflg = 0;
231 5cedca1b 2004-05-15 devnull dip = &d[0];
232 5cedca1b 2004-05-15 devnull if (woff) /* BUG!!! This isn't set anywhere */
233 5cedca1b 2004-05-15 devnull wbf((Tchar)0);
234 5cedca1b 2004-05-15 devnull if (pendw)
235 5cedca1b 2004-05-15 devnull getword(1);
236 5cedca1b 2004-05-15 devnull pendnf = 0;
237 5cedca1b 2004-05-15 devnull if (donef == 1)
238 5cedca1b 2004-05-15 devnull done1(0);
239 5cedca1b 2004-05-15 devnull donef = 1;
241 5cedca1b 2004-05-15 devnull frame = stk;
242 5cedca1b 2004-05-15 devnull nxf = frame + 1;
243 5cedca1b 2004-05-15 devnull if (!ejf)
244 5cedca1b 2004-05-15 devnull tbreak();
245 5cedca1b 2004-05-15 devnull nflush++;
246 5cedca1b 2004-05-15 devnull eject((Stack *)0);
247 5cedca1b 2004-05-15 devnull longjmp(sjbuf, 1);
251 5cedca1b 2004-05-15 devnull void done1(int x)
253 5cedca1b 2004-05-15 devnull error |= x;
254 5cedca1b 2004-05-15 devnull if (numtabp[NL].val) {
255 5cedca1b 2004-05-15 devnull trap = 0;
256 5cedca1b 2004-05-15 devnull eject((Stack *)0);
257 5cedca1b 2004-05-15 devnull longjmp(sjbuf, 1);
259 5cedca1b 2004-05-15 devnull if (!ascii)
260 5cedca1b 2004-05-15 devnull pttrailer();
261 5cedca1b 2004-05-15 devnull done2(0);
265 5cedca1b 2004-05-15 devnull void done2(int x)
267 5cedca1b 2004-05-15 devnull ptlead();
268 5cedca1b 2004-05-15 devnull if (TROFF && !ascii)
269 5cedca1b 2004-05-15 devnull ptstop();
270 5cedca1b 2004-05-15 devnull flusho();
271 5cedca1b 2004-05-15 devnull done3(x);
274 5cedca1b 2004-05-15 devnull void done3(int x)
276 5cedca1b 2004-05-15 devnull error |= x;
277 5cedca1b 2004-05-15 devnull flusho();
278 5cedca1b 2004-05-15 devnull if (NROFF)
279 5cedca1b 2004-05-15 devnull twdone();
280 5cedca1b 2004-05-15 devnull if (pipeflg)
281 5cedca1b 2004-05-15 devnull pclose(ptid);
282 5cedca1b 2004-05-15 devnull exit(error);
286 5cedca1b 2004-05-15 devnull void edone(int x)
288 5cedca1b 2004-05-15 devnull frame = stk;
289 5cedca1b 2004-05-15 devnull nxf = frame + 1;
291 5cedca1b 2004-05-15 devnull done(x);
295 5cedca1b 2004-05-15 devnull void casepi(void)
298 5cedca1b 2004-05-15 devnull char buf[NTM];
300 5cedca1b 2004-05-15 devnull if (Pipe.buf == NULL) {
301 5cedca1b 2004-05-15 devnull if ((Pipe.buf = (char *)calloc(NTM, sizeof(char))) == NULL) {
302 5cedca1b 2004-05-15 devnull ERROR "No buf space for pipe cmd" WARN;
305 5cedca1b 2004-05-15 devnull Pipe.tick = 1;
307 5cedca1b 2004-05-15 devnull Pipe.buf[Pipe.cnt++] = '|';
309 5cedca1b 2004-05-15 devnull getline(buf, NTM);
310 5cedca1b 2004-05-15 devnull j = strlen(buf);
311 5cedca1b 2004-05-15 devnull if (toolate) {
312 5cedca1b 2004-05-15 devnull ERROR "Cannot create pipe to %s", buf WARN;
315 5cedca1b 2004-05-15 devnull Pipe.cnt += j;
316 5cedca1b 2004-05-15 devnull if (j >= NTM +1) {
317 5cedca1b 2004-05-15 devnull Pipe.tick++;
318 5cedca1b 2004-05-15 devnull if ((Pipe.buf = (char *)realloc(Pipe.buf, Pipe.tick * NTM * sizeof(char))) == NULL) {
319 5cedca1b 2004-05-15 devnull ERROR "No more buf space for pipe cmd" WARN;
323 5cedca1b 2004-05-15 devnull strcat(Pipe.buf, buf);
324 5cedca1b 2004-05-15 devnull pipeflg++;