src/pty.c

   1 /* vi:set ts=8 sts=4 sw=4:
   2  *
   3  * VIM - Vi IMproved            by Bram Moolenaar
   4  *
   5  * Do ":help uganda"  in Vim to read copying and usage conditions.
   6  * Do ":help credits" in Vim to see a list of people who contributed.
   7  * See README.txt for an overview of the Vim source code.
   8  */
   9 /*
  10  * The stuff in this file mostly comes from the "screen" program.
  11  * Included with permission from Juergen Weigert.
  12  * Copied from "pty.c".  "putenv.c" was used for putenv() in misc2.c.
  13  *
  14  * It has been modified to work better with Vim.
  15  * The parts that are not used in Vim have been deleted.
  16  * See the "screen" sources for the complete stuff.
  17  */
  18
  19 /* Copyright (c) 1993
  20  *      Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de)
  21  *      Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de)
  22  * Copyright (c) 1987 Oliver Laumann
  23  *
  24  * This program is free software; you can redistribute it and/or modify
  25  * it under the terms of the GNU General Public License as published by
  26  * the Free Software Foundation; either version 2, or (at your option)
  27  * any later version.
  28  *
  29  * This program is distributed in the hope that it will be useful,
  30  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  31  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  32  * GNU General Public License for more details.
  33  *
  34  * You should have received a copy of the GNU General Public License
  35  * along with this program (see the file COPYING); if not, write to the
  36  * Free Software Foundation, Inc.,
  37  * 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA
  38  */
  39
  40 /* RCS_ID("$Id: pty.c,v 1.2 2006/11/01 17:12:46 vimboss Exp $ FAU") */
  41
  42 #include "vim.h"
  43
  44 #ifdef HAVE_FCNTL_H
  45 # include <fcntl.h>
  46 #endif
  47
  48 #include <signal.h>
  49
  50 #ifdef __CYGWIN32__
  51 # include <sys/termios.h>
  52 #endif
  53
  54 #ifdef HAVE_SYS_IOCTL_H
  55 # include <sys/ioctl.h>
  56 #endif
  57
  58 #if HAVE_STROPTS_H
  59 #include <sys/types.h>
  60 #ifdef sinix
  61 #define buf_T __system_buf_t__
  62 #endif
  63 #include <stropts.h>
  64 #ifdef sinix
  65 #undef buf_T
  66 #endif
  67 # ifdef sun
  68 #  include <sys/conf.h>
  69 # endif
  70 #endif
  71
  72 #ifdef HAVE_UNISTD_H
  73 # include <unistd.h>
  74 #endif
  75
  76 #if HAVE_TERMIO_H
  77 # include <termio.h>
  78 #else
  79 # ifdef HAVE_TERMIOS_H
  80 #  include <termios.h>
  81 # endif
  82 #endif
  83
  84 #if HAVE_SYS_STREAM_H
  85 # include <sys/stream.h>
  86 #endif
  87
  88 #if HAVE_SYS_PTEM_H
  89 # include <sys/ptem.h>
  90 #endif
  91
  92 #if !defined(sun) && !defined(VMS) && !defined(MACOS)
  93 # include <sys/ioctl.h>
  94 #endif
  95
  96 #if defined(sun) && defined(LOCKPTY) && !defined(TIOCEXCL)
  97 # include <sys/ttold.h>
  98 #endif
  99
 100 #ifdef ISC
 101 # include <sys/tty.h>
 102 # include <sys/sioctl.h>
 103 # include <sys/pty.h>
 104 #endif
 105
 106 #ifdef sgi
 107 # include <sys/sysmacros.h>
 108 #endif
 109
 110 #if defined(_INCLUDE_HPUX_SOURCE) && !defined(hpux)
 111 # define hpux
 112 #endif
 113
 114 /*
 115  * if no PTYRANGE[01] is in the config file, we pick a default
 116  */
 117 #ifndef PTYRANGE0
 118 # define PTYRANGE0 "qprs"
 119 #endif
 120 #ifndef PTYRANGE1
 121 # define PTYRANGE1 "0123456789abcdef"
 122 #endif
 123
 124 /* SVR4 pseudo ttys don't seem to work with SCO-5 */
 125 #ifdef M_UNIX
 126 # undef HAVE_SVR4_PTYS
 127 #endif
 128
 129 static void initmaster __ARGS((int));
 130
 131 /*
 132  *  Open all ptys with O_NOCTTY, just to be on the safe side
 133  *  (RISCos mips breaks otherwise)
 134  */
 135 #ifndef O_NOCTTY
 136 # define O_NOCTTY 0
 137 #endif
 138
 139     static void
 140 initmaster(f)
 141     int f;
 142 {
 143 #ifndef VMS
 144 # ifdef POSIX
 145     tcflush(f, TCIOFLUSH);
 146 # else
 147 #  ifdef TIOCFLUSH
 148     (void)ioctl(f, TIOCFLUSH, (char *) 0);
 149 #  endif
 150 # endif
 151 # ifdef LOCKPTY
 152     (void)ioctl(f, TIOCEXCL, (char *) 0);
 153 # endif
 154 #endif
 155 }
 156
 157 /*
 158  * This causes a hang on some systems, but is required for a properly working
 159  * pty on others.  Needs to be tuned...
 160  */
 161     int
 162 SetupSlavePTY(fd)
 163     int fd;
 164 {
 165     if (fd < 0)
 166         return 0;
 167 #if defined(I_PUSH) && defined(HAVE_SVR4_PTYS) && !defined(sgi) && !defined(linux) && !defined(__osf__) && !defined(M_UNIX)
 168 # if defined(HAVE_SYS_PTEM_H) || defined(hpux)
 169     if (ioctl(fd, I_PUSH, "ptem") != 0)
 170         return -1;
 171 # endif
 172     if (ioctl(fd, I_PUSH, "ldterm") != 0)
 173         return -1;
 174 # ifdef sun
 175     if (ioctl(fd, I_PUSH, "ttcompat") != 0)
 176         return -1;
 177 # endif
 178 #endif
 179     return 0;
 180 }
 181
 182
 183 #if defined(OSX) && !defined(PTY_DONE)
 184 #define PTY_DONE
 185     int
 186 OpenPTY(ttyn)
 187     char **ttyn;
 188 {
 189     int         f;
 190     static char TtyName[32];
 191
 192     if ((f = open_controlling_pty(TtyName)) < 0)
 193         return -1;
 194     initmaster(f);
 195     *ttyn = TtyName;
 196     return f;
 197 }
 198 #endif
 199
 200 #if (defined(sequent) || defined(_SEQUENT_)) && defined(HAVE_GETPSEUDOTTY) \
 201         && !defined(PTY_DONE)
 202 #define PTY_DONE
 203     int
 204 OpenPTY(ttyn)
 205     char **ttyn;
 206 {
 207     char        *m, *s;
 208     int         f;
 209     /* used for opening a new pty-pair: */
 210     static char PtyName[32];
 211     static char TtyName[32];
 212
 213     if ((f = getpseudotty(&s, &m)) < 0)
 214         return -1;
 215 #ifdef _SEQUENT_
 216     fvhangup(s);
 217 #endif
 218     strncpy(PtyName, m, sizeof(PtyName));
 219     strncpy(TtyName, s, sizeof(TtyName));
 220     initmaster(f);
 221     *ttyn = TtyName;
 222     return f;
 223 }
 224 #endif
 225
 226 #if defined(__sgi) && !defined(PTY_DONE)
 227 #define PTY_DONE
 228     int
 229 OpenPTY(ttyn)
 230     char **ttyn;
 231 {
 232     int f;
 233     char *name;
 234     RETSIGTYPE (*sigcld)__ARGS(SIGPROTOARG);
 235
 236     /*
 237      * SIGCHLD set to SIG_DFL for _getpty() because it may fork() and
 238      * exec() /usr/adm/mkpts
 239      */
 240     sigcld = signal(SIGCHLD, SIG_DFL);
 241     name = _getpty(&f, O_RDWR | O_NONBLOCK | O_EXTRA, 0600, 0);
 242     signal(SIGCHLD, sigcld);
 243
 244     if (name == 0)
 245         return -1;
 246     initmaster(f);
 247     *ttyn = name;
 248     return f;
 249 }
 250 #endif
 251
 252 #if defined(MIPS) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE)
 253 #define PTY_DONE
 254     int
 255 OpenPTY(ttyn)
 256     char **ttyn;
 257 {
 258     int         f;
 259     struct stat buf;
 260     /* used for opening a new pty-pair: */
 261     static char TtyName[32];
 262
 263     if ((f = open("/dev/ptc", O_RDWR | O_NOCTTY | O_NONBLOCK | O_EXTRA, 0)) < 0)
 264         return -1;
 265     if (mch_fstat(f, &buf) < 0)
 266     {
 267         close(f);
 268         return -1;
 269     }
 270     sprintf(TtyName, "/dev/ttyq%d", minor(buf.st_rdev));
 271     initmaster(f);
 272     *ttyn = TtyName;
 273     return f;
 274 }
 275 #endif
 276
 277 #if defined(HAVE_SVR4_PTYS) && !defined(PTY_DONE) && !defined(hpux)
 278
 279 /* NOTE: Even though HPUX can have /dev/ptmx, the code below doesn't work! */
 280 #define PTY_DONE
 281     int
 282 OpenPTY(ttyn)
 283     char **ttyn;
 284 {
 285     int         f;
 286     char        *m, *ptsname();
 287     int unlockpt __ARGS((int)), grantpt __ARGS((int));
 288     RETSIGTYPE (*sigcld)__ARGS(SIGPROTOARG);
 289     /* used for opening a new pty-pair: */
 290     static char TtyName[32];
 291
 292     if ((f = open("/dev/ptmx", O_RDWR | O_NOCTTY | O_EXTRA, 0)) == -1)
 293         return -1;
 294
 295     /*
 296      * SIGCHLD set to SIG_DFL for grantpt() because it fork()s and
 297      * exec()s pt_chmod
 298      */
 299     sigcld = signal(SIGCHLD, SIG_DFL);
 300     if ((m = ptsname(f)) == NULL || grantpt(f) || unlockpt(f))
 301     {
 302         signal(SIGCHLD, sigcld);
 303         close(f);
 304         return -1;
 305     }
 306     signal(SIGCHLD, sigcld);
 307     strncpy(TtyName, m, sizeof(TtyName));
 308     initmaster(f);
 309     *ttyn = TtyName;
 310     return f;
 311 }
 312 #endif
 313
 314 #if defined(_AIX) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE)
 315 #define PTY_DONE
 316
 317 #ifdef _IBMR2
 318 int aixhack = -1;
 319 #endif
 320
 321     int
 322 OpenPTY(ttyn)
 323     char **ttyn;
 324 {
 325     int         f;
 326     /* used for opening a new pty-pair: */
 327     static char TtyName[32];
 328
 329     /* a dumb looking loop replaced by mycrofts code: */
 330     if ((f = open("/dev/ptc", O_RDWR | O_NOCTTY | O_EXTRA)) < 0)
 331         return -1;
 332     strncpy(TtyName, ttyname(f), sizeof(TtyName));
 333     if (geteuid() != ROOT_UID && mch_access(TtyName, R_OK | W_OK))
 334     {
 335         close(f);
 336         return -1;
 337     }
 338     initmaster(f);
 339 # ifdef _IBMR2
 340     if (aixhack >= 0)
 341         close(aixhack);
 342     if ((aixhack = open(TtyName, O_RDWR | O_NOCTTY | O_EXTRA, 0)) < 0)
 343     {
 344         close(f);
 345         return -1;
 346     }
 347 # endif
 348     *ttyn = TtyName;
 349     return f;
 350 }
 351 #endif
 352
 353 #ifndef PTY_DONE
 354
 355 # ifdef hpux
 356 static char PtyProto[] = "/dev/ptym/ptyXY";
 357 static char TtyProto[] = "/dev/pty/ttyXY";
 358 # else
 359 #  ifdef __BEOS__
 360 static char PtyProto[] = "/dev/pt/XY";
 361 static char TtyProto[] = "/dev/tt/XY";
 362 #  else
 363 static char PtyProto[] = "/dev/ptyXY";
 364 static char TtyProto[] = "/dev/ttyXY";
 365 #  endif
 366 # endif
 367
 368     int
 369 OpenPTY(ttyn)
 370     char **ttyn;
 371 {
 372     char        *p, *q, *l, *d;
 373     int         f;
 374     /* used for opening a new pty-pair: */
 375     static char PtyName[32];
 376     static char TtyName[32];
 377
 378     strcpy(PtyName, PtyProto);
 379     strcpy(TtyName, TtyProto);
 380     for (p = PtyName; *p != 'X'; p++)
 381         ;
 382     for (q = TtyName; *q != 'X'; q++)
 383         ;
 384     for (l = PTYRANGE0; (*p = *l) != '\0'; l++)
 385     {
 386         for (d = PTYRANGE1; (p[1] = *d) != '\0'; d++)
 387         {
 388 #if !defined(MACOS) || defined(USE_CARBONIZED)
 389             if ((f = open(PtyName, O_RDWR | O_NOCTTY | O_EXTRA, 0)) == -1)
 390 #else
 391             if ((f = open(PtyName, O_RDWR | O_NOCTTY | O_EXTRA)) == -1)
 392 #endif
 393                 continue;
 394             q[0] = *l;
 395             q[1] = *d;
 396 #ifndef MACOS
 397             if (geteuid() != ROOT_UID && mch_access(TtyName, R_OK | W_OK))
 398             {
 399                 close(f);
 400                 continue;
 401             }
 402 #endif
 403 #if defined(sun) && defined(TIOCGPGRP) && !defined(SUNOS3)
 404             /* Hack to ensure that the slave side of the pty is
 405              * unused. May not work in anything other than SunOS4.1
 406              */
 407             {
 408                 int pgrp;
 409
 410                 /* tcgetpgrp does not work (uses TIOCGETPGRP)! */
 411                 if (ioctl(f, TIOCGPGRP, (char *)&pgrp) != -1 || errno != EIO)
 412                 {
 413                     close(f);
 414                     continue;
 415                 }
 416             }
 417 #endif
 418             initmaster(f);
 419             *ttyn = TtyName;
 420             return f;
 421         }
 422     }
 423     return -1;
 424 }
 425 #endif