aboutsummaryrefslogtreecommitdiff
path: root/nx-X11/programs/xterm/main.c.X.original
diff options
context:
space:
mode:
Diffstat (limited to 'nx-X11/programs/xterm/main.c.X.original')
-rw-r--r--nx-X11/programs/xterm/main.c.X.original4912
1 files changed, 4912 insertions, 0 deletions
diff --git a/nx-X11/programs/xterm/main.c.X.original b/nx-X11/programs/xterm/main.c.X.original
new file mode 100644
index 000000000..b84826cb4
--- /dev/null
+++ b/nx-X11/programs/xterm/main.c.X.original
@@ -0,0 +1,4912 @@
+/* $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.
+
+******************************************************************/
+
+/* $XFree86: xc/programs/xterm/main.c,v 3.199 2005/11/13 23:10:36 dickey Exp $ */
+
+/* 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, &ltc) == -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, &ltc) == -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 *) &ltc) == -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