/* $XTermId: main.c,v 1.477 2005/11/13 23:10:36 tom Exp $ */ #if !defined(lint) && 0 static char *rid = "$Xorg: main.c,v 1.7 2001/02/09 02:06:02 xorgcvs Exp $"; #endif /* lint */ /* * W A R N I N G * * If you think you know what all of this code is doing, you are * probably very mistaken. There be serious and nasty dragons here. * * This client is *not* to be taken as an example of how to write X * Toolkit applications. It is in need of a substantial rewrite, * ideally to create a generic tty widget with several different parsing * widgets so that you can plug 'em together any way you want. Don't * hold your breath, though.... */ /*********************************************************** Copyright 2002-2004,2005 by Thomas E. Dickey All Rights Reserved Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE ABOVE LISTED COPYRIGHT HOLDER(S) BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Except as contained in this notice, the name(s) of the above copyright holders shall not be used in advertising or otherwise to promote the sale, use or other dealings in this Software without prior written authorization. Copyright 1987, 1988 The Open Group Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Except as contained in this notice, the name of The Open Group shall not be used in advertising or otherwise to promote the sale, use or other dealings in this Software without prior written authorization from The Open Group. Copyright 1987, 1988 by Digital Equipment Corporation, Maynard. All Rights Reserved Permission to use, copy, modify, and distribute this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of Digital not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ******************************************************************/ /**************************************************************************/ /* */ /* Copyright (c) 2001, 2011 NoMachine, http://www.nomachine.com/. */ /* */ /* NX-X11, NX protocol compression and NX extensions to this software */ /* are copyright of NoMachine. Redistribution and use of the present */ /* software is allowed according to terms specified in the file LICENSE */ /* which comes in the source distribution. */ /* */ /* Check http://www.nomachine.com/licensing.html for applicability. */ /* */ /* NX and NoMachine are trademarks of Medialogic S.p.A. */ /* */ /* All rights reserved. */ /* */ /**************************************************************************/ /* $XFree86: xc/programs/xterm/main.c,v 3.199 2005/11/13 23:10:36 dickey Exp $ */ #ifdef NX_TRANS_EXIT /* * Redefine the libc exit() function to be * sure we get rid of proxy and detect any * abnormal termination. */ extern void NXTransExit(int code) __attribute__((noreturn)); #define exit(code) NXTransExit(code) #endif /* #ifdef NX_TRANS_EXIT */ /* main.c */ #define RES_OFFSET(field) XtOffsetOf(XTERM_RESOURCE, field) #include <xterm.h> #include <X11/cursorfont.h> #include <X11/Xlocale.h> #if OPT_TOOLBAR #if defined(HAVE_LIB_XAW) #include <X11/Xaw/Form.h> #elif defined(HAVE_LIB_XAW3D) #include <X11/Xaw3d/Form.h> #elif defined(HAVE_LIB_NEXTAW) #include <X11/neXtaw/Form.h> #elif defined(HAVE_LIB_XAWPLUS) #include <X11/XawPlus/Form.h> #endif #endif /* OPT_TOOLBAR */ #include <pwd.h> #include <ctype.h> #include <data.h> #include <error.h> #include <menu.h> #include <main.h> #include <xstrings.h> #include <xterm_io.h> #if OPT_WIDE_CHARS #include <charclass.h> #endif #ifdef __osf__ #define USE_SYSV_SIGNALS #define WTMP #include <pty.h> /* openpty() */ #endif #ifdef __sgi #include <grp.h> /* initgroups() */ #endif #ifdef USE_ISPTS_FLAG static Bool IsPts = False; #endif #if defined(__SCO__) || defined(SVR4) || defined(_POSIX_SOURCE) #define USE_POSIX_SIGNALS #endif #if defined(SYSV) && !defined(SVR4) && !defined(ISC22) && !defined(ISC30) /* older SYSV systems cannot ignore SIGHUP. Shell hangs, or you get extra shells, or something like that */ #define USE_SYSV_SIGHUP #endif #if defined(sony) && defined(bsd43) && !defined(KANJI) #define KANJI #endif #ifdef linux #define USE_SYSV_PGRP #define USE_SYSV_SIGNALS #define WTMP #ifdef __GLIBC__ #if (__GLIBC__ > 2) || ((__GLIBC__ == 2) && (__GLIBC_MINOR__ >= 1)) #include <pty.h> #endif #endif #endif #ifdef __MVS__ #define USE_SYSV_PGRP #define USE_SYSV_SIGNALS #endif #ifdef __CYGWIN__ #define LASTLOG #define WTMP #endif #ifdef __SCO__ #ifndef _SVID3 #define _SVID3 #endif #endif #if defined(__GLIBC__) && !defined(linux) #define USE_SYSV_PGRP #define WTMP #define HAS_BSD_GROUPS #endif #if defined(USE_TTY_GROUP) || defined(USE_UTMP_SETGID) #include <grp.h> #endif #ifndef TTY_GROUP_NAME #define TTY_GROUP_NAME "tty" #endif #include <sys/stat.h> #ifdef Lynx #ifndef BSDLY #define BSDLY 0 #endif #ifndef VTDLY #define VTDLY 0 #endif #ifndef FFDLY #define FFDLY 0 #endif #endif #ifdef SYSV /* { */ #ifdef USE_USG_PTYS /* AT&T SYSV has no ptyio.h */ #include <sys/stropts.h> /* for I_PUSH */ #include <poll.h> /* for POLLIN */ #endif /* USE_USG_PTYS */ #define USE_SYSV_SIGNALS #define USE_SYSV_PGRP #if !defined(TIOCSWINSZ) || defined(__SCO__) || defined(__UNIXWARE__) #define USE_SYSV_ENVVARS /* COLUMNS/LINES vs. TERMCAP */ #endif /* * now get system-specific includes */ #ifdef CRAY #define HAS_BSD_GROUPS #endif #ifdef macII #define HAS_BSD_GROUPS #include <sys/ttychars.h> #undef USE_SYSV_ENVVARS #undef FIOCLEX #undef FIONCLEX #define setpgrp2 setpgrp #include <sgtty.h> #include <sys/resource.h> #endif #ifdef __hpux #define HAS_BSD_GROUPS #include <sys/ptyio.h> #endif /* __hpux */ #ifdef __osf__ #define HAS_BSD_GROUPS #undef USE_SYSV_PGRP #define setpgrp setpgid #endif #ifdef __sgi #define HAS_BSD_GROUPS #include <sys/sysmacros.h> #endif /* __sgi */ #ifdef sun #include <sys/strredir.h> #endif #else /* } !SYSV { */ /* BSD systems */ #ifdef __QNX__ #ifndef __QNXNTO__ #define ttyslot() 1 #else #define USE_SYSV_PGRP extern __inline__ ttyslot() { return 1; /* yuk */ } #endif #else #if defined(__INTERIX) || defined(__APPLE__) #define setpgrp setpgid #endif #ifndef linux #ifndef VMS #ifndef USE_POSIX_TERMIOS #ifndef USE_ANY_SYSV_TERMIO #include <sgtty.h> #endif #endif /* USE_POSIX_TERMIOS */ #ifdef Lynx #include <resource.h> #else #include <sys/resource.h> #endif #ifndef __INTERIX #define HAS_BSD_GROUPS #endif #endif /* !VMS */ #endif /* !linux */ #endif /* __QNX__ */ #endif /* } !SYSV */ #if defined(SVR4) && !defined(__CYGWIN__) #define HAS_SAVED_IDS_AND_SETEUID #endif #ifdef linux #define HAS_SAVED_IDS_AND_SETEUID #endif /* Xpoll.h and <sys/param.h> on glibc 2.1 systems have colliding NBBY's */ #if defined(__GLIBC__) && ((__GLIBC__ > 2) || ((__GLIBC__ == 2) && (__GLIBC_MINOR__ >= 1))) #ifndef NOFILE #define NOFILE OPEN_MAX #endif #elif !(defined(VMS) || defined(WIN32) || defined(Lynx) || defined(__GNU__) || defined(__MVS__)) #include <sys/param.h> /* for NOFILE */ #endif #if defined(BSD) && (BSD >= 199103) #define WTMP #define HAS_SAVED_IDS_AND_SETEUID #endif #include <stdio.h> #ifdef __hpux #include <sys/utsname.h> #endif /* __hpux */ #if defined(apollo) && (OSMAJORVERSION == 10) && (OSMINORVERSION < 4) #define ttyslot() 1 #endif /* apollo */ #if defined(UTMPX_FOR_UTMP) #define UTMP_STR utmpx #else #define UTMP_STR utmp #endif #if defined(USE_UTEMPTER) #include <utempter.h> #endif #if defined(UTMPX_FOR_UTMP) #include <utmpx.h> #define call_endutent endutxent #define call_getutid getutxid #define call_pututline pututxline #define call_setutent setutxent #define call_updwtmp updwtmpx #elif defined(HAVE_UTMP) #include <utmp.h> #if defined(_CRAY) && (OSMAJORVERSION < 8) extern struct utmp *getutid __((struct utmp * _Id)); #endif #define call_endutent endutent #define call_getutid getutid #define call_pututline pututline #define call_setutent setutent #define call_updwtmp updwtmp #endif #if defined(USE_LASTLOG) && defined(HAVE_LASTLOG_H) #include <lastlog.h> /* caution: glibc 2.3.5 includes utmp.h here */ #endif #ifndef USE_LASTLOGX #if defined(_NETBSD_SOURCE) && defined(_PATH_LASTLOGX) #define USE_LASTLOGX 1 #endif #endif #ifdef PUCC_PTYD #include <local/openpty.h> #endif /* PUCC_PTYD */ #if defined(__OpenBSD__) || defined(__NetBSD__) || defined(__APPLE__) #include <util.h> /* openpty() */ #endif #ifdef __FreeBSD__ #include <libutil.h> /* openpty() */ #endif #if !defined(UTMP_FILENAME) #if defined(UTMP_FILE) #define UTMP_FILENAME UTMP_FILE #elif defined(_PATH_UTMP) #define UTMP_FILENAME _PATH_UTMP #else #define UTMP_FILENAME "/etc/utmp" #endif #endif #ifndef LASTLOG_FILENAME #ifdef _PATH_LASTLOG #define LASTLOG_FILENAME _PATH_LASTLOG #else #define LASTLOG_FILENAME "/usr/adm/lastlog" /* only on BSD systems */ #endif #endif #if !defined(WTMP_FILENAME) #if defined(WTMP_FILE) #define WTMP_FILENAME WTMP_FILE #elif defined(_PATH_WTMP) #define WTMP_FILENAME _PATH_WTMP #elif defined(SYSV) #define WTMP_FILENAME "/etc/wtmp" #else #define WTMP_FILENAME "/usr/adm/wtmp" #endif #endif #include <signal.h> #if defined(__SCO__) || (defined(ISC) && !defined(_POSIX_SOURCE)) #undef SIGTSTP /* defined, but not the BSD way */ #endif #ifdef SIGTSTP #include <sys/wait.h> #endif #if defined(__SCO__) || defined(__UNIXWARE__) #undef ECHOKE #undef ECHOCTL #endif #ifdef X_NOT_POSIX extern long lseek(); #if defined(USG) || defined(SVR4) extern unsigned sleep(); #else extern void sleep(); #endif extern char *ttyname(); #endif #ifdef SYSV extern char *ptsname(int); #endif #ifdef __cplusplus extern "C" { #endif extern int tgetent(char *ptr, char *name); extern char *tgetstr(char *name, char **ptr); #ifdef __cplusplus } #endif #ifndef VMS static SIGNAL_T reapchild(int n); static int spawn(void); static void remove_termcap_entry(char *buf, char *str); #ifdef USE_PTY_SEARCH static int pty_search(int *pty); #endif #endif /* ! VMS */ static int get_pty(int *pty, char *from); static void get_terminal(void); static void resize(TScreen * s, char *oldtc, char *newtc); static void set_owner(char *device, uid_t uid, gid_t gid, mode_t mode); static Bool added_utmp_entry = False; #if defined(USE_UTMP_SETGID) static int utmpGid = -1; static int really_get_pty(int *pty, char *from); #endif #if defined(USE_SYSV_UTMP) && !defined(USE_UTEMPTER) static Bool xterm_exiting = False; #endif static char *explicit_shname = NULL; /* ** Ordinarily it should be okay to omit the assignment in the following ** statement. Apparently the c89 compiler on AIX 4.1.3 has a bug, or does ** it? Without the assignment though the compiler will init command_to_exec ** to 0xffffffff instead of NULL; and subsequent usage, e.g. in spawn() to ** SEGV. */ static char **command_to_exec = NULL; #if OPT_LUIT_PROG static char **command_to_exec_with_luit = NULL; #endif #define TERMCAP_ERASE "kb" #define VAL_INITIAL_ERASE A2E(8) /* choose a nice default value for speed - if we make it too low, users who * mistakenly use $TERM set to vt100 will get padding delays. Setting it to a * higher value is not useful since legacy applications (termcap) that care * about padding generally store the code in a short, which does not have * enough bits for the extended values. */ #ifdef B38400 /* everyone should define this */ #define VAL_LINE_SPEED B38400 #else /* ...but xterm's used this for a long time */ #define VAL_LINE_SPEED B9600 #endif /* allow use of system default characters if defined and reasonable */ #ifndef CBRK #define CBRK 0 #endif #ifndef CDSUSP #define CDSUSP CONTROL('Y') #endif #ifndef CEOF #define CEOF CONTROL('D') #endif #ifndef CEOL #define CEOL 0 #endif #ifndef CFLUSH #define CFLUSH CONTROL('O') #endif #ifndef CINTR #define CINTR 0177 #endif #ifndef CKILL #define CKILL '@' #endif #ifndef CLNEXT #define CLNEXT CONTROL('V') #endif #ifndef CNUL #define CNUL 0 #endif #ifndef CQUIT #define CQUIT CONTROL('\\') #endif #ifndef CRPRNT #define CRPRNT CONTROL('R') #endif #ifndef CSTART #define CSTART CONTROL('Q') #endif #ifndef CSTOP #define CSTOP CONTROL('S') #endif #ifndef CSUSP #define CSUSP CONTROL('Z') #endif #ifndef CSWTCH #define CSWTCH 0 #endif #ifndef CWERASE #define CWERASE CONTROL('W') #endif #ifdef USE_ANY_SYSV_TERMIO #define TERMIO_STRUCT struct termio #define ttySetAttr(fd, datap) ioctl(fd, TCSETA, datap) #define ttyGetAttr(fd, datap) ioctl(fd, TCGETA, datap) #elif defined(USE_POSIX_TERMIOS) #define TERMIO_STRUCT struct termios #define ttySetAttr(fd, datap) tcsetattr(fd, TCSANOW, datap) #define ttyGetAttr(fd, datap) tcgetattr(fd, datap) #endif /* USE_ANY_SYSV_TERMIO */ #ifndef VMS #ifdef TERMIO_STRUCT /* The following structures are initialized in main() in order ** to eliminate any assumptions about the internal order of their ** contents. */ static TERMIO_STRUCT d_tio; #ifdef HAS_LTCHARS static struct ltchars d_ltc; #endif /* HAS_LTCHARS */ #ifdef TIOCLSET static unsigned int d_lmode; #endif /* TIOCLSET */ #else /* !TERMIO_STRUCT */ static struct sgttyb d_sg = { 0, 0, 0177, CKILL, (EVENP | ODDP | ECHO | XTABS | CRMOD) }; static struct tchars d_tc = { CINTR, CQUIT, CSTART, CSTOP, CEOF, CBRK }; static struct ltchars d_ltc = { CSUSP, CDSUSP, CRPRNT, CFLUSH, CWERASE, CLNEXT }; static int d_disipline = NTTYDISC; static long int d_lmode = LCRTBS | LCRTERA | LCRTKIL | LCTLECH; #ifdef sony static long int d_jmode = KM_SYSSJIS | KM_ASCII; static struct jtchars d_jtc = { 'J', 'B' }; #endif /* sony */ #endif /* TERMIO_STRUCT */ #endif /* ! VMS */ /* * SYSV has the termio.c_cc[V] and ltchars; BSD has tchars and ltchars; * SVR4 has only termio.c_cc, but it includes everything from ltchars. * POSIX termios has termios.c_cc, which is similar to SVR4. */ #define TTYMODE(name) { name, sizeof(name)-1, 0, 0 } static int override_tty_modes = 0; /* *INDENT-OFF* */ static struct _xttymodes { char *name; size_t len; int set; Char value; } ttymodelist[] = { TTYMODE("intr"), /* tchars.t_intrc ; VINTR */ #define XTTYMODE_intr 0 TTYMODE("quit"), /* tchars.t_quitc ; VQUIT */ #define XTTYMODE_quit 1 TTYMODE("erase"), /* sgttyb.sg_erase ; VERASE */ #define XTTYMODE_erase 2 TTYMODE("kill"), /* sgttyb.sg_kill ; VKILL */ #define XTTYMODE_kill 3 TTYMODE("eof"), /* tchars.t_eofc ; VEOF */ #define XTTYMODE_eof 4 TTYMODE("eol"), /* VEOL */ #define XTTYMODE_eol 5 TTYMODE("swtch"), /* VSWTCH */ #define XTTYMODE_swtch 6 TTYMODE("start"), /* tchars.t_startc ; VSTART */ #define XTTYMODE_start 7 TTYMODE("stop"), /* tchars.t_stopc ; VSTOP */ #define XTTYMODE_stop 8 TTYMODE("brk"), /* tchars.t_brkc */ #define XTTYMODE_brk 9 TTYMODE("susp"), /* ltchars.t_suspc ; VSUSP */ #define XTTYMODE_susp 10 TTYMODE("dsusp"), /* ltchars.t_dsuspc ; VDSUSP */ #define XTTYMODE_dsusp 11 TTYMODE("rprnt"), /* ltchars.t_rprntc ; VREPRINT */ #define XTTYMODE_rprnt 12 TTYMODE("flush"), /* ltchars.t_flushc ; VDISCARD */ #define XTTYMODE_flush 13 TTYMODE("weras"), /* ltchars.t_werasc ; VWERASE */ #define XTTYMODE_weras 14 TTYMODE("lnext"), /* ltchars.t_lnextc ; VLNEXT */ #define XTTYMODE_lnext 15 TTYMODE("status"), /* VSTATUS */ #define XTTYMODE_status 16 TTYMODE("erase2"), /* VERASE2 */ #define XTTYMODE_erase2 17 TTYMODE("eol2"), /* VEOL2 */ #define XTTYMODE_eol2 18 { NULL, 0, 0, '\0' }, /* end of data */ }; /* *INDENT-ON* */ #define TMODE(ind,var) if (ttymodelist[ind].set) var = ttymodelist[ind].value static int parse_tty_modes(char *s, struct _xttymodes *modelist); #ifdef USE_SYSV_UTMP #if (defined(AIXV3) && (OSMAJORVERSION < 4)) && !(defined(getutid)) extern struct utmp *getutid(); #endif /* AIXV3 */ #else /* not USE_SYSV_UTMP */ static char etc_utmp[] = UTMP_FILENAME; #endif /* USE_SYSV_UTMP */ #ifndef USE_UTEMPTER #ifdef USE_LASTLOG static char etc_lastlog[] = LASTLOG_FILENAME; #endif #ifdef WTMP static char etc_wtmp[] = WTMP_FILENAME; #endif #endif /* !USE_UTEMPTER */ /* * Some people with 4.3bsd /bin/login seem to like to use login -p -f user * to implement xterm -ls. They can turn on USE_LOGIN_DASH_P and turn off * WTMP and USE_LASTLOG. */ #ifdef USE_LOGIN_DASH_P #ifndef LOGIN_FILENAME #define LOGIN_FILENAME "/bin/login" #endif static char bin_login[] = LOGIN_FILENAME; #endif static char passedPty[PTYCHARLEN + 1]; /* name if pty if slave */ #if defined(TIOCCONS) || defined(SRIOCSREDIR) static int Console; #include <X11/Xmu/SysUtil.h> /* XmuGetHostname */ #define MIT_CONSOLE_LEN 12 #define MIT_CONSOLE "MIT_CONSOLE_" static char mit_console_name[255 + MIT_CONSOLE_LEN + 1] = MIT_CONSOLE; static Atom mit_console; #endif /* TIOCCONS */ #ifndef USE_SYSV_UTMP static int tslot; #endif /* USE_SYSV_UTMP */ static sigjmp_buf env; #define SetUtmpHost(dst, screen) \ { \ char host[sizeof(dst) + 1]; \ strncpy(host, DisplayString(screen->display), sizeof(host)); \ TRACE(("DisplayString(%s)\n", host)); \ if (!resource.utmpDisplayId) { \ char *endptr = strrchr(host, ':'); \ if (endptr) { \ TRACE(("trimming display-id '%s'\n", host)); \ *endptr = '\0'; \ } \ } \ strncpy(dst, host, sizeof(dst)); \ } /* used by VT (charproc.c) */ static XtResource application_resources[] = { Sres("name", "Name", xterm_name, DFT_TERMTYPE), Sres("iconGeometry", "IconGeometry", icon_geometry, NULL), Sres(XtNtitle, XtCTitle, title, NULL), Sres(XtNiconName, XtCIconName, icon_name, NULL), Sres("termName", "TermName", term_name, NULL), Sres("ttyModes", "TtyModes", tty_modes, NULL), Bres("hold", "Hold", hold_screen, False), Bres("utmpInhibit", "UtmpInhibit", utmpInhibit, False), Bres("utmpDisplayId", "UtmpDisplayId", utmpDisplayId, True), Bres("messages", "Messages", messages, True), Ires("minBufSize", "MinBufSize", minBufSize, 4096), Ires("maxBufSize", "MaxBufSize", maxBufSize, 32768), Sres("keyboardType", "KeyboardType", keyboardType, "unknown"), Bres("sunFunctionKeys", "SunFunctionKeys", sunFunctionKeys, False), #if OPT_SUNPC_KBD Bres("sunKeyboard", "SunKeyboard", sunKeyboard, False), #endif #if OPT_HP_FUNC_KEYS Bres("hpFunctionKeys", "HpFunctionKeys", hpFunctionKeys, False), #endif #if OPT_SCO_FUNC_KEYS Bres("scoFunctionKeys", "ScoFunctionKeys", scoFunctionKeys, False), #endif #if OPT_INITIAL_ERASE Bres("ptyInitialErase", "PtyInitialErase", ptyInitialErase, DEF_INITIAL_ERASE), Bres("backarrowKeyIsErase", "BackarrowKeyIsErase", backarrow_is_erase, DEF_BACKARO_ERASE), #endif Bres("waitForMap", "WaitForMap", wait_for_map, False), Bres("useInsertMode", "UseInsertMode", useInsertMode, False), #if OPT_ZICONBEEP Ires("zIconBeep", "ZIconBeep", zIconBeep, 0), #endif #if OPT_PTY_HANDSHAKE Bres("ptyHandshake", "PtyHandshake", ptyHandshake, True), #endif #if OPT_SAME_NAME Bres("sameName", "SameName", sameName, True), #endif #if OPT_SESSION_MGT Bres("sessionMgt", "SessionMgt", sessionMgt, True), #endif #if OPT_TOOLBAR Bres(XtNtoolBar, XtCToolBar, toolBar, True), #endif }; static char *fallback_resources[] = { "*SimpleMenu*menuLabel.vertSpace: 100", "*SimpleMenu*HorizontalMargins: 16", "*SimpleMenu*Sme.height: 16", "*SimpleMenu*Cursor: left_ptr", "*mainMenu.Label: Main Options (no app-defaults)", "*vtMenu.Label: VT Options (no app-defaults)", "*fontMenu.Label: VT Fonts (no app-defaults)", #if OPT_TEK4014 "*tekMenu.Label: Tek Options (no app-defaults)", #endif NULL }; /* Command line options table. Only resources are entered here...there is a pass over the remaining options after XrmParseCommand is let loose. */ /* *INDENT-OFF* */ static XrmOptionDescRec optionDescList[] = { {"-geometry", "*vt100.geometry",XrmoptionSepArg, (caddr_t) NULL}, {"-132", "*c132", XrmoptionNoArg, (caddr_t) "on"}, {"+132", "*c132", XrmoptionNoArg, (caddr_t) "off"}, {"-ah", "*alwaysHighlight", XrmoptionNoArg, (caddr_t) "on"}, {"+ah", "*alwaysHighlight", XrmoptionNoArg, (caddr_t) "off"}, {"-aw", "*autoWrap", XrmoptionNoArg, (caddr_t) "on"}, {"+aw", "*autoWrap", XrmoptionNoArg, (caddr_t) "off"}, #ifndef NO_ACTIVE_ICON {"-ai", "*activeIcon", XrmoptionNoArg, (caddr_t) "off"}, {"+ai", "*activeIcon", XrmoptionNoArg, (caddr_t) "on"}, #endif /* NO_ACTIVE_ICON */ {"-b", "*internalBorder",XrmoptionSepArg, (caddr_t) NULL}, {"-bc", "*cursorBlink", XrmoptionNoArg, (caddr_t) "on"}, {"+bc", "*cursorBlink", XrmoptionNoArg, (caddr_t) "off"}, {"-bcf", "*cursorOffTime",XrmoptionSepArg, (caddr_t) NULL}, {"-bcn", "*cursorOnTime",XrmoptionSepArg, (caddr_t) NULL}, {"-bdc", "*colorBDMode", XrmoptionNoArg, (caddr_t) "off"}, {"+bdc", "*colorBDMode", XrmoptionNoArg, (caddr_t) "on"}, {"-cb", "*cutToBeginningOfLine", XrmoptionNoArg, (caddr_t) "off"}, {"+cb", "*cutToBeginningOfLine", XrmoptionNoArg, (caddr_t) "on"}, {"-cc", "*charClass", XrmoptionSepArg, (caddr_t) NULL}, {"-cm", "*colorMode", XrmoptionNoArg, (caddr_t) "off"}, {"+cm", "*colorMode", XrmoptionNoArg, (caddr_t) "on"}, {"-cn", "*cutNewline", XrmoptionNoArg, (caddr_t) "off"}, {"+cn", "*cutNewline", XrmoptionNoArg, (caddr_t) "on"}, {"-cr", "*cursorColor", XrmoptionSepArg, (caddr_t) NULL}, {"-cu", "*curses", XrmoptionNoArg, (caddr_t) "on"}, {"+cu", "*curses", XrmoptionNoArg, (caddr_t) "off"}, {"-dc", "*dynamicColors",XrmoptionNoArg, (caddr_t) "off"}, {"+dc", "*dynamicColors",XrmoptionNoArg, (caddr_t) "on"}, {"-fb", "*boldFont", XrmoptionSepArg, (caddr_t) NULL}, {"-fbb", "*freeBoldBox", XrmoptionNoArg, (caddr_t)"off"}, {"+fbb", "*freeBoldBox", XrmoptionNoArg, (caddr_t)"on"}, {"-fbx", "*forceBoxChars", XrmoptionNoArg, (caddr_t)"off"}, {"+fbx", "*forceBoxChars", XrmoptionNoArg, (caddr_t)"on"}, #ifndef NO_ACTIVE_ICON {"-fi", "*iconFont", XrmoptionSepArg, (caddr_t) NULL}, #endif /* NO_ACTIVE_ICON */ #if OPT_RENDERFONT {"-fa", "*faceName", XrmoptionSepArg, (caddr_t) NULL}, {"-fd", "*faceNameDoublesize", XrmoptionSepArg, (caddr_t) NULL}, {"-fs", "*faceSize", XrmoptionSepArg, (caddr_t) NULL}, #endif #if OPT_WIDE_CHARS {"-fw", "*wideFont", XrmoptionSepArg, (caddr_t) NULL}, {"-fwb", "*wideBoldFont", XrmoptionSepArg, (caddr_t) NULL}, #endif #if OPT_INPUT_METHOD {"-fx", "*ximFont", XrmoptionSepArg, (caddr_t) NULL}, #endif #if OPT_HIGHLIGHT_COLOR {"-hc", "*highlightColor", XrmoptionSepArg, (caddr_t) NULL}, #endif #if OPT_HP_FUNC_KEYS {"-hf", "*hpFunctionKeys",XrmoptionNoArg, (caddr_t) "on"}, {"+hf", "*hpFunctionKeys",XrmoptionNoArg, (caddr_t) "off"}, #endif {"-hold", "*hold", XrmoptionNoArg, (caddr_t) "on"}, {"+hold", "*hold", XrmoptionNoArg, (caddr_t) "off"}, #if OPT_INITIAL_ERASE {"-ie", "*ptyInitialErase", XrmoptionNoArg, (caddr_t) "on"}, {"+ie", "*ptyInitialErase", XrmoptionNoArg, (caddr_t) "off"}, #endif {"-j", "*jumpScroll", XrmoptionNoArg, (caddr_t) "on"}, {"+j", "*jumpScroll", XrmoptionNoArg, (caddr_t) "off"}, #if OPT_C1_PRINT {"-k8", "*allowC1Printable", XrmoptionNoArg, (caddr_t) "on"}, {"+k8", "*allowC1Printable", XrmoptionNoArg, (caddr_t) "off"}, #endif {"-kt", "*keyboardType", XrmoptionSepArg, (caddr_t) NULL}, {"+kt", "*keyboardType", XrmoptionSepArg, (caddr_t) NULL}, /* parse logging options anyway for compatibility */ {"-l", "*logging", XrmoptionNoArg, (caddr_t) "on"}, {"+l", "*logging", XrmoptionNoArg, (caddr_t) "off"}, {"-lf", "*logFile", XrmoptionSepArg, (caddr_t) NULL}, {"-ls", "*loginShell", XrmoptionNoArg, (caddr_t) "on"}, {"+ls", "*loginShell", XrmoptionNoArg, (caddr_t) "off"}, {"-mb", "*marginBell", XrmoptionNoArg, (caddr_t) "on"}, {"+mb", "*marginBell", XrmoptionNoArg, (caddr_t) "off"}, {"-mc", "*multiClickTime", XrmoptionSepArg, (caddr_t) NULL}, {"-mesg", "*messages", XrmoptionNoArg, (caddr_t) "off"}, {"+mesg", "*messages", XrmoptionNoArg, (caddr_t) "on"}, {"-ms", "*pointerColor",XrmoptionSepArg, (caddr_t) NULL}, {"-nb", "*nMarginBell", XrmoptionSepArg, (caddr_t) NULL}, {"-nul", "*underLine", XrmoptionNoArg, (caddr_t) "off"}, {"+nul", "*underLine", XrmoptionNoArg, (caddr_t) "on"}, {"-pc", "*boldColors", XrmoptionNoArg, (caddr_t) "on"}, {"+pc", "*boldColors", XrmoptionNoArg, (caddr_t) "off"}, {"-rw", "*reverseWrap", XrmoptionNoArg, (caddr_t) "on"}, {"+rw", "*reverseWrap", XrmoptionNoArg, (caddr_t) "off"}, {"-s", "*multiScroll", XrmoptionNoArg, (caddr_t) "on"}, {"+s", "*multiScroll", XrmoptionNoArg, (caddr_t) "off"}, {"-sb", "*scrollBar", XrmoptionNoArg, (caddr_t) "on"}, {"+sb", "*scrollBar", XrmoptionNoArg, (caddr_t) "off"}, #ifdef SCROLLBAR_RIGHT {"-leftbar", "*rightScrollBar", XrmoptionNoArg, (caddr_t) "off"}, {"-rightbar", "*rightScrollBar", XrmoptionNoArg, (caddr_t) "on"}, #endif {"-rvc", "*colorRVMode", XrmoptionNoArg, (caddr_t) "off"}, {"+rvc", "*colorRVMode", XrmoptionNoArg, (caddr_t) "on"}, {"-sf", "*sunFunctionKeys", XrmoptionNoArg, (caddr_t) "on"}, {"+sf", "*sunFunctionKeys", XrmoptionNoArg, (caddr_t) "off"}, {"-si", "*scrollTtyOutput", XrmoptionNoArg, (caddr_t) "off"}, {"+si", "*scrollTtyOutput", XrmoptionNoArg, (caddr_t) "on"}, {"-sk", "*scrollKey", XrmoptionNoArg, (caddr_t) "on"}, {"+sk", "*scrollKey", XrmoptionNoArg, (caddr_t) "off"}, {"-sl", "*saveLines", XrmoptionSepArg, (caddr_t) NULL}, #if OPT_SUNPC_KBD {"-sp", "*sunKeyboard", XrmoptionNoArg, (caddr_t) "on"}, {"+sp", "*sunKeyboard", XrmoptionNoArg, (caddr_t) "off"}, #endif #if OPT_TEK4014 {"-t", "*tekStartup", XrmoptionNoArg, (caddr_t) "on"}, {"+t", "*tekStartup", XrmoptionNoArg, (caddr_t) "off"}, #endif {"-ti", "*decTerminalID",XrmoptionSepArg, (caddr_t) NULL}, {"-tm", "*ttyModes", XrmoptionSepArg, (caddr_t) NULL}, {"-tn", "*termName", XrmoptionSepArg, (caddr_t) NULL}, #if OPT_WIDE_CHARS {"-u8", "*utf8", XrmoptionNoArg, (caddr_t) "2"}, {"+u8", "*utf8", XrmoptionNoArg, (caddr_t) "0"}, #endif #if OPT_LUIT_PROG {"-lc", "*locale", XrmoptionNoArg, (caddr_t) "on"}, {"+lc", "*locale", XrmoptionNoArg, (caddr_t) "off"}, {"-lcc", "*localeFilter",XrmoptionSepArg, (caddr_t) NULL}, {"-en", "*locale", XrmoptionSepArg, (caddr_t) NULL}, #endif {"-ulc", "*colorULMode", XrmoptionNoArg, (caddr_t) "off"}, {"+ulc", "*colorULMode", XrmoptionNoArg, (caddr_t) "on"}, {"-ulit", "*italicULMode", XrmoptionNoArg, (caddr_t) "off"}, {"+ulit", "*italicULMode", XrmoptionNoArg, (caddr_t) "on"}, {"-ut", "*utmpInhibit", XrmoptionNoArg, (caddr_t) "on"}, {"+ut", "*utmpInhibit", XrmoptionNoArg, (caddr_t) "off"}, {"-im", "*useInsertMode", XrmoptionNoArg, (caddr_t) "on"}, {"+im", "*useInsertMode", XrmoptionNoArg, (caddr_t) "off"}, {"-vb", "*visualBell", XrmoptionNoArg, (caddr_t) "on"}, {"+vb", "*visualBell", XrmoptionNoArg, (caddr_t) "off"}, {"-pob", "*popOnBell", XrmoptionNoArg, (caddr_t) "on"}, {"+pob", "*popOnBell", XrmoptionNoArg, (caddr_t) "off"}, #if OPT_WIDE_CHARS {"-wc", "*wideChars", XrmoptionNoArg, (caddr_t) "on"}, {"+wc", "*wideChars", XrmoptionNoArg, (caddr_t) "off"}, {"-mk_width", "*mkWidth", XrmoptionNoArg, (caddr_t) "on"}, {"+mk_width", "*mkWidth", XrmoptionNoArg, (caddr_t) "off"}, {"-cjk_width", "*cjkWidth", XrmoptionNoArg, (caddr_t) "on"}, {"+cjk_width", "*cjkWidth", XrmoptionNoArg, (caddr_t) "off"}, #endif {"-wf", "*waitForMap", XrmoptionNoArg, (caddr_t) "on"}, {"+wf", "*waitForMap", XrmoptionNoArg, (caddr_t) "off"}, #if OPT_ZICONBEEP {"-ziconbeep", "*zIconBeep", XrmoptionSepArg, (caddr_t) NULL}, #endif #if OPT_SAME_NAME {"-samename", "*sameName", XrmoptionNoArg, (caddr_t) "on"}, {"+samename", "*sameName", XrmoptionNoArg, (caddr_t) "off"}, #endif #if OPT_SESSION_MGT {"-sm", "*sessionMgt", XrmoptionNoArg, (caddr_t) "on"}, {"+sm", "*sessionMgt", XrmoptionNoArg, (caddr_t) "off"}, #endif #if OPT_TOOLBAR {"-tb", "*"XtNtoolBar, XrmoptionNoArg, (caddr_t) "on"}, {"+tb", "*"XtNtoolBar, XrmoptionNoArg, (caddr_t) "off"}, #endif /* options that we process ourselves */ {"-help", NULL, XrmoptionSkipNArgs, (caddr_t) NULL}, {"-version", NULL, XrmoptionSkipNArgs, (caddr_t) NULL}, {"-class", NULL, XrmoptionSkipArg, (caddr_t) NULL}, {"-e", NULL, XrmoptionSkipLine, (caddr_t) NULL}, {"-into", NULL, XrmoptionSkipArg, (caddr_t) NULL}, /* bogus old compatibility stuff for which there are standard XtOpenApplication options now */ {"%", "*tekGeometry", XrmoptionStickyArg, (caddr_t) NULL}, {"#", ".iconGeometry",XrmoptionStickyArg, (caddr_t) NULL}, {"-T", ".title", XrmoptionSepArg, (caddr_t) NULL}, {"-n", "*iconName", XrmoptionSepArg, (caddr_t) NULL}, {"-r", "*reverseVideo",XrmoptionNoArg, (caddr_t) "on"}, {"+r", "*reverseVideo",XrmoptionNoArg, (caddr_t) "off"}, {"-rv", "*reverseVideo",XrmoptionNoArg, (caddr_t) "on"}, {"+rv", "*reverseVideo",XrmoptionNoArg, (caddr_t) "off"}, {"-w", ".borderWidth", XrmoptionSepArg, (caddr_t) NULL}, }; static OptionHelp xtermOptions[] = { { "-version", "print the version number" }, { "-help", "print out this message" }, { "-display displayname", "X server to contact" }, { "-geometry geom", "size (in characters) and position" }, { "-/+rv", "turn on/off reverse video" }, { "-bg color", "background color" }, { "-fg color", "foreground color" }, { "-bd color", "border color" }, { "-bw number", "border width in pixels" }, { "-fn fontname", "normal text font" }, { "-fb fontname", "bold text font" }, { "-/+fbb", "turn on/off normal/bold font comparison inhibit"}, { "-/+fbx", "turn off/on linedrawing characters"}, #if OPT_RENDERFONT { "-fa pattern", "FreeType font-selection pattern" }, { "-fd pattern", "FreeType Doublesize font-selection pattern" }, { "-fs size", "FreeType font-size" }, #endif #if OPT_WIDE_CHARS { "-fw fontname", "doublewidth text font" }, { "-fwb fontname", "doublewidth bold text font" }, #endif #if OPT_INPUT_METHOD { "-fx fontname", "XIM fontset" }, #endif { "-iconic", "start iconic" }, { "-name string", "client instance, icon, and title strings" }, { "-class string", "class string (XTerm)" }, { "-title string", "title string" }, { "-xrm resourcestring", "additional resource specifications" }, { "-/+132", "turn on/off 80/132 column switching" }, { "-/+ah", "turn on/off always highlight" }, #ifndef NO_ACTIVE_ICON { "-/+ai", "turn off/on active icon" }, { "-fi fontname", "icon font for active icon" }, #endif /* NO_ACTIVE_ICON */ { "-b number", "internal border in pixels" }, { "-/+bc", "turn on/off text cursor blinking" }, { "-bcf milliseconds", "time text cursor is off when blinking"}, { "-bcn milliseconds", "time text cursor is on when blinking"}, { "-/+bdc", "turn off/on display of bold as color"}, { "-/+cb", "turn on/off cut-to-beginning-of-line inhibit" }, { "-cc classrange", "specify additional character classes" }, { "-/+cm", "turn off/on ANSI color mode" }, { "-/+cn", "turn on/off cut newline inhibit" }, { "-cr color", "text cursor color" }, { "-/+cu", "turn on/off curses emulation" }, { "-/+dc", "turn off/on dynamic color selection" }, #if OPT_HIGHLIGHT_COLOR { "-hc color", "selection background color" }, #endif #if OPT_HP_FUNC_KEYS { "-/+hf", "turn on/off HP Function Key escape codes" }, #endif { "-/+hold", "turn on/off logic that retains window after exit" }, #if OPT_INITIAL_ERASE { "-/+ie", "turn on/off initialization of 'erase' from pty" }, #endif { "-/+im", "use insert mode for TERMCAP" }, { "-/+j", "turn on/off jump scroll" }, #if OPT_C1_PRINT { "-/+k8", "turn on/off C1-printable classification"}, #endif { "-kt keyboardtype", "set keyboard type:" KEYBOARD_TYPES }, #ifdef ALLOWLOGGING { "-/+l", "turn on/off logging" }, { "-lf filename", "logging filename" }, #else { "-/+l", "turn on/off logging (not supported)" }, { "-lf filename", "logging filename (not supported)" }, #endif { "-/+ls", "turn on/off login shell" }, { "-/+mb", "turn on/off margin bell" }, { "-mc milliseconds", "multiclick time in milliseconds" }, { "-/+mesg", "forbid/allow messages" }, { "-ms color", "pointer color" }, { "-nb number", "margin bell in characters from right end" }, { "-/+nul", "turn off/on display of underlining" }, { "-/+aw", "turn on/off auto wraparound" }, { "-/+pc", "turn on/off PC-style bold colors" }, { "-/+rw", "turn on/off reverse wraparound" }, { "-/+s", "turn on/off multiscroll" }, { "-/+sb", "turn on/off scrollbar" }, #ifdef SCROLLBAR_RIGHT { "-rightbar", "force scrollbar right (default left)" }, { "-leftbar", "force scrollbar left" }, #endif { "-/+rvc", "turn off/on display of reverse as color" }, { "-/+sf", "turn on/off Sun Function Key escape codes" }, { "-/+si", "turn on/off scroll-on-tty-output inhibit" }, { "-/+sk", "turn on/off scroll-on-keypress" }, { "-sl number", "number of scrolled lines to save" }, #if OPT_SUNPC_KBD { "-/+sp", "turn on/off Sun/PC Function/Keypad mapping" }, #endif #if OPT_TEK4014 { "-/+t", "turn on/off Tek emulation window" }, #endif #if OPT_TOOLBAR { "-/+tb", "turn on/off toolbar" }, #endif { "-ti termid", "terminal identifier" }, { "-tm string", "terminal mode keywords and characters" }, { "-tn name", "TERM environment variable name" }, #if OPT_WIDE_CHARS { "-/+u8", "turn on/off UTF-8 mode (implies wide-characters)" }, #endif #if OPT_LUIT_PROG { "-/+lc", "turn on/off locale mode using luit" }, { "-lcc path", "filename of locale converter (" DEFLOCALEFILTER ")" }, #endif { "-/+ulc", "turn off/on display of underline as color" }, { "-/+ulit", "turn off/on display of underline as italics" }, #ifdef HAVE_UTMP { "-/+ut", "turn on/off utmp support" }, #else { "-/+ut", "turn on/off utmp support (not available)" }, #endif { "-/+vb", "turn on/off visual bell" }, { "-/+pob", "turn on/off pop on bell" }, #if OPT_WIDE_CHARS { "-/+wc", "turn on/off wide-character mode" }, { "-/+mk_width", "turn on/off simple width convention" }, { "-/+cjk_width", "turn on/off legacy CJK width convention" }, #endif { "-/+wf", "turn on/off wait for map before command exec" }, { "-e command args ...", "command to execute" }, #if OPT_TEK4014 { "%geom", "Tek window geometry" }, #endif { "#geom", "icon window geometry" }, { "-T string", "title name for window" }, { "-n string", "icon name for window" }, #if defined(TIOCCONS) || defined(SRIOCSREDIR) { "-C", "intercept console messages" }, #else { "-C", "intercept console messages (not supported)" }, #endif { "-Sccn", "slave mode on \"ttycc\", file descriptor \"n\"" }, { "-into windowId", "use the window id given to -into as the parent window rather than the default root window" }, #if OPT_ZICONBEEP { "-ziconbeep percent", "beep and flag icon of window having hidden output" }, #endif #if OPT_SAME_NAME { "-/+samename", "turn on/off the no-flicker option for title and icon name" }, #endif #if OPT_SESSION_MGT { "-/+sm", "turn on/off the session-management support" }, #endif { NULL, NULL }}; /* *INDENT-ON* */ static char *message[] = { "Fonts should be fixed width and, if both normal and bold are specified, should", "have the same size. If only a normal font is specified, it will be used for", "both normal and bold text (by doing overstriking). The -e option, if given,", "must appear at the end of the command line, otherwise the user's default shell", "will be started. Options that start with a plus sign (+) restore the default.", NULL}; /* * Decode a key-definition. This combines the termcap and ttyModes, for * comparison. Note that octal escapes in ttyModes are done by the normal * resource translation. Also, ttyModes allows '^-' as a synonym for disabled. */ static int decode_keyvalue(char **ptr, int termcap) { char *string = *ptr; int value = -1; TRACE(("...decode '%s'\n", string)); if (*string == '^') { switch (*++string) { case '?': value = A2E(127); break; case '-': if (!termcap) { errno = 0; #if defined(_POSIX_VDISABLE) && defined(HAVE_UNISTD_H) value = _POSIX_VDISABLE; #endif #if defined(_PC_VDISABLE) if (value == -1) { value = fpathconf(0, _PC_VDISABLE); if (value == -1) { if (errno != 0) break; /* skip this (error) */ value = 0377; } } #elif defined(VDISABLE) if (value == -1) value = VDISABLE; #endif break; } /* FALLTHRU */ default: value = CONTROL(*string); break; } ++string; } else if (termcap && (*string == '\\')) { char *d; int temp = strtol(string + 1, &d, 8); if (temp > 0 && d != string) { value = temp; string = d; } } else { value = CharOf(*string); ++string; } *ptr = string; return value; } /* * If we're linked to terminfo, tgetent() will return an empty buffer. We * cannot use that to adjust the $TERMCAP variable. */ static Bool get_termcap(char *name, char *buffer, char *resized) { TScreen *screen = &term->screen; *buffer = 0; /* initialize, in case we're using terminfo's tgetent */ if (name != 0) { if (tgetent(buffer, name) == 1) { TRACE(("get_termcap(%s) succeeded (%s)\n", name, (*buffer ? "ok:termcap, we can update $TERMCAP" : "assuming this is terminfo"))); if (*buffer) { if (!TEK4014_ACTIVE(screen)) { resize(screen, buffer, resized); } } return True; } else { *buffer = 0; /* just in case */ } } return False; } static int abbrev(char *tst, char *cmp, size_t need) { size_t len = strlen(tst); return ((len >= need) && (!strncmp(tst, cmp, len))); } static void Syntax(char *badOption) { OptionHelp *opt; OptionHelp *list = sortedOpts(xtermOptions, optionDescList, XtNumber(optionDescList)); int col; fprintf(stderr, "%s: bad command line option \"%s\"\r\n\n", ProgramName, badOption); fprintf(stderr, "usage: %s", ProgramName); col = 8 + strlen(ProgramName); for (opt = list; opt->opt; opt++) { int len = 3 + strlen(opt->opt); /* space [ string ] */ if (col + len > 79) { fprintf(stderr, "\r\n "); /* 3 spaces */ col = 3; } fprintf(stderr, " [%s]", opt->opt); col += len; } fprintf(stderr, "\r\n\nType %s -help for a full description.\r\n\n", ProgramName); exit(1); } static void Version(void) { printf("%s\n", xtermVersion()); fflush(stdout); } static void Help(void) { OptionHelp *opt; OptionHelp *list = sortedOpts(xtermOptions, optionDescList, XtNumber(optionDescList)); char **cpp; printf("%s usage:\n %s [-options ...] [-e command args]\n\n", xtermVersion(), ProgramName); printf("where options include:\n"); for (opt = list; opt->opt; opt++) { printf(" %-28s %s\n", opt->opt, opt->desc); } putchar('\n'); for (cpp = message; *cpp; cpp++) puts(*cpp); putchar('\n'); fflush(stdout); } #if defined(TIOCCONS) || defined(SRIOCSREDIR) /* ARGSUSED */ static Boolean ConvertConsoleSelection(Widget w GCC_UNUSED, Atom * selection GCC_UNUSED, Atom * target GCC_UNUSED, Atom * type GCC_UNUSED, XtPointer *value GCC_UNUSED, unsigned long *length GCC_UNUSED, int *format GCC_UNUSED) { /* we don't save console output, so can't offer it */ return False; } #endif /* TIOCCONS */ #if OPT_SESSION_MGT static void die_callback(Widget w GCC_UNUSED, XtPointer client_data GCC_UNUSED, XtPointer call_data GCC_UNUSED) { Cleanup(0); } static void save_callback(Widget w GCC_UNUSED, XtPointer client_data GCC_UNUSED, XtPointer call_data) { XtCheckpointToken token = (XtCheckpointToken) call_data; /* we have nothing to save */ token->save_success = True; } #endif /* OPT_SESSION_MGT */ /* * DeleteWindow(): Action proc to implement ICCCM delete_window. */ /* ARGSUSED */ static void DeleteWindow(Widget w, XEvent * event GCC_UNUSED, String * params GCC_UNUSED, Cardinal *num_params GCC_UNUSED) { #if OPT_TEK4014 if (w == toplevel) { if (term->screen.Tshow) hide_vt_window(); else do_hangup(w, (XtPointer) 0, (XtPointer) 0); } else if (term->screen.Vshow) hide_tek_window(); else #endif do_hangup(w, (XtPointer) 0, (XtPointer) 0); } /* ARGSUSED */ static void KeyboardMapping(Widget w GCC_UNUSED, XEvent * event, String * params GCC_UNUSED, Cardinal *num_params GCC_UNUSED) { switch (event->type) { case MappingNotify: XRefreshKeyboardMapping(&event->xmapping); break; } } static XtActionsRec actionProcs[] = { {"DeleteWindow", DeleteWindow}, {"KeyboardMapping", KeyboardMapping}, }; /* * Some platforms use names such as /dev/tty01, others /dev/pts/1. Parse off * the "tty01" or "pts/1" portion, and return that for use as an identifier for * utmp. */ static char * my_pty_name(char *device) { size_t len = strlen(device); Bool name = False; while (len != 0) { int ch = device[len - 1]; if (isdigit(ch)) { len--; } else if (ch == '/') { if (name) break; len--; } else if (isalpha(ch)) { name = True; len--; } else { break; } } TRACE(("my_pty_name(%s) -> '%s'\n", device, device + len)); return device + len; } /* * If the name contains a '/', it is a "pts/1" case. Otherwise, return the * last few characters for a utmp identifier. */ static char * my_pty_id(char *device) { char *name = my_pty_name(device); char *leaf = x_basename(name); if (name == leaf) { /* no '/' in the name */ int len = strlen(leaf); if (PTYCHARLEN < len) leaf = leaf + (len - PTYCHARLEN); } TRACE(("my_pty_id (%s) -> '%s'\n", device, leaf)); return leaf; } /* * Set the tty/pty identifier */ static void set_pty_id(char *device, char *id) { char *name = my_pty_name(device); char *leaf = x_basename(name); if (name == leaf) { strcpy(my_pty_id(device), id); } else { strcpy(leaf, id); } TRACE(("set_pty_id(%s) -> '%s'\n", id, device)); } /* * The original -S option accepts two characters to identify the pty, and a * file-descriptor (assumed to be nonzero). That is not general enough, so we * check first if the option contains a '/' to delimit the two fields, and if * not, fall-thru to the original logic. */ static Bool ParseSccn(char *option) { char *leaf = x_basename(option); Bool code = False; if (leaf != option) { if (leaf - option > 0 && isdigit(CharOf(*leaf)) && sscanf(leaf, "%d", &am_slave) == 1) { size_t len = leaf - option - 1; /* * If we have a slash, we only care about the part after the slash, * which is a file-descriptor. The part before the slash can be * the /dev/pts/XXX value, but since we do not need to reopen it, * it is useful mainly for display in a "ps -ef". */ strncpy(passedPty, option, len); passedPty[len] = 0; code = True; } } else { code = (sscanf(option, "%c%c%d", passedPty, passedPty + 1, &am_slave) == 3); } TRACE(("ParseSccn(%s) = '%s' %d (%s)\n", option, passedPty, am_slave, code ? "OK" : "ERR")); return code; } #if defined(USE_SYSV_UTMP) && !defined(USE_UTEMPTER) /* * From "man utmp": * xterm and other terminal emulators directly create a USER_PROCESS record * and generate the ut_id by using the last two letters of /dev/ttyp%c or by * using p%d for /dev/pts/%d. If they find a DEAD_PROCESS for this id, they * recycle it, otherwise they create a new entry. If they can, they will mark * it as DEAD_PROCESS on exiting and it is advised that they null ut_line, * ut_time, ut_user and ut_host as well. * * Generally ut_id allows no more than 3 characters (plus null), even if the * pty implementation allows more than 3 digits. */ static char * my_utmp_id(char *device) { typedef struct UTMP_STR UTMP_STRUCT; #define UTIDSIZE (sizeof(((UTMP_STRUCT *)NULL)->ut_id)) static char result[UTIDSIZE + 1]; #if defined(__SCO__) || defined(__UNIXWARE__) /* * Legend does not support old-style pty's, has no related compatibility * issues, and can use the available space in ut_id differently from the * default convention. * * This scheme is intended to avoid conflicts both with other users of * utmpx as well as between multiple xterms. First, Legend uses all of the * characters of ut_id, and adds no terminating NUL is required (the * default scheme may add a trailing NUL). Second, all xterm entries will * start with the letter 'x' followed by three digits, which will be the * last three digits of the device name, regardless of the format of the * device name, with leading 0's added where necessary. For instance, an * xterm on /dev/pts/3 will have a ut_id of x003; an xterm on /dev/pts123 * will have a ut_id of x123. Under the other convention, /dev/pts/3 would * have a ut_id of p3 and /dev/pts123 would have a ut_id of p123. */ int len, n; len = strlen(device); n = UTIDSIZE; result[n] = '\0'; while ((n > 0) && (len > 0) && isdigit(device[len - 1])) result[--n] = device[--len]; while (n > 0) result[--n] = '0'; result[0] = 'x'; #else char *name = my_pty_name(device); char *leaf = x_basename(name); size_t len = strlen(leaf); if ((UTIDSIZE - 1) < len) leaf = leaf + (len - (UTIDSIZE - 1)); sprintf(result, "p%s", leaf); #endif TRACE(("my_utmp_id (%s) -> '%s'\n", device, result)); return result; } #endif /* USE_SYSV_UTMP */ #ifdef USE_POSIX_SIGNALS typedef void (*sigfunc) (int); /* make sure we sure we ignore SIGCHLD for the cases parent has just been stopped and not actually killed */ static sigfunc posix_signal(int signo, sigfunc func) { struct sigaction act, oact; act.sa_handler = func; sigemptyset(&act.sa_mask); #ifdef SA_RESTART act.sa_flags = SA_NOCLDSTOP | SA_RESTART; #else act.sa_flags = SA_NOCLDSTOP; #endif if (sigaction(signo, &act, &oact) < 0) return (SIG_ERR); return (oact.sa_handler); } #endif /* linux && _POSIX_SOURCE */ int main(int argc, char *argv[]ENVP_ARG) { Widget form_top, menu_top; TScreen *screen; int mode; char *my_class = DEFCLASS; Window winToEmbedInto = None; #ifdef DISABLE_SETUID if (seteuid(getuid()) == -1) exit(2); if (setuid(getuid()) == -1) exit(2); #endif ProgramName = argv[0]; /* extra length in case longer tty name like /dev/ttyq255 */ ttydev = TypeMallocN(char, sizeof(TTYDEV) + 80); #ifdef USE_PTY_DEVICE ptydev = TypeMallocN(char, sizeof(PTYDEV) + 80); if (!ttydev || !ptydev) #else if (!ttydev) #endif { fprintf(stderr, "%s: unable to allocate memory for ttydev or ptydev\n", ProgramName); exit(1); } strcpy(ttydev, TTYDEV); #ifdef USE_PTY_DEVICE strcpy(ptydev, PTYDEV); #endif #if defined(USE_UTMP_SETGID) get_pty(NULL, NULL); if (seteuid(getuid()) == -1) { fprintf(stderr, "%s: unable to change back euid\n", ProgramName); exit(1); } if (setuid(getuid()) == -1) { fprintf(stderr, "%s: unable to change back uid\n", ProgramName); exit(1); } #define get_pty(pty, from) really_get_pty(pty, from) #endif /* Do these first, since we may not be able to open the display */ TRACE_OPTS(xtermOptions, optionDescList, XtNumber(optionDescList)); TRACE_ARGV("Before XtOpenApplication", argv); if (argc > 1) { int n; unsigned unique = 2; Bool quit = True; for (n = 1; n < argc; n++) { TRACE(("parsing %s\n", argv[n])); if (abbrev(argv[n], "-version", unique)) { Version(); } else if (abbrev(argv[n], "-help", unique)) { Help(); } else if (abbrev(argv[n], "-class", 3)) { if ((my_class = argv[++n]) == 0) { Help(); } else { quit = False; } unique = 3; } else { quit = False; unique = 3; } } if (quit) exit(0); } /* This dumps core on HP-UX 9.05 with X11R5 */ #if OPT_I18N_SUPPORT XtSetLanguageProc(NULL, NULL, NULL); #endif #ifdef TERMIO_STRUCT /* { */ /* Initialization is done here rather than above in order * to prevent any assumptions about the order of the contents * of the various terminal structures (which may change from * implementation to implementation). */ d_tio.c_iflag = ICRNL | IXON; #ifdef TAB3 d_tio.c_oflag = OPOST | ONLCR | TAB3; #else #ifdef ONLCR d_tio.c_oflag = OPOST | ONLCR; #else d_tio.c_oflag = OPOST; #endif #endif #if defined(macII) || defined(ATT) || defined(CRAY) /* { */ d_tio.c_cflag = VAL_LINE_SPEED | CS8 | CREAD | PARENB | HUPCL; d_tio.c_lflag = ISIG | ICANON | ECHO | ECHOE | ECHOK; #ifdef ECHOKE d_tio.c_lflag |= ECHOKE | IEXTEN; #endif #ifdef ECHOCTL d_tio.c_lflag |= ECHOCTL | IEXTEN; #endif #ifndef USE_TERMIOS /* { */ d_tio.c_line = 0; #endif /* } */ d_tio.c_cc[VINTR] = CINTR; d_tio.c_cc[VQUIT] = CQUIT; d_tio.c_cc[VERASE] = CERASE; d_tio.c_cc[VKILL] = CKILL; d_tio.c_cc[VEOF] = CEOF; d_tio.c_cc[VEOL] = CNUL; d_tio.c_cc[VEOL2] = CNUL; #ifdef VSWTCH d_tio.c_cc[VSWTCH] = CNUL; #endif #if defined(USE_TERMIOS) || defined(USE_POSIX_TERMIOS) /* { */ d_tio.c_cc[VSUSP] = CSUSP; #ifdef VDSUSP d_tio.c_cc[VDSUSP] = CDSUSP; #endif d_tio.c_cc[VREPRINT] = CRPRNT; d_tio.c_cc[VDISCARD] = CFLUSH; d_tio.c_cc[VWERASE] = CWERASE; d_tio.c_cc[VLNEXT] = CLNEXT; d_tio.c_cc[VMIN] = 1; d_tio.c_cc[VTIME] = 0; #endif /* } */ #ifdef HAS_LTCHARS /* { */ d_ltc.t_suspc = CSUSP; /* t_suspc */ d_ltc.t_dsuspc = CDSUSP; /* t_dsuspc */ d_ltc.t_rprntc = CRPRNT; d_ltc.t_flushc = CFLUSH; d_ltc.t_werasc = CWERASE; d_ltc.t_lnextc = CLNEXT; #endif /* } HAS_LTCHARS */ #ifdef TIOCLSET /* { */ d_lmode = 0; #endif /* } TIOCLSET */ #else /* }{ else !macII, ATT, CRAY */ #ifndef USE_POSIX_TERMIOS #ifdef BAUD_0 /* { */ d_tio.c_cflag = CS8 | CREAD | PARENB | HUPCL; #else /* }{ !BAUD_0 */ d_tio.c_cflag = VAL_LINE_SPEED | CS8 | CREAD | PARENB | HUPCL; #endif /* } !BAUD_0 */ #else /* USE_POSIX_TERMIOS */ d_tio.c_cflag = CS8 | CREAD | PARENB | HUPCL; cfsetispeed(&d_tio, VAL_LINE_SPEED); cfsetospeed(&d_tio, VAL_LINE_SPEED); #endif d_tio.c_lflag = ISIG | ICANON | ECHO | ECHOE | ECHOK; #ifdef ECHOKE d_tio.c_lflag |= ECHOKE | IEXTEN; #endif #ifdef ECHOCTL d_tio.c_lflag |= ECHOCTL | IEXTEN; #endif #ifndef USE_POSIX_TERMIOS #ifdef NTTYDISC d_tio.c_line = NTTYDISC; #else d_tio.c_line = 0; #endif #endif /* USE_POSIX_TERMIOS */ #ifdef __sgi d_tio.c_cflag &= ~(HUPCL | PARENB); d_tio.c_iflag |= BRKINT | ISTRIP | IGNPAR; #endif #ifdef __MVS__ d_tio.c_cflag &= ~(HUPCL | PARENB); #endif d_tio.c_cc[VINTR] = CONTROL('C'); /* '^C' */ d_tio.c_cc[VERASE] = 0x7f; /* DEL */ d_tio.c_cc[VKILL] = CONTROL('U'); /* '^U' */ d_tio.c_cc[VQUIT] = CQUIT; /* '^\' */ d_tio.c_cc[VEOF] = CEOF; /* '^D' */ d_tio.c_cc[VEOL] = CEOL; /* '^@' */ d_tio.c_cc[VMIN] = 1; d_tio.c_cc[VTIME] = 0; #ifdef VSWTCH d_tio.c_cc[VSWTCH] = CSWTCH; /* usually '^Z' */ #endif #ifdef VLNEXT d_tio.c_cc[VLNEXT] = CLNEXT; #endif #ifdef VWERASE d_tio.c_cc[VWERASE] = CWERASE; #endif #ifdef VREPRINT d_tio.c_cc[VREPRINT] = CRPRNT; #endif #ifdef VRPRNT d_tio.c_cc[VRPRNT] = CRPRNT; #endif #ifdef VDISCARD d_tio.c_cc[VDISCARD] = CFLUSH; #endif #ifdef VFLUSHO d_tio.c_cc[VFLUSHO] = CFLUSH; #endif #ifdef VSTOP d_tio.c_cc[VSTOP] = CSTOP; #endif #ifdef VSTART d_tio.c_cc[VSTART] = CSTART; #endif #ifdef VSUSP d_tio.c_cc[VSUSP] = CSUSP; #endif #ifdef VDSUSP d_tio.c_cc[VDSUSP] = CDSUSP; #endif #ifdef VSTATUS d_tio.c_cc[VSTATUS] = CSTATUS; #endif /* now, try to inherit tty settings */ { int i; for (i = 0; i <= 2; i++) { TERMIO_STRUCT deftio; if (ttyGetAttr(i, &deftio) == 0) { d_tio.c_cc[VINTR] = deftio.c_cc[VINTR]; d_tio.c_cc[VQUIT] = deftio.c_cc[VQUIT]; d_tio.c_cc[VERASE] = deftio.c_cc[VERASE]; d_tio.c_cc[VKILL] = deftio.c_cc[VKILL]; d_tio.c_cc[VEOF] = deftio.c_cc[VEOF]; d_tio.c_cc[VEOL] = deftio.c_cc[VEOL]; #ifdef VSWTCH d_tio.c_cc[VSWTCH] = deftio.c_cc[VSWTCH]; #endif #ifdef VEOL2 d_tio.c_cc[VEOL2] = deftio.c_cc[VEOL2]; #endif #ifdef VLNEXT d_tio.c_cc[VLNEXT] = deftio.c_cc[VLNEXT]; #endif #ifdef VWERASE d_tio.c_cc[VWERASE] = deftio.c_cc[VWERASE]; #endif #ifdef VREPRINT d_tio.c_cc[VREPRINT] = deftio.c_cc[VREPRINT]; #endif #ifdef VRPRNT d_tio.c_cc[VRPRNT] = deftio.c_cc[VRPRNT]; #endif #ifdef VDISCARD d_tio.c_cc[VDISCARD] = deftio.c_cc[VDISCARD]; #endif #ifdef VFLUSHO d_tio.c_cc[VFLUSHO] = deftio.c_cc[VFLUSHO]; #endif #ifdef VSTOP d_tio.c_cc[VSTOP] = deftio.c_cc[VSTOP]; #endif #ifdef VSTART d_tio.c_cc[VSTART] = deftio.c_cc[VSTART]; #endif #ifdef VSUSP d_tio.c_cc[VSUSP] = deftio.c_cc[VSUSP]; #endif #ifdef VDSUSP d_tio.c_cc[VDSUSP] = deftio.c_cc[VDSUSP]; #endif #ifdef VSTATUS d_tio.c_cc[VSTATUS] = deftio.c_cc[VSTATUS]; #endif break; } } } #ifdef HAS_LTCHARS /* { */ d_ltc.t_suspc = CharOf('\000'); /* t_suspc */ d_ltc.t_dsuspc = CharOf('\000'); /* t_dsuspc */ d_ltc.t_rprntc = CharOf('\377'); /* reserved... */ d_ltc.t_flushc = CharOf('\377'); d_ltc.t_werasc = CharOf('\377'); d_ltc.t_lnextc = CharOf('\377'); #endif /* } HAS_LTCHARS */ #if defined(USE_TERMIOS) || defined(USE_POSIX_TERMIOS) /* { */ d_tio.c_cc[VSUSP] = CSUSP; #ifdef VDSUSP d_tio.c_cc[VDSUSP] = CharOf('\000'); #endif #ifdef VSTATUS d_tio.c_cc[VSTATUS] = CharOf('\377'); #endif #ifdef VREPRINT d_tio.c_cc[VREPRINT] = CharOf('\377'); #endif #ifdef VDISCARD d_tio.c_cc[VDISCARD] = CharOf('\377'); #endif #ifdef VWERASE d_tio.c_cc[VWERASE] = CharOf('\377'); #endif #ifdef VLNEXT d_tio.c_cc[VLNEXT] = CharOf('\377'); #endif #endif /* } USE_TERMIOS */ #ifdef TIOCLSET /* { */ d_lmode = 0; #endif /* } TIOCLSET */ #endif /* } macII, ATT, CRAY */ #endif /* } TERMIO_STRUCT */ /* Init the Toolkit. */ { #ifdef HAS_SAVED_IDS_AND_SETEUID uid_t euid = geteuid(); gid_t egid = getegid(); uid_t ruid = getuid(); gid_t rgid = getgid(); if (setegid(rgid) == -1) { #ifdef __MVS__ if (!(errno == EMVSERR)) /* could happen if _BPX_SHAREAS=REUSE */ #endif (void) fprintf(stderr, "setegid(%d): %s\n", (int) rgid, strerror(errno)); } if (seteuid(ruid) == -1) { #ifdef __MVS__ if (!(errno == EMVSERR)) #endif (void) fprintf(stderr, "seteuid(%d): %s\n", (int) ruid, strerror(errno)); } #endif XtSetErrorHandler(xt_error); #if OPT_SESSION_MGT toplevel = XtOpenApplication(&app_con, my_class, optionDescList, XtNumber(optionDescList), &argc, argv, fallback_resources, sessionShellWidgetClass, NULL, 0); #else toplevel = XtAppInitialize(&app_con, my_class, optionDescList, XtNumber(optionDescList), &argc, argv, fallback_resources, NULL, 0); #endif /* OPT_SESSION_MGT */ XtSetErrorHandler((XtErrorHandler) 0); XtGetApplicationResources(toplevel, (XtPointer) &resource, application_resources, XtNumber(application_resources), NULL, 0); TRACE_XRES(); #ifdef HAS_SAVED_IDS_AND_SETEUID if (seteuid(euid) == -1) { #ifdef __MVS__ if (!(errno == EMVSERR)) #endif (void) fprintf(stderr, "seteuid(%d): %s\n", (int) euid, strerror(errno)); } if (setegid(egid) == -1) { #ifdef __MVS__ if (!(errno == EMVSERR)) #endif (void) fprintf(stderr, "setegid(%d): %s\n", (int) egid, strerror(errno)); } #endif #if defined(USE_UTMP_SETGID) if (resource.utmpInhibit) { /* Can totally revoke group privs */ setegid(getgid()); setgid(getgid()); } #endif } waiting_for_initial_map = resource.wait_for_map; /* * ICCCM delete_window. */ XtAppAddActions(app_con, actionProcs, XtNumber(actionProcs)); /* * fill in terminal modes */ if (resource.tty_modes) { int n = parse_tty_modes(resource.tty_modes, ttymodelist); if (n < 0) { fprintf(stderr, "%s: bad tty modes \"%s\"\n", ProgramName, resource.tty_modes); } else if (n > 0) { override_tty_modes = 1; } } #if OPT_ZICONBEEP zIconBeep = resource.zIconBeep; zIconBeep_flagged = False; if (zIconBeep > 100 || zIconBeep < -100) { zIconBeep = 0; /* was 100, but I prefer to defaulting off. */ fprintf(stderr, "a number between -100 and 100 is required for zIconBeep. 0 used by default\n"); } #endif /* OPT_ZICONBEEP */ #if OPT_SAME_NAME sameName = resource.sameName; #endif hold_screen = resource.hold_screen ? 1 : 0; xterm_name = resource.xterm_name; if (strcmp(xterm_name, "-") == 0) xterm_name = DFT_TERMTYPE; if (resource.icon_geometry != NULL) { int scr, junk; int ix, iy; Arg args[2]; for (scr = 0; /* yyuucchh */ XtScreen(toplevel) != ScreenOfDisplay(XtDisplay(toplevel), scr); scr++) ; args[0].name = XtNiconX; args[1].name = XtNiconY; XGeometry(XtDisplay(toplevel), scr, resource.icon_geometry, "", 0, 0, 0, 0, 0, &ix, &iy, &junk, &junk); args[0].value = (XtArgVal) ix; args[1].value = (XtArgVal) iy; XtSetValues(toplevel, args, 2); } XtSetValues(toplevel, ourTopLevelShellArgs, number_ourTopLevelShellArgs); #if OPT_WIDE_CHARS /* seems as good a place as any */ init_classtab(); #endif /* Parse the rest of the command line */ TRACE_ARGV("After XtOpenApplication", argv); for (argc--, argv++; argc > 0; argc--, argv++) { #ifdef VMS if (**argv != '-') Syntax(*argv); #else if (**argv != '-') { if (argc > 1) Syntax(*argv); if (command_to_exec == 0) /* if no "-e" option */ explicit_shname = xtermFindShell(*argv, True); continue; } #endif TRACE(("parsing %s\n", argv[0])); switch (argv[0][1]) { case 'h': /* -help */ Help(); continue; case 'v': /* -version */ Version(); continue; case 'C': #if defined(TIOCCONS) || defined(SRIOCSREDIR) #ifndef __sgi { struct stat sbuf; /* Must be owner and have read/write permission. xdm cooperates to give the console the right user. */ if (!stat("/dev/console", &sbuf) && (sbuf.st_uid == getuid()) && !access("/dev/console", R_OK | W_OK)) { Console = True; } else Console = False; } #else /* __sgi */ Console = True; #endif /* __sgi */ #endif /* TIOCCONS */ continue; case 'S': if (!ParseSccn(*argv + 2)) Syntax(*argv); continue; #ifdef DEBUG case 'D': debug = True; continue; #endif /* DEBUG */ case 'c': /* -class param */ if (strcmp(argv[0] + 1, "class") == 0) argc--, argv++; else Syntax(*argv); continue; case 'e': if (argc <= 1) Syntax(*argv); command_to_exec = ++argv; break; case 'i': if (argc <= 1) { Syntax(*argv); } else { char *endPtr; --argc; ++argv; winToEmbedInto = (Window) strtol(argv[0], &endPtr, 10); } continue; default: Syntax(*argv); } break; } SetupMenus(toplevel, &form_top, &menu_top); term = (XtermWidget) XtVaCreateManagedWidget("vt100", xtermWidgetClass, form_top, #if OPT_TOOLBAR XtNmenuBar, menu_top, XtNresizable, True, XtNfromVert, menu_top, XtNleft, XawChainLeft, XtNright, XawChainRight, XtNtop, XawChainTop, XtNbottom, XawChainBottom, #endif (XtPointer) 0); decode_keyboard_type(&resource); screen = &term->screen; screen->inhibit = 0; #ifdef ALLOWLOGGING if (term->misc.logInhibit) screen->inhibit |= I_LOG; #endif if (term->misc.signalInhibit) screen->inhibit |= I_SIGNAL; #if OPT_TEK4014 if (term->misc.tekInhibit) screen->inhibit |= I_TEK; #endif /* * We might start by showing the tek4014 window. */ #if OPT_TEK4014 if (screen->inhibit & I_TEK) screen->TekEmu = False; if (screen->TekEmu && !TekInit()) SysError(ERROR_INIT); #endif /* * Start the toolbar at this point, after the first window has been setup. */ #if OPT_TOOLBAR ShowToolbar(resource.toolBar); #endif #if OPT_SESSION_MGT if (resource.sessionMgt) { TRACE(("Enabling session-management callbacks\n")); XtAddCallback(toplevel, XtNdieCallback, die_callback, NULL); XtAddCallback(toplevel, XtNsaveCallback, save_callback, NULL); } #endif /* * Set title and icon name if not specified */ if (command_to_exec) { Arg args[2]; if (!resource.title) { if (command_to_exec) { resource.title = x_basename(command_to_exec[0]); } /* else not reached */ } if (!resource.icon_name) resource.icon_name = resource.title; XtSetArg(args[0], XtNtitle, resource.title); XtSetArg(args[1], XtNiconName, resource.icon_name); TRACE(("setting:\n\ttitle \"%s\"\n\ticon \"%s\"\n\tbased on command \"%s\"\n", resource.title, resource.icon_name, *command_to_exec)); XtSetValues(toplevel, args, 2); } #if OPT_LUIT_PROG if (term->misc.callfilter) { int u = (term->misc.use_encoding ? 2 : 0); if (command_to_exec) { int n; char **c; for (n = 0, c = command_to_exec; *c; n++, c++) ; c = TypeMallocN(char *, n + 3 + u); if (c == NULL) SysError(ERROR_LUMALLOC); memcpy(c + 2 + u, command_to_exec, (n + 1) * sizeof(char *)); c[0] = term->misc.localefilter; if (u) { c[1] = "-encoding"; c[2] = term->misc.locale_str; } c[1 + u] = "--"; command_to_exec_with_luit = c; } else { static char *luit[4]; luit[0] = term->misc.localefilter; if (u) { luit[1] = "-encoding"; luit[2] = term->misc.locale_str; luit[3] = NULL; } else luit[1] = NULL; command_to_exec_with_luit = luit; } } #endif #ifdef DEBUG { /* Set up stderr properly. Opening this log file cannot be done securely by a privileged xterm process (although we try), so the debug feature is disabled by default. */ char dbglogfile[45]; int i = -1; if (debug) { timestamp_filename(dbglogfile, "xterm.debug.log."); if (creat_as(getuid(), getgid(), False, dbglogfile, 0666)) { i = open(dbglogfile, O_WRONLY | O_TRUNC); } } if (i >= 0) { dup2(i, 2); /* mark this file as close on exec */ (void) fcntl(i, F_SETFD, 1); } } #endif /* DEBUG */ /* open a terminal for client */ get_terminal(); spawn(); #ifndef VMS /* Child process is out there, let's catch its termination */ #ifdef USE_POSIX_SIGNALS (void) posix_signal(SIGCHLD, reapchild); #else (void) signal(SIGCHLD, reapchild); #endif /* Realize procs have now been executed */ if (am_slave >= 0) { /* Write window id so master end can read and use */ char buf[80]; buf[0] = '\0'; sprintf(buf, "%lx\n", XtWindow(SHELL_OF(CURRENT_EMU(screen)))); write(screen->respond, buf, strlen(buf)); } #ifdef AIXV3 #if (OSMAJORVERSION < 4) /* In AIXV3, xterms started from /dev/console have CLOCAL set. * This means we need to clear CLOCAL so that SIGHUP gets sent * to the slave-pty process when xterm exits. */ { TERMIO_STRUCT tio; if (ttyGetAttr(screen->respond, &tio) == -1) SysError(ERROR_TIOCGETP); tio.c_cflag &= ~(CLOCAL); if (ttySetAttr(screen->respond, &tio) == -1) SysError(ERROR_TIOCSETP); } #endif #endif #if defined(USE_ANY_SYSV_TERMIO) || defined(__MVS__) if (0 > (mode = fcntl(screen->respond, F_GETFL, 0))) SysError(ERROR_F_GETFL); #ifdef O_NDELAY mode |= O_NDELAY; #else mode |= O_NONBLOCK; #endif /* O_NDELAY */ if (fcntl(screen->respond, F_SETFL, mode)) SysError(ERROR_F_SETFL); #else /* !USE_ANY_SYSV_TERMIO */ mode = 1; if (ioctl(screen->respond, FIONBIO, (char *) &mode) == -1) SysError(ERROR_FIONBIO); #endif /* USE_ANY_SYSV_TERMIO, etc */ /* The erase character is used to delete the current completion */ #if OPT_DABBREV #ifdef TERMIO_STRUCT screen->dabbrev_erase_char = d_tio.c_cc[VERASE]; #else screen->dabbrev_erase_char = d_sg.sg_erase; #endif #endif FD_ZERO(&pty_mask); FD_ZERO(&X_mask); FD_ZERO(&Select_mask); FD_SET(screen->respond, &pty_mask); FD_SET(ConnectionNumber(screen->display), &X_mask); FD_SET(screen->respond, &Select_mask); FD_SET(ConnectionNumber(screen->display), &Select_mask); max_plus1 = ((screen->respond < ConnectionNumber(screen->display)) ? (1 + ConnectionNumber(screen->display)) : (1 + screen->respond)); #endif /* !VMS */ #ifdef DEBUG if (debug) printf("debugging on\n"); #endif /* DEBUG */ XSetErrorHandler(xerror); XSetIOErrorHandler(xioerror); initPtyData(&VTbuffer); #ifdef ALLOWLOGGING if (term->misc.log_on) { StartLog(screen); } #endif if (winToEmbedInto != None) { XtRealizeWidget(toplevel); /* * This should probably query the tree or check the attributes of * winToEmbedInto in order to verify that it exists, but I'm still not * certain what is the best way to do it -GPS */ XReparentWindow(XtDisplay(toplevel), XtWindow(toplevel), winToEmbedInto, 0, 0); } for (;;) { #if OPT_TEK4014 if (screen->TekEmu) TekRun(); else #endif VTRun(); } } #if defined(__osf__) || (defined(__GLIBC__) && !defined(USE_USG_PTYS)) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__APPLE__) #define USE_OPENPTY 1 static int opened_tty = -1; #endif /* * This function opens up a pty master and stuffs its value into pty. * * If it finds one, it returns a value of 0. If it does not find one, * it returns a value of !0. This routine is designed to be re-entrant, * so that if a pty master is found and later, we find that the slave * has problems, we can re-enter this function and get another one. */ static int get_pty(int *pty, char *from GCC_UNUSED) { int result = 1; #if defined(PUCC_PTYD) result = ((*pty = openrpty(ttydev, ptydev, (resource.utmpInhibit ? OPTY_NOP : OPTY_LOGIN), getuid(), from)) < 0); #elif defined(USE_OPENPTY) result = openpty(pty, &opened_tty, ttydev, NULL, NULL); #elif defined(__QNXNTO__) result = pty_search(pty); #else #if defined(USE_ISPTS_FLAG) /* The order of this code is *important*. On SYSV/386 we want to open a /dev/ttyp? first if at all possible. If none are available, then we'll try to open a /dev/pts??? device. The reason for this is because /dev/ttyp? works correctly, where as /dev/pts??? devices have a number of bugs, (won't update screen correcly, will hang -- it more or less works, but you really don't want to use it). Most importantly, for boxes of this nature, one of the major "features" is that you can emulate a 8086 by spawning off a UNIX program on 80386/80486 in v86 mode. In other words, you can spawn off multiple MS-DOS environments. On ISC the program that does this is named "vpix." The catcher is that "vpix" will *not* work with a /dev/pts??? device, will only work with a /dev/ttyp? device. Since we can open either a /dev/ttyp? or a /dev/pts??? device, the flag "IsPts" is set here so that we know which type of device we're dealing with in routine spawn(). That's the reason for the "if (IsPts)" statement in spawn(); we have two different device types which need to be handled differently. */ result = pty_search(pty); if (!result) IsPts = 0; #endif #if defined(USE_USG_PTYS) || defined(__CYGWIN__) #ifdef __GLIBC__ /* if __GLIBC__ and USE_USG_PTYS, we know glibc >= 2.1 */ /* GNU libc 2 allows us to abstract away from having to know the master pty device name. */ if ((*pty = getpt()) >= 0) { char *name = ptsname(*pty); if (name != 0) { /* if filesystem is trashed, this may be null */ strcpy(ttydev, name); result = 0; } } #elif defined(__MVS__) result = pty_search(pty); #else #if defined(USE_ISPTS_FLAG) if (result) { #endif result = ((*pty = open("/dev/ptmx", O_RDWR)) < 0); #endif #if defined(SVR4) || defined(__SCO__) || defined(USE_ISPTS_FLAG) if (!result) strcpy(ttydev, ptsname(*pty)); #ifdef USE_ISPTS_FLAG IsPts = !result; /* true if we're successful */ } #endif #endif #elif defined(AIXV3) if ((*pty = open("/dev/ptc", O_RDWR)) >= 0) { strcpy(ttydev, ttyname(*pty)); result = 0; } #elif defined(__convex__) char *pty_name; extern char *getpty(void); while ((pty_name = getpty()) != NULL) { if ((*pty = open(pty_name, O_RDWR)) >= 0) { strcpy(ptydev, pty_name); strcpy(ttydev, pty_name); *x_basename(ttydev) = 't'; result = 0; break; } } #elif defined(sequent) result = ((*pty = getpseudotty(&ttydev, &ptydev)) < 0); #elif defined(__sgi) && (OSMAJORVERSION >= 4) char *tty_name; tty_name = _getpty(pty, O_RDWR, 0622, 0); if (tty_name != 0) { strcpy(ttydev, tty_name); result = 0; } #elif (defined(__sgi) && (OSMAJORVERSION < 4)) || (defined(umips) && defined (SYSTYPE_SYSV)) struct stat fstat_buf; *pty = open("/dev/ptc", O_RDWR); if (*pty >= 0 && (fstat(*pty, &fstat_buf)) >= 0) { result = 0; sprintf(ttydev, "/dev/ttyq%d", minor(fstat_buf.st_rdev)); } #elif defined(__hpux) /* * Use the clone device if it works, otherwise use pty_search logic. */ if ((*pty = open("/dev/ptym/clone", O_RDWR)) >= 0) { char *name = ptsname(*pty); if (name != 0) { strcpy(ttydev, name); result = 0; } else { /* permissions, or other unexpected problem */ close(*pty); *pty = -1; result = pty_search(pty); } } else { result = pty_search(pty); } #else result = pty_search(pty); #endif #endif TRACE(("get_pty(ttydev=%s, ptydev=%s) %s fd=%d\n", ttydev != 0 ? ttydev : "?", ptydev != 0 ? ptydev : "?", result ? "FAIL" : "OK", pty != 0 ? *pty : -1)); return result; } static void set_pty_permissions(uid_t uid, gid_t gid, mode_t mode) { #ifdef USE_TTY_GROUP struct group *ttygrp; if ((ttygrp = getgrnam(TTY_GROUP_NAME)) != 0) { gid = ttygrp->gr_gid; mode &= 0660U; } endgrent(); #endif /* USE_TTY_GROUP */ set_owner(ttydev, uid, gid, mode); } #ifdef get_pty /* USE_UTMP_SETGID */ #undef get_pty /* * Call the real get_pty() before relinquishing root-setuid, caching the * result. */ static int get_pty(int *pty, char *from) { static int m_pty = -1; int result = -1; if (pty == NULL) { result = really_get_pty(&m_pty, from); seteuid(0); set_pty_permissions(getuid(), getgid(), 0600U); seteuid(getuid()); #ifdef USE_OPENPTY if (opened_tty >= 0) { close(opened_tty); opened_tty = -1; } #endif } else if (m_pty != -1) { *pty = m_pty; result = 0; } else { result = -1; } return result; } #endif /* * Called from get_pty to iterate over likely pseudo terminals * we might allocate. Used on those systems that do not have * a functional interface for allocating a pty. * Returns 0 if found a pty, 1 if fails. */ #ifdef USE_PTY_SEARCH static int pty_search(int *pty) { static int devindex = 0, letter = 0; #if defined(CRAY) || defined(__MVS__) while (devindex < MAXPTTYS) { sprintf(ttydev, TTYFORMAT, devindex); sprintf(ptydev, PTYFORMAT, devindex); devindex++; TRACE(("pty_search(ttydev=%s, ptydev=%s)\n", ttydev, ptydev)); if ((*pty = open(ptydev, O_RDWR)) >= 0) { return 0; } } #else /* CRAY || __MVS__ */ while (PTYCHAR1[letter]) { ttydev[strlen(ttydev) - 2] = ptydev[strlen(ptydev) - 2] = PTYCHAR1[letter]; while (PTYCHAR2[devindex]) { ttydev[strlen(ttydev) - 1] = ptydev[strlen(ptydev) - 1] = PTYCHAR2[devindex]; devindex++; TRACE(("pty_search(ttydev=%s, ptydev=%s)\n", ttydev, ptydev)); if ((*pty = open(ptydev, O_RDWR)) >= 0) { #ifdef sun /* Need to check the process group of the pty. * If it exists, then the slave pty is in use, * and we need to get another one. */ int pgrp_rtn; if (ioctl(*pty, TIOCGPGRP, &pgrp_rtn) == 0 || errno != EIO) { close(*pty); continue; } #endif /* sun */ return 0; } } devindex = 0; letter++; } #endif /* CRAY else */ /* * We were unable to allocate a pty master! Return an error * condition and let our caller terminate cleanly. */ return 1; } #endif /* USE_PTY_SEARCH */ /* * sets up X and initializes the terminal structure except for term.buf.fildes. */ static void get_terminal(void) { TScreen *screen = &term->screen; screen->arrow = make_colored_cursor(XC_left_ptr, T_COLOR(screen, MOUSE_FG), T_COLOR(screen, MOUSE_BG)); } /* * The only difference in /etc/termcap between 4014 and 4015 is that * the latter has support for switching character sets. We support the * 4015 protocol, but ignore the character switches. Therefore, we * choose 4014 over 4015. * * Features of the 4014 over the 4012: larger (19") screen, 12-bit * graphics addressing (compatible with 4012 10-bit addressing), * special point plot mode, incremental plot mode (not implemented in * later Tektronix terminals), and 4 character sizes. * All of these are supported by xterm. */ #if OPT_TEK4014 static char *tekterm[] = { "tek4014", "tek4015", /* 4014 with APL character set support */ "tek4012", /* 4010 with lower case */ "tek4013", /* 4012 with APL character set support */ "tek4010", /* small screen, upper-case only */ "dumb", 0 }; #endif /* The VT102 is a VT100 with the Advanced Video Option included standard. * It also adds Escape sequences for insert/delete character/line. * The VT220 adds 8-bit character sets, selective erase. * The VT320 adds a 25th status line, terminal state interrogation. * The VT420 has up to 48 lines on the screen. */ static char *vtterm[] = { #ifdef USE_X11TERM "x11term", /* for people who want special term name */ #endif DFT_TERMTYPE, /* for people who want special term name */ "xterm", /* the prefered name, should be fastest */ "vt102", "vt100", "ansi", "dumb", 0 }; /* ARGSUSED */ static SIGNAL_T hungtty(int i GCC_UNUSED) { siglongjmp(env, 1); SIGNAL_RETURN; } /* * declared outside OPT_PTY_HANDSHAKE so HsSysError() callers can use */ static int cp_pipe[2]; /* this pipe is used for child to parent transfer */ #if OPT_PTY_HANDSHAKE static int pc_pipe[2]; /* this pipe is used for parent to child transfer */ typedef enum { /* c == child, p == parent */ PTY_BAD, /* c->p: can't open pty slave for some reason */ PTY_FATALERROR, /* c->p: we had a fatal error with the pty */ PTY_GOOD, /* c->p: we have a good pty, let's go on */ PTY_NEW, /* p->c: here is a new pty slave, try this */ PTY_NOMORE, /* p->c; no more pty's, terminate */ UTMP_ADDED, /* c->p: utmp entry has been added */ UTMP_TTYSLOT, /* c->p: here is my ttyslot */ PTY_EXEC /* p->c: window has been mapped the first time */ } status_t; typedef struct { status_t status; int error; int fatal_error; int tty_slot; int rows; int cols; char buffer[1024]; } handshake_t; /* HsSysError() * * This routine does the equivalent of a SysError but it handshakes * over the errno and error exit to the master process so that it can * display our error message and exit with our exit code so that the * user can see it. */ static void HsSysError(int pf, int error) { handshake_t handshake; handshake.status = PTY_FATALERROR; handshake.error = errno; handshake.fatal_error = error; strcpy(handshake.buffer, ttydev); write(pf, (char *) &handshake, sizeof(handshake)); exit(error); } void first_map_occurred(void) { handshake_t handshake; TScreen *screen = &term->screen; handshake.status = PTY_EXEC; handshake.rows = screen->max_row; handshake.cols = screen->max_col; write(pc_pipe[1], (char *) &handshake, sizeof(handshake)); close(cp_pipe[0]); close(pc_pipe[1]); waiting_for_initial_map = False; } #else /* * temporary hack to get xterm working on att ptys */ static void HsSysError(int pf GCC_UNUSED, int error) { fprintf(stderr, "%s: fatal pty error %d (errno=%d) on tty %s\n", xterm_name, error, errno, ttydev); exit(error); } void first_map_occurred(void) { return; } #endif /* OPT_PTY_HANDSHAKE else !OPT_PTY_HANDSHAKE */ #ifndef VMS static void set_owner(char *device, uid_t uid, gid_t gid, mode_t mode) { int why; TRACE(("set_owner(%s, uid=%d, gid=%d, mode=%#o\n", device, uid, gid, mode)); if (chown(device, uid, gid) < 0) { why = errno; if (why != ENOENT && getuid() == 0) { fprintf(stderr, "Cannot chown %s to %ld,%ld: %s\n", device, (long) uid, (long) gid, strerror(why)); } TRACE(("...chown failed: %s\n", strerror(why))); } if (chmod(device, mode) < 0) { why = errno; if (why != ENOENT) { struct stat sb; if (stat(device, &sb) < 0) { fprintf(stderr, "Cannot chmod %s to %03o: %s\n", device, (unsigned) mode, strerror(why)); } else if (mode != (sb.st_mode & 0777U)) { fprintf(stderr, "Cannot chmod %s to %03o currently %03o: %s\n", device, (unsigned) mode, (sb.st_mode & 0777U), strerror(why)); TRACE(("...stat uid=%d, gid=%d, mode=%#o\n", sb.st_uid, sb.st_gid, sb.st_mode)); } } TRACE(("...chmod failed: %s\n", strerror(why))); } } #if defined(HAVE_UTMP) && defined(USE_SYSV_UTMP) && !defined(USE_UTEMPTER) /* * getutid() only looks at ut_type and ut_id. * But we'll also check ut_line in find_utmp(). */ static void init_utmp(int type, struct UTMP_STR *tofind) { memset(tofind, 0, sizeof(*tofind)); tofind->ut_type = type; (void) strncpy(tofind->ut_id, my_utmp_id(ttydev), sizeof(tofind->ut_id)); (void) strncpy(tofind->ut_line, my_pty_name(ttydev), sizeof(tofind->ut_line)); } /* * We could use getutline() if we didn't support old systems. */ static struct UTMP_STR * find_utmp(struct UTMP_STR *tofind) { struct UTMP_STR *result; struct UTMP_STR working; for (;;) { memset(&working, 0, sizeof(working)); working.ut_type = tofind->ut_type; memcpy(working.ut_id, tofind->ut_id, sizeof(tofind->ut_id)); #if defined(__digital__) && defined(__unix__) && (defined(OSMAJORVERSION) && OSMAJORVERSION < 5) working.ut_type = 0; #endif if ((result = call_getutid(&working)) == 0) break; if (!strcmp(result->ut_line, tofind->ut_line)) break; /* * Solaris, IRIX64 and HPUX manpages say to fill the static area * pointed to by the return-value to zeros if searching for multiple * occurrences. Otherwise it will continue to return the same value. */ memset(result, 0, sizeof(*result)); } return result; } #endif /* HAVE_UTMP... */ #define close_fd(fd) close(fd), fd = -1 /* * Inits pty and tty and forks a login process. * Does not close fd Xsocket. * If slave, the pty named in passedPty is already open for use */ static int spawn(void) { TScreen *screen = &term->screen; #if OPT_PTY_HANDSHAKE handshake_t handshake; int done; #endif #if OPT_INITIAL_ERASE int initial_erase = VAL_INITIAL_ERASE; #endif int rc = 0; int ttyfd = -1; #ifdef TERMIO_STRUCT TERMIO_STRUCT tio; #ifdef __MVS__ TERMIO_STRUCT gio; #endif /* __MVS__ */ #ifdef TIOCLSET unsigned lmode; #endif /* TIOCLSET */ #ifdef HAS_LTCHARS struct ltchars ltc; #endif /* HAS_LTCHARS */ #else /* !TERMIO_STRUCT */ int ldisc = 0; int discipline; unsigned lmode; struct tchars tc; struct ltchars ltc; struct sgttyb sg; #ifdef sony int jmode; struct jtchars jtc; #endif /* sony */ #endif /* TERMIO_STRUCT */ char termcap[TERMCAP_SIZE]; char newtc[TERMCAP_SIZE]; char *ptr, *shname, *shname_minus; int i, no_dev_tty = False; char **envnew; /* new environment */ int envsize; /* elements in new environment */ char buf[64]; char *TermName = NULL; #ifdef TTYSIZE_STRUCT TTYSIZE_STRUCT ts; #endif struct passwd *pw = NULL; char *login_name = NULL; #ifndef USE_UTEMPTER #ifdef HAVE_UTMP struct UTMP_STR utmp; #ifdef USE_SYSV_UTMP struct UTMP_STR *utret = NULL; #endif #ifdef USE_LASTLOG struct lastlog lastlog; #endif #ifdef USE_LASTLOGX struct lastlogx lastlog; #endif /* USE_LASTLOG */ #endif /* HAVE_UTMP */ #endif /* !USE_UTEMPTER */ /* Noisy compilers (suppress some unused-variable warnings) */ (void) rc; #if defined(HAVE_UTMP) && defined(USE_SYSV_UTMP) && !defined(USE_UTEMPTER) (void) utret; #endif screen->uid = getuid(); screen->gid = getgid(); termcap[0] = '\0'; newtc[0] = '\0'; #ifdef SIGTTOU /* so that TIOCSWINSZ || TIOCSIZE doesn't block */ signal(SIGTTOU, SIG_IGN); #endif if (am_slave >= 0) { screen->respond = am_slave; set_pty_id(ttydev, passedPty); #ifdef USE_PTY_DEVICE set_pty_id(ptydev, passedPty); #endif setgid(screen->gid); setuid(screen->uid); } else { Bool tty_got_hung; /* * Sometimes /dev/tty hangs on open (as in the case of a pty * that has gone away). Simply make up some reasonable * defaults. */ signal(SIGALRM, hungtty); alarm(2); /* alarm(1) might return too soon */ if (!sigsetjmp(env, 1)) { ttyfd = open("/dev/tty", O_RDWR); alarm(0); tty_got_hung = False; } else { tty_got_hung = True; ttyfd = -1; errno = ENXIO; } #if OPT_INITIAL_ERASE initial_erase = VAL_INITIAL_ERASE; #endif signal(SIGALRM, SIG_DFL); /* * Check results and ignore current control terminal if * necessary. ENXIO is what is normally returned if there is * no controlling terminal, but some systems (e.g. SunOS 4.0) * seem to return EIO. Solaris 2.3 is said to return EINVAL. * Cygwin returns ENOENT. */ no_dev_tty = False; if (ttyfd < 0) { if (tty_got_hung || errno == ENXIO || errno == EIO || #ifdef ENODEV errno == ENODEV || #endif #ifdef __CYGWIN__ errno == ENOENT || #endif errno == EINVAL || errno == ENOTTY || errno == EACCES) { no_dev_tty = True; #ifdef HAS_LTCHARS ltc = d_ltc; #endif /* HAS_LTCHARS */ #ifdef TIOCLSET lmode = d_lmode; #endif /* TIOCLSET */ #ifdef TERMIO_STRUCT tio = d_tio; #else /* !TERMIO_STRUCT */ sg = d_sg; tc = d_tc; discipline = d_disipline; #ifdef sony jmode = d_jmode; jtc = d_jtc; #endif /* sony */ #endif /* TERMIO_STRUCT */ } else { SysError(ERROR_OPDEVTTY); } } else { /* Get a copy of the current terminal's state, * if we can. Some systems (e.g., SVR4 and MacII) * may not have a controlling terminal at this point * if started directly from xdm or xinit, * in which case we just use the defaults as above. */ #ifdef HAS_LTCHARS if (ioctl(ttyfd, TIOCGLTC, <c) == -1) ltc = d_ltc; #endif /* HAS_LTCHARS */ #ifdef TIOCLSET if (ioctl(ttyfd, TIOCLGET, &lmode) == -1) lmode = d_lmode; #endif /* TIOCLSET */ #ifdef TERMIO_STRUCT if ((rc = ttyGetAttr(ttyfd, &tio)) == -1) tio = d_tio; #else /* !TERMIO_STRUCT */ if ((rc = ioctl(ttyfd, TIOCGETP, (char *) &sg)) == -1) sg = d_sg; if (ioctl(ttyfd, TIOCGETC, (char *) &tc) == -1) tc = d_tc; if (ioctl(ttyfd, TIOCGETD, (char *) &discipline) == -1) discipline = d_disipline; #ifdef sony if (ioctl(ttyfd, TIOCKGET, (char *) &jmode) == -1) jmode = d_jmode; if (ioctl(ttyfd, TIOCKGETC, (char *) &jtc) == -1) jtc = d_jtc; #endif /* sony */ #endif /* TERMIO_STRUCT */ /* * If ptyInitialErase is set, we want to get the pty's * erase value. Just in case that will fail, first get * the value from /dev/tty, so we will have something * at least. */ #if OPT_INITIAL_ERASE if (resource.ptyInitialErase) { #ifdef TERMIO_STRUCT initial_erase = tio.c_cc[VERASE]; #else /* !TERMIO_STRUCT */ initial_erase = sg.sg_erase; #endif /* TERMIO_STRUCT */ TRACE(("%s initial_erase:%d (from /dev/tty)\n", rc == 0 ? "OK" : "FAIL", initial_erase)); } #endif #ifdef __MVS__ if (ttyGetAttr(ttyfd, &gio) == 0) { gio.c_cflag &= ~(HUPCL | PARENB); ttySetAttr(ttyfd, &gio); } #endif /* __MVS__ */ close_fd(ttyfd); } if (get_pty(&screen->respond, XDisplayString(screen->display))) { SysError(ERROR_PTYS); } #if OPT_INITIAL_ERASE if (resource.ptyInitialErase) { #ifdef TERMIO_STRUCT TERMIO_STRUCT my_tio; if ((rc = ttyGetAttr(screen->respond, &my_tio)) == 0) initial_erase = my_tio.c_cc[VERASE]; #else /* !TERMIO_STRUCT */ struct sgttyb my_sg; if ((rc = ioctl(screen->respond, TIOCGETP, (char *) &my_sg)) == 0) initial_erase = my_sg.sg_erase; #endif /* TERMIO_STRUCT */ TRACE(("%s initial_erase:%d (from pty)\n", (rc == 0) ? "OK" : "FAIL", initial_erase)); } #endif /* OPT_INITIAL_ERASE */ } /* avoid double MapWindow requests */ XtSetMappedWhenManaged(XtParent(CURRENT_EMU(screen)), False); wm_delete_window = XInternAtom(XtDisplay(toplevel), "WM_DELETE_WINDOW", False); if (!TEK4014_ACTIVE(screen)) VTInit(); /* realize now so know window size for tty driver */ #if defined(TIOCCONS) || defined(SRIOCSREDIR) if (Console) { /* * Inform any running xconsole program * that we are going to steal the console. */ XmuGetHostname(mit_console_name + MIT_CONSOLE_LEN, 255); mit_console = XInternAtom(screen->display, mit_console_name, False); /* the user told us to be the console, so we can use CurrentTime */ XtOwnSelection(XtParent(CURRENT_EMU(screen)), mit_console, CurrentTime, ConvertConsoleSelection, NULL, NULL); } #endif #if OPT_TEK4014 if (screen->TekEmu) { envnew = tekterm; ptr = newtc; } else #endif { envnew = vtterm; ptr = termcap; } /* * This used to exit if no termcap entry was found for the specified * terminal name. That's a little unfriendly, so instead we'll allow * the program to proceed (but not to set $TERMCAP) if the termcap * entry is not found. */ if (!get_termcap(TermName = resource.term_name, ptr, newtc)) { char *last = NULL; TermName = *envnew; while (*envnew != NULL) { if ((last == NULL || strcmp(last, *envnew)) && get_termcap(*envnew, ptr, newtc)) { TermName = *envnew; break; } last = *envnew; envnew++; } } /* * Check if ptyInitialErase is not set. If so, we rely on the termcap * (or terminfo) to tell us what the erase mode should be set to. */ #if OPT_INITIAL_ERASE TRACE(("resource ptyInitialErase is %sset\n", resource.ptyInitialErase ? "" : "not ")); if (!resource.ptyInitialErase) { char temp[1024], *p = temp; char *s = tgetstr(TERMCAP_ERASE, &p); TRACE(("...extracting initial_erase value from termcap\n")); if (s != 0) { initial_erase = decode_keyvalue(&s, True); } } TRACE(("...initial_erase:%d\n", initial_erase)); TRACE(("resource backarrowKeyIsErase is %sset\n", resource.backarrow_is_erase ? "" : "not ")); if (resource.backarrow_is_erase) { /* see input.c */ if (initial_erase == 127) { term->keyboard.flags &= ~MODE_DECBKM; } else { term->keyboard.flags |= MODE_DECBKM; term->keyboard.reset_DECBKM = 1; } TRACE(("...sets DECBKM %s\n", (term->keyboard.flags & MODE_DECBKM) ? "on" : "off")); } else { term->keyboard.reset_DECBKM = 2; } #endif /* OPT_INITIAL_ERASE */ #ifdef TTYSIZE_STRUCT /* tell tty how big window is */ #if OPT_TEK4014 if (TEK4014_ACTIVE(screen)) { TTYSIZE_ROWS(ts) = 38; TTYSIZE_COLS(ts) = 81; #if defined(USE_STRUCT_WINSIZE) ts.ws_xpixel = TFullWidth(screen); ts.ws_ypixel = TFullHeight(screen); #endif } else #endif { TTYSIZE_ROWS(ts) = MaxRows(screen); TTYSIZE_COLS(ts) = MaxCols(screen); #if defined(USE_STRUCT_WINSIZE) ts.ws_xpixel = FullWidth(screen); ts.ws_ypixel = FullHeight(screen); #endif } i = SET_TTYSIZE(screen->respond, ts); TRACE(("spawn SET_TTYSIZE %dx%d return %d\n", TTYSIZE_ROWS(ts), TTYSIZE_COLS(ts), i)); #endif /* TTYSIZE_STRUCT */ added_utmp_entry = False; #if defined(USE_UTEMPTER) #undef UTMP if (!resource.utmpInhibit) { struct UTMP_STR dummy; /* Note: utempter may trim it anyway */ SetUtmpHost(dummy.ut_host, screen); addToUtmp(ttydev, dummy.ut_host, screen->respond); added_utmp_entry = True; } #endif if (am_slave < 0) { #if OPT_PTY_HANDSHAKE if (resource.ptyHandshake && (pipe(pc_pipe) || pipe(cp_pipe))) SysError(ERROR_FORK); #endif TRACE(("Forking...\n")); if ((screen->pid = fork()) == -1) SysError(ERROR_FORK); if (screen->pid == 0) { /* * now in child process */ TRACE_CHILD #if defined(_POSIX_SOURCE) || defined(SVR4) || defined(__convex__) || defined(__SCO__) || defined(__QNX__) int pgrp = setsid(); /* variable may not be used... */ #else int pgrp = getpid(); #endif #ifdef USE_USG_PTYS #ifdef USE_ISPTS_FLAG if (IsPts) { /* SYSV386 supports both, which did we open? */ #endif int ptyfd = 0; char *pty_name = 0; setpgrp(); grantpt(screen->respond); unlockpt(screen->respond); if ((pty_name = ptsname(screen->respond)) == 0) { SysError(ERROR_PTSNAME); } if ((ptyfd = open(pty_name, O_RDWR)) < 0) { SysError(ERROR_OPPTSNAME); } #ifdef I_PUSH if (ioctl(ptyfd, I_PUSH, "ptem") < 0) { SysError(ERROR_PTEM); } #if !defined(SVR4) && !(defined(SYSV) && defined(i386)) if (!getenv("CONSEM") && ioctl(ptyfd, I_PUSH, "consem") < 0) { SysError(ERROR_CONSEM); } #endif /* !SVR4 */ if (ioctl(ptyfd, I_PUSH, "ldterm") < 0) { SysError(ERROR_LDTERM); } #ifdef SVR4 /* from Sony */ if (ioctl(ptyfd, I_PUSH, "ttcompat") < 0) { SysError(ERROR_TTCOMPAT); } #endif /* SVR4 */ #endif /* I_PUSH */ ttyfd = ptyfd; #ifndef __MVS__ close_fd(screen->respond); #endif /* __MVS__ */ #ifdef TTYSIZE_STRUCT /* tell tty how big window is */ #if OPT_TEK4014 if (TEK4014_ACTIVE(screen)) { TTYSIZE_ROWS(ts) = 24; TTYSIZE_COLS(ts) = 80; #ifdef USE_STRUCT_WINSIZE ts.ws_xpixel = TFullWidth(screen); ts.ws_ypixel = TFullHeight(screen); #endif } else #endif /* OPT_TEK4014 */ { TTYSIZE_ROWS(ts) = MaxRows(screen); TTYSIZE_COLS(ts) = MaxCols(screen); #ifdef USE_STRUCT_WINSIZE ts.ws_xpixel = FullWidth(screen); ts.ws_ypixel = FullHeight(screen); #endif } #endif /* TTYSIZE_STRUCT */ #ifdef USE_ISPTS_FLAG } else { /* else pty, not pts */ #endif #endif /* USE_USG_PTYS */ (void) pgrp; /* not all branches use this variable */ #if OPT_PTY_HANDSHAKE /* warning, goes for a long ways */ if (resource.ptyHandshake) { /* close parent's sides of the pipes */ close(cp_pipe[0]); close(pc_pipe[1]); /* Make sure that our sides of the pipes are not in the * 0, 1, 2 range so that we don't fight with stdin, out * or err. */ if (cp_pipe[1] <= 2) { if ((i = fcntl(cp_pipe[1], F_DUPFD, 3)) >= 0) { (void) close(cp_pipe[1]); cp_pipe[1] = i; } } if (pc_pipe[0] <= 2) { if ((i = fcntl(pc_pipe[0], F_DUPFD, 3)) >= 0) { (void) close(pc_pipe[0]); pc_pipe[0] = i; } } /* we don't need the socket, or the pty master anymore */ close(ConnectionNumber(screen->display)); #ifndef __MVS__ close(screen->respond); #endif /* __MVS__ */ /* Now is the time to set up our process group and * open up the pty slave. */ #ifdef USE_SYSV_PGRP #if defined(CRAY) && (OSMAJORVERSION > 5) (void) setsid(); #else (void) setpgrp(); #endif #endif /* USE_SYSV_PGRP */ #if defined(__QNX__) && !defined(__QNXNTO__) qsetlogin(getlogin(), ttydev); #endif if (ttyfd >= 0) { #ifdef __MVS__ if (ttyGetAttr(ttyfd, &gio) == 0) { gio.c_cflag &= ~(HUPCL | PARENB); ttySetAttr(ttyfd, &gio); } #else /* !__MVS__ */ close_fd(ttyfd); #endif /* __MVS__ */ } while (1) { #if defined(TIOCNOTTY) && (!defined(__GLIBC__) || (__GLIBC__ < 2) || ((__GLIBC__ == 2) && (__GLIBC_MINOR__ < 1))) if (!no_dev_tty && (ttyfd = open("/dev/tty", O_RDWR)) >= 0) { ioctl(ttyfd, TIOCNOTTY, (char *) NULL); close_fd(ttyfd); } #endif /* TIOCNOTTY && !glibc >= 2.1 */ #ifdef CSRG_BASED (void) revoke(ttydev); #endif if ((ttyfd = open(ttydev, O_RDWR)) >= 0) { #if defined(CRAY) && defined(TCSETCTTY) /* make /dev/tty work */ ioctl(ttyfd, TCSETCTTY, 0); #endif #ifdef USE_SYSV_PGRP /* We need to make sure that we are actually * the process group leader for the pty. If * we are, then we should now be able to open * /dev/tty. */ if ((i = open("/dev/tty", O_RDWR)) >= 0) { /* success! */ close(i); break; } #else /* USE_SYSV_PGRP */ break; #endif /* USE_SYSV_PGRP */ } perror("open ttydev"); #ifdef TIOCSCTTY ioctl(ttyfd, TIOCSCTTY, 0); #endif /* let our master know that the open failed */ handshake.status = PTY_BAD; handshake.error = errno; strcpy(handshake.buffer, ttydev); write(cp_pipe[1], (char *) &handshake, sizeof(handshake)); /* get reply from parent */ i = read(pc_pipe[0], (char *) &handshake, sizeof(handshake)); if (i <= 0) { /* parent terminated */ exit(1); } if (handshake.status == PTY_NOMORE) { /* No more ptys, let's shutdown. */ exit(1); } /* We have a new pty to try */ free(ttydev); ttydev = CastMallocN(char, strlen(handshake.buffer)); if (ttydev == NULL) { SysError(ERROR_SPREALLOC); } strcpy(ttydev, handshake.buffer); } /* use the same tty name that everyone else will use * (from ttyname) */ if ((ptr = ttyname(ttyfd)) != 0) { /* it may be bigger */ ttydev = TypeRealloc(char, strlen(ptr) + 1, ttydev); if (ttydev == NULL) { SysError(ERROR_SPREALLOC); } (void) strcpy(ttydev, ptr); } } #endif /* OPT_PTY_HANDSHAKE -- from near fork */ #ifdef USE_ISPTS_FLAG } /* end of IsPts else clause */ #endif set_pty_permissions(screen->uid, screen->gid, (resource.messages ? 0622U : 0600U)); /* * set up the tty modes */ { #ifdef TERMIO_STRUCT #if defined(umips) || defined(CRAY) || defined(linux) /* If the control tty had its modes screwed around with, eg. by lineedit in the shell, or emacs, etc. then tio will have bad values. Let's just get termio from the new tty and tailor it. */ if (ttyGetAttr(ttyfd, &tio) == -1) SysError(ERROR_TIOCGETP); tio.c_lflag |= ECHOE; #endif /* umips */ /* Now is also the time to change the modes of the * child pty. */ /* input: nl->nl, don't ignore cr, cr->nl */ tio.c_iflag &= ~(INLCR | IGNCR); tio.c_iflag |= ICRNL; #if OPT_WIDE_CHARS && defined(linux) && defined(IUTF8) #if OPT_LUIT_PROG if (command_to_exec_with_luit == 0) #endif if (screen->utf8_mode) tio.c_iflag |= IUTF8; #endif /* ouput: cr->cr, nl is not return, no delays, ln->cr/nl */ #ifndef USE_POSIX_TERMIOS tio.c_oflag &= ~(OCRNL | ONLRET | NLDLY | CRDLY | TABDLY | BSDLY | VTDLY | FFDLY); #endif /* USE_POSIX_TERMIOS */ #ifdef ONLCR tio.c_oflag |= ONLCR; #endif /* ONLCR */ #ifdef OPOST tio.c_oflag |= OPOST; #endif /* OPOST */ #ifndef USE_POSIX_TERMIOS # if defined(Lynx) && !defined(CBAUD) # define CBAUD V_CBAUD # endif tio.c_cflag &= ~(CBAUD); #ifdef BAUD_0 /* baud rate is 0 (don't care) */ #elif defined(HAVE_TERMIO_C_ISPEED) tio.c_ispeed = tio.c_ospeed = VAL_LINE_SPEED; #else /* !BAUD_0 */ tio.c_cflag |= VAL_LINE_SPEED; #endif /* !BAUD_0 */ #else /* USE_POSIX_TERMIOS */ cfsetispeed(&tio, VAL_LINE_SPEED); cfsetospeed(&tio, VAL_LINE_SPEED); #ifdef __MVS__ /* turn off bits that can't be set from the slave side */ tio.c_cflag &= ~(PACKET | PKT3270 | PTU3270 | PKTXTND); #endif /* __MVS__ */ /* Clear CLOCAL so that SIGHUP is sent to us when the xterm ends */ tio.c_cflag &= ~CLOCAL; #endif /* USE_POSIX_TERMIOS */ /* enable signals, canonical processing (erase, kill, etc), * echo */ tio.c_lflag |= ISIG | ICANON | ECHO | ECHOE | ECHOK; #ifdef ECHOKE tio.c_lflag |= ECHOKE | IEXTEN; #endif #ifdef ECHOCTL tio.c_lflag |= ECHOCTL | IEXTEN; #endif #ifndef __MVS__ /* reset EOL to default value */ tio.c_cc[VEOL] = CEOL; /* '^@' */ /* certain shells (ksh & csh) change EOF as well */ tio.c_cc[VEOF] = CEOF; /* '^D' */ #else if (tio.c_cc[VEOL] == 0) tio.c_cc[VEOL] = CEOL; /* '^@' */ if (tio.c_cc[VEOF] == 0) tio.c_cc[VEOF] = CEOF; /* '^D' */ #endif #ifdef VLNEXT tio.c_cc[VLNEXT] = CLNEXT; #endif #ifdef VWERASE tio.c_cc[VWERASE] = CWERASE; #endif #ifdef VREPRINT tio.c_cc[VREPRINT] = CRPRNT; #endif #ifdef VRPRNT tio.c_cc[VRPRNT] = CRPRNT; #endif #ifdef VDISCARD tio.c_cc[VDISCARD] = CFLUSH; #endif #ifdef VFLUSHO tio.c_cc[VFLUSHO] = CFLUSH; #endif #ifdef VSTOP tio.c_cc[VSTOP] = CSTOP; #endif #ifdef VSTART tio.c_cc[VSTART] = CSTART; #endif #ifdef VSUSP tio.c_cc[VSUSP] = CSUSP; #endif #ifdef VDSUSP tio.c_cc[VDSUSP] = CDSUSP; #endif if (override_tty_modes) { /* sysv-specific */ TMODE(XTTYMODE_intr, tio.c_cc[VINTR]); TMODE(XTTYMODE_quit, tio.c_cc[VQUIT]); TMODE(XTTYMODE_erase, tio.c_cc[VERASE]); TMODE(XTTYMODE_kill, tio.c_cc[VKILL]); TMODE(XTTYMODE_eof, tio.c_cc[VEOF]); TMODE(XTTYMODE_eol, tio.c_cc[VEOL]); #ifdef VSWTCH TMODE(XTTYMODE_swtch, tio.c_cc[VSWTCH]); #endif #ifdef VSUSP TMODE(XTTYMODE_susp, tio.c_cc[VSUSP]); #endif #ifdef VDSUSP TMODE(XTTYMODE_dsusp, tio.c_cc[VDSUSP]); #endif #ifdef VREPRINT TMODE(XTTYMODE_rprnt, tio.c_cc[VREPRINT]); #endif #ifdef VRPRNT TMODE(XTTYMODE_rprnt, tio.c_cc[VRPRNT]); #endif #ifdef VDISCARD TMODE(XTTYMODE_flush, tio.c_cc[VDISCARD]); #endif #ifdef VFLUSHO TMODE(XTTYMODE_flush, tio.c_cc[VFLUSHO]); #endif #ifdef VWERASE TMODE(XTTYMODE_weras, tio.c_cc[VWERASE]); #endif #ifdef VLNEXT TMODE(XTTYMODE_lnext, tio.c_cc[VLNEXT]); #endif #ifdef VSTART TMODE(XTTYMODE_start, tio.c_cc[VSTART]); #endif #ifdef VSTOP TMODE(XTTYMODE_stop, tio.c_cc[VSTOP]); #endif #ifdef VSTATUS TMODE(XTTYMODE_status, tio.c_cc[VSTATUS]); #endif #ifdef VERASE2 TMODE(XTTYMODE_erase2, tio.c_cc[VERASE2]); #endif #ifdef VEOL2 TMODE(XTTYMODE_eol2, tio.c_cc[VEOL2]); #endif #ifdef HAS_LTCHARS /* both SYSV and BSD have ltchars */ TMODE(XTTYMODE_susp, ltc.t_suspc); TMODE(XTTYMODE_dsusp, ltc.t_dsuspc); TMODE(XTTYMODE_rprnt, ltc.t_rprntc); TMODE(XTTYMODE_flush, ltc.t_flushc); TMODE(XTTYMODE_weras, ltc.t_werasc); TMODE(XTTYMODE_lnext, ltc.t_lnextc); #endif } #ifdef HAS_LTCHARS #ifdef __hpux /* ioctl chokes when the "reserved" process group controls * are not set to _POSIX_VDISABLE */ ltc.t_rprntc = ltc.t_rprntc = ltc.t_flushc = ltc.t_werasc = ltc.t_lnextc = _POSIX_VDISABLE; #endif /* __hpux */ if (ioctl(ttyfd, TIOCSLTC, <c) == -1) HsSysError(cp_pipe[1], ERROR_TIOCSETC); #endif /* HAS_LTCHARS */ #ifdef TIOCLSET if (ioctl(ttyfd, TIOCLSET, (char *) &lmode) == -1) HsSysError(cp_pipe[1], ERROR_TIOCLSET); #endif /* TIOCLSET */ if (ttySetAttr(ttyfd, &tio) == -1) HsSysError(cp_pipe[1], ERROR_TIOCSETP); /* ignore errors here - some platforms don't work */ tio.c_cflag &= ~CSIZE; if (screen->input_eight_bits) tio.c_cflag |= CS8; else tio.c_cflag |= CS7; (void) ttySetAttr(ttyfd, &tio); #else /* !TERMIO_STRUCT */ sg.sg_flags &= ~(ALLDELAY | XTABS | CBREAK | RAW); sg.sg_flags |= ECHO | CRMOD; /* make sure speed is set on pty so that editors work right */ sg.sg_ispeed = VAL_LINE_SPEED; sg.sg_ospeed = VAL_LINE_SPEED; /* reset t_brkc to default value */ tc.t_brkc = -1; #ifdef LPASS8 if (screen->input_eight_bits) lmode |= LPASS8; else lmode &= ~(LPASS8); #endif #ifdef sony jmode &= ~KM_KANJI; #endif /* sony */ ltc = d_ltc; if (override_tty_modes) { TMODE(XTTYMODE_intr, tc.t_intrc); TMODE(XTTYMODE_quit, tc.t_quitc); TMODE(XTTYMODE_erase, sg.sg_erase); TMODE(XTTYMODE_kill, sg.sg_kill); TMODE(XTTYMODE_eof, tc.t_eofc); TMODE(XTTYMODE_start, tc.t_startc); TMODE(XTTYMODE_stop, tc.t_stopc); TMODE(XTTYMODE_brk, tc.t_brkc); /* both SYSV and BSD have ltchars */ TMODE(XTTYMODE_susp, ltc.t_suspc); TMODE(XTTYMODE_dsusp, ltc.t_dsuspc); TMODE(XTTYMODE_rprnt, ltc.t_rprntc); TMODE(XTTYMODE_flush, ltc.t_flushc); TMODE(XTTYMODE_weras, ltc.t_werasc); TMODE(XTTYMODE_lnext, ltc.t_lnextc); } if (ioctl(ttyfd, TIOCSETP, (char *) &sg) == -1) HsSysError(cp_pipe[1], ERROR_TIOCSETP); if (ioctl(ttyfd, TIOCSETC, (char *) &tc) == -1) HsSysError(cp_pipe[1], ERROR_TIOCSETC); if (ioctl(ttyfd, TIOCSETD, (char *) &discipline) == -1) HsSysError(cp_pipe[1], ERROR_TIOCSETD); if (ioctl(ttyfd, TIOCSLTC, (char *) <c) == -1) HsSysError(cp_pipe[1], ERROR_TIOCSLTC); if (ioctl(ttyfd, TIOCLSET, (char *) &lmode) == -1) HsSysError(cp_pipe[1], ERROR_TIOCLSET); #ifdef sony if (ioctl(ttyfd, TIOCKSET, (char *) &jmode) == -1) HsSysError(cp_pipe[1], ERROR_TIOCKSET); if (ioctl(ttyfd, TIOCKSETC, (char *) &jtc) == -1) HsSysError(cp_pipe[1], ERROR_TIOCKSETC); #endif /* sony */ #endif /* TERMIO_STRUCT */ #if defined(TIOCCONS) || defined(SRIOCSREDIR) if (Console) { #ifdef TIOCCONS int on = 1; if (ioctl(ttyfd, TIOCCONS, (char *) &on) == -1) fprintf(stderr, "%s: cannot open console: %s\n", xterm_name, strerror(errno)); #endif #ifdef SRIOCSREDIR int fd = open("/dev/console", O_RDWR); if (fd == -1 || ioctl(fd, SRIOCSREDIR, ttyfd) == -1) fprintf(stderr, "%s: cannot open console: %s\n", xterm_name, strerror(errno)); (void) close(fd); #endif } #endif /* TIOCCONS */ } signal(SIGCHLD, SIG_DFL); #ifdef USE_SYSV_SIGHUP /* watch out for extra shells (I don't understand either) */ signal(SIGHUP, SIG_DFL); #else signal(SIGHUP, SIG_IGN); #endif /* restore various signals to their defaults */ signal(SIGINT, SIG_DFL); signal(SIGQUIT, SIG_DFL); signal(SIGTERM, SIG_DFL); /* * If we're not asked to make the parent process set the * terminal's erase mode, and if we had no ttyModes resource, * then set the terminal's erase mode from our best guess. */ #if OPT_INITIAL_ERASE TRACE(("check if we should set erase to %d:%s\n\tptyInitialErase:%d,\n\toveride_tty_modes:%d,\n\tXTTYMODE_erase:%d\n", initial_erase, (!resource.ptyInitialErase && !override_tty_modes && !ttymodelist[XTTYMODE_erase].set) ? "YES" : "NO", resource.ptyInitialErase, override_tty_modes, ttymodelist[XTTYMODE_erase].set)); if (!resource.ptyInitialErase && !override_tty_modes && !ttymodelist[XTTYMODE_erase].set) { #if OPT_TRACE int old_erase; #endif #ifdef TERMIO_STRUCT if (ttyGetAttr(ttyfd, &tio) == -1) tio = d_tio; #if OPT_TRACE old_erase = tio.c_cc[VERASE]; #endif tio.c_cc[VERASE] = initial_erase; rc = ttySetAttr(ttyfd, &tio); #else /* !TERMIO_STRUCT */ if (ioctl(ttyfd, TIOCGETP, (char *) &sg) == -1) sg = d_sg; #if OPT_TRACE old_erase = sg.sg_erase; #endif sg.sg_erase = initial_erase; rc = ioctl(ttyfd, TIOCSETP, (char *) &sg); #endif /* TERMIO_STRUCT */ TRACE(("%s setting erase to %d (was %d)\n", rc ? "FAIL" : "OK", initial_erase, old_erase)); } #endif /* copy the environment before Setenv'ing */ for (i = 0; environ[i] != NULL; i++) ; /* compute number of xtermSetenv() calls below */ envsize = 1; /* (NULL terminating entry) */ envsize += 5; /* TERM, WINDOWID, DISPLAY, _SHELL, _VERSION */ #ifdef HAVE_UTMP envsize += 1; /* LOGNAME */ #endif /* HAVE_UTMP */ #ifdef USE_SYSV_ENVVARS envsize += 2; /* COLUMNS, LINES */ #ifdef HAVE_UTMP envsize += 2; /* HOME, SHELL */ #endif /* HAVE_UTMP */ #ifdef OWN_TERMINFO_DIR envsize += 1; /* TERMINFO */ #endif #else /* USE_SYSV_ENVVARS */ envsize += 1; /* TERMCAP */ #endif /* USE_SYSV_ENVVARS */ envnew = TypeCallocN(char *, (unsigned) i + envsize); memmove((char *) envnew, (char *) environ, i * sizeof(char *)); environ = envnew; xtermSetenv("TERM=", TermName); if (!TermName) *newtc = 0; sprintf(buf, "%lu", ((unsigned long) XtWindow(SHELL_OF(CURRENT_EMU(screen))))); xtermSetenv("WINDOWID=", buf); /* put the display into the environment of the shell */ xtermSetenv("DISPLAY=", XDisplayString(screen->display)); xtermSetenv("XTERM_VERSION=", xtermVersion()); signal(SIGTERM, SIG_DFL); /* this is the time to go and set up stdin, out, and err */ { #if defined(CRAY) && (OSMAJORVERSION >= 6) close_fd(ttyfd); (void) close(0); if (open("/dev/tty", O_RDWR)) { SysError(ERROR_OPDEVTTY); } (void) close(1); (void) close(2); dup(0); dup(0); #else /* dup the tty */ for (i = 0; i <= 2; i++) if (i != ttyfd) { (void) close(i); (void) dup(ttyfd); } #ifndef ATT /* and close the tty */ if (ttyfd > 2) close_fd(ttyfd); #endif #endif /* CRAY */ } #if !defined(USE_SYSV_PGRP) #ifdef TIOCSCTTY setsid(); ioctl(0, TIOCSCTTY, 0); #endif ioctl(0, TIOCSPGRP, (char *) &pgrp); setpgrp(0, 0); close(open(ttydev, O_WRONLY)); setpgrp(0, pgrp); #if defined(__QNX__) tcsetpgrp(0, pgrp /*setsid() */ ); #endif #endif /* !USE_SYSV_PGRP */ #ifdef Lynx { TERMIO_STRUCT t; if (ttyGetAttr(0, &t) >= 0) { /* this gets lost somewhere on our way... */ t.c_oflag |= OPOST; ttySetAttr(0, &t); } } #endif #ifdef HAVE_UTMP pw = getpwuid(screen->uid); login_name = NULL; if (pw && pw->pw_name) { #ifdef HAVE_GETLOGIN /* * If the value from getlogin() differs from the value we * get by looking in the password file, check if it does * correspond to the same uid. If so, allow that as an * alias for the uid. * * Of course getlogin() will fail if we're started from * a window-manager, since there's no controlling terminal * to fuss with. In that case, try to get something useful * from the user's $LOGNAME or $USER environment variables. */ if (((login_name = getlogin()) != NULL || (login_name = getenv("LOGNAME")) != NULL || (login_name = getenv("USER")) != NULL) && strcmp(login_name, pw->pw_name)) { struct passwd *pw2 = getpwnam(login_name); if (pw2 != 0) { uid_t uid2 = pw2->pw_uid; pw = getpwuid(screen->uid); if ((uid_t) pw->pw_uid != uid2) login_name = NULL; } else { pw = getpwuid(screen->uid); } } #endif if (login_name == NULL) login_name = pw->pw_name; if (login_name != NULL) login_name = x_strdup(login_name); } if (login_name != NULL) { xtermSetenv("LOGNAME=", login_name); /* for POSIX */ } #ifndef USE_UTEMPTER #ifdef USE_SYSV_UTMP /* Set up our utmp entry now. We need to do it here * for the following reasons: * - It needs to have our correct process id (for * login). * - If our parent was to set it after the fork(), * it might make it out before we need it. * - We need to do it before we go and change our * user and group id's. */ (void) call_setutent(); init_utmp(DEAD_PROCESS, &utmp); /* position to entry in utmp file */ /* Test return value: beware of entries left behind: PSz 9 Mar 00 */ if (!(utret = find_utmp(&utmp))) { (void) call_setutent(); init_utmp(USER_PROCESS, &utmp); if (!(utret = find_utmp(&utmp))) { (void) call_setutent(); } } #if OPT_TRACE if (!utret) TRACE(("getutid: NULL\n")); else TRACE(("getutid: pid=%d type=%d user=%s line=%s id=%s\n", utret->ut_pid, utret->ut_type, utret->ut_user, utret->ut_line, utret->ut_id)); #endif /* set up the new entry */ utmp.ut_type = USER_PROCESS; #ifdef HAVE_UTMP_UT_XSTATUS utmp.ut_xstatus = 2; #endif (void) strncpy(utmp.ut_user, (login_name != NULL) ? login_name : "????", sizeof(utmp.ut_user)); /* why are we copying this string again? (see above) */ (void) strncpy(utmp.ut_id, my_utmp_id(ttydev), sizeof(utmp.ut_id)); (void) strncpy(utmp.ut_line, my_pty_name(ttydev), sizeof(utmp.ut_line)); #ifdef HAVE_UTMP_UT_HOST SetUtmpHost(utmp.ut_host, screen); #endif (void) strncpy(utmp.ut_name, (login_name) ? login_name : "????", sizeof(utmp.ut_name)); utmp.ut_pid = getpid(); #if defined(HAVE_UTMP_UT_XTIME) #if defined(HAVE_UTMP_UT_SESSION) utmp.ut_session = getsid(0); #endif utmp.ut_xtime = time((time_t *) 0); utmp.ut_tv.tv_usec = 0; #else utmp.ut_time = time((time_t *) 0); #endif /* write out the entry */ if (!resource.utmpInhibit) { errno = 0; call_pututline(&utmp); TRACE(("pututline: id %s, line %s, pid %ld, errno %d %s\n", utmp.ut_id, utmp.ut_line, (long) utmp.ut_pid, errno, (errno != 0) ? strerror(errno) : "")); } #ifdef WTMP #if defined(WTMPX_FILE) && (defined(SVR4) || defined(__SCO__)) if (term->misc.login_shell) updwtmpx(WTMPX_FILE, &utmp); #elif defined(linux) && defined(__GLIBC__) && (__GLIBC__ >= 2) && !(defined(__powerpc__) && (__GLIBC__ == 2) && (__GLIBC_MINOR__ == 0)) if (term->misc.login_shell) call_updwtmp(etc_wtmp, &utmp); #else if (term->misc.login_shell && (i = open(etc_wtmp, O_WRONLY | O_APPEND)) >= 0) { write(i, (char *) &utmp, sizeof(utmp)); close(i); } #endif #endif /* close the file */ (void) call_endutent(); #else /* USE_SYSV_UTMP */ /* We can now get our ttyslot! We can also set the initial * utmp entry. */ tslot = ttyslot(); added_utmp_entry = False; { if (tslot > 0 && pw && !resource.utmpInhibit && (i = open(etc_utmp, O_WRONLY)) >= 0) { bzero((char *) &utmp, sizeof(utmp)); (void) strncpy(utmp.ut_line, my_pty_name(ttydev), sizeof(utmp.ut_line)); (void) strncpy(utmp.ut_name, login_name, sizeof(utmp.ut_name)); #ifdef HAVE_UTMP_UT_HOST SetUtmpHost(utmp.ut_host, screen); #endif /* cast needed on Ultrix 4.4 */ time((time_t *) & utmp.ut_time); lseek(i, (long) (tslot * sizeof(utmp)), 0); write(i, (char *) &utmp, sizeof(utmp)); close(i); added_utmp_entry = True; #if defined(WTMP) if (term->misc.login_shell && (i = open(etc_wtmp, O_WRONLY | O_APPEND)) >= 0) { int status; status = write(i, (char *) &utmp, sizeof(utmp)); status = close(i); } #elif defined(MNX_LASTLOG) if (term->misc.login_shell && (i = open(_U_LASTLOG, O_WRONLY)) >= 0) { lseek(i, (long) (screen->uid * sizeof(utmp)), 0); write(i, (char *) &utmp, sizeof(utmp)); close(i); } #endif /* WTMP or MNX_LASTLOG */ } else tslot = -tslot; } /* Let's pass our ttyslot to our parent so that it can * clean up after us. */ #if OPT_PTY_HANDSHAKE if (resource.ptyHandshake) { handshake.tty_slot = tslot; } #endif /* OPT_PTY_HANDSHAKE */ #endif /* USE_SYSV_UTMP */ #ifdef USE_LASTLOGX if (term->misc.login_shell) { bzero((char *) &lastlog, sizeof(lastlog)); (void) strncpy(lastlog.ll_line, my_pty_name(ttydev), sizeof(lastlog.ll_line)); X_GETTIMEOFDAY(&lastlog.ll_tv); SetUtmpHost(lastlog.ll_host, screen); updlastlogx(_PATH_LASTLOGX, screen->uid, &lastlog); } #endif #ifdef USE_LASTLOG if (term->misc.login_shell && (i = open(etc_lastlog, O_WRONLY)) >= 0) { bzero((char *) &lastlog, sizeof(struct lastlog)); (void) strncpy(lastlog.ll_line, my_pty_name(ttydev), sizeof(lastlog.ll_line)); SetUtmpHost(lastlog.ll_host, screen); time(&lastlog.ll_time); lseek(i, (long) (screen->uid * sizeof(struct lastlog)), 0); write(i, (char *) &lastlog, sizeof(struct lastlog)); close(i); } #endif /* USE_LASTLOG */ #if defined(USE_UTMP_SETGID) /* Switch to real gid after writing utmp entry */ utmpGid = getegid(); if (getgid() != getegid()) { utmpGid = getegid(); setegid(getgid()); TRACE(("switch to real gid %d after writing utmp\n", getgid())); } #endif #if OPT_PTY_HANDSHAKE /* Let our parent know that we set up our utmp entry * so that it can clean up after us. */ if (resource.ptyHandshake) { handshake.status = UTMP_ADDED; handshake.error = 0; strcpy(handshake.buffer, ttydev); (void) write(cp_pipe[1], (char *) &handshake, sizeof(handshake)); } #endif /* OPT_PTY_HANDSHAKE */ #endif /* USE_UTEMPTER */ #endif /* HAVE_UTMP */ (void) setgid(screen->gid); #ifdef HAS_BSD_GROUPS if (geteuid() == 0 && pw) { if (initgroups(login_name, pw->pw_gid)) { perror("initgroups failed"); SysError(ERROR_INIGROUPS); } } #endif if (setuid(screen->uid)) { SysError(ERROR_SETUID); } #if OPT_PTY_HANDSHAKE if (resource.ptyHandshake) { /* mark the pipes as close on exec */ fcntl(cp_pipe[1], F_SETFD, 1); fcntl(pc_pipe[0], F_SETFD, 1); /* We are at the point where we are going to * exec our shell (or whatever). Let our parent * know we arrived safely. */ handshake.status = PTY_GOOD; handshake.error = 0; (void) strcpy(handshake.buffer, ttydev); (void) write(cp_pipe[1], (char *) &handshake, sizeof(handshake)); if (waiting_for_initial_map) { i = read(pc_pipe[0], (char *) &handshake, sizeof(handshake)); if (i != sizeof(handshake) || handshake.status != PTY_EXEC) { /* some very bad problem occurred */ exit(ERROR_PTY_EXEC); } if (handshake.rows > 0 && handshake.cols > 0) { set_max_row(screen, handshake.rows); set_max_col(screen, handshake.cols); #ifdef TTYSIZE_STRUCT TTYSIZE_ROWS(ts) = MaxRows(screen); TTYSIZE_COLS(ts) = MaxCols(screen); #if defined(USE_STRUCT_WINSIZE) ts.ws_xpixel = FullWidth(screen); ts.ws_ypixel = FullHeight(screen); #endif #endif /* TTYSIZE_STRUCT */ } } } #endif /* OPT_PTY_HANDSHAKE */ #ifdef USE_SYSV_ENVVARS { char numbuf[12]; sprintf(numbuf, "%d", MaxCols(screen)); xtermSetenv("COLUMNS=", numbuf); sprintf(numbuf, "%d", MaxRows(screen)); xtermSetenv("LINES=", numbuf); } #ifdef HAVE_UTMP if (pw) { /* SVR4 doesn't provide these */ if (!getenv("HOME")) xtermSetenv("HOME=", pw->pw_dir); if (!getenv("SHELL")) xtermSetenv("SHELL=", pw->pw_shell); } #endif /* HAVE_UTMP */ #ifdef OWN_TERMINFO_DIR xtermSetenv("TERMINFO=", OWN_TERMINFO_DIR); #endif #else /* USE_SYSV_ENVVARS */ if (!TEK4014_ACTIVE(screen) && *newtc) { strcpy(termcap, newtc); resize(screen, termcap, newtc); } if (term->misc.titeInhibit && !term->misc.tiXtraScroll) { remove_termcap_entry(newtc, "ti="); remove_termcap_entry(newtc, "te="); } /* * work around broken termcap entries */ if (resource.useInsertMode) { remove_termcap_entry(newtc, "ic="); /* don't get duplicates */ remove_termcap_entry(newtc, "im="); remove_termcap_entry(newtc, "ei="); remove_termcap_entry(newtc, "mi"); if (*newtc) strcat(newtc, ":im=\\E[4h:ei=\\E[4l:mi:"); } if (*newtc) { #if OPT_INITIAL_ERASE unsigned len; remove_termcap_entry(newtc, TERMCAP_ERASE "="); len = strlen(newtc); if (len != 0 && newtc[len - 1] == ':') len--; sprintf(newtc + len, ":%s=\\%03o:", TERMCAP_ERASE, CharOf(initial_erase)); #endif xtermSetenv("TERMCAP=", newtc); } #endif /* USE_SYSV_ENVVARS */ /* need to reset after all the ioctl bashing we did above */ #if OPT_PTY_HANDSHAKE if (resource.ptyHandshake) { #ifdef TTYSIZE_STRUCT i = SET_TTYSIZE(0, ts); TRACE(("spawn SET_TTYSIZE %dx%d return %d\n", TTYSIZE_ROWS(ts), TTYSIZE_COLS(ts), i)); #endif /* TTYSIZE_STRUCT */ } #endif /* OPT_PTY_HANDSHAKE */ signal(SIGHUP, SIG_DFL); if ((ptr = explicit_shname) == NULL) { if (((ptr = getenv("SHELL")) == NULL || *ptr == 0) && ((pw == NULL && (pw = getpwuid(screen->uid)) == NULL) || *(ptr = pw->pw_shell) == 0)) { ptr = "/bin/sh"; } } else { xtermSetenv("SHELL=", explicit_shname); } xtermSetenv("XTERM_SHELL=", ptr); shname = x_basename(ptr); TRACE(("shell path '%s' leaf '%s'\n", ptr, shname)); #if OPT_LUIT_PROG /* * Use two copies of command_to_exec, in case luit is not actually * there, or refuses to run. In that case we will fall-through to * to command that the user gave anyway. */ if (command_to_exec_with_luit) { xtermSetenv("XTERM_SHELL=", xtermFindShell(*command_to_exec_with_luit, False)); TRACE(("spawning command \"%s\"\n", *command_to_exec_with_luit)); execvp(*command_to_exec_with_luit, command_to_exec_with_luit); /* print error message on screen */ fprintf(stderr, "%s: Can't execvp %s: %s\n", xterm_name, *command_to_exec_with_luit, strerror(errno)); fprintf(stderr, "%s: cannot support your locale.\n", xterm_name); } #endif if (command_to_exec) { xtermSetenv("XTERM_SHELL=", xtermFindShell(*command_to_exec, False)); TRACE(("spawning command \"%s\"\n", *command_to_exec)); execvp(*command_to_exec, command_to_exec); if (command_to_exec[1] == 0) execlp(ptr, shname, "-c", command_to_exec[0], (void *) 0); /* print error message on screen */ fprintf(stderr, "%s: Can't execvp %s: %s\n", xterm_name, *command_to_exec, strerror(errno)); } #ifdef USE_SYSV_SIGHUP /* fix pts sh hanging around */ signal(SIGHUP, SIG_DFL); #endif shname_minus = CastMallocN(char, strlen(shname) + 2); (void) strcpy(shname_minus, "-"); (void) strcat(shname_minus, shname); #ifndef TERMIO_STRUCT ldisc = XStrCmp("csh", shname + strlen(shname) - 3) == 0 ? NTTYDISC : 0; ioctl(0, TIOCSETD, (char *) &ldisc); #endif /* !TERMIO_STRUCT */ #ifdef USE_LOGIN_DASH_P if (term->misc.login_shell && pw && added_utmp_entry) execl(bin_login, "login", "-p", "-f", login_name, (void *) 0); #endif execlp(ptr, (term->misc.login_shell ? shname_minus : shname), (void *) 0); /* Exec failed. */ fprintf(stderr, "%s: Could not exec %s: %s\n", xterm_name, ptr, strerror(errno)); (void) sleep(5); exit(ERROR_EXEC); } /* end if in child after fork */ #if OPT_PTY_HANDSHAKE if (resource.ptyHandshake) { /* Parent process. Let's handle handshaked requests to our * child process. */ /* close childs's sides of the pipes */ close(cp_pipe[1]); close(pc_pipe[0]); for (done = 0; !done;) { if (read(cp_pipe[0], (char *) &handshake, sizeof(handshake)) <= 0) { /* Our child is done talking to us. If it terminated * due to an error, we will catch the death of child * and clean up. */ break; } switch (handshake.status) { case PTY_GOOD: /* Success! Let's free up resources and * continue. */ done = 1; break; case PTY_BAD: /* The open of the pty failed! Let's get * another one. */ (void) close(screen->respond); if (get_pty(&screen->respond, XDisplayString(screen->display))) { /* no more ptys! */ fprintf(stderr, "%s: child process can find no available ptys: %s\n", xterm_name, strerror(errno)); handshake.status = PTY_NOMORE; write(pc_pipe[1], (char *) &handshake, sizeof(handshake)); exit(ERROR_PTYS); } handshake.status = PTY_NEW; (void) strcpy(handshake.buffer, ttydev); write(pc_pipe[1], (char *) &handshake, sizeof(handshake)); break; case PTY_FATALERROR: errno = handshake.error; close(cp_pipe[0]); close(pc_pipe[1]); SysError(handshake.fatal_error); /*NOTREACHED */ case UTMP_ADDED: /* The utmp entry was set by our slave. Remember * this so that we can reset it later. */ added_utmp_entry = True; #ifndef USE_SYSV_UTMP tslot = handshake.tty_slot; #endif /* USE_SYSV_UTMP */ free(ttydev); ttydev = x_strdup(handshake.buffer); break; default: fprintf(stderr, "%s: unexpected handshake status %d\n", xterm_name, (int) handshake.status); } } /* close our sides of the pipes */ if (!waiting_for_initial_map) { close(cp_pipe[0]); close(pc_pipe[1]); } } #endif /* OPT_PTY_HANDSHAKE */ } /* end if no slave */ /* * still in parent (xterm process) */ #ifdef USE_SYSV_SIGHUP /* hung sh problem? */ signal(SIGHUP, SIG_DFL); #else signal(SIGHUP, SIG_IGN); #endif /* * Unfortunately, System V seems to have trouble divorcing the child process * from the process group of xterm. This is a problem because hitting the * INTR or QUIT characters on the keyboard will cause xterm to go away if we * don't ignore the signals. This is annoying. */ #if defined(USE_SYSV_SIGNALS) && !defined(SIGTSTP) signal(SIGINT, SIG_IGN); #ifndef SYSV /* hung shell problem */ signal(SIGQUIT, SIG_IGN); #endif signal(SIGTERM, SIG_IGN); #elif defined(SYSV) || defined(__osf__) /* if we were spawned by a jobcontrol smart shell (like ksh or csh), * then our pgrp and pid will be the same. If we were spawned by * a jobcontrol dumb shell (like /bin/sh), then we will be in our * parent's pgrp, and we must ignore keyboard signals, or we will * tank on everything. */ if (getpid() == getpgrp()) { (void) signal(SIGINT, Exit); (void) signal(SIGQUIT, Exit); (void) signal(SIGTERM, Exit); } else { (void) signal(SIGINT, SIG_IGN); (void) signal(SIGQUIT, SIG_IGN); (void) signal(SIGTERM, SIG_IGN); } (void) signal(SIGPIPE, Exit); #else /* SYSV */ signal(SIGINT, Exit); signal(SIGQUIT, Exit); signal(SIGTERM, Exit); signal(SIGPIPE, Exit); #endif /* USE_SYSV_SIGNALS and not SIGTSTP */ return 0; } /* end spawn */ SIGNAL_T Exit(int n) { TScreen *screen = &term->screen; #ifdef USE_UTEMPTER if (!resource.utmpInhibit && added_utmp_entry) removeFromUtmp(); #elif defined(HAVE_UTMP) #ifdef USE_SYSV_UTMP struct UTMP_STR utmp; struct UTMP_STR *utptr; /* don't do this more than once */ if (xterm_exiting) SIGNAL_RETURN; xterm_exiting = True; #ifdef PUCC_PTYD closepty(ttydev, ptydev, (resource.utmpInhibit ? OPTY_NOP : OPTY_LOGIN), screen->respond); #endif /* PUCC_PTYD */ /* cleanup the utmp entry we forged earlier */ if (!resource.utmpInhibit #if OPT_PTY_HANDSHAKE /* without handshake, no way to know */ && (resource.ptyHandshake && added_utmp_entry) #endif /* OPT_PTY_HANDSHAKE */ ) { #if defined(USE_UTMP_SETGID) if (utmpGid != -1) { /* Switch back to group utmp */ setegid(utmpGid); TRACE(("switched back to group %d (check: %d)\n", utmpGid, (int) getgid())); } #endif init_utmp(USER_PROCESS, &utmp); (void) call_setutent(); /* * We could use getutline() if we didn't support old systems. */ while ((utptr = find_utmp(&utmp)) != 0) { if (utptr->ut_pid == screen->pid) { utptr->ut_type = DEAD_PROCESS; #if defined(HAVE_UTMP_UT_XTIME) #if defined(HAVE_UTMP_UT_SESSION) utptr->ut_session = getsid(0); #endif utptr->ut_xtime = time((time_t *) 0); utptr->ut_tv.tv_usec = 0; #else *utptr->ut_user = 0; utptr->ut_time = time((time_t *) 0); #endif (void) call_pututline(utptr); #ifdef WTMP #if defined(WTMPX_FILE) && (defined(SVR4) || defined(__SCO__)) if (term->misc.login_shell) updwtmpx(WTMPX_FILE, utptr); #elif defined(linux) && defined(__GLIBC__) && (__GLIBC__ >= 2) && !(defined(__powerpc__) && (__GLIBC__ == 2) && (__GLIBC_MINOR__ == 0)) strncpy(utmp.ut_line, utptr->ut_line, sizeof(utmp.ut_line)); if (term->misc.login_shell) call_updwtmp(etc_wtmp, utptr); #else /* set wtmp entry if wtmp file exists */ if (term->misc.login_shell) { int fd; if ((fd = open(etc_wtmp, O_WRONLY | O_APPEND)) >= 0) { write(fd, utptr, sizeof(*utptr)); close(fd); } } #endif #endif break; } memset(utptr, 0, sizeof(*utptr)); /* keep searching */ } (void) call_endutent(); } #else /* not USE_SYSV_UTMP */ int wfd; struct utmp utmp; if (!resource.utmpInhibit && added_utmp_entry && (am_slave < 0 && tslot > 0 && (wfd = open(etc_utmp, O_WRONLY)) >= 0)) { bzero((char *) &utmp, sizeof(utmp)); lseek(wfd, (long) (tslot * sizeof(utmp)), 0); write(wfd, (char *) &utmp, sizeof(utmp)); close(wfd); #ifdef WTMP if (term->misc.login_shell && (wfd = open(etc_wtmp, O_WRONLY | O_APPEND)) >= 0) { (void) strncpy(utmp.ut_line, my_pty_name(ttydev), sizeof(utmp.ut_line)); time(&utmp.ut_time); write(wfd, (char *) &utmp, sizeof(utmp)); close(wfd); } #endif /* WTMP */ } #endif /* USE_SYSV_UTMP */ #endif /* HAVE_UTMP */ close(screen->respond); /* close explicitly to avoid race with slave side */ #ifdef ALLOWLOGGING if (screen->logging) CloseLog(screen); #endif if (am_slave < 0) { /* restore ownership of tty and pty */ set_owner(ttydev, 0, 0, 0666U); #if (defined(USE_PTY_DEVICE) && !defined(__sgi) && !defined(__hpux)) set_owner(ptydev, 0, 0, 0666U); #endif } #if OPT_TRACE || defined(NO_LEAKS) if (n == 0) { TRACE(("Freeing memory leaks\n")); if (term != 0) { Display *dpy = term->screen.display; if (term->screen.sbuf_address) { free(term->screen.sbuf_address); TRACE(("freed screen.sbuf_address\n")); } if (term->screen.allbuf) { free(term->screen.allbuf); TRACE(("freed screen.allbuf\n")); } if (term->screen.xim) { XCloseIM(term->screen.xim); TRACE(("freed screen.xim\n")); } if (toplevel) { XtDestroyWidget(toplevel); TRACE(("destroyed top-level widget\n")); } XtCloseDisplay(dpy); TRACE(("closed display\n")); } TRACE((0)); } #endif exit(n); SIGNAL_RETURN; } /* ARGSUSED */ static void resize(TScreen * screen, char *oldtc, char *newtc) { #ifndef USE_SYSV_ENVVARS char *ptr1, *ptr2; size_t i; int li_first = 0; char *temp; TRACE(("resize %s\n", oldtc)); if ((ptr1 = x_strindex(oldtc, "co#")) == NULL) { strcat(oldtc, "co#80:"); ptr1 = x_strindex(oldtc, "co#"); } if ((ptr2 = x_strindex(oldtc, "li#")) == NULL) { strcat(oldtc, "li#24:"); ptr2 = x_strindex(oldtc, "li#"); } if (ptr1 > ptr2) { li_first++; temp = ptr1; ptr1 = ptr2; ptr2 = temp; } ptr1 += 3; ptr2 += 3; strncpy(newtc, oldtc, i = ptr1 - oldtc); temp = newtc + i; sprintf(temp, "%d", (li_first ? MaxRows(screen) : MaxCols(screen))); temp += strlen(temp); ptr1 = strchr(ptr1, ':'); strncpy(temp, ptr1, i = ptr2 - ptr1); temp += i; sprintf(temp, "%d", (li_first ? MaxCols(screen) : MaxRows(screen))); ptr2 = strchr(ptr2, ':'); strcat(temp, ptr2); TRACE((" ==> %s\n", newtc)); #endif /* USE_SYSV_ENVVARS */ } #endif /* ! VMS */ /* * Does a non-blocking wait for a child process. If the system * doesn't support non-blocking wait, do nothing. * Returns the pid of the child, or 0 or -1 if none or error. */ int nonblocking_wait(void) { #ifdef USE_POSIX_WAIT pid_t pid; pid = waitpid(-1, NULL, WNOHANG); #elif defined(USE_SYSV_SIGNALS) && (defined(CRAY) || !defined(SIGTSTP)) /* cannot do non-blocking wait */ int pid = 0; #else /* defined(USE_SYSV_SIGNALS) && (defined(CRAY) || !defined(SIGTSTP)) */ #if defined(Lynx) int status; #else union wait status; #endif int pid; pid = wait3(&status, WNOHANG, (struct rusage *) NULL); #endif /* USE_POSIX_WAIT else */ return pid; } #ifndef VMS /* ARGSUSED */ static SIGNAL_T reapchild(int n GCC_UNUSED) { int olderrno = errno; int pid; pid = wait(NULL); #ifdef USE_SYSV_SIGNALS /* cannot re-enable signal before waiting for child * because then SVR4 loops. Sigh. HP-UX 9.01 too. */ (void) signal(SIGCHLD, reapchild); #endif do { if (pid == term->screen.pid) { #ifdef DEBUG if (debug) fputs("Exiting\n", stderr); #endif if (!hold_screen) need_cleanup = TRUE; } } while ((pid = nonblocking_wait()) > 0); errno = olderrno; SIGNAL_RETURN; } #endif /* !VMS */ static void remove_termcap_entry(char *buf, char *str) { char *base = buf; char *first = base; int count = 0; size_t len = strlen(str); TRACE(("*** remove_termcap_entry('%s', '%s')\n", str, buf)); while (*buf != 0) { if (!count && !strncmp(buf, str, len)) { while (*buf != 0) { if (*buf == '\\') buf++; else if (*buf == ':') break; if (*buf != 0) buf++; } while ((*first++ = *buf++) != 0) ; TRACE(("...removed_termcap_entry('%s', '%s')\n", str, base)); return; } else if (*buf == '\\') { buf++; } else if (*buf == ':') { first = buf; count = 0; } else if (!isspace(CharOf(*buf))) { count++; } if (*buf != 0) buf++; } TRACE(("...cannot remove\n")); } /* * parse_tty_modes accepts lines of the following form: * * [SETTING] ... * * where setting consists of the words in the modelist followed by a character * or ^char. */ static int parse_tty_modes(char *s, struct _xttymodes *modelist) { struct _xttymodes *mp; int c; int count = 0; TRACE(("parse_tty_modes\n")); while (1) { size_t len; while (*s && isascii(CharOf(*s)) && isspace(CharOf(*s))) s++; if (!*s) return count; for (len = 0; isalnum(CharOf(s[len])); ++len) ; for (mp = modelist; mp->name; mp++) { if (len == mp->len && strncmp(s, mp->name, mp->len) == 0) break; } if (!mp->name) return -1; s += mp->len; while (*s && isascii(CharOf(*s)) && isspace(CharOf(*s))) s++; if (!*s) return -1; if ((c = decode_keyvalue(&s, False)) != -1) { mp->value = c; mp->set = 1; count++; TRACE(("...parsed #%d: %s=%#x\n", count, mp->name, c)); } } } #ifndef VMS /* don't use pipes on OpenVMS */ int GetBytesAvailable(int fd) { #if defined(FIONREAD) int arg; ioctl(fd, FIONREAD, (char *) &arg); return (int) arg; #elif defined(__CYGWIN__) fd_set set; struct timeval timeout = {0, 0}; FD_ZERO(&set); FD_SET(fd, &set); if (Select(fd + 1, &set, NULL, NULL, &timeout) > 0) return 1; else return 0; #elif defined(FIORDCK) return (ioctl(fd, FIORDCHK, NULL)); #else /* !FIORDCK */ struct pollfd pollfds[1]; pollfds[0].fd = fd; pollfds[0].events = POLLIN; return poll(pollfds, 1, 0); #endif } #endif /* !VMS */ /* Utility function to try to hide system differences from everybody who used to call killpg() */ int kill_process_group(int pid, int sig) { TRACE(("kill_process_group(pid=%d, sig=%d)\n", pid, sig)); #if defined(SVR4) || defined(SYSV) || !defined(X_NOT_POSIX) return kill(-pid, sig); #else return killpg(pid, sig); #endif } #if OPT_EBCDIC int A2E(int x) { char c; c = x; __atoe_l(&c, 1); return c; } int E2A(int x) { char c; c = x; __etoa_l(&c, 1); return c; } #endif #if defined(__QNX__) && !defined(__QNXNTO__) #include <sys/types.h> #include <sys/proc_msg.h> #include <sys/kernel.h> #include <string.h> #include <errno.h> struct _proc_session ps; struct _proc_session_reply rps; int qsetlogin(char *login, char *ttyname) { int v = getsid(getpid()); memset(&ps, 0, sizeof(ps)); memset(&rps, 0, sizeof(rps)); ps.type = _PROC_SESSION; ps.subtype = _PROC_SUB_ACTION1; ps.sid = v; strcpy(ps.name, login); Send(1, &ps, &rps, sizeof(ps), sizeof(rps)); if (rps.status < 0) return (rps.status); ps.type = _PROC_SESSION; ps.subtype = _PROC_SUB_ACTION2; ps.sid = v; sprintf(ps.name, "//%d%s", getnid(), ttyname); Send(1, &ps, &rps, sizeof(ps), sizeof(rps)); return (rps.status); } #endif