annotate src/systty.h @ 2644:6d563cf5a260

* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and ':' elsewhere, just have it default to ':' if not #defined, and #define it to be ',' in s/vms.h; OS/2 will need it to be ';'. * s/vms.h (SEPCHAR): #define this to be ','. * s/template.h (SEPCHAR): Mention this. * s/vms.h (xfree): #define this to emacs_xfree, to avoid case conflict with XFree; on VMS, external symbols are case-insensitive.
author Jim Blandy <jimb@redhat.com>
date Tue, 04 May 1993 00:28:07 +0000
parents 9994dd2e75c9
children 8be0a57686cb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1597
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
1 /* systty.h - System-dependent definitions for terminals.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2 Copyright (C) 1992 Free Software Foundation, Inc.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 the Free Software Foundation; either version 1, or (at your option)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
2095
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
20 #ifdef HAVE_TERMIOS
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
21 #define HAVE_TCATTR
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
22 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 /* Include the proper files. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 #ifdef HAVE_TERMIO
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 #include <termio.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #include <fcntl.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 #ifdef HAVE_TERMIOS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 #include <termio.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 #include <termios.h>
1929
8ca19160362b * systty.h [HAVE_TERMIOS]: Include fcntl.h.
Jim Blandy <jimb@redhat.com>
parents: 1597
diff changeset
32 #include <fcntl.h>
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 #else /* neither HAVE_TERMIO nor HAVE_TERMIOS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 #ifndef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 #include <sgtty.h>
1597
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
36 #else /* VMS */
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
37 #include <descrip.h>
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
38 static struct iosb
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
39 {
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
40 short status;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
41 short offset;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
42 short termlen;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
43 short term;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
44 } input_iosb;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
45
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
46 extern int waiting_for_ast;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
47 extern int stop_input;
2264
87934d212841 Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 2095
diff changeset
48 #if 0 /* VAX C doeasn't understand initializing declarations */
1597
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
49 extern int input_ef = 0;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
50 extern int timer_ef = 0;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
51 extern int process_ef = 0;
2264
87934d212841 Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 2095
diff changeset
52 #else
87934d212841 Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 2095
diff changeset
53 extern int input_ef;
87934d212841 Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 2095
diff changeset
54 extern int timer_ef;
87934d212841 Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 2095
diff changeset
55 extern int process_ef;
87934d212841 Some VMS changes from Richard Levitte <levitte@e.kth.se>:
Jim Blandy <jimb@redhat.com>
parents: 2095
diff changeset
56 #endif
1597
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
57 extern int input_eflist;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
58 extern int timer_eflist;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
59
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
60 static $DESCRIPTOR (input_dsc, "TT");
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
61 static int terminator_mask[2] = { 0, 0 };
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
62
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
63 static struct sensemode {
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
64 short status;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
65 unsigned char xmit_baud;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
66 unsigned char rcv_baud;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
67 unsigned char crfill;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
68 unsigned char lffill;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
69 unsigned char parity;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
70 unsigned char unused;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
71 char class;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
72 char type;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
73 short scr_wid;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
74 unsigned long tt_char : 24, scr_len : 8;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
75 unsigned long tt2_char;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
76 } sensemode_iosb;
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
77 #endif /* VMS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 #endif /* not HAVE_TERMIOS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 #endif /* not HAVE_TERMIO */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
81 #ifdef AIX
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
82 /* Get files for keyboard remapping */
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
83 #define HFNKEYS 2
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
84 #include <sys/hft.h>
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
85 #include <sys/devinfo.h>
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
86 #endif
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
87
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
88 /* Get rid of LLITOUT in 4.1, since it is said to stimulate kernel bugs. */
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
89 #ifdef BSD4_1
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
90 #undef LLITOUT
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
91 #define LLITOUT 0
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
92 #endif /* 4.1 */
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
93
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
94 #ifdef NEED_BSDTTY
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
95 #include <sys/bsdtty.h>
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
96 #endif
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
97
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
98 #if defined (HPUX) && defined (HAVE_PTYS)
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
99 #include <sys/ptyio.h>
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
100 #endif
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
101
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
102 #ifdef AIX
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
103 #include <sys/pty.h>
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
104 #include <unistd.h>
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
105 #endif /* AIX */
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
106
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
107 #ifdef SYSV_PTYS
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
108 #include <sys/tty.h>
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
109 #ifdef titan
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
110 #include <sys/ttyhw.h>
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
111 #include <sys/stream.h>
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
112 #endif
2414
9994dd2e75c9 [NO_PTY_H]: Don't include pty.h.
Richard M. Stallman <rms@gnu.org>
parents: 2264
diff changeset
113 #ifndef NO_PTY_H
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
114 #include <sys/pty.h>
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
115 #endif
2414
9994dd2e75c9 [NO_PTY_H]: Don't include pty.h.
Richard M. Stallman <rms@gnu.org>
parents: 2264
diff changeset
116 #endif
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
117
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
118 /* saka@pfu.fujitsu.co.JP writes:
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
119 FASYNC defined in this file. But, FASYNC don't working.
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
120 so no problem, because unrequest_sigio only need. */
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
121 #if defined (pfa)
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
122 #include <sys/file.h>
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
123 #endif
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
124
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 /* Special cases - inhibiting the use of certain features. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 #ifdef APOLLO
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129 #undef TIOCSTART
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
132 #ifdef XENIX
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
133 #undef TIOCGETC /* Avoid confusing some conditionals that test this. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
134 #endif
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
135
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 #ifdef BROKEN_TIOCGETC
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 #undef TIOCGETC /* Avoid confusing some conditionals that test this. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 /* UNIPLUS systems may have FIONREAD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 #ifdef UNIPLUS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 #include <sys.ioctl.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 /* Allow m- file to inhibit use of FIONREAD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 #ifdef BROKEN_FIONREAD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 #undef FIONREAD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 #undef ASYNC
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151 /* Interupt input is not used if there is no FIONREAD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 #ifndef FIONREAD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153 #undef SIGIO
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156
1101
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
157 /* Try to establish the correct character to disable terminal functions
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
158 in a system-independent manner. Note that USG (at least) define
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
159 _POSIX_VDISABLE as 0! */
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
160
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
161 #ifdef _POSIX_VDISABLE
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
162 #define CDISABLE _POSIX_VDISABLE
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
163 #else /* not _POSIX_VDISABLE */
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
164 #ifdef CDEL
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
165 #define CDISABLE CDEL
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
166 #else /* not CDEL */
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
167 #define CDISABLE 255
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
168 #endif /* not CDEL */
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
169 #endif /* not _POSIX_VDISABLE */
3e06965680fd entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
170
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 /* Get the number of characters queued for output. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 /* EMACS_OUTQSIZE(FD, int *SIZE) stores the number of characters
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 queued for output to the terminal FD in *SIZE, if FD is a tty.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 Returns -1 if there was an error (i.e. FD is not a tty), 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 otherwise. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 #ifdef TIOCOUTQ
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 #define EMACS_OUTQSIZE(fd, size) (ioctl ((fd), TIOCOUTQ, (size)))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 #ifdef HAVE_TERMIO
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 #ifdef TCOUTQ
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 #undef EMACS_OUTQSIZE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 #define EMACS_OUTQSIZE(fd, size) (ioctl ((fd), TCOUTQ, (size)))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 /* Manipulate a terminal's current process group. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 /* EMACS_HAVE_TTY_PGRP is true if we can get and set the tty's current
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 controlling process group.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 EMACS_GET_TTY_PGRP(int FD, int *PGID) sets *PGID the terminal FD's
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195 current process group. Return -1 if there is an error.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 EMACS_SET_TTY_PGRP(int FD, int *PGID) sets the terminal FD's
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 current process group to *PGID. Return -1 if there is an error. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
200 #ifdef HPUX
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
201 /* HPUX tty process group stuff doesn't work, says the anonymous voice
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
202 from the past. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
203 #else
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 #ifdef TIOCGPGRP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 #define EMACS_HAVE_TTY_PGRP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207 #ifdef HAVE_TERMIOS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 #define EMACS_HAVE_TTY_PGRP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 #endif
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
211 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 #ifdef EMACS_HAVE_TTY_PGRP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 #ifdef HAVE_TERMIOS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 #define EMACS_GET_TTY_PGRP(fd, pgid) (*(pgid) = tcgetpgrp ((fd)))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 #define EMACS_SET_TTY_PGRP(fd, pgid) (*(pgid) = tcsetpgrp ((fd)))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 #ifdef TIOCSPGRP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 #define EMACS_GET_TTY_PGRP(fd, pgid) (ioctl ((fd), TIOCGPGRP, (pgid)))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 #define EMACS_SET_TTY_PGRP(fd, pgid) (ioctl ((fd), TIOCSPGRP, (pgid)))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231 /* Just ignore this for now and hope for the best */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232 #define EMACS_GET_TTY_PGRP(fd, pgid) 0
999
d8d503897aa5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
233 #define EMACS_SET_TTY_PGRP(fd, pgif) 0
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
235 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
238 /* Manipulate a TTY's input/output processing parameters. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
239
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 /* struct emacs_tty is a structure used to hold the current tty
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 parameters. If the terminal has several structures describing its
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 state, for example a struct tchars, a struct sgttyb, a struct
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 tchars, a struct ltchars, and a struct pagechars, struct
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 emacs_tty should contain an element for each parameter struct
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 that Emacs may change.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 EMACS_GET_TTY (int FD, struct emacs_tty *P) stores the
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 parameters of the tty on FD in *P.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 EMACS_SET_TTY (int FD, struct emacs_tty *P, int waitp)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 sets the parameters of the tty on FD according to the contents of
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 *P. If waitp is non-zero, we wait for all queued output to be
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253 written before making the change; otherwise, we forget any queued
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
254 input and make the change immediately.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256 EMACS_TTY_TABS_OK (struct emacs_tty *P) is false iff the kernel
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257 expands tabs to spaces upon output; in that case, there is no
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 advantage to using tabs over spaces. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 /* For each tty parameter structure that Emacs might want to save and restore,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 - include an element for it in this structure,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 - define a pair of numbered macros to get and set it and return
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 true iff the call succeeded,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 - give alternative definitions for when the component is not implemented
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
266 which always succeed, and
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 - extend the definition of EMACS_{GET,SET}_TTY_CHARS to include the
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 new macros. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 struct emacs_tty {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 /* There is always one of the following elements, so there is no need
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273 for dummy get and set definitions. */
2095
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
274 #ifdef HAVE_TCATTR
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 struct termios main;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277 #ifdef HAVE_TERMIO
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 struct termio main;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 struct sensemode main;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283 struct sgttyb main;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 #endif
2095
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
287 #ifdef TIOCGLTC
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
288 struct ltchars ltchars;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 #endif
2095
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
290 #ifdef TIOCGETC
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
291 struct tchars tchars;
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
292 int lmode;
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
293 #endif
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
294 };
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
295
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
296 /* Define EMACS_GET_TTY and EMACS_SET_TTY,
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
297 the macros for reading and setting parts of `struct emacs_tty'. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 #ifdef HAVE_TCATTR
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 #define EMACS_GET_TTY_1(fd, p) (tcgetattr ((fd), &(p)->main) != -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 #define EMACS_SET_TTY_1(fd, p, waitp) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 (tcsetattr ((fd), (waitp) ? TCSAFLUSH : TCSADRAIN, &(p)->main) != -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 #else
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
306 #ifdef HAVE_TERMIO
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
307
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
308 #define EMACS_GET_TTY_1(fd, p) (ioctl ((fd), TCGETA, &(p)->main) != -1)
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
309 #define EMACS_SET_TTY_1(fd, p, waitp) \
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
310 (ioctl ((fd), (waitp) ? TCSETAW : TCSETAF, &(p)->main) != -1)
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
311
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
312 #else
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 /* These definitions will really only work in sysdep.c, because of their
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 use of input_iosb. I don't know enough about VMS QIO to fix this. */
1597
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
317 #define EMACS_GET_TTY_1(fd, p) \
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
318 (1 & SYS$QIOW (0, (fd), IO$_SENSEMODE, (p), 0, 0, \
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
319 &(p)->main.class, 12, 0, 0, 0, 0))
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
320 #define EMACS_SET_TTY_1(fd, p, waitp) \
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
321 (1 & SYS$QIOW (0, (fd), IO$_SETMODE, &input_iosb, 0, 0, \
60566fdb3a25 * systty.h: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1101
diff changeset
322 &(p)->main.class, 12, 0, 0, 0, 0))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 #define EMACS_GET_TTY_1(fd, p) (ioctl ((fd), TIOCGETP, &(p)->main) != -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 #define EMACS_SET_TTY_1(fd, p, waitp) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 (ioctl ((fd), (waitp) ? TIOCSETP : TIOCSETN, &(p)->main) != -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 #endif
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
332 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 #ifdef TIOCGLTC
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 #define EMACS_GET_TTY_2(fd, p) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 (ioctl ((fd), TIOCGLTC, &(p)->ltchars) != -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 #define EMACS_SET_TTY_2(fd, p, waitp) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 (ioctl ((fd), TIOCSLTC, &(p)->ltchars) != -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 #define EMACS_GET_TTY_2(fd, p) 1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341 #define EMACS_SET_TTY_2(fd, p, waitp) 1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342 #endif /* TIOCGLTC */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344 #ifdef TIOCGETC
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
345 #define EMACS_GET_TTY_3(fd, p) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 (ioctl ((fd), TIOCGETC, &(p)->tchars) != -1 \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
347 && ioctl ((fd), TIOCLGET, &(p)->lmode) != -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 #define EMACS_SET_TTY_3(fd, p, waitp) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349 (ioctl ((fd), TIOCSETC, &(p)->tchars) != -1 \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 && ioctl ((fd), TIOCLSET, &(p)->lmode) != -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 #define EMACS_GET_TTY_3(fd, p) 1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 #define EMACS_SET_TTY_3(fd, p, waitp) 1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354 #endif /* TIOCGLTC */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355
1039
8ab465f7a7ff *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 999
diff changeset
356 /* Define these to be a concatenation of all the EMACS_{GET,SET}_TTY_n
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357 macros. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 #define EMACS_GET_TTY(fd, tc) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359 (EMACS_GET_TTY_1 (fd, tc) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 && EMACS_GET_TTY_2 (fd, tc) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 && EMACS_GET_TTY_3 (fd, tc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363 #define EMACS_SET_TTY(fd, tc, waitp) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 (EMACS_SET_TTY_1 (fd, tc, waitp) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 && EMACS_SET_TTY_2 (fd, tc, waitp) \
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 && EMACS_SET_TTY_3 (fd, tc, waitp))
2095
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
367
139f87bcbaf1 Define HAVE_TCATTR based on HAVE_TERMIOS earlier.
Richard M. Stallman <rms@gnu.org>
parents: 1929
diff changeset
368 /* Define EMACS_TTY_TABS_OK. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 #ifdef HAVE_TERMIOS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 #define EMACS_TTY_TABS_OK(p) (((p)->main.c_oflag & TABDLY) != TAB3)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374 #else /* not def HAVE_TERMIOS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 #ifdef HAVE_TERMIO
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 #define EMACS_TTY_TABS_OK(p) (((p)->main.c_oflag & TABDLY) != TAB3)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379 #else /* neither HAVE_TERMIO nor HAVE_TERMIOS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 #define EMACS_TTY_TABS_OK(p) (((p)->main.tt_char & TT$M_MECHTAB) != 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
384 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386 #define EMACS_TTY_TABS_OK(p) (((p)->main.sg_flags & XTABS) != XTABS)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
388 #endif /* not def VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389 #endif /* not def HAVE_TERMIO */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390 #endif /* not def HAVE_TERMIOS */