1249259Sdim/* Copyright (c) 1993-2002 2249259Sdim * Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de) 3249259Sdim * Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de) 4249259Sdim * Copyright (c) 1987 Oliver Laumann 5249259Sdim * 6249259Sdim * This program is free software; you can redistribute it and/or modify 7249259Sdim * it under the terms of the GNU General Public License as published by 8249259Sdim * the Free Software Foundation; either version 2, or (at your option) 9249259Sdim * any later version. 10249259Sdim * 11249259Sdim * This program is distributed in the hope that it will be useful, 12249259Sdim * but WITHOUT ANY WARRANTY; without even the implied warranty of 13249259Sdim * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14249259Sdim * GNU General Public License for more details. 15249259Sdim * 16249259Sdim * You should have received a copy of the GNU General Public License 17249259Sdim * along with this program (see the file COPYING); if not, write to the 18249259Sdim * Free Software Foundation, Inc., 19249259Sdim * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA 20249259Sdim * 21249259Sdim **************************************************************** 22249259Sdim */ 23249259Sdim 24249259Sdim#include <sys/types.h> 25249259Sdim#include <sys/stat.h> 26249259Sdim#include <fcntl.h> 27249259Sdim#include <signal.h> 28249259Sdim 29249259Sdim#include "config.h" 30249259Sdim#include "screen.h" 31249259Sdim 32249259Sdim#ifndef sun 33249259Sdim# include <sys/ioctl.h> 34249259Sdim#endif 35249259Sdim 36249259Sdim/* for solaris 2.1, Unixware (SVR4.2) and possibly others */ 37249259Sdim#ifdef HAVE_SVR4_PTYS 38249259Sdim# include <sys/stropts.h> 39249259Sdim#endif 40249259Sdim 41249259Sdim#if defined(sun) && defined(LOCKPTY) && !defined(TIOCEXCL) 42249259Sdim# include <sys/ttold.h> 43249259Sdim#endif 44249259Sdim 45249259Sdim#ifdef ISC 46249259Sdim# include <sys/tty.h> 47249259Sdim# include <sys/sioctl.h> 48249259Sdim# include <sys/pty.h> 49249259Sdim#endif 50249259Sdim 51249259Sdim#ifdef sgi 52249259Sdim# include <sys/sysmacros.h> 53249259Sdim#endif /* sgi */ 54249259Sdim 55249259Sdim#include "extern.h" 56249259Sdim 57249259Sdim/* 58249259Sdim * if no PTYRANGE[01] is in the config file, we pick a default 59249259Sdim */ 60249259Sdim#ifndef PTYRANGE0 61249259Sdim# define PTYRANGE0 "qpr" 62249259Sdim#endif 63249259Sdim#ifndef PTYRANGE1 64249259Sdim# define PTYRANGE1 "0123456789abcdef" 65249259Sdim#endif 66249259Sdim 67249259Sdim/* SVR4 pseudo ttys don't seem to work with SCO-5 */ 68249259Sdim#ifdef M_UNIX 69249259Sdim# undef HAVE_SVR4_PTYS 70249259Sdim#endif 71249259Sdim 72249259Sdimextern int eff_uid; 73249259Sdim 74249259Sdim/* used for opening a new pty-pair: */ 75249259Sdimstatic char PtyName[32], TtyName[32]; 76249259Sdim 77249259Sdim#if !(defined(sequent) || defined(_SEQUENT_) || defined(HAVE_SVR4_PTYS)) 78249259Sdim# ifdef hpux 79249259Sdimstatic char PtyProto[] = "/dev/ptym/ptyXY"; 80249259Sdimstatic char TtyProto[] = "/dev/pty/ttyXY"; 81249259Sdim# else 82249259Sdim# ifdef M_UNIX 83249259Sdimstatic char PtyProto[] = "/dev/ptypXY"; 84249259Sdimstatic char TtyProto[] = "/dev/ttypXY"; 85249259Sdim# else 86249259Sdimstatic char PtyProto[] = "/dev/ptyXY"; 87249259Sdimstatic char TtyProto[] = "/dev/ttyXY"; 88249259Sdim# endif 89249259Sdim# endif /* hpux */ 90249259Sdim#endif 91249259Sdim 92249259Sdimstatic void initmaster __P((int)); 93249259Sdim 94249259Sdim#if defined(sun) 95249259Sdim/* sun's utmp_update program opens the salve side, thus corrupting 96249259Sdim */ 97249259Sdimint pty_preopen = 1; 98249259Sdim#else 99249259Sdimint pty_preopen = 0; 100249259Sdim#endif 101249259Sdim 102249259Sdim/* 103249259Sdim * Open all ptys with O_NOCTTY, just to be on the safe side 104249259Sdim * (RISCos mips breaks otherwise) 105249259Sdim */ 106249259Sdim#ifndef O_NOCTTY 107249259Sdim# define O_NOCTTY 0 108249259Sdim#endif 109249259Sdim 110249259Sdim/***************************************************************/ 111249259Sdim 112249259Sdimstatic void 113249259Sdiminitmaster(f) 114249259Sdimint f; 115249259Sdim{ 116249259Sdim#ifdef POSIX 117249259Sdim tcflush(f, TCIOFLUSH); 118249259Sdim#else 119249259Sdim# ifdef TIOCFLUSH 120249259Sdim (void) ioctl(f, TIOCFLUSH, (char *) 0); 121249259Sdim# endif 122249259Sdim#endif 123249259Sdim#ifdef LOCKPTY 124249259Sdim (void) ioctl(f, TIOCEXCL, (char *) 0); 125249259Sdim#endif 126249259Sdim} 127249259Sdim 128249259Sdimvoid 129249259SdimInitPTY(f) 130249259Sdimint f; 131249259Sdim{ 132249259Sdim if (f < 0) 133249259Sdim return; 134249259Sdim#if defined(I_PUSH) && defined(HAVE_SVR4_PTYS) && !defined(sgi) && !defined(linux) && !defined(__osf__) && !defined(M_UNIX) 135249259Sdim if (ioctl(f, I_PUSH, "ptem")) 136249259Sdim Panic(errno, "InitPTY: cannot I_PUSH ptem"); 137249259Sdim if (ioctl(f, I_PUSH, "ldterm")) 138249259Sdim Panic(errno, "InitPTY: cannot I_PUSH ldterm"); 139249259Sdim# ifdef sun 140249259Sdim if (ioctl(f, I_PUSH, "ttcompat")) 141249259Sdim Panic(errno, "InitPTY: cannot I_PUSH ttcompat"); 142249259Sdim# endif 143249259Sdim#endif 144249259Sdim} 145249259Sdim 146249259Sdim/***************************************************************/ 147249259Sdim 148249259Sdim#if defined(OSX) && !defined(PTY_DONE) 149249259Sdim#define PTY_DONE 150int 151OpenPTY(ttyn) 152char **ttyn; 153{ 154 register int f; 155 if ((f = open_controlling_pty(TtyName)) < 0) 156 return -1; 157 initmaster(f); 158 *ttyn = TtyName; 159 return f; 160} 161#endif 162 163/***************************************************************/ 164 165#if (defined(sequent) || defined(_SEQUENT_)) && !defined(PTY_DONE) 166#define PTY_DONE 167int 168OpenPTY(ttyn) 169char **ttyn; 170{ 171 char *m, *s; 172 register int f; 173 174 if ((f = getpseudotty(&s, &m)) < 0) 175 return -1; 176#ifdef _SEQUENT_ 177 fvhangup(s); 178#endif 179 strncpy(PtyName, m, sizeof(PtyName)); 180 strncpy(TtyName, s, sizeof(TtyName)); 181 initmaster(f); 182 *ttyn = TtyName; 183 return f; 184} 185#endif 186 187/***************************************************************/ 188 189#if defined(__sgi) && !defined(PTY_DONE) 190#define PTY_DONE 191int 192OpenPTY(ttyn) 193char **ttyn; 194{ 195 int f; 196 char *name, *_getpty(); 197 sigret_t (*sigcld)__P(SIGPROTOARG); 198 199 /* 200 * SIGCHLD set to SIG_DFL for _getpty() because it may fork() and 201 * exec() /usr/adm/mkpts 202 */ 203 sigcld = signal(SIGCHLD, SIG_DFL); 204 name = _getpty(&f, O_RDWR | O_NONBLOCK, 0600, 0); 205 signal(SIGCHLD, sigcld); 206 207 if (name == 0) 208 return -1; 209 initmaster(f); 210 *ttyn = name; 211 return f; 212} 213#endif 214 215/***************************************************************/ 216 217#if defined(MIPS) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE) 218#define PTY_DONE 219int 220OpenPTY(ttyn) 221char **ttyn; 222{ 223 register int f; 224 struct stat buf; 225 226 strcpy(PtyName, "/dev/ptc"); 227 if ((f = open(PtyName, O_RDWR | O_NOCTTY | O_NONBLOCK)) < 0) 228 return -1; 229 if (fstat(f, &buf) < 0) 230 { 231 close(f); 232 return -1; 233 } 234 sprintf(TtyName, "/dev/ttyq%d", minor(buf.st_rdev)); 235 initmaster(f); 236 *ttyn = TtyName; 237 return f; 238} 239#endif 240 241/***************************************************************/ 242 243#if defined(HAVE_SVR4_PTYS) && !defined(PTY_DONE) 244#define PTY_DONE 245int 246OpenPTY(ttyn) 247char **ttyn; 248{ 249 register int f; 250 char *m, *ptsname(); 251 int unlockpt __P((int)), grantpt __P((int)); 252#if defined(HAVE_GETPT) && defined(linux) 253 int getpt __P((void)); 254#endif 255 sigret_t (*sigcld)__P(SIGPROTOARG); 256 257 strcpy(PtyName, "/dev/ptmx"); 258#if defined(HAVE_GETPT) && defined(linux) 259 if ((f = getpt()) == -1) 260#else 261 if ((f = open(PtyName, O_RDWR | O_NOCTTY)) == -1) 262#endif 263 return -1; 264 265 /* 266 * SIGCHLD set to SIG_DFL for grantpt() because it fork()s and 267 * exec()s pt_chmod 268 */ 269 sigcld = signal(SIGCHLD, SIG_DFL); 270 if ((m = ptsname(f)) == NULL || grantpt(f) || unlockpt(f)) 271 { 272 signal(SIGCHLD, sigcld); 273 close(f); 274 return -1; 275 } 276 signal(SIGCHLD, sigcld); 277 strncpy(TtyName, m, sizeof(TtyName)); 278 initmaster(f); 279 *ttyn = TtyName; 280 return f; 281} 282#endif 283 284/***************************************************************/ 285 286#if defined(_AIX) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE) 287#define PTY_DONE 288 289int 290OpenPTY(ttyn) 291char **ttyn; 292{ 293 register int f; 294 295 /* a dumb looking loop replaced by mycrofts code: */ 296 strcpy (PtyName, "/dev/ptc"); 297 if ((f = open (PtyName, O_RDWR | O_NOCTTY)) < 0) 298 return -1; 299 strncpy(TtyName, ttyname(f), sizeof(TtyName)); 300 if (eff_uid && access(TtyName, R_OK | W_OK)) 301 { 302 close(f); 303 return -1; 304 } 305 initmaster(f); 306# ifdef _IBMR2 307 pty_preopen = 1; 308# endif 309 *ttyn = TtyName; 310 return f; 311} 312#endif 313 314/***************************************************************/ 315 316#if defined(HAVE_OPENPTY) && !defined(PTY_DONE) 317#define PTY_DONE 318int 319OpenPTY(ttyn) 320char **ttyn; 321{ 322 int f, s; 323 if (openpty(&f, &s, TtyName, NULL, NULL) != 0) 324 return -1; 325 close(s); 326 initmaster(f); 327 pty_preopen = 1; 328 *ttyn = TtyName; 329 return f; 330} 331#endif 332 333/***************************************************************/ 334 335#ifndef PTY_DONE 336int 337OpenPTY(ttyn) 338char **ttyn; 339{ 340 register char *p, *q, *l, *d; 341 register int f; 342 343 debug("OpenPTY: Using BSD style ptys.\n"); 344 strcpy(PtyName, PtyProto); 345 strcpy(TtyName, TtyProto); 346 for (p = PtyName; *p != 'X'; p++) 347 ; 348 for (q = TtyName; *q != 'X'; q++) 349 ; 350 for (l = PTYRANGE0; (*p = *l) != '\0'; l++) 351 { 352 for (d = PTYRANGE1; (p[1] = *d) != '\0'; d++) 353 { 354 debug1("OpenPTY tries '%s'\n", PtyName); 355 if ((f = open(PtyName, O_RDWR | O_NOCTTY)) == -1) 356 continue; 357 q[0] = *l; 358 q[1] = *d; 359 if (eff_uid && access(TtyName, R_OK | W_OK)) 360 { 361 close(f); 362 continue; 363 } 364#if defined(sun) && defined(TIOCGPGRP) && !defined(SUNOS3) 365 /* Hack to ensure that the slave side of the pty is 366 * unused. May not work in anything other than SunOS4.1 367 */ 368 { 369 int pgrp; 370 371 /* tcgetpgrp does not work (uses TIOCGETPGRP)! */ 372 if (ioctl(f, TIOCGPGRP, (char *)&pgrp) != -1 || errno != EIO) 373 { 374 close(f); 375 continue; 376 } 377 } 378#endif 379 initmaster(f); 380 *ttyn = TtyName; 381 return f; 382 } 383 } 384 return -1; 385} 386#endif 387 388