Home | History | Annotate | Line # | Download | only in compat
forkpty-haiku.c revision 1.1
      1  1.1  christos /*
      2  1.1  christos  * Copyright (c) 2008 Nicholas Marriott <nicholas.marriott (at) gmail.com>
      3  1.1  christos  *
      4  1.1  christos  * Permission to use, copy, modify, and distribute this software for any
      5  1.1  christos  * purpose with or without fee is hereby granted, provided that the above
      6  1.1  christos  * copyright notice and this permission notice appear in all copies.
      7  1.1  christos  *
      8  1.1  christos  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
      9  1.1  christos  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
     10  1.1  christos  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
     11  1.1  christos  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
     12  1.1  christos  * WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER
     13  1.1  christos  * IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
     14  1.1  christos  * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
     15  1.1  christos  */
     16  1.1  christos 
     17  1.1  christos #include <sys/types.h>
     18  1.1  christos #include <sys/ioctl.h>
     19  1.1  christos 
     20  1.1  christos #include <fcntl.h>
     21  1.1  christos #include <stdlib.h>
     22  1.1  christos #include <unistd.h>
     23  1.1  christos 
     24  1.1  christos #include "compat.h"
     25  1.1  christos 
     26  1.1  christos void fatal(const char *, ...);
     27  1.1  christos void fatalx(const char *, ...);
     28  1.1  christos 
     29  1.1  christos pid_t
     30  1.1  christos forkpty(int *master, char *name, struct termios *tio, struct winsize *ws)
     31  1.1  christos {
     32  1.1  christos 	int	slave = -1;
     33  1.1  christos 	char   *path;
     34  1.1  christos 	pid_t	pid;
     35  1.1  christos 
     36  1.1  christos 	if ((*master = open("/dev/ptmx", O_RDWR|O_NOCTTY)) == -1)
     37  1.1  christos 		return (-1);
     38  1.1  christos 	if (grantpt(*master) != 0)
     39  1.1  christos 		goto out;
     40  1.1  christos 	if (unlockpt(*master) != 0)
     41  1.1  christos 		goto out;
     42  1.1  christos 
     43  1.1  christos 	if ((path = ptsname(*master)) == NULL)
     44  1.1  christos 		goto out;
     45  1.1  christos 	if (name != NULL)
     46  1.1  christos 		strlcpy(name, path, TTY_NAME_MAX);
     47  1.1  christos 	if ((slave = open(path, O_RDWR|O_NOCTTY)) == -1)
     48  1.1  christos 		goto out;
     49  1.1  christos 
     50  1.1  christos 	switch (pid = fork()) {
     51  1.1  christos 	case -1:
     52  1.1  christos 		goto out;
     53  1.1  christos 	case 0:
     54  1.1  christos 		close(*master);
     55  1.1  christos 
     56  1.1  christos 		setsid();
     57  1.1  christos 		if (ioctl(slave, TIOCSCTTY, NULL) == -1)
     58  1.1  christos 			fatal("ioctl failed");
     59  1.1  christos 
     60  1.1  christos 		if (tio != NULL && tcsetattr(slave, TCSAFLUSH, tio) == -1)
     61  1.1  christos 			fatal("tcsetattr failed");
     62  1.1  christos 		if (ioctl(slave, TIOCSWINSZ, ws) == -1)
     63  1.1  christos 			fatal("ioctl failed");
     64  1.1  christos 
     65  1.1  christos 		dup2(slave, 0);
     66  1.1  christos 		dup2(slave, 1);
     67  1.1  christos 		dup2(slave, 2);
     68  1.1  christos 		if (slave > 2)
     69  1.1  christos 			close(slave);
     70  1.1  christos 		return (0);
     71  1.1  christos 	}
     72  1.1  christos 
     73  1.1  christos 	close(slave);
     74  1.1  christos 	return (pid);
     75  1.1  christos 
     76  1.1  christos out:
     77  1.1  christos 	if (*master != -1)
     78  1.1  christos 		close(*master);
     79  1.1  christos 	if (slave != -1)
     80  1.1  christos 		close(slave);
     81  1.1  christos 	return (-1);
     82  1.1  christos }
     83