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