X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Fopenpty.c;h=748d37211c12c670eed95c4b939833c5152056e8;hb=b65bfcd7ba0be84de3d96f22103103f21679a721;hp=e7eb46d46432a448ceff257a46937aa0abac4de8;hpb=8e7bc4d9d435c2d18be77134896aa823733816a0;p=gnulib.git

diff --git a/lib/openpty.c b/lib/openpty.c
index e7eb46d46..748d37211 100644
--- a/lib/openpty.c
+++ b/lib/openpty.c
@@ -1,5 +1,5 @@
-/* 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
@@ -19,17 +19,135 @@
 /* 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