aboutsummaryrefslogtreecommitdiff
path: root/nx-X11/programs/xterm/os2main.c
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2015-02-02 15:02:49 +0100
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2015-02-02 15:02:49 +0100
commitb16b9e4656e7199c2aec74a4c8ebc7a875d3ba73 (patch)
tree4361edef0d42d5bf5ac984ef72b4fac35426eae7 /nx-X11/programs/xterm/os2main.c
parent0d5a83e986f39982c0924652a3662e60b1f23162 (diff)
downloadnx-libs-b16b9e4656e7199c2aec74a4c8ebc7a875d3ba73.tar.gz
nx-libs-b16b9e4656e7199c2aec74a4c8ebc7a875d3ba73.tar.bz2
nx-libs-b16b9e4656e7199c2aec74a4c8ebc7a875d3ba73.zip
massive reduction of unneeded files
Diffstat (limited to 'nx-X11/programs/xterm/os2main.c')
-rw-r--r--nx-X11/programs/xterm/os2main.c2155
1 files changed, 0 insertions, 2155 deletions
diff --git a/nx-X11/programs/xterm/os2main.c b/nx-X11/programs/xterm/os2main.c
deleted file mode 100644
index 8ef6147a1..000000000
--- a/nx-X11/programs/xterm/os2main.c
+++ /dev/null
@@ -1,2155 +0,0 @@
-/* $XTermId: os2main.c,v 1.213 2005/11/03 13:17:28 tom Exp $ */
-
-/* removed all foreign stuff to get the code more clear (hv)
- * and did some rewrite for the obscure OS/2 environment
- */
-
-#ifndef lint
-static char *rid = "$XConsortium: main.c,v 1.227.1.2 95/06/29 18:13:15 kaleb Exp $";
-#endif /* lint */
-/* $XFree86: xc/programs/xterm/os2main.c,v 3.81 2005/11/03 13:17:28 dickey Exp $ */
-
-/***********************************************************
-
-Copyright (c) 1987, 1988 X Consortium
-
-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
-X CONSORTIUM 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 X Consortium 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 X Consortium.
-
-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.
-
-******************************************************************/
-
-/* os2main.c */
-#define INCL_DOSFILEMGR
-#define INCL_DOSDEVIOCTL
-#define INCL_DOSSEMAPHORES
-#ifdef __INNOTEK_LIBC__
-#define INCL_DOSDEVICES
-#endif
-#define I_NEED_OS2_H
-#include <os2.h>
-#define XTERM_MAIN
-
-#define RES_OFFSET(field) XtOffsetOf(XTERM_RESOURCE, field)
-
-#include <xterm.h>
-
-#include <X11/cursorfont.h>
-#ifdef I18N
-#include <X11/Xlocale.h>
-#endif
-
-#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
-
-int
-setpgrp(pid_t pid, gid_t pgid)
-{
- return 0;
-}
-
-int
-chown(const char *fn, pid_t pid, gid_t gid)
-{
- return 0;
-}
-
-char *
-ttyname(int fd)
-{
- return "/dev/tty";
-}
-
-#include <sys/stat.h>
-#include <sys/param.h> /* for NOFILE */
-#include <stdio.h>
-#include <signal.h>
-
-static SIGNAL_T reapchild(int n);
-static int spawn(void);
-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;
-
-/*
-** 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
-
-/* The following structures are initialized in main() in order
-** to eliminate any assumptions about the internal order of their
-** contents.
-*/
-static struct termio d_tio;
-
-/* allow use of system default characters if defined and reasonable */
-#ifndef CEOF
-#define CEOF CONTROL('D')
-#endif
-#ifndef CEOL
-#define CEOL 0
-#endif
-#ifndef CFLUSH
-#define CFLUSH CONTROL('O')
-#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
-
-/*
- * 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
- { 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);
-
-static char passedPty[2]; /* name if pty if slave */
-
-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;
-
-static int tslot;
-static jmp_buf env;
-
-/* 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" },
-{ "-/+ut", "turn on/off utmp inhibit (not supported)" },
-{ "-/+ulit", "turn off/on display of underline as italics" },
-{ "-/+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" },
-{ "-C", "intercept console messages" },
-{ "-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* */
-
-/*debug FILE *confd;*/
-/*static void opencons()
-{
- if ((confd=fopen("/dev/console$","w")) < 0) {
- fputs("!!! Cannot open console device.\n",
- stderr);
- exit(1);
- }
-}
-
-static void closecons(void)
-{
- fclose(confd);
-}
-*/
-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);
-}
-
-/* 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;
-}
-
-#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},
-};
-
-char **gblenvp;
-
-int
-main(int argc, char **argv ENVP_ARG)
-{
- Widget form_top, menu_top;
- TScreen *screen;
- int mode;
- char *my_class = DEFCLASS;
- Window winToEmbedInto = None;
-
- /* Do these first, since we may not be able to open the display */
- ProgramName = argv[0];
- 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);
- }
-
- /* XXX: for some obscure reason EMX seems to lose the value of
- * the environ variable, don't understand why, so save it recently
- */
- gblenvp = envp;
-
-#ifdef I18N
- setlocale(LC_ALL, NULL);
-#endif
-
-/*debug opencons();*/
-
- ttydev = TypeMallocN(char, PTMS_BUFSZ);
- ptydev = TypeMallocN(char, PTMS_BUFSZ);
- if (!ttydev || !ptydev) {
- fprintf(stderr,
- "%s: unable to allocate memory for ttydev or ptydev\n",
- ProgramName);
- exit(1);
- }
- strcpy(ttydev, TTYDEV);
- strcpy(ptydev, PTYDEV);
-
- /* 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;
- d_tio.c_oflag = OPOST | ONLCR | TAB3;
- d_tio.c_cflag = B38400 | CS8 | CREAD | PARENB | HUPCL;
- d_tio.c_lflag = ISIG | ICANON | ECHO | ECHOE | ECHOK;
- d_tio.c_line = 0;
- 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; /* '^@' */
-
- 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();
-
- 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++) {
- if (**argv != '-')
- Syntax(*argv);
-
- TRACE(("parsing %s\n", argv[0]));
- switch (argv[0][1]) {
- case 'h': /* -help */
- Help();
- continue;
- case 'v': /* -version */
- Version();
- continue;
- case 'C':
- {
- 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;
- }
- continue;
- case 'S':
- if (sscanf(*argv + 2, "%c%c%d", passedPty, passedPty + 1,
- &am_slave) != 3)
- 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())
- exit(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. */
- int i = -1;
- if (debug) {
- creat_as(getuid(), getgid(), True, "xterm.debug.log", 0666);
- i = open("xterm.debug.log", 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();
-
- /* Child process is out there, let's catch its termination */
- (void) signal(SIGCHLD, reapchild);
-
- /* 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));
- }
-
- if (0 > (mode = fcntl(screen->respond, F_GETFL, 0)))
- SysError(ERROR_F_GETFL);
- mode |= O_NDELAY;
-
- if (fcntl(screen->respond, F_SETFL, mode))
- SysError(ERROR_F_SETFL);
-
- 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));
-
-#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();
- }
- return 0;
-}
-
-/*
- * 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.
- */
-static int
-pty_search(int *pty)
-{
- char namebuf[PTMS_BUFSZ];
-
- /* ask the PTY manager */
- int fd = open("/dev/ptms$", 0);
- if (fd && ptioctl(fd, PTMS_GETPTY, namebuf) == 0) {
- strcpy(ttydev, namebuf);
- strcpy(ptydev, namebuf);
- *x_basename(ttydev) = 't';
- close(fd);
- if ((*pty = open(ptydev, O_RDWR)) >= 0) {
-#ifdef PTYDEBUG
- ptioctl(*pty, XTY_TRACE, 0);
-#endif
- return 0;
- } else {
- fprintf(stderr, "Unable to open %s, errno=%d\n", ptydev, errno);
- }
- }
- return 1;
-}
-
-/*
- * 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)
-{
- return pty_search(pty);
-}
-
-/*
- * 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)
-{
- longjmp(env, 1);
- SIGNAL_RETURN;
-}
-
-struct {
- int rows;
- int cols;
-} handshake = {
-
- -1, -1
-};
-
-void
-first_map_occurred(void)
-{
- TScreen *screen = &term->screen;
- handshake.rows = screen->max_row;
- handshake.cols = screen->max_col;
- waiting_for_initial_map = False;
-}
-
-static void
-set_owner(char *device, uid_t uid, gid_t gid, mode_t mode)
-{
- int why;
-
- 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));
- }
- }
- 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, mode, strerror(why));
- } else {
- fprintf(stderr,
- "Cannot chmod %s to %03o currently %03o: %s\n",
- device, mode, (sb.st_mode & S_IFMT), strerror(why));
- }
- }
- }
-}
-
-#define THE_PARENT 1
-#define THE_CHILD 2
-int whoami = -1;
-
-SIGNAL_T
-killit(int sig)
-{
- switch (whoami) {
- case -1:
- signal(sig, killit);
- kill(-getpid(), sig);
- break;
- case THE_PARENT:
- wait(NULL);
- signal(SIGTERM, SIG_DFL);
- kill(-getpid(), SIGTERM);
- Exit(0);
- break;
- case THE_CHILD:
- signal(SIGTERM, SIG_DFL);
- kill(-getppid(), SIGTERM);
- Exit(0);
- break;
- }
-
- SIGNAL_RETURN;
-}
-
-#define close_fd(fd) close(fd), fd = -1
-
-static int
-spawn(void)
-/*
- * 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
- */
-{
- TScreen *screen = &term->screen;
- int Xsocket = ConnectionNumber(screen->display);
-
- int ttyfd = -1;
- struct termio tio;
- int status;
-
- char termcap[TERMCAP_SIZE], newtc[TERMCAP_SIZE];
- char *TermName = NULL;
- char *ptr, *shname, buf[64];
- int i, no_dev_tty = False, envsize;
- char *dev_tty_name = (char *) 0;
- TTYSIZE_STRUCT ts;
- int pgrp = getpid();
- char numbuf[12], **envnew;
-
- screen->uid = getuid();
- screen->gid = getgid();
-
- if (am_slave >= 0) {
- screen->respond = am_slave;
- ptydev[strlen(ptydev) - 2] =
- ttydev[strlen(ttydev) - 2] = passedPty[0];
- ptydev[strlen(ptydev) - 1] =
- ttydev[strlen(ttydev) - 1] = passedPty[1];
-
- 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 (!setjmp(env)) {
- ttyfd = open("/dev/tty", O_RDWR);
- alarm(0);
- tty_got_hung = False;
- } else {
- tty_got_hung = True;
- ttyfd = -1;
- errno = ENXIO;
- }
- 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.
- */
- if (ttyfd < 0) {
- if (tty_got_hung || errno == ENXIO || errno == EIO ||
- errno == EINVAL || errno == ENOTTY) {
- no_dev_tty = True;
- tio = d_tio;
- } 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.
- */
- if (ioctl(ttyfd, TCGETA, &tio) == -1)
- tio = d_tio;
-
- close_fd(ttyfd);
- }
-
- if (get_pty(&screen->respond)) {
- /* no ptys! */
- exit(ERROR_PTYS);
- }
- }
-
- /* 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 (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);
- }
-#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++;
- }
- }
-
- /* tell tty how big window is */
-#if OPT_TEK4014
- if (TEK4014_ACTIVE(screen)) {
- TTYSIZE_ROWS(ts) = 38;
- TTYSIZE_COLS(ts) = 81;
- ts.ws_xpixel = TFullWidth(screen);
- ts.ws_ypixel = TFullHeight(screen);
- } else
-#endif
- {
- TTYSIZE_ROWS(ts) = MaxRows(screen);
- TTYSIZE_COLS(ts) = MaxCols(screen);
- ts.ws_xpixel = FullWidth(screen);
- ts.ws_ypixel = FullHeight(screen);
- }
-
- if (am_slave < 0) {
-
- char sema[40];
- HEV sev;
- /* start a child process
- * use an event sema for sync
- */
- sprintf(sema, "\\SEM32\\xterm%s", &ptydev[8]);
- if (DosCreateEventSem(sema, &sev, DC_SEM_SHARED, False))
- SysError(ERROR_FORK);
-
- switch ((screen->pid = fork())) {
- case -1: /* error */
- SysError(ERROR_FORK);
- default: /* parent */
- whoami = THE_PARENT;
- DosWaitEventSem(sev, 1000L);
- DosCloseEventSem(sev);
- break;
- case 0: /* child */
- whoami = THE_CHILD;
-
-/*debug fclose(confd);
-opencons();*/
- /* we don't need the socket, or the pty master anymore */
- close(ConnectionNumber(screen->display));
- close(screen->respond);
-
- /* Now is the time to set up our process group and
- * open up the pty slave.
- */
- if ((ttyfd = open(ttydev, O_RDWR)) < 0) {
- /* dumm gelaufen */
- fprintf(stderr, "Cannot open slave side of PTY\n");
- exit(1);
- }
-
- /* use the same tty name that everyone else will use
- * (from ttyname)
- */
-#ifdef EMXNOTBOGUS
- 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);
- }
-#else
- ptr = ttydev;
-#endif
- /* for safety: enable DUPs */
- ptioctl(ttyfd, XTY_ENADUP, 0);
-
- /* change ownership of tty to real group and user id */
- set_owner(ttydev, screen->uid, screen->gid,
- (resource.messages ? 0622U : 0600U));
-
- /* for the xf86sup-pty, we set the pty to bypass: OS/2 does
- * not have a line discipline structure
- */
- {
- struct termio t, t1;
- if (ptioctl(ttyfd, TCGETA, (char *) &t) < 0)
- t = d_tio;
-
- t.c_iflag = ICRNL;
- t.c_oflag = OPOST | ONLCR;
- t.c_lflag = ISIG | ICANON | ECHO | ECHOE | ECHOK;
-
- /* ignore error code, user will see it :-) */
- ptioctl(ttyfd, TCSETA, (char *) &t);
-
- /* set the console mode */
- if (Console) {
- int on = 1;
- if (ioctl(ttyfd, TIOCCONS, (char *) &on) == -1)
- fprintf(stderr, "%s: cannot open console\n", xterm_name);
- }
- }
-
- signal(SIGCHLD, SIG_DFL);
- signal(SIGHUP, SIG_IGN);
-
- /* restore various signals to their defaults */
- signal(SIGINT, SIG_DFL);
- signal(SIGQUIT, SIG_DFL);
- signal(SIGTERM, SIG_DFL);
-
- /* copy the environment before Setenv'ing */
- for (i = 0; gblenvp[i] != NULL; i++) ;
-
- /* compute number of xtermSetenv() calls below */
- envsize = 1; /* (NULL terminating entry) */
- envsize += 5; /* TERM, WINDOWID, DISPLAY, _SHELL, _VERSION */
- envsize += 2; /* COLUMNS, LINES */
-
- envnew = TypeCallocN(char *, (unsigned) i + envsize);
- memmove((char *) envnew, (char *) gblenvp, i * sizeof(char *));
- gblenvp = 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
- */
- /* dup the tty */
- for (i = 0; i <= 2; i++)
- if (i != ttyfd) {
- (void) close(i);
- (void) dup(ttyfd);
- }
-
- /* and close the tty */
- if (ttyfd > 2)
- close_fd(ttyfd);
-
- setpgrp(0, pgrp);
- setgid(screen->gid);
- setuid(screen->uid);
-
- if (handshake.rows > 0 && handshake.cols > 0) {
- set_max_row(screen, handshake.rows);
- set_max_col(screen, handshake.cols);
- TTYSIZE_ROWS(ts) = MaxRows(screen);
- TTYSIZE_COLS(ts) = MaxCols(screen);
- ts.ws_xpixel = FullWidth(screen);
- ts.ws_ypixel = FullHeight(screen);
- }
-
- sprintf(numbuf, "%d", MaxCols(screen));
- xtermSetenv("COLUMNS=", numbuf);
- sprintf(numbuf, "%d", MaxRows(screen));
- xtermSetenv("LINES=", numbuf);
-
- /* reconstruct dead environ variable */
- environ = gblenvp;
-
- /* need to reset after all the ioctl bashing we did above */
- ptioctl(0, TIOCSWINSZ, (char *) &ts);
-
- signal(SIGHUP, SIG_DFL);
-
- /* okay everything seems right, so tell the parent, we are going */
- {
- char sema[40];
- HEV sev;
- sprintf(sema, "\\SEM32\\xterm%s", &ttydev[8]);
- DosOpenEventSem(sema, &sev);
- DosPostEventSem(sev);
- DosCloseEventSem(sev);
- }
-
-#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));
- execvpe(*command_to_exec, command_to_exec, gblenvp);
-
- /* print error message on screen */
- fprintf(stderr, "%s: Can't execvp %s\n",
- xterm_name, *command_to_exec);
- }
-
- /* use a layered mechanism to find a shell */
- ptr = getenv("X11SHELL");
- if (!ptr)
- ptr = getenv("SHELL");
- if (!ptr)
- ptr = getenv("OS2_SHELL");
- if (!ptr)
- ptr = "SORRY_NO_SHELL_FOUND";
- xtermSetenv("XTERM_SHELL=", ptr);
-
- shname = x_basename(ptr);
- if (command_to_exec) {
- char *exargv[10]; /*XXX */
-
- exargv[0] = ptr;
- exargv[1] = "/C";
- exargv[2] = command_to_exec[0];
- exargv[3] = command_to_exec[1];
- exargv[4] = command_to_exec[2];
- exargv[5] = command_to_exec[3];
- exargv[6] = command_to_exec[4];
- exargv[7] = command_to_exec[5];
- exargv[8] = command_to_exec[6];
- exargv[9] = 0;
- execvpe(exargv[0], exargv, gblenvp);
-
- /* print error message on screen */
- fprintf(stderr, "%s: Can't execvp %s\n",
- xterm_name, *command_to_exec);
- } else {
- execlpe(ptr, shname, 0, gblenvp);
-
- /* Exec failed. */
- fprintf(stderr, "%s: Could not exec %s!\n",
- xterm_name, ptr);
- }
- sleep(5);
-
- /* preventively shoot the parent */
- kill(-getppid(), SIGTERM);
-
- exit(ERROR_EXEC);
- } /* endcase */
- }
- /* !am_slave */
- signal(SIGHUP, SIG_IGN);
-/*
- * 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.
- */
-
-/* signal (SIGINT, SIG_IGN);*/
- signal(SIGINT, killit);
- signal(SIGTERM, killit);
-
- /* hung shell problem */
- signal(SIGQUIT, SIG_IGN);
-/* signal (SIGTERM, SIG_IGN);*/
- return 0;
-} /* end spawn */
-
-SIGNAL_T
-Exit(int n)
-{
- TScreen *screen = &term->screen;
- int pty = term->screen.respond; /* file descriptor of pty */
- close(pty); /* 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);
- set_owner(ptydev, 0, 0, 0666U);
- }
- exit(n);
- SIGNAL_RETURN;
-}
-
-/* ARGSUSED */
-static void
-resize(TScreen * screen, char *oldtc, char *newtc)
-{
-}
-
-/*
- * 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)
-{
- pid_t pid;
-
- pid = waitpid(-1, NULL, WNOHANG);
- return pid;
-}
-
-/* ARGSUSED */
-static SIGNAL_T
-reapchild(int n GCC_UNUSED)
-{
- int olderrno = errno;
- int pid;
-
- pid = wait(NULL);
-
- /* cannot re-enable signal before waiting for child
- * because then SVR4 loops. Sigh. HP-UX 9.01 too.
- */
- (void) signal(SIGCHLD, reapchild);
-
- 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;
-}
-
-/*
- * 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) {
- while (*s && isascii(CharOf(*s)) && isspace(CharOf(*s)))
- s++;
- if (!*s)
- return count;
-
- for (mp = modelist; mp->name; mp++) {
- if (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));
- }
- }
-}
-
-int
-GetBytesAvailable(int fd)
-{
- long arg;
- ioctl(fd, FIONREAD, (char *) &arg);
- return (int) arg;
-}
-
-/* Utility function to try to hide system differences from
- everybody who used to call killpg() */
-
-int
-kill_process_group(int pid, int sig)
-{
- return kill(-pid, sig);
-}
-
-int
-ptioctl(int fd, int func, void *data)
-{
- APIRET rc;
- ULONG len;
- struct pt_termios pt;
- struct termio *t;
- int i;
-
- switch (func) {
- case TCGETA:
- rc = DosDevIOCtl(fd, XFREE86_PTY, XTY_TIOCGETA,
- NULL, 0, NULL,
- (ULONG *) & pt, sizeof(struct pt_termios), &len);
- if (rc)
- return -1;
- t = (struct termio *) data;
- t->c_iflag = pt.c_iflag;
- t->c_oflag = pt.c_oflag;
- t->c_cflag = pt.c_cflag;
- t->c_lflag = pt.c_lflag;
- for (i = 0; i < NCC; i++)
- t->c_cc[i] = pt.c_cc[i];
- return 0;
- case TCSETA:
- case TCSETAW:
- case TCSETAF:
- t = (struct termio *) data;
- pt.c_iflag = t->c_iflag;
- pt.c_oflag = t->c_oflag;
- pt.c_cflag = t->c_cflag;
- pt.c_lflag = t->c_lflag;
-
- for (i = 0; i < NCC; i++)
- pt.c_cc[i] = t->c_cc[i];
- if (func == TCSETA)
- i = XTY_TIOCSETA;
- else if (func == TCSETAW)
- i = XTY_TIOCSETAW;
- else
- i = XTY_TIOCSETAF;
- rc = DosDevIOCtl(fd, XFREE86_PTY, i,
- (ULONG *) & pt, sizeof(struct pt_termios), &len,
- NULL, 0, NULL);
- return (rc) ? -1 : 0;
- case TIOCCONS:
- return DosDevIOCtl(fd, XFREE86_PTY, XTY_TIOCCONS,
- (ULONG *) data, sizeof(ULONG), &len,
- NULL, 0, NULL);
- case TIOCSWINSZ:
- return DosDevIOCtl(fd, XFREE86_PTY, XTY_TIOCSWINSZ,
- (ULONG *) data, sizeof(TTYSIZE_STRUCT), &len,
- NULL, 0, NULL);
- case TIOCGWINSZ:
- return DosDevIOCtl(fd, XFREE86_PTY, XTY_TIOCGWINSZ,
- NULL, 0, NULL,
- (ULONG *) data, sizeof(TTYSIZE_STRUCT), &len);
- case XTY_ENADUP:
- i = 1;
- return DosDevIOCtl(fd, XFREE86_PTY, XTY_ENADUP,
- (ULONG *) & i, sizeof(ULONG), &len,
- NULL, 0, NULL);
- case XTY_TRACE:
- i = 2;
- return DosDevIOCtl(fd, XFREE86_PTY, XTY_TRACE,
- (ULONG *) & i, sizeof(ULONG), &len,
- NULL, 0, NULL);
- case PTMS_GETPTY:
- i = 1;
- return DosDevIOCtl(fd, XFREE86_PTY, PTMS_GETPTY,
- (ULONG *) & i, sizeof(ULONG), &len,
- (UCHAR *) data, 14, &len);
- default:
- return -1;
- }
-}