1 5cedca1b 2004-05-15 devnull /*
  2 5cedca1b 2004-05-15 devnull  * n2.c
  3 5cedca1b 2004-05-15 devnull  *
  4 5cedca1b 2004-05-15 devnull  * output, cleanup
  5 5cedca1b 2004-05-15 devnull  */
  6 5cedca1b 2004-05-15 devnull 
  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>
 12 5cedca1b 2004-05-15 devnull 
 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*);
 16 5cedca1b 2004-05-15 devnull #endif
 17 5cedca1b 2004-05-15 devnull 
 18 5cedca1b 2004-05-15 devnull 
 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;
 22 5cedca1b 2004-05-15 devnull 
 23 5cedca1b 2004-05-15 devnull char	obuf[2*BUFSIZ];
 24 5cedca1b 2004-05-15 devnull char	*obufp = obuf;
 25 5cedca1b 2004-05-15 devnull 
 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;
 30 5cedca1b 2004-05-15 devnull 	int	cnt;
 31 5cedca1b 2004-05-15 devnull } Pipe;
 32 5cedca1b 2004-05-15 devnull 
 33 5cedca1b 2004-05-15 devnull 
 34 5cedca1b 2004-05-15 devnull int	xon	= 0;	/* records if in middle of \X */
 35 5cedca1b 2004-05-15 devnull 
 36 5cedca1b 2004-05-15 devnull int pchar(Tchar i)
 37 5cedca1b 2004-05-15 devnull {
 38 5cedca1b 2004-05-15 devnull 	int j;
 39 5cedca1b 2004-05-15 devnull 	static int hx = 0;	/* records if have seen HX */
 40 5cedca1b 2004-05-15 devnull 
 41 5cedca1b 2004-05-15 devnull 	if (hx) {
 42 5cedca1b 2004-05-15 devnull 		hx = 0;
 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;
 47 5cedca1b 2004-05-15 devnull 		} else {
 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;
 51 5cedca1b 2004-05-15 devnull 		}
 52 5cedca1b 2004-05-15 devnull 		return 0;
 53 5cedca1b 2004-05-15 devnull 	}
 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;
 57 5cedca1b 2004-05-15 devnull 	}
 58 5cedca1b 2004-05-15 devnull 	switch (j = cbits(i)) {
 59 5cedca1b 2004-05-15 devnull 	case 0:
 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;
 64 5cedca1b 2004-05-15 devnull 	case HX:
 65 5cedca1b 2004-05-15 devnull 		hx = 1;
 66 5cedca1b 2004-05-15 devnull 		return 0;
 67 5cedca1b 2004-05-15 devnull 	case XON:
 68 5cedca1b 2004-05-15 devnull 		xon++;
 69 5cedca1b 2004-05-15 devnull 		break;
 70 5cedca1b 2004-05-15 devnull 	case XOFF:
 71 5cedca1b 2004-05-15 devnull 		xon--;
 72 5cedca1b 2004-05-15 devnull 		break;
 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 */
 76 5cedca1b 2004-05-15 devnull 	default:
 77 5cedca1b 2004-05-15 devnull 		setcbits(i, trtab[j]);
 78 5cedca1b 2004-05-15 devnull 	}
 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;
 83 5cedca1b 2004-05-15 devnull }
 84 5cedca1b 2004-05-15 devnull 
 85 5cedca1b 2004-05-15 devnull 
 86 5cedca1b 2004-05-15 devnull void pchar1(Tchar i)
 87 5cedca1b 2004-05-15 devnull {
 88 5cedca1b 2004-05-15 devnull 	int j;
 89 5cedca1b 2004-05-15 devnull 
 90 5cedca1b 2004-05-15 devnull 	j = cbits(i);
 91 5cedca1b 2004-05-15 devnull 	if (dip != &d[0]) {
 92 5cedca1b 2004-05-15 devnull 		wbf(i);
 93 5cedca1b 2004-05-15 devnull 		dip->op = offset;
 94 5cedca1b 2004-05-15 devnull 		return;
 95 5cedca1b 2004-05-15 devnull 	}
 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;
 99 5cedca1b 2004-05-15 devnull 		return;
100 5cedca1b 2004-05-15 devnull 	}
101 5cedca1b 2004-05-15 devnull 	if (j == FILLER && !xon)
102 5cedca1b 2004-05-15 devnull 		return;
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);
107 5cedca1b 2004-05-15 devnull 		return;
108 5cedca1b 2004-05-15 devnull 	}
109 5cedca1b 2004-05-15 devnull 	if (TROFF && ascii)
110 5cedca1b 2004-05-15 devnull 		outascii(i);
111 5cedca1b 2004-05-15 devnull 	else
112 5cedca1b 2004-05-15 devnull 		ptout(i);
113 5cedca1b 2004-05-15 devnull }
114 5cedca1b 2004-05-15 devnull 
115 5cedca1b 2004-05-15 devnull 
116 5cedca1b 2004-05-15 devnull void outweird(int k)	/* like ptchname() but ascii */
117 5cedca1b 2004-05-15 devnull {
118 5cedca1b 2004-05-15 devnull 	char *chn = chname(k);
119 5cedca1b 2004-05-15 devnull 
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? */
123 5cedca1b 2004-05-15 devnull 		break;
124 5cedca1b 2004-05-15 devnull 	case Number:
125 5cedca1b 2004-05-15 devnull 		OUT "\\N'%s'", chn+1 PUT;
126 5cedca1b 2004-05-15 devnull 		break;
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;
130 5cedca1b 2004-05-15 devnull 		else
131 5cedca1b 2004-05-15 devnull 			OUT "\\C'%s'", chn+1 PUT;
132 5cedca1b 2004-05-15 devnull 		break;
133 5cedca1b 2004-05-15 devnull 	default:
134 5cedca1b 2004-05-15 devnull 		OUT " %s? ", chn PUT;
135 5cedca1b 2004-05-15 devnull 		break;
136 5cedca1b 2004-05-15 devnull 	}
137 5cedca1b 2004-05-15 devnull }
138 5cedca1b 2004-05-15 devnull 
139 5cedca1b 2004-05-15 devnull void outascii(Tchar i)	/* print i in best-guess ascii */
140 5cedca1b 2004-05-15 devnull {
141 5cedca1b 2004-05-15 devnull 	int j = cbits(i);
142 5cedca1b 2004-05-15 devnull 
143 5cedca1b 2004-05-15 devnull /* is this ever called with NROFF set? probably doesn't work at all. */
144 5cedca1b 2004-05-15 devnull 
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(' ');
180 5cedca1b 2004-05-15 devnull 
181 5cedca1b 2004-05-15 devnull 	} else
182 5cedca1b 2004-05-15 devnull 		outweird(j);
183 5cedca1b 2004-05-15 devnull }
184 5cedca1b 2004-05-15 devnull 
185 5cedca1b 2004-05-15 devnull int flusho(void)
186 5cedca1b 2004-05-15 devnull {
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);
189 5cedca1b 2004-05-15 devnull 
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);
197 5cedca1b 2004-05-15 devnull 		}
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;
204 5cedca1b 2004-05-15 devnull 	}
205 5cedca1b 2004-05-15 devnull 	return 1;
206 5cedca1b 2004-05-15 devnull }
207 5cedca1b 2004-05-15 devnull 
208 5cedca1b 2004-05-15 devnull 
209 5cedca1b 2004-05-15 devnull void caseex(void)
210 5cedca1b 2004-05-15 devnull {
211 5cedca1b 2004-05-15 devnull 	done(0);
212 5cedca1b 2004-05-15 devnull }
213 5cedca1b 2004-05-15 devnull 
214 5cedca1b 2004-05-15 devnull 
215 5cedca1b 2004-05-15 devnull void done(int x) 
216 5cedca1b 2004-05-15 devnull {
217 5cedca1b 2004-05-15 devnull 	int i;
218 5cedca1b 2004-05-15 devnull 
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 = '\\';
224 5cedca1b 2004-05-15 devnull 		em = 0;
225 5cedca1b 2004-05-15 devnull 		if (control(i, 0))
226 5cedca1b 2004-05-15 devnull 			longjmp(sjbuf, 1);
227 5cedca1b 2004-05-15 devnull 	}
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;
240 5cedca1b 2004-05-15 devnull 	ip = 0;
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);
248 5cedca1b 2004-05-15 devnull }
249 5cedca1b 2004-05-15 devnull 
250 5cedca1b 2004-05-15 devnull 
251 5cedca1b 2004-05-15 devnull void done1(int x) 
252 5cedca1b 2004-05-15 devnull {
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);
258 5cedca1b 2004-05-15 devnull 	}
259 5cedca1b 2004-05-15 devnull 	if (!ascii)
260 5cedca1b 2004-05-15 devnull 		pttrailer();
261 5cedca1b 2004-05-15 devnull 	done2(0);
262 5cedca1b 2004-05-15 devnull }
263 5cedca1b 2004-05-15 devnull 
264 5cedca1b 2004-05-15 devnull 
265 5cedca1b 2004-05-15 devnull void done2(int x) 
266 5cedca1b 2004-05-15 devnull {
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);
272 5cedca1b 2004-05-15 devnull }
273 5cedca1b 2004-05-15 devnull 
274 5cedca1b 2004-05-15 devnull void done3(int x) 
275 5cedca1b 2004-05-15 devnull {
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);
283 5cedca1b 2004-05-15 devnull }
284 5cedca1b 2004-05-15 devnull 
285 5cedca1b 2004-05-15 devnull 
286 5cedca1b 2004-05-15 devnull void edone(int x) 
287 5cedca1b 2004-05-15 devnull {
288 5cedca1b 2004-05-15 devnull 	frame = stk;
289 5cedca1b 2004-05-15 devnull 	nxf = frame + 1;
290 5cedca1b 2004-05-15 devnull 	ip = 0;
291 5cedca1b 2004-05-15 devnull 	done(x);
292 5cedca1b 2004-05-15 devnull }
293 5cedca1b 2004-05-15 devnull 
294 5cedca1b 2004-05-15 devnull 
295 5cedca1b 2004-05-15 devnull void casepi(void)
296 5cedca1b 2004-05-15 devnull {
297 5cedca1b 2004-05-15 devnull 	int j;
298 5cedca1b 2004-05-15 devnull 	char buf[NTM];
299 5cedca1b 2004-05-15 devnull 
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;
303 5cedca1b 2004-05-15 devnull 			return;
304 5cedca1b 2004-05-15 devnull 		}
305 5cedca1b 2004-05-15 devnull 		Pipe.tick = 1;
306 5cedca1b 2004-05-15 devnull 	} else
307 5cedca1b 2004-05-15 devnull 		Pipe.buf[Pipe.cnt++] = '|';
308 5cedca1b 2004-05-15 devnull 
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;
313 5cedca1b 2004-05-15 devnull 		return;
314 5cedca1b 2004-05-15 devnull 	}
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;
320 5cedca1b 2004-05-15 devnull 			return;
321 5cedca1b 2004-05-15 devnull 		}
322 5cedca1b 2004-05-15 devnull 	}
323 5cedca1b 2004-05-15 devnull 	strcat(Pipe.buf, buf);
324 5cedca1b 2004-05-15 devnull 	pipeflg++;
325 5cedca1b 2004-05-15 devnull }