-/* Open a pseudo-terminal descriptor.
- Copyright (C) 2010 Free Software Foundation, Inc.
+/* Open a pseudo-terminal.
+ Copyright (C) 2010-2011 Free Software Foundation, Inc.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
/* Specification. */
#include <pty.h>
-#if HAVE_DECL_OPENPTY
+#if HAVE_OPENPTY
+
+/* Provide a wrapper with the prototype of glibc-2.8 and newer. */
# undef openpty
int
-rpl_openpty (int *amaster, int *aslave, char *name, struct termios const *termp,
- struct winsize const *winp)
+rpl_openpty (int *amaster, int *aslave, char *name,
+ struct termios const *termp, struct winsize const *winp)
{
/* Cast away const, for implementations with weaker prototypes. */
return openpty (amaster, aslave, name, (struct termios *) termp,
(struct winsize *) winp);
}
-#else
-# error openpty has not been ported to your system; \
- report this to bug-gnulib@gnu.org for help
+
+#else /* AIX 5.1, HP-UX 11, IRIX 6.5, Solaris 10, mingw */
+
+# include <fcntl.h>
+# include <string.h>
+# include <sys/ioctl.h>
+# include <termios.h>
+# include <unistd.h>
+# if defined __sun || defined __hpux /* Solaris, HP-UX */
+# include <stropts.h>
+# endif
+
+int
+openpty (int *amaster, int *aslave, char *name,
+ struct termios const *termp, struct winsize const *winp)
+{
+ int master;
+ char *slave_name;
+ int slave;
+
+# if HAVE__GETPTY /* IRIX */
+
+ slave_name = _getpty (&master, O_RDWR, 0622, 0);
+ if (slave_name == NULL)
+ return -1;
+
+# else /* AIX 5.1, HP-UX 11, Solaris 10, mingw */
+
+# if HAVE_POSIX_OPENPT /* Solaris 10 */
+
+ master = posix_openpt (O_RDWR | O_NOCTTY);
+ if (master < 0)
+ return -1;
+
+# else /* AIX 5.1, HP-UX 11, Solaris 9, mingw */
+
+# ifdef _AIX /* AIX */
+
+ master = open ("/dev/ptc", O_RDWR | O_NOCTTY);
+ if (master < 0)
+ return -1;
+
+# else /* HP-UX 11, Solaris 9, mingw */
+
+ /* HP-UX, Solaris have /dev/ptmx.
+ HP-UX also has /dev/ptym/clone, but this should not be needed.
+ Linux also has /dev/ptmx, but Linux already has openpty().
+ MacOS X also has /dev/ptmx, but MacOS X already has openpty().
+ OSF/1 also has /dev/ptmx and /dev/ptmx_bsd, but OSF/1 already has
+ openpty(). */
+ master = open ("/dev/ptmx", O_RDWR | O_NOCTTY);
+ if (master < 0)
+ return -1;
+
+# endif
+
+# endif
+
+ /* If all this does not work, we could try to open, one by one:
+ - On MacOS X: /dev/pty[p-w][0-9a-f]
+ - On *BSD: /dev/pty[p-sP-S][0-9a-v]
+ - On AIX: /dev/ptyp[0-9a-f]
+ - On HP-UX: /dev/pty[p-r][0-9a-f]
+ - On OSF/1: /dev/pty[p-q][0-9a-f]
+ - On Solaris: /dev/pty[p-r][0-9a-f]
+ */
+# endif
+
+ /* This call does not require a dependency to the 'grantpt' module,
+ because AIX, HP-UX, IRIX, Solaris all have the grantpt() function. */
+ if (grantpt (master))
+ goto fail;
+
+ /* This call does not require a dependency to the 'unlockpt' module,
+ because AIX, HP-UX, IRIX, Solaris all have the unlockpt() function. */
+ if (unlockpt (master))
+ goto fail;
+
+# if !HAVE__GETPTY /* !IRIX */
+ slave_name = ptsname (master);
+ if (slave_name == NULL)
+ goto fail;
+# endif
+
+ slave = open (slave_name, O_RDWR | O_NOCTTY);
+ if (slave == -1)
+ goto fail;
+
+# if defined __sun || defined __hpux /* Solaris, HP-UX */
+ if (ioctl (slave, I_PUSH, "ptem") < 0
+ || ioctl (slave, I_PUSH, "ldterm") < 0
+# if defined __sun
+ || ioctl (slave, I_PUSH, "ttcompat") < 0
+# endif
+ )
+ {
+ close (slave);
+ goto fail;
+ }
+# endif
+
+ /* XXX Should we ignore errors here? */
+ if (termp)
+ tcsetattr (slave, TCSAFLUSH, termp);
+ if (winp)
+ ioctl (slave, TIOCSWINSZ, winp);
+
+ *amaster = master;
+ *aslave = slave;
+ if (name != NULL)
+ strcpy (name, slave_name);
+
+ return 0;
+
+ fail:
+ close (master);
+ return -1;
+}
+
#endif