src/Unix/sshpty.c

/*
 * Author: Tatu Ylonen <ylo@cs.hut.fi>
 * Copyright (c) 1995 Tatu Ylonen <ylo@cs.hut.fi>, Espoo, Finland
 *                    All rights reserved
 * Allocating a pseudo-terminal, and making it the controlling tty.
 *
 * As far as I am concerned, the code I have written for this software
 * can be used freely for any purpose.  Any derived versions of this
 * software must be clearly marked as such, and if the derived work is
 * incompatible with the protocol description in the RFC file, it must be
 * called by a name other than "ssh" or "Secure Shell".
 */

#if 0 /* not in BasiliskII */
#include "includes.h"
RCSID("$OpenBSD: sshpty.c,v 1.4 2001/12/19 07:18:56 deraadt Exp $");
#else /* not in BasiliskII */
/* Selections from openssh's "includes.h" */
#include "config.h"

#include <stdio.h>
#include <ctype.h>
#include <errno.h>
#include <fcntl.h> /* For O_NONBLOCK */
#include <stdlib.h>
#include <string.h>
#include <pwd.h>

#include <unistd.h> /* For STDIN_FILENO, etc */
#include <termios.h> /* Struct winsize */

/*
 *-*-nto-qnx needs these headers for strcasecmp and LASTLOG_FILE respectively
 */
#ifdef HAVE_STRINGS_H
# include <strings.h>
#endif
#ifdef HAVE_LOGIN_H
# include <login.h>
#endif

#include <sys/ioctl.h>

#ifdef HAVE_SYS_BSDTTY_H
# include <sys/bsdtty.h>
#endif

#ifdef HAVE_SYS_STAT_H
# include <sys/stat.h> /* For S_* constants and macros */
#endif

#ifndef _PATH_TTY
# define _PATH_TTY "/dev/tty"
#endif

#include "strlcpy.h"

#define debug(x) ;

#endif /* not in BasiliskII */

#ifdef HAVE_UTIL_H
# include <util.h>
#endif /* HAVE_UTIL_H */

#include "sshpty.h"
#if 0 /* not in BasiliskII */
#include "log.h"
#include "misc.h"
#else /* stubs for BasiliskII */
#define error printf
#define fatal(x) {printf("Fatal error: %s", x); return 0}
#endif /* not in BasiliskII */

/* Pty allocated with _getpty gets broken if we do I_PUSH:es to it. */
#if defined(HAVE__GETPTY) || defined(HAVE_OPENPTY)
#undef HAVE_DEV_PTMX
#endif

#ifdef HAVE_PTY_H
# include <pty.h>
#endif
#if defined(HAVE_DEV_PTMX) && defined(HAVE_SYS_STROPTS_H)
# include <sys/stropts.h>
#endif

#ifndef O_NOCTTY
#define O_NOCTTY 0
#endif

/*
 * Allocates and opens a pty.  Returns 0 if no pty could be allocated, or
 * nonzero if a pty was successfully allocated.  On success, open file
 * descriptors for the pty and tty sides and the name of the tty side are
 * returned (the buffer must be able to hold at least 64 characters).
 */

int
pty_allocate(int *ptyfd, int *ttyfd, char *namebuf, int namebuflen)
{
#if defined(HAVE_OPENPTY) || defined(BSD4_4)
        /* openpty(3) exists in OSF/1 and some other os'es */
        char *name;
        int i;

        i = openpty(ptyfd, ttyfd, NULL, NULL, NULL);
        if (i < 0) {
                error("openpty: %.100s", strerror(errno));
                return 0;
        }
        name = ttyname(*ttyfd);
        if (!name)
                fatal("openpty returns device for which ttyname fails.");

        strlcpy(namebuf, name, namebuflen);     /* possible truncation */
        return 1;
#else /* HAVE_OPENPTY */
#ifdef HAVE__GETPTY
        /*
         * _getpty(3) exists in SGI Irix 4.x, 5.x & 6.x -- it generates more
         * pty's automagically when needed
         */
        char *slave;

        slave = _getpty(ptyfd, O_RDWR, 0622, 0);
        if (slave == NULL) {
                error("_getpty: %.100s", strerror(errno));
                return 0;
        }
        strlcpy(namebuf, slave, namebuflen);
        /* Open the slave side. */
        *ttyfd = open(namebuf, O_RDWR | O_NOCTTY);
        if (*ttyfd < 0) {
                error("%.200s: %.100s", namebuf, strerror(errno));
                close(*ptyfd);
                return 0;
        }
        return 1;
#else /* HAVE__GETPTY */
#if defined(HAVE_DEV_PTMX)
        /*
         * This code is used e.g. on Solaris 2.x.  (Note that Solaris 2.3
         * also has bsd-style ptys, but they simply do not work.)
         */
        int ptm;
        char *pts;
        mysig_t old_signal;

        ptm = open("/dev/ptmx", O_RDWR | O_NOCTTY);
        if (ptm < 0) {
                error("/dev/ptmx: %.100s", strerror(errno));
                return 0;
        }
        old_signal = mysignal(SIGCHLD, SIG_DFL);
        if (grantpt(ptm) < 0) {
                error("grantpt: %.100s", strerror(errno));
                return 0;
        }
        mysignal(SIGCHLD, old_signal);
        if (unlockpt(ptm) < 0) {
                error("unlockpt: %.100s", strerror(errno));
                return 0;
        }
        pts = ptsname(ptm);
        if (pts == NULL)
                error("Slave pty side name could not be obtained.");
        strlcpy(namebuf, pts, namebuflen);
        *ptyfd = ptm;

        /* Open the slave side. */
        *ttyfd = open(namebuf, O_RDWR | O_NOCTTY);
        if (*ttyfd < 0) {
                error("%.100s: %.100s", namebuf, strerror(errno));
                close(*ptyfd);
                return 0;
        }
#ifndef HAVE_CYGWIN
        /*
         * Push the appropriate streams modules, as described in Solaris pts(7).
         * HP-UX pts(7) doesn't have ttcompat module.
         */
        if (ioctl(*ttyfd, I_PUSH, "ptem") < 0)
                error("ioctl I_PUSH ptem: %.100s", strerror(errno));
        if (ioctl(*ttyfd, I_PUSH, "ldterm") < 0)
                error("ioctl I_PUSH ldterm: %.100s", strerror(errno));
#ifndef __hpux
        if (ioctl(*ttyfd, I_PUSH, "ttcompat") < 0)
                error("ioctl I_PUSH ttcompat: %.100s", strerror(errno));
#endif
#endif
        return 1;
#else /* HAVE_DEV_PTMX */
#ifdef HAVE_DEV_PTS_AND_PTC
        /* AIX-style pty code. */
        const char *name;

        *ptyfd = open("/dev/ptc", O_RDWR | O_NOCTTY);
        if (*ptyfd < 0) {
                error("Could not open /dev/ptc: %.100s", strerror(errno));
                return 0;
        }
        name = ttyname(*ptyfd);
        if (!name)
                fatal("Open of /dev/ptc returns device for which ttyname fails.");
        strlcpy(namebuf, name, namebuflen);
        *ttyfd = open(name, O_RDWR | O_NOCTTY);
        if (*ttyfd < 0) {
                error("Could not open pty slave side %.100s: %.100s",
                    name, strerror(errno));
                close(*ptyfd);
                return 0;
        }
        return 1;
#else /* HAVE_DEV_PTS_AND_PTC */
#ifdef _CRAY
        char buf[64];
        int i;
        int highpty;

#ifdef _SC_CRAY_NPTY
        highpty = sysconf(_SC_CRAY_NPTY);
        if (highpty == -1)
                highpty = 128;
#else
        highpty = 128;
#endif

        for (i = 0; i < highpty; i++) {
                snprintf(buf, sizeof(buf), "/dev/pty/%03d", i);
                *ptyfd = open(buf, O_RDWR|O_NOCTTY);
                if (*ptyfd < 0)
                        continue;
                snprintf(namebuf, namebuflen, "/dev/ttyp%03d", i);
                /* Open the slave side. */
                *ttyfd = open(namebuf, O_RDWR|O_NOCTTY);
                if (*ttyfd < 0) {
                        error("%.100s: %.100s", namebuf, strerror(errno));
                        close(*ptyfd);
                        return 0;
                }
                return 1;
        }
        return 0;
#else
        /* BSD-style pty code. */
        char buf[64];
        int i;
        const char *ptymajors = "pqrstuvwxyzabcdefghijklmnoABCDEFGHIJKLMNOPQRSTUVWXYZ";
        const char *ptyminors = "0123456789abcdef";
        int num_minors = strlen(ptyminors);
        int num_ptys = strlen(ptymajors) * num_minors;
        struct termios tio;

        for (i = 0; i < num_ptys; i++) {
                snprintf(buf, sizeof buf, "/dev/pty%c%c", ptymajors[i / num_minors],
                         ptyminors[i % num_minors]);
                snprintf(namebuf, namebuflen, "/dev/tty%c%c",
                    ptymajors[i / num_minors], ptyminors[i % num_minors]);

                *ptyfd = open(buf, O_RDWR | O_NOCTTY);
                if (*ptyfd < 0) {
                        /* Try SCO style naming */
                        snprintf(buf, sizeof buf, "/dev/ptyp%d", i);
                        snprintf(namebuf, namebuflen, "/dev/ttyp%d", i);
                        *ptyfd = open(buf, O_RDWR | O_NOCTTY);
                        if (*ptyfd < 0)
                                continue;
                }

                /* Open the slave side. */
                *ttyfd = open(namebuf, O_RDWR | O_NOCTTY);
                if (*ttyfd < 0) {
                        error("%.100s: %.100s", namebuf, strerror(errno));
                        close(*ptyfd);
                        return 0;
                }
                /* set tty modes to a sane state for broken clients */
                if (tcgetattr(*ptyfd, &tio) < 0)
                        log("Getting tty modes for pty failed: %.100s", strerror(errno));
                else {
                        tio.c_lflag |= (ECHO | ISIG | ICANON);
                        tio.c_oflag |= (OPOST | ONLCR);
                        tio.c_iflag |= ICRNL;

                        /* Set the new modes for the terminal. */
                        if (tcsetattr(*ptyfd, TCSANOW, &tio) < 0)
                                log("Setting tty modes for pty failed: %.100s", strerror(errno));
                }

                return 1;
        }
        return 0;
#endif /* CRAY */
#endif /* HAVE_DEV_PTS_AND_PTC */
#endif /* HAVE_DEV_PTMX */
#endif /* HAVE__GETPTY */
#endif /* HAVE_OPENPTY */
}

/* Releases the tty.  Its ownership is returned to root, and permissions to 0666. */

void
pty_release(const char *ttyname)
{
        if (chown(ttyname, (uid_t) 0, (gid_t) 0) < 0)
                error("chown %.100s 0 0 failed: %.100s", ttyname, strerror(errno));
        if (chmod(ttyname, (mode_t) 0666) < 0)
                error("chmod %.100s 0666 failed: %.100s", ttyname, strerror(errno));
}

/* Makes the tty the processes controlling tty and sets it to sane modes. */

void
pty_make_controlling_tty(int *ttyfd, const char *ttyname)
{
        int fd;
#ifdef USE_VHANGUP
        void *old;
#endif /* USE_VHANGUP */

#ifdef _CRAY
        if (setsid() < 0)
                error("setsid: %.100s", strerror(errno));

        fd = open(ttyname, O_RDWR|O_NOCTTY);
        if (fd != -1) {
                mysignal(SIGHUP, SIG_IGN);
                ioctl(fd, TCVHUP, (char *)NULL);
                mysignal(SIGHUP, SIG_DFL);
                setpgid(0, 0);
                close(fd);
        } else {
                error("Failed to disconnect from controlling tty.");
        }

        debug("Setting controlling tty using TCSETCTTY.");
        ioctl(*ttyfd, TCSETCTTY, NULL);
        fd = open("/dev/tty", O_RDWR);
        if (fd < 0)
                error("%.100s: %.100s", ttyname, strerror(errno));
        close(*ttyfd);
        *ttyfd = fd;
#else /* _CRAY */

        /* First disconnect from the old controlling tty. */
#ifdef TIOCNOTTY
        fd = open(_PATH_TTY, O_RDWR | O_NOCTTY);
        if (fd >= 0) {
                (void) ioctl(fd, TIOCNOTTY, NULL);
                close(fd);
        }
#endif /* TIOCNOTTY */
        if (setsid() < 0)
                error("setsid: %.100s", strerror(errno));

        /*
         * Verify that we are successfully disconnected from the controlling
         * tty.
         */
        fd = open(_PATH_TTY, O_RDWR | O_NOCTTY);
        if (fd >= 0) {
                error("Failed to disconnect from controlling tty.");
                close(fd);
        }
        /* Make it our controlling tty. */
#ifdef TIOCSCTTY
        debug("Setting controlling tty using TIOCSCTTY.");
        if (ioctl(*ttyfd, TIOCSCTTY, NULL) < 0)
                error("ioctl(TIOCSCTTY): %.100s", strerror(errno));
#endif /* TIOCSCTTY */
#ifdef HAVE_NEWS4
        if (setpgrp(0,0) < 0)
                error("SETPGRP %s",strerror(errno));
#endif /* HAVE_NEWS4 */
#ifdef USE_VHANGUP
        old = mysignal(SIGHUP, SIG_IGN);
        vhangup();
        mysignal(SIGHUP, old);
#endif /* USE_VHANGUP */
        fd = open(ttyname, O_RDWR);
        if (fd < 0) {
                error("%.100s: %.100s", ttyname, strerror(errno));
        } else {
#ifdef USE_VHANGUP
                close(*ttyfd);
                *ttyfd = fd;
#else /* USE_VHANGUP */
                close(fd);
#endif /* USE_VHANGUP */
        }
        /* Verify that we now have a controlling tty. */
        fd = open(_PATH_TTY, O_WRONLY);
        if (fd < 0)
                error("open /dev/tty failed - could not set controlling tty: %.100s",
                    strerror(errno));
        else {
                close(fd);
        }
#endif /* _CRAY */
}

#if 0 /* not in BasiliskII */
/* Changes the window size associated with the pty. */

void
pty_change_window_size(int ptyfd, int row, int col,
        int xpixel, int ypixel)
{
        struct winsize w;
        w.ws_row = row;
        w.ws_col = col;
        w.ws_xpixel = xpixel;
        w.ws_ypixel = ypixel;
        (void) ioctl(ptyfd, TIOCSWINSZ, &w);
}

void
pty_setowner(struct passwd *pw, const char *ttyname)
{
        struct group *grp;
        gid_t gid;
        mode_t mode;
        struct stat st;

        /* Determine the group to make the owner of the tty. */
        grp = getgrnam("tty");
        if (grp) {
                gid = grp->gr_gid;
                mode = S_IRUSR | S_IWUSR | S_IWGRP;
        } else {
                gid = pw->pw_gid;
                mode = S_IRUSR | S_IWUSR | S_IWGRP | S_IWOTH;
        }

        /*
         * Change owner and mode of the tty as required.
         * Warn but continue if filesystem is read-only and the uids match/
         * tty is owned by root.
         */
        if (stat(ttyname, &st))
                fatal("stat(%.100s) failed: %.100s", ttyname,
                    strerror(errno));

        if (st.st_uid != pw->pw_uid || st.st_gid != gid) {
                if (chown(ttyname, pw->pw_uid, gid) < 0) {
                        if (errno == EROFS &&
                           (st.st_uid == pw->pw_uid || st.st_uid == 0))
                                error("chown(%.100s, %d, %d) failed: %.100s",
                                    ttyname, pw->pw_uid, gid,
                                    strerror(errno));
                        else
                                fatal("chown(%.100s, %d, %d) failed: %.100s",
                                    ttyname, pw->pw_uid, gid,
                                    strerror(errno));
                }
        }

        if ((st.st_mode & (S_IRWXU|S_IRWXG|S_IRWXO)) != mode) {
                if (chmod(ttyname, mode) < 0) {
                        if (errno == EROFS &&
                            (st.st_mode & (S_IRGRP | S_IROTH)) == 0)
                                error("chmod(%.100s, 0%o) failed: %.100s",
                                    ttyname, mode, strerror(errno));
                        else
                                fatal("chmod(%.100s, 0%o) failed: %.100s",
                                    ttyname, mode, strerror(errno));
                }
        }
}
#endif /* not in BasiliskII */
Revision:	1.1
Committed:	2002-07-31T16:46:14Z (22 years, 3 months ago) by cebix
Content type:	text/plain
Branch:	MAIN
CVS Tags:	nigel-build-12, nigel-build-13
Log Message:	- it is now possible to make the serial drivers pipe their input/output to programs by using a '\|' followed by a command line as the modem or printer port setting (instead of a device name like '/dev/ttyS0') [Brian Johnson] - the option "--config FILE" tells B2 to use a different config file
#	User	Rev	Content
1	cebix	1.1	/*
2			* Author: Tatu Ylonen <ylo@cs.hut.fi>
3			* Copyright (c) 1995 Tatu Ylonen <ylo@cs.hut.fi>, Espoo, Finland
4			* All rights reserved
5			* Allocating a pseudo-terminal, and making it the controlling tty.
6			*
7			* As far as I am concerned, the code I have written for this software
8			* can be used freely for any purpose. Any derived versions of this
9			* software must be clearly marked as such, and if the derived work is
10			* incompatible with the protocol description in the RFC file, it must be
11			* called by a name other than "ssh" or "Secure Shell".
12			*/
13
14			#if 0 /* not in BasiliskII */
15			#include "includes.h"
16			RCSID("$OpenBSD: sshpty.c,v 1.4 2001/12/19 07:18:56 deraadt Exp $");
17			#else /* not in BasiliskII */
18			/* Selections from openssh's "includes.h" */
19			#include "config.h"
20
21			#include <stdio.h>
22			#include <ctype.h>
23			#include <errno.h>
24			#include <fcntl.h> /* For O_NONBLOCK */
25			#include <stdlib.h>
26			#include <string.h>
27			#include <pwd.h>
28
29			#include <unistd.h> /* For STDIN_FILENO, etc */
30			#include <termios.h> /* Struct winsize */
31
32			/*
33			--nto-qnx needs these headers for strcasecmp and LASTLOG_FILE respectively
34			*/
35			#ifdef HAVE_STRINGS_H
36			# include <strings.h>
37			#endif
38			#ifdef HAVE_LOGIN_H
39			# include <login.h>
40			#endif
41
42			#include <sys/ioctl.h>
43
44			#ifdef HAVE_SYS_BSDTTY_H
45			# include <sys/bsdtty.h>
46			#endif
47
48			#ifdef HAVE_SYS_STAT_H
49			# include <sys/stat.h> /* For S_* constants and macros */
50			#endif
51
52			#ifndef _PATH_TTY
53			# define _PATH_TTY "/dev/tty"
54			#endif
55
56			#include "strlcpy.h"
57
58			#define debug(x) ;
59
60			#endif /* not in BasiliskII */
61
62			#ifdef HAVE_UTIL_H
63			# include <util.h>
64			#endif /* HAVE_UTIL_H */
65
66			#include "sshpty.h"
67			#if 0 /* not in BasiliskII */
68			#include "log.h"
69			#include "misc.h"
70			#else /* stubs for BasiliskII */
71			#define error printf
72			#define fatal(x) {printf("Fatal error: %s", x); return 0}
73			#endif /* not in BasiliskII */
74
75			/* Pty allocated with _getpty gets broken if we do I_PUSH:es to it. */
76			#if defined(HAVE__GETPTY) \|\| defined(HAVE_OPENPTY)
77			#undef HAVE_DEV_PTMX
78			#endif
79
80			#ifdef HAVE_PTY_H
81			# include <pty.h>
82			#endif
83			#if defined(HAVE_DEV_PTMX) && defined(HAVE_SYS_STROPTS_H)
84			# include <sys/stropts.h>
85			#endif
86
87			#ifndef O_NOCTTY
88			#define O_NOCTTY 0
89			#endif
90
91			/*
92			* Allocates and opens a pty. Returns 0 if no pty could be allocated, or
93			* nonzero if a pty was successfully allocated. On success, open file
94			* descriptors for the pty and tty sides and the name of the tty side are
95			* returned (the buffer must be able to hold at least 64 characters).
96			*/
97
98			int
99			pty_allocate(int ptyfd, int ttyfd, char *namebuf, int namebuflen)
100			{
101			#if defined(HAVE_OPENPTY) \|\| defined(BSD4_4)
102			/* openpty(3) exists in OSF/1 and some other os'es */
103			char *name;
104			int i;
105
106			i = openpty(ptyfd, ttyfd, NULL, NULL, NULL);
107			if (i < 0) {
108			error("openpty: %.100s", strerror(errno));
109			return 0;
110			}
111			name = ttyname(*ttyfd);
112			if (!name)
113			fatal("openpty returns device for which ttyname fails.");
114
115			strlcpy(namebuf, name, namebuflen); /* possible truncation */
116			return 1;
117			#else /* HAVE_OPENPTY */
118			#ifdef HAVE__GETPTY
119			/*
120			* _getpty(3) exists in SGI Irix 4.x, 5.x & 6.x -- it generates more
121			* pty's automagically when needed
122			*/
123			char *slave;
124
125			slave = _getpty(ptyfd, O_RDWR, 0622, 0);
126			if (slave == NULL) {
127			error("_getpty: %.100s", strerror(errno));
128			return 0;
129			}
130			strlcpy(namebuf, slave, namebuflen);
131			/* Open the slave side. */
132			*ttyfd = open(namebuf, O_RDWR \| O_NOCTTY);
133			if (*ttyfd < 0) {
134			error("%.200s: %.100s", namebuf, strerror(errno));
135			close(*ptyfd);
136			return 0;
137			}
138			return 1;
139			#else /* HAVE__GETPTY */
140			#if defined(HAVE_DEV_PTMX)
141			/*
142			* This code is used e.g. on Solaris 2.x. (Note that Solaris 2.3
143			* also has bsd-style ptys, but they simply do not work.)
144			*/
145			int ptm;
146			char *pts;
147			mysig_t old_signal;
148
149			ptm = open("/dev/ptmx", O_RDWR \| O_NOCTTY);
150			if (ptm < 0) {
151			error("/dev/ptmx: %.100s", strerror(errno));
152			return 0;
153			}
154			old_signal = mysignal(SIGCHLD, SIG_DFL);
155			if (grantpt(ptm) < 0) {
156			error("grantpt: %.100s", strerror(errno));
157			return 0;
158			}
159			mysignal(SIGCHLD, old_signal);
160			if (unlockpt(ptm) < 0) {
161			error("unlockpt: %.100s", strerror(errno));
162			return 0;
163			}
164			pts = ptsname(ptm);
165			if (pts == NULL)
166			error("Slave pty side name could not be obtained.");
167			strlcpy(namebuf, pts, namebuflen);
168			*ptyfd = ptm;
169
170			/* Open the slave side. */
171			*ttyfd = open(namebuf, O_RDWR \| O_NOCTTY);
172			if (*ttyfd < 0) {
173			error("%.100s: %.100s", namebuf, strerror(errno));
174			close(*ptyfd);
175			return 0;
176			}
177			#ifndef HAVE_CYGWIN
178			/*
179			* Push the appropriate streams modules, as described in Solaris pts(7).
180			* HP-UX pts(7) doesn't have ttcompat module.
181			*/
182			if (ioctl(*ttyfd, I_PUSH, "ptem") < 0)
183			error("ioctl I_PUSH ptem: %.100s", strerror(errno));
184			if (ioctl(*ttyfd, I_PUSH, "ldterm") < 0)
185			error("ioctl I_PUSH ldterm: %.100s", strerror(errno));
186			#ifndef __hpux
187			if (ioctl(*ttyfd, I_PUSH, "ttcompat") < 0)
188			error("ioctl I_PUSH ttcompat: %.100s", strerror(errno));
189			#endif
190			#endif
191			return 1;
192			#else /* HAVE_DEV_PTMX */
193			#ifdef HAVE_DEV_PTS_AND_PTC
194			/* AIX-style pty code. */
195			const char *name;
196
197			*ptyfd = open("/dev/ptc", O_RDWR \| O_NOCTTY);
198			if (*ptyfd < 0) {
199			error("Could not open /dev/ptc: %.100s", strerror(errno));
200			return 0;
201			}
202			name = ttyname(*ptyfd);
203			if (!name)
204			fatal("Open of /dev/ptc returns device for which ttyname fails.");
205			strlcpy(namebuf, name, namebuflen);
206			*ttyfd = open(name, O_RDWR \| O_NOCTTY);
207			if (*ttyfd < 0) {
208			error("Could not open pty slave side %.100s: %.100s",
209			name, strerror(errno));
210			close(*ptyfd);
211			return 0;
212			}
213			return 1;
214			#else /* HAVE_DEV_PTS_AND_PTC */
215			#ifdef _CRAY
216			char buf[64];
217			int i;
218			int highpty;
219
220			#ifdef _SC_CRAY_NPTY
221			highpty = sysconf(_SC_CRAY_NPTY);
222			if (highpty == -1)
223			highpty = 128;
224			#else
225			highpty = 128;
226			#endif
227
228			for (i = 0; i < highpty; i++) {
229			snprintf(buf, sizeof(buf), "/dev/pty/%03d", i);
230			*ptyfd = open(buf, O_RDWR\|O_NOCTTY);
231			if (*ptyfd < 0)
232			continue;
233			snprintf(namebuf, namebuflen, "/dev/ttyp%03d", i);
234			/* Open the slave side. */
235			*ttyfd = open(namebuf, O_RDWR\|O_NOCTTY);
236			if (*ttyfd < 0) {
237			error("%.100s: %.100s", namebuf, strerror(errno));
238			close(*ptyfd);
239			return 0;
240			}
241			return 1;
242			}
243			return 0;
244			#else
245			/* BSD-style pty code. */
246			char buf[64];
247			int i;
248			const char *ptymajors = "pqrstuvwxyzabcdefghijklmnoABCDEFGHIJKLMNOPQRSTUVWXYZ";
249			const char *ptyminors = "0123456789abcdef";
250			int num_minors = strlen(ptyminors);
251			int num_ptys = strlen(ptymajors) * num_minors;
252			struct termios tio;
253
254			for (i = 0; i < num_ptys; i++) {
255			snprintf(buf, sizeof buf, "/dev/pty%c%c", ptymajors[i / num_minors],
256			ptyminors[i % num_minors]);
257			snprintf(namebuf, namebuflen, "/dev/tty%c%c",
258			ptymajors[i / num_minors], ptyminors[i % num_minors]);
259
260			*ptyfd = open(buf, O_RDWR \| O_NOCTTY);
261			if (*ptyfd < 0) {
262			/* Try SCO style naming */
263			snprintf(buf, sizeof buf, "/dev/ptyp%d", i);
264			snprintf(namebuf, namebuflen, "/dev/ttyp%d", i);
265			*ptyfd = open(buf, O_RDWR \| O_NOCTTY);
266			if (*ptyfd < 0)
267			continue;
268			}
269
270			/* Open the slave side. */
271			*ttyfd = open(namebuf, O_RDWR \| O_NOCTTY);
272			if (*ttyfd < 0) {
273			error("%.100s: %.100s", namebuf, strerror(errno));
274			close(*ptyfd);
275			return 0;
276			}
277			/* set tty modes to a sane state for broken clients */
278			if (tcgetattr(*ptyfd, &tio) < 0)
279			log("Getting tty modes for pty failed: %.100s", strerror(errno));
280			else {
281			tio.c_lflag \|= (ECHO \| ISIG \| ICANON);
282			tio.c_oflag \|= (OPOST \| ONLCR);
283			tio.c_iflag \|= ICRNL;
284
285			/* Set the new modes for the terminal. */
286			if (tcsetattr(*ptyfd, TCSANOW, &tio) < 0)
287			log("Setting tty modes for pty failed: %.100s", strerror(errno));
288			}
289
290			return 1;
291			}
292			return 0;
293			#endif /* CRAY */
294			#endif /* HAVE_DEV_PTS_AND_PTC */
295			#endif /* HAVE_DEV_PTMX */
296			#endif /* HAVE__GETPTY */
297			#endif /* HAVE_OPENPTY */
298			}
299
300			/* Releases the tty. Its ownership is returned to root, and permissions to 0666. */
301
302			void
303			pty_release(const char *ttyname)
304			{
305			if (chown(ttyname, (uid_t) 0, (gid_t) 0) < 0)
306			error("chown %.100s 0 0 failed: %.100s", ttyname, strerror(errno));
307			if (chmod(ttyname, (mode_t) 0666) < 0)
308			error("chmod %.100s 0666 failed: %.100s", ttyname, strerror(errno));
309			}
310
311			/* Makes the tty the processes controlling tty and sets it to sane modes. */
312
313			void
314			pty_make_controlling_tty(int ttyfd, const char ttyname)
315			{
316			int fd;
317			#ifdef USE_VHANGUP
318			void *old;
319			#endif /* USE_VHANGUP */
320
321			#ifdef _CRAY
322			if (setsid() < 0)
323			error("setsid: %.100s", strerror(errno));
324
325			fd = open(ttyname, O_RDWR\|O_NOCTTY);
326			if (fd != -1) {
327			mysignal(SIGHUP, SIG_IGN);
328			ioctl(fd, TCVHUP, (char *)NULL);
329			mysignal(SIGHUP, SIG_DFL);
330			setpgid(0, 0);
331			close(fd);
332			} else {
333			error("Failed to disconnect from controlling tty.");
334			}
335
336			debug("Setting controlling tty using TCSETCTTY.");
337			ioctl(*ttyfd, TCSETCTTY, NULL);
338			fd = open("/dev/tty", O_RDWR);
339			if (fd < 0)
340			error("%.100s: %.100s", ttyname, strerror(errno));
341			close(*ttyfd);
342			*ttyfd = fd;
343			#else /* _CRAY */
344
345			/* First disconnect from the old controlling tty. */
346			#ifdef TIOCNOTTY
347			fd = open(_PATH_TTY, O_RDWR \| O_NOCTTY);
348			if (fd >= 0) {
349			(void) ioctl(fd, TIOCNOTTY, NULL);
350			close(fd);
351			}
352			#endif /* TIOCNOTTY */
353			if (setsid() < 0)
354			error("setsid: %.100s", strerror(errno));
355
356			/*
357			* Verify that we are successfully disconnected from the controlling
358			* tty.
359			*/
360			fd = open(_PATH_TTY, O_RDWR \| O_NOCTTY);
361			if (fd >= 0) {
362			error("Failed to disconnect from controlling tty.");
363			close(fd);
364			}
365			/* Make it our controlling tty. */
366			#ifdef TIOCSCTTY
367			debug("Setting controlling tty using TIOCSCTTY.");
368			if (ioctl(*ttyfd, TIOCSCTTY, NULL) < 0)
369			error("ioctl(TIOCSCTTY): %.100s", strerror(errno));
370			#endif /* TIOCSCTTY */
371			#ifdef HAVE_NEWS4
372			if (setpgrp(0,0) < 0)
373			error("SETPGRP %s",strerror(errno));
374			#endif /* HAVE_NEWS4 */
375			#ifdef USE_VHANGUP
376			old = mysignal(SIGHUP, SIG_IGN);
377			vhangup();
378			mysignal(SIGHUP, old);
379			#endif /* USE_VHANGUP */
380			fd = open(ttyname, O_RDWR);
381			if (fd < 0) {
382			error("%.100s: %.100s", ttyname, strerror(errno));
383			} else {
384			#ifdef USE_VHANGUP
385			close(*ttyfd);
386			*ttyfd = fd;
387			#else /* USE_VHANGUP */
388			close(fd);
389			#endif /* USE_VHANGUP */
390			}
391			/* Verify that we now have a controlling tty. */
392			fd = open(_PATH_TTY, O_WRONLY);
393			if (fd < 0)
394			error("open /dev/tty failed - could not set controlling tty: %.100s",
395			strerror(errno));
396			else {
397			close(fd);
398			}
399			#endif /* _CRAY */
400			}
401
402			#if 0 /* not in BasiliskII */
403			/* Changes the window size associated with the pty. */
404
405			void
406			pty_change_window_size(int ptyfd, int row, int col,
407			int xpixel, int ypixel)
408			{
409			struct winsize w;
410			w.ws_row = row;
411			w.ws_col = col;
412			w.ws_xpixel = xpixel;
413			w.ws_ypixel = ypixel;
414			(void) ioctl(ptyfd, TIOCSWINSZ, &w);
415			}
416
417			void
418			pty_setowner(struct passwd pw, const char ttyname)
419			{
420			struct group *grp;
421			gid_t gid;
422			mode_t mode;
423			struct stat st;
424
425			/* Determine the group to make the owner of the tty. */
426			grp = getgrnam("tty");
427			if (grp) {
428			gid = grp->gr_gid;
429			mode = S_IRUSR \| S_IWUSR \| S_IWGRP;
430			} else {
431			gid = pw->pw_gid;
432			mode = S_IRUSR \| S_IWUSR \| S_IWGRP \| S_IWOTH;
433			}
434
435			/*
436			* Change owner and mode of the tty as required.
437			* Warn but continue if filesystem is read-only and the uids match/
438			* tty is owned by root.
439			*/
440			if (stat(ttyname, &st))
441			fatal("stat(%.100s) failed: %.100s", ttyname,
442			strerror(errno));
443
444			if (st.st_uid != pw->pw_uid \|\| st.st_gid != gid) {
445			if (chown(ttyname, pw->pw_uid, gid) < 0) {
446			if (errno == EROFS &&
447			(st.st_uid == pw->pw_uid \|\| st.st_uid == 0))
448			error("chown(%.100s, %d, %d) failed: %.100s",
449			ttyname, pw->pw_uid, gid,
450			strerror(errno));
451			else
452			fatal("chown(%.100s, %d, %d) failed: %.100s",
453			ttyname, pw->pw_uid, gid,
454			strerror(errno));
455			}
456			}
457
458			if ((st.st_mode & (S_IRWXU\|S_IRWXG\|S_IRWXO)) != mode) {
459			if (chmod(ttyname, mode) < 0) {
460			if (errno == EROFS &&
461			(st.st_mode & (S_IRGRP \| S_IROTH)) == 0)
462			error("chmod(%.100s, 0%o) failed: %.100s",
463			ttyname, mode, strerror(errno));
464			else
465			fatal("chmod(%.100s, 0%o) failed: %.100s",
466			ttyname, mode, strerror(errno));
467			}
468			}
469			}
470			#endif /* not in BasiliskII */