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