massive reduction of unneeded files

1 files changed, 0 insertions, 3260 deletions

diff --git a/nx-X11/programs/xterm/misc.c b/nx-X11/programs/xterm/misc.c
deleted file mode 100644
index 447e4c058..000000000
--- a/nx-X11/programs/xterm/misc.c
+++ /dev/null
@@ -1,3260 +0,0 @@
-/* $XTermId: misc.c,v 1.280 2005/11/03 13:17:28 tom Exp $ */
-
-/*
- *	$Xorg: misc.c,v 1.3 2000/08/17 19:55:09 cpqbld Exp $
- */
-
-/* $XFree86: xc/programs/xterm/misc.c,v 3.101 2005/11/03 13:17:28 dickey Exp $ */
-
-/*
- *
- * Copyright 1999-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 by Digital Equipment Corporation, Maynard, Massachusetts.
- *
- *                         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 Equipment
- * Corporation 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.
- */
-
-#include <version.h>
-#include <xterm.h>
-
-#include <sys/stat.h>
-#include <stdio.h>
-#include <signal.h>
-#include <ctype.h>
-#include <pwd.h>
-#include <sys/wait.h>
-
-#include <X11/Xatom.h>
-#include <X11/cursorfont.h>
-
-#include <X11/Xmu/Error.h>
-#include <X11/Xmu/SysUtil.h>
-#include <X11/Xmu/WinUtil.h>
-#if HAVE_X11_SUNKEYSYM_H
-#include <X11/Sunkeysym.h>
-#endif
-
-#ifdef HAVE_LANGINFO_CODESET
-#include <langinfo.h>
-#endif
-
-#include <data.h>
-#include <error.h>
-#include <menu.h>
-#include <fontutils.h>
-#include <xcharmouse.h>
-#include <xstrings.h>
-#include <VTparse.h>
-
-#include <assert.h>
-
-#if (XtSpecificationRelease < 6)
-#ifndef X_GETTIMEOFDAY
-#define X_GETTIMEOFDAY(t) gettimeofday(t,(struct timezone *)0)
-#endif
-#endif
-
-#ifdef VMS
-#define XTERM_VMS_LOGFILE "SYS$SCRATCH:XTERM_LOG.TXT"
-#ifdef ALLOWLOGFILEEXEC
-#undef ALLOWLOGFILEEXEC
-#endif
-#endif /* VMS */
-
-#if OPT_TEK4014
-#define OUR_EVENT(event,Type) \
-		(event.type == Type && \
-		  (event.xcrossing.window == XtWindow(XtParent(term)) || \
-		    (tekWidget && \
-		     event.xcrossing.window == XtWindow(XtParent(tekWidget)))))
-#else
-#define OUR_EVENT(event,Type) \
-		(event.type == Type && \
-		   (event.xcrossing.window == XtWindow(XtParent(term))))
-#endif
-
-static Bool ChangeColorsRequest(XtermWidget pTerm, int start, char
-				*names, int final);
-static void DoSpecialEnterNotify(XEnterWindowEvent * ev);
-static void DoSpecialLeaveNotify(XEnterWindowEvent * ev);
-static void selectwindow(TScreen * screen, int flag);
-static void unselectwindow(TScreen * screen, int flag);
-static void Sleep(int msec);
-
-void
-do_xevents(void)
-{
-    TScreen *screen = &term->screen;
-
-    if (XtAppPending(app_con)
-	||
-#if defined(VMS) || defined(__VMS)
-	screen->display->qlen > 0
-#else
-	GetBytesAvailable(ConnectionNumber(screen->display)) > 0
-#endif
-	)
-	xevents();
-}
-
-void
-xevents(void)
-{
-    XEvent event;
-    XtInputMask input_mask;
-    TScreen *screen = &term->screen;
-
-    if (need_cleanup)
-	Cleanup(0);
-
-    if (screen->scroll_amt)
-	FlushScroll(screen);
-    /*
-     * process timeouts, relying on the fact that XtAppProcessEvent
-     * will process the timeout and return without blockng on the
-     * XEvent queue.  Other sources i.e. the pty are handled elsewhere
-     * with select().
-     */
-    while ((input_mask = XtAppPending(app_con)) & XtIMTimer)
-	XtAppProcessEvent(app_con, XtIMTimer);
-#if OPT_SESSION_MGT
-    /*
-     * Session management events are alternative input events. Deal with
-     * them in the same way.
-     */
-    while ((input_mask = XtAppPending(app_con)) & XtIMAlternateInput)
-	XtAppProcessEvent(app_con, XtIMAlternateInput);
-#endif
-
-    /*
-     * If there's no XEvents, don't wait around...
-     */
-    if ((input_mask & XtIMXEvent) != XtIMXEvent)
-	return;
-    do {
-	/*
-	 * This check makes xterm hang when in mouse hilite tracking mode.
-	 * We simply ignore all events except for those not passed down to
-	 * this function, e.g., those handled in in_put().
-	 */
-	if (waitingForTrackInfo) {
-	    Sleep(10);
-	    return;
-	}
-	XtAppNextEvent(app_con, &event);
-	/*
-	 * Hack to get around problems with the toolkit throwing away
-	 * eventing during the exclusive grab of the menu popup.  By
-	 * looking at the event ourselves we make sure that we can
-	 * do the right thing.
-	 */
-	if (OUR_EVENT(event, EnterNotify))
-	    DoSpecialEnterNotify(&event.xcrossing);
-	else if (OUR_EVENT(event, LeaveNotify))
-	    DoSpecialLeaveNotify(&event.xcrossing);
-	else if ((screen->send_mouse_pos == ANY_EVENT_MOUSE
-#if OPT_DEC_LOCATOR
-		  || screen->send_mouse_pos == DEC_LOCATOR
-#endif /* OPT_DEC_LOCATOR */
-		 )
-		 && event.xany.type == MotionNotify
-		 && event.xcrossing.window == XtWindow(term)) {
-	    SendMousePosition((Widget) term, &event);
-	    continue;
-	}
-
-	if (!event.xany.send_event ||
-	    screen->allowSendEvents ||
-	    ((event.xany.type != KeyPress) &&
-	     (event.xany.type != KeyRelease) &&
-	     (event.xany.type != ButtonPress) &&
-	     (event.xany.type != ButtonRelease)))
-	    XtDispatchEvent(&event);
-    } while ((input_mask = XtAppPending(app_con)) & XtIMXEvent);
-}
-
-Cursor
-make_colored_cursor(unsigned cursorindex,	/* index into font */
-		    unsigned long fg,	/* pixel value */
-		    unsigned long bg)	/* pixel value */
-{
-    TScreen *screen = &term->screen;
-    Cursor c;
-    Display *dpy = screen->display;
-
-    c = XCreateFontCursor(dpy, cursorindex);
-    if (c == (Cursor) 0)
-	return (c);
-
-    recolor_cursor(c, fg, bg);
-    return (c);
-}
-
-/* ARGSUSED */
-void
-HandleKeyPressed(Widget w GCC_UNUSED,
-		 XEvent * event,
-		 String * params GCC_UNUSED,
-		 Cardinal *nparams GCC_UNUSED)
-{
-    TScreen *screen = &term->screen;
-
-    TRACE(("Handle 7bit-key\n"));
-#ifdef ACTIVEWINDOWINPUTONLY
-    if (w == CURRENT_EMU(screen))
-#endif
-	Input(&term->keyboard, screen, &event->xkey, False);
-}
-
-/* ARGSUSED */
-void
-HandleEightBitKeyPressed(Widget w GCC_UNUSED,
-			 XEvent * event,
-			 String * params GCC_UNUSED,
-			 Cardinal *nparams GCC_UNUSED)
-{
-    TScreen *screen = &term->screen;
-
-    TRACE(("Handle 8bit-key\n"));
-#ifdef ACTIVEWINDOWINPUTONLY
-    if (w == CURRENT_EMU(screen))
-#endif
-	Input(&term->keyboard, screen, &event->xkey, True);
-}
-
-/* ARGSUSED */
-void
-HandleStringEvent(Widget w GCC_UNUSED,
-		  XEvent * event GCC_UNUSED,
-		  String * params,
-		  Cardinal *nparams)
-{
-    TScreen *screen = &term->screen;
-
-#ifdef ACTIVEWINDOWINPUTONLY
-    if (w != CURRENT_EMU(screen))
-	return;
-#endif
-
-    if (*nparams != 1)
-	return;
-
-    if ((*params)[0] == '0' && (*params)[1] == 'x' && (*params)[2] != '\0') {
-	Char c, *p;
-	Char hexval[2];
-	hexval[0] = hexval[1] = 0;
-	for (p = (Char *) (*params + 2); (c = *p); p++) {
-	    hexval[0] *= 16;
-	    if (isupper(c))
-		c = tolower(c);
-	    if (c >= '0' && c <= '9')
-		hexval[0] += c - '0';
-	    else if (c >= 'a' && c <= 'f')
-		hexval[0] += c - 'a' + 10;
-	    else
-		break;
-	}
-	if (c == '\0')
-	    StringInput(screen, hexval, 1);
-    } else {
-	StringInput(screen, (Char *) * params, strlen(*params));
-    }
-}
-
-/*
- * Rather than sending characters to the host, put them directly into our
- * input queue.  That lets a user have access to any of the control sequences
- * for a key binding.  This is the equivalent of local function key support.
- *
- * NOTE:  This code does not support the hexadecimal kludge used in
- * HandleStringEvent because it prevents us from sending an arbitrary string
- * (but it appears in a lot of examples - so we are stuck with it).  The
- * standard string converter does recognize "\" for newline ("\n") and for
- * octal constants (e.g., "\007" for BEL).  So we assume the user can make do
- * without a specialized converter.  (Don't try to use \000, though).
- */
-/* ARGSUSED */
-void
-HandleInterpret(Widget w GCC_UNUSED,
-		XEvent * event GCC_UNUSED,
-		String * params,
-		Cardinal *param_count)
-{
-    if (*param_count == 1) {
-	char *value = params[0];
-	int need = strlen(value);
-	int used = VTbuffer->next - VTbuffer->buffer;
-	int have = VTbuffer->last - VTbuffer->buffer;
-
-	if (have - used + need < BUF_SIZE) {
-
-	    fillPtyData(&term->screen, VTbuffer, value, (int) strlen(value));
-
-	    TRACE(("Interpret %s\n", value));
-	    VTbuffer->update++;
-	}
-    }
-}
-
-static void
-DoSpecialEnterNotify(XEnterWindowEvent * ev)
-{
-    TScreen *screen = &term->screen;
-
-    TRACE(("DoSpecialEnterNotify(%d)\n", screen->select));
-#ifdef ACTIVEWINDOWINPUTONLY
-    if (ev->window == XtWindow(XtParent(CURRENT_EMU(screen))))
-#endif
-	if (((ev->detail) != NotifyInferior) &&
-	    ev->focus &&
-	    !(screen->select & FOCUS))
-	    selectwindow(screen, INWINDOW);
-}
-
-/*ARGSUSED*/
-void
-HandleEnterWindow(Widget w GCC_UNUSED,
-		  XtPointer eventdata GCC_UNUSED,
-		  XEvent * event GCC_UNUSED,
-		  Boolean * cont GCC_UNUSED)
-{
-    /* NOP since we handled it above */
-    TRACE(("HandleEnterWindow ignored\n"));
-}
-
-static void
-DoSpecialLeaveNotify(XEnterWindowEvent * ev)
-{
-    TScreen *screen = &term->screen;
-
-    TRACE(("DoSpecialLeaveNotify(%d)\n", screen->select));
-#ifdef ACTIVEWINDOWINPUTONLY
-    if (ev->window == XtWindow(XtParent(CURRENT_EMU(screen))))
-#endif
-	if (((ev->detail) != NotifyInferior) &&
-	    ev->focus &&
-	    !(screen->select & FOCUS))
-	    unselectwindow(screen, INWINDOW);
-}
-
-/*ARGSUSED*/
-void
-HandleLeaveWindow(Widget w GCC_UNUSED,
-		  XtPointer eventdata GCC_UNUSED,
-		  XEvent * event GCC_UNUSED,
-		  Boolean * cont GCC_UNUSED)
-{
-    /* NOP since we handled it above */
-    TRACE(("HandleLeaveWindow ignored\n"));
-}
-
-/*ARGSUSED*/
-void
-HandleFocusChange(Widget w GCC_UNUSED,
-		  XtPointer eventdata GCC_UNUSED,
-		  XEvent * ev,
-		  Boolean * cont GCC_UNUSED)
-{
-    XFocusChangeEvent *event = (XFocusChangeEvent *) ev;
-    TScreen *screen = &term->screen;
-
-    TRACE(("HandleFocusChange type=%d, mode=%d, detail=%d\n",
-	   event->type,
-	   event->mode,
-	   event->detail));
-
-    if (event->type == FocusIn) {
-	/*
-	 * NotifyNonlinear only happens (on FocusIn) if the pointer was not in
-	 * one of our windows.  Use this to reset a case where one xterm is
-	 * partly obscuring another, and X gets (us) confused about whether the
-	 * pointer was in the window.  In particular, this can happen if the
-	 * user is resizing the obscuring window, causing some events to not be
-	 * delivered to the obscured window.
-	 */
-	if (event->detail == NotifyNonlinear
-	    && (screen->select & INWINDOW) != 0) {
-	    unselectwindow(screen, INWINDOW);
-	}
-	selectwindow(screen,
-		     ((event->detail == NotifyPointer)
-		      ? INWINDOW
-		      : FOCUS));
-    } else {
-	/*
-	 * XGrabKeyboard() will generate FocusOut/NotifyGrab event that we want
-	 * to ignore.
-	 */
-	if (event->mode != NotifyGrab) {
-	    unselectwindow(screen,
-			   ((event->detail == NotifyPointer)
-			    ? INWINDOW
-			    : FOCUS));
-	}
-	if (screen->grabbedKbd && (event->mode == NotifyUngrab)) {
-	    Bell(XkbBI_Info, 100);
-	    ReverseVideo(term);
-	    screen->grabbedKbd = False;
-	    update_securekbd();
-	}
-    }
-}
-
-static void
-selectwindow(TScreen * screen, int flag)
-{
-    TRACE(("selectwindow(%d) flag=%d\n", screen->select, flag));
-
-#if OPT_TEK4014
-    if (screen->TekEmu) {
-	if (!Ttoggled)
-	    TCursorToggle(TOGGLE);
-	screen->select |= flag;
-	if (!Ttoggled)
-	    TCursorToggle(TOGGLE);
-	return;
-    } else
-#endif
-    {
-	if (screen->xic)
-	    XSetICFocus(screen->xic);
-
-	if (screen->cursor_state && CursorMoved(screen))
-	    HideCursor();
-	screen->select |= flag;
-	if (screen->cursor_state)
-	    ShowCursor();
-	return;
-    }
-}
-
-static void
-unselectwindow(TScreen * screen, int flag)
-{
-    TRACE(("unselectwindow(%d) flag=%d\n", screen->select, flag));
-
-    if (screen->always_highlight)
-	return;
-
-#if OPT_TEK4014
-    if (screen->TekEmu) {
-	if (!Ttoggled)
-	    TCursorToggle(TOGGLE);
-	screen->select &= ~flag;
-	if (!Ttoggled)
-	    TCursorToggle(TOGGLE);
-    } else
-#endif
-    {
-	if (screen->xic)
-	    XUnsetICFocus(screen->xic);
-	screen->select &= ~flag;
-	if (screen->cursor_state && CursorMoved(screen))
-	    HideCursor();
-	if (screen->cursor_state)
-	    ShowCursor();
-    }
-}
-
-static long lastBellTime;	/* in milliseconds */
-
-void
-Bell(int which GCC_UNUSED, int percent)
-{
-    TScreen *screen = &term->screen;
-    struct timeval curtime;
-    long now_msecs;
-
-    TRACE(("BELL %d\n", percent));
-
-    /* has enough time gone by that we are allowed to ring
-       the bell again? */
-    if (screen->bellSuppressTime) {
-	if (screen->bellInProgress) {
-	    do_xevents();
-	    if (screen->bellInProgress) {	/* even after new events? */
-		return;
-	    }
-	}
-	X_GETTIMEOFDAY(&curtime);
-	now_msecs = 1000 * curtime.tv_sec + curtime.tv_usec / 1000;
-	if (lastBellTime != 0 && now_msecs - lastBellTime >= 0 &&
-	    now_msecs - lastBellTime < screen->bellSuppressTime) {
-	    return;
-	}
-	lastBellTime = now_msecs;
-    }
-
-    if (screen->visualbell) {
-	VisualBell();
-    } else {
-#if defined(HAVE_XKBBELL)
-	XkbBell(screen->display, VShellWindow, percent, which);
-#else
-	XBell(screen->display, percent);
-#endif
-    }
-
-    if (screen->poponbell)
-	XRaiseWindow(screen->display, VShellWindow);
-
-    if (screen->bellSuppressTime) {
-	/* now we change a property and wait for the notify event to come
-	   back.  If the server is suspending operations while the bell
-	   is being emitted (problematic for audio bell), this lets us
-	   know when the previous bell has finished */
-	Widget w = CURRENT_EMU(screen);
-	XChangeProperty(XtDisplay(w), XtWindow(w),
-			XA_NOTICE, XA_NOTICE, 8, PropModeAppend, NULL, 0);
-	screen->bellInProgress = True;
-    }
-}
-
-#define VB_DELAY screen->visualBellDelay
-
-static void
-flashWindow(TScreen * screen, Window window, GC visualGC, unsigned width, unsigned height)
-{
-    XFillRectangle(screen->display, window, visualGC, 0, 0, width, height);
-    XFlush(screen->display);
-    Sleep(VB_DELAY);
-    XFillRectangle(screen->display, window, visualGC, 0, 0, width, height);
-}
-
-void
-VisualBell(void)
-{
-    TScreen *screen = &term->screen;
-
-    if (VB_DELAY > 0) {
-	Pixel xorPixel = (T_COLOR(screen, TEXT_FG) ^
-			  T_COLOR(screen, TEXT_BG));
-	XGCValues gcval;
-	GC visualGC;
-
-	gcval.function = GXxor;
-	gcval.foreground = xorPixel;
-	visualGC = XtGetGC((Widget) term, GCFunction + GCForeground, &gcval);
-#if OPT_TEK4014
-	if (screen->TekEmu) {
-	    flashWindow(screen, TWindow(screen), visualGC,
-			TFullWidth(screen),
-			TFullHeight(screen));
-	} else
-#endif
-	{
-	    flashWindow(screen, VWindow(screen), visualGC,
-			FullWidth(screen),
-			FullHeight(screen));
-	}
-	XtReleaseGC((Widget) term, visualGC);
-    }
-}
-
-/* ARGSUSED */
-void
-HandleBellPropertyChange(Widget w GCC_UNUSED,
-			 XtPointer data GCC_UNUSED,
-			 XEvent * ev,
-			 Boolean * more GCC_UNUSED)
-{
-    TScreen *screen = &term->screen;
-
-    if (ev->xproperty.atom == XA_NOTICE) {
-	screen->bellInProgress = False;
-    }
-}
-
-Window
-WMFrameWindow(XtermWidget termw)
-{
-    Window win_root, win_current, *children;
-    Window win_parent = 0;
-    unsigned int nchildren;
-
-    win_current = XtWindow(termw);
-
-    /* find the parent which is child of root */
-    do {
-	if (win_parent)
-	    win_current = win_parent;
-	XQueryTree((&termw->screen)->display,
-		   win_current,
-		   &win_root,
-		   &win_parent,
-		   &children,
-		   &nchildren);
-	XFree(children);
-    } while (win_root != win_parent);
-
-    return win_current;
-}
-
-#if OPT_DABBREV
-/*
- * The following code implements `dynamic abbreviation' expansion a la
- * Emacs.  It looks in the preceding visible screen and its scrollback
- * to find expansions of a typed word.  It compares consecutive
- * expansions and ignores one of them if they are identical.
- * (Tomasz J. Cholewo, t.cholewo@ieee.org)
- */
-
-#define IS_WORD_CONSTITUENT(x) ((x) != ' ' && (x) != '\0')
-#define MAXWLEN 1024		/* maximum word length as in tcsh */
-
-static int
-dabbrev_prev_char(int *xp, int *yp, TScreen * screen)
-{
-    Char *linep;
-
-    while (*yp >= 0) {
-	linep = BUF_CHARS(screen->allbuf, *yp);
-	if (--*xp >= 0)
-	    return linep[*xp];
-	if (--*yp < 0)		/* go to previous line */
-	    break;
-	*xp = MaxCols(screen);
-	if (!((long) BUF_FLAGS(screen->allbuf, *yp) & LINEWRAPPED))
-	    return ' ';		/* treat lines as separate */
-    }
-    return -1;
-}
-
-static char *
-dabbrev_prev_word(int *xp, int *yp, TScreen * screen)
-{
-    static char ab[MAXWLEN];
-    char *abword;
-    int c;
-
-    abword = ab + MAXWLEN - 1;
-    *abword = '\0';		/* end of string marker */
-
-    while ((c = dabbrev_prev_char(xp, yp, screen)) >= 0 &&
-	   IS_WORD_CONSTITUENT(c))
-	if (abword > ab)	/* store only |MAXWLEN| last chars */
-	    *(--abword) = c;
-    if (c < 0) {
-	if (abword < ab + MAXWLEN - 1)
-	    return abword;
-	else
-	    return 0;
-    }
-
-    while ((c = dabbrev_prev_char(xp, yp, screen)) >= 0 &&
-	   !IS_WORD_CONSTITUENT(c)) ;	/* skip preceding spaces */
-    (*xp)++;			/* can be | > screen->max_col| */
-    return abword;
-}
-
-static int
-dabbrev_expand(TScreen * screen)
-{
-    int pty = screen->respond;	/* file descriptor of pty */
-
-    static int x, y;
-    static char *dabbrev_hint = 0, *lastexpansion = 0;
-
-    char *expansion;
-    Char *copybuffer;
-    size_t hint_len;
-    unsigned i;
-    unsigned del_cnt;
-    unsigned buf_cnt;
-
-    if (!screen->dabbrev_working) {	/* initialize */
-	x = screen->cur_col;
-	y = screen->cur_row + screen->savelines;
-
-	free(dabbrev_hint);	/* free(NULL) is OK */
-	dabbrev_hint = dabbrev_prev_word(&x, &y, screen);
-	if (!dabbrev_hint)
-	    return 0;		/* no preceding word? */
-	free(lastexpansion);
-	if (!(lastexpansion = strdup(dabbrev_hint)))	/* make own copy */
-	    return 0;
-	if (!(dabbrev_hint = strdup(dabbrev_hint))) {
-	    free(lastexpansion);
-	    return 0;
-	}
-	screen->dabbrev_working = 1;	/* we are in the middle of dabbrev process */
-    }
-
-    hint_len = strlen(dabbrev_hint);
-    while ((expansion = dabbrev_prev_word(&x, &y, screen))) {
-	if (!strncmp(dabbrev_hint, expansion, hint_len) &&	/* empty hint matches everything */
-	    strlen(expansion) > hint_len &&	/* trivial expansion disallowed */
-	    strcmp(expansion, lastexpansion))	/* different from previous */
-	    break;
-    }
-    if (!expansion)		/* no expansion found */
-	return 0;
-
-    del_cnt = strlen(lastexpansion) - hint_len;
-    buf_cnt = del_cnt + strlen(expansion) - hint_len;
-    if (!(copybuffer = TypeMallocN(Char, buf_cnt)))
-	return 0;
-    for (i = 0; i < del_cnt; i++) {	/* delete previous expansion */
-	copybuffer[i] = screen->dabbrev_erase_char;
-    }
-    memmove(copybuffer + del_cnt,
-	    expansion + hint_len,
-	    strlen(expansion) - hint_len);
-    v_write(pty, copybuffer, buf_cnt);
-    screen->dabbrev_working = 1;	/* v_write() just set it to 1 */
-    free(copybuffer);
-
-    free(lastexpansion);
-    lastexpansion = strdup(expansion);
-    if (!lastexpansion)
-	return 0;
-    return 1;
-}
-
-/*ARGSUSED*/
-void
-HandleDabbrevExpand(Widget gw,
-		    XEvent * event GCC_UNUSED,
-		    String * params GCC_UNUSED,
-		    Cardinal *nparams GCC_UNUSED)
-{
-    XtermWidget w = (XtermWidget) gw;
-    TScreen *screen = &w->screen;
-    if (!dabbrev_expand(screen))
-	Bell(XkbBI_TerminalBell, 0);
-}
-#endif /* OPT_DABBREV */
-
-#if OPT_MAXIMIZE
-/*ARGSUSED*/
-void
-HandleDeIconify(Widget gw,
-		XEvent * event GCC_UNUSED,
-		String * params GCC_UNUSED,
-		Cardinal *nparams GCC_UNUSED)
-{
-    if (IsXtermWidget(gw)) {
-	TScreen *screen = &((XtermWidget) gw)->screen;
-	XMapWindow(screen->display, VShellWindow);
-    }
-}
-
-/*ARGSUSED*/
-void
-HandleIconify(Widget gw,
-	      XEvent * event GCC_UNUSED,
-	      String * params GCC_UNUSED,
-	      Cardinal *nparams GCC_UNUSED)
-{
-    if (IsXtermWidget(gw)) {
-	TScreen *screen = &((XtermWidget) gw)->screen;
-	XIconifyWindow(screen->display,
-		       VShellWindow,
-		       DefaultScreen(screen->display));
-    }
-}
-
-int
-QueryMaximize(XtermWidget termw, unsigned *width, unsigned *height)
-{
-    TScreen *screen = &termw->screen;
-    XSizeHints hints;
-    long supp = 0;
-    Window root_win;
-    int root_x = -1;		/* saved co-ordinates */
-    int root_y = -1;
-    unsigned root_border;
-    unsigned root_depth;
-
-    if (XGetGeometry(screen->display,
-		     RootWindowOfScreen(XtScreen(termw)),
-		     &root_win,
-		     &root_x,
-		     &root_y,
-		     width,
-		     height,
-		     &root_border,
-		     &root_depth)) {
-	TRACE(("QueryMaximize: XGetGeometry position %d,%d size %d,%d border %d\n",
-	       root_x,
-	       root_y,
-	       *width,
-	       *height,
-	       root_border));
-
-	*width -= (root_border * 2);
-	*height -= (root_border * 2);
-
-	hints.flags = PMaxSize;
-	if (XGetWMNormalHints(screen->display,
-			      VShellWindow,
-			      &hints,
-			      &supp)
-	    && (hints.flags & PMaxSize) != 0) {
-
-	    TRACE(("QueryMaximize: WM hints max_w %#x max_h %#x\n",
-		   hints.max_width,
-		   hints.max_height));
-
-	    if ((unsigned) hints.max_width < *width)
-		*width = hints.max_width;
-	    if ((unsigned) hints.max_height < *height)
-		*height = hints.max_height;
-	}
-	return 1;
-    }
-    return 0;
-}
-
-void
-RequestMaximize(XtermWidget termw, int maximize)
-{
-    TScreen *screen = &termw->screen;
-    XWindowAttributes wm_attrs, vshell_attrs;
-    unsigned root_width, root_height;
-
-    if (maximize) {
-
-	if (QueryMaximize(termw, &root_width, &root_height)) {
-
-	    if (XGetWindowAttributes(screen->display,
-				     WMFrameWindow(termw),
-				     &wm_attrs)) {
-
-		if (XGetWindowAttributes(screen->display,
-					 VShellWindow,
-					 &vshell_attrs)) {
-
-		    if (screen->restore_data != True
-			|| screen->restore_width != root_width
-			|| screen->restore_height != root_height) {
-			screen->restore_data = True;
-			screen->restore_x = wm_attrs.x + wm_attrs.border_width;
-			screen->restore_y = wm_attrs.y + wm_attrs.border_width;
-			screen->restore_width = vshell_attrs.width;
-			screen->restore_height = vshell_attrs.height;
-			TRACE(("HandleMaximize: save window position %d,%d size %d,%d\n",
-			       screen->restore_x,
-			       screen->restore_y,
-			       screen->restore_width,
-			       screen->restore_height));
-		    }
-
-		    /* subtract wm decoration dimensions */
-		    root_width -= ((wm_attrs.width - vshell_attrs.width)
-				   + (wm_attrs.border_width * 2));
-		    root_height -= ((wm_attrs.height - vshell_attrs.height)
-				    + (wm_attrs.border_width * 2));
-
-		    XMoveResizeWindow(screen->display, VShellWindow,
-				      0 + wm_attrs.border_width,	/* x */
-				      0 + wm_attrs.border_width,	/* y */
-				      root_width,
-				      root_height);
-		}
-	    }
-	}
-    } else {
-	if (screen->restore_data) {
-	    TRACE(("HandleRestoreSize: position %d,%d size %d,%d\n",
-		   screen->restore_x,
-		   screen->restore_y,
-		   screen->restore_width,
-		   screen->restore_height));
-	    screen->restore_data = False;
-
-	    XMoveResizeWindow(screen->display,
-			      VShellWindow,
-			      screen->restore_x,
-			      screen->restore_y,
-			      screen->restore_width,
-			      screen->restore_height);
-	}
-    }
-}
-
-/*ARGSUSED*/
-void
-HandleMaximize(Widget gw,
-	       XEvent * event GCC_UNUSED,
-	       String * params GCC_UNUSED,
-	       Cardinal *nparams GCC_UNUSED)
-{
-    if (IsXtermWidget(gw)) {
-	RequestMaximize((XtermWidget) gw, 1);
-    }
-}
-
-/*ARGSUSED*/
-void
-HandleRestoreSize(Widget gw,
-		  XEvent * event GCC_UNUSED,
-		  String * params GCC_UNUSED,
-		  Cardinal *nparams GCC_UNUSED)
-{
-    if (IsXtermWidget(gw)) {
-	RequestMaximize((XtermWidget) gw, 0);
-    }
-}
-#endif /* OPT_MAXIMIZE */
-
-void
-Redraw(void)
-{
-    TScreen *screen = &term->screen;
-    XExposeEvent event;
-
-    event.type = Expose;
-    event.display = screen->display;
-    event.x = 0;
-    event.y = 0;
-    event.count = 0;
-
-    if (VWindow(screen)) {
-	event.window = VWindow(screen);
-	event.width = term->core.width;
-	event.height = term->core.height;
-	(*term->core.widget_class->core_class.expose) ((Widget) term,
-						       (XEvent *) & event,
-						       NULL);
-	if (ScrollbarWidth(screen)) {
-	    (screen->scrollWidget->core.widget_class->core_class.expose)
-		(screen->scrollWidget, (XEvent *) & event, NULL);
-	}
-    }
-#if OPT_TEK4014
-    if (TWindow(screen) && screen->Tshow) {
-	event.window = TWindow(screen);
-	event.width = tekWidget->core.width;
-	event.height = tekWidget->core.height;
-	TekExpose((Widget) tekWidget, (XEvent *) & event, NULL);
-    }
-#endif
-}
-
-#ifdef VMS
-#define TIMESTAMP_FMT "%s%d-%02d-%02d-%02d-%02d-%02d"
-#else
-#define TIMESTAMP_FMT "%s%d-%02d-%02d.%02d:%02d:%02d"
-#endif
-
-void
-timestamp_filename(char *dst, const char *src)
-{
-    time_t tstamp;
-    struct tm *tstruct;
-
-    time(&tstamp);
-    tstruct = localtime(&tstamp);
-    sprintf(dst, TIMESTAMP_FMT,
-	    src,
-	    tstruct->tm_year + 1900,
-	    tstruct->tm_mon + 1,
-	    tstruct->tm_mday,
-	    tstruct->tm_hour,
-	    tstruct->tm_min,
-	    tstruct->tm_sec);
-}
-
-int
-open_userfile(uid_t uid, gid_t gid, char *path, Bool append)
-{
-    int fd;
-    struct stat sb;
-
-#ifdef VMS
-    if ((fd = open(path, O_WRONLY | O_CREAT | O_TRUNC, 0644)) < 0) {
-	int the_error = errno;
-	fprintf(stderr, "%s: cannot open %s: %d:%s\n",
-		xterm_name,
-		path,
-		the_error,
-		SysErrorMsg(the_error));
-	return -1;
-    }
-    chown(path, uid, gid);
-#else
-    if ((access(path, F_OK) != 0 && (errno != ENOENT))
-	|| (!(creat_as(uid, gid, append, path, 0644)))
-	|| ((fd = open(path, O_WRONLY | O_APPEND)) < 0)) {
-	int the_error = errno;
-	fprintf(stderr, "%s: cannot open %s: %d:%s\n",
-		xterm_name,
-		path,
-		the_error,
-		SysErrorMsg(the_error));
-	return -1;
-    }
-#endif
-
-    /*
-     * Doublecheck that the user really owns the file that we've opened before
-     * we do any damage, and that it is not world-writable.
-     */
-    if (fstat(fd, &sb) < 0
-	|| sb.st_uid != uid
-	|| (sb.st_mode & 022) != 0) {
-	fprintf(stderr, "%s: you do not own %s\n", xterm_name, path);
-	close(fd);
-	return -1;
-    }
-    return fd;
-}
-
-#ifndef VMS
-/*
- * Create a file only if we could with the permissions of the real user id.
- * We could emulate this with careful use of access() and following
- * symbolic links, but that is messy and has race conditions.
- * Forking is messy, too, but we can't count on setreuid() or saved set-uids
- * being available.
- *
- * Note: When called for user logging, we have ensured that the real and
- * effective user ids are the same, so this remains as a convenience function
- * for the debug logs.
- *
- * Returns 1 if we can proceed to open the file in relative safety, 0
- * otherwise.
- */
-int
-creat_as(uid_t uid, gid_t gid, Bool append, char *pathname, int mode)
-{
-    int fd;
-    pid_t pid;
-    int retval = 0;
-    int childstat = 0;
-#ifndef HAVE_WAITPID
-    int waited;
-    SIGNAL_T(*chldfunc) (int);
-
-    chldfunc = signal(SIGCHLD, SIG_DFL);
-#endif /* HAVE_WAITPID */
-
-    TRACE(("creat_as(uid=%d/%d, gid=%d/%d, append=%d, pathname=%s, mode=%#o)\n",
-	   uid, geteuid(),
-	   gid, getegid(),
-	   append,
-	   pathname,
-	   mode));
-
-    if (uid == geteuid() && gid == getegid()) {
-	fd = open(pathname,
-		  O_WRONLY | O_CREAT | (append ? O_APPEND : O_EXCL),
-		  mode);
-	if (fd >= 0)
-	    close(fd);
-	return (fd >= 0);
-    }
-
-    pid = fork();
-    switch (pid) {
-    case 0:			/* child */
-	if (setgid(gid) == -1)
-	    _exit(ERROR_SETUID);
-	if (setuid(uid) == -1) 
-	    _exit(ERROR_SETUID);
-	fd = open(pathname,
-		  O_WRONLY | O_CREAT | (append ? O_APPEND : O_EXCL),
-		  mode);
-	if (fd >= 0) {
-	    close(fd);
-	    _exit(0);
-	} else
-	    _exit(1);
-	/* NOTREACHED */
-    case -1:			/* error */
-	return retval;
-    default:			/* parent */
-#ifdef HAVE_WAITPID
-	while (waitpid(pid, &childstat, 0) < 0) {
-#ifdef EINTR
-	    if (errno == EINTR)
-		continue;
-#endif /* EINTR */
-#ifdef ERESTARTSYS
-	    if (errno == ERESTARTSYS)
-		continue;
-#endif /* ERESTARTSYS */
-	    break;
-	}
-#else /* HAVE_WAITPID */
-	waited = wait(&childstat);
-	signal(SIGCHLD, chldfunc);
-	/*
-	   Since we had the signal handler uninstalled for a while,
-	   we might have missed the termination of our screen child.
-	   If we can check for this possibility without hanging, do so.
-	 */
-	do
-	    if (waited == term->screen.pid)
-		Cleanup(0);
-	while ((waited = nonblocking_wait()) > 0) ;
-#endif /* HAVE_WAITPID */
-#ifndef WIFEXITED
-#define WIFEXITED(status) ((status & 0xff) != 0)
-#endif
-	if (WIFEXITED(childstat))
-	    retval = 1;
-	return retval;
-    }
-}
-#endif /* !VMS */
-
-#ifdef ALLOWLOGGING
-
-/*
- * Logging is a security hole, since it allows a setuid program to write
- * arbitrary data to an arbitrary file.  So it is disabled by default.
- */
-
-#ifdef ALLOWLOGFILEEXEC
-static SIGNAL_T
-logpipe(int sig GCC_UNUSED)
-{
-    TScreen *screen = &term->screen;
-
-#ifdef SYSV
-    (void) signal(SIGPIPE, SIG_IGN);
-#endif /* SYSV */
-    if (screen->logging)
-	CloseLog(screen);
-}
-#endif /* ALLOWLOGFILEEXEC */
-
-void
-StartLog(TScreen * screen)
-{
-    static char *log_default;
-#ifdef ALLOWLOGFILEEXEC
-    char *cp;
-#endif /* ALLOWLOGFILEEXEC */
-
-    if (screen->logging || (screen->inhibit & I_LOG))
-	return;
-#ifdef VMS			/* file name is fixed in VMS variant */
-    screen->logfd = open(XTERM_VMS_LOGFILE,
-			 O_CREAT | O_TRUNC | O_APPEND | O_RDWR,
-			 0640);
-    if (screen->logfd < 0)
-	return;			/* open failed */
-#else /*VMS */
-    if (screen->logfile == NULL || *screen->logfile == 0) {
-	if (screen->logfile)
-	    free(screen->logfile);
-	if (log_default == NULL) {
-#if defined(HAVE_GETHOSTNAME) && defined(HAVE_STRFTIME)
-	    char log_def_name[512];	/* see sprintf below */
-	    char hostname[255 + 1];	/* Internet standard limit (RFC 1035):
-					   ``To simplify implementations, the
-					   total length of a domain name (i.e.,
-					   label octets and label length
-					   octets) is restricted to 255 octets
-					   or less.'' */
-	    char yyyy_mm_dd_hh_mm_ss[4 + 5 * (1 + 2) + 1];
-	    time_t now;
-	    struct tm *ltm;
-
-	    (void) time(&now);
-	    ltm = (struct tm *) localtime(&now);
-	    if ((gethostname(hostname, sizeof(hostname)) == 0) &&
-		(strftime(yyyy_mm_dd_hh_mm_ss,
-			  sizeof(yyyy_mm_dd_hh_mm_ss),
-			  "%Y.%m.%d.%H.%M.%S", ltm) > 0)) {
-		(void) sprintf(log_def_name, "Xterm.log.%.255s.%.20s.%d",
-			       hostname, yyyy_mm_dd_hh_mm_ss, getpid());
-	    }
-	    if ((log_default = x_strdup(log_def_name)) == NULL)
-		return;
-#else
-	    const char *log_def_name = "XtermLog.XXXXXX";
-	    if ((log_default = x_strdup(log_def_name)) == NULL)
-		return;
-
-	    mktemp(log_default);
-#endif
-	}
-	if ((screen->logfile = x_strdup(log_default)) == 0)
-	    return;
-    }
-    if (*screen->logfile == '|') {	/* exec command */
-#ifdef ALLOWLOGFILEEXEC
-	/*
-	 * Warning, enabling this "feature" allows arbitrary programs
-	 * to be run.  If ALLOWLOGFILECHANGES is enabled, this can be
-	 * done through escape sequences....  You have been warned.
-	 */
-	int pid;
-	int p[2];
-	static char *shell;
-	struct passwd *pw;
-
-	if (pipe(p) < 0 || (pid = fork()) < 0)
-	    return;
-	if (pid == 0) {		/* child */
-	    /*
-	     * Close our output (we won't be talking back to the
-	     * parent), and redirect our child's output to the
-	     * original stderr.
-	     */
-	    close(p[1]);
-	    dup2(p[0], 0);
-	    close(p[0]);
-	    dup2(fileno(stderr), 1);
-	    dup2(fileno(stderr), 2);
-
-	    close(fileno(stderr));
-	    close(ConnectionNumber(screen->display));
-	    close(screen->respond);
-
-	    if ((((cp = getenv("SHELL")) == NULL || *cp == 0)
-		 && ((pw = getpwuid(screen->uid)) == NULL
-		     || *(cp = pw->pw_shell) == 0))
-		|| (shell = CastMallocN(char, strlen(cp))) == 0) {
-		shell = "/bin/sh";
-	    } else {
-		strcpy(shell, cp);
-	    }
-
-	    signal(SIGHUP, SIG_DFL);
-	    signal(SIGCHLD, SIG_DFL);
-
-	    /* (this is redundant) */
-	    if (setgid(screen->gid) == -1)
-		exit(ERROR_SETUID);
-	    if (setuid(screen->uid) == -1)
-		exit(ERROR_SETUID);
-
-	    execl(shell, shell, "-c", &screen->logfile[1], (void *) 0);
-
-	    fprintf(stderr, "%s: Can't exec `%s'\n", xterm_name,
-		    &screen->logfile[1]);
-	    exit(ERROR_LOGEXEC);
-	}
-	close(p[0]);
-	screen->logfd = p[1];
-	signal(SIGPIPE, logpipe);
-#else
-	Bell(XkbBI_Info, 0);
-	Bell(XkbBI_Info, 0);
-	return;
-#endif
-    } else {
-	if ((screen->logfd = open_userfile(screen->uid,
-					   screen->gid,
-					   screen->logfile,
-					   (log_default != 0))) < 0)
-	    return;
-    }
-#endif /*VMS */
-    screen->logstart = VTbuffer->next;
-    screen->logging = True;
-    update_logging();
-}
-
-void
-CloseLog(TScreen * screen)
-{
-    if (!screen->logging || (screen->inhibit & I_LOG))
-	return;
-    FlushLog(screen);
-    close(screen->logfd);
-    screen->logging = False;
-    update_logging();
-}
-
-void
-FlushLog(TScreen * screen)
-{
-    if (screen->logging && !(screen->inhibit & I_LOG)) {
-	Char *cp;
-	int i;
-
-#ifdef VMS			/* avoid logging output loops which otherwise occur sometimes
-				   when there is no output and cp/screen->logstart are 1 apart */
-	if (!tt_new_output)
-	    return;
-	tt_new_output = False;
-#endif /* VMS */
-	cp = VTbuffer->next;
-	if (screen->logstart != 0
-	    && (i = cp - screen->logstart) > 0) {
-	    write(screen->logfd, (char *) screen->logstart, (unsigned) i);
-	}
-	screen->logstart = VTbuffer->next;
-    }
-}
-
-#endif /* ALLOWLOGGING */
-
-/***====================================================================***/
-
-#if OPT_ISO_COLORS
-static void
-ReportAnsiColorRequest(XtermWidget pTerm, int colornum, int final)
-{
-    XColor color;
-    Colormap cmap = pTerm->core.colormap;
-    char buffer[80];
-
-    TRACE(("ReportAnsiColorRequest %d\n", colornum));
-    color.pixel = GET_COLOR_RES(pTerm->screen.Acolors[colornum]);
-    XQueryColor(term->screen.display, cmap, &color);
-    sprintf(buffer, "4;%d;rgb:%04x/%04x/%04x",
-	    colornum,
-	    color.red,
-	    color.green,
-	    color.blue);
-    unparseputc1(OSC, pTerm->screen.respond);
-    unparseputs(buffer, pTerm->screen.respond);
-    unparseputc1(final, pTerm->screen.respond);
-}
-
-/*
-* Find closest color for "def" in "cmap".
-* Set "def" to the resulting color.
-* Based on Monish Shah's "find_closest_color()" for Vim 6.0,
-* modified with ideas from David Tong's "noflash" library.
-* Return False if not able to find or allocate a color.
-*/
-static int
-find_closest_color(Display * display, Colormap cmap, XColor * def)
-{
-    double tmp, distance, closestDistance;
-    int closest, numFound;
-    XColor *colortable;
-    XVisualInfo myTemplate, *visInfoPtr;
-    char *found;
-    unsigned i;
-    unsigned cmap_size;
-    unsigned attempts;
-
-    myTemplate.visualid = XVisualIDFromVisual(DefaultVisual(display,
-							    XDefaultScreen(display)));
-    visInfoPtr = XGetVisualInfo(display, (long) VisualIDMask,
-				&myTemplate, &numFound);
-    if (numFound < 1) {
-	/* FindClosestColor couldn't lookup visual */
-	return False;
-    }
-
-    cmap_size = visInfoPtr->colormap_size;
-    XFree((char *) visInfoPtr);
-    colortable = TypeMallocN(XColor, cmap_size);
-    if (!colortable) {
-	return False;		/* out of memory */
-    }
-    found = TypeCallocN(char, cmap_size);
-    if (!found) {
-	free(colortable);
-	return False;		/* out of memory */
-    }
-
-    for (i = 0; i < cmap_size; i++) {
-	colortable[i].pixel = (unsigned long) i;
-    }
-    XQueryColors(display, cmap, colortable, (int) cmap_size);
-
-    /*
-     * Find the color that best approximates the desired one, then
-     * try to allocate that color.  If that fails, it must mean that
-     * the color was read-write (so we can't use it, since its owner
-     * might change it) or else it was already freed.  Try again,
-     * over and over again, until something succeeds.
-     */
-    for (attempts = 0; attempts < cmap_size; attempts++) {
-	closestDistance = 1e30;
-	closest = 0;
-	for (i = 0; i < cmap_size; i++) {
-	    if (!found[closest]) {
-		/*
-		 * Use Euclidean distance in RGB space, weighted by Y (of YIQ)
-		 * as the objective function;  this accounts for differences
-		 * in the color sensitivity of the eye.
-		 */
-		tmp = .30 * (((int) def->red) - (int) colortable[i].red);
-		distance = tmp * tmp;
-		tmp = .61 * (((int) def->green) - (int) colortable[i].green);
-		distance += tmp * tmp;
-		tmp = .11 * (((int) def->blue) - (int) colortable[i].blue);
-		distance += tmp * tmp;
-		if (distance < closestDistance) {
-		    closest = i;
-		    closestDistance = distance;
-		}
-	    }
-	}
-	if (XAllocColor(display, cmap, &colortable[closest]) != 0) {
-	    *def = colortable[closest];
-	    break;
-	}
-	found[closest] = True;	/* Don't look at this entry again */
-    }
-
-    free(colortable);
-    free(found);
-    if (attempts < cmap_size) {
-	return True;		/* Got a closest matching color */
-    } else {
-	return False;		/* Couldn't allocate a near match */
-    }
-}
-
-static Bool
-AllocateAnsiColor(XtermWidget pTerm,
-		  ColorRes * res,
-		  char *spec)
-{
-    XColor def;
-    TScreen *screen = &pTerm->screen;
-    Colormap cmap = pTerm->core.colormap;
-
-    if (XParseColor(screen->display, cmap, spec, &def)
-	&& (XAllocColor(screen->display, cmap, &def)
-	    || find_closest_color(screen->display, cmap, &def))) {
-	SET_COLOR_RES(res, def.pixel);
-	TRACE(("AllocateAnsiColor[%d] %s (pixel %#lx)\n",
-	       (res - screen->Acolors), spec, def.pixel));
-#if OPT_COLOR_RES
-	res->mode = True;
-#endif
-	return (True);
-    }
-    TRACE(("AllocateAnsiColor %s (failed)\n", spec));
-    return (False);
-}
-
-#if OPT_COLOR_RES
-Pixel
-xtermGetColorRes(ColorRes * res)
-{
-    Pixel result = 0;
-
-    if (res->mode) {
-	result = res->value;
-    } else {
-	TRACE(("xtermGetColorRes for Acolors[%d]\n",
-	       res - term->screen.Acolors));
-
-	if (res >= term->screen.Acolors) {
-	    assert(res - term->screen.Acolors < MAXCOLORS);
-
-	    if (!AllocateAnsiColor(term, res, res->resource)) {
-		res->value = term->screen.Tcolors[TEXT_FG].value;
-		res->mode = -True;
-		fprintf(stderr,
-			"%s: Cannot allocate color %s\n",
-			xterm_name,
-			NonNull(res->resource));
-	    }
-	    result = res->value;
-	} else {
-	    result = 0;
-	}
-    }
-    return result;
-}
-#endif
-
-static Bool
-ChangeAnsiColorRequest(XtermWidget pTerm,
-		       char *buf,
-		       int final)
-{
-    char *name;
-    int color;
-    int r = False;
-
-    TRACE(("ChangeAnsiColorRequest string='%s'\n", buf));
-
-    while (buf && *buf) {
-	name = strchr(buf, ';');
-	if (name == NULL)
-	    break;
-	*name = '\0';
-	name++;
-	color = atoi(buf);
-	if (color < 0 || color >= NUM_ANSI_COLORS)
-	    break;
-	buf = strchr(name, ';');
-	if (buf) {
-	    *buf = '\0';
-	    buf++;
-	}
-	if (!strcmp(name, "?"))
-	    ReportAnsiColorRequest(pTerm, color, final);
-	else {
-	    TRACE(("ChangeAnsiColor for Acolors[%d]\n", color));
-	    if (!AllocateAnsiColor(pTerm, &(pTerm->screen.Acolors[color]), name))
-		break;
-	    /* FIXME:  free old color somehow?  We aren't for the other color
-	     * change style (dynamic colors).
-	     */
-	    r = True;
-	}
-    }
-    if (r)
-	ChangeAnsiColors(pTerm);
-    return (r);
-}
-#else
-#define find_closest_color(display, cmap, def) 0
-#endif /* OPT_ISO_COLORS */
-
-#if OPT_PASTE64
-static void
-ManipulateSelectionData(TScreen * screen, char *buf, int final)
-{
-#define PDATA(a,b) { a, #b }
-    static struct {
-	char given;
-	char *result;
-    } table[] = {
-	PDATA('p', PRIMARY),
-	    PDATA('c', CLIPBOARD),
-	    PDATA('0', CUT_BUFFER0),
-	    PDATA('1', CUT_BUFFER1),
-	    PDATA('2', CUT_BUFFER2),
-	    PDATA('3', CUT_BUFFER3),
-	    PDATA('4', CUT_BUFFER4),
-	    PDATA('5', CUT_BUFFER5),
-	    PDATA('6', CUT_BUFFER6),
-	    PDATA('7', CUT_BUFFER7),
-    };
-
-    char *base = buf;
-    Cardinal j, n = 0;
-    char **select_args = 0;
-
-    TRACE(("Manipulate selection data\n"));
-
-    while (*buf != ';' && *buf != '\0') {
-	++buf;
-    }
-
-    if (*buf == ';') {
-	*buf++ = '\0';
-
-	if (*base == '\0')
-	    base = "p0";
-	if ((select_args = TypeCallocN(String, 1 + strlen(base))) == 0)
-	    return;
-	while (*base != '\0') {
-	    for (j = 0; j < XtNumber(table); ++j) {
-		if (*base == table[j].given) {
-		    select_args[n++] = table[j].result;
-		    TRACE(("atom[%d] %s\n", n, table[j].result));
-		    break;
-		}
-	    }
-	    ++base;
-	}
-
-	if (!strcmp(buf, "?")) {
-	    TRACE(("Getting selection\n"));
-	    unparseputc1(OSC, screen->respond);
-	    unparseputs("52", screen->respond);
-	    unparseputc(';', screen->respond);
-
-	    unparseputs(base, screen->respond);
-	    unparseputc(';', screen->respond);
-
-	    screen->base64_paste = 1;	/* Tells xtermGetSelection data is base64 encoded */
-	    xtermGetSelection((Widget) term, 0, select_args, n, NULL);
-	    unparseputc1(final, screen->respond);
-	} else {
-	    TRACE(("Setting selection with %s\n", buf));
-	    ClearSelectionBuffer();
-	    while (*buf != '\0')
-		AppendToSelectionBuffer(screen, CharOf(*buf++));
-	    CompleteSelection(select_args, n);
-	}
-	free(select_args);
-    }
-}
-#endif /* OPT_PASTE64 */
-
-/***====================================================================***/
-
-void
-do_osc(Char * oscbuf, unsigned len GCC_UNUSED, int final)
-{
-    TScreen *screen = &(term->screen);
-    int mode;
-    Char *cp;
-    int state = 0;
-    char *buf = 0;
-
-    TRACE(("do_osc %s\n", oscbuf));
-
-    /*
-     * Lines should be of the form <OSC> number ; string <ST>, however
-     * older xterms can accept <BEL> as a final character.  We will respond
-     * with the same final character as the application sends to make this
-     * work better with shell scripts, which may have trouble reading an
-     * <ESC><backslash>, which is the 7-bit equivalent to <ST>.
-     */
-    mode = 0;
-    for (cp = oscbuf; *cp != '\0'; cp++) {
-	switch (state) {
-	case 0:
-	    if (isdigit(*cp)) {
-		mode = 10 * mode + (*cp - '0');
-		if (mode > 65535)
-		    return;
-		break;
-	    }
-	    /* FALLTHRU */
-	case 1:
-	    if (*cp != ';')
-		return;
-	    state = 2;
-	    break;
-	case 2:
-	    buf = (char *) cp;
-	    state = 3;
-	    /* FALLTHRU */
-	default:
-	    if (ansi_table[CharOf(*cp)] != CASE_PRINT)
-		return;
-	}
-    }
-    if (buf == 0)
-	return;
-
-    switch (mode) {
-    case 0:			/* new icon name and title */
-	Changename(buf);
-	Changetitle(buf);
-	break;
-
-    case 1:			/* new icon name only */
-	Changename(buf);
-	break;
-
-    case 2:			/* new title only */
-	Changetitle(buf);
-	break;
-
-    case 3:			/* change X property */
-	ChangeXprop(buf);
-	break;
-#if OPT_ISO_COLORS
-    case 4:
-	ChangeAnsiColorRequest(term, buf, final);
-	break;
-#endif
-    case 10 + TEXT_FG:
-    case 10 + TEXT_BG:
-    case 10 + TEXT_CURSOR:
-    case 10 + MOUSE_FG:
-    case 10 + MOUSE_BG:
-#if OPT_HIGHLIGHT_COLOR
-    case 10 + HIGHLIGHT_BG:
-#endif
-#if OPT_TEK4014
-    case 10 + TEK_FG:
-    case 10 + TEK_BG:
-    case 10 + TEK_CURSOR:
-#endif
-	if (term->misc.dynamicColors)
-	    ChangeColorsRequest(term, mode - 10, buf, final);
-	break;
-
-    case 30:
-    case 31:
-	/* reserved for Konsole (Stephan Binner <Stephan.Binner@gmx.de>) */
-	break;
-
-#ifdef ALLOWLOGGING
-    case 46:			/* new log file */
-#ifdef ALLOWLOGFILECHANGES
-	/*
-	 * Warning, enabling this feature allows people to overwrite
-	 * arbitrary files accessible to the person running xterm.
-	 */
-	if (buf != 0
-	    && strcmp(buf, "?")
-	    && (cp = CastMallocN(char, strlen(buf)) != NULL)) {
-	    strcpy(cp, buf);
-	    if (screen->logfile)
-		free(screen->logfile);
-	    screen->logfile = cp;
-	    break;
-	}
-#endif
-	Bell(XkbBI_Info, 0);
-	Bell(XkbBI_Info, 0);
-	break;
-#endif /* ALLOWLOGGING */
-
-    case 50:
-	if (buf != 0 && !strcmp(buf, "?")) {
-	    int num = screen->menu_font_number;
-
-	    unparseputc1(OSC, screen->respond);
-	    unparseputs("50", screen->respond);
-
-	    if ((buf = screen->MenuFontName(num)) != 0) {
-		unparseputc(';', screen->respond);
-		unparseputs(buf, screen->respond);
-	    }
-	    unparseputc1(final, screen->respond);
-	} else if (buf != 0) {
-	    VTFontNames fonts;
-
-	    memset(&fonts, 0, sizeof(fonts));
-
-	    /*
-	     * If the font specification is a "#", followed by an
-	     * optional sign and optional number, lookup the
-	     * corresponding menu font entry.
-	     */
-	    if (*buf == '#') {
-		int num = screen->menu_font_number;
-		int rel = 0;
-
-		if (*++buf == '+') {
-		    rel = 1;
-		    buf++;
-		} else if (*buf == '-') {
-		    rel = -1;
-		    buf++;
-		}
-
-		if (isdigit(CharOf(*buf))) {
-		    int val = atoi(buf);
-		    if (rel > 0)
-			rel = val;
-		    else if (rel < 0)
-			rel = -val;
-		    else
-			num = val;
-		} else if (rel == 0) {
-		    num = 0;
-		}
-
-		if (rel != 0)
-		    num = lookupRelativeFontSize(screen,
-						 screen->menu_font_number, rel);
-
-		if (num < 0
-		    || num > fontMenu_lastBuiltin
-		    || (buf = screen->MenuFontName(num)) == 0) {
-		    Bell(XkbBI_MinorError, 0);
-		    break;
-		}
-	    }
-	    fonts.f_n = buf;
-	    SetVTFont(term, fontMenu_fontescape, True, &fonts);
-	}
-	break;
-    case 51:
-	/* reserved for Emacs shell (Rob Mayoff <mayoff@dqd.com>) */
-	break;
-
-#if OPT_PASTE64
-    case 52:
-	if (screen->allowWindowOps && (buf != 0))
-	    ManipulateSelectionData(screen, buf, final);
-	break;
-#endif
-	/*
-	 * One could write code to send back the display and host names,
-	 * but that could potentially open a fairly nasty security hole.
-	 */
-    }
-}
-
-#ifdef SunXK_F36
-#define MAX_UDK 37
-#else
-#define MAX_UDK 35
-#endif
-static struct {
-    char *str;
-    int len;
-} user_keys[MAX_UDK];
-
-/*
- * Parse one nibble of a hex byte from the OSC string.  We have removed the
- * string-terminator (replacing it with a null), so the only other delimiter
- * that is expected is semicolon.  Ignore other characters (Ray Neuman says
- * "real" terminals accept commas in the string definitions).
- */
-static int
-udk_value(char **cp)
-{
-    int c;
-
-    for (;;) {
-	if ((c = **cp) != '\0')
-	    *cp = *cp + 1;
-	if (c == ';' || c == '\0')
-	    return -1;
-	if (c >= '0' && c <= '9')
-	    return c - '0';
-	if (c >= 'A' && c <= 'F')
-	    return c - 'A' + 10;
-	if (c >= 'a' && c <= 'f')
-	    return c - 'a' + 10;
-    }
-}
-
-void
-reset_decudk(void)
-{
-    int n;
-    for (n = 0; n < MAX_UDK; n++) {
-	if (user_keys[n].str != 0) {
-	    free(user_keys[n].str);
-	    user_keys[n].str = 0;
-	    user_keys[n].len = 0;
-	}
-    }
-}
-
-/*
- * Parse the data for DECUDK (user-defined keys).
- */
-static void
-parse_decudk(char *cp)
-{
-    while (*cp) {
-	char *base = cp;
-	char *str = CastMallocN(char, strlen(cp) + 1);
-	unsigned key = 0;
-	int lo, hi;
-	int len = 0;
-
-	while (isdigit(CharOf(*cp)))
-	    key = (key * 10) + (*cp++ - '0');
-	if (*cp == '/') {
-	    cp++;
-	    while ((hi = udk_value(&cp)) >= 0
-		   && (lo = udk_value(&cp)) >= 0) {
-		str[len++] = (hi << 4) | lo;
-	    }
-	}
-	if (len > 0 && key < MAX_UDK) {
-	    if (user_keys[key].str != 0)
-		free(user_keys[key].str);
-	    user_keys[key].str = str;
-	    user_keys[key].len = len;
-	} else {
-	    free(str);
-	}
-	if (*cp == ';')
-	    cp++;
-	if (cp == base)		/* badly-formed sequence - bail out */
-	    break;
-    }
-}
-
-#if OPT_TRACE
-#define SOFT_WIDE 10
-#define SOFT_HIGH 20
-
-static void
-parse_decdld(ANSI * params, char *string)
-{
-    char DscsName[8];
-    int len;
-    int Pfn = params->a_param[0];
-    int Pcn = params->a_param[1];
-    int Pe = params->a_param[2];
-    int Pcmw = params->a_param[3];
-    int Pw = params->a_param[4];
-    int Pt = params->a_param[5];
-    int Pcmh = params->a_param[6];
-    int Pcss = params->a_param[7];
-
-    int start_char = Pcn + 0x20;
-    int char_wide = ((Pcmw == 0)
-		     ? (Pcss ? 6 : 10)
-		     : (Pcmw > 4
-			? Pcmw
-			: (Pcmw + 3)));
-    int char_high = ((Pcmh == 0)
-		     ? ((Pcmw >= 2 || Pcmw <= 4)
-			? 10
-			: 20)
-		     : Pcmh);
-    Char ch;
-    Char bits[SOFT_HIGH][SOFT_WIDE];
-    Bool first = True;
-    Bool prior = False;
-    int row = 0, col = 0;
-
-    TRACE(("Parsing DECDLD\n"));
-    TRACE(("  font number   %d\n", Pfn));
-    TRACE(("  starting char %d\n", Pcn));
-    TRACE(("  erase control %d\n", Pe));
-    TRACE(("  char-width    %d\n", Pcmw));
-    TRACE(("  font-width    %d\n", Pw));
-    TRACE(("  text/full     %d\n", Pt));
-    TRACE(("  char-height   %d\n", Pcmh));
-    TRACE(("  charset-size  %d\n", Pcss));
-
-    if (Pfn > 1
-	|| Pcn > 95
-	|| Pe > 2
-	|| Pcmw > 10
-	|| Pcmw == 1
-	|| Pt > 2
-	|| Pcmh > 20
-	|| Pcss > 1
-	|| char_wide > SOFT_WIDE
-	|| char_high > SOFT_HIGH) {
-	TRACE(("DECDLD illegal parameter\n"));
-	return;
-    }
-
-    len = 0;
-    while (*string != '\0') {
-	ch = CharOf(*string++);
-	if (ch >= 0x20 && ch <= 0x2f) {
-	    if (len < 2)
-		DscsName[len++] = ch;
-	} else if (ch >= 0x30 && ch <= 0x7e) {
-	    DscsName[len++] = ch;
-	    break;
-	}
-    }
-    DscsName[len] = 0;
-    TRACE(("  Dscs name     '%s'\n", DscsName));
-
-    TRACE(("  character matrix %dx%d\n", char_high, char_wide));
-    while (*string != '\0') {
-	if (first) {
-	    TRACE(("Char %d:\n", start_char));
-	    if (prior) {
-		for (row = 0; row < char_high; ++row) {
-		    TRACE(("%.*s\n", char_wide, bits[row]));
-		}
-	    }
-	    prior = False;
-	    first = False;
-	    for (row = 0; row < char_high; ++row) {
-		for (col = 0; col < char_wide; ++col) {
-		    bits[row][col] = '.';
-		}
-	    }
-	    row = col = 0;
-	}
-	ch = CharOf(*string++);
-	if (ch >= 0x3f && ch <= 0x7e) {
-	    int n;
-
-	    ch -= 0x3f;
-	    for (n = 0; n < 6; ++n) {
-		bits[row + n][col] = (ch & (1 << n)) ? '*' : '.';
-	    }
-	    col += 1;
-	    prior = True;
-	} else if (ch == '/') {
-	    row += 6;
-	    col = 0;
-	} else if (ch == ';') {
-	    first = True;
-	    ++start_char;
-	}
-    }
-}
-#else
-#define parse_decdld(p,q)	/* nothing */
-#endif
-
-/*
- * Parse numeric parameters.  Normally we use a state machine to simplify
- * interspersing with control characters, but have the string already.
- */
-static void
-parse_ansi_params(ANSI * params, char **string)
-{
-    char *cp = *string;
-    short nparam = 0;
-
-    memset(params, 0, sizeof(*params));
-    while (*cp != '\0') {
-	Char ch = CharOf(*cp++);
-
-	if (isdigit(ch)) {
-	    if (nparam < NPARAM) {
-		params->a_param[nparam] *= 10;
-		params->a_param[nparam] += (ch - '0');
-	    }
-	} else if (ch == ';') {
-	    if (++nparam < NPARAM)
-		params->a_nparam = nparam;
-	} else if (ch < 32) {
-	    ;
-	} else {
-	    /* should be 0x30 to 0x7e */
-	    params->a_final = ch;
-	    break;
-	}
-    }
-    *string = cp;
-}
-
-void
-do_dcs(Char * dcsbuf, size_t dcslen)
-{
-    TScreen *screen = &term->screen;
-    char reply[BUFSIZ];
-    char *cp = (char *) dcsbuf;
-    Bool okay;
-    ANSI params;
-
-    TRACE(("do_dcs(%s:%d)\n", (char *) dcsbuf, dcslen));
-
-    if (dcslen != strlen(cp))
-	/* shouldn't have nulls in the string */
-	return;
-
-    switch (*cp) {		/* intermediate character, or parameter */
-    case '$':			/* DECRQSS */
-	okay = True;
-
-	cp++;
-	if (*cp++ == 'q') {
-	    if (!strcmp(cp, "\"q")) {	/* DECSCA */
-		sprintf(reply, "%d%s",
-			(screen->protected_mode == DEC_PROTECT)
-			&& (term->flags & PROTECTED) ? 1 : 0,
-			cp);
-	    } else if (!strcmp(cp, "\"p")) {	/* DECSCL */
-		sprintf(reply, "%d%s%s",
-			(screen->vtXX_level ?
-			 screen->vtXX_level : 1) + 60,
-			(screen->vtXX_level >= 2)
-			? (screen->control_eight_bits
-			   ? ";0" : ";1")
-			: "",
-			cp);
-	    } else if (!strcmp(cp, "r")) {	/* DECSTBM */
-		sprintf(reply, "%d;%dr",
-			screen->top_marg + 1,
-			screen->bot_marg + 1);
-	    } else if (!strcmp(cp, "m")) {	/* SGR */
-		strcpy(reply, "0");
-		if (term->flags & BOLD)
-		    strcat(reply, ";1");
-		if (term->flags & UNDERLINE)
-		    strcat(reply, ";4");
-		if (term->flags & BLINK)
-		    strcat(reply, ";5");
-		if (term->flags & INVERSE)
-		    strcat(reply, ";7");
-		if (term->flags & INVISIBLE)
-		    strcat(reply, ";8");
-		if_OPT_EXT_COLORS(screen, {
-		    if (term->flags & FG_COLOR) {
-			if (term->cur_foreground >= 16)
-			    sprintf(reply + strlen(reply),
-				    ";38;5;%d", term->cur_foreground);
-			else
-			    sprintf(reply + strlen(reply),
-				    ";%d%d",
-				    term->cur_foreground >= 8 ? 9 : 3,
-				    term->cur_foreground >= 8 ?
-				    term->cur_foreground - 8 :
-				    term->cur_foreground);
-		    }
-		    if (term->flags & BG_COLOR) {
-			if (term->cur_background >= 16)
-			    sprintf(reply + strlen(reply),
-				    ";48;5;%d", term->cur_foreground);
-			else
-			    sprintf(reply + strlen(reply),
-				    ";%d%d",
-				    term->cur_background >= 8 ? 10 : 4,
-				    term->cur_background >= 8 ?
-				    term->cur_background - 8 :
-				    term->cur_background);
-		    }
-		});
-		if_OPT_ISO_TRADITIONAL_COLORS(screen, {
-		    if (term->flags & FG_COLOR)
-			sprintf(reply + strlen(reply),
-				";%d%d",
-				term->cur_foreground >= 8 ? 9 : 3,
-				term->cur_foreground >= 8 ?
-				term->cur_foreground - 8 :
-				term->cur_foreground);
-		    if (term->flags & BG_COLOR)
-			sprintf(reply + strlen(reply),
-				";%d%d",
-				term->cur_background >= 8 ? 10 : 4,
-				term->cur_background >= 8 ?
-				term->cur_background - 8 :
-				term->cur_background);
-		});
-		strcat(reply, "m");
-	    } else
-		okay = False;
-
-	    unparseputc1(DCS, screen->respond);
-	    unparseputc(okay ? '1' : '0', screen->respond);
-	    unparseputc('$', screen->respond);
-	    unparseputc('r', screen->respond);
-	    if (okay)
-		cp = reply;
-	    unparseputs(cp, screen->respond);
-	    unparseputc1(ST, screen->respond);
-	} else {
-	    unparseputc(CAN, screen->respond);
-	}
-	break;
-#if OPT_TCAP_QUERY
-    case '+':
-	cp++;
-	if (*cp == 'q') {
-	    unsigned state;
-	    int code;
-	    char *tmp;
-	    char *parsed = ++cp;
-
-	    unparseputc1(DCS, screen->respond);
-
-	    code = xtermcapKeycode(&parsed, &state);
-	    unparseputc(code >= 0 ? '1' : '0', screen->respond);
-
-	    unparseputc('+', screen->respond);
-	    unparseputc('r', screen->respond);
-
-	    while (*cp != 0) {
-		if (cp == parsed)
-		    break;	/* no data found, error */
-
-		for (tmp = cp; tmp != parsed; ++tmp)
-		    unparseputc(*tmp, screen->respond);
-
-		if (code >= 0) {
-		    unparseputc('=', screen->respond);
-		    screen->tc_query = code;
-		    /* XK_COLORS is a fake code for the "Co" entry (maximum
-		     * number of colors) */
-		    if (code == XK_COLORS) {
-# if OPT_256_COLORS
-			unparseputc('2', screen->respond);
-			unparseputc('5', screen->respond);
-			unparseputc('6', screen->respond);
-# elif OPT_88_COLORS
-			unparseputc('8', screen->respond);
-			unparseputc('8', screen->respond);
-# else
-			unparseputc('1', screen->respond);
-			unparseputc('6', screen->respond);
-# endif
-		    } else {
-			XKeyEvent event;
-			event.state = state;
-			Input(&(term->keyboard), screen, &event, False);
-		    }
-		    screen->tc_query = -1;
-		} else {
-		    break;	/* no match found, error */
-		}
-
-		cp = parsed;
-		if (*parsed == ';') {
-		    unparseputc(*parsed++, screen->respond);
-		    cp = parsed;
-		    code = xtermcapKeycode(&parsed, &state);
-		}
-	    }
-	    unparseputc1(ST, screen->respond);
-	}
-	break;
-#endif
-    default:
-	parse_ansi_params(&params, &cp);
-	switch (params.a_final) {
-	case '|':		/* DECUDK */
-	    if (params.a_param[0] == 0)
-		reset_decudk();
-	    parse_decudk(cp);
-	    break;
-	case '{':		/* DECDLD */
-	    parse_decdld(&params, cp);
-	    break;
-	}
-	break;
-    }
-}
-
-char *
-udk_lookup(int keycode, int *len)
-{
-    if (keycode >= 0 && keycode < MAX_UDK) {
-	*len = user_keys[keycode].len;
-	return user_keys[keycode].str;
-    }
-    return 0;
-}
-
-static void
-ChangeGroup(String attribute, char *value)
-{
-    Arg args[1];
-    const char *name = (value != 0) ? (char *) value : "";
-    TScreen *screen = &term->screen;
-    Widget w = CURRENT_EMU(screen);
-    Widget top = SHELL_OF(w);
-
-    TRACE(("ChangeGroup(attribute=%s, value=%s)\n", attribute, name));
-
-#if OPT_WIDE_CHARS
-    /*
-     * Title strings are limited to ISO-8859-1, which is consistent with the
-     * printable data in sos_table.  However, if we're running in UTF-8 mode,
-     * it is likely that non-ASCII text in the string will be rejected because
-     * it is not printable in the current locale.  So we convert it to UTF-8,
-     * allowing the X library to convert it back.
-     */
-    if (xtermEnvUTF8()) {
-	int n;
-	unsigned limit = strlen(name);
-
-	if (limit < 1024) {
-	    for (n = 0; name[n] != '\0'; ++n) {
-		if (CharOf(name[n]) > 127) {
-		    static Char *converted;
-		    if (converted != 0)
-			free(converted);
-		    if ((converted = TypeMallocN(Char, 1 + (5 * limit))) != 0) {
-			Char *temp = converted;
-			while (*name != 0) {
-			    temp = convertToUTF8(temp, CharOf(*name));
-			    ++name;
-			}
-			*temp = 0;
-			name = (const char *) converted;
-		    }
-		    break;
-		}
-	    }
-	}
-    }
-#endif
-
-#if OPT_SAME_NAME
-    /* If the attribute isn't going to change, then don't bother... */
-
-    if (sameName) {
-	char *buf;
-	XtSetArg(args[0], attribute, &buf);
-	XtGetValues(top, args, 1);
-	if (strcmp(name, buf) == 0)
-	    return;
-    }
-#endif /* OPT_SAME_NAME */
-
-    XtSetArg(args[0], attribute, name);
-    XtSetValues(top, args, 1);
-}
-
-void
-Changename(char *name)
-{
-    if (name == 0)
-	name = "";
-#if OPT_ZICONBEEP		/* If warning should be given then give it */
-    if (zIconBeep && zIconBeep_flagged) {
-	char *newname = CastMallocN(char, strlen(name) + 4);
-	if (!newname) {
-	    fprintf(stderr, "malloc failed in Changename\n");
-	    return;
-	}
-	strcpy(newname, "*** ");
-	strcat(newname, name);
-	ChangeGroup(XtNiconName, newname);
-	free(newname);
-    } else
-#endif /* OPT_ZICONBEEP */
-	ChangeGroup(XtNiconName, name);
-}
-
-void
-Changetitle(char *name)
-{
-    ChangeGroup(XtNtitle, name);
-}
-
-#define Strlen(s) strlen((char *)(s))
-
-void
-ChangeXprop(char *buf)
-{
-    Display *dpy = XtDisplay(toplevel);
-    Window w = XtWindow(toplevel);
-    XTextProperty text_prop;
-    Atom aprop;
-    Char *pchEndPropName = (Char *) strchr(buf, '=');
-
-    if (pchEndPropName)
-	*pchEndPropName = '\0';
-    aprop = XInternAtom(dpy, buf, False);
-    if (pchEndPropName == NULL) {
-	/* no "=value" given, so delete the property */
-	XDeleteProperty(dpy, w, aprop);
-    } else {
-	text_prop.value = pchEndPropName + 1;
-	text_prop.encoding = XA_STRING;
-	text_prop.format = 8;
-	text_prop.nitems = Strlen(text_prop.value);
-	XSetTextProperty(dpy, w, &text_prop, aprop);
-    }
-}
-
-/***====================================================================***/
-
-static ScrnColors *pOldColors = NULL;
-
-static Bool
-GetOldColors(XtermWidget pTerm)
-{
-    int i;
-    if (pOldColors == NULL) {
-	pOldColors = (ScrnColors *) XtMalloc(sizeof(ScrnColors));
-	if (pOldColors == NULL) {
-	    fprintf(stderr, "allocation failure in GetOldColors\n");
-	    return (False);
-	}
-	pOldColors->which = 0;
-	for (i = 0; i < NCOLORS; i++) {
-	    pOldColors->colors[i] = 0;
-	    pOldColors->names[i] = NULL;
-	}
-	GetColors(pTerm, pOldColors);
-    }
-    return (True);
-}
-
-static int
-oppositeColor(int n)
-{
-    switch (n) {
-    case TEXT_FG:
-	n = TEXT_BG;
-	break;
-    case TEXT_BG:
-	n = TEXT_FG;
-	break;
-    case MOUSE_FG:
-	n = MOUSE_BG;
-	break;
-    case MOUSE_BG:
-	n = MOUSE_FG;
-	break;
-#if OPT_TEK4014
-    case TEK_FG:
-	n = TEK_BG;
-	break;
-    case TEK_BG:
-	n = TEK_FG;
-	break;
-#endif
-    default:
-	break;
-    }
-    return n;
-}
-
-static void
-ReportColorRequest(XtermWidget pTerm, int ndx, int final)
-{
-    XColor color;
-    Colormap cmap = pTerm->core.colormap;
-    char buffer[80];
-
-    /*
-     * ChangeColorsRequest() has "always" chosen the opposite color when
-     * reverse-video is set.  Report this as the original color index, but
-     * reporting the opposite color which would be used.
-     */
-    int i = (term->misc.re_verse) ? oppositeColor(ndx) : ndx;
-
-    GetOldColors(pTerm);
-    color.pixel = pOldColors->colors[ndx];
-    XQueryColor(term->screen.display, cmap, &color);
-    sprintf(buffer, "%d;rgb:%04x/%04x/%04x", i + 10,
-	    color.red,
-	    color.green,
-	    color.blue);
-    TRACE(("ReportColors %d: %#lx as %s\n", ndx, pOldColors->colors[ndx], buffer));
-    unparseputc1(OSC, pTerm->screen.respond);
-    unparseputs(buffer, pTerm->screen.respond);
-    unparseputc1(final, pTerm->screen.respond);
-}
-
-static Bool
-UpdateOldColors(XtermWidget pTerm GCC_UNUSED, ScrnColors * pNew)
-{
-    int i;
-
-    /* if we were going to free old colors, this would be the place to
-     * do it.   I've decided not to (for now), because it seems likely
-     * that we'd have a small set of colors we use over and over, and that
-     * we could save some overhead this way.   The only case in which this
-     * (clearly) fails is if someone is trying a boatload of colors, in
-     * which case they can restart xterm
-     */
-    for (i = 0; i < NCOLORS; i++) {
-	if (COLOR_DEFINED(pNew, i)) {
-	    if (pOldColors->names[i] != NULL) {
-		XtFree(pOldColors->names[i]);
-		pOldColors->names[i] = NULL;
-	    }
-	    if (pNew->names[i]) {
-		pOldColors->names[i] = pNew->names[i];
-	    }
-	    pOldColors->colors[i] = pNew->colors[i];
-	}
-    }
-    return (True);
-}
-
-void
-ReverseOldColors(void)
-{
-    ScrnColors *pOld = pOldColors;
-    Pixel tmpPix;
-    char *tmpName;
-
-    if (pOld) {
-	/* change text cursor, if necesary */
-	if (pOld->colors[TEXT_CURSOR] == pOld->colors[TEXT_FG]) {
-	    pOld->colors[TEXT_CURSOR] = pOld->colors[TEXT_BG];
-	    if (pOld->names[TEXT_CURSOR]) {
-		XtFree(pOldColors->names[TEXT_CURSOR]);
-		pOld->names[TEXT_CURSOR] = NULL;
-	    }
-	    if (pOld->names[TEXT_BG]) {
-		tmpName = XtMalloc(strlen(pOld->names[TEXT_BG]) + 1);
-		if (tmpName) {
-		    strcpy(tmpName, pOld->names[TEXT_BG]);
-		    pOld->names[TEXT_CURSOR] = tmpName;
-		}
-	    }
-	}
-
-	EXCHANGE(pOld->colors[TEXT_FG], pOld->colors[TEXT_BG], tmpPix);
-	EXCHANGE(pOld->names[TEXT_FG], pOld->names[TEXT_BG], tmpName);
-
-	EXCHANGE(pOld->colors[MOUSE_FG], pOld->colors[MOUSE_BG], tmpPix);
-	EXCHANGE(pOld->names[MOUSE_FG], pOld->names[MOUSE_BG], tmpName);
-
-#if OPT_TEK4014
-	EXCHANGE(pOld->colors[TEK_FG], pOld->colors[TEK_BG], tmpPix);
-	EXCHANGE(pOld->names[TEK_FG], pOld->names[TEK_BG], tmpName);
-#endif
-    }
-    return;
-}
-
-Bool
-AllocateTermColor(XtermWidget pTerm,
-		  ScrnColors * pNew,
-		  int ndx,
-		  const char *name)
-{
-    XColor def;
-    TScreen *screen = &pTerm->screen;
-    Colormap cmap = pTerm->core.colormap;
-    char *newName;
-
-    if (XParseColor(screen->display, cmap, name, &def)
-	&& (XAllocColor(screen->display, cmap, &def)
-	    || find_closest_color(screen->display, cmap, &def))
-	&& (newName = XtMalloc(strlen(name) + 1)) != 0) {
-	SET_COLOR_VALUE(pNew, ndx, def.pixel);
-	strcpy(newName, name);
-	SET_COLOR_NAME(pNew, ndx, newName);
-	TRACE(("AllocateTermColor #%d: %s (pixel %#lx)\n", ndx, newName, def.pixel));
-	return (True);
-    }
-    TRACE(("AllocateTermColor #%d: %s (failed)\n", ndx, name));
-    return (False);
-}
-
-static Bool
-ChangeColorsRequest(XtermWidget pTerm,
-		    int start,
-		    char *names,
-		    int final)
-{
-    char *thisName;
-    ScrnColors newColors;
-    int i, ndx;
-
-    TRACE(("ChangeColorsRequest start=%d, names='%s'\n", start, names));
-
-    if ((pOldColors == NULL)
-	&& (!GetOldColors(pTerm))) {
-	return (False);
-    }
-    newColors.which = 0;
-    for (i = 0; i < NCOLORS; i++) {
-	newColors.names[i] = NULL;
-    }
-    for (i = start; i < NCOLORS; i++) {
-	if (term->misc.re_verse)
-	    ndx = oppositeColor(i);
-	else
-	    ndx = i;
-	if ((names == NULL) || (names[0] == '\0')) {
-	    newColors.names[ndx] = NULL;
-	} else {
-	    if (names[0] == ';')
-		thisName = NULL;
-	    else
-		thisName = names;
-	    names = strchr(names, ';');
-	    if (names != NULL) {
-		*names = '\0';
-		names++;
-	    }
-	    if (thisName != 0 && !strcmp(thisName, "?"))
-		ReportColorRequest(pTerm, ndx, final);
-	    else if (!pOldColors->names[ndx]
-		     || (thisName
-			 && strcmp(thisName, pOldColors->names[ndx]))) {
-		AllocateTermColor(pTerm, &newColors, ndx, thisName);
-	    }
-	}
-    }
-
-    if (newColors.which == 0)
-	return (True);
-
-    ChangeColors(pTerm, &newColors);
-    UpdateOldColors(pTerm, &newColors);
-    return (True);
-}
-
-/***====================================================================***/
-
-#ifndef DEBUG
-/* ARGSUSED */
-#endif
-void
-Panic(char *s GCC_UNUSED, int a GCC_UNUSED)
-{
-#ifdef DEBUG
-    if (debug) {
-	fprintf(stderr, "%s: PANIC!\t", xterm_name);
-	fprintf(stderr, s, a);
-	fputs("\r\n", stderr);
-	fflush(stderr);
-    }
-#endif /* DEBUG */
-}
-
-char *
-SysErrorMsg(int n)
-{
-    static char unknown[] = "unknown error";
-    char *s = strerror(n);
-    return s ? s : unknown;
-}
-
-void
-SysError(int i)
-{
-    static const char *table[] =
-    {
-	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
-	,"main: ioctl() failed on FIONBIO"	/* 11 */
-	,"main: ioctl() failed on F_GETFL"	/* 12 */
-	,"main: ioctl() failed on F_SETFL"	/* 13 */
-	,"spawn: open() failed on /dev/tty"	/* 14 */
-	,"spawn: ioctl() failed on TIOCGETP"	/* 15 */
-	,0
-	,"spawn: ptsname() failed"	/* 17 */
-	,"spawn: open() failed on ptsname"	/* 18 */
-	,"spawn: ioctl() failed on I_PUSH/\"ptem\""	/* 19 */
-	,"spawn: ioctl() failed on I_PUSH/\"consem\""	/* 20 */
-	,"spawn: ioctl() failed on I_PUSH/\"ldterm\""	/* 21 */
-	,"spawn: ioctl() failed on I_PUSH/\"ttcompat\""		/* 22 */
-	,"spawn: ioctl() failed on TIOCSETP"	/* 23 */
-	,"spawn: ioctl() failed on TIOCSETC"	/* 24 */
-	,"spawn: ioctl() failed on TIOCSETD"	/* 25 */
-	,"spawn: ioctl() failed on TIOCSLTC"	/* 26 */
-	,"spawn: ioctl() failed on TIOCLSET"	/* 27 */
-	,"spawn: initgroups() failed"	/* 28 */
-	,"spawn: fork() failed"	/* 29 */
-	,"spawn: exec() failed"	/* 30 */
-	,0
-	,"get_pty: not enough ptys"	/* 32 */
-	,0
-	,"waiting for initial map"	/* 34 */
-	,"spawn: setuid() failed"	/* 35 */
-	,"spawn: can't initialize window"	/* 36 */
-	,0, 0, 0, 0, 0, 0, 0, 0, 0
-	,"spawn: ioctl() failed on TIOCKSET"	/* 46 */
-	,"spawn: ioctl() failed on TIOCKSETC"	/* 47 */
-	,"spawn: realloc of ttydev failed"	/* 48 */
-	,"luit: command-line malloc failed"	/* 49 */
-	,"in_put: select() failed"	/* 50 */
-	,0, 0, 0
-	,"VTInit: can't initialize window"	/* 54 */
-	,0, 0
-	,"HandleKeymapChange: malloc failed"	/* 57 */
-	,0, 0
-	,"Tinput: select() failed"	/* 60 */
-	,0, 0, 0
-	,"TekInit: can't initialize window"	/* 64 */
-	,0, 0, 0, 0, 0, 0
-	,"SaltTextAway: malloc() failed"	/* 71 */
-	,0, 0, 0, 0, 0, 0, 0, 0
-	,"StartLog: exec() failed"	/* 80 */
-	,0, 0
-	,"xerror: XError event"	/* 83 */
-	,"xioerror: X I/O error"	/* 84 */
-	,0, 0, 0, 0, 0
-	,"Alloc: calloc() failed on base"	/* 90 */
-	,"Alloc: calloc() failed on rows"	/* 91 */
-	,"ScreenResize: realloc() failed on alt base"	/* 92 */
-	,0, 0, 0
-	,"ScreenResize: malloc() or realloc() failed"	/* 96 */
-	,0, 0, 0, 0, 0
-	,"ScrnPointers: malloc/realloc() failed"	/* 102 */
-	,0, 0, 0, 0, 0, 0, 0
-	,"ScrollBarOn: realloc() failed on base"	/* 110 */
-	,"ScrollBarOn: realloc() failed on rows"	/* 111 */
-	,0, 0, 0, 0, 0, 0, 0, 0, 0
-	,"my_memmove: malloc/realloc failed"	/* 121 */
-    };
-    int oerrno;
-
-    oerrno = errno;
-    fprintf(stderr, "%s: Error %d, errno %d: ", xterm_name, i, oerrno);
-    fprintf(stderr, "%s\n", SysErrorMsg(oerrno));
-    if ((Cardinal) i < XtNumber(table) && table[i] != 0) {
-	fprintf(stderr, "Reason: %s\n", table[i]);
-    }
-    Cleanup(i);
-}
-
-static void
-Sleep(int msec)
-{
-    static struct timeval select_timeout;
-
-    select_timeout.tv_sec = 0;
-    select_timeout.tv_usec = msec * 1000;
-    select(0, 0, 0, 0, &select_timeout);
-}
-
-/*
- * cleanup by sending SIGHUP to client processes
- */
-void
-Cleanup(int code)
-{
-    static Bool cleaning;
-    TScreen *screen = &term->screen;
-
-    /*
-     * Process "-hold" and session cleanup only for a normal exit.
-     */
-    if (code == 0) {
-	if (cleaning) {
-	    hold_screen = 0;
-	    return;
-	}
-
-	cleaning = True;
-	need_cleanup = FALSE;
-
-	TRACE(("Cleanup %d\n", code));
-
-	if (hold_screen) {
-	    hold_screen = 2;
-	    while (hold_screen) {
-		xevents();
-		Sleep(10);
-	    }
-	}
-#if OPT_SESSION_MGT
-	if (resource.sessionMgt) {
-	    XtVaSetValues(toplevel,
-			  XtNjoinSession, False,
-			  (XtPointer *) 0);
-	}
-#endif
-    }
-
-    if (screen->pid > 1) {
-	(void) kill_process_group(screen->pid, SIGHUP);
-    }
-    Exit(code);
-}
-
-#ifndef VMS
-char *
-xtermFindShell(char *leaf, Bool warning)
-{
-    char *s;
-    char *d;
-    char *tmp;
-    char *result = leaf;
-
-    TRACE(("xtermFindShell(%s)\n", leaf));
-    if (*result != '\0' && strchr("+/-", *result) == 0) {
-	/* find it in $PATH */
-	if ((s = getenv("PATH")) != 0) {
-	    if ((tmp = TypeMallocN(char, strlen(leaf) + strlen(s) + 1)) != 0) {
-		Bool found = False;
-		while (*s != '\0') {
-		    strcpy(tmp, s);
-		    for (d = tmp;; ++d) {
-			if (*d == ':' || *d == '\0') {
-			    int skip = (*d != '\0');
-			    *d = '/';
-			    strcpy(d + 1, leaf);
-			    if (skip)
-				++d;
-			    s += (d - tmp);
-			    if (*tmp == '/'
-				&& strstr(tmp, "..") == 0
-				&& access(tmp, X_OK) == 0) {
-				result = x_strdup(tmp);
-				found = True;
-			    }
-			    break;
-			}
-			if (found)
-			    break;
-		    }
-		    if (found)
-			break;
-		}
-		free(tmp);
-	    }
-	}
-    }
-    TRACE(("...xtermFindShell(%s)\n", result));
-    if (*result != '/'
-	|| strstr(result, "..") != 0
-	|| access(result, X_OK) != 0) {
-	if (warning)
-	    fprintf(stderr, "No absolute path found for shell: %s\n", result);
-	result = 0;
-    }
-    return result;
-}
-#endif /* VMS */
-
-/*
- * sets the value of var to be arg in the Unix 4.2 BSD environment env.
- * Var should end with '=' (bindings are of the form "var=value").
- * This procedure assumes the memory for the first level of environ
- * was allocated using calloc, with enough extra room at the end so not
- * to have to do a realloc().
- */
-void
-xtermSetenv(char *var, char *value)
-{
-    if (value != 0) {
-	int envindex = 0;
-	size_t len = strlen(var);
-
-	TRACE(("xtermSetenv(var=%s, value=%s)\n", var, value));
-
-	while (environ[envindex] != NULL) {
-	    if (strncmp(environ[envindex], var, len) == 0) {
-		/* found it */
-		environ[envindex] = CastMallocN(char, len + strlen(value));
-		strcpy(environ[envindex], var);
-		strcat(environ[envindex], value);
-		return;
-	    }
-	    envindex++;
-	}
-
-	TRACE(("...expanding env to %d\n", envindex + 1));
-
-	environ[envindex] = CastMallocN(char, len + strlen(value));
-	(void) strcpy(environ[envindex], var);
-	strcat(environ[envindex], value);
-	environ[++envindex] = NULL;
-    }
-}
-
-/*ARGSUSED*/
-int
-xerror(Display * d, XErrorEvent * ev)
-{
-    fprintf(stderr, "%s:  warning, error event received:\n", xterm_name);
-    (void) XmuPrintDefaultErrorMessage(d, ev, stderr);
-    Exit(ERROR_XERROR);
-    return 0;			/* appease the compiler */
-}
-
-/*ARGSUSED*/
-int
-xioerror(Display * dpy)
-{
-    int the_error = errno;
-
-    (void) fprintf(stderr,
-		   "%s:  fatal IO error %d (%s) or KillClient on X server \"%s\"\r\n",
-		   xterm_name, the_error, SysErrorMsg(the_error),
-		   DisplayString(dpy));
-
-    Exit(ERROR_XIOERROR);
-    return 0;			/* appease the compiler */
-}
-
-void
-xt_error(String message)
-{
-    char *ptr;
-
-    (void) fprintf(stderr, "%s Xt error: %s\n", ProgramName, message);
-
-    /*
-     * Check for the obvious - Xt does a poor job of reporting this.
-     */
-    if ((ptr = getenv("DISPLAY")) == 0 || *x_strtrim(ptr) == '\0') {
-	fprintf(stderr, "%s:  DISPLAY is not set\n", ProgramName);
-    }
-    exit(1);
-}
-
-int
-XStrCmp(char *s1, char *s2)
-{
-    if (s1 && s2)
-	return (strcmp(s1, s2));
-    if (s1 && *s1)
-	return (1);
-    if (s2 && *s2)
-	return (-1);
-    return (0);
-}
-
-#if OPT_TEK4014
-static void
-withdraw_window(Display * dpy, Window w, int scr)
-{
-    TRACE(("withdraw_window %#lx\n", (long) w));
-    (void) XmuUpdateMapHints(dpy, w, NULL);
-    XWithdrawWindow(dpy, w, scr);
-    return;
-}
-#endif
-
-void
-set_vt_visibility(Bool on)
-{
-    TScreen *screen = &term->screen;
-
-    TRACE(("set_vt_visibility(%d)\n", on));
-    if (on) {
-	if (!screen->Vshow && term) {
-	    VTInit();
-	    XtMapWidget(XtParent(term));
-#if OPT_TOOLBAR
-	    /* we need both of these during initialization */
-	    XtMapWidget(SHELL_OF(term));
-	    ShowToolbar(resource.toolBar);
-#endif
-	    screen->Vshow = True;
-	}
-    }
-#if OPT_TEK4014
-    else {
-	if (screen->Vshow && term) {
-	    withdraw_window(XtDisplay(term),
-			    VShellWindow,
-			    XScreenNumberOfScreen(XtScreen(term)));
-	    screen->Vshow = False;
-	}
-    }
-    set_vthide_sensitivity();
-    set_tekhide_sensitivity();
-    update_vttekmode();
-    update_tekshow();
-    update_vtshow();
-#endif
-    return;
-}
-
-#if OPT_TEK4014
-void
-set_tek_visibility(Bool on)
-{
-    TScreen *screen = &term->screen;
-
-    TRACE(("set_tek_visibility(%d)\n", on));
-    if (on) {
-	if (!screen->Tshow && (tekWidget || TekInit())) {
-	    Widget tekParent = SHELL_OF(tekWidget);
-	    XtRealizeWidget(tekParent);
-	    XtMapWidget(XtParent(tekWidget));
-#if OPT_TOOLBAR
-	    /* we need both of these during initialization */
-	    XtMapWidget(tekParent);
-	    XtMapWidget(tekWidget);
-#endif
-	    XtOverrideTranslations(tekParent,
-				   XtParseTranslationTable
-				   ("<Message>WM_PROTOCOLS: DeleteWindow()"));
-	    (void) XSetWMProtocols(XtDisplay(tekParent),
-				   XtWindow(tekParent),
-				   &wm_delete_window, 1);
-	    screen->Tshow = True;
-	}
-    } else {
-	if (screen->Tshow && tekWidget) {
-	    withdraw_window(XtDisplay(tekWidget),
-			    TShellWindow,
-			    XScreenNumberOfScreen(XtScreen(tekWidget)));
-	    screen->Tshow = False;
-	}
-    }
-    set_tekhide_sensitivity();
-    set_vthide_sensitivity();
-    update_vtshow();
-    update_tekshow();
-    update_vttekmode();
-    return;
-}
-
-void
-end_tek_mode(void)
-{
-    TScreen *screen = &term->screen;
-
-    if (screen->TekEmu) {
-	FlushLog(screen);
-	longjmp(Tekend, 1);
-    }
-    return;
-}
-
-void
-end_vt_mode(void)
-{
-    TScreen *screen = &term->screen;
-
-    if (!screen->TekEmu) {
-	FlushLog(screen);
-	screen->TekEmu = True;
-	longjmp(VTend, 1);
-    }
-    return;
-}
-
-void
-switch_modes(Bool tovt)		/* if true, then become vt mode */
-{
-    if (tovt) {
-	if (TekRefresh)
-	    dorefresh();
-	end_tek_mode();		/* WARNING: this does a longjmp... */
-    } else {
-	end_vt_mode();		/* WARNING: this does a longjmp... */
-    }
-}
-
-void
-hide_vt_window(void)
-{
-    TScreen *screen = &term->screen;
-
-    set_vt_visibility(False);
-    if (!screen->TekEmu)
-	switch_modes(False);	/* switch to tek mode */
-}
-
-void
-hide_tek_window(void)
-{
-    TScreen *screen = &term->screen;
-
-    set_tek_visibility(False);
-    TekRefresh = (TekLink *) 0;
-    if (screen->TekEmu)
-	switch_modes(True);	/* does longjmp to vt mode */
-}
-#endif /* OPT_TEK4014 */
-
-static const char *
-skip_punct(const char *s)
-{
-    while (*s == '-' || *s == '/' || *s == '+' || *s == '#' || *s == '%') {
-	++s;
-    }
-    return s;
-}
-
-static int
-cmp_options(const void *a, const void *b)
-{
-    const char *s1 = skip_punct(((const OptionHelp *) a)->opt);
-    const char *s2 = skip_punct(((const OptionHelp *) b)->opt);
-    return strcmp(s1, s2);
-}
-
-static int
-cmp_resources(const void *a, const void *b)
-{
-    return strcmp(((const XrmOptionDescRec *) a)->option,
-		  ((const XrmOptionDescRec *) b)->option);
-}
-
-XrmOptionDescRec *
-sortedOptDescs(XrmOptionDescRec * descs, Cardinal res_count)
-{
-    static XrmOptionDescRec *res_array = 0;
-
-    if (res_array == 0) {
-	Cardinal j;
-
-	/* make a sorted index to 'resources' */
-	res_array = TypeCallocN(XrmOptionDescRec, res_count);
-	for (j = 0; j < res_count; j++)
-	    res_array[j] = descs[j];
-	qsort(res_array, res_count, sizeof(*res_array), cmp_resources);
-    }
-    return res_array;
-}
-
-/*
- * The first time this is called, construct sorted index to the main program's
- * list of options, taking into account the on/off options which will be
- * compressed into one token.  It's a lot simpler to do it this way than
- * maintain the list in sorted form with lots of ifdef's.
- */
-OptionHelp *
-sortedOpts(OptionHelp * options, XrmOptionDescRec * descs, Cardinal numDescs)
-{
-    static OptionHelp *opt_array = 0;
-
-    if (opt_array == 0) {
-	Cardinal opt_count, j;
-#if OPT_TRACE
-	Cardinal k;
-	XrmOptionDescRec *res_array = sortedOptDescs(descs, numDescs);
-	int code;
-	char *mesg;
-#else
-	(void) descs;
-	(void) numDescs;
-#endif
-
-	/* count 'options' and make a sorted index to it */
-	for (opt_count = 0; options[opt_count].opt != 0; ++opt_count) {
-	    ;
-	}
-	opt_array = TypeCallocN(OptionHelp, opt_count + 1);
-	for (j = 0; j < opt_count; j++)
-	    opt_array[j] = options[j];
-	qsort(opt_array, opt_count, sizeof(OptionHelp), cmp_options);
-
-	/* supply the "turn on/off" strings if needed */
-#if OPT_TRACE
-	for (j = 0; j < opt_count; j++) {
-	    if (!strncmp(opt_array[j].opt, "-/+", 3)) {
-		char *name = opt_array[j].opt + 3;
-		for (k = 0; k < numDescs; ++k) {
-		    char *value = res_array[k].value;
-		    if (res_array[k].option[0] == '-') {
-			code = -1;
-		    } else if (res_array[k].option[0] == '+') {
-			code = 1;
-		    } else {
-			code = 0;
-		    }
-		    if (x_strindex(opt_array[j].desc, "inhibit") != 0)
-			code = -code;
-		    if (code != 0
-			&& res_array[k].value != 0
-			&& !strcmp(name, res_array[k].option + 1)) {
-			if (((code < 0) && !strcmp(value, "on"))
-			    || ((code > 0) && !strcmp(value, "off"))
-			    || ((code > 0) && !strcmp(value, "0"))) {
-			    mesg = "turn on/off";
-			} else {
-			    mesg = "turn off/on";
-			}
-			if (strncmp(mesg, opt_array[j].desc, strlen(mesg))) {
-			    if (strncmp(opt_array[j].desc, "turn ", 5)) {
-				char *s = CastMallocN(char,
-						      strlen(mesg)
-						      + 1
-						      + strlen(opt_array[j].desc));
-				if (s != 0) {
-				    sprintf(s, "%s %s", mesg, opt_array[j].desc);
-				    opt_array[j].desc = s;
-				}
-			    } else {
-				TRACE(("OOPS "));
-			    }
-			}
-			TRACE(("%s: %s %s: %s (%s)\n",
-			       mesg,
-			       res_array[k].option,
-			       res_array[k].value,
-			       opt_array[j].opt,
-			       opt_array[j].desc));
-			break;
-		    }
-		}
-	    }
-	}
-#endif
-    }
-    return opt_array;
-}
-
-/*
- * Report the locale that xterm was started in.
- */
-char *
-xtermEnvLocale(void)
-{
-    static char *result;
-
-    if (result == 0) {
-	if ((result = getenv("LC_ALL")) == 0 || *result == '\0')
-	    if ((result = getenv("LC_CTYPE")) == 0 || *result == '\0')
-		if ((result = getenv("LANG")) == 0 || *result == '\0')
-		    result = "";
-	TRACE(("xtermEnvLocale ->%s\n", result));
-    }
-    return result;
-}
-
-char *
-xtermEnvEncoding(void)
-{
-    static char *result;
-
-    if (result == 0) {
-#ifdef HAVE_LANGINFO_CODESET
-	result = nl_langinfo(CODESET);
-#else
-	char *locale = xtermEnvLocale();
-	if (*locale == 0 || !strcmp(locale, "C") || !strcmp(locale, "POSIX")) {
-	    result = "ASCII";
-	} else {
-	    result = "ISO-8859-1";
-	}
-#endif
-	TRACE(("xtermEnvEncoding ->%s\n", result));
-    }
-    return result;
-}
-
-#if OPT_WIDE_CHARS
-/*
- * Tell whether xterm was started in a locale that uses UTF-8 encoding for
- * characters.  That environment is inherited by subprocesses and used in
- * various library calls.
- */
-Bool
-xtermEnvUTF8(void)
-{
-    static Bool init = False;
-    static Bool result = False;
-
-    if (!init) {
-	init = True;
-#ifdef HAVE_LANGINFO_CODESET
-	result = (strcmp(xtermEnvEncoding(), "UTF-8") == 0);
-#else
-	result = (strstr(xtermEnvLocale(), "UTF-8") != NULL);
-#endif
-	TRACE(("xtermEnvUTF8 ->%s\n", BtoS(result)));
-    }
-    return result;
-}
-#endif /* OPT_WIDE_CHARS */
-
-/*
- * Returns the version-string used in the "-v' message as well as a few other
- * places.  It is derived (when possible) from the __vendorversion__ symbol
- * that some newer imake configurations define.
- */
-char *
-xtermVersion(void)
-{
-    static char *result;
-    if (result == 0) {
-	char *vendor = __vendorversion__;
-	char first[BUFSIZ];
-	char second[BUFSIZ];
-
-	result = CastMallocN(char, strlen(vendor) + 9);
-	if (result == 0)
-	    result = vendor;
-	else {
-	    /* some vendors leave trash in this string */
-	    for (;;) {
-		if (!strncmp(vendor, "Version ", 8))
-		    vendor += 8;
-		else if (isspace(CharOf(*vendor)))
-		    ++vendor;
-		else
-		    break;
-	    }
-	    if (strlen(vendor) < BUFSIZ &&
-		sscanf(vendor, "%[0-9.] %[A-Za-z_0-9.]", first, second) == 2)
-		sprintf(result, "%s %s(%d)", second, first, XTERM_PATCH);
-	    else
-		sprintf(result, "%s(%d)", vendor, XTERM_PATCH);
-	}
-    }
-    return result;
-}