annotate src/console-tty.c @ 12:bcdc7deadc19 r19-15b7

Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents 376386a54a3c
children 9ee227acff29
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* TTY console functions.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 Copyright (C) 1994, 1995 Free Software Foundation, Inc.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 Copyright (C) 1996 Ben Wing.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 This file is part of XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 XEmacs is free software; you can redistribute it and/or modify it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 Free Software Foundation; either version 2, or (at your option) any
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 along with XEmacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 Boston, MA 02111-1307, USA. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 /* Synched up with: Not in FSF. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 /* Authors: Ben Wing and Chuck Thompson. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 #include <config.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 #include "lisp.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 #include "console-tty.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 #include "console-stream.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 #include "events.h" /* for Vcontrolling_terminal */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 #include "faces.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 #include "frame.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 #include "lstream.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 #include "redisplay.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 #include "sysdep.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 #ifdef MULE
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 #include "mule-coding.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 DEFINE_CONSOLE_TYPE (tty);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 Lisp_Object Qterminal_type;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45
12
bcdc7deadc19 Import from CVS: tag r19-15b7
cvs
parents: 0
diff changeset
46 extern Lisp_Object Vstdio_str; /* in console-stream.c */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 allocate_tty_console_struct (struct console *con)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 con->console_data =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 (struct tty_console *) xmalloc (sizeof (struct tty_console));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 /* zero out all slots. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 memset (con->console_data, 0, sizeof (struct tty_console));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 /* except the lisp ones ... */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 CONSOLE_TTY_DATA (con)->terminal_type = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 CONSOLE_TTY_DATA (con)->instream = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 CONSOLE_TTY_DATA (con)->outstream = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 tty_init_console (struct console *con, Lisp_Object props)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 Lisp_Object tty = CONSOLE_CONNECTION (con), terminal_type = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 int infd, outfd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 struct gcpro gcpro1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 GCPRO1 (terminal_type);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 terminal_type = Fplist_get (props, Qterminal_type, Qnil);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 /* Determine the terminal type */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76 if (!NILP (terminal_type))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 CHECK_STRING (terminal_type);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 char *temp_type = (char *) getenv ("TERM");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 if (!temp_type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 error ("Cannot determine terminal type");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 terminal_type = build_string (temp_type);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90 /* Open the specified console */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 allocate_tty_console_struct (con);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 if (!NILP (Fequal (tty, Vstdio_str)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 infd = fileno (stdin);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 outfd = fileno (stdout);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 CONSOLE_TTY_DATA (con)->is_stdio = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 infd = outfd = open ((char *) string_data (XSTRING (tty)), O_RDWR);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 if (infd < 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 error ("Unable to open tty %s", string_data (XSTRING (tty)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 CONSOLE_TTY_DATA (con)->is_stdio = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 CONSOLE_TTY_DATA (con)->infd = infd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 CONSOLE_TTY_DATA (con)->outfd = outfd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 CONSOLE_TTY_DATA (con)->instream = make_filedesc_input_stream (infd, 0,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 -1, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 CONSOLE_TTY_DATA (con)->outstream = make_filedesc_output_stream (outfd, 0,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 -1, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 CONSOLE_TTY_DATA (con)->terminal_type = terminal_type;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 if (NILP (CONSOLE_NAME (con)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 CONSOLE_NAME (con) = Ffile_name_nondirectory (tty);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 int tty_pg;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 int controlling_tty_pg;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 int cfd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 /* OK, the only sure-fire way I can think of to determine
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 whether a particular TTY is our controlling TTY is to check
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 if it has the same foreground process group as our controlling
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 TTY. This is OK because a process group can never simultaneously
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 be the foreground process group of two TTY's (in that case it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 would have two controlling TTY's, which is not allowed). */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 EMACS_GET_TTY_PROCESS_GROUP (infd, &tty_pg);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 cfd = open ("/dev/tty", O_RDWR, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 EMACS_GET_TTY_PROCESS_GROUP (cfd, &controlling_tty_pg);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 close (cfd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 if (tty_pg == controlling_tty_pg)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 CONSOLE_TTY_DATA (con)->controlling_terminal = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 XSETCONSOLE (Vcontrolling_terminal, con);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 munge_tty_process_group ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 CONSOLE_TTY_DATA (con)->controlling_terminal = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 UNGCPRO;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 tty_mark_console (struct console *con, void (*markobj) (Lisp_Object))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148 ((markobj) (CONSOLE_TTY_DATA (con)->terminal_type));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 ((markobj) (CONSOLE_TTY_DATA (con)->instream));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 ((markobj) (CONSOLE_TTY_DATA (con)->outstream));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154 tty_initially_selected_for_input (struct console *con)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 return 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160 free_tty_console_struct (struct console *con)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162 struct tty_console *tcon = (struct tty_console *) con->console_data;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 if (tcon && tcon->term_entry_buffer) /* allocated in term_init () */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164 xfree (tcon->term_entry_buffer);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 if (tcon)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 xfree (tcon);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 tty_delete_console (struct console *con)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 Lstream_close (XLSTREAM (CONSOLE_TTY_DATA (con)->instream));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 Lstream_close (XLSTREAM (CONSOLE_TTY_DATA (con)->outstream));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 if (!CONSOLE_TTY_DATA (con)->is_stdio)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 close (CONSOLE_TTY_DATA (con)->infd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176 if (CONSOLE_TTY_DATA (con)->controlling_terminal)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178 Vcontrolling_terminal = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179 unmunge_tty_process_group ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181 free_tty_console_struct (con);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
184
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 static struct console *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186 decode_tty_console (Lisp_Object console)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188 XSETCONSOLE (console, decode_console (console));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189 CHECK_TTY_CONSOLE (console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190 return XCONSOLE (console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193 DEFUN ("console-tty-terminal-type", Fconsole_tty_terminal_type,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 Sconsole_tty_terminal_type, 0, 1, 0 /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 Return the terminal type of TTY console CONSOLE.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196 */ )
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197 (console)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198 Lisp_Object console;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 return CONSOLE_TTY_DATA (decode_tty_console (console))->terminal_type;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
204 tty_semi_canonicalize_console_connection (Lisp_Object connection,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
205 Error_behavior errb)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206 {
12
bcdc7deadc19 Import from CVS: tag r19-15b7
cvs
parents: 0
diff changeset
207 return stream_semi_canonicalize_console_connection (connection, errb);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
211 tty_canonicalize_console_connection (Lisp_Object connection,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212 Error_behavior errb)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
213 {
12
bcdc7deadc19 Import from CVS: tag r19-15b7
cvs
parents: 0
diff changeset
214 return stream_canonicalize_console_connection (connection, errb);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218 tty_semi_canonicalize_device_connection (Lisp_Object connection,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 Error_behavior errb)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220 {
12
bcdc7deadc19 Import from CVS: tag r19-15b7
cvs
parents: 0
diff changeset
221 return stream_semi_canonicalize_console_connection (connection, errb);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224 Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 tty_canonicalize_device_connection (Lisp_Object connection,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226 Error_behavior errb)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 {
12
bcdc7deadc19 Import from CVS: tag r19-15b7
cvs
parents: 0
diff changeset
228 return stream_canonicalize_console_connection (connection, errb);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
229 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232 /************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 /* initialization */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234 /************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237 syms_of_console_tty (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
238 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
239 defsubr (&Sconsole_tty_terminal_type);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
240 defsymbol (&Qterminal_type, "terminal-type");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
241 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
243 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244 console_type_create_tty (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 INITIALIZE_CONSOLE_TYPE (tty, "tty", "console-tty-p");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
247
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
248 /* console methods */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
249 CONSOLE_HAS_METHOD (tty, init_console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250 CONSOLE_HAS_METHOD (tty, mark_console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
251 CONSOLE_HAS_METHOD (tty, initially_selected_for_input);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252 CONSOLE_HAS_METHOD (tty, delete_console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253 CONSOLE_HAS_METHOD (tty, canonicalize_console_connection);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
254 CONSOLE_HAS_METHOD (tty, canonicalize_device_connection);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255 CONSOLE_HAS_METHOD (tty, semi_canonicalize_console_connection);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 CONSOLE_HAS_METHOD (tty, semi_canonicalize_device_connection);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260 vars_of_console_tty (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
262 Fprovide (Qtty);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
263 }