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
72extern int eff_uid;
73
74/* used for opening a new pty-pair: */
75static char PtyName[32], TtyName[32];
76
77#if !(defined(sequent) || defined(_SEQUENT_) || defined(HAVE_SVR4_PTYS))
78# ifdef hpux
79static char PtyProto[] = "/dev/ptym/ptyXY";
80static char TtyProto[] = "/dev/pty/ttyXY";
81# else
82#  ifdef M_UNIX
83static char PtyProto[] = "/dev/ptypXY";
84static char TtyProto[] = "/dev/ttypXY";
85#  else
86static char PtyProto[] = "/dev/ptyXY";
87static char TtyProto[] = "/dev/ttyXY";
88#  endif
89# endif /* hpux */
90#endif
91
92static void initmaster __P((int));
93
94#if defined(sun)
95/* sun's utmp_update program opens the salve side, thus corrupting
96 */
97int pty_preopen = 1;
98#else
99int 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
112static void
113initmaster(f)
114int 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
128void
129InitPTY(f)
130int 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
150int
151OpenPTY(ttyn)
152char **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
167int
168OpenPTY(ttyn)
169char **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
191int
192OpenPTY(ttyn)
193char **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
219int
220OpenPTY(ttyn)
221char **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
245int
246OpenPTY(ttyn)
247char **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
289int
290OpenPTY(ttyn)
291char **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
318int
319OpenPTY(ttyn)
320char **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
336int
337OpenPTY(ttyn)
338char **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
388