xref: /freebsd/crypto/openssh/openbsd-compat/bsd-openpty.c (revision 59e2ff550c448126b988150ce800cdf73bb5103e)
1 /*
2  * Please note: this implementation of openpty() is far from complete.
3  * it is just enough for portable OpenSSH's needs.
4  */
5 
6 /*
7  * Copyright (c) 2004 Damien Miller <djm@mindrot.org>
8  *
9  * Permission to use, copy, modify, and distribute this software for any
10  * purpose with or without fee is hereby granted, provided that the above
11  * copyright notice and this permission notice appear in all copies.
12  *
13  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
14  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
15  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
16  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
17  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
18  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
19  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
20  */
21 
22 /*
23  * Author: Tatu Ylonen <ylo@cs.hut.fi>
24  * Copyright (c) 1995 Tatu Ylonen <ylo@cs.hut.fi>, Espoo, Finland
25  *                    All rights reserved
26  * Allocating a pseudo-terminal, and making it the controlling tty.
27  *
28  * As far as I am concerned, the code I have written for this software
29  * can be used freely for any purpose.  Any derived versions of this
30  * software must be clearly marked as such, and if the derived work is
31  * incompatible with the protocol description in the RFC file, it must be
32  * called by a name other than "ssh" or "Secure Shell".
33  */
34 
35 #include "includes.h"
36 #if !defined(HAVE_OPENPTY)
37 
38 #include <sys/types.h>
39 
40 #include <stdlib.h>
41 
42 #ifdef HAVE_SYS_STAT_H
43 # include <sys/stat.h>
44 #endif
45 #ifdef HAVE_SYS_IOCTL_H
46 # include <sys/ioctl.h>
47 #endif
48 
49 #ifdef HAVE_FCNTL_H
50 # include <fcntl.h>
51 #endif
52 
53 #ifdef HAVE_UTIL_H
54 # include <util.h>
55 #endif /* HAVE_UTIL_H */
56 
57 #ifdef HAVE_PTY_H
58 # include <pty.h>
59 #endif
60 #if defined(HAVE_DEV_PTMX) && defined(HAVE_SYS_STROPTS_H)
61 # include <sys/stropts.h>
62 #endif
63 
64 #include <signal.h>
65 #include <string.h>
66 #include <unistd.h>
67 
68 #ifndef O_NOCTTY
69 #define O_NOCTTY 0
70 #endif
71 
72 int
73 openpty(int *amaster, int *aslave, char *name, struct termios *termp,
74    struct winsize *winp)
75 {
76 #if defined(HAVE__GETPTY)
77 	/*
78 	 * _getpty(3) exists in SGI Irix 4.x, 5.x & 6.x -- it generates more
79 	 * pty's automagically when needed
80 	 */
81 	char *slave;
82 
83 	if ((slave = _getpty(amaster, O_RDWR, 0622, 0)) == NULL)
84 		return (-1);
85 
86 	/* Open the slave side. */
87 	if ((*aslave = open(slave, O_RDWR | O_NOCTTY)) == -1) {
88 		close(*amaster);
89 		return (-1);
90 	}
91 	return (0);
92 
93 #elif defined(HAVE_DEV_PTMX)
94 	/*
95 	 * This code is used e.g. on Solaris 2.x.  (Note that Solaris 2.3
96 	 * also has bsd-style ptys, but they simply do not work.)
97 	 */
98 	int ptm;
99 	char *pts;
100 	mysig_t old_signal;
101 
102 	if ((ptm = open("/dev/ptmx", O_RDWR | O_NOCTTY)) == -1)
103 		return (-1);
104 
105 	/* XXX: need to close ptm on error? */
106 	old_signal = signal(SIGCHLD, SIG_DFL);
107 	if (grantpt(ptm) < 0)
108 		return (-1);
109 	signal(SIGCHLD, old_signal);
110 
111 	if (unlockpt(ptm) < 0)
112 		return (-1);
113 
114 	if ((pts = ptsname(ptm)) == NULL)
115 		return (-1);
116 	*amaster = ptm;
117 
118 	/* Open the slave side. */
119 	if ((*aslave = open(pts, O_RDWR | O_NOCTTY)) == -1) {
120 		close(*amaster);
121 		return (-1);
122 	}
123 
124 	/*
125 	 * Try to push the appropriate streams modules, as described
126 	 * in Solaris pts(7).
127 	 */
128 	ioctl(*aslave, I_PUSH, "ptem");
129 	ioctl(*aslave, I_PUSH, "ldterm");
130 # ifndef __hpux
131 	ioctl(*aslave, I_PUSH, "ttcompat");
132 # endif /* __hpux */
133 
134 	return (0);
135 
136 #elif defined(HAVE_DEV_PTS_AND_PTC)
137 	/* AIX-style pty code. */
138 	const char *ttname;
139 
140 	if ((*amaster = open("/dev/ptc", O_RDWR | O_NOCTTY)) == -1)
141 		return (-1);
142 	if ((ttname = ttyname(*amaster)) == NULL)
143 		return (-1);
144 	if ((*aslave = open(ttname, O_RDWR | O_NOCTTY)) == -1) {
145 		close(*amaster);
146 		return (-1);
147 	}
148 	return (0);
149 
150 #elif defined(_UNICOS)
151 	char ptbuf[64], ttbuf[64];
152 	int i;
153 	int highpty;
154 
155 	highpty = 128;
156 #ifdef _SC_CRAY_NPTY
157 	if ((highpty = sysconf(_SC_CRAY_NPTY)) == -1)
158 		highpty = 128;
159 #endif /* _SC_CRAY_NPTY */
160 
161 	for (i = 0; i < highpty; i++) {
162 		snprintf(ptbuf, sizeof(ptbuf), "/dev/pty/%03d", i);
163 		snprintf(ttbuf, sizeof(ttbuf), "/dev/ttyp%03d", i);
164 		if ((*amaster = open(ptbuf, O_RDWR|O_NOCTTY)) == -1)
165 			continue;
166 		/* Open the slave side. */
167 		if ((*aslave = open(ttbuf, O_RDWR|O_NOCTTY)) == -1) {
168 			close(*amaster);
169 			return (-1);
170 		}
171 		return (0);
172 	}
173 	return (-1);
174 
175 #else
176 	/* BSD-style pty code. */
177 	char ptbuf[64], ttbuf[64];
178 	int i;
179 	const char *ptymajors = "pqrstuvwxyzabcdefghijklmno"
180 	    "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
181 	const char *ptyminors = "0123456789abcdef";
182 	int num_minors = strlen(ptyminors);
183 	int num_ptys = strlen(ptymajors) * num_minors;
184 	struct termios tio;
185 
186 	for (i = 0; i < num_ptys; i++) {
187 		snprintf(ptbuf, sizeof(ptbuf), "/dev/pty%c%c",
188 		    ptymajors[i / num_minors], ptyminors[i % num_minors]);
189 		snprintf(ttbuf, sizeof(ttbuf), "/dev/tty%c%c",
190 		    ptymajors[i / num_minors], ptyminors[i % num_minors]);
191 
192 		if ((*amaster = open(ptbuf, O_RDWR | O_NOCTTY)) == -1) {
193 			/* Try SCO style naming */
194 			snprintf(ptbuf, sizeof(ptbuf), "/dev/ptyp%d", i);
195 			snprintf(ttbuf, sizeof(ttbuf), "/dev/ttyp%d", i);
196 			if ((*amaster = open(ptbuf, O_RDWR | O_NOCTTY)) == -1)
197 				continue;
198 		}
199 
200 		/* Open the slave side. */
201 		if ((*aslave = open(ttbuf, O_RDWR | O_NOCTTY)) == -1) {
202 			close(*amaster);
203 			return (-1);
204 		}
205 		/* set tty modes to a sane state for broken clients */
206 		if (tcgetattr(*amaster, &tio) != -1) {
207 			tio.c_lflag |= (ECHO | ISIG | ICANON);
208 			tio.c_oflag |= (OPOST | ONLCR);
209 			tio.c_iflag |= ICRNL;
210 			tcsetattr(*amaster, TCSANOW, &tio);
211 		}
212 
213 		return (0);
214 	}
215 	return (-1);
216 #endif
217 }
218 
219 #endif /* !defined(HAVE_OPENPTY) */
220 
221