1/* $Header: /src/pub/tcsh/ed.term.c,v 1.25 2000/11/11 23:03:34 christos Exp $ */
2/*
3 * ed.term.c: Low level terminal interface
4 */
5/*-
6 * Copyright (c) 1980, 1991 The Regents of the University of California.
7 * All rights reserved.
8 *
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
11 * are met:
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 * 3. All advertising materials mentioning features or use of this software
18 * must display the following acknowledgement:
19 * This product includes software developed by the University of
20 * California, Berkeley and its contributors.
21 * 4. Neither the name of the University nor the names of its contributors
22 * may be used to endorse or promote products derived from this software
23 * without specific prior written permission.
24 *
25 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
26 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
28 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
29 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
30 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
31 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
32 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
33 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
34 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 * SUCH DAMAGE.
36 */
37#include "sh.h"
38#ifndef WINNT_NATIVE
39
40RCSID("$Id: ed.term.c,v 1.25 2000/11/11 23:03:34 christos Exp $")
41
42#include "ed.h"
43#include "ed.term.h"
44
45int didsetty = 0;
46ttyperm_t ttylist = {
47 {
48#if defined(POSIX) || defined(TERMIO)
49 { "iflag:", ICRNL, (INLCR|IGNCR) },
50 { "oflag:", (OPOST|ONLCR), ONLRET },
51 { "cflag:", 0, 0 },
52 { "lflag:", (ISIG|ICANON|ECHO|ECHOE|ECHOCTL|IEXTEN),
53 (NOFLSH|ECHONL|EXTPROC|FLUSHO|IDEFAULT) },
54#else /* GSTTY */
55 { "nrmal:", (ECHO|CRMOD|ANYP), (CBREAK|RAW|LCASE|VTDELAY|ALLDELAY) },
56 { "local:", (LCRTBS|LCRTERA|LCRTKIL), (LPRTERA|LFLUSHO) },
57#endif /* POSIX || TERMIO */
58 { "chars:", 0, 0 },
59 },
60 {
61#if defined(POSIX) || defined(TERMIO)
62 { "iflag:", (INLCR|ICRNL), IGNCR },
63 { "oflag:", (OPOST|ONLCR), ONLRET },
64 { "cflag:", 0, 0 },
65 { "lflag:", ISIG,
66 (NOFLSH|ICANON|ECHO|ECHOK|ECHONL|EXTPROC|IEXTEN|FLUSHO|
67 IDEFAULT) },
68#else /* GSTTY */
69 { "nrmal:", (CBREAK|CRMOD|ANYP), (RAW|ECHO|LCASE|VTDELAY|ALLDELAY) },
70 { "local:", (LCRTBS|LCRTERA|LCRTKIL), (LPRTERA|LFLUSHO) },
71#endif /* POSIX || TERMIO */
72 { "chars:", (C_SH(C_MIN)|C_SH(C_TIME)|C_SH(C_SWTCH)|C_SH(C_DSWTCH)|
73 C_SH(C_WERASE)|C_SH(C_REPRINT)|C_SH(C_SUSP)|C_SH(C_DSUSP)|
74 C_SH(C_EOF)|C_SH(C_EOL)|C_SH(C_DISCARD)|C_SH(C_PGOFF)|
75 C_SH(C_KILL2)|C_SH(C_PAGE)|C_SH(C_STATUS)|C_SH(C_LNEXT)),
76 0 }
77 },
78 {
79#if defined(POSIX) || defined(TERMIO)
80 { "iflag:", 0, IXON | IXOFF },
81 { "oflag:", 0, 0 },
82 { "cflag:", 0, 0 },
83 { "lflag:", 0, ISIG | IEXTEN },
84#else /* GSTTY */
85 { "nrmal:", RAW, CBREAK },
86 { "local:", 0, 0 },
87#endif /* POSIX || TERMIO */
88 { "chars:", 0, 0 },
89 }
90};
91
92static struct tcshmodes {
93 char *m_name;
94#ifdef SOLARIS2
95 unsigned long m_value;
96#else /* !SOLARIS2 */
97 int m_value;
98#endif /* SOLARIS2 */
99 int m_type;
100} modelist[] = {
101#if defined(POSIX) || defined(TERMIO)
102
103# ifdef IGNBRK
104 { "ignbrk", IGNBRK, M_INPUT },
105# endif /* IGNBRK */
106# ifdef BRKINT
107 { "brkint", BRKINT, M_INPUT },
108# endif /* BRKINT */
109# ifdef IGNPAR
110 { "ignpar", IGNPAR, M_INPUT },
111# endif /* IGNPAR */
112# ifdef PARMRK
113 { "parmrk", PARMRK, M_INPUT },
114# endif /* PARMRK */
115# ifdef INPCK
116 { "inpck", INPCK, M_INPUT },
117# endif /* INPCK */
118# ifdef ISTRIP
119 { "istrip", ISTRIP, M_INPUT },
120# endif /* ISTRIP */
121# ifdef INLCR
122 { "inlcr", INLCR, M_INPUT },
123# endif /* INLCR */
124# ifdef IGNCR
125 { "igncr", IGNCR, M_INPUT },
126# endif /* IGNCR */
127# ifdef ICRNL
128 { "icrnl", ICRNL, M_INPUT },
129# endif /* ICRNL */
130# ifdef IUCLC
131 { "iuclc", IUCLC, M_INPUT },
132# endif /* IUCLC */
133# ifdef IXON
134 { "ixon", IXON, M_INPUT },
135# endif /* IXON */
136# ifdef IXANY
137 { "ixany", IXANY, M_INPUT },
138# endif /* IXANY */
139# ifdef IXOFF
140 { "ixoff", IXOFF, M_INPUT },
141# endif /* IXOFF */
142# ifdef IMAXBEL
143 { "imaxbel",IMAXBEL,M_INPUT },
144# endif /* IMAXBEL */
145# ifdef IDELETE
146 { "idelete",IDELETE,M_INPUT },
147# endif /* IDELETE */
148
149# ifdef OPOST
150 { "opost", OPOST, M_OUTPUT },
151# endif /* OPOST */
152# ifdef OLCUC
153 { "olcuc", OLCUC, M_OUTPUT },
154# endif /* OLCUC */
155# ifdef ONLCR
156 { "onlcr", ONLCR, M_OUTPUT },
157# endif /* ONLCR */
158# ifdef OCRNL
159 { "ocrnl", OCRNL, M_OUTPUT },
160# endif /* OCRNL */
161# ifdef ONOCR
162 { "onocr", ONOCR, M_OUTPUT },
163# endif /* ONOCR */
164# ifdef ONOEOT
165 { "onoeot", ONOEOT, M_OUTPUT },
166# endif /* ONOEOT */
167# ifdef ONLRET
168 { "onlret", ONLRET, M_OUTPUT },
169# endif /* ONLRET */
170# ifdef OFILL
171 { "ofill", OFILL, M_OUTPUT },
172# endif /* OFILL */
173# ifdef OFDEL
174 { "ofdel", OFDEL, M_OUTPUT },
175# endif /* OFDEL */
176# ifdef NLDLY
177 { "nldly", NLDLY, M_OUTPUT },
178# endif /* NLDLY */
179# ifdef CRDLY
180 { "crdly", CRDLY, M_OUTPUT },
181# endif /* CRDLY */
182# ifdef TABDLY
183 { "tabdly", TABDLY, M_OUTPUT },
184# endif /* TABDLY */
185# ifdef XTABS
186 { "xtabs", XTABS, M_OUTPUT },
187# endif /* XTABS */
188# ifdef BSDLY
189 { "bsdly", BSDLY, M_OUTPUT },
190# endif /* BSDLY */
191# ifdef VTDLY
192 { "vtdly", VTDLY, M_OUTPUT },
193# endif /* VTDLY */
194# ifdef FFDLY
195 { "ffdly", FFDLY, M_OUTPUT },
196# endif /* FFDLY */
197# ifdef PAGEOUT
198 { "pageout",PAGEOUT,M_OUTPUT },
199# endif /* PAGEOUT */
200# ifdef WRAP
201 { "wrap", WRAP, M_OUTPUT },
202# endif /* WRAP */
203
204# ifdef CIGNORE
205 { "cignore",CIGNORE,M_CONTROL },
206# endif /* CBAUD */
207# ifdef CBAUD
208 { "cbaud", CBAUD, M_CONTROL },
209# endif /* CBAUD */
210# ifdef CSTOPB
211 { "cstopb", CSTOPB, M_CONTROL },
212# endif /* CSTOPB */
213# ifdef CREAD
214 { "cread", CREAD, M_CONTROL },
215# endif /* CREAD */
216# ifdef PARENB
217 { "parenb", PARENB, M_CONTROL },
218# endif /* PARENB */
219# ifdef PARODD
220 { "parodd", PARODD, M_CONTROL },
221# endif /* PARODD */
222# ifdef HUPCL
223 { "hupcl", HUPCL, M_CONTROL },
224# endif /* HUPCL */
225# ifdef CLOCAL
226 { "clocal", CLOCAL, M_CONTROL },
227# endif /* CLOCAL */
228# ifdef LOBLK
229 { "loblk", LOBLK, M_CONTROL },
230# endif /* LOBLK */
231# ifdef CIBAUD
232 { "cibaud", CIBAUD, M_CONTROL },
233# endif /* CIBAUD */
234# ifdef CRTSCTS
235# ifdef CCTS_OFLOW
236 { "ccts_oflow",CCTS_OFLOW,M_CONTROL },
237# else
238 { "crtscts",CRTSCTS,M_CONTROL },
239# endif /* CCTS_OFLOW */
240# endif /* CRTSCTS */
241# ifdef CRTS_IFLOW
242 { "crts_iflow",CRTS_IFLOW,M_CONTROL },
243# endif /* CRTS_IFLOW */
244# ifdef MDMBUF
245 { "mdmbuf", MDMBUF, M_CONTROL },
246# endif /* MDMBUF */
247# ifdef RCV1EN
248 { "rcv1en", RCV1EN, M_CONTROL },
249# endif /* RCV1EN */
250# ifdef XMT1EN
251 { "xmt1en", XMT1EN, M_CONTROL },
252# endif /* XMT1EN */
253
254# ifdef ISIG
255 { "isig", ISIG, M_LINED },
256# endif /* ISIG */
257# ifdef ICANON
258 { "icanon", ICANON, M_LINED },
259# endif /* ICANON */
260# ifdef XCASE
261 { "xcase", XCASE, M_LINED },
262# endif /* XCASE */
263# ifdef ECHO
264 { "echo", ECHO, M_LINED },
265# endif /* ECHO */
266# ifdef ECHOE
267 { "echoe", ECHOE, M_LINED },
268# endif /* ECHOE */
269# ifdef ECHOK
270 { "echok", ECHOK, M_LINED },
271# endif /* ECHOK */
272# ifdef ECHONL
273 { "echonl", ECHONL, M_LINED },
274# endif /* ECHONL */
275# ifdef NOFLSH
276 { "noflsh", NOFLSH, M_LINED },
277# endif /* NOFLSH */
278# ifdef TOSTOP
279 { "tostop", TOSTOP, M_LINED },
280# endif /* TOSTOP */
281# ifdef ECHOCTL
282 { "echoctl",ECHOCTL,M_LINED },
283# endif /* ECHOCTL */
284# ifdef ECHOPRT
285 { "echoprt",ECHOPRT,M_LINED },
286# endif /* ECHOPRT */
287# ifdef ECHOKE
288 { "echoke", ECHOKE, M_LINED },
289# endif /* ECHOKE */
290# ifdef DEFECHO
291 { "defecho",DEFECHO,M_LINED },
292# endif /* DEFECHO */
293# ifdef FLUSHO
294 { "flusho", FLUSHO, M_LINED },
295# endif /* FLUSHO */
296# ifdef PENDIN
297 { "pendin", PENDIN, M_LINED },
298# endif /* PENDIN */
299# ifdef IEXTEN
300 { "iexten", IEXTEN, M_LINED },
301# endif /* IEXTEN */
302# ifdef NOKERNINFO
303 { "nokerninfo",NOKERNINFO,M_LINED },
304# endif /* NOKERNINFO */
305# ifdef ALTWERASE
306 { "altwerase",ALTWERASE,M_LINED },
307# endif /* ALTWERASE */
308# ifdef EXTPROC
309 { "extproc",EXTPROC,M_LINED },
310# endif /* EXTPROC */
311# ifdef IDEFAULT
312 { "idefault",IDEFAULT,M_LINED },
313# endif /* IDEFAULT */
314
315#else /* GSTTY */
316
317# ifdef TANDEM
318 { "tandem", TANDEM, M_CONTROL },
319# endif /* TANDEM */
320# ifdef CBREAK
321 { "cbreak", CBREAK, M_CONTROL },
322# endif /* CBREAK */
323# ifdef LCASE
324 { "lcase", LCASE, M_CONTROL },
325# endif /* LCASE */
326# ifdef ECHO
327 { "echo", ECHO, M_CONTROL },
328# endif /* ECHO */
329# ifdef CRMOD
330 { "crmod", CRMOD, M_CONTROL },
331# endif /* CRMOD */
332# ifdef RAW
333 { "raw", RAW, M_CONTROL },
334# endif /* RAW */
335# ifdef ODDP
336 { "oddp", ODDP, M_CONTROL },
337# endif /* ODDP */
338# ifdef EVENP
339 { "evenp", EVENP, M_CONTROL },
340# endif /* EVENP */
341# ifdef ANYP
342 { "anyp", ANYP, M_CONTROL },
343# endif /* ANYP */
344# ifdef NLDELAY
345 { "nldelay",NLDELAY,M_CONTROL },
346# endif /* NLDELAY */
347# ifdef TBDELAY
348 { "tbdelay",TBDELAY,M_CONTROL },
349# endif /* TBDELAY */
350# ifdef XTABS
351 { "xtabs", XTABS, M_CONTROL },
352# endif /* XTABS */
353# ifdef CRDELAY
354 { "crdelay",CRDELAY,M_CONTROL },
355# endif /* CRDELAY */
356# ifdef VTDELAY
357 { "vtdelay",VTDELAY,M_CONTROL },
358# endif /* VTDELAY */
359# ifdef BSDELAY
360 { "bsdelay",BSDELAY,M_CONTROL },
361# endif /* BSDELAY */
362# ifdef CRTBS
363 { "crtbs", CRTBS, M_CONTROL },
364# endif /* CRTBS */
365# ifdef PRTERA
366 { "prtera", PRTERA, M_CONTROL },
367# endif /* PRTERA */
368# ifdef CRTERA
369 { "crtera", CRTERA, M_CONTROL },
370# endif /* CRTERA */
371# ifdef TILDE
372 { "tilde", TILDE, M_CONTROL },
373# endif /* TILDE */
374# ifdef MDMBUF
375 { "mdmbuf", MDMBUF, M_CONTROL },
376# endif /* MDMBUF */
377# ifdef LITOUT
378 { "litout", LITOUT, M_CONTROL },
379# endif /* LITOUT */
380# ifdef TOSTOP
381 { "tostop", TOSTOP, M_CONTROL },
382# endif /* TOSTOP */
383# ifdef FLUSHO
384 { "flusho", FLUSHO, M_CONTROL },
385# endif /* FLUSHO */
386# ifdef NOHANG
387 { "nohang", NOHANG, M_CONTROL },
388# endif /* NOHANG */
389# ifdef L001000
390 { "l001000",L001000,M_CONTROL },
391# endif /* L001000 */
392# ifdef CRTKIL
393 { "crtkil", CRTKIL, M_CONTROL },
394# endif /* CRTKIL */
395# ifdef PASS8
396 { "pass8", PASS8, M_CONTROL },
397# endif /* PASS8 */
398# ifdef CTLECH
399 { "ctlech", CTLECH, M_CONTROL },
400# endif /* CTLECH */
401# ifdef PENDIN
402 { "pendin", PENDIN, M_CONTROL },
403# endif /* PENDIN */
404# ifdef DECCTQ
405 { "decctq", DECCTQ, M_CONTROL },
406# endif /* DECCTQ */
407# ifdef NOFLSH
408 { "noflsh", NOFLSH, M_CONTROL },
409# endif /* NOFLSH */
410
411# ifdef LCRTBS
412 { "lcrtbs", LCRTBS, M_LOCAL },
413# endif /* LCRTBS */
414# ifdef LPRTERA
415 { "lprtera",LPRTERA,M_LOCAL },
416# endif /* LPRTERA */
417# ifdef LCRTERA
418 { "lcrtera",LCRTERA,M_LOCAL },
419# endif /* LCRTERA */
420# ifdef LTILDE
421 { "ltilde", LTILDE, M_LOCAL },
422# endif /* LTILDE */
423# ifdef LMDMBUF
424 { "lmdmbuf",LMDMBUF,M_LOCAL },
425# endif /* LMDMBUF */
426# ifdef LLITOUT
427 { "llitout",LLITOUT,M_LOCAL },
428# endif /* LLITOUT */
429# ifdef LTOSTOP
430 { "ltostop",LTOSTOP,M_LOCAL },
431# endif /* LTOSTOP */
432# ifdef LFLUSHO
433 { "lflusho",LFLUSHO,M_LOCAL },
434# endif /* LFLUSHO */
435# ifdef LNOHANG
436 { "lnohang",LNOHANG,M_LOCAL },
437# endif /* LNOHANG */
438# ifdef LCRTKIL
439 { "lcrtkil",LCRTKIL,M_LOCAL },
440# endif /* LCRTKIL */
441# ifdef LPASS8
442 { "lpass8", LPASS8, M_LOCAL },
443# endif /* LPASS8 */
444# ifdef LCTLECH
445 { "lctlech",LCTLECH,M_LOCAL },
446# endif /* LCTLECH */
447# ifdef LPENDIN
448 { "lpendin",LPENDIN,M_LOCAL },
449# endif /* LPENDIN */
450# ifdef LDECCTQ
451 { "ldecctq",LDECCTQ,M_LOCAL },
452# endif /* LDECCTQ */
453# ifdef LNOFLSH
454 { "lnoflsh",LNOFLSH,M_LOCAL },
455# endif /* LNOFLSH */
456
457#endif /* POSIX || TERMIO */
458# if defined(VINTR) || defined(TIOCGETC)
459 { "intr", C_SH(C_INTR), M_CHAR },
460# endif /* VINTR */
461# if defined(VQUIT) || defined(TIOCGETC)
462 { "quit", C_SH(C_QUIT), M_CHAR },
463# endif /* VQUIT */
464# if defined(VERASE) || defined(TIOCGETP)
465 { "erase", C_SH(C_ERASE), M_CHAR },
466# endif /* VERASE */
467# if defined(VKILL) || defined(TIOCGETP)
468 { "kill", C_SH(C_KILL), M_CHAR },
469# endif /* VKILL */
470# if defined(VEOF) || defined(TIOCGETC)
471 { "eof", C_SH(C_EOF), M_CHAR },
472# endif /* VEOF */
473# if defined(VEOL)
474 { "eol", C_SH(C_EOL), M_CHAR },
475# endif /* VEOL */
476# if defined(VEOL2)
477 { "eol2", C_SH(C_EOL2), M_CHAR },
478# endif /* VEOL2 */
479# if defined(VSWTCH)
480 { "swtch", C_SH(C_SWTCH), M_CHAR },
481# endif /* VSWTCH */
482# if defined(VDSWTCH)
483 { "dswtch", C_SH(C_DSWTCH), M_CHAR },
484# endif /* VDSWTCH */
485# if defined(VERASE2)
486 { "erase2", C_SH(C_ERASE2), M_CHAR },
487# endif /* VERASE2 */
488# if defined(VSTART) || defined(TIOCGETC)
489 { "start", C_SH(C_START), M_CHAR },
490# endif /* VSTART */
491# if defined(VSTOP) || defined(TIOCGETC)
492 { "stop", C_SH(C_STOP), M_CHAR },
493# endif /* VSTOP */
494# if defined(VWERASE) || defined(TIOCGLTC)
495 { "werase", C_SH(C_WERASE), M_CHAR },
496# endif /* VWERASE */
497# if defined(VSUSP) || defined(TIOCGLTC)
498 { "susp", C_SH(C_SUSP), M_CHAR },
499# endif /* VSUSP */
500# if defined(VDSUSP) || defined(TIOCGLTC)
501 { "dsusp", C_SH(C_DSUSP), M_CHAR },
502# endif /* VDSUSP */
503# if defined(VREPRINT) || defined(TIOCGLTC)
504 { "reprint", C_SH(C_REPRINT),M_CHAR },
505# endif /* WREPRINT */
506# if defined(VDISCARD) || defined(TIOCGLTC)
507 { "discard", C_SH(C_DISCARD),M_CHAR },
508# endif /* VDISCARD */
509# if defined(VLNEXT) || defined(TIOCGLTC)
510 { "lnext", C_SH(C_LNEXT), M_CHAR },
511# endif /* VLNEXT */
512# if defined(VSTATUS) || defined(TIOCGPAGE)
513 { "status", C_SH(C_STATUS), M_CHAR },
514# endif /* VSTATUS */
515# if defined(VPAGE) || defined(TIOCGPAGE)
516 { "page", C_SH(C_PAGE), M_CHAR },
517# endif /* VPAGE */
518# if defined(VPGOFF) || defined(TIOCGPAGE)
519 { "pgoff", C_SH(C_PGOFF), M_CHAR },
520# endif /* VPGOFF */
521# if defined(VKILL2)
522 { "kill2", C_SH(C_KILL2), M_CHAR },
523# endif /* VKILL2 */
524# if defined(VBRK) || defined(TIOCGETC)
525 { "brk", C_SH(C_BRK), M_CHAR },
526# endif /* VBRK */
527# if defined(VMIN)
528 { "min", C_SH(C_MIN), M_CHAR },
529# endif /* VMIN */
530# if defined(VTIME)
531 { "time", C_SH(C_TIME), M_CHAR },
532# endif /* VTIME */
533 { NULL, 0, -1 },
534};
535
536/*
537 * If EAGAIN and/or EWOULDBLOCK are defined, we can't just return -1 in all
538 * situations where ioctl() does.
539 *
540 * On AIX 4.1.5 (and presumably some other versions and OSes), as you
541 * perform the manual test suite in the README, if you 'bg' vi immediately
542 * after suspending it, all is well, but if you wait a few seconds,
543 * usually ioctl() will return -1, which previously caused tty_setty() to
544 * return -1, causing Rawmode() to return -1, causing Inputl() to return
545 * 0, causing bgetc() to return -1, causing readc() to set doneinp to 1,
546 * causing process() to break out of the main loop, causing tcsh to exit
547 * prematurely.
548 *
549 * If ioctl()'s errno is EAGAIN/EWOULDBLOCK ("Resource temporarily
550 * unavailable"), apparently the tty is being messed with by the OS and we
551 * need to try again. In my testing, ioctl() was never called more than
552 * twice in a row.
553 *
554 * -- Dan Harkless <dan@wave.eng.uci.edu>
555 *
556 * So, I retry all ioctl's in case others happen to fail too (christos)
557 */
558
559#if defined(EAGAIN) && defined(EWOULDBLOCK) && (EWOULDBLOCK != EAGAIN)
560# define OKERROR(e) (((e) == EAGAIN) || ((e) == EWOULDBLOCK) || ((e) == EINTR))
561#elif defined(EGAIN)
562# define OKERROR(e) (((e) == EAGAIN) || ((e) == EINTR))
563#elif defined(EWOULDBLOCK)
564# define OKERROR(e) (((e) == EWOULDBLOCK) || ((e) == EINTR))
565#else
566# define OKERROR(e) ((e) == EINTR)
567#endif
568
569/* Retry a system call */
570#define RETRY(x) \
571 for (;;) \
572 if ((x) == -1) { \
573 if (OKERROR(errno)) \
574 continue; \
575 else \
576 return -1; \
577 } \
578 else \
579 break \
580
581/*ARGSUSED*/
582void
583dosetty(v, t)
584 Char **v;
585 struct command *t;
586{
587 struct tcshmodes *m;
588 char x, *d;
589 int aflag = 0;
590 Char *s;
591 int z = EX_IO;
592 char cmdname[BUFSIZE];
593
594 USE(t);
595 setname(strcpy(cmdname, short2str(*v++)));
596
597 while (v && *v && v[0][0] == '-' && v[0][2] == '\0')
598 switch (v[0][1]) {
599 case 'a':
600 aflag++;
601 v++;
602 break;
603 case 'd':
604 v++;
605 z = ED_IO;
606 break;
607 case 'x':
608 v++;
609 z = EX_IO;
610 break;
611 case 'q':
612 v++;
613 z = QU_IO;
614 break;
615 default:
616 stderror(ERR_NAME | ERR_SYSTEM, short2str(v[0]),
617 CGETS(8, 1, "Unknown switch"));
618 break;
619 }
620
621 didsetty = 1;
622 if (!v || !*v) {
623 int i = -1;
624 int len = 0, st = 0, cu;
625 for (m = modelist; m->m_name; m++) {
626 if (m->m_type != i) {
627 xprintf("%s%s", i != -1 ? "\n" : "",
628 ttylist[z][m->m_type].t_name);
629 i = m->m_type;
630 st = len = strlen(ttylist[z][m->m_type].t_name);
631 }
632
633 x = (ttylist[z][i].t_setmask & m->m_value) ? '+' : '\0';
634 x = (ttylist[z][i].t_clrmask & m->m_value) ? '-' : x;
635
636 if (x != '\0' || aflag) {
637 cu = strlen(m->m_name) + (x != '\0') + 1;
638 if (len + cu >= T_Cols) {
639 xprintf("\n%*s", st, "");
640 len = st + cu;
641 }
642 else
643 len += cu;
644 if (x != '\0')
645 xprintf("%c%s ", x, m->m_name);
646 else
647 xprintf("%s ", m->m_name);
648 }
649 }
650 xputchar('\n');
651 return;
652 }
653 while (v && (s = *v++)) {
654 switch (*s) {
655 case '+':
656 case '-':
657 x = *s++;
658 break;
659 default:
660 x = '\0';
661 break;
662 }
663 d = short2str(s);
664 for (m = modelist; m->m_name; m++)
665 if (strcmp(m->m_name, d) == 0)
666 break;
667 if (!m->m_name)
668 stderror(ERR_NAME | ERR_SYSTEM, d, CGETS(8, 2, "Invalid argument"));
669
670 switch (x) {
671 case '+':
672 ttylist[z][m->m_type].t_setmask |= m->m_value;
673 ttylist[z][m->m_type].t_clrmask &= ~m->m_value;
674 break;
675 case '-':
676 ttylist[z][m->m_type].t_setmask &= ~m->m_value;
677 ttylist[z][m->m_type].t_clrmask |= m->m_value;
678 break;
679 default:
680 ttylist[z][m->m_type].t_setmask &= ~m->m_value;
681 ttylist[z][m->m_type].t_clrmask &= ~m->m_value;
682 break;
683 }
684 }
685} /* end dosetty */
686
687int
688tty_getty(fd, td)
689 int fd;
690 ttydata_t *td;
691{
692#ifdef POSIX
693 RETRY(tcgetattr(fd, &td->d_t));
694#else /* TERMIO || GSTTY */
695# ifdef TERMIO
696 RETRY(ioctl(fd, TCGETA, (ioctl_t) &td->d_t));
697# else /* GSTTY */
698# ifdef TIOCGETP
699 RETRY(ioctl(fd, TIOCGETP, (ioctl_t) &td->d_t));
700# endif /* TIOCGETP */
701# ifdef TIOCGETC
702 RETRY(ioctl(fd, TIOCGETC, (ioctl_t) &td->d_tc));
703# endif /* TIOCGETC */
704# ifdef TIOCGPAGE
705 RETRY(ioctl(fd, TIOCGPAGE, (ioctl_t) &td->d_pc));
706# endif /* TIOCGPAGE */
707# ifdef TIOCLGET
708 RETRY(ioctl(fd, TIOCLGET, (ioctl_t) &td->d_lb));
709# endif /* TIOCLGET */
710# endif /* TERMIO */
711#endif /* POSIX */
712
713#ifdef TIOCGLTC
714 RETRY(ioctl(fd, TIOCGLTC, (ioctl_t) &td->d_ltc));
715#endif /* TIOCGLTC */
716
717 return 0;
718}
719
720int
721tty_setty(fd, td)
722 int fd;
723 ttydata_t *td;
724{
725#ifdef POSIX
726 RETRY(tcsetattr(fd, TCSADRAIN, &td->d_t));
727#else
728# ifdef TERMIO
729 RETRY(ioctl(fd, TCSETAW, (ioctl_t) &td->d_t));
730# else
731# ifdef TIOCSETN
732 RETRY(ioctl(fd, TIOCSETN, (ioctl_t) &td->d_t));
733# endif /* TIOCSETN */
734# ifdef TIOCGETC
735 RETRY(ioctl(fd, TIOCSETC, (ioctl_t) &td->d_tc));
736# endif /* TIOCGETC */
737# ifdef TIOCGPAGE
738 RETRY(ioctl(fd, TIOCSPAGE, (ioctl_t) &td->d_pc));
739# endif /* TIOCGPAGE */
740# ifdef TIOCLGET
741 RETRY(ioctl(fd, TIOCLSET, (ioctl_t) &td->d_lb));
742# endif /* TIOCLGET */
743# endif /* TERMIO */
744#endif /* POSIX */
745
746#ifdef TIOCGLTC
747 RETRY(ioctl(fd, TIOCSLTC, (ioctl_t) &td->d_ltc));
748#endif /* TIOCGLTC */
749
750 return 0;
751}
752
753void
754tty_getchar(td, s)
755 ttydata_t *td;
756 unsigned char *s;
757{
758#ifdef TIOCGLTC
759 {
760 struct ltchars *n = &td->d_ltc;
761
762 s[C_SUSP] = n->t_suspc;
763 s[C_DSUSP] = n->t_dsuspc;
764 s[C_REPRINT] = n->t_rprntc;
765 s[C_DISCARD] = n->t_flushc;
766 s[C_WERASE] = n->t_werasc;
767 s[C_LNEXT] = n->t_lnextc;
768 }
769#endif /* TIOCGLTC */
770
771#if defined(POSIX) || defined(TERMIO)
772 {
773# ifdef POSIX
774 struct termios *n = &td->d_t;
775# else
776 struct termio *n = &td->d_t;
777# endif /* POSIX */
778
779# ifdef VINTR
780 s[C_INTR] = n->c_cc[VINTR];
781# endif /* VINTR */
782# ifdef VQUIT
783 s[C_QUIT] = n->c_cc[VQUIT];
784# endif /* VQUIT */
785# ifdef VERASE
786 s[C_ERASE] = n->c_cc[VERASE];
787# endif /* VERASE */
788# ifdef VKILL
789 s[C_KILL] = n->c_cc[VKILL];
790# endif /* VKILL */
791# ifdef VEOF
792 s[C_EOF] = n->c_cc[VEOF];
793# endif /* VEOF */
794# ifdef VEOL
795 s[C_EOL] = n->c_cc[VEOL];
796# endif /* VEOL */
797# ifdef VEOL2
798 s[C_EOL2] = n->c_cc[VEOL2];
799# endif /* VEOL2 */
800# ifdef VSWTCH
801 s[C_SWTCH] = n->c_cc[VSWTCH];
802# endif /* VSWTCH */
803# ifdef VDSWTCH
804 s[C_DSWTCH] = n->c_cc[VDSWTCH];
805# endif /* VDSWTCH */
806# ifdef VERASE2
807 s[C_ERASE2] = n->c_cc[VERASE2];
808# endif /* VERASE2 */
809# ifdef VSTART
810 s[C_START] = n->c_cc[VSTART];
811# endif /* VSTART */
812# ifdef VSTOP
813 s[C_STOP] = n->c_cc[VSTOP];
814# endif /* VSTOP */
815# ifdef VWERASE
816 s[C_WERASE] = n->c_cc[VWERASE];
817# endif /* VWERASE */
818# ifdef VSUSP
819 s[C_SUSP] = n->c_cc[VSUSP];
820# endif /* VSUSP */
821# ifdef VDSUSP
822 s[C_DSUSP] = n->c_cc[VDSUSP];
823# endif /* VDSUSP */
824# ifdef VREPRINT
825 s[C_REPRINT] = n->c_cc[VREPRINT];
826# endif /* WREPRINT */
827# ifdef VDISCARD
828 s[C_DISCARD] = n->c_cc[VDISCARD];
829# endif /* VDISCARD */
830# ifdef VLNEXT
831 s[C_LNEXT] = n->c_cc[VLNEXT];
832# endif /* VLNEXT */
833# ifdef VSTATUS
834 s[C_STATUS] = n->c_cc[VSTATUS];
835# endif /* VSTATUS */
836# ifdef VPAGE
837 s[C_PAGE] = n->c_cc[VPAGE];
838# endif /* VPAGE */
839# ifdef VPGOFF
840 s[C_PGOFF] = n->c_cc[VPGOFF];
841# endif /* VPGOFF */
842# ifdef VKILL2
843 s[C_KILL2] = n->c_cc[VKILL2];
844# endif /* KILL2 */
845# ifdef VMIN
846 s[C_MIN] = n->c_cc[VMIN];
847# endif /* VMIN */
848# ifdef VTIME
849 s[C_TIME] = n->c_cc[VTIME];
850# endif /* VTIME */
851 }
852
853#else /* SGTTY */
854
855# ifdef TIOCGPAGE
856 {
857 struct ttypagestat *n = &td->d_pc;
858
859 s[C_STATUS] = n->tps_statc;
860 s[C_PAGE] = n->tps_pagec;
861 s[C_PGOFF] = n->tps_pgoffc;
862 }
863# endif /* TIOCGPAGE */
864
865# ifdef TIOCGETC
866 {
867 struct tchars *n = &td->d_tc;
868
869 s[C_INTR] = n->t_intrc;
870 s[C_QUIT] = n->t_quitc;
871 s[C_START] = n->t_startc;
872 s[C_STOP] = n->t_stopc;
873 s[C_EOF] = n->t_eofc;
874 s[C_BRK] = n->t_brkc;
875 }
876# endif /* TIOCGETC */
877
878# ifdef TIOCGETP
879 {
880 struct sgttyb *n = &td->d_t;
881
882 s[C_ERASE] = n->sg_erase;
883 s[C_KILL] = n->sg_kill;
884 }
885# endif /* TIOCGETP */
886#endif /* !POSIX || TERMIO */
887
888} /* tty_getchar */
889
890
891void
892tty_setchar(td, s)
893 ttydata_t *td;
894 unsigned char *s;
895{
896#ifdef TIOCGLTC
897 {
898 struct ltchars *n = &td->d_ltc;
899
900 n->t_suspc = s[C_SUSP];
901 n->t_dsuspc = s[C_DSUSP];
902 n->t_rprntc = s[C_REPRINT];
903 n->t_flushc = s[C_DISCARD];
904 n->t_werasc = s[C_WERASE];
905 n->t_lnextc = s[C_LNEXT];
906 }
907#endif /* TIOCGLTC */
908
909#if defined(POSIX) || defined(TERMIO)
910 {
911# ifdef POSIX
912 struct termios *n = &td->d_t;
913# else
914 struct termio *n = &td->d_t;
915# endif /* POSIX */
916
917# ifdef VINTR
918 n->c_cc[VINTR] = s[C_INTR];
919# endif /* VINTR */
920# ifdef VQUIT
921 n->c_cc[VQUIT] = s[C_QUIT];
922# endif /* VQUIT */
923# ifdef VERASE
924 n->c_cc[VERASE] = s[C_ERASE];
925# endif /* VERASE */
926# ifdef VKILL
927 n->c_cc[VKILL] = s[C_KILL];
928# endif /* VKILL */
929# ifdef VEOF
930 n->c_cc[VEOF] = s[C_EOF];
931# endif /* VEOF */
932# ifdef VEOL
933 n->c_cc[VEOL] = s[C_EOL];
934# endif /* VEOL */
935# ifdef VEOL2
936 n->c_cc[VEOL2] = s[C_EOL2];
937# endif /* VEOL2 */
938# ifdef VSWTCH
939 n->c_cc[VSWTCH] = s[C_SWTCH];
940# endif /* VSWTCH */
941# ifdef VDSWTCH
942 n->c_cc[VDSWTCH] = s[C_DSWTCH];
943# endif /* VDSWTCH */
944# ifdef VERASE2
945 n->c_cc[VERASE2] = s[C_ERASE2];
946# endif /* VERASE2 */
947# ifdef VSTART
948 n->c_cc[VSTART] = s[C_START];
949# endif /* VSTART */
950# ifdef VSTOP
951 n->c_cc[VSTOP] = s[C_STOP];
952# endif /* VSTOP */
953# ifdef VWERASE
954 n->c_cc[VWERASE] = s[C_WERASE];
955# endif /* VWERASE */
956# ifdef VSUSP
957 n->c_cc[VSUSP] = s[C_SUSP];
958# endif /* VSUSP */
959# ifdef VDSUSP
960 n->c_cc[VDSUSP] = s[C_DSUSP];
961# endif /* VDSUSP */
962# ifdef VREPRINT
963 n->c_cc[VREPRINT] = s[C_REPRINT];
964# endif /* WREPRINT */
965# ifdef VDISCARD
966 n->c_cc[VDISCARD] = s[C_DISCARD];
967# endif /* VDISCARD */
968# ifdef VLNEXT
969 n->c_cc[VLNEXT] = s[C_LNEXT];
970# endif /* VLNEXT */
971# ifdef VSTATUS
972 n->c_cc[VSTATUS] = s[C_STATUS];
973# endif /* VSTATUS */
974# ifdef VPAGE
975 n->c_cc[VPAGE] = s[C_PAGE];
976# endif /* VPAGE */
977# ifdef VPGOFF
978 n->c_cc[VPGOFF] = s[C_PGOFF];
979# endif /* VPGOFF */
980# ifdef VKILL2
981 n->c_cc[VKILL2] = s[C_KILL2];
982# endif /* VKILL2 */
983# ifdef VMIN
984 n->c_cc[VMIN] = s[C_MIN];
985# endif /* VMIN */
986# ifdef VTIME
987 n->c_cc[VTIME] = s[C_TIME];
988# endif /* VTIME */
989 }
990
991#else /* GSTTY */
992
993# ifdef TIOCGPAGE
994 {
995 struct ttypagestat *n = &td->d_pc;
996
997 n->tps_length = 0;
998 n->tps_lpos = 0;
999 n->tps_statc = s[C_STATUS];
1000 n->tps_pagec = s[C_PAGE];
1001 n->tps_pgoffc = s[C_PGOFF];
1002 n->tps_flag = 0;
1003 }
1004# endif /* TIOCGPAGE */
1005
1006# ifdef TIOCGETC
1007 {
1008 struct tchars *n = &td->d_tc;
1009 n->t_intrc = s[C_INTR];
1010 n->t_quitc = s[C_QUIT];
1011 n->t_startc = s[C_START];
1012 n->t_stopc = s[C_STOP];
1013 n->t_eofc = s[C_EOF];
1014 n->t_brkc = s[C_BRK];
1015 }
1016# endif /* TIOCGETC */
1017
1018# ifdef TIOCGETP
1019 {
1020 struct sgttyb *n = &td->d_t;
1021
1022 n->sg_erase = s[C_ERASE];
1023 n->sg_kill = s[C_KILL];
1024 }
1025# endif /* TIOCGETP */
1026#endif /* !POSIX || TERMIO */
1027
1028} /* tty_setchar */
1029
1030speed_t
1031tty_getspeed(td)
1032 ttydata_t *td;
1033{
1034 speed_t spd;
1035
1036#ifdef POSIX
1037 if ((spd = cfgetispeed(&td->d_t)) == 0)
1038 spd = cfgetospeed(&td->d_t);
1039#else /* ! POSIX */
1040# ifdef TERMIO
1041# ifdef CBAUD
1042 spd = td->d_t.c_cflag & CBAUD;
1043# else
1044 spd = 0;
1045# endif
1046# else /* SGTTY */
1047 spd = td->d_t.sg_ispeed;
1048# endif /* TERMIO */
1049#endif /* POSIX */
1050
1051 return spd;
1052} /* end tty_getspeed */
1053
1054int
1055tty_gettabs(td)
1056 ttydata_t *td;
1057{
1058#if defined(POSIX) || defined(TERMIO)
1059 return ((td->d_t.c_oflag & TAB3) == TAB3) ? 0 : 1;
1060#else /* SGTTY */
1061 return (td->d_t.sg_flags & XTABS) == XTABS ? 0 : 1;
1062#endif /* POSIX || TERMIO */
1063} /* end tty_gettabs */
1064
1065int
1066tty_geteightbit(td)
1067 ttydata_t *td;
1068{
1069#if defined(POSIX) || defined(TERMIO)
1070 return (td->d_t.c_cflag & CSIZE) == CS8;
1071#else /* SGTTY */
1072 return td->d_lb & (LPASS8 | LLITOUT);
1073#endif /* POSIX || TERMIO */
1074} /* end tty_geteightbit */
1075
1076int
1077tty_cooked_mode(td)
1078 ttydata_t *td;
1079{
1080#if defined(POSIX) || defined(TERMIO)
1081 return (td->d_t.c_lflag & ICANON);
1082#else /* SGTTY */
1083 return !(td->d_t.sg_flags & (RAW | CBREAK));
1084#endif /* POSIX || TERMIO */
1085} /* end tty_cooked_mode */
1086
1087#ifdef _IBMR2
1088void
1089tty_setdisc(fd, dis)
1090 int fd;
1091 int dis;
1092{
1093 static bool edit_discipline = 0;
1094 static union txname tx_disc;
1095 extern char strPOSIX[];
1096
1097 switch (dis) {
1098 case EX_IO:
1099 if (edit_discipline) {
1100 if (ioctl(fd, TXSETLD, (ioctl_t) & tx_disc) == -1)
1101 return;
1102 edit_discipline = 0;
1103 }
1104 return;
1105
1106 case ED_IO:
1107 tx_disc.tx_which = 0;
1108 if (ioctl(fd, TXGETLD, (ioctl_t) & tx_disc) == -1)
1109 return;
1110 if (strcmp(tx_disc.tx_name, strPOSIX) != 0) {
1111 edit_discipline = 1;
1112 if (ioctl(fd, TXSETLD, (ioctl_t) strPOSIX) == -1)
1113 return;
1114 }
1115 return;
1116
1117 default:
1118 return;
1119 }
1120} /* end tty_setdisc */
1121#endif /* _IBMR2 */
1122
1123#ifdef DEBUG_TTY
1124static void
1125tty_printchar(s)
1126 unsigned char *s;
1127{
1128 struct tcshmodes *m;
1129 int i;
1130
1131 for (i = 0; i < C_NCC; i++) {
1132 for (m = modelist; m->m_name; m++)
1133 if (m->m_type == M_CHAR && C_SH(i) == m->m_value)
1134 break;
1135 if (m->m_name)
1136 xprintf("%s ^%c ", m->m_name, s[i] + 'A' - 1);
1137 if (i % 5 == 0)
1138 xputchar('\n');
1139 }
1140 xputchar('\n');
1141}
1142#endif /* DEBUG_TTY */
1143#else /* WINNT_NATIVE */
1144int
1145tty_cooked_mode(td)
1146 void *td;
1147{
1148 return do_nt_check_cooked_mode();
1149}
1150#endif /* !WINNT_NATIVE */
2/*
3 * ed.term.c: Low level terminal interface
4 */
5/*-
6 * Copyright (c) 1980, 1991 The Regents of the University of California.
7 * All rights reserved.
8 *
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
11 * are met:
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 * 3. All advertising materials mentioning features or use of this software
18 * must display the following acknowledgement:
19 * This product includes software developed by the University of
20 * California, Berkeley and its contributors.
21 * 4. Neither the name of the University nor the names of its contributors
22 * may be used to endorse or promote products derived from this software
23 * without specific prior written permission.
24 *
25 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
26 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
28 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
29 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
30 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
31 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
32 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
33 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
34 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 * SUCH DAMAGE.
36 */
37#include "sh.h"
38#ifndef WINNT_NATIVE
39
40RCSID("$Id: ed.term.c,v 1.25 2000/11/11 23:03:34 christos Exp $")
41
42#include "ed.h"
43#include "ed.term.h"
44
45int didsetty = 0;
46ttyperm_t ttylist = {
47 {
48#if defined(POSIX) || defined(TERMIO)
49 { "iflag:", ICRNL, (INLCR|IGNCR) },
50 { "oflag:", (OPOST|ONLCR), ONLRET },
51 { "cflag:", 0, 0 },
52 { "lflag:", (ISIG|ICANON|ECHO|ECHOE|ECHOCTL|IEXTEN),
53 (NOFLSH|ECHONL|EXTPROC|FLUSHO|IDEFAULT) },
54#else /* GSTTY */
55 { "nrmal:", (ECHO|CRMOD|ANYP), (CBREAK|RAW|LCASE|VTDELAY|ALLDELAY) },
56 { "local:", (LCRTBS|LCRTERA|LCRTKIL), (LPRTERA|LFLUSHO) },
57#endif /* POSIX || TERMIO */
58 { "chars:", 0, 0 },
59 },
60 {
61#if defined(POSIX) || defined(TERMIO)
62 { "iflag:", (INLCR|ICRNL), IGNCR },
63 { "oflag:", (OPOST|ONLCR), ONLRET },
64 { "cflag:", 0, 0 },
65 { "lflag:", ISIG,
66 (NOFLSH|ICANON|ECHO|ECHOK|ECHONL|EXTPROC|IEXTEN|FLUSHO|
67 IDEFAULT) },
68#else /* GSTTY */
69 { "nrmal:", (CBREAK|CRMOD|ANYP), (RAW|ECHO|LCASE|VTDELAY|ALLDELAY) },
70 { "local:", (LCRTBS|LCRTERA|LCRTKIL), (LPRTERA|LFLUSHO) },
71#endif /* POSIX || TERMIO */
72 { "chars:", (C_SH(C_MIN)|C_SH(C_TIME)|C_SH(C_SWTCH)|C_SH(C_DSWTCH)|
73 C_SH(C_WERASE)|C_SH(C_REPRINT)|C_SH(C_SUSP)|C_SH(C_DSUSP)|
74 C_SH(C_EOF)|C_SH(C_EOL)|C_SH(C_DISCARD)|C_SH(C_PGOFF)|
75 C_SH(C_KILL2)|C_SH(C_PAGE)|C_SH(C_STATUS)|C_SH(C_LNEXT)),
76 0 }
77 },
78 {
79#if defined(POSIX) || defined(TERMIO)
80 { "iflag:", 0, IXON | IXOFF },
81 { "oflag:", 0, 0 },
82 { "cflag:", 0, 0 },
83 { "lflag:", 0, ISIG | IEXTEN },
84#else /* GSTTY */
85 { "nrmal:", RAW, CBREAK },
86 { "local:", 0, 0 },
87#endif /* POSIX || TERMIO */
88 { "chars:", 0, 0 },
89 }
90};
91
92static struct tcshmodes {
93 char *m_name;
94#ifdef SOLARIS2
95 unsigned long m_value;
96#else /* !SOLARIS2 */
97 int m_value;
98#endif /* SOLARIS2 */
99 int m_type;
100} modelist[] = {
101#if defined(POSIX) || defined(TERMIO)
102
103# ifdef IGNBRK
104 { "ignbrk", IGNBRK, M_INPUT },
105# endif /* IGNBRK */
106# ifdef BRKINT
107 { "brkint", BRKINT, M_INPUT },
108# endif /* BRKINT */
109# ifdef IGNPAR
110 { "ignpar", IGNPAR, M_INPUT },
111# endif /* IGNPAR */
112# ifdef PARMRK
113 { "parmrk", PARMRK, M_INPUT },
114# endif /* PARMRK */
115# ifdef INPCK
116 { "inpck", INPCK, M_INPUT },
117# endif /* INPCK */
118# ifdef ISTRIP
119 { "istrip", ISTRIP, M_INPUT },
120# endif /* ISTRIP */
121# ifdef INLCR
122 { "inlcr", INLCR, M_INPUT },
123# endif /* INLCR */
124# ifdef IGNCR
125 { "igncr", IGNCR, M_INPUT },
126# endif /* IGNCR */
127# ifdef ICRNL
128 { "icrnl", ICRNL, M_INPUT },
129# endif /* ICRNL */
130# ifdef IUCLC
131 { "iuclc", IUCLC, M_INPUT },
132# endif /* IUCLC */
133# ifdef IXON
134 { "ixon", IXON, M_INPUT },
135# endif /* IXON */
136# ifdef IXANY
137 { "ixany", IXANY, M_INPUT },
138# endif /* IXANY */
139# ifdef IXOFF
140 { "ixoff", IXOFF, M_INPUT },
141# endif /* IXOFF */
142# ifdef IMAXBEL
143 { "imaxbel",IMAXBEL,M_INPUT },
144# endif /* IMAXBEL */
145# ifdef IDELETE
146 { "idelete",IDELETE,M_INPUT },
147# endif /* IDELETE */
148
149# ifdef OPOST
150 { "opost", OPOST, M_OUTPUT },
151# endif /* OPOST */
152# ifdef OLCUC
153 { "olcuc", OLCUC, M_OUTPUT },
154# endif /* OLCUC */
155# ifdef ONLCR
156 { "onlcr", ONLCR, M_OUTPUT },
157# endif /* ONLCR */
158# ifdef OCRNL
159 { "ocrnl", OCRNL, M_OUTPUT },
160# endif /* OCRNL */
161# ifdef ONOCR
162 { "onocr", ONOCR, M_OUTPUT },
163# endif /* ONOCR */
164# ifdef ONOEOT
165 { "onoeot", ONOEOT, M_OUTPUT },
166# endif /* ONOEOT */
167# ifdef ONLRET
168 { "onlret", ONLRET, M_OUTPUT },
169# endif /* ONLRET */
170# ifdef OFILL
171 { "ofill", OFILL, M_OUTPUT },
172# endif /* OFILL */
173# ifdef OFDEL
174 { "ofdel", OFDEL, M_OUTPUT },
175# endif /* OFDEL */
176# ifdef NLDLY
177 { "nldly", NLDLY, M_OUTPUT },
178# endif /* NLDLY */
179# ifdef CRDLY
180 { "crdly", CRDLY, M_OUTPUT },
181# endif /* CRDLY */
182# ifdef TABDLY
183 { "tabdly", TABDLY, M_OUTPUT },
184# endif /* TABDLY */
185# ifdef XTABS
186 { "xtabs", XTABS, M_OUTPUT },
187# endif /* XTABS */
188# ifdef BSDLY
189 { "bsdly", BSDLY, M_OUTPUT },
190# endif /* BSDLY */
191# ifdef VTDLY
192 { "vtdly", VTDLY, M_OUTPUT },
193# endif /* VTDLY */
194# ifdef FFDLY
195 { "ffdly", FFDLY, M_OUTPUT },
196# endif /* FFDLY */
197# ifdef PAGEOUT
198 { "pageout",PAGEOUT,M_OUTPUT },
199# endif /* PAGEOUT */
200# ifdef WRAP
201 { "wrap", WRAP, M_OUTPUT },
202# endif /* WRAP */
203
204# ifdef CIGNORE
205 { "cignore",CIGNORE,M_CONTROL },
206# endif /* CBAUD */
207# ifdef CBAUD
208 { "cbaud", CBAUD, M_CONTROL },
209# endif /* CBAUD */
210# ifdef CSTOPB
211 { "cstopb", CSTOPB, M_CONTROL },
212# endif /* CSTOPB */
213# ifdef CREAD
214 { "cread", CREAD, M_CONTROL },
215# endif /* CREAD */
216# ifdef PARENB
217 { "parenb", PARENB, M_CONTROL },
218# endif /* PARENB */
219# ifdef PARODD
220 { "parodd", PARODD, M_CONTROL },
221# endif /* PARODD */
222# ifdef HUPCL
223 { "hupcl", HUPCL, M_CONTROL },
224# endif /* HUPCL */
225# ifdef CLOCAL
226 { "clocal", CLOCAL, M_CONTROL },
227# endif /* CLOCAL */
228# ifdef LOBLK
229 { "loblk", LOBLK, M_CONTROL },
230# endif /* LOBLK */
231# ifdef CIBAUD
232 { "cibaud", CIBAUD, M_CONTROL },
233# endif /* CIBAUD */
234# ifdef CRTSCTS
235# ifdef CCTS_OFLOW
236 { "ccts_oflow",CCTS_OFLOW,M_CONTROL },
237# else
238 { "crtscts",CRTSCTS,M_CONTROL },
239# endif /* CCTS_OFLOW */
240# endif /* CRTSCTS */
241# ifdef CRTS_IFLOW
242 { "crts_iflow",CRTS_IFLOW,M_CONTROL },
243# endif /* CRTS_IFLOW */
244# ifdef MDMBUF
245 { "mdmbuf", MDMBUF, M_CONTROL },
246# endif /* MDMBUF */
247# ifdef RCV1EN
248 { "rcv1en", RCV1EN, M_CONTROL },
249# endif /* RCV1EN */
250# ifdef XMT1EN
251 { "xmt1en", XMT1EN, M_CONTROL },
252# endif /* XMT1EN */
253
254# ifdef ISIG
255 { "isig", ISIG, M_LINED },
256# endif /* ISIG */
257# ifdef ICANON
258 { "icanon", ICANON, M_LINED },
259# endif /* ICANON */
260# ifdef XCASE
261 { "xcase", XCASE, M_LINED },
262# endif /* XCASE */
263# ifdef ECHO
264 { "echo", ECHO, M_LINED },
265# endif /* ECHO */
266# ifdef ECHOE
267 { "echoe", ECHOE, M_LINED },
268# endif /* ECHOE */
269# ifdef ECHOK
270 { "echok", ECHOK, M_LINED },
271# endif /* ECHOK */
272# ifdef ECHONL
273 { "echonl", ECHONL, M_LINED },
274# endif /* ECHONL */
275# ifdef NOFLSH
276 { "noflsh", NOFLSH, M_LINED },
277# endif /* NOFLSH */
278# ifdef TOSTOP
279 { "tostop", TOSTOP, M_LINED },
280# endif /* TOSTOP */
281# ifdef ECHOCTL
282 { "echoctl",ECHOCTL,M_LINED },
283# endif /* ECHOCTL */
284# ifdef ECHOPRT
285 { "echoprt",ECHOPRT,M_LINED },
286# endif /* ECHOPRT */
287# ifdef ECHOKE
288 { "echoke", ECHOKE, M_LINED },
289# endif /* ECHOKE */
290# ifdef DEFECHO
291 { "defecho",DEFECHO,M_LINED },
292# endif /* DEFECHO */
293# ifdef FLUSHO
294 { "flusho", FLUSHO, M_LINED },
295# endif /* FLUSHO */
296# ifdef PENDIN
297 { "pendin", PENDIN, M_LINED },
298# endif /* PENDIN */
299# ifdef IEXTEN
300 { "iexten", IEXTEN, M_LINED },
301# endif /* IEXTEN */
302# ifdef NOKERNINFO
303 { "nokerninfo",NOKERNINFO,M_LINED },
304# endif /* NOKERNINFO */
305# ifdef ALTWERASE
306 { "altwerase",ALTWERASE,M_LINED },
307# endif /* ALTWERASE */
308# ifdef EXTPROC
309 { "extproc",EXTPROC,M_LINED },
310# endif /* EXTPROC */
311# ifdef IDEFAULT
312 { "idefault",IDEFAULT,M_LINED },
313# endif /* IDEFAULT */
314
315#else /* GSTTY */
316
317# ifdef TANDEM
318 { "tandem", TANDEM, M_CONTROL },
319# endif /* TANDEM */
320# ifdef CBREAK
321 { "cbreak", CBREAK, M_CONTROL },
322# endif /* CBREAK */
323# ifdef LCASE
324 { "lcase", LCASE, M_CONTROL },
325# endif /* LCASE */
326# ifdef ECHO
327 { "echo", ECHO, M_CONTROL },
328# endif /* ECHO */
329# ifdef CRMOD
330 { "crmod", CRMOD, M_CONTROL },
331# endif /* CRMOD */
332# ifdef RAW
333 { "raw", RAW, M_CONTROL },
334# endif /* RAW */
335# ifdef ODDP
336 { "oddp", ODDP, M_CONTROL },
337# endif /* ODDP */
338# ifdef EVENP
339 { "evenp", EVENP, M_CONTROL },
340# endif /* EVENP */
341# ifdef ANYP
342 { "anyp", ANYP, M_CONTROL },
343# endif /* ANYP */
344# ifdef NLDELAY
345 { "nldelay",NLDELAY,M_CONTROL },
346# endif /* NLDELAY */
347# ifdef TBDELAY
348 { "tbdelay",TBDELAY,M_CONTROL },
349# endif /* TBDELAY */
350# ifdef XTABS
351 { "xtabs", XTABS, M_CONTROL },
352# endif /* XTABS */
353# ifdef CRDELAY
354 { "crdelay",CRDELAY,M_CONTROL },
355# endif /* CRDELAY */
356# ifdef VTDELAY
357 { "vtdelay",VTDELAY,M_CONTROL },
358# endif /* VTDELAY */
359# ifdef BSDELAY
360 { "bsdelay",BSDELAY,M_CONTROL },
361# endif /* BSDELAY */
362# ifdef CRTBS
363 { "crtbs", CRTBS, M_CONTROL },
364# endif /* CRTBS */
365# ifdef PRTERA
366 { "prtera", PRTERA, M_CONTROL },
367# endif /* PRTERA */
368# ifdef CRTERA
369 { "crtera", CRTERA, M_CONTROL },
370# endif /* CRTERA */
371# ifdef TILDE
372 { "tilde", TILDE, M_CONTROL },
373# endif /* TILDE */
374# ifdef MDMBUF
375 { "mdmbuf", MDMBUF, M_CONTROL },
376# endif /* MDMBUF */
377# ifdef LITOUT
378 { "litout", LITOUT, M_CONTROL },
379# endif /* LITOUT */
380# ifdef TOSTOP
381 { "tostop", TOSTOP, M_CONTROL },
382# endif /* TOSTOP */
383# ifdef FLUSHO
384 { "flusho", FLUSHO, M_CONTROL },
385# endif /* FLUSHO */
386# ifdef NOHANG
387 { "nohang", NOHANG, M_CONTROL },
388# endif /* NOHANG */
389# ifdef L001000
390 { "l001000",L001000,M_CONTROL },
391# endif /* L001000 */
392# ifdef CRTKIL
393 { "crtkil", CRTKIL, M_CONTROL },
394# endif /* CRTKIL */
395# ifdef PASS8
396 { "pass8", PASS8, M_CONTROL },
397# endif /* PASS8 */
398# ifdef CTLECH
399 { "ctlech", CTLECH, M_CONTROL },
400# endif /* CTLECH */
401# ifdef PENDIN
402 { "pendin", PENDIN, M_CONTROL },
403# endif /* PENDIN */
404# ifdef DECCTQ
405 { "decctq", DECCTQ, M_CONTROL },
406# endif /* DECCTQ */
407# ifdef NOFLSH
408 { "noflsh", NOFLSH, M_CONTROL },
409# endif /* NOFLSH */
410
411# ifdef LCRTBS
412 { "lcrtbs", LCRTBS, M_LOCAL },
413# endif /* LCRTBS */
414# ifdef LPRTERA
415 { "lprtera",LPRTERA,M_LOCAL },
416# endif /* LPRTERA */
417# ifdef LCRTERA
418 { "lcrtera",LCRTERA,M_LOCAL },
419# endif /* LCRTERA */
420# ifdef LTILDE
421 { "ltilde", LTILDE, M_LOCAL },
422# endif /* LTILDE */
423# ifdef LMDMBUF
424 { "lmdmbuf",LMDMBUF,M_LOCAL },
425# endif /* LMDMBUF */
426# ifdef LLITOUT
427 { "llitout",LLITOUT,M_LOCAL },
428# endif /* LLITOUT */
429# ifdef LTOSTOP
430 { "ltostop",LTOSTOP,M_LOCAL },
431# endif /* LTOSTOP */
432# ifdef LFLUSHO
433 { "lflusho",LFLUSHO,M_LOCAL },
434# endif /* LFLUSHO */
435# ifdef LNOHANG
436 { "lnohang",LNOHANG,M_LOCAL },
437# endif /* LNOHANG */
438# ifdef LCRTKIL
439 { "lcrtkil",LCRTKIL,M_LOCAL },
440# endif /* LCRTKIL */
441# ifdef LPASS8
442 { "lpass8", LPASS8, M_LOCAL },
443# endif /* LPASS8 */
444# ifdef LCTLECH
445 { "lctlech",LCTLECH,M_LOCAL },
446# endif /* LCTLECH */
447# ifdef LPENDIN
448 { "lpendin",LPENDIN,M_LOCAL },
449# endif /* LPENDIN */
450# ifdef LDECCTQ
451 { "ldecctq",LDECCTQ,M_LOCAL },
452# endif /* LDECCTQ */
453# ifdef LNOFLSH
454 { "lnoflsh",LNOFLSH,M_LOCAL },
455# endif /* LNOFLSH */
456
457#endif /* POSIX || TERMIO */
458# if defined(VINTR) || defined(TIOCGETC)
459 { "intr", C_SH(C_INTR), M_CHAR },
460# endif /* VINTR */
461# if defined(VQUIT) || defined(TIOCGETC)
462 { "quit", C_SH(C_QUIT), M_CHAR },
463# endif /* VQUIT */
464# if defined(VERASE) || defined(TIOCGETP)
465 { "erase", C_SH(C_ERASE), M_CHAR },
466# endif /* VERASE */
467# if defined(VKILL) || defined(TIOCGETP)
468 { "kill", C_SH(C_KILL), M_CHAR },
469# endif /* VKILL */
470# if defined(VEOF) || defined(TIOCGETC)
471 { "eof", C_SH(C_EOF), M_CHAR },
472# endif /* VEOF */
473# if defined(VEOL)
474 { "eol", C_SH(C_EOL), M_CHAR },
475# endif /* VEOL */
476# if defined(VEOL2)
477 { "eol2", C_SH(C_EOL2), M_CHAR },
478# endif /* VEOL2 */
479# if defined(VSWTCH)
480 { "swtch", C_SH(C_SWTCH), M_CHAR },
481# endif /* VSWTCH */
482# if defined(VDSWTCH)
483 { "dswtch", C_SH(C_DSWTCH), M_CHAR },
484# endif /* VDSWTCH */
485# if defined(VERASE2)
486 { "erase2", C_SH(C_ERASE2), M_CHAR },
487# endif /* VERASE2 */
488# if defined(VSTART) || defined(TIOCGETC)
489 { "start", C_SH(C_START), M_CHAR },
490# endif /* VSTART */
491# if defined(VSTOP) || defined(TIOCGETC)
492 { "stop", C_SH(C_STOP), M_CHAR },
493# endif /* VSTOP */
494# if defined(VWERASE) || defined(TIOCGLTC)
495 { "werase", C_SH(C_WERASE), M_CHAR },
496# endif /* VWERASE */
497# if defined(VSUSP) || defined(TIOCGLTC)
498 { "susp", C_SH(C_SUSP), M_CHAR },
499# endif /* VSUSP */
500# if defined(VDSUSP) || defined(TIOCGLTC)
501 { "dsusp", C_SH(C_DSUSP), M_CHAR },
502# endif /* VDSUSP */
503# if defined(VREPRINT) || defined(TIOCGLTC)
504 { "reprint", C_SH(C_REPRINT),M_CHAR },
505# endif /* WREPRINT */
506# if defined(VDISCARD) || defined(TIOCGLTC)
507 { "discard", C_SH(C_DISCARD),M_CHAR },
508# endif /* VDISCARD */
509# if defined(VLNEXT) || defined(TIOCGLTC)
510 { "lnext", C_SH(C_LNEXT), M_CHAR },
511# endif /* VLNEXT */
512# if defined(VSTATUS) || defined(TIOCGPAGE)
513 { "status", C_SH(C_STATUS), M_CHAR },
514# endif /* VSTATUS */
515# if defined(VPAGE) || defined(TIOCGPAGE)
516 { "page", C_SH(C_PAGE), M_CHAR },
517# endif /* VPAGE */
518# if defined(VPGOFF) || defined(TIOCGPAGE)
519 { "pgoff", C_SH(C_PGOFF), M_CHAR },
520# endif /* VPGOFF */
521# if defined(VKILL2)
522 { "kill2", C_SH(C_KILL2), M_CHAR },
523# endif /* VKILL2 */
524# if defined(VBRK) || defined(TIOCGETC)
525 { "brk", C_SH(C_BRK), M_CHAR },
526# endif /* VBRK */
527# if defined(VMIN)
528 { "min", C_SH(C_MIN), M_CHAR },
529# endif /* VMIN */
530# if defined(VTIME)
531 { "time", C_SH(C_TIME), M_CHAR },
532# endif /* VTIME */
533 { NULL, 0, -1 },
534};
535
536/*
537 * If EAGAIN and/or EWOULDBLOCK are defined, we can't just return -1 in all
538 * situations where ioctl() does.
539 *
540 * On AIX 4.1.5 (and presumably some other versions and OSes), as you
541 * perform the manual test suite in the README, if you 'bg' vi immediately
542 * after suspending it, all is well, but if you wait a few seconds,
543 * usually ioctl() will return -1, which previously caused tty_setty() to
544 * return -1, causing Rawmode() to return -1, causing Inputl() to return
545 * 0, causing bgetc() to return -1, causing readc() to set doneinp to 1,
546 * causing process() to break out of the main loop, causing tcsh to exit
547 * prematurely.
548 *
549 * If ioctl()'s errno is EAGAIN/EWOULDBLOCK ("Resource temporarily
550 * unavailable"), apparently the tty is being messed with by the OS and we
551 * need to try again. In my testing, ioctl() was never called more than
552 * twice in a row.
553 *
554 * -- Dan Harkless <dan@wave.eng.uci.edu>
555 *
556 * So, I retry all ioctl's in case others happen to fail too (christos)
557 */
558
559#if defined(EAGAIN) && defined(EWOULDBLOCK) && (EWOULDBLOCK != EAGAIN)
560# define OKERROR(e) (((e) == EAGAIN) || ((e) == EWOULDBLOCK) || ((e) == EINTR))
561#elif defined(EGAIN)
562# define OKERROR(e) (((e) == EAGAIN) || ((e) == EINTR))
563#elif defined(EWOULDBLOCK)
564# define OKERROR(e) (((e) == EWOULDBLOCK) || ((e) == EINTR))
565#else
566# define OKERROR(e) ((e) == EINTR)
567#endif
568
569/* Retry a system call */
570#define RETRY(x) \
571 for (;;) \
572 if ((x) == -1) { \
573 if (OKERROR(errno)) \
574 continue; \
575 else \
576 return -1; \
577 } \
578 else \
579 break \
580
581/*ARGSUSED*/
582void
583dosetty(v, t)
584 Char **v;
585 struct command *t;
586{
587 struct tcshmodes *m;
588 char x, *d;
589 int aflag = 0;
590 Char *s;
591 int z = EX_IO;
592 char cmdname[BUFSIZE];
593
594 USE(t);
595 setname(strcpy(cmdname, short2str(*v++)));
596
597 while (v && *v && v[0][0] == '-' && v[0][2] == '\0')
598 switch (v[0][1]) {
599 case 'a':
600 aflag++;
601 v++;
602 break;
603 case 'd':
604 v++;
605 z = ED_IO;
606 break;
607 case 'x':
608 v++;
609 z = EX_IO;
610 break;
611 case 'q':
612 v++;
613 z = QU_IO;
614 break;
615 default:
616 stderror(ERR_NAME | ERR_SYSTEM, short2str(v[0]),
617 CGETS(8, 1, "Unknown switch"));
618 break;
619 }
620
621 didsetty = 1;
622 if (!v || !*v) {
623 int i = -1;
624 int len = 0, st = 0, cu;
625 for (m = modelist; m->m_name; m++) {
626 if (m->m_type != i) {
627 xprintf("%s%s", i != -1 ? "\n" : "",
628 ttylist[z][m->m_type].t_name);
629 i = m->m_type;
630 st = len = strlen(ttylist[z][m->m_type].t_name);
631 }
632
633 x = (ttylist[z][i].t_setmask & m->m_value) ? '+' : '\0';
634 x = (ttylist[z][i].t_clrmask & m->m_value) ? '-' : x;
635
636 if (x != '\0' || aflag) {
637 cu = strlen(m->m_name) + (x != '\0') + 1;
638 if (len + cu >= T_Cols) {
639 xprintf("\n%*s", st, "");
640 len = st + cu;
641 }
642 else
643 len += cu;
644 if (x != '\0')
645 xprintf("%c%s ", x, m->m_name);
646 else
647 xprintf("%s ", m->m_name);
648 }
649 }
650 xputchar('\n');
651 return;
652 }
653 while (v && (s = *v++)) {
654 switch (*s) {
655 case '+':
656 case '-':
657 x = *s++;
658 break;
659 default:
660 x = '\0';
661 break;
662 }
663 d = short2str(s);
664 for (m = modelist; m->m_name; m++)
665 if (strcmp(m->m_name, d) == 0)
666 break;
667 if (!m->m_name)
668 stderror(ERR_NAME | ERR_SYSTEM, d, CGETS(8, 2, "Invalid argument"));
669
670 switch (x) {
671 case '+':
672 ttylist[z][m->m_type].t_setmask |= m->m_value;
673 ttylist[z][m->m_type].t_clrmask &= ~m->m_value;
674 break;
675 case '-':
676 ttylist[z][m->m_type].t_setmask &= ~m->m_value;
677 ttylist[z][m->m_type].t_clrmask |= m->m_value;
678 break;
679 default:
680 ttylist[z][m->m_type].t_setmask &= ~m->m_value;
681 ttylist[z][m->m_type].t_clrmask &= ~m->m_value;
682 break;
683 }
684 }
685} /* end dosetty */
686
687int
688tty_getty(fd, td)
689 int fd;
690 ttydata_t *td;
691{
692#ifdef POSIX
693 RETRY(tcgetattr(fd, &td->d_t));
694#else /* TERMIO || GSTTY */
695# ifdef TERMIO
696 RETRY(ioctl(fd, TCGETA, (ioctl_t) &td->d_t));
697# else /* GSTTY */
698# ifdef TIOCGETP
699 RETRY(ioctl(fd, TIOCGETP, (ioctl_t) &td->d_t));
700# endif /* TIOCGETP */
701# ifdef TIOCGETC
702 RETRY(ioctl(fd, TIOCGETC, (ioctl_t) &td->d_tc));
703# endif /* TIOCGETC */
704# ifdef TIOCGPAGE
705 RETRY(ioctl(fd, TIOCGPAGE, (ioctl_t) &td->d_pc));
706# endif /* TIOCGPAGE */
707# ifdef TIOCLGET
708 RETRY(ioctl(fd, TIOCLGET, (ioctl_t) &td->d_lb));
709# endif /* TIOCLGET */
710# endif /* TERMIO */
711#endif /* POSIX */
712
713#ifdef TIOCGLTC
714 RETRY(ioctl(fd, TIOCGLTC, (ioctl_t) &td->d_ltc));
715#endif /* TIOCGLTC */
716
717 return 0;
718}
719
720int
721tty_setty(fd, td)
722 int fd;
723 ttydata_t *td;
724{
725#ifdef POSIX
726 RETRY(tcsetattr(fd, TCSADRAIN, &td->d_t));
727#else
728# ifdef TERMIO
729 RETRY(ioctl(fd, TCSETAW, (ioctl_t) &td->d_t));
730# else
731# ifdef TIOCSETN
732 RETRY(ioctl(fd, TIOCSETN, (ioctl_t) &td->d_t));
733# endif /* TIOCSETN */
734# ifdef TIOCGETC
735 RETRY(ioctl(fd, TIOCSETC, (ioctl_t) &td->d_tc));
736# endif /* TIOCGETC */
737# ifdef TIOCGPAGE
738 RETRY(ioctl(fd, TIOCSPAGE, (ioctl_t) &td->d_pc));
739# endif /* TIOCGPAGE */
740# ifdef TIOCLGET
741 RETRY(ioctl(fd, TIOCLSET, (ioctl_t) &td->d_lb));
742# endif /* TIOCLGET */
743# endif /* TERMIO */
744#endif /* POSIX */
745
746#ifdef TIOCGLTC
747 RETRY(ioctl(fd, TIOCSLTC, (ioctl_t) &td->d_ltc));
748#endif /* TIOCGLTC */
749
750 return 0;
751}
752
753void
754tty_getchar(td, s)
755 ttydata_t *td;
756 unsigned char *s;
757{
758#ifdef TIOCGLTC
759 {
760 struct ltchars *n = &td->d_ltc;
761
762 s[C_SUSP] = n->t_suspc;
763 s[C_DSUSP] = n->t_dsuspc;
764 s[C_REPRINT] = n->t_rprntc;
765 s[C_DISCARD] = n->t_flushc;
766 s[C_WERASE] = n->t_werasc;
767 s[C_LNEXT] = n->t_lnextc;
768 }
769#endif /* TIOCGLTC */
770
771#if defined(POSIX) || defined(TERMIO)
772 {
773# ifdef POSIX
774 struct termios *n = &td->d_t;
775# else
776 struct termio *n = &td->d_t;
777# endif /* POSIX */
778
779# ifdef VINTR
780 s[C_INTR] = n->c_cc[VINTR];
781# endif /* VINTR */
782# ifdef VQUIT
783 s[C_QUIT] = n->c_cc[VQUIT];
784# endif /* VQUIT */
785# ifdef VERASE
786 s[C_ERASE] = n->c_cc[VERASE];
787# endif /* VERASE */
788# ifdef VKILL
789 s[C_KILL] = n->c_cc[VKILL];
790# endif /* VKILL */
791# ifdef VEOF
792 s[C_EOF] = n->c_cc[VEOF];
793# endif /* VEOF */
794# ifdef VEOL
795 s[C_EOL] = n->c_cc[VEOL];
796# endif /* VEOL */
797# ifdef VEOL2
798 s[C_EOL2] = n->c_cc[VEOL2];
799# endif /* VEOL2 */
800# ifdef VSWTCH
801 s[C_SWTCH] = n->c_cc[VSWTCH];
802# endif /* VSWTCH */
803# ifdef VDSWTCH
804 s[C_DSWTCH] = n->c_cc[VDSWTCH];
805# endif /* VDSWTCH */
806# ifdef VERASE2
807 s[C_ERASE2] = n->c_cc[VERASE2];
808# endif /* VERASE2 */
809# ifdef VSTART
810 s[C_START] = n->c_cc[VSTART];
811# endif /* VSTART */
812# ifdef VSTOP
813 s[C_STOP] = n->c_cc[VSTOP];
814# endif /* VSTOP */
815# ifdef VWERASE
816 s[C_WERASE] = n->c_cc[VWERASE];
817# endif /* VWERASE */
818# ifdef VSUSP
819 s[C_SUSP] = n->c_cc[VSUSP];
820# endif /* VSUSP */
821# ifdef VDSUSP
822 s[C_DSUSP] = n->c_cc[VDSUSP];
823# endif /* VDSUSP */
824# ifdef VREPRINT
825 s[C_REPRINT] = n->c_cc[VREPRINT];
826# endif /* WREPRINT */
827# ifdef VDISCARD
828 s[C_DISCARD] = n->c_cc[VDISCARD];
829# endif /* VDISCARD */
830# ifdef VLNEXT
831 s[C_LNEXT] = n->c_cc[VLNEXT];
832# endif /* VLNEXT */
833# ifdef VSTATUS
834 s[C_STATUS] = n->c_cc[VSTATUS];
835# endif /* VSTATUS */
836# ifdef VPAGE
837 s[C_PAGE] = n->c_cc[VPAGE];
838# endif /* VPAGE */
839# ifdef VPGOFF
840 s[C_PGOFF] = n->c_cc[VPGOFF];
841# endif /* VPGOFF */
842# ifdef VKILL2
843 s[C_KILL2] = n->c_cc[VKILL2];
844# endif /* KILL2 */
845# ifdef VMIN
846 s[C_MIN] = n->c_cc[VMIN];
847# endif /* VMIN */
848# ifdef VTIME
849 s[C_TIME] = n->c_cc[VTIME];
850# endif /* VTIME */
851 }
852
853#else /* SGTTY */
854
855# ifdef TIOCGPAGE
856 {
857 struct ttypagestat *n = &td->d_pc;
858
859 s[C_STATUS] = n->tps_statc;
860 s[C_PAGE] = n->tps_pagec;
861 s[C_PGOFF] = n->tps_pgoffc;
862 }
863# endif /* TIOCGPAGE */
864
865# ifdef TIOCGETC
866 {
867 struct tchars *n = &td->d_tc;
868
869 s[C_INTR] = n->t_intrc;
870 s[C_QUIT] = n->t_quitc;
871 s[C_START] = n->t_startc;
872 s[C_STOP] = n->t_stopc;
873 s[C_EOF] = n->t_eofc;
874 s[C_BRK] = n->t_brkc;
875 }
876# endif /* TIOCGETC */
877
878# ifdef TIOCGETP
879 {
880 struct sgttyb *n = &td->d_t;
881
882 s[C_ERASE] = n->sg_erase;
883 s[C_KILL] = n->sg_kill;
884 }
885# endif /* TIOCGETP */
886#endif /* !POSIX || TERMIO */
887
888} /* tty_getchar */
889
890
891void
892tty_setchar(td, s)
893 ttydata_t *td;
894 unsigned char *s;
895{
896#ifdef TIOCGLTC
897 {
898 struct ltchars *n = &td->d_ltc;
899
900 n->t_suspc = s[C_SUSP];
901 n->t_dsuspc = s[C_DSUSP];
902 n->t_rprntc = s[C_REPRINT];
903 n->t_flushc = s[C_DISCARD];
904 n->t_werasc = s[C_WERASE];
905 n->t_lnextc = s[C_LNEXT];
906 }
907#endif /* TIOCGLTC */
908
909#if defined(POSIX) || defined(TERMIO)
910 {
911# ifdef POSIX
912 struct termios *n = &td->d_t;
913# else
914 struct termio *n = &td->d_t;
915# endif /* POSIX */
916
917# ifdef VINTR
918 n->c_cc[VINTR] = s[C_INTR];
919# endif /* VINTR */
920# ifdef VQUIT
921 n->c_cc[VQUIT] = s[C_QUIT];
922# endif /* VQUIT */
923# ifdef VERASE
924 n->c_cc[VERASE] = s[C_ERASE];
925# endif /* VERASE */
926# ifdef VKILL
927 n->c_cc[VKILL] = s[C_KILL];
928# endif /* VKILL */
929# ifdef VEOF
930 n->c_cc[VEOF] = s[C_EOF];
931# endif /* VEOF */
932# ifdef VEOL
933 n->c_cc[VEOL] = s[C_EOL];
934# endif /* VEOL */
935# ifdef VEOL2
936 n->c_cc[VEOL2] = s[C_EOL2];
937# endif /* VEOL2 */
938# ifdef VSWTCH
939 n->c_cc[VSWTCH] = s[C_SWTCH];
940# endif /* VSWTCH */
941# ifdef VDSWTCH
942 n->c_cc[VDSWTCH] = s[C_DSWTCH];
943# endif /* VDSWTCH */
944# ifdef VERASE2
945 n->c_cc[VERASE2] = s[C_ERASE2];
946# endif /* VERASE2 */
947# ifdef VSTART
948 n->c_cc[VSTART] = s[C_START];
949# endif /* VSTART */
950# ifdef VSTOP
951 n->c_cc[VSTOP] = s[C_STOP];
952# endif /* VSTOP */
953# ifdef VWERASE
954 n->c_cc[VWERASE] = s[C_WERASE];
955# endif /* VWERASE */
956# ifdef VSUSP
957 n->c_cc[VSUSP] = s[C_SUSP];
958# endif /* VSUSP */
959# ifdef VDSUSP
960 n->c_cc[VDSUSP] = s[C_DSUSP];
961# endif /* VDSUSP */
962# ifdef VREPRINT
963 n->c_cc[VREPRINT] = s[C_REPRINT];
964# endif /* WREPRINT */
965# ifdef VDISCARD
966 n->c_cc[VDISCARD] = s[C_DISCARD];
967# endif /* VDISCARD */
968# ifdef VLNEXT
969 n->c_cc[VLNEXT] = s[C_LNEXT];
970# endif /* VLNEXT */
971# ifdef VSTATUS
972 n->c_cc[VSTATUS] = s[C_STATUS];
973# endif /* VSTATUS */
974# ifdef VPAGE
975 n->c_cc[VPAGE] = s[C_PAGE];
976# endif /* VPAGE */
977# ifdef VPGOFF
978 n->c_cc[VPGOFF] = s[C_PGOFF];
979# endif /* VPGOFF */
980# ifdef VKILL2
981 n->c_cc[VKILL2] = s[C_KILL2];
982# endif /* VKILL2 */
983# ifdef VMIN
984 n->c_cc[VMIN] = s[C_MIN];
985# endif /* VMIN */
986# ifdef VTIME
987 n->c_cc[VTIME] = s[C_TIME];
988# endif /* VTIME */
989 }
990
991#else /* GSTTY */
992
993# ifdef TIOCGPAGE
994 {
995 struct ttypagestat *n = &td->d_pc;
996
997 n->tps_length = 0;
998 n->tps_lpos = 0;
999 n->tps_statc = s[C_STATUS];
1000 n->tps_pagec = s[C_PAGE];
1001 n->tps_pgoffc = s[C_PGOFF];
1002 n->tps_flag = 0;
1003 }
1004# endif /* TIOCGPAGE */
1005
1006# ifdef TIOCGETC
1007 {
1008 struct tchars *n = &td->d_tc;
1009 n->t_intrc = s[C_INTR];
1010 n->t_quitc = s[C_QUIT];
1011 n->t_startc = s[C_START];
1012 n->t_stopc = s[C_STOP];
1013 n->t_eofc = s[C_EOF];
1014 n->t_brkc = s[C_BRK];
1015 }
1016# endif /* TIOCGETC */
1017
1018# ifdef TIOCGETP
1019 {
1020 struct sgttyb *n = &td->d_t;
1021
1022 n->sg_erase = s[C_ERASE];
1023 n->sg_kill = s[C_KILL];
1024 }
1025# endif /* TIOCGETP */
1026#endif /* !POSIX || TERMIO */
1027
1028} /* tty_setchar */
1029
1030speed_t
1031tty_getspeed(td)
1032 ttydata_t *td;
1033{
1034 speed_t spd;
1035
1036#ifdef POSIX
1037 if ((spd = cfgetispeed(&td->d_t)) == 0)
1038 spd = cfgetospeed(&td->d_t);
1039#else /* ! POSIX */
1040# ifdef TERMIO
1041# ifdef CBAUD
1042 spd = td->d_t.c_cflag & CBAUD;
1043# else
1044 spd = 0;
1045# endif
1046# else /* SGTTY */
1047 spd = td->d_t.sg_ispeed;
1048# endif /* TERMIO */
1049#endif /* POSIX */
1050
1051 return spd;
1052} /* end tty_getspeed */
1053
1054int
1055tty_gettabs(td)
1056 ttydata_t *td;
1057{
1058#if defined(POSIX) || defined(TERMIO)
1059 return ((td->d_t.c_oflag & TAB3) == TAB3) ? 0 : 1;
1060#else /* SGTTY */
1061 return (td->d_t.sg_flags & XTABS) == XTABS ? 0 : 1;
1062#endif /* POSIX || TERMIO */
1063} /* end tty_gettabs */
1064
1065int
1066tty_geteightbit(td)
1067 ttydata_t *td;
1068{
1069#if defined(POSIX) || defined(TERMIO)
1070 return (td->d_t.c_cflag & CSIZE) == CS8;
1071#else /* SGTTY */
1072 return td->d_lb & (LPASS8 | LLITOUT);
1073#endif /* POSIX || TERMIO */
1074} /* end tty_geteightbit */
1075
1076int
1077tty_cooked_mode(td)
1078 ttydata_t *td;
1079{
1080#if defined(POSIX) || defined(TERMIO)
1081 return (td->d_t.c_lflag & ICANON);
1082#else /* SGTTY */
1083 return !(td->d_t.sg_flags & (RAW | CBREAK));
1084#endif /* POSIX || TERMIO */
1085} /* end tty_cooked_mode */
1086
1087#ifdef _IBMR2
1088void
1089tty_setdisc(fd, dis)
1090 int fd;
1091 int dis;
1092{
1093 static bool edit_discipline = 0;
1094 static union txname tx_disc;
1095 extern char strPOSIX[];
1096
1097 switch (dis) {
1098 case EX_IO:
1099 if (edit_discipline) {
1100 if (ioctl(fd, TXSETLD, (ioctl_t) & tx_disc) == -1)
1101 return;
1102 edit_discipline = 0;
1103 }
1104 return;
1105
1106 case ED_IO:
1107 tx_disc.tx_which = 0;
1108 if (ioctl(fd, TXGETLD, (ioctl_t) & tx_disc) == -1)
1109 return;
1110 if (strcmp(tx_disc.tx_name, strPOSIX) != 0) {
1111 edit_discipline = 1;
1112 if (ioctl(fd, TXSETLD, (ioctl_t) strPOSIX) == -1)
1113 return;
1114 }
1115 return;
1116
1117 default:
1118 return;
1119 }
1120} /* end tty_setdisc */
1121#endif /* _IBMR2 */
1122
1123#ifdef DEBUG_TTY
1124static void
1125tty_printchar(s)
1126 unsigned char *s;
1127{
1128 struct tcshmodes *m;
1129 int i;
1130
1131 for (i = 0; i < C_NCC; i++) {
1132 for (m = modelist; m->m_name; m++)
1133 if (m->m_type == M_CHAR && C_SH(i) == m->m_value)
1134 break;
1135 if (m->m_name)
1136 xprintf("%s ^%c ", m->m_name, s[i] + 'A' - 1);
1137 if (i % 5 == 0)
1138 xputchar('\n');
1139 }
1140 xputchar('\n');
1141}
1142#endif /* DEBUG_TTY */
1143#else /* WINNT_NATIVE */
1144int
1145tty_cooked_mode(td)
1146 void *td;
1147{
1148 return do_nt_check_cooked_mode();
1149}
1150#endif /* !WINNT_NATIVE */