xref: /illumos-gate/usr/src/cmd/troff/n2.c (revision e5190c10)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 1989 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
28 /*	  All Rights Reserved  	*/
29 
30 /*
31  * University Copyright- Copyright (c) 1982, 1986, 1988
32  * The Regents of the University of California
33  * All Rights Reserved
34  *
35  * University Acknowledgment- Portions of this document are derived from
36  * software developed by the University of California, Berkeley, and its
37  * contributors.
38  */
39 
40 #pragma ident	"%Z%%M%	%I%	%E% SMI"
41 
42 /*
43  * n2.c
44  *
45  * output, cleanup
46  */
47 
48 #include <signal.h>
49 #include "tdef.h"
50 #ifdef NROFF
51 #include "tw.h"
52 #endif
53 #include <setjmp.h>
54 #include "ext.h"
55 #ifdef EUC
56 #ifdef NROFF
57 #include <stddef.h>
58 #include <widec.h>
59 #include <limits.h>
60 #include <ctype.h>
61 
62 char mbobuf[MB_LEN_MAX] = {0};
63 wchar_t wchar;
64 int	nmb1 = 0;
65 #endif /* NROFF */
66 #endif /* EUC */
67 
68 extern	jmp_buf	sjbuf;
69 int	toolate;
70 int	error;
71 
72 int
pchar(i)73 pchar(i)
74 	tchar i;
75 {
76 	int j;
77 	static int hx = 0;	/* records if have seen HX */
78 
79 	if (hx) {
80 		hx = 0;
81 		j = absmot(i);
82 		if (isnmot(i)) {
83 			if (j > dip->blss)
84 				dip->blss = j;
85 		} else {
86 			if (j > dip->alss)
87 				dip->alss = j;
88 			ralss = dip->alss;
89 		}
90 		return (0);
91 	}
92 	if (ismot(i)) {
93 		pchar1(i);
94 		return (0);
95 	}
96 	switch (j = cbits(i)) {
97 	case 0:
98 	case IMP:
99 	case RIGHT:
100 	case LEFT:
101 		return (0);
102 	case HX:
103 		hx = 1;
104 		return (0);
105 	case PRESC:
106 		if (dip == &d[0])
107 			j = eschar;	/* fall through */
108 	default:
109 #ifndef EUC
110 		setcbits(i, trtab[j]);
111 #else
112 #ifndef NROFF
113 		setcbits(i, trtab[j]);
114 #else
115 		if (!multi_locale || (!(j & CSMASK) && !(j & MBMASK1)))
116 			setcbits(i, trtab[j]);
117 #endif /* NROFF */
118 #endif /* EUC */
119 	}
120 	pchar1(i);
121 
122 	return (0);
123 }
124 
125 
126 int
pchar1(i)127 pchar1(i)
128 	tchar i;
129 {
130 	int	j;
131 
132 	j = cbits(i);
133 	if (dip != &d[0]) {
134 		wbf(i);
135 		dip->op = offset;
136 		return (0);
137 	}
138 	if (!tflg && !print) {
139 		if (j == '\n')
140 			dip->alss = dip->blss = 0;
141 		return (0);
142 	}
143 	if (no_out || j == FILLER)
144 		return (0);
145 	if (tflg) {	/* transparent mode, undiverted */
146 		fdprintf(ptid, "%c", j);
147 		return (0);
148 	}
149 #ifndef NROFF
150 	if (ascii)
151 		outascii(i);
152 	else
153 #endif
154 		ptout(i);
155 
156 	return (0);
157 }
158 
159 int
outascii(i)160 outascii(i)	/* print i in best-guess ascii */
161 	tchar i;
162 {
163 	int j = cbits(i);
164 
165 	if (ismot(i)) {
166 		oput(' ');
167 		return (0);
168 	}
169 	if (j < 0177 && j >= ' ' || j == '\n') {
170 		oput(j);
171 		return (0);
172 	}
173 	if (j == DRAWFCN)
174 		oputs("\\D");
175 	else if (j == HYPHEN || j == MINUS)
176 		oput('-');
177 	else if (j == XON)
178 		oputs("\\X");
179 	else if (j == LIG_FI)
180 		oputs("fi");
181 	else if (j == LIG_FL)
182 		oputs("fl");
183 	else if (j == LIG_FF)
184 		oputs("ff");
185 	else if (j == LIG_FFI)
186 		oputs("ffi");
187 	else if (j == LIG_FFL)
188 		oputs("ffl");
189 	else if (j == WORDSP)
190 		;	/* nothing at all */
191 	else if (j > 0177) {
192 		oput('\\');
193 		oput('(');
194 		oput(chname[chtab[j-128]]);
195 		oput(chname[chtab[j-128]+1]);
196 	}
197 
198 	return (0);
199 }
200 
201 
202 /*
203  * now a macro
204 int
205 oput(i)
206 	int	i;
207 {
208 	*obufp++ = i;
209 	if (obufp >= &obuf[OBUFSZ])
210 		flusho();
211 
212 	return (0);
213 }
214 */
215 
216 int
oputs(i)217 oputs(i)
218 char	*i;
219 {
220 	while (*i != 0)
221 		oput(*i++);
222 
223 	return (0);
224 }
225 
226 
227 int
flusho()228 flusho()
229 {
230 	if (obufp == obuf)
231 		return (0);
232 	if (no_out == 0) {
233 		if (!toolate) {
234 			toolate++;
235 #ifdef NROFF
236 			set_tty();
237 			{
238 				char	*p = t.twinit;
239 				while (*p++)
240 					;
241 				if (p - t.twinit > 1)
242 					write(ptid, t.twinit, p - t.twinit - 1);
243 			}
244 #endif
245 		}
246 		toolate += write(ptid, obuf, obufp - obuf);
247 	}
248 	obufp = obuf;
249 
250 	return (0);
251 }
252 
253 
254 int
done(x)255 done(x)
256 int	x;
257 {
258 	int	i;
259 
260 	error |= x;
261 	app = ds = lgf = 0;
262 	if (i = em) {
263 		donef = -1;
264 		em = 0;
265 		if (control(i, 0))
266 			longjmp(sjbuf, 1);
267 	}
268 	if (!nfo)
269 		done3(0);
270 	mflg = 0;
271 	dip = &d[0];
272 	if (woff)
273 		wbt((tchar)0);
274 	if (pendw)
275 		getword(1);
276 	pendnf = 0;
277 	if (donef == 1)
278 		done1(0);
279 	donef = 1;
280 	ip = 0;
281 	frame = stk;
282 	nxf = frame + 1;
283 	if (!ejf)
284 		tbreak();
285 	nflush++;
286 	eject((struct s *)0);
287 	longjmp(sjbuf, 1);
288 
289 	return (0);
290 }
291 
292 
293 int
done1(x)294 done1(x)
295 int	x;
296 {
297 	error |= x;
298 	if (numtab[NL].val) {
299 		trap = 0;
300 		eject((struct s *)0);
301 		longjmp(sjbuf, 1);
302 	}
303 	if (nofeed) {
304 		ptlead();
305 		flusho();
306 		done3(0);
307 	} else {
308 		if (!gflag)
309 			pttrailer();
310 		done2(0);
311 	}
312 
313 	return (0);
314 }
315 
316 
317 int
done2(x)318 done2(x)
319 int	x;
320 {
321 	ptlead();
322 #ifndef NROFF
323 	if (!ascii)
324 		ptstop();
325 #endif
326 	flusho();
327 	done3(x);
328 
329 	return (0);
330 }
331 
332 int
done3(x)333 done3(x)
334 int	x;
335 {
336 	error |= x;
337 	signal(SIGINT, SIG_IGN);
338 	signal(SIGTERM, SIG_IGN);
339 	unlink(unlkp);
340 #ifdef NROFF
341 	twdone();
342 #endif
343 	if (ascii)
344 		mesg(1);
345 	exit(error);
346 
347 	return (0);
348 }
349 
350 
351 int
edone(x)352 edone(x)
353 int	x;
354 {
355 	frame = stk;
356 	nxf = frame + 1;
357 	ip = 0;
358 	done(x);
359 
360 	return (0);
361 }
362 
363 
364 int
casepi()365 casepi()
366 {
367 	int	i;
368 	int	id[2];
369 
370 	if (toolate || skip() || !getname() || pipe(id) == -1 || (i = fork()) == -1) {
371 		errprint(gettext("Pipe not created."));
372 		return (0);
373 	}
374 	ptid = id[1];
375 	if (i > 0) {
376 		close(id[0]);
377 		toolate++;
378 		pipeflg++;
379 		return (0);
380 	}
381 	close(0);
382 	dup(id[0]);
383 	close(id[1]);
384 	execl(nextf, nextf, 0);
385 	errprint(gettext("Cannot exec %s"), nextf);
386 	exit(-4);
387 
388 	return (0);
389 }
390