]>
Commit | Line | Data |
---|---|---|
b585a9fa EZ |
1 | /* Copyright (c) 1993-2002 |
2 | * Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de) | |
3 | * Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de) | |
4 | * Copyright (c) 1987 Oliver Laumann | |
5 | * | |
6 | * This program is free software; you can redistribute it and/or modify | |
7 | * it under the terms of the GNU General Public License as published by | |
8 | * the Free Software Foundation; either version 2, or (at your option) | |
9 | * any later version. | |
10 | * | |
11 | * This program is distributed in the hope that it will be useful, | |
12 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | * GNU General Public License for more details. | |
15 | * | |
16 | * You should have received a copy of the GNU General Public License | |
17 | * along with this program (see the file COPYING); if not, write to the | |
18 | * Free Software Foundation, Inc., | |
19 | * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA | |
20 | * | |
21 | **************************************************************** | |
22 | */ | |
23 | ||
24 | #include <sys/types.h> | |
25 | #include <sys/stat.h> | |
26 | #include <fcntl.h> | |
27 | #include <signal.h> | |
28 | ||
29 | #include "config.h" | |
30 | #include "screen.h" | |
31 | ||
32 | #ifndef sun | |
33 | # include <sys/ioctl.h> | |
34 | #endif | |
35 | ||
36 | /* for solaris 2.1, Unixware (SVR4.2) and possibly others */ | |
37 | #ifdef HAVE_SVR4_PTYS | |
38 | # include <sys/stropts.h> | |
39 | #endif | |
40 | ||
41 | #if defined(sun) && defined(LOCKPTY) && !defined(TIOCEXCL) | |
42 | # include <sys/ttold.h> | |
43 | #endif | |
44 | ||
45 | #ifdef ISC | |
46 | # include <sys/tty.h> | |
47 | # include <sys/sioctl.h> | |
48 | # include <sys/pty.h> | |
49 | #endif | |
50 | ||
51 | #ifdef sgi | |
52 | # include <sys/sysmacros.h> | |
53 | #endif /* sgi */ | |
54 | ||
55 | #include "extern.h" | |
56 | ||
57 | /* | |
58 | * if no PTYRANGE[01] is in the config file, we pick a default | |
59 | */ | |
60 | #ifndef PTYRANGE0 | |
61 | # define PTYRANGE0 "qpr" | |
62 | #endif | |
63 | #ifndef PTYRANGE1 | |
64 | # define PTYRANGE1 "0123456789abcdef" | |
65 | #endif | |
66 | ||
67 | /* SVR4 pseudo ttys don't seem to work with SCO-5 */ | |
68 | #ifdef M_UNIX | |
69 | # undef HAVE_SVR4_PTYS | |
70 | #endif | |
71 | ||
72 | extern int eff_uid; | |
73 | ||
74 | /* used for opening a new pty-pair: */ | |
75 | static char PtyName[32], TtyName[32]; | |
76 | ||
77 | #if !(defined(sequent) || defined(_SEQUENT_) || defined(HAVE_SVR4_PTYS)) | |
78 | # ifdef hpux | |
79 | static char PtyProto[] = "/dev/ptym/ptyXY"; | |
80 | static char TtyProto[] = "/dev/pty/ttyXY"; | |
81 | # else | |
82 | # ifdef M_UNIX | |
83 | static char PtyProto[] = "/dev/ptypXY"; | |
84 | static char TtyProto[] = "/dev/ttypXY"; | |
85 | # else | |
86 | static char PtyProto[] = "/dev/ptyXY"; | |
87 | static char TtyProto[] = "/dev/ttyXY"; | |
88 | # endif | |
89 | # endif /* hpux */ | |
90 | #endif | |
91 | ||
92 | static void initmaster __P((int)); | |
93 | ||
94 | #if defined(sun) | |
95 | /* sun's utmp_update program opens the salve side, thus corrupting | |
96 | */ | |
97 | int pty_preopen = 1; | |
98 | #else | |
99 | int pty_preopen = 0; | |
100 | #endif | |
101 | ||
102 | /* | |
103 | * Open all ptys with O_NOCTTY, just to be on the safe side | |
104 | * (RISCos mips breaks otherwise) | |
105 | */ | |
106 | #ifndef O_NOCTTY | |
107 | # define O_NOCTTY 0 | |
108 | #endif | |
109 | ||
110 | /***************************************************************/ | |
111 | ||
112 | static void | |
113 | initmaster(f) | |
114 | int f; | |
115 | { | |
116 | #ifdef POSIX | |
117 | tcflush(f, TCIOFLUSH); | |
118 | #else | |
119 | # ifdef TIOCFLUSH | |
120 | (void) ioctl(f, TIOCFLUSH, (char *) 0); | |
121 | # endif | |
122 | #endif | |
123 | #ifdef LOCKPTY | |
124 | (void) ioctl(f, TIOCEXCL, (char *) 0); | |
125 | #endif | |
126 | } | |
127 | ||
128 | void | |
129 | InitPTY(f) | |
130 | int f; | |
131 | { | |
132 | if (f < 0) | |
133 | return; | |
134 | #if defined(I_PUSH) && defined(HAVE_SVR4_PTYS) && !defined(sgi) && !defined(linux) && !defined(__osf__) && !defined(M_UNIX) | |
135 | if (ioctl(f, I_PUSH, "ptem")) | |
136 | Panic(errno, "InitPTY: cannot I_PUSH ptem"); | |
137 | if (ioctl(f, I_PUSH, "ldterm")) | |
138 | Panic(errno, "InitPTY: cannot I_PUSH ldterm"); | |
139 | # ifdef sun | |
140 | if (ioctl(f, I_PUSH, "ttcompat")) | |
141 | Panic(errno, "InitPTY: cannot I_PUSH ttcompat"); | |
142 | # endif | |
143 | #endif | |
144 | } | |
145 | ||
146 | /***************************************************************/ | |
147 | ||
148 | #if defined(OSX) && !defined(PTY_DONE) | |
149 | #define PTY_DONE | |
150 | int | |
151 | OpenPTY(ttyn) | |
152 | char **ttyn; | |
153 | { | |
154 | register int f; | |
155 | if ((f = open_controlling_pty(TtyName)) < 0) | |
156 | return -1; | |
157 | initmaster(f); | |
158 | *ttyn = TtyName; | |
159 | return f; | |
160 | } | |
161 | #endif | |
162 | ||
163 | /***************************************************************/ | |
164 | ||
165 | #if (defined(sequent) || defined(_SEQUENT_)) && !defined(PTY_DONE) | |
166 | #define PTY_DONE | |
167 | int | |
168 | OpenPTY(ttyn) | |
169 | char **ttyn; | |
170 | { | |
171 | char *m, *s; | |
172 | register int f; | |
173 | ||
174 | if ((f = getpseudotty(&s, &m)) < 0) | |
175 | return -1; | |
176 | #ifdef _SEQUENT_ | |
177 | fvhangup(s); | |
178 | #endif | |
179 | strncpy(PtyName, m, sizeof(PtyName)); | |
180 | strncpy(TtyName, s, sizeof(TtyName)); | |
181 | initmaster(f); | |
182 | *ttyn = TtyName; | |
183 | return f; | |
184 | } | |
185 | #endif | |
186 | ||
187 | /***************************************************************/ | |
188 | ||
189 | #if defined(__sgi) && !defined(PTY_DONE) | |
190 | #define PTY_DONE | |
191 | int | |
192 | OpenPTY(ttyn) | |
193 | char **ttyn; | |
194 | { | |
195 | int f; | |
196 | char *name, *_getpty(); | |
197 | sigret_t (*sigcld)__P(SIGPROTOARG); | |
198 | ||
199 | /* | |
200 | * SIGCHLD set to SIG_DFL for _getpty() because it may fork() and | |
201 | * exec() /usr/adm/mkpts | |
202 | */ | |
203 | sigcld = signal(SIGCHLD, SIG_DFL); | |
204 | name = _getpty(&f, O_RDWR | O_NONBLOCK, 0600, 0); | |
205 | signal(SIGCHLD, sigcld); | |
206 | ||
207 | if (name == 0) | |
208 | return -1; | |
209 | initmaster(f); | |
210 | *ttyn = name; | |
211 | return f; | |
212 | } | |
213 | #endif | |
214 | ||
215 | /***************************************************************/ | |
216 | ||
217 | #if defined(MIPS) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE) | |
218 | #define PTY_DONE | |
219 | int | |
220 | OpenPTY(ttyn) | |
221 | char **ttyn; | |
222 | { | |
223 | register int f; | |
224 | struct stat buf; | |
225 | ||
226 | strcpy(PtyName, "/dev/ptc"); | |
227 | if ((f = open(PtyName, O_RDWR | O_NOCTTY | O_NONBLOCK)) < 0) | |
228 | return -1; | |
229 | if (fstat(f, &buf) < 0) | |
230 | { | |
231 | close(f); | |
232 | return -1; | |
233 | } | |
234 | sprintf(TtyName, "/dev/ttyq%d", minor(buf.st_rdev)); | |
235 | initmaster(f); | |
236 | *ttyn = TtyName; | |
237 | return f; | |
238 | } | |
239 | #endif | |
240 | ||
241 | /***************************************************************/ | |
242 | ||
243 | #if defined(HAVE_SVR4_PTYS) && !defined(PTY_DONE) | |
244 | #define PTY_DONE | |
245 | int | |
246 | OpenPTY(ttyn) | |
247 | char **ttyn; | |
248 | { | |
249 | register int f; | |
250 | char *m, *ptsname(); | |
251 | int unlockpt __P((int)), grantpt __P((int)); | |
252 | #if defined(HAVE_GETPT) && defined(linux) | |
253 | int getpt __P((void)); | |
254 | #endif | |
255 | sigret_t (*sigcld)__P(SIGPROTOARG); | |
256 | ||
257 | strcpy(PtyName, "/dev/ptmx"); | |
258 | #if defined(HAVE_GETPT) && defined(linux) | |
259 | if ((f = getpt()) == -1) | |
260 | #else | |
261 | if ((f = open(PtyName, O_RDWR | O_NOCTTY)) == -1) | |
262 | #endif | |
263 | return -1; | |
264 | ||
265 | /* | |
266 | * SIGCHLD set to SIG_DFL for grantpt() because it fork()s and | |
267 | * exec()s pt_chmod | |
268 | */ | |
269 | sigcld = signal(SIGCHLD, SIG_DFL); | |
270 | if ((m = ptsname(f)) == NULL || grantpt(f) || unlockpt(f)) | |
271 | { | |
272 | signal(SIGCHLD, sigcld); | |
273 | close(f); | |
274 | return -1; | |
275 | } | |
276 | signal(SIGCHLD, sigcld); | |
277 | strncpy(TtyName, m, sizeof(TtyName)); | |
278 | initmaster(f); | |
279 | *ttyn = TtyName; | |
280 | return f; | |
281 | } | |
282 | #endif | |
283 | ||
284 | /***************************************************************/ | |
285 | ||
286 | #if defined(_AIX) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE) | |
287 | #define PTY_DONE | |
288 | ||
289 | int | |
290 | OpenPTY(ttyn) | |
291 | char **ttyn; | |
292 | { | |
293 | register int f; | |
294 | ||
295 | /* a dumb looking loop replaced by mycrofts code: */ | |
296 | strcpy (PtyName, "/dev/ptc"); | |
297 | if ((f = open (PtyName, O_RDWR | O_NOCTTY)) < 0) | |
298 | return -1; | |
299 | strncpy(TtyName, ttyname(f), sizeof(TtyName)); | |
300 | if (eff_uid && access(TtyName, R_OK | W_OK)) | |
301 | { | |
302 | close(f); | |
303 | return -1; | |
304 | } | |
305 | initmaster(f); | |
306 | # ifdef _IBMR2 | |
307 | pty_preopen = 1; | |
308 | # endif | |
309 | *ttyn = TtyName; | |
310 | return f; | |
311 | } | |
312 | #endif | |
313 | ||
314 | /***************************************************************/ | |
315 | ||
316 | #if defined(HAVE_OPENPTY) && !defined(PTY_DONE) | |
317 | #define PTY_DONE | |
318 | int | |
319 | OpenPTY(ttyn) | |
320 | char **ttyn; | |
321 | { | |
322 | int f, s; | |
323 | if (openpty(&f, &s, TtyName, NULL, NULL) != 0) | |
324 | return -1; | |
325 | close(s); | |
326 | initmaster(f); | |
327 | pty_preopen = 1; | |
328 | *ttyn = TtyName; | |
329 | return f; | |
330 | } | |
331 | #endif | |
332 | ||
333 | /***************************************************************/ | |
334 | ||
335 | #ifndef PTY_DONE | |
336 | int | |
337 | OpenPTY(ttyn) | |
338 | char **ttyn; | |
339 | { | |
340 | register char *p, *q, *l, *d; | |
341 | register int f; | |
342 | ||
343 | debug("OpenPTY: Using BSD style ptys.\n"); | |
344 | strcpy(PtyName, PtyProto); | |
345 | strcpy(TtyName, TtyProto); | |
346 | for (p = PtyName; *p != 'X'; p++) | |
347 | ; | |
348 | for (q = TtyName; *q != 'X'; q++) | |
349 | ; | |
350 | for (l = PTYRANGE0; (*p = *l) != '\0'; l++) | |
351 | { | |
352 | for (d = PTYRANGE1; (p[1] = *d) != '\0'; d++) | |
353 | { | |
354 | debug1("OpenPTY tries '%s'\n", PtyName); | |
355 | if ((f = open(PtyName, O_RDWR | O_NOCTTY)) == -1) | |
356 | continue; | |
357 | q[0] = *l; | |
358 | q[1] = *d; | |
359 | if (eff_uid && access(TtyName, R_OK | W_OK)) | |
360 | { | |
361 | close(f); | |
362 | continue; | |
363 | } | |
364 | #if defined(sun) && defined(TIOCGPGRP) && !defined(SUNOS3) | |
365 | /* Hack to ensure that the slave side of the pty is | |
366 | * unused. May not work in anything other than SunOS4.1 | |
367 | */ | |
368 | { | |
369 | int pgrp; | |
370 | ||
371 | /* tcgetpgrp does not work (uses TIOCGETPGRP)! */ | |
372 | if (ioctl(f, TIOCGPGRP, (char *)&pgrp) != -1 || errno != EIO) | |
373 | { | |
374 | close(f); | |
375 | continue; | |
376 | } | |
377 | } | |
378 | #endif | |
379 | initmaster(f); | |
380 | *ttyn = TtyName; | |
381 | return f; | |
382 | } | |
383 | } | |
384 | return -1; | |
385 | } | |
386 | #endif | |
387 |