[openssh.git] / openbsd-compat / bsd-openpty.c

/*
 * Please note: this implementation of openpty() is far from complete.
 * it is just enough for portable OpenSSH's needs.
 */

/*
 * Copyright (c) 2004 Damien Miller <djm@mindrot.org>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

/*
 * 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".
 */

#include "includes.h"
#if !defined(HAVE_OPENPTY)

#include <sys/types.h>

#include <stdlib.h>

#ifdef HAVE_SYS_STAT_H
# include <sys/stat.h>
#endif
#ifdef HAVE_SYS_IOCTL_H
# include <sys/ioctl.h>
#endif

#ifdef HAVE_FCNTL_H
# include <fcntl.h>
#endif

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

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

#include <signal.h>
#include <string.h>
#include <unistd.h>

#ifndef O_NOCTTY
#define O_NOCTTY 0
#endif

int
openpty(int *amaster, int *aslave, char *name, struct termios *termp,
   struct winsize *winp)
{
#if defined(HAVE__GETPTY)
	/*
	 * _getpty(3) exists in SGI Irix 4.x, 5.x & 6.x -- it generates more
	 * pty's automagically when needed
	 */
	char *slave;

	if ((slave = _getpty(amaster, O_RDWR, 0622, 0)) == NULL)
		return (-1);

	/* Open the slave side. */
	if ((*aslave = open(slave, O_RDWR | O_NOCTTY)) == -1) {
		close(*amaster);
		return (-1);
	}
	return (0);

#elif 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;

	if ((ptm = open("/dev/ptmx", O_RDWR | O_NOCTTY)) == -1)
		return (-1);

	/* XXX: need to close ptm on error? */
	old_signal = signal(SIGCHLD, SIG_DFL);
	if (grantpt(ptm) < 0)
		return (-1);
	signal(SIGCHLD, old_signal);

	if (unlockpt(ptm) < 0)
		return (-1);

	if ((pts = ptsname(ptm)) == NULL)
		return (-1);
	*amaster = ptm;

	/* Open the slave side. */
	if ((*aslave = open(pts, O_RDWR | O_NOCTTY)) == -1) {
		close(*amaster);
		return (-1);
	}

	/*
	 * Try to push the appropriate streams modules, as described 
	 * in Solaris pts(7).
	 */
	ioctl(*aslave, I_PUSH, "ptem");
	ioctl(*aslave, I_PUSH, "ldterm");
# ifndef __hpux
	ioctl(*aslave, I_PUSH, "ttcompat");
# endif /* __hpux */

	return (0);

#elif defined(HAVE_DEV_PTS_AND_PTC)
	/* AIX-style pty code. */
	const char *ttname;

	if ((*amaster = open("/dev/ptc", O_RDWR | O_NOCTTY)) == -1)
		return (-1);
	if ((ttname = ttyname(*amaster)) == NULL)
		return (-1);
	if ((*aslave = open(ttname, O_RDWR | O_NOCTTY)) == -1) {
		close(*amaster);
		return (-1);
	}
	return (0);

#elif defined(_UNICOS)
	char ptbuf[64], ttbuf[64];
	int i;
	int highpty;

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

	for (i = 0; i < highpty; i++) {
		snprintf(ptbuf, sizeof(ptbuf), "/dev/pty/%03d", i);
		snprintf(ttbuf, sizeof(ttbuf), "/dev/ttyp%03d", i);
		if ((*amaster = open(ptbuf, O_RDWR|O_NOCTTY)) == -1)
			continue;
		/* Open the slave side. */
		if ((*aslave = open(ttbuf, O_RDWR|O_NOCTTY)) == -1) {
			close(*amaster);
			return (-1);
		}
		return (0);
	}
	return (-1);

#else
	/* BSD-style pty code. */
	char ptbuf[64], ttbuf[64];
	int i;
	const char *ptymajors = "pqrstuvwxyzabcdefghijklmno"
	    "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
	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(ptbuf, sizeof(ptbuf), "/dev/pty%c%c", 
		    ptymajors[i / num_minors], ptyminors[i % num_minors]);
		snprintf(ttbuf, sizeof(ttbuf), "/dev/tty%c%c",
		    ptymajors[i / num_minors], ptyminors[i % num_minors]);

		if ((*amaster = open(ptbuf, O_RDWR | O_NOCTTY)) == -1) {
			/* Try SCO style naming */
			snprintf(ptbuf, sizeof(ptbuf), "/dev/ptyp%d", i);
			snprintf(ttbuf, sizeof(ttbuf), "/dev/ttyp%d", i);
			if ((*amaster = open(ptbuf, O_RDWR | O_NOCTTY)) == -1)
				continue;
		}

		/* Open the slave side. */
		if ((*aslave = open(ttbuf, O_RDWR | O_NOCTTY)) == -1) {
			close(*amaster);
			return (-1);
		}
		/* set tty modes to a sane state for broken clients */
		if (tcgetattr(*amaster, &tio) != -1) {
			tio.c_lflag |= (ECHO | ISIG | ICANON);
			tio.c_oflag |= (OPOST | ONLCR);
			tio.c_iflag |= ICRNL;
			tcsetattr(*amaster, TCSANOW, &tio);
		}

		return (0);
	}
	return (-1);
#endif
}

#endif /* !defined(HAVE_OPENPTY) */
Commit	Line	Data
a4de1163	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	/*
9cd11896	7	* Copyright (c) 2004 Damien Miller <djm@mindrot.org>
a4de1163	8	*
9cd11896	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.
a4de1163	12	*
9cd11896	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.
a4de1163	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
37259a8e	38	#include <sys/types.h>
37259a8e	39
442a6515	40	#include <stdlib.h>
442a6515	41
37259a8e	42	#ifdef HAVE_SYS_STAT_H
	43	# include <sys/stat.h>
	44	#endif
6beea87c	45	#ifdef HAVE_SYS_IOCTL_H
	46	# include <sys/ioctl.h>
	47	#endif
37259a8e	48
	49	#ifdef HAVE_FCNTL_H
	50	# include <fcntl.h>
	51	#endif
	52
a4de1163	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
b5b88c19	64	#include <signal.h>
e204f3ee	65	#include <string.h>
e204f3ee	66	#include <unistd.h>
b5b88c19	67
a4de1163	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
a4de1163	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 */
a4de1163	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);
6e9f4c0f	163	snprintf(ttbuf, sizeof(ttbuf), "/dev/ttyp%03d", i);
a4de1163	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