Mercurial > hg > RemoteEditor > vim7

comparison src/pty.c @ 0:76efa0be13f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author atsuki
date Sat, 10 Nov 2007 15:07:22 +0900
parents
children 6a13985590e6
comparison
equal deleted inserted replaced
-1:000000000000 0:76efa0be13f1
1 /* vi:set ts=8 sts=4 sw=4:
2 *
3 * VIM - Vi IMproved by Bram Moolenaar
4 *
5 * Do ":help uganda" in Vim to read copying and usage conditions.
6 * Do ":help credits" in Vim to see a list of people who contributed.
7 * See README.txt for an overview of the Vim source code.
8 */
9 /*
10 * The stuff in this file mostly comes from the "screen" program.
11 * Included with permission from Juergen Weigert.
12 * Copied from "pty.c". "putenv.c" was used for putenv() in misc2.c.
13 *
14 * It has been modified to work better with Vim.
15 * The parts that are not used in Vim have been deleted.
16 * See the "screen" sources for the complete stuff.
17 */
18
19 /* Copyright (c) 1993
20 * Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de)
21 * Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de)
22 * Copyright (c) 1987 Oliver Laumann
23 *
24 * This program is free software; you can redistribute it and/or modify
25 * it under the terms of the GNU General Public License as published by
26 * the Free Software Foundation; either version 2, or (at your option)
27 * any later version.
28 *
29 * This program is distributed in the hope that it will be useful,
30 * but WITHOUT ANY WARRANTY; without even the implied warranty of
31 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
32 * GNU General Public License for more details.
33 *
34 * You should have received a copy of the GNU General Public License
35 * along with this program (see the file COPYING); if not, write to the
36 * Free Software Foundation, Inc.,
37 * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
38 */
39
40 /* RCS_ID("$Id$ FAU") */
41
42 #include "vim.h"
43
44 #ifdef HAVE_FCNTL_H
45 # include <fcntl.h>
46 #endif
47
48 #include <signal.h>
49
50 #ifdef __CYGWIN32__
51 # include <sys/termios.h>
52 #endif
53
54 #ifdef HAVE_SYS_IOCTL_H
55 # include <sys/ioctl.h>
56 #endif
57
58 #if HAVE_STROPTS_H
59 #include <sys/types.h>
60 #ifdef sinix
61 #define buf_T __system_buf_t__
62 #endif
63 #include <stropts.h>
64 #ifdef sinix
65 #undef buf_T
66 #endif
67 # ifdef sun
68 # include <sys/conf.h>
69 # endif
70 #endif
71
72 #ifdef HAVE_UNISTD_H
73 # include <unistd.h>
74 #endif
75
76 #if HAVE_TERMIO_H
77 # include <termio.h>
78 #else
79 # ifdef HAVE_TERMIOS_H
80 # include <termios.h>
81 # endif
82 #endif
83
84 #if HAVE_SYS_STREAM_H
85 # include <sys/stream.h>
86 #endif
87
88 #if HAVE_SYS_PTEM_H
89 # include <sys/ptem.h>
90 #endif
91
92 #if !defined(sun) && !defined(VMS) && !defined(MACOS)
93 # include <sys/ioctl.h>
94 #endif
95
96 #if defined(sun) && defined(LOCKPTY) && !defined(TIOCEXCL)
97 # include <sys/ttold.h>
98 #endif
99
100 #ifdef ISC
101 # include <sys/tty.h>
102 # include <sys/sioctl.h>
103 # include <sys/pty.h>
104 #endif
105
106 #ifdef sgi
107 # include <sys/sysmacros.h>
108 #endif
109
110 #if defined(_INCLUDE_HPUX_SOURCE) && !defined(hpux)
111 # define hpux
112 #endif
113
114 /*
115 * if no PTYRANGE[01] is in the config file, we pick a default
116 */
117 #ifndef PTYRANGE0
118 # define PTYRANGE0 "qprs"
119 #endif
120 #ifndef PTYRANGE1
121 # define PTYRANGE1 "0123456789abcdef"
122 #endif
123
124 /* SVR4 pseudo ttys don't seem to work with SCO-5 */
125 #ifdef M_UNIX
126 # undef HAVE_SVR4_PTYS
127 #endif
128
129 static void initmaster __ARGS((int));
130
131 /*
132 * Open all ptys with O_NOCTTY, just to be on the safe side
133 * (RISCos mips breaks otherwise)
134 */
135 #ifndef O_NOCTTY
136 # define O_NOCTTY 0
137 #endif
138
139 static void
140 initmaster(f)
141 int f;
142 {
143 #ifndef VMS
144 # ifdef POSIX
145 tcflush(f, TCIOFLUSH);
146 # else
147 # ifdef TIOCFLUSH
148 (void)ioctl(f, TIOCFLUSH, (char *) 0);
149 # endif
150 # endif
151 # ifdef LOCKPTY
152 (void)ioctl(f, TIOCEXCL, (char *) 0);
153 # endif
154 #endif
155 }
156
157 /*
158 * This causes a hang on some systems, but is required for a properly working
159 * pty on others. Needs to be tuned...
160 */
161 int
162 SetupSlavePTY(fd)
163 int fd;
164 {
165 if (fd < 0)
166 return 0;
167 #if defined(I_PUSH) && defined(HAVE_SVR4_PTYS) && !defined(sgi) && !defined(linux) && !defined(__osf__) && !defined(M_UNIX)
168 # if defined(HAVE_SYS_PTEM_H) || defined(hpux)
169 if (ioctl(fd, I_PUSH, "ptem") != 0)
170 return -1;
171 # endif
172 if (ioctl(fd, I_PUSH, "ldterm") != 0)
173 return -1;
174 # ifdef sun
175 if (ioctl(fd, I_PUSH, "ttcompat") != 0)
176 return -1;
177 # endif
178 #endif
179 return 0;
180 }
181
182
183 #if defined(OSX) && !defined(PTY_DONE)
184 #define PTY_DONE
185 int
186 OpenPTY(ttyn)
187 char **ttyn;
188 {
189 int f;
190 static char TtyName[32];
191
192 if ((f = open_controlling_pty(TtyName)) < 0)
193 return -1;
194 initmaster(f);
195 *ttyn = TtyName;
196 return f;
197 }
198 #endif
199
200 #if (defined(sequent) || defined(_SEQUENT_)) && defined(HAVE_GETPSEUDOTTY) \
201 && !defined(PTY_DONE)
202 #define PTY_DONE
203 int
204 OpenPTY(ttyn)
205 char **ttyn;
206 {
207 char *m, *s;
208 int f;
209 /* used for opening a new pty-pair: */
210 static char PtyName[32];
211 static char TtyName[32];
212
213 if ((f = getpseudotty(&s, &m)) < 0)
214 return -1;
215 #ifdef _SEQUENT_
216 fvhangup(s);
217 #endif
218 strncpy(PtyName, m, sizeof(PtyName));
219 strncpy(TtyName, s, sizeof(TtyName));
220 initmaster(f);
221 *ttyn = TtyName;
222 return f;
223 }
224 #endif
225
226 #if defined(__sgi) && !defined(PTY_DONE)
227 #define PTY_DONE
228 int
229 OpenPTY(ttyn)
230 char **ttyn;
231 {
232 int f;
233 char *name;
234 RETSIGTYPE (*sigcld)__ARGS(SIGPROTOARG);
235
236 /*
237 * SIGCHLD set to SIG_DFL for _getpty() because it may fork() and
238 * exec() /usr/adm/mkpts
239 */
240 sigcld = signal(SIGCHLD, SIG_DFL);
241 name = _getpty(&f, O_RDWR | O_NONBLOCK | O_EXTRA, 0600, 0);
242 signal(SIGCHLD, sigcld);
243
244 if (name == 0)
245 return -1;
246 initmaster(f);
247 *ttyn = name;
248 return f;
249 }
250 #endif
251
252 #if defined(MIPS) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE)
253 #define PTY_DONE
254 int
255 OpenPTY(ttyn)
256 char **ttyn;
257 {
258 int f;
259 struct stat buf;
260 /* used for opening a new pty-pair: */
261 static char TtyName[32];
262
263 if ((f = open("/dev/ptc", O_RDWR | O_NOCTTY | O_NONBLOCK | O_EXTRA, 0)) < 0)
264 return -1;
265 if (mch_fstat(f, &buf) < 0)
266 {
267 close(f);
268 return -1;
269 }
270 sprintf(TtyName, "/dev/ttyq%d", minor(buf.st_rdev));
271 initmaster(f);
272 *ttyn = TtyName;
273 return f;
274 }
275 #endif
276
277 #if defined(HAVE_SVR4_PTYS) && !defined(PTY_DONE) && !defined(hpux)
278
279 /* NOTE: Even though HPUX can have /dev/ptmx, the code below doesn't work! */
280 #define PTY_DONE
281 int
282 OpenPTY(ttyn)
283 char **ttyn;
284 {
285 int f;
286 char *m, *ptsname();
287 int unlockpt __ARGS((int)), grantpt __ARGS((int));
288 RETSIGTYPE (*sigcld)__ARGS(SIGPROTOARG);
289 /* used for opening a new pty-pair: */
290 static char TtyName[32];
291
292 if ((f = open("/dev/ptmx", O_RDWR | O_NOCTTY | O_EXTRA, 0)) == -1)
293 return -1;
294
295 /*
296 * SIGCHLD set to SIG_DFL for grantpt() because it fork()s and
297 * exec()s pt_chmod
298 */
299 sigcld = signal(SIGCHLD, SIG_DFL);
300 if ((m = ptsname(f)) == NULL || grantpt(f) || unlockpt(f))
301 {
302 signal(SIGCHLD, sigcld);
303 close(f);
304 return -1;
305 }
306 signal(SIGCHLD, sigcld);
307 strncpy(TtyName, m, sizeof(TtyName));
308 initmaster(f);
309 *ttyn = TtyName;
310 return f;
311 }
312 #endif
313
314 #if defined(_AIX) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE)
315 #define PTY_DONE
316
317 #ifdef _IBMR2
318 int aixhack = -1;
319 #endif
320
321 int
322 OpenPTY(ttyn)
323 char **ttyn;
324 {
325 int f;
326 /* used for opening a new pty-pair: */
327 static char TtyName[32];
328
329 /* a dumb looking loop replaced by mycrofts code: */
330 if ((f = open("/dev/ptc", O_RDWR | O_NOCTTY | O_EXTRA)) < 0)
331 return -1;
332 strncpy(TtyName, ttyname(f), sizeof(TtyName));
333 if (geteuid() != ROOT_UID && mch_access(TtyName, R_OK | W_OK))
334 {
335 close(f);
336 return -1;
337 }
338 initmaster(f);
339 # ifdef _IBMR2
340 if (aixhack >= 0)
341 close(aixhack);
342 if ((aixhack = open(TtyName, O_RDWR | O_NOCTTY | O_EXTRA, 0)) < 0)
343 {
344 close(f);
345 return -1;
346 }
347 # endif
348 *ttyn = TtyName;
349 return f;
350 }
351 #endif
352
353 #ifndef PTY_DONE
354
355 # ifdef hpux
356 static char PtyProto[] = "/dev/ptym/ptyXY";
357 static char TtyProto[] = "/dev/pty/ttyXY";
358 # else
359 # ifdef __BEOS__
360 static char PtyProto[] = "/dev/pt/XY";
361 static char TtyProto[] = "/dev/tt/XY";
362 # else
363 static char PtyProto[] = "/dev/ptyXY";
364 static char TtyProto[] = "/dev/ttyXY";
365 # endif
366 # endif
367
368 int
369 OpenPTY(ttyn)
370 char **ttyn;
371 {
372 char *p, *q, *l, *d;
373 int f;
374 /* used for opening a new pty-pair: */
375 static char PtyName[32];
376 static char TtyName[32];
377
378 strcpy(PtyName, PtyProto);
379 strcpy(TtyName, TtyProto);
380 for (p = PtyName; *p != 'X'; p++)
381 ;
382 for (q = TtyName; *q != 'X'; q++)
383 ;
384 for (l = PTYRANGE0; (*p = *l) != '\0'; l++)
385 {
386 for (d = PTYRANGE1; (p[1] = *d) != '\0'; d++)
387 {
388 #if !defined(MACOS) || defined(USE_CARBONIZED)
389 if ((f = open(PtyName, O_RDWR | O_NOCTTY | O_EXTRA, 0)) == -1)
390 #else
391 if ((f = open(PtyName, O_RDWR | O_NOCTTY | O_EXTRA)) == -1)
392 #endif
393 continue;
394 q[0] = *l;
395 q[1] = *d;
396 #ifndef MACOS
397 if (geteuid() != ROOT_UID && mch_access(TtyName, R_OK | W_OK))
398 {
399 close(f);
400 continue;
401 }
402 #endif
403 #if defined(sun) && defined(TIOCGPGRP) && !defined(SUNOS3)
404 /* Hack to ensure that the slave side of the pty is
405 * unused. May not work in anything other than SunOS4.1
406 */
407 {
408 int pgrp;
409
410 /* tcgetpgrp does not work (uses TIOCGETPGRP)! */
411 if (ioctl(f, TIOCGPGRP, (char *)&pgrp) != -1 || errno != EIO)
412 {
413 close(f);
414 continue;
415 }
416 }
417 #endif
418 initmaster(f);
419 *ttyn = TtyName;
420 return f;
421 }
422 }
423 return -1;
424 }
425 #endif