diff options
Diffstat (limited to 'nx-X11/programs/xterm/charproc.c.NX.original')
| -rw-r--r-- | nx-X11/programs/xterm/charproc.c.NX.original | 7300 |
1 files changed, 7300 insertions, 0 deletions
diff --git a/nx-X11/programs/xterm/charproc.c.NX.original b/nx-X11/programs/xterm/charproc.c.NX.original new file mode 100644 index 000000000..4ec8a33df --- /dev/null +++ b/nx-X11/programs/xterm/charproc.c.NX.original @@ -0,0 +1,7300 @@ +/* $XTermId: charproc.c,v 1.627 2005/11/13 23:10:35 tom Exp $ */ + +/* + * $Xorg: charproc.c,v 1.6 2001/02/09 02:06:02 xorgcvs Exp $ + */ + +/* $XFree86: xc/programs/xterm/charproc.c,v 3.177 2005/11/13 23:10:35 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 1988 The Open Group + +Permission to use, copy, modify, distribute, and sell this software and its +documentation for any purpose is hereby granted without fee, provided that +the above copyright notice appear in all copies and that both that +copyright notice and this permission notice appear in supporting +documentation. + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN +AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN +CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + +Except as contained in this notice, the name of The Open Group shall not be +used in advertising or otherwise to promote the sale, use or other dealings +in this Software without prior written authorization from The Open Group. + +*/ +/* + * Copyright 1987 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. + */ + +/**************************************************************************/ +/* */ +/* Copyright (c) 2001, 2007 NoMachine, http://www.nomachine.com/. */ +/* */ +/* NX-X11, NX protocol compression and NX extensions to this software */ +/* are copyright of NoMachine. Redistribution and use of the present */ +/* software is allowed according to terms specified in the file LICENSE */ +/* which comes in the source distribution. */ +/* */ +/* Check http://www.nomachine.com/licensing.html for applicability. */ +/* */ +/* NX and NoMachine are trademarks of NoMachine S.r.l. */ +/* */ +/* All rights reserved. */ +/* */ +/**************************************************************************/ + +/* charproc.c */ + +#include <version.h> +#include <xterm.h> + +#include <X11/Xatom.h> +#include <X11/Xutil.h> +#include <X11/cursorfont.h> +#include <X11/Xmu/Atoms.h> +#include <X11/Xmu/CharSet.h> +#include <X11/Xmu/Converters.h> + +#if OPT_INPUT_METHOD + +#if defined(HAVE_LIB_XAW) +#include <X11/Xaw/XawImP.h> +#elif defined(HAVE_LIB_XAW3D) +#include <X11/Xaw3d/XawImP.h> +#elif defined(HAVE_LIB_NEXTAW) +#include <X11/neXtaw/XawImP.h> +#elif defined(HAVE_LIB_XAWPLUS) +#include <X11/XawPlus/XawImP.h> +#endif + +#endif + +#if OPT_WIDE_CHARS +#include <wcwidth.h> +#include <precompose.h> +#ifdef HAVE_LANGINFO_CODESET +#include <langinfo.h> +#endif +#endif + +#if OPT_INPUT_METHOD +#include <X11/Xlocale.h> +#endif + +#include <stdio.h> +#include <ctype.h> + +#if defined(HAVE_SCHED_YIELD) +#include <sched.h> +#endif + +#include <VTparse.h> +#include <data.h> +#include <error.h> +#include <menu.h> +#include <main.h> +#include <fontutils.h> +#include <xcharmouse.h> +#include <charclass.h> +#include <xstrings.h> + +#if OPT_ZICONBEEP || OPT_TOOLBAR +#define HANDLE_STRUCT_NOTIFY 1 +#else +#define HANDLE_STRUCT_NOTIFY 0 +#endif + +static IChar doinput(void); +static int set_character_class(char *s); +static void FromAlternate(TScreen * screen); +static void RequestResize(XtermWidget termw, int rows, int cols, int text); +static void SwitchBufs(TScreen * screen); +static void ToAlternate(TScreen * screen); +static void VTallocbuf(void); +static void WriteText(TScreen * screen, + PAIRED_CHARS(Char * str, Char * str2), + Cardinal len); +static void ansi_modes(XtermWidget termw, + void (*func) (unsigned *p, unsigned mask)); +static void bitclr(unsigned *p, unsigned mask); +static void bitcpy(unsigned *p, unsigned q, unsigned mask); +static void bitset(unsigned *p, unsigned mask); +static void dpmodes(XtermWidget termw, void (*func) (unsigned *p, unsigned mask)); +static void restoremodes(XtermWidget termw); +static void savemodes(XtermWidget termw); +static void unparseputn(unsigned int n, int fd); +static void window_ops(XtermWidget termw); + +#define DoStartBlinking(s) ((s)->cursor_blink ^ (s)->cursor_blink_esc) + +#if OPT_BLINK_CURS || OPT_BLINK_TEXT +static void HandleBlinking(XtPointer closure, XtIntervalId * id); +static void StartBlinking(TScreen * screen); +static void StopBlinking(TScreen * screen); +#else +#define StartBlinking(screen) /* nothing */ +#define StopBlinking(screen) /* nothing */ +#endif + +#if OPT_INPUT_METHOD +static void PreeditPosition(TScreen * screen); +#endif + +#define DEFAULT -1 +#define BELLSUPPRESSMSEC 200 + +static int nparam; +static ANSI reply; +static int param[NPARAM]; + +static jmp_buf vtjmpbuf; + +/* event handlers */ +static void HandleBell PROTO_XT_ACTIONS_ARGS; +static void HandleIgnore PROTO_XT_ACTIONS_ARGS; +static void HandleKeymapChange PROTO_XT_ACTIONS_ARGS; +static void HandleVisualBell PROTO_XT_ACTIONS_ARGS; +#if HANDLE_STRUCT_NOTIFY +static void HandleStructNotify PROTO_XT_EV_HANDLER_ARGS; +#endif + +/* + * NOTE: VTInitialize zeros out the entire ".screen" component of the + * XtermWidget, so make sure to add an assignment statement in VTInitialize() + * for each new ".screen" field added to this resource list. + */ + +/* Defaults */ +#if OPT_ISO_COLORS + +/* + * If we default to colorMode enabled, compile-in defaults for the ANSI colors. + */ +#if DFT_COLORMODE +#define DFT_COLOR(name) name +#else +#define DFT_COLOR(name) XtDefaultForeground +#endif +#endif + +static char *_Font_Selected_ = "yes"; /* string is arbitrary */ + +static char defaultTranslations[] = +"\ + Shift <KeyPress> Prior:scroll-back(1,halfpage) \n\ + Shift <KeyPress> Next:scroll-forw(1,halfpage) \n\ + Shift <KeyPress> Select:select-cursor-start() select-cursor-end(PRIMARY, CUT_BUFFER0) \n\ + Shift <KeyPress> Insert:insert-selection(PRIMARY, CUT_BUFFER0) \n\ +" +#if OPT_SHIFT_FONTS +"\ + Shift~Ctrl <KeyPress> KP_Add:larger-vt-font() \n\ + Shift Ctrl <KeyPress> KP_Add:smaller-vt-font() \n\ + Shift <KeyPress> KP_Subtract:smaller-vt-font() \n\ +" +#endif +"\ + ~Meta <KeyPress>:insert-seven-bit() \n\ + Meta <KeyPress>:insert-eight-bit() \n\ + !Ctrl <Btn1Down>:popup-menu(mainMenu) \n\ + !Lock Ctrl <Btn1Down>:popup-menu(mainMenu) \n\ + !Lock Ctrl @Num_Lock <Btn1Down>:popup-menu(mainMenu) \n\ + ! @Num_Lock Ctrl <Btn1Down>:popup-menu(mainMenu) \n\ + ~Meta <Btn1Down>:select-start() \n\ + ~Meta <Btn1Motion>:select-extend() \n\ + !Ctrl <Btn2Down>:popup-menu(vtMenu) \n\ + !Lock Ctrl <Btn2Down>:popup-menu(vtMenu) \n\ + !Lock Ctrl @Num_Lock <Btn2Down>:popup-menu(vtMenu) \n\ + ! @Num_Lock Ctrl <Btn2Down>:popup-menu(vtMenu) \n\ + ~Ctrl ~Meta <Btn2Down>:ignore() \n\ + Meta <Btn2Down>:clear-saved-lines() \n\ + ~Ctrl ~Meta <Btn2Up>:insert-selection(PRIMARY, CUT_BUFFER0) \n\ + !Ctrl <Btn3Down>:popup-menu(fontMenu) \n\ + !Lock Ctrl <Btn3Down>:popup-menu(fontMenu) \n\ + !Lock Ctrl @Num_Lock <Btn3Down>:popup-menu(fontMenu) \n\ + ! @Num_Lock Ctrl <Btn3Down>:popup-menu(fontMenu) \n\ + ~Ctrl ~Meta <Btn3Down>:start-extend() \n\ + ~Meta <Btn3Motion>:select-extend() \n\ + Ctrl <Btn4Down>:scroll-back(1,halfpage,m) \n\ + Lock Ctrl <Btn4Down>:scroll-back(1,halfpage,m) \n\ + Lock @Num_Lock Ctrl <Btn4Down>:scroll-back(1,halfpage,m) \n\ + @Num_Lock Ctrl <Btn4Down>:scroll-back(1,halfpage,m) \n\ + <Btn4Down>:scroll-back(5,line,m) \n\ + Ctrl <Btn5Down>:scroll-forw(1,halfpage,m) \n\ + Lock Ctrl <Btn5Down>:scroll-forw(1,halfpage,m) \n\ + Lock @Num_Lock Ctrl <Btn5Down>:scroll-forw(1,halfpage,m) \n\ + @Num_Lock Ctrl <Btn5Down>:scroll-forw(1,halfpage,m) \n\ + <Btn5Down>:scroll-forw(5,line,m) \n\ + <BtnUp>:select-end(PRIMARY, CUT_BUFFER0) \n\ + <BtnDown>:ignore() \ +"; /* PROCURA added "Meta <Btn2Down>:clear-saved-lines()" */ +/* *INDENT-OFF* */ +static XtActionsRec actionsList[] = { + { "allow-send-events", HandleAllowSends }, + { "bell", HandleBell }, + { "clear-saved-lines", HandleClearSavedLines }, + { "create-menu", HandleCreateMenu }, + { "dired-button", DiredButton }, + { "hard-reset", HandleHardReset }, + { "ignore", HandleIgnore }, + { "insert", HandleKeyPressed }, /* alias for insert-seven-bit */ + { "insert-eight-bit", HandleEightBitKeyPressed }, + { "insert-selection", HandleInsertSelection }, + { "insert-seven-bit", HandleKeyPressed }, + { "interpret", HandleInterpret }, + { "keymap", HandleKeymapChange }, + { "popup-menu", HandlePopupMenu }, + { "print", HandlePrintScreen }, + { "print-redir", HandlePrintControlMode }, + { "quit", HandleQuit }, + { "redraw", HandleRedraw }, + { "delete-is-del", HandleDeleteIsDEL }, + { "scroll-back", HandleScrollBack }, + { "scroll-forw", HandleScrollForward }, + { "secure", HandleSecure }, + { "select-cursor-end", HandleKeyboardSelectEnd }, + { "select-cursor-extend", HandleKeyboardSelectExtend }, + { "select-cursor-start", HandleKeyboardSelectStart }, + { "select-end", HandleSelectEnd }, + { "select-extend", HandleSelectExtend }, + { "select-set", HandleSelectSet }, + { "select-start", HandleSelectStart }, + { "send-signal", HandleSendSignal }, + { "set-8-bit-control", Handle8BitControl }, + { "set-allow132", HandleAllow132 }, + { "set-altscreen", HandleAltScreen }, + { "set-appcursor", HandleAppCursor }, + { "set-appkeypad", HandleAppKeypad }, + { "set-autolinefeed", HandleAutoLineFeed }, + { "set-autowrap", HandleAutoWrap }, + { "set-backarrow", HandleBackarrow }, + { "set-cursesemul", HandleCursesEmul }, + { "set-jumpscroll", HandleJumpscroll }, + { "set-old-function-keys", HandleOldFunctionKeys }, + { "set-marginbell", HandleMarginBell }, + { "set-reverse-video", HandleReverseVideo }, + { "set-reversewrap", HandleReverseWrap }, + { "set-scroll-on-key", HandleScrollKey }, + { "set-scroll-on-tty-output", HandleScrollTtyOutput }, + { "set-scrollbar", HandleScrollbar }, + { "set-sun-function-keys", HandleSunFunctionKeys }, + { "set-sun-keyboard", HandleSunKeyboard }, + { "set-titeInhibit", HandleTiteInhibit }, + { "set-visual-bell", HandleSetVisualBell }, + { "set-pop-on-bell", HandleSetPopOnBell }, + { "set-vt-font", HandleSetFont }, + { "soft-reset", HandleSoftReset }, + { "start-cursor-extend", HandleKeyboardStartExtend }, + { "start-extend", HandleStartExtend }, + { "string", HandleStringEvent }, + { "vi-button", ViButton }, + { "visual-bell", HandleVisualBell }, +#ifdef ALLOWLOGGING + { "set-logging", HandleLogging }, +#endif +#if OPT_BLINK_CURS + { "set-cursorblink", HandleCursorBlink }, +#endif +#if OPT_BOX_CHARS + { "set-font-linedrawing", HandleFontBoxChars }, +#endif +#if OPT_DABBREV + { "dabbrev-expand", HandleDabbrevExpand }, +#endif +#if OPT_DEC_CHRSET + { "set-font-doublesize", HandleFontDoublesize }, +#endif +#if OPT_DEC_SOFTFONT + { "set-font-loading", HandleFontLoading }, +#endif +#if OPT_HP_FUNC_KEYS + { "set-hp-function-keys", HandleHpFunctionKeys }, +#endif +#if OPT_LOAD_VTFONTS + { "load-vt-fonts", HandleLoadVTFonts }, +#endif +#if OPT_MAXIMIZE + { "deiconify", HandleDeIconify }, + { "iconify", HandleIconify }, + { "maximize", HandleMaximize }, + { "restore", HandleRestoreSize }, +#endif +#if OPT_NUM_LOCK + { "alt-sends-escape", HandleAltEsc }, + { "meta-sends-escape", HandleMetaEsc }, + { "set-num-lock", HandleNumLock }, +#endif +#if OPT_READLINE + { "readline-button", ReadLineButton }, +#endif +#if OPT_RENDERFONT + { "set-render-font", HandleRenderFont }, +#endif +#if OPT_SCO_FUNC_KEYS + { "set-sco-function-keys", HandleScoFunctionKeys }, +#endif +#if OPT_SHIFT_FONTS + { "larger-vt-font", HandleLargerFont }, + { "smaller-vt-font", HandleSmallerFont }, +#endif +#if OPT_TEK4014 + { "set-terminal-type", HandleSetTerminalType }, + { "set-visibility", HandleVisibility }, + { "set-tek-text", HandleSetTekText }, + { "tek-page", HandleTekPage }, + { "tek-reset", HandleTekReset }, + { "tek-copy", HandleTekCopy }, +#endif +#if OPT_TOOLBAR + { "set-toolbar", HandleToolbar }, +#endif +#if OPT_WIDE_CHARS + { "set-utf8-mode", HandleUTF8Mode }, +#endif +}; +/* *INDENT-ON* */ + +static XtResource resources[] = +{ + Bres(XtNallowSendEvents, XtCAllowSendEvents, screen.allowSendEvent0, False), + Bres(XtNallowWindowOps, XtCAllowWindowOps, screen.allowWindowOp0, True), + Bres(XtNalwaysHighlight, XtCAlwaysHighlight, screen.always_highlight, False), + Bres(XtNappcursorDefault, XtCAppcursorDefault, misc.appcursorDefault, False), + Bres(XtNappkeypadDefault, XtCAppkeypadDefault, misc.appkeypadDefault, False), + Bres(XtNautoWrap, XtCAutoWrap, misc.autoWrap, True), + Bres(XtNawaitInput, XtCAwaitInput, screen.awaitInput, False), + Bres(XtNfreeBoldBox, XtCFreeBoldBox, screen.free_bold_box, False), + Bres(XtNbackarrowKey, XtCBackarrowKey, screen.backarrow_key, True), + Bres(XtNbellOnReset, XtCBellOnReset, screen.bellOnReset, True), + Bres(XtNboldMode, XtCBoldMode, screen.bold_mode, True), + Bres(XtNbrokenSelections, XtCBrokenSelections, screen.brokenSelections, False), + Bres(XtNc132, XtCC132, screen.c132, False), + Bres(XtNcurses, XtCCurses, screen.curses, False), + Bres(XtNcutNewline, XtCCutNewline, screen.cutNewline, True), + Bres(XtNcutToBeginningOfLine, XtCCutToBeginningOfLine, + screen.cutToBeginningOfLine, True), + Bres(XtNdeleteIsDEL, XtCDeleteIsDEL, screen.delete_is_del, DEFDELETE_DEL), + Bres(XtNdynamicColors, XtCDynamicColors, misc.dynamicColors, True), + Bres(XtNeightBitControl, XtCEightBitControl, screen.control_eight_bits, False), + Bres(XtNeightBitInput, XtCEightBitInput, screen.input_eight_bits, True), + Bres(XtNeightBitOutput, XtCEightBitOutput, screen.output_eight_bits, True), + Bres(XtNhighlightSelection, XtCHighlightSelection, + screen.highlight_selection, False), + Bres(XtNhpLowerleftBugCompat, XtCHpLowerleftBugCompat, screen.hp_ll_bc, False), + Bres(XtNi18nSelections, XtCI18nSelections, screen.i18nSelections, True), + Bres(XtNjumpScroll, XtCJumpScroll, screen.jumpscroll, True), + Bres(XtNloginShell, XtCLoginShell, misc.login_shell, False), + Bres(XtNmarginBell, XtCMarginBell, screen.marginbell, False), + Bres(XtNmetaSendsEscape, XtCMetaSendsEscape, screen.meta_sends_esc, False), + Bres(XtNmultiScroll, XtCMultiScroll, screen.multiscroll, False), + Bres(XtNoldXtermFKeys, XtCOldXtermFKeys, screen.old_fkeys, False), + Bres(XtNpopOnBell, XtCPopOnBell, screen.poponbell, False), + Bres(XtNprinterAutoClose, XtCPrinterAutoClose, screen.printer_autoclose, False), + Bres(XtNprinterExtent, XtCPrinterExtent, screen.printer_extent, False), + Bres(XtNprinterFormFeed, XtCPrinterFormFeed, screen.printer_formfeed, False), + Bres(XtNreverseVideo, XtCReverseVideo, misc.re_verse, False), + Bres(XtNreverseWrap, XtCReverseWrap, misc.reverseWrap, False), + Bres(XtNscrollBar, XtCScrollBar, misc.scrollbar, False), + Bres(XtNscrollKey, XtCScrollCond, screen.scrollkey, False), + Bres(XtNscrollTtyOutput, XtCScrollCond, screen.scrollttyoutput, True), + Bres(XtNsignalInhibit, XtCSignalInhibit, misc.signalInhibit, False), + Bres(XtNtiteInhibit, XtCTiteInhibit, misc.titeInhibit, False), + Bres(XtNtiXtraScroll, XtCTiXtraScroll, misc.tiXtraScroll, False), + Bres(XtNtrimSelection, XtCTrimSelection, screen.trim_selection, False), + Bres(XtNunderLine, XtCUnderLine, screen.underline, True), + Bres(XtNvisualBell, XtCVisualBell, screen.visualbell, False), + + Ires(XtNbellSuppressTime, XtCBellSuppressTime, screen.bellSuppressTime, BELLSUPPRESSMSEC), + Ires(XtNinternalBorder, XtCBorderWidth, screen.border, DEFBORDER), + Ires(XtNlimitResize, XtCLimitResize, misc.limit_resize, 1), + Ires(XtNmultiClickTime, XtCMultiClickTime, screen.multiClickTime, MULTICLICKTIME), + Ires(XtNnMarginBell, XtCColumn, screen.nmarginbell, N_MARGINBELL), + Ires(XtNprinterControlMode, XtCPrinterControlMode, + screen.printer_controlmode, 0), + Ires(XtNvisualBellDelay, XtCVisualBellDelay, screen.visualBellDelay, 100), + Ires(XtNsaveLines, XtCSaveLines, screen.savelines, SAVELINES), + Ires(XtNscrollBarBorder, XtCScrollBarBorder, screen.scrollBarBorder, 1), + Ires(XtNscrollLines, XtCScrollLines, screen.scrolllines, SCROLLLINES), + + Sres(XtNfont1, XtCFont1, screen.MenuFontName(fontMenu_font1), NULL), + Sres(XtNfont2, XtCFont2, screen.MenuFontName(fontMenu_font2), NULL), + Sres(XtNfont3, XtCFont3, screen.MenuFontName(fontMenu_font3), NULL), + Sres(XtNfont4, XtCFont4, screen.MenuFontName(fontMenu_font4), NULL), + Sres(XtNfont5, XtCFont5, screen.MenuFontName(fontMenu_font5), NULL), + Sres(XtNfont6, XtCFont6, screen.MenuFontName(fontMenu_font6), NULL), + Sres(XtNanswerbackString, XtCAnswerbackString, screen.answer_back, ""), + Sres(XtNboldFont, XtCBoldFont, misc.default_font.f_b, DEFBOLDFONT), + Sres(XtNcharClass, XtCCharClass, screen.charClass, NULL), + Sres(XtNdecTerminalID, XtCDecTerminalID, screen.term_id, DFT_DECID), + Sres(XtNfont, XtCFont, misc.default_font.f_n, DEFFONT), + Sres(XtNgeometry, XtCGeometry, misc.geo_metry, NULL), + Sres(XtNkeyboardDialect, XtCKeyboardDialect, screen.keyboard_dialect, DFT_KBD_DIALECT), + Sres(XtNprinterCommand, XtCPrinterCommand, screen.printer_command, ""), + Sres(XtNtekGeometry, XtCGeometry, misc.T_geometry, NULL), + + Tres(XtNcursorColor, XtCCursorColor, TEXT_CURSOR, XtDefaultForeground), + Tres(XtNforeground, XtCForeground, TEXT_FG, XtDefaultForeground), + Tres(XtNpointerColor, XtCPointerColor, MOUSE_FG, XtDefaultForeground), + Tres(XtNbackground, XtCBackground, TEXT_BG, XtDefaultBackground), + Tres(XtNpointerColorBackground, XtCBackground, MOUSE_BG, XtDefaultBackground), + + {XtNresizeGravity, XtCResizeGravity, XtRGravity, sizeof(XtGravity), + XtOffsetOf(XtermWidgetRec, misc.resizeGravity), + XtRImmediate, (XtPointer) SouthWestGravity}, + + {XtNpointerShape, XtCCursor, XtRCursor, sizeof(Cursor), + XtOffsetOf(XtermWidgetRec, screen.pointer_cursor), + XtRString, (XtPointer) "xterm"}, + +#ifdef ALLOWLOGGING + Bres(XtNlogInhibit, XtCLogInhibit, misc.logInhibit, False), + Bres(XtNlogging, XtCLogging, misc.log_on, False), + Sres(XtNlogFile, XtCLogfile, screen.logfile, NULL), +#endif + +#ifndef NO_ACTIVE_ICON + Bres("activeIcon", "ActiveIcon", misc.active_icon, False), + Ires("iconBorderWidth", XtCBorderWidth, misc.icon_border_width, 2), + Fres("iconFont", "IconFont", screen.fnt_icon, XtDefaultFont), + Cres("iconBorderColor", XtCBorderColor, misc.icon_border_pixel, XtDefaultBackground), +#endif /* NO_ACTIVE_ICON */ + +#if OPT_BLINK_CURS + Bres(XtNcursorBlink, XtCCursorBlink, screen.cursor_blink, False), +#endif + +#if OPT_BLINK_TEXT + Bres(XtNshowBlinkAsBold, XtCCursorBlink, screen.blink_as_bold, DEFBLINKASBOLD), +#endif + +#if OPT_BLINK_CURS || OPT_BLINK_TEXT + Ires(XtNcursorOnTime, XtCCursorOnTime, screen.blink_on, 600), + Ires(XtNcursorOffTime, XtCCursorOffTime, screen.blink_off, 300), +#endif + +#if OPT_BOX_CHARS + Bres(XtNforceBoxChars, XtCForceBoxChars, screen.force_box_chars, False), + Bres(XtNshowMissingGlyphs, XtCShowMissingGlyphs, screen.force_all_chars, False), +#endif + +#if OPT_BROKEN_OSC + Bres(XtNbrokenLinuxOSC, XtCBrokenLinuxOSC, screen.brokenLinuxOSC, True), +#endif + +#if OPT_BROKEN_ST + Bres(XtNbrokenStringTerm, XtCBrokenStringTerm, screen.brokenStringTerm, True), +#endif + +#if OPT_C1_PRINT + Bres(XtNallowC1Printable, XtCAllowC1Printable, screen.c1_printable, False), +#endif + +#if OPT_DEC_CHRSET + Bres(XtNfontDoublesize, XtCFontDoublesize, screen.font_doublesize, True), + Ires(XtNcacheDoublesize, XtCCacheDoublesize, screen.cache_doublesize, NUM_CHRSET), +#endif + +#if OPT_HIGHLIGHT_COLOR + Tres(XtNhighlightColor, XtCHighlightColor, HIGHLIGHT_BG, XtDefaultForeground), +#endif /* OPT_HIGHLIGHT_COLOR */ + +#if OPT_INPUT_METHOD + Bres(XtNopenIm, XtCOpenIm, misc.open_im, True), + Sres(XtNinputMethod, XtCInputMethod, misc.input_method, NULL), + Sres(XtNpreeditType, XtCPreeditType, misc.preedit_type, + "OverTheSpot,Root"), +#endif + +#if OPT_ISO_COLORS + Bres(XtNboldColors, XtCColorMode, screen.boldColors, True), + Ires(XtNveryBoldColors, XtCVeryBoldColors, screen.veryBoldColors, 0), + Bres(XtNcolorMode, XtCColorMode, screen.colorMode, DFT_COLORMODE), + + Bres(XtNcolorAttrMode, XtCColorAttrMode, screen.colorAttrMode, False), + Bres(XtNcolorBDMode, XtCColorAttrMode, screen.colorBDMode, False), + Bres(XtNcolorBLMode, XtCColorAttrMode, screen.colorBLMode, False), + Bres(XtNcolorRVMode, XtCColorAttrMode, screen.colorRVMode, False), + Bres(XtNcolorULMode, XtCColorAttrMode, screen.colorULMode, False), + Bres(XtNitalicULMode, XtCColorAttrMode, screen.italicULMode, False), + + COLOR_RES("0", screen.Acolors[COLOR_0], DFT_COLOR("black")), + COLOR_RES("1", screen.Acolors[COLOR_1], DFT_COLOR("red3")), + COLOR_RES("2", screen.Acolors[COLOR_2], DFT_COLOR("green3")), + COLOR_RES("3", screen.Acolors[COLOR_3], DFT_COLOR("yellow3")), + COLOR_RES("4", screen.Acolors[COLOR_4], DFT_COLOR(DEF_COLOR4)), + COLOR_RES("5", screen.Acolors[COLOR_5], DFT_COLOR("magenta3")), + COLOR_RES("6", screen.Acolors[COLOR_6], DFT_COLOR("cyan3")), + COLOR_RES("7", screen.Acolors[COLOR_7], DFT_COLOR("gray90")), + COLOR_RES("8", screen.Acolors[COLOR_8], DFT_COLOR("gray50")), + COLOR_RES("9", screen.Acolors[COLOR_9], DFT_COLOR("red")), + COLOR_RES("10", screen.Acolors[COLOR_10], DFT_COLOR("green")), + COLOR_RES("11", screen.Acolors[COLOR_11], DFT_COLOR("yellow")), + COLOR_RES("12", screen.Acolors[COLOR_12], DFT_COLOR(DEF_COLOR12)), + COLOR_RES("13", screen.Acolors[COLOR_13], DFT_COLOR("magenta")), + COLOR_RES("14", screen.Acolors[COLOR_14], DFT_COLOR("cyan")), + COLOR_RES("15", screen.Acolors[COLOR_15], DFT_COLOR("white")), + COLOR_RES("BD", screen.Acolors[COLOR_BD], DFT_COLOR(XtDefaultForeground)), + COLOR_RES("BL", screen.Acolors[COLOR_BL], DFT_COLOR(XtDefaultForeground)), + COLOR_RES("UL", screen.Acolors[COLOR_UL], DFT_COLOR(XtDefaultForeground)), + COLOR_RES("RV", screen.Acolors[COLOR_RV], DFT_COLOR(XtDefaultForeground)), + +#if !OPT_COLOR_RES2 +#if OPT_256_COLORS +# include <256colres.h> +#elif OPT_88_COLORS +# include <88colres.h> +#endif +#endif /* !OPT_COLOR_RES2 */ + +#endif /* OPT_ISO_COLORS */ + +#if OPT_MOD_FKEYS + Ires(XtNmodifyCursorKeys, XtCModifyCursorKeys, + keyboard.modify_cursor_keys, 2), +#endif + +#if OPT_NUM_LOCK + Bres(XtNalwaysUseMods, XtCAlwaysUseMods, misc.alwaysUseMods, False), + Bres(XtNnumLock, XtCNumLock, misc.real_NumLock, True), +#endif + +#if OPT_PRINT_COLORS + Ires(XtNprintAttributes, XtCPrintAttributes, screen.print_attributes, 1), +#endif + +#if OPT_SHIFT_FONTS + Bres(XtNshiftFonts, XtCShiftFonts, misc.shift_fonts, True), +#endif + +#if OPT_SUNPC_KBD + Ires(XtNctrlFKeys, XtCCtrlFKeys, misc.ctrl_fkeys, 10), +#endif + +#if OPT_TEK4014 + Bres(XtNtekInhibit, XtCTekInhibit, misc.tekInhibit, False), + Bres(XtNtekSmall, XtCTekSmall, misc.tekSmall, False), + Bres(XtNtekStartup, XtCTekStartup, screen.TekEmu, False), +#endif + +#if OPT_TOOLBAR + Wres(XtNmenuBar, XtCMenuBar, VT100_TB_INFO(menu_bar), 0), + Ires(XtNmenuHeight, XtCMenuHeight, VT100_TB_INFO(menu_height), 25), +#endif + +#if OPT_WIDE_CHARS + Ires(XtNutf8, XtCUtf8, screen.utf8_mode, uDefault), + Bres(XtNwideChars, XtCWideChars, screen.wide_chars, False), + Bres(XtNmkWidth, XtCMkWidth, misc.mk_width, False), + Bres(XtNcjkWidth, XtCCjkWidth, misc.cjk_width, False), + Bres(XtNvt100Graphics, XtCVT100Graphics, screen.vt100_graphics, True), + Sres(XtNwideBoldFont, XtCWideBoldFont, misc.default_font.f_wb, DEFWIDEBOLDFONT), + Sres(XtNwideFont, XtCWideFont, misc.default_font.f_w, DEFWIDEFONT), +#endif + +#if OPT_LUIT_PROG + Sres(XtNlocale, XtCLocale, misc.locale_str, "medium"), + Sres(XtNlocaleFilter, XtCLocaleFilter, misc.localefilter, DEFLOCALEFILTER), +#endif + +#if OPT_INPUT_METHOD + Sres(XtNximFont, XtCXimFont, misc.f_x, DEFXIMFONT), +#endif + +#if OPT_XMC_GLITCH + Bres(XtNxmcInline, XtCXmcInline, screen.xmc_inline, False), + Bres(XtNxmcMoveSGR, XtCXmcMoveSGR, screen.move_sgr_ok, True), + Ires(XtNxmcAttributes, XtCXmcAttributes, screen.xmc_attributes, 1), + Ires(XtNxmcGlitch, XtCXmcGlitch, screen.xmc_glitch, 0), +#endif + +#ifdef SCROLLBAR_RIGHT + Bres(XtNrightScrollBar, XtCRightScrollBar, misc.useRight, False), +#endif + +#if OPT_RENDERFONT + Dres(XtNfaceSize, XtCFaceSize, misc.face_size, DEFFACESIZE), + Sres(XtNfaceName, XtCFaceName, misc.face_name, DEFFACENAME), + Sres(XtNfaceNameDoublesize, XtCFaceNameDoublesize, misc.face_wide_name, DEFFACENAME), + Bres(XtNrenderFont, XtCRenderFont, misc.render_font, True), +#endif +}; + +static Boolean VTSetValues(Widget cur, Widget request, Widget new_arg, + ArgList args, Cardinal *num_args); +static void VTClassInit(void); +static void VTDestroy(Widget w); +static void VTExpose(Widget w, XEvent * event, Region region); +static void VTInitialize(Widget wrequest, Widget new_arg, ArgList args, + Cardinal *num_args); +static void VTRealize(Widget w, XtValueMask * valuemask, + XSetWindowAttributes * values); +static void VTResize(Widget w); + +#if OPT_I18N_SUPPORT && OPT_INPUT_METHOD +static void VTInitI18N(void); +#endif + +#ifdef VMS +globaldef { + "xtermclassrec" +} noshare + +#else +static +#endif /* VMS */ +WidgetClassRec xtermClassRec = +{ + { +/* core_class fields */ + (WidgetClass) & widgetClassRec, /* superclass */ + "VT100", /* class_name */ + sizeof(XtermWidgetRec), /* widget_size */ + VTClassInit, /* class_initialize */ + NULL, /* class_part_initialize */ + False, /* class_inited */ + VTInitialize, /* initialize */ + NULL, /* initialize_hook */ + VTRealize, /* realize */ + actionsList, /* actions */ + XtNumber(actionsList), /* num_actions */ + resources, /* resources */ + XtNumber(resources), /* num_resources */ + NULLQUARK, /* xrm_class */ + True, /* compress_motion */ + False, /* compress_exposure */ + True, /* compress_enterleave */ + False, /* visible_interest */ + VTDestroy, /* destroy */ + VTResize, /* resize */ + VTExpose, /* expose */ + VTSetValues, /* set_values */ + NULL, /* set_values_hook */ + XtInheritSetValuesAlmost, /* set_values_almost */ + NULL, /* get_values_hook */ + NULL, /* accept_focus */ + XtVersion, /* version */ + NULL, /* callback_offsets */ + defaultTranslations, /* tm_table */ + XtInheritQueryGeometry, /* query_geometry */ + XtInheritDisplayAccelerator, /* display_accelerator */ + NULL /* extension */ + } +}; + +#ifdef VMS +globaldef { + "xtermwidgetclass" +} +noshare +#endif /* VMS */ +WidgetClass xtermWidgetClass = (WidgetClass) & xtermClassRec; + +/* + * Add input-actions for widgets that are overlooked (scrollbar and toolbar): + * + * a) Sometimes the scrollbar passes through translations, sometimes it + * doesn't. We add the KeyPress translations here, just to be sure. + * b) In the normal (non-toolbar) configuration, the xterm widget covers + * almost all of the window. With a toolbar, there's a relatively + * large area that the user would expect to enter keystrokes since the + * program can get the focus. + */ +void +xtermAddInput(Widget w) +{ +#if OPT_TOOLBAR + /* *INDENT-OFF* */ + XtActionsRec input_actions[] = { + { "insert", HandleKeyPressed }, /* alias */ + { "insert-eight-bit", HandleEightBitKeyPressed }, + { "insert-seven-bit", HandleKeyPressed }, + { "secure", HandleSecure }, + { "string", HandleStringEvent }, + { "scroll-back", HandleScrollBack }, + { "scroll-forw", HandleScrollForward }, + { "select-cursor-end", HandleKeyboardSelectEnd }, + { "select-cursor-extend", HandleKeyboardSelectExtend }, + { "select-cursor-start", HandleKeyboardSelectStart }, + { "insert-selection", HandleInsertSelection }, + { "select-start", HandleSelectStart }, + { "select-extend", HandleSelectExtend }, + { "start-extend", HandleStartExtend }, + { "select-end", HandleSelectEnd }, + { "clear-saved-lines", HandleClearSavedLines }, + { "popup-menu", HandlePopupMenu }, + { "bell", HandleBell }, + { "ignore", HandleIgnore }, +#if OPT_DABBREV + { "dabbrev-expand", HandleDabbrevExpand }, +#endif +#if OPT_SHIFT_FONTS + { "larger-vt-font", HandleLargerFont }, + { "smaller-vt-font", HandleSmallerFont }, +#endif + }; + /* *INDENT-ON* */ + + XtAppAddActions(app_con, input_actions, XtNumber(input_actions)); +#endif + XtAugmentTranslations(w, XtParseTranslationTable(defaultTranslations)); +} + +#if OPT_ISO_COLORS +/* + * The terminal's foreground and background colors are set via two mechanisms: + * text (cur_foreground, cur_background values that are passed down to + * XDrawImageString and XDrawString) + * area (X11 graphics context used in XClearArea and XFillRectangle) + */ +void +SGR_Foreground(int color) +{ + TScreen *screen = &term->screen; + Pixel fg; + + if (color >= 0) { + term->flags |= FG_COLOR; + } else { + term->flags &= ~FG_COLOR; + } + fg = getXtermForeground(term->flags, color); + term->cur_foreground = color; + + XSetForeground(screen->display, NormalGC(screen), fg); + XSetBackground(screen->display, ReverseGC(screen), fg); + + if (NormalGC(screen) != NormalBoldGC(screen)) { + XSetForeground(screen->display, NormalBoldGC(screen), fg); + XSetBackground(screen->display, ReverseBoldGC(screen), fg); + } +} + +void +SGR_Background(int color) +{ + TScreen *screen = &term->screen; + Pixel bg; + + /* + * An indexing operation may have set screen->scroll_amt, which would + * normally result in calling FlushScroll() in WriteText(). However, + * if we're changing the background color now, then the new value + * should not apply to the pending blank lines. + */ + if (screen->scroll_amt && (color != term->cur_background)) + FlushScroll(screen); + + if (color >= 0) { + term->flags |= BG_COLOR; + } else { + term->flags &= ~BG_COLOR; + } + bg = getXtermBackground(term->flags, color); + term->cur_background = color; + + XSetBackground(screen->display, NormalGC(screen), bg); + XSetForeground(screen->display, ReverseGC(screen), bg); + + if (NormalGC(screen) != NormalBoldGC(screen)) { + XSetBackground(screen->display, NormalBoldGC(screen), bg); + XSetForeground(screen->display, ReverseBoldGC(screen), bg); + } +} + +/* Invoked after updating bold/underline flags, computes the extended color + * index to use for foreground. (See also 'extract_fg()'). + */ +static void +setExtendedFG(void) +{ + int fg = term->sgr_foreground; + + if (term->screen.colorAttrMode + || (fg < 0)) { + if (term->screen.colorULMode && (term->flags & UNDERLINE)) + fg = COLOR_UL; + if (term->screen.colorBDMode && (term->flags & BOLD)) + fg = COLOR_BD; + if (term->screen.colorBLMode && (term->flags & BLINK)) + fg = COLOR_BL; + } + + /* This implements the IBM PC-style convention of 8-colors, with one + * bit for bold, thus mapping the 0-7 codes to 8-15. It won't make + * much sense for 16-color applications, but we keep it to retain + * compatiblity with ANSI-color applications. + */ +#if OPT_PC_COLORS /* XXXJTL should be settable at runtime (resource or OSC?) */ + if (term->screen.boldColors + && (!term->sgr_extended) + && (fg >= 0) + && (fg < 8) + && (term->flags & BOLD)) + fg |= 8; +#endif + + SGR_Foreground(fg); +} + +/* Invoked after updating inverse flag, computes the extended color + * index to use for background. (See also 'extract_bg()'). + */ +static void +setExtendedBG(void) +{ + int bg = term->sgr_background; + + if (term->screen.colorAttrMode + || (bg < 0)) { + if (term->screen.colorRVMode && (term->flags & INVERSE)) + bg = COLOR_RV; + } + + SGR_Background(bg); +} + +static void +reset_SGR_Foreground(void) +{ + term->sgr_foreground = -1; + term->sgr_extended = 0; + setExtendedFG(); +} + +static void +reset_SGR_Background(void) +{ + term->sgr_background = -1; + setExtendedBG(); +} + +static void +reset_SGR_Colors(void) +{ + reset_SGR_Foreground(); + reset_SGR_Background(); +} +#endif /* OPT_ISO_COLORS */ + +void +resetCharsets(TScreen * screen) +{ + TRACE(("resetCharsets\n")); + + screen->gsets[0] = 'B'; /* ASCII_G */ + screen->gsets[1] = 'B'; /* ASCII_G */ + screen->gsets[2] = 'B'; /* ASCII_G */ + screen->gsets[3] = 'B'; /* ASCII_G */ + + screen->curgl = 0; /* G0 => GL. */ + screen->curgr = 2; /* G2 => GR. */ + screen->curss = 0; /* No single shift. */ + +#if OPT_VT52_MODE + if (screen->vtXX_level == 0) + screen->gsets[1] = '0'; /* Graphics */ +#endif +} + +/* + * VT300 and up support three ANSI conformance levels, defined according to + * the dpANSI X3.134.1 standard. DEC's manuals equate levels 1 and 2, and + * are unclear. This code is written based on the manuals. + */ +static void +set_ansi_conformance(TScreen * screen, int level) +{ + TRACE(("set_ansi_conformance(%d) terminal_id %d, ansi_level %d\n", + level, + screen->terminal_id, + screen->ansi_level)); + if (screen->vtXX_level >= 3) { + switch (screen->ansi_level = level) { + case 1: + /* FALLTHRU */ + case 2: + screen->gsets[0] = 'B'; /* G0 is ASCII */ + screen->gsets[1] = 'B'; /* G1 is ISO Latin-1 (FIXME) */ + screen->curgl = 0; + screen->curgr = 1; + break; + case 3: + screen->gsets[0] = 'B'; /* G0 is ASCII */ + screen->curgl = 0; + break; + } + } +} + +/* + * Set scrolling margins. VTxxx terminals require that the top/bottom are + * different, so we have at least two lines in the scrolling region. + */ +void +set_tb_margins(TScreen * screen, int top, int bottom) +{ + TRACE(("set_tb_margins %d..%d, prior %d..%d\n", + top, bottom, + screen->top_marg, + screen->bot_marg)); + if (bottom > top) { + screen->top_marg = top; + screen->bot_marg = bottom; + } + if (screen->top_marg > screen->max_row) + screen->top_marg = screen->max_row; + if (screen->bot_marg > screen->max_row) + screen->bot_marg = screen->max_row; +} + +void +set_max_col(TScreen * screen, int cols) +{ + TRACE(("set_max_col %d, prior %d\n", cols, screen->max_col)); + if (cols < 0) + cols = 0; + screen->max_col = cols; +} + +void +set_max_row(TScreen * screen, int rows) +{ + TRACE(("set_max_row %d, prior %d\n", rows, screen->max_row)); + if (rows < 0) + rows = 0; + screen->max_row = rows; +} + +#if OPT_TRACE +#define WHICH_TABLE(name) if (table == name) result = #name +static char * +which_table(Const PARSE_T * table) +{ + char *result = "?"; + /* *INDENT-OFF* */ + WHICH_TABLE (ansi_table); + else WHICH_TABLE (csi_table); + else WHICH_TABLE (csi2_table); + else WHICH_TABLE (csi_ex_table); + else WHICH_TABLE (csi_quo_table); +#if OPT_DEC_LOCATOR + else WHICH_TABLE (csi_tick_table); +#endif +#if OPT_DEC_RECTOPS + else WHICH_TABLE (csi_dollar_table); + else WHICH_TABLE (csi_star_table); +#endif + else WHICH_TABLE (dec_table); + else WHICH_TABLE (dec2_table); + else WHICH_TABLE (dec3_table); + else WHICH_TABLE (cigtable); + else WHICH_TABLE (eigtable); + else WHICH_TABLE (esc_table); + else WHICH_TABLE (esc_sp_table); + else WHICH_TABLE (scrtable); + else WHICH_TABLE (scstable); + else WHICH_TABLE (sos_table); +#if OPT_WIDE_CHARS + else WHICH_TABLE (esc_pct_table); +#endif +#if OPT_VT52_MODE + else WHICH_TABLE (vt52_table); + else WHICH_TABLE (vt52_esc_table); + else WHICH_TABLE (vt52_ignore_table); +#endif + /* *INDENT-ON* */ + + return result; +} +#endif + + /* allocate larger buffer if needed/possible */ +#define SafeAlloc(type, area, used, size) \ + type *new_string = area; \ + unsigned new_length = size; \ + if (new_length == 0) { \ + new_length = 256; \ + new_string = TypeMallocN(type, new_length); \ + } else if (used+1 >= new_length) { \ + new_length = size * 2; \ + new_string = TypeMallocN(type, new_length); \ + if (new_string != 0 \ + && area != 0 \ + && used != 0) \ + memcpy(new_string, area, used * sizeof(type)); \ + } + +#define WriteNow() { \ + unsigned single = 0; \ + \ + if (screen->curss) { \ + dotext(screen, \ + screen->gsets[(int) (screen->curss)], \ + print_area, 1); \ + screen->curss = 0; \ + single++; \ + } \ + if (print_used > single) { \ + dotext(screen, \ + screen->gsets[(int) (screen->curgl)], \ + print_area + single, \ + print_used - single); \ + } \ + print_used = 0; \ + } \ + +struct ParseState { +#if OPT_VT52_MODE + Bool vt52_cup; +#endif + Const PARSE_T *groundtable; + Const PARSE_T *parsestate; + int scstype; + Bool private_function; /* distinguish private-mode from standard */ + int string_mode; /* nonzero iff we're processing a string */ + int lastchar; /* positive iff we had a graphic character */ + int nextstate; +#if OPT_WIDE_CHARS + int last_was_wide; +#endif +}; + +static struct ParseState myState; + +static Boolean +doparsing(unsigned c, struct ParseState *sp) +{ + /* Buffer for processing printable text */ + static IChar *print_area; + static size_t print_size, print_used; + + /* Buffer for processing strings (e.g., OSC ... ST) */ + static Char *string_area; + static size_t string_size, string_used; + + TScreen *screen = &term->screen; + int row; + int col; + int top; + int bot; + int count; + int laststate; + int thischar = -1; + XTermRect myRect; + + do { +#if OPT_WIDE_CHARS + + /* + * Handle zero-width combining characters. Make it faster by noting + * that according to the Unicode charts, the majority of Western + * character sets do not use this feature. There are some unassigned + * codes at 0x242, but no zero-width characters until past 0x300. + */ + if (c >= 0x300 && screen->wide_chars + && my_wcwidth((int) c) == 0) { + int prev, precomposed; + + WriteNow(); + + prev = getXtermCell(screen, + screen->last_written_row, + screen->last_written_col); + precomposed = do_precomposition(prev, (int) c); + + if (precomposed != -1) { + putXtermCell(screen, + screen->last_written_row, + screen->last_written_col, precomposed); + } else { + addXtermCombining(screen, + screen->last_written_row, + screen->last_written_col, c); + } + if (!screen->scroll_amt) + ScrnUpdate(screen, + screen->last_written_row, + screen->last_written_col, 1, 1, 1); + continue; + } +#endif + + /* Intercept characters for printer controller mode */ + if (screen->printer_controlmode == 2) { + if ((c = xtermPrinterControl((int) c)) == 0) + continue; + } + + /* + * VT52 is a little ugly in the one place it has a parameterized + * control sequence, since the parameter falls after the character + * that denotes the type of sequence. + */ +#if OPT_VT52_MODE + if (sp->vt52_cup) { + if (nparam < NPARAM) + param[nparam++] = (c & 0x7f) - 32; + if (nparam < 2) + continue; + sp->vt52_cup = False; + if ((row = param[0]) < 0) + row = 0; + if ((col = param[1]) < 0) + col = 0; + CursorSet(screen, row, col, term->flags); + sp->parsestate = vt52_table; + param[0] = 0; + param[1] = 0; + continue; + } +#endif + + /* + * The parsing tables all have 256 entries. If we're supporting + * wide characters, we handle them by treating them the same as + * printing characters. + */ + laststate = sp->nextstate; +#if OPT_WIDE_CHARS + if (c > 255) { + if (sp->parsestate == sp->groundtable) { + sp->nextstate = CASE_PRINT; + } else if (sp->parsestate == sos_table) { + c &= 0xffff; + if (c > 255) { + TRACE(("Found code > 255 while in SOS state: %04X\n", c)); + c = '?'; + } + } else { + sp->nextstate = CASE_GROUND_STATE; + } + } else +#endif + sp->nextstate = sp->parsestate[E2A(c)]; + +#if OPT_BROKEN_OSC + /* + * Linux console palette escape sequences start with an OSC, but do + * not terminate correctly. Some scripts do not check before writing + * them, making xterm appear to hang (it's awaiting a valid string + * terminator). Just ignore these if we see them - there's no point + * in emulating bad code. + */ + if (screen->brokenLinuxOSC + && sp->parsestate == sos_table) { + if (string_used) { + switch (string_area[0]) { + case 'P': + if (string_used <= 7) + break; + /* FALLTHRU */ + case 'R': + sp->parsestate = sp->groundtable; + sp->nextstate = sp->parsestate[E2A(c)]; + TRACE(("Reset to ground state (brokenLinuxOSC)\n")); + break; + } + } + } +#endif + +#if OPT_BROKEN_ST + /* + * Before patch #171, carriage control embedded within an OSC string + * would terminate it. Some (buggy, of course) applications rely on + * this behavior. Accommodate them by allowing one to compile xterm + * and emulate the old behavior. + */ + if (screen->brokenStringTerm + && sp->parsestate == sos_table + && c < 32) { + switch (c) { + case 5: /* FALLTHRU */ + case 8: /* FALLTHRU */ + case 9: /* FALLTHRU */ + case 10: /* FALLTHRU */ + case 11: /* FALLTHRU */ + case 12: /* FALLTHRU */ + case 13: /* FALLTHRU */ + case 14: /* FALLTHRU */ + case 15: /* FALLTHRU */ + case 24: + sp->parsestate = sp->groundtable; + sp->nextstate = sp->parsestate[E2A(c)]; + TRACE(("Reset to ground state (brokenStringTerm)\n")); + break; + } + } +#endif + +#if OPT_C1_PRINT + /* + * This is not completely foolproof, but will allow an application + * with values in the C1 range to use them as printable characters, + * provided that they are not intermixed with an escape sequence. + */ + if (screen->c1_printable + && (c >= 128 && c < 160)) { + sp->nextstate = (sp->parsestate == esc_table + ? CASE_ESC_IGNORE + : sp->parsestate[E2A(160)]); + } +#endif + +#if OPT_WIDE_CHARS + /* + * If we have a C1 code and the c1_printable flag is not set, simply + * ignore it when it was translated from UTF-8. That is because the + * value could not have been present as-is in the UTF-8. + * + * To see that CASE_IGNORE is a consistent value, note that it is + * always used for NUL and other uninteresting C0 controls. + */ +#if OPT_C1_PRINT + if (!screen->c1_printable) +#endif + if (screen->wide_chars + && (c >= 128 && c < 160)) { + sp->nextstate = CASE_IGNORE; + } + + /* + * If this character is a different width than the last one, put the + * previous text into the buffer and draw it now. + */ + if (iswide((int) c) != sp->last_was_wide) { + WriteNow(); + } +#endif + + /* + * Accumulate string for printable text. This may be 8/16-bit + * characters. + */ + if (sp->nextstate == CASE_PRINT) { + SafeAlloc(IChar, print_area, print_used, print_size); + if (new_string == 0) { + fprintf(stderr, + "Cannot allocate %u bytes for printable text\n", + new_length); + continue; + } +#if OPT_VT52_MODE + /* + * Strip output text to 7-bits for VT52. We should do this for + * VT100 also (which is a 7-bit device), but xterm has been + * doing this for so long we shouldn't change this behavior. + */ + if (screen->vtXX_level < 1) + c &= 0x7f; +#endif + print_area = new_string; + print_size = new_length; + print_area[print_used++] = sp->lastchar = thischar = c; +#if OPT_WIDE_CHARS + sp->last_was_wide = iswide((int) c); +#endif + if (morePtyData(screen, VTbuffer)) { + continue; + } + } + + if (sp->nextstate == CASE_PRINT + || (laststate == CASE_PRINT && print_used)) { + WriteNow(); + } + + /* + * Accumulate string for APC, DCS, PM, OSC, SOS controls + * This should always be 8-bit characters. + */ + if (sp->parsestate == sos_table) { + SafeAlloc(Char, string_area, string_used, string_size); + if (new_string == 0) { + fprintf(stderr, + "Cannot allocate %u bytes for string mode %d\n", + new_length, sp->string_mode); + continue; + } +#if OPT_WIDE_CHARS + /* + * We cannot display codes above 255, but let's try to + * accommodate the application a little by not aborting the + * string. + */ + if ((c & 0xffff) > 255) { + sp->nextstate = CASE_PRINT; + c = '?'; + } +#endif + string_area = new_string; + string_size = new_length; + string_area[string_used++] = c; + } else if (sp->parsestate != esc_table) { + /* if we were accumulating, we're not any more */ + sp->string_mode = 0; + string_used = 0; + } + + TRACE(("parse %04X -> %d %s\n", c, sp->nextstate, which_table(sp->parsestate))); + + switch (sp->nextstate) { + case CASE_PRINT: + TRACE(("CASE_PRINT - printable characters\n")); + break; + + case CASE_GROUND_STATE: + TRACE(("CASE_GROUND_STATE - exit ignore mode\n")); + sp->parsestate = sp->groundtable; + break; + + case CASE_IGNORE: + TRACE(("CASE_IGNORE - Ignore character %02X\n", c)); + break; + + case CASE_ENQ: + TRACE(("CASE_ENQ - answerback\n")); + for (count = 0; screen->answer_back[count] != 0; count++) + unparseputc(screen->answer_back[count], screen->respond); + break; + + case CASE_BELL: + TRACE(("CASE_BELL - bell\n")); + if (sp->string_mode == OSC) { + if (string_used) + string_area[--string_used] = '\0'; + do_osc(string_area, string_used, (int) c); + sp->parsestate = sp->groundtable; + } else { + /* bell */ + Bell(XkbBI_TerminalBell, 0); + } + break; + + case CASE_BS: + TRACE(("CASE_BS - backspace\n")); + CursorBack(screen, 1); + break; + + case CASE_CR: + /* CR */ + CarriageReturn(screen); + break; + + case CASE_ESC: + if_OPT_VT52_MODE(screen, { + sp->parsestate = vt52_esc_table; + break; + }); + sp->parsestate = esc_table; + break; + +#if OPT_VT52_MODE + case CASE_VT52_CUP: + TRACE(("CASE_VT52_CUP - VT52 cursor addressing\n")); + sp->vt52_cup = True; + nparam = 0; + break; + + case CASE_VT52_IGNORE: + TRACE(("CASE_VT52_IGNORE - VT52 ignore-character\n")); + sp->parsestate = vt52_ignore_table; + break; +#endif + + case CASE_VMOT: + /* + * form feed, line feed, vertical tab + */ + xtermAutoPrint((int) c); + xtermIndex(screen, 1); + if (term->flags & LINEFEED) + CarriageReturn(screen); + do_xevents(); + break; + + case CASE_CBT: + /* cursor backward tabulation */ + if ((count = param[0]) == DEFAULT) + count = 1; + while ((count-- > 0) + && (TabToPrevStop(screen))) ; + sp->parsestate = sp->groundtable; + break; + + case CASE_CHT: + /* cursor forward tabulation */ + if ((count = param[0]) == DEFAULT) + count = 1; + while ((count-- > 0) + && (TabToNextStop(screen))) ; + sp->parsestate = sp->groundtable; + break; + + case CASE_TAB: + /* tab */ + TabToNextStop(screen); + break; + + case CASE_SI: + screen->curgl = 0; + if_OPT_VT52_MODE(screen, { + sp->parsestate = sp->groundtable; + }); + break; + + case CASE_SO: + screen->curgl = 1; + if_OPT_VT52_MODE(screen, { + sp->parsestate = sp->groundtable; + }); + break; + + case CASE_DECDHL: + xterm_DECDHL(c == '3'); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSWL: + xterm_DECSWL(); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECDWL: + xterm_DECDWL(); + sp->parsestate = sp->groundtable; + break; + + case CASE_SCR_STATE: + /* enter scr state */ + sp->parsestate = scrtable; + break; + + case CASE_SCS0_STATE: + /* enter scs state 0 */ + sp->scstype = 0; + sp->parsestate = scstable; + break; + + case CASE_SCS1_STATE: + /* enter scs state 1 */ + sp->scstype = 1; + sp->parsestate = scstable; + break; + + case CASE_SCS2_STATE: + /* enter scs state 2 */ + sp->scstype = 2; + sp->parsestate = scstable; + break; + + case CASE_SCS3_STATE: + /* enter scs state 3 */ + sp->scstype = 3; + sp->parsestate = scstable; + break; + + case CASE_ESC_IGNORE: + /* unknown escape sequence */ + sp->parsestate = eigtable; + break; + + case CASE_ESC_DIGIT: + /* digit in csi or dec mode */ + if ((row = param[nparam - 1]) == DEFAULT) + row = 0; + param[nparam - 1] = 10 * row + (c - '0'); + if (param[nparam - 1] > 65535) + param[nparam - 1] = 65535; + if (sp->parsestate == csi_table) + sp->parsestate = csi2_table; + break; + + case CASE_ESC_SEMI: + /* semicolon in csi or dec mode */ + if (nparam < NPARAM) + param[nparam++] = DEFAULT; + if (sp->parsestate == csi_table) + sp->parsestate = csi2_table; + break; + + case CASE_DEC_STATE: + /* enter dec mode */ + sp->parsestate = dec_table; + break; + + case CASE_DEC2_STATE: + /* enter dec2 mode */ + sp->parsestate = dec2_table; + break; + + case CASE_DEC3_STATE: + /* enter dec3 mode */ + sp->parsestate = dec3_table; + break; + + case CASE_ICH: + TRACE(("CASE_ICH - insert char\n")); + if ((row = param[0]) < 1) + row = 1; + InsertChar(screen, (unsigned) row); + sp->parsestate = sp->groundtable; + break; + + case CASE_CUU: + TRACE(("CASE_CUU - cursor up\n")); + if ((row = param[0]) < 1) + row = 1; + CursorUp(screen, row); + sp->parsestate = sp->groundtable; + break; + + case CASE_CUD: + TRACE(("CASE_CUD - cursor down\n")); + if ((row = param[0]) < 1) + row = 1; + CursorDown(screen, row); + sp->parsestate = sp->groundtable; + break; + + case CASE_CUF: + TRACE(("CASE_CUF - cursor forward\n")); + if ((col = param[0]) < 1) + col = 1; + CursorForward(screen, col); + sp->parsestate = sp->groundtable; + break; + + case CASE_CUB: + TRACE(("CASE_CUB - cursor backward\n")); + if ((col = param[0]) < 1) + col = 1; + CursorBack(screen, col); + sp->parsestate = sp->groundtable; + break; + + case CASE_CUP: + TRACE(("CASE_CUP - cursor position\n")); + if_OPT_XMC_GLITCH(screen, { + Jump_XMC(screen); + }); + if ((row = param[0]) < 1) + row = 1; + if (nparam < 2 || (col = param[1]) < 1) + col = 1; + CursorSet(screen, row - 1, col - 1, term->flags); + sp->parsestate = sp->groundtable; + break; + + case CASE_VPA: + TRACE(("CASE_VPA - vertical position\n")); + if ((row = param[0]) < 1) + row = 1; + CursorSet(screen, row - 1, screen->cur_col, term->flags); + sp->parsestate = sp->groundtable; + break; + + case CASE_HPA: + TRACE(("CASE_HPA - horizontal position\n")); + if ((col = param[0]) < 1) + col = 1; + CursorSet(screen, screen->cur_row, col - 1, term->flags); + sp->parsestate = sp->groundtable; + break; + + case CASE_HP_BUGGY_LL: + TRACE(("CASE_HP_BUGGY_LL\n")); + /* Some HP-UX applications have the bug that they + assume ESC F goes to the lower left corner of + the screen, regardless of what terminfo says. */ + if (screen->hp_ll_bc) + CursorSet(screen, screen->max_row, 0, term->flags); + sp->parsestate = sp->groundtable; + break; + + case CASE_ED: + TRACE(("CASE_ED - erase display\n")); + do_erase_display(screen, param[0], OFF_PROTECT); + sp->parsestate = sp->groundtable; + break; + + case CASE_EL: + TRACE(("CASE_EL - erase line\n")); + do_erase_line(screen, param[0], OFF_PROTECT); + sp->parsestate = sp->groundtable; + break; + + case CASE_ECH: + TRACE(("CASE_ECH - erase char\n")); + /* ECH */ + ClearRight(screen, param[0] < 1 ? 1 : param[0]); + sp->parsestate = sp->groundtable; + break; + + case CASE_IL: + TRACE(("CASE_IL - insert line\n")); + if ((row = param[0]) < 1) + row = 1; + InsertLine(screen, row); + sp->parsestate = sp->groundtable; + break; + + case CASE_DL: + TRACE(("CASE_DL - delete line\n")); + if ((row = param[0]) < 1) + row = 1; + DeleteLine(screen, row); + sp->parsestate = sp->groundtable; + break; + + case CASE_DCH: + TRACE(("CASE_DCH - delete char\n")); + if ((row = param[0]) < 1) + row = 1; + DeleteChar(screen, (unsigned) row); + sp->parsestate = sp->groundtable; + break; + + case CASE_TRACK_MOUSE: + /* + * A single parameter other than zero is always scroll-down. + * A zero-parameter is used to reset the mouse mode, and is + * not useful for scrolling anyway. + */ + if (nparam > 1 || param[0] == 0) { + TRACE(("CASE_TRACK_MOUSE\n")); + /* Track mouse as long as in window and between + * specified rows + */ + TrackMouse(param[0], + param[2] - 1, param[1] - 1, + param[3] - 1, param[4] - 2); + } else { + TRACE(("CASE_SD - scroll down\n")); + /* SD */ + if ((count = param[0]) < 1) + count = 1; + RevScroll(screen, count); + do_xevents(); + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DECID: + TRACE(("CASE_DECID\n")); + if_OPT_VT52_MODE(screen, { + unparseputc(ESC, screen->respond); + unparseputc('/', screen->respond); + unparseputc('Z', screen->respond); + sp->parsestate = sp->groundtable; + break; + }); + param[0] = DEFAULT; /* Default ID parameter */ + /* FALLTHRU */ + case CASE_DA1: + TRACE(("CASE_DA1\n")); + if (param[0] <= 0) { /* less than means DEFAULT */ + count = 0; + reply.a_type = CSI; + reply.a_pintro = '?'; + + /* The first param corresponds to the highest + * operating level (i.e., service level) of the + * emulation. A DEC terminal can be setup to + * respond with a different DA response, but + * there's no control sequence that modifies this. + * We set it via a resource. + */ + if (screen->terminal_id < 200) { + switch (screen->terminal_id) { + case 102: + reply.a_param[count++] = 6; /* VT102 */ + break; + case 101: + reply.a_param[count++] = 1; /* VT101 */ + reply.a_param[count++] = 0; /* no options */ + break; + default: /* VT100 */ + reply.a_param[count++] = 1; /* VT100 */ + reply.a_param[count++] = 2; /* AVO */ + break; + } + } else { + reply.a_param[count++] = 60 + screen->terminal_id / 100; + reply.a_param[count++] = 1; /* 132-columns */ + reply.a_param[count++] = 2; /* printer */ + reply.a_param[count++] = 6; /* selective-erase */ +#if OPT_SUNPC_KBD + if (term->keyboard.type == keyboardIsVT220) +#endif + reply.a_param[count++] = 8; /* user-defined-keys */ + reply.a_param[count++] = 9; /* national replacement charsets */ + reply.a_param[count++] = 15; /* technical characters */ + if_OPT_ISO_COLORS(screen, { + reply.a_param[count++] = 22; /* ANSI color, VT525 */ + }); +#if OPT_DEC_LOCATOR + reply.a_param[count++] = 29; /* ANSI text locator */ +#endif + } + reply.a_nparam = count; + reply.a_inters = 0; + reply.a_final = 'c'; + unparseseq(&reply, screen->respond); + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DA2: + TRACE(("CASE_DA2\n")); + if (param[0] <= 0) { /* less than means DEFAULT */ + count = 0; + reply.a_type = CSI; + reply.a_pintro = '>'; + + if (screen->terminal_id >= 200) + reply.a_param[count++] = 1; /* VT220 */ + else + reply.a_param[count++] = 0; /* VT100 (nonstandard) */ + reply.a_param[count++] = XTERM_PATCH; /* Version */ + reply.a_param[count++] = 0; /* options (none) */ + reply.a_nparam = count; + reply.a_inters = 0; + reply.a_final = 'c'; + unparseseq(&reply, screen->respond); + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DECRPTUI: + TRACE(("CASE_DECRPTUI\n")); + if ((screen->terminal_id >= 400) + && (param[0] <= 0)) { /* less than means DEFAULT */ + unparseputc1(DCS, screen->respond); + unparseputc('!', screen->respond); + unparseputc('|', screen->respond); + unparseputc('0', screen->respond); + unparseputc1(ST, screen->respond); + } + sp->parsestate = sp->groundtable; + break; + + case CASE_TBC: + TRACE(("CASE_TBC - tab clear\n")); + if ((row = param[0]) <= 0) /* less than means default */ + TabClear(term->tabs, screen->cur_col); + else if (row == 3) + TabZonk(term->tabs); + sp->parsestate = sp->groundtable; + break; + + case CASE_SET: + TRACE(("CASE_SET - set mode\n")); + ansi_modes(term, bitset); + sp->parsestate = sp->groundtable; + break; + + case CASE_RST: + TRACE(("CASE_RST - reset mode\n")); + ansi_modes(term, bitclr); + sp->parsestate = sp->groundtable; + break; + + case CASE_SGR: + for (row = 0; row < nparam; ++row) { + if_OPT_XMC_GLITCH(screen, { + Mark_XMC(screen, param[row]); + }); + TRACE(("CASE_SGR %d\n", param[row])); + switch (param[row]) { + case DEFAULT: + case 0: + term->flags &= + ~(INVERSE | BOLD | BLINK | UNDERLINE | INVISIBLE); + if_OPT_ISO_COLORS(screen, { + reset_SGR_Colors(); + }); + break; + case 1: /* Bold */ + term->flags |= BOLD; + if_OPT_ISO_COLORS(screen, { + setExtendedFG(); + }); + break; + case 5: /* Blink */ + term->flags |= BLINK; + StartBlinking(screen); + if_OPT_ISO_COLORS(screen, { + setExtendedFG(); + }); + break; + case 4: /* Underscore */ + term->flags |= UNDERLINE; + if_OPT_ISO_COLORS(screen, { + setExtendedFG(); + }); + break; + case 7: + term->flags |= INVERSE; + if_OPT_ISO_COLORS(screen, { + setExtendedBG(); + }); + break; + case 8: + term->flags |= INVISIBLE; + break; + case 22: /* reset 'bold' */ + term->flags &= ~BOLD; + if_OPT_ISO_COLORS(screen, { + setExtendedFG(); + }); + break; + case 24: + term->flags &= ~UNDERLINE; + if_OPT_ISO_COLORS(screen, { + setExtendedFG(); + }); + break; + case 25: /* reset 'blink' */ + term->flags &= ~BLINK; + if_OPT_ISO_COLORS(screen, { + setExtendedFG(); + }); + break; + case 27: + term->flags &= ~INVERSE; + if_OPT_ISO_COLORS(screen, { + setExtendedBG(); + }); + break; + case 28: + term->flags &= ~INVISIBLE; + break; + case 30: + case 31: + case 32: + case 33: + case 34: + case 35: + case 36: + case 37: + if_OPT_ISO_COLORS(screen, { + term->sgr_foreground = (param[row] - 30); + term->sgr_extended = 0; + setExtendedFG(); + }); + break; + case 38: + /* This is more complicated than I'd + like, but it should properly eat all + the parameters for unsupported modes + */ + if_OPT_ISO_COLORS(screen, { + row++; + if (row < nparam) { + switch (param[row]) { + case 5: + row++; + if (row < nparam && + param[row] < NUM_ANSI_COLORS) { + term->sgr_foreground = param[row]; + term->sgr_extended = 1; + setExtendedFG(); + } + break; + default: + row += 7; + break; + } + } + }); + break; + case 39: + if_OPT_ISO_COLORS(screen, { + reset_SGR_Foreground(); + }); + break; + case 40: + case 41: + case 42: + case 43: + case 44: + case 45: + case 46: + case 47: + if_OPT_ISO_COLORS(screen, { + term->sgr_background = (param[row] - 40); + setExtendedBG(); + }); + break; + case 48: + if_OPT_ISO_COLORS(screen, { + row++; + if (row < nparam) { + switch (param[row]) { + case 5: + row++; + if (row < nparam && + param[row] < NUM_ANSI_COLORS) { + term->sgr_background = param[row]; + setExtendedBG(); + } + break; + default: + row += 7; + break; + } + } + }); + break; + case 49: + if_OPT_ISO_COLORS(screen, { + reset_SGR_Background(); + }); + break; + case 90: + case 91: + case 92: + case 93: + case 94: + case 95: + case 96: + case 97: + if_OPT_AIX_COLORS(screen, { + term->sgr_foreground = (param[row] - 90 + 8); + term->sgr_extended = 0; + setExtendedFG(); + }); + break; + case 100: +#if !OPT_AIX_COLORS + if_OPT_ISO_COLORS(screen, { + reset_SGR_Foreground(); + reset_SGR_Background(); + }); + break; +#endif + case 101: + case 102: + case 103: + case 104: + case 105: + case 106: + case 107: + if_OPT_AIX_COLORS(screen, { + term->sgr_background = (param[row] - 100 + 8); + setExtendedBG(); + }); + break; + } + } + sp->parsestate = sp->groundtable; + break; + + /* DSR (except for the '?') is a superset of CPR */ + case CASE_DSR: + sp->private_function = True; + + /* FALLTHRU */ + case CASE_CPR: + TRACE(("CASE_CPR - cursor position\n")); + count = 0; + reply.a_type = CSI; + reply.a_pintro = sp->private_function ? '?' : 0; + reply.a_inters = 0; + reply.a_final = 'n'; + + switch (param[0]) { + case 5: + /* operating status */ + reply.a_param[count++] = 0; /* (no malfunction ;-) */ + break; + case 6: + /* CPR */ + /* DECXCPR (with page=0) */ + reply.a_param[count++] = screen->cur_row + 1; + reply.a_param[count++] = screen->cur_col + 1; + reply.a_final = 'R'; + break; + case 15: + /* printer status */ + reply.a_param[count++] = 13; /* implement printer */ + break; + case 25: + /* UDK status */ + reply.a_param[count++] = 20; /* UDK always unlocked */ + break; + case 26: + /* keyboard status */ + reply.a_param[count++] = 27; + reply.a_param[count++] = 1; /* North American */ + if (screen->terminal_id >= 400) { + reply.a_param[count++] = 0; /* ready */ + reply.a_param[count++] = 0; /* LK201 */ + } + break; + case 53: + /* Locator status */ +#if OPT_DEC_LOCATOR + reply.a_param[count++] = 50; /* locator ready */ +#else + reply.a_param[count++] = 53; /* no locator */ +#endif + break; + } + + if ((reply.a_nparam = count) != 0) + unparseseq(&reply, screen->respond); + + sp->parsestate = sp->groundtable; + sp->private_function = False; + break; + + case CASE_MC: + TRACE(("CASE_MC - media control\n")); + xtermMediaControl(param[0], False); + sp->parsestate = sp->groundtable; + break; + + case CASE_DEC_MC: + TRACE(("CASE_DEC_MC - DEC media control\n")); + xtermMediaControl(param[0], True); + sp->parsestate = sp->groundtable; + break; + + case CASE_HP_MEM_LOCK: + case CASE_HP_MEM_UNLOCK: + TRACE(("%s\n", ((sp->parsestate[c] == CASE_HP_MEM_LOCK) + ? "CASE_HP_MEM_LOCK" + : "CASE_HP_MEM_UNLOCK"))); + if (screen->scroll_amt) + FlushScroll(screen); + if (sp->parsestate[c] == CASE_HP_MEM_LOCK) + set_tb_margins(screen, screen->cur_row, screen->bot_marg); + else + set_tb_margins(screen, 0, screen->bot_marg); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSTBM: + TRACE(("CASE_DECSTBM - set scrolling region\n")); + if ((top = param[0]) < 1) + top = 1; + if (nparam < 2 || (bot = param[1]) == DEFAULT + || bot > MaxRows(screen) + || bot == 0) + bot = MaxRows(screen); + if (bot > top) { + if (screen->scroll_amt) + FlushScroll(screen); + set_tb_margins(screen, top - 1, bot - 1); + CursorSet(screen, 0, 0, term->flags); + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DECREQTPARM: + TRACE(("CASE_DECREQTPARM\n")); + if (screen->terminal_id < 200) { /* VT102 */ + if ((row = param[0]) == DEFAULT) + row = 0; + if (row == 0 || row == 1) { + reply.a_type = CSI; + reply.a_pintro = 0; + reply.a_nparam = 7; + reply.a_param[0] = row + 2; + reply.a_param[1] = 1; /* no parity */ + reply.a_param[2] = 1; /* eight bits */ + reply.a_param[3] = 128; /* transmit 38.4k baud */ + reply.a_param[4] = 128; /* receive 38.4k baud */ + reply.a_param[5] = 1; /* clock multiplier ? */ + reply.a_param[6] = 0; /* STP flags ? */ + reply.a_inters = 0; + reply.a_final = 'x'; + unparseseq(&reply, screen->respond); + } + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSET: + /* DECSET */ +#if OPT_VT52_MODE + if (screen->vtXX_level != 0) +#endif + dpmodes(term, bitset); + sp->parsestate = sp->groundtable; +#if OPT_TEK4014 + if (screen->TekEmu) + return False; +#endif + break; + + case CASE_DECRST: + /* DECRST */ + dpmodes(term, bitclr); +#if OPT_VT52_MODE + if (screen->vtXX_level == 0) + sp->groundtable = vt52_table; + else if (screen->terminal_id >= 100) + sp->groundtable = ansi_table; +#endif + sp->parsestate = sp->groundtable; + break; + + case CASE_DECALN: + TRACE(("CASE_DECALN - alignment test\n")); + if (screen->cursor_state) + HideCursor(); + set_tb_margins(screen, 0, screen->max_row); + CursorSet(screen, 0, 0, term->flags); + xtermParseRect(screen, 0, 0, &myRect); + ScrnFillRectangle(screen, &myRect, 'E', 0); + sp->parsestate = sp->groundtable; + break; + + case CASE_GSETS: + TRACE(("CASE_GSETS(%d) = '%c'\n", sp->scstype, c)); + if (screen->vtXX_level != 0) + screen->gsets[sp->scstype] = c; + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSC: + TRACE(("CASE_DECSC - save cursor\n")); + CursorSave(term); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECRC: + TRACE(("CASE_DECRC - restore cursor\n")); + CursorRestore(term); + if_OPT_ISO_COLORS(screen, { + setExtendedFG(); + }); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECKPAM: + TRACE(("CASE_DECKPAM\n")); + term->keyboard.flags |= MODE_DECKPAM; + update_appkeypad(); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECKPNM: + TRACE(("CASE_DECKPNM\n")); + term->keyboard.flags &= ~MODE_DECKPAM; + update_appkeypad(); + sp->parsestate = sp->groundtable; + break; + + case CASE_CSI_QUOTE_STATE: + sp->parsestate = csi_quo_table; + break; + +#if OPT_VT52_MODE + case CASE_VT52_FINISH: + TRACE(("CASE_VT52_FINISH terminal_id %d, vtXX_level %d\n", + screen->terminal_id, + screen->vtXX_level)); + if (screen->terminal_id >= 100 + && screen->vtXX_level == 0) { + sp->groundtable = + sp->parsestate = ansi_table; + screen->vtXX_level = screen->vt52_save_level; + screen->curgl = screen->vt52_save_curgl; + screen->curgr = screen->vt52_save_curgr; + screen->curss = screen->vt52_save_curss; + memmove(screen->gsets, screen->vt52_save_gsets, sizeof(screen->gsets)); + } + break; +#endif + + case CASE_ANSI_LEVEL_1: + TRACE(("CASE_ANSI_LEVEL_1\n")); + set_ansi_conformance(screen, 1); + sp->parsestate = sp->groundtable; + break; + + case CASE_ANSI_LEVEL_2: + TRACE(("CASE_ANSI_LEVEL_2\n")); + set_ansi_conformance(screen, 2); + sp->parsestate = sp->groundtable; + break; + + case CASE_ANSI_LEVEL_3: + TRACE(("CASE_ANSI_LEVEL_3\n")); + set_ansi_conformance(screen, 3); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSCL: + TRACE(("CASE_DECSCL(%d,%d)\n", param[0], param[1])); + if (param[0] >= 61 && param[0] <= 65) { + /* + * VT300, VT420, VT520 manuals claim that DECSCL does a hard + * reset (RIS). VT220 manual states that it is a soft reset. + * Perhaps both are right (unlikely). Kermit says it's soft. + */ + VTReset(False, False); + screen->vtXX_level = param[0] - 60; + if (param[0] > 61) { + if (param[1] == 1) + show_8bit_control(False); + else if (param[1] == 0 || param[1] == 2) + show_8bit_control(True); + } + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSCA: + TRACE(("CASE_DECSCA\n")); + screen->protected_mode = DEC_PROTECT; + if (param[0] <= 0 || param[0] == 2) + term->flags &= ~PROTECTED; + else if (param[0] == 1) + term->flags |= PROTECTED; + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSED: + TRACE(("CASE_DECSED\n")); + do_erase_display(screen, param[0], DEC_PROTECT); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSEL: + TRACE(("CASE_DECSEL\n")); + do_erase_line(screen, param[0], DEC_PROTECT); + sp->parsestate = sp->groundtable; + break; + + case CASE_ST: + TRACE(("CASE_ST: End of String (%d bytes)\n", string_used)); + sp->parsestate = sp->groundtable; + if (!string_used) + break; + string_area[--string_used] = '\0'; + switch (sp->string_mode) { + case APC: + /* ignored */ + break; + case DCS: + do_dcs(string_area, string_used); + break; + case OSC: + do_osc(string_area, string_used, ST); + break; + case PM: + /* ignored */ + break; + case SOS: + /* ignored */ + break; + } + break; + + case CASE_SOS: + TRACE(("CASE_SOS: Start of String\n")); + sp->string_mode = SOS; + sp->parsestate = sos_table; + break; + + case CASE_PM: + TRACE(("CASE_PM: Privacy Message\n")); + sp->string_mode = PM; + sp->parsestate = sos_table; + break; + + case CASE_DCS: + TRACE(("CASE_DCS: Device Control String\n")); + sp->string_mode = DCS; + sp->parsestate = sos_table; + break; + + case CASE_APC: + TRACE(("CASE_APC: Application Program Command\n")); + sp->string_mode = APC; + sp->parsestate = sos_table; + break; + + case CASE_SPA: + TRACE(("CASE_SPA - start protected area\n")); + screen->protected_mode = ISO_PROTECT; + term->flags |= PROTECTED; + sp->parsestate = sp->groundtable; + break; + + case CASE_EPA: + TRACE(("CASE_EPA - end protected area\n")); + term->flags &= ~PROTECTED; + sp->parsestate = sp->groundtable; + break; + + case CASE_SU: + TRACE(("CASE_SU - scroll up\n")); + if ((count = param[0]) < 1) + count = 1; + xtermScroll(screen, count); + sp->parsestate = sp->groundtable; + break; + + case CASE_IND: + TRACE(("CASE_IND - index\n")); + xtermIndex(screen, 1); + do_xevents(); + sp->parsestate = sp->groundtable; + break; + + case CASE_CPL: + TRACE(("CASE_CPL - cursor prev line\n")); + CursorPrevLine(screen, param[0]); + sp->parsestate = sp->groundtable; + break; + + case CASE_CNL: + TRACE(("CASE_NPL - cursor next line\n")); + CursorNextLine(screen, param[0]); + sp->parsestate = sp->groundtable; + break; + + case CASE_NEL: + TRACE(("CASE_NEL\n")); + xtermIndex(screen, 1); + CarriageReturn(screen); + do_xevents(); + sp->parsestate = sp->groundtable; + break; + + case CASE_HTS: + TRACE(("CASE_HTS - horizontal tab set\n")); + TabSet(term->tabs, screen->cur_col); + sp->parsestate = sp->groundtable; + break; + + case CASE_RI: + TRACE(("CASE_RI - reverse index\n")); + RevIndex(screen, 1); + sp->parsestate = sp->groundtable; + break; + + case CASE_SS2: + TRACE(("CASE_SS2\n")); + screen->curss = 2; + sp->parsestate = sp->groundtable; + break; + + case CASE_SS3: + TRACE(("CASE_SS3\n")); + screen->curss = 3; + sp->parsestate = sp->groundtable; + break; + + case CASE_CSI_STATE: + /* enter csi state */ + nparam = 1; + param[0] = DEFAULT; + sp->parsestate = csi_table; + break; + + case CASE_ESC_SP_STATE: + /* esc space */ + sp->parsestate = esc_sp_table; + break; + + case CASE_CSI_EX_STATE: + /* csi exclamation */ + sp->parsestate = csi_ex_table; + break; + +#if OPT_DEC_LOCATOR + case CASE_CSI_TICK_STATE: + /* csi tick (') */ + sp->parsestate = csi_tick_table; + break; + + case CASE_DECEFR: + TRACE(("CASE_DECEFR - Enable Filter Rectangle\n")); + if (screen->send_mouse_pos == DEC_LOCATOR) { + MotionOff(screen, term); + if ((screen->loc_filter_top = param[0]) < 1) + screen->loc_filter_top = LOC_FILTER_POS; + if (nparam < 2 || (screen->loc_filter_left = param[1]) < 1) + screen->loc_filter_left = LOC_FILTER_POS; + if (nparam < 3 || (screen->loc_filter_bottom = param[2]) < 1) + screen->loc_filter_bottom = LOC_FILTER_POS; + if (nparam < 4 || (screen->loc_filter_right = param[3]) < 1) + screen->loc_filter_right = LOC_FILTER_POS; + InitLocatorFilter(term); + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DECELR: + MotionOff(screen, term); + if (param[0] <= 0 || param[0] > 2) { + screen->send_mouse_pos = MOUSE_OFF; + TRACE(("DECELR - Disable Locator Reports\n")); + } else { + TRACE(("DECELR - Enable Locator Reports\n")); + screen->send_mouse_pos = DEC_LOCATOR; + if (param[0] == 2) { + screen->locator_reset = True; + } else { + screen->locator_reset = False; + } + if (nparam < 2 || param[1] != 1) { + screen->locator_pixels = False; + } else { + screen->locator_pixels = True; + } + screen->loc_filter = False; + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSLE: + TRACE(("DECSLE - Select Locator Events\n")); + for (count = 0; count < nparam; ++count) { + switch (param[count]) { + case DEFAULT: + case 0: + MotionOff(screen, term); + screen->loc_filter = False; + screen->locator_events = 0; + break; + case 1: + screen->locator_events |= LOC_BTNS_DN; + break; + case 2: + screen->locator_events &= ~LOC_BTNS_DN; + break; + case 3: + screen->locator_events |= LOC_BTNS_UP; + break; + case 4: + screen->locator_events &= ~LOC_BTNS_UP; + break; + } + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DECRQLP: + TRACE(("DECRQLP - Request Locator Position\n")); + if (param[0] < 2) { + /* Issue DECLRP Locator Position Report */ + GetLocatorPosition(term); + } + sp->parsestate = sp->groundtable; + break; +#endif /* OPT_DEC_LOCATOR */ + +#if OPT_DEC_RECTOPS + case CASE_CSI_DOLLAR_STATE: + /* csi dollar ($) */ + if (screen->vtXX_level >= 4) + sp->parsestate = csi_dollar_table; + else + sp->parsestate = eigtable; + break; + + case CASE_CSI_STAR_STATE: + /* csi dollar (*) */ + if (screen->vtXX_level >= 4) + sp->parsestate = csi_star_table; + else + sp->parsestate = eigtable; + break; + + case CASE_DECCRA: + TRACE(("CASE_DECCRA - Copy rectangular area\n")); + xtermParseRect(screen, nparam, param, &myRect); + ScrnCopyRectangle(screen, &myRect, nparam - 5, param + 5); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECERA: + TRACE(("CASE_DECERA - Erase rectangular area\n")); + xtermParseRect(screen, nparam, param, &myRect); + ScrnFillRectangle(screen, &myRect, ' ', 0); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECFRA: + TRACE(("CASE_DECFRA - Fill rectangular area\n")); + if (nparam > 0 + && ((param[0] >= 32 && param[0] <= 126) + || (param[0] >= 160 && param[0] <= 255))) { + xtermParseRect(screen, nparam - 1, param + 1, &myRect); + ScrnFillRectangle(screen, &myRect, param[0], term->flags); + } + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSERA: + TRACE(("CASE_DECSERA - Selective erase rectangular area\n")); + xtermParseRect(screen, nparam > 4 ? 4 : nparam, param, &myRect); + ScrnWipeRectangle(screen, &myRect); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSACE: + TRACE(("CASE_DECSACE - Select attribute change extent\n")); + screen->cur_decsace = param[0]; + sp->parsestate = sp->groundtable; + break; + + case CASE_DECCARA: + TRACE(("CASE_DECCARA - Change attributes in rectangular area\n")); + xtermParseRect(screen, nparam > 4 ? 4 : nparam, param, &myRect); + ScrnMarkRectangle(screen, &myRect, False, nparam - 4, param + 4); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECRARA: + TRACE(("CASE_DECRARA - Reverse attributes in rectangular area\n")); + xtermParseRect(screen, nparam > 4 ? 4 : nparam, param, &myRect); + ScrnMarkRectangle(screen, &myRect, True, nparam - 4, param + 4); + sp->parsestate = sp->groundtable; + break; +#else + case CASE_CSI_DOLLAR_STATE: + /* csi dollar ($) */ + sp->parsestate = eigtable; + break; + + case CASE_CSI_STAR_STATE: + /* csi dollar (*) */ + sp->parsestate = eigtable; + break; +#endif /* OPT_DEC_RECTOPS */ + + case CASE_S7C1T: + TRACE(("CASE_S7C1T\n")); + show_8bit_control(False); + sp->parsestate = sp->groundtable; + break; + + case CASE_S8C1T: + TRACE(("CASE_S8C1T\n")); +#if OPT_VT52_MODE + if (screen->vtXX_level <= 1) + break; +#endif + show_8bit_control(True); + sp->parsestate = sp->groundtable; + break; + + case CASE_OSC: + TRACE(("CASE_OSC: Operating System Command\n")); + sp->parsestate = sos_table; + sp->string_mode = OSC; + break; + + case CASE_RIS: + TRACE(("CASE_RIS\n")); + VTReset(True, True); + sp->parsestate = sp->groundtable; + break; + + case CASE_DECSTR: + TRACE(("CASE_DECSTR\n")); + VTReset(False, False); + sp->parsestate = sp->groundtable; + break; + + case CASE_REP: + TRACE(("CASE_REP\n")); + if (sp->lastchar >= 0 && + sp->groundtable[E2A(sp->lastchar)] == CASE_PRINT) { + IChar repeated[2]; + count = (param[0] < 1) ? 1 : param[0]; + repeated[0] = sp->lastchar; + while (count-- > 0) { + dotext(screen, + screen->gsets[(int) (screen->curgl)], + repeated, 1); + } + } + sp->parsestate = sp->groundtable; + break; + + case CASE_LS2: + TRACE(("CASE_LS2\n")); + screen->curgl = 2; + sp->parsestate = sp->groundtable; + break; + + case CASE_LS3: + TRACE(("CASE_LS3\n")); + screen->curgl = 3; + sp->parsestate = sp->groundtable; + break; + + case CASE_LS3R: + TRACE(("CASE_LS3R\n")); + screen->curgr = 3; + sp->parsestate = sp->groundtable; + break; + + case CASE_LS2R: + TRACE(("CASE_LS2R\n")); + screen->curgr = 2; + sp->parsestate = sp->groundtable; + break; + + case CASE_LS1R: + TRACE(("CASE_LS1R\n")); + screen->curgr = 1; + sp->parsestate = sp->groundtable; + break; + + case CASE_XTERM_SAVE: + savemodes(term); + sp->parsestate = sp->groundtable; + break; + + case CASE_XTERM_RESTORE: + restoremodes(term); + sp->parsestate = sp->groundtable; + break; + + case CASE_XTERM_WINOPS: + TRACE(("CASE_XTERM_WINOPS\n")); + if (screen->allowWindowOps) + window_ops(term); + sp->parsestate = sp->groundtable; + break; +#if OPT_WIDE_CHARS + case CASE_ESC_PERCENT: + sp->parsestate = esc_pct_table; + break; + + case CASE_UTF8: + /* If we did not set UTF-8 mode from resource or the + * command-line, allow it to be enabled/disabled by + * control sequence. + */ + if (!screen->wide_chars) { + WriteNow(); + ChangeToWide(screen); + } + if (screen->wide_chars + && screen->utf8_mode != uAlways) { + switchPtyData(screen, c == 'G'); + TRACE(("UTF8 mode %s\n", + BtoS(screen->utf8_mode))); + } else { + TRACE(("UTF8 mode NOT turned %s (%s)\n", + BtoS(c == 'G'), + (screen->utf8_mode == uAlways) + ? "UTF-8 mode set from command-line" + : "wideChars resource was not set")); + } + sp->parsestate = sp->groundtable; + break; +#endif + + case CASE_CSI_IGNORE: + sp->parsestate = cigtable; + break; + } + if (sp->parsestate == sp->groundtable) + sp->lastchar = thischar; + } while (0); + +#if OPT_WIDE_CHARS + screen->utf8_inparse = (screen->utf8_mode != uFalse + && sp->parsestate != sos_table); +#endif + + return True; +} + +static void +VTparse(void) +{ + TScreen *screen; + + /* We longjmp back to this point in VTReset() */ + (void) setjmp(vtjmpbuf); + screen = &term->screen; + memset(&myState, 0, sizeof(myState)); +#if OPT_VT52_MODE + myState.groundtable = screen->vtXX_level ? ansi_table : vt52_table; +#else + myState.groundtable = ansi_table; +#endif + myState.parsestate = myState.groundtable; + myState.lastchar = -1; /* not a legal IChar */ + myState.nextstate = -1; /* not a legal state */ + + for (;;) { + if (!doparsing(doinput(), &myState)) + return; + } +} + +static Char *v_buffer; /* pointer to physical buffer */ +static Char *v_bufstr = NULL; /* beginning of area to write */ +static Char *v_bufptr; /* end of area to write */ +static Char *v_bufend; /* end of physical buffer */ + +/* Write data to the pty as typed by the user, pasted with the mouse, + or generated by us in response to a query ESC sequence. */ + +int +v_write(int f, Char * data, unsigned len) +{ + int riten; + unsigned c = len; + + if (v_bufstr == NULL && len > 0) { + v_buffer = (Char *) XtMalloc(len); + v_bufstr = v_buffer; + v_bufptr = v_buffer; + v_bufend = v_buffer + len; + } +#ifdef DEBUG + if (debug) { + fprintf(stderr, "v_write called with %d bytes (%d left over)", + len, v_bufptr - v_bufstr); + if (len > 1 && len < 10) + fprintf(stderr, " \"%.*s\"", len, (char *) data); + fprintf(stderr, "\n"); + } +#endif + +#ifdef VMS + if ((1 << f) != pty_mask) + return (tt_write((char *) data, len)); +#else /* VMS */ + if (!FD_ISSET(f, &pty_mask)) + return (write(f, (char *) data, len)); +#endif /* VMS */ + + /* + * Append to the block we already have. + * Always doing this simplifies the code, and + * isn't too bad, either. If this is a short + * block, it isn't too expensive, and if this is + * a long block, we won't be able to write it all + * anyway. + */ + + if (len > 0) { +#if OPT_DABBREV + term->screen.dabbrev_working = 0; /* break dabbrev sequence */ +#endif + if (v_bufend < v_bufptr + len) { /* we've run out of room */ + if (v_bufstr != v_buffer) { + /* there is unused space, move everything down */ + /* possibly overlapping memmove here */ +#ifdef DEBUG + if (debug) + fprintf(stderr, "moving data down %d\n", + v_bufstr - v_buffer); +#endif + memmove(v_buffer, v_bufstr, (unsigned) (v_bufptr - v_bufstr)); + v_bufptr -= v_bufstr - v_buffer; + v_bufstr = v_buffer; + } + if (v_bufend < v_bufptr + len) { + /* still won't fit: get more space */ + /* Don't use XtRealloc because an error is not fatal. */ + int size = v_bufptr - v_buffer; /* save across realloc */ + v_buffer = TypeRealloc(Char, size + len, v_buffer); + if (v_buffer) { +#ifdef DEBUG + if (debug) + fprintf(stderr, "expanded buffer to %d\n", + size + len); +#endif + v_bufstr = v_buffer; + v_bufptr = v_buffer + size; + v_bufend = v_bufptr + len; + } else { + /* no memory: ignore entire write request */ + fprintf(stderr, "%s: cannot allocate buffer space\n", + xterm_name); + v_buffer = v_bufstr; /* restore clobbered pointer */ + c = 0; + } + } + } + if (v_bufend >= v_bufptr + len) { + /* new stuff will fit */ + memmove(v_bufptr, data, len); + v_bufptr += len; + } + } + + /* + * Write out as much of the buffer as we can. + * Be careful not to overflow the pty's input silo. + * We are conservative here and only write + * a small amount at a time. + * + * If we can't push all the data into the pty yet, we expect write + * to return a non-negative number less than the length requested + * (if some data written) or -1 and set errno to EAGAIN, + * EWOULDBLOCK, or EINTR (if no data written). + * + * (Not all systems do this, sigh, so the code is actually + * a little more forgiving.) + */ + +#define MAX_PTY_WRITE 128 /* 1/2 POSIX minimum MAX_INPUT */ + + if (v_bufptr > v_bufstr) { +#ifdef VMS + riten = tt_write(v_bufstr, + ((v_bufptr - v_bufstr <= VMS_TERM_BUFFER_SIZE) + ? v_bufptr - v_bufstr + : VMS_TERM_BUFFER_SIZE)); + if (riten == 0) + return (riten); +#else /* VMS */ + riten = write(f, v_bufstr, + (size_t) ((v_bufptr - v_bufstr <= MAX_PTY_WRITE) + ? v_bufptr - v_bufstr + : MAX_PTY_WRITE)); + if (riten < 0) +#endif /* VMS */ + { +#ifdef DEBUG + if (debug) + perror("write"); +#endif + riten = 0; + } +#ifdef DEBUG + if (debug) + fprintf(stderr, "write called with %d, wrote %d\n", + v_bufptr - v_bufstr <= MAX_PTY_WRITE ? + v_bufptr - v_bufstr : MAX_PTY_WRITE, + riten); +#endif + v_bufstr += riten; + if (v_bufstr >= v_bufptr) /* we wrote it all */ + v_bufstr = v_bufptr = v_buffer; + } + + /* + * If we have lots of unused memory allocated, return it + */ + if (v_bufend - v_bufptr > 1024) { /* arbitrary hysteresis */ + /* save pointers across realloc */ + int start = v_bufstr - v_buffer; + int size = v_bufptr - v_buffer; + unsigned allocsize = (unsigned) (size ? size : 1); + + v_buffer = TypeRealloc(Char, allocsize, v_buffer); + if (v_buffer) { + v_bufstr = v_buffer + start; + v_bufptr = v_buffer + size; + v_bufend = v_buffer + allocsize; +#ifdef DEBUG + if (debug) + fprintf(stderr, "shrunk buffer to %d\n", allocsize); +#endif + } else { + /* should we print a warning if couldn't return memory? */ + v_buffer = v_bufstr - start; /* restore clobbered pointer */ + } + } + return (c); +} + +#ifdef VMS +#define ptymask() (v_bufptr > v_bufstr ? pty_mask : 0) + +static void +in_put(void) +{ + static PtySelect select_mask; + static PtySelect write_mask; + int update = VTbuffer->update; + int size; + + int status; + Dimension replyWidth, replyHeight; + XtGeometryResult stat; + + TScreen *screen = &term->screen; + char *cp; + int i; + + select_mask = pty_mask; /* force initial read */ + for (;;) { + + /* if the terminal changed size, resize the widget */ + if (tt_changed) { + tt_changed = False; + + stat = XtMakeResizeRequest((Widget) term, + ((Dimension) FontWidth(screen) + * (tt_width) + + 2 * screen->border + + screen->fullVwin.sb_info.width), + ((Dimension) FontHeight(screen) + * (tt_length) + + 2 * screen->border), + &replyWidth, &replyHeight); + + if (stat == XtGeometryYes || stat == XtGeometryDone) { + term->core.width = replyWidth; + term->core.height = replyHeight; + + ScreenResize(&term->screen, replyWidth, replyHeight, + &term->flags); + } + repairSizeHints(); + } + + if (eventMode == NORMAL + && readPtyData(screen, &select_mask, VTbuffer)) { + if (screen->scrollWidget + && screen->scrollttyoutput + && screen->topline < 0) + /* Scroll to bottom */ + WindowScroll(screen, 0); + break; + } + if (screen->scroll_amt) + FlushScroll(screen); + if (screen->cursor_set && CursorMoved(screen)) { + if (screen->cursor_state) + HideCursor(); + ShowCursor(); +#if OPT_INPUT_METHOD + PreeditPosition(screen); +#endif + } else if (screen->cursor_set != screen->cursor_state) { + if (screen->cursor_set) + ShowCursor(); + else + HideCursor(); + } + + if (QLength(screen->display)) { + select_mask = X_mask; + } else { + write_mask = ptymask(); + XFlush(screen->display); + select_mask = Select_mask; + if (eventMode != NORMAL) + select_mask = X_mask; + } + if (write_mask & ptymask()) { + v_write(screen->respond, 0, 0); /* flush buffer */ + } + + if (select_mask & X_mask) { + xevents(); + if (VTbuffer->update != update) + break; + } + } +} +#else /* VMS */ + +static void +in_put(void) +{ + static PtySelect select_mask; + static PtySelect write_mask; + + TScreen *screen = &term->screen; + int i, time_select; + int size; + int update = VTbuffer->update; + + static struct timeval select_timeout; + +#if OPT_BLINK_CURS + /* + * Compute the timeout for the blinking cursor to be much smaller than + * the "on" or "off" interval. + */ + int tick = ((screen->blink_on < screen->blink_off) + ? screen->blink_on + : screen->blink_off); + tick *= (1000 / 8); /* 1000 for msec/usec, 8 for "much" smaller */ + if (tick < 1) + tick = 1; +#endif + + for (;;) { + if (eventMode == NORMAL + && (size = readPtyData(screen, &select_mask, VTbuffer)) != 0) { + if (screen->scrollWidget + && screen->scrollttyoutput + && screen->topline < 0) + WindowScroll(screen, 0); /* Scroll to bottom */ + /* stop speed reading at some point to look for X stuff */ + TRACE(("VTbuffer uses %d/%d\n", + VTbuffer->last - VTbuffer->buffer, + BUF_SIZE)); + if ((VTbuffer->last - VTbuffer->buffer) > BUF_SIZE) { + FD_CLR(screen->respond, &select_mask); + break; + } +#if defined(HAVE_SCHED_YIELD) + /* + * If we've read a full (small/fragment) buffer, let the operating + * system have a turn, and we'll resume reading until we've either + * read only a fragment of the buffer, or we've filled the large + * buffer (see above). Doing this helps keep up with large bursts + * of output. + */ + if (size == FRG_SIZE) { + select_timeout.tv_sec = 0; + i = Select(max_plus1, &select_mask, &write_mask, 0, + &select_timeout); + if (i > 0) { + sched_yield(); + } else + break; + } else { + break; + } +#else + (void) size; /* unused in this branch */ + break; +#endif + } + /* update the screen */ + if (screen->scroll_amt) + FlushScroll(screen); + if (screen->cursor_set && CursorMoved(screen)) { + if (screen->cursor_state) + HideCursor(); + ShowCursor(); +#if OPT_INPUT_METHOD + PreeditPosition(screen); +#endif + } else if (screen->cursor_set != screen->cursor_state) { + if (screen->cursor_set) + ShowCursor(); + else + HideCursor(); + } + + XFlush(screen->display); /* always flush writes before waiting */ + + /* Update the masks and, unless X events are already in the queue, + wait for I/O to be possible. */ + XFD_COPYSET(&Select_mask, &select_mask); + /* in selection mode xterm does not read pty */ + if (eventMode != NORMAL) + FD_CLR(screen->respond, &select_mask); + + if (v_bufptr > v_bufstr) { + XFD_COPYSET(&pty_mask, &write_mask); + } else + FD_ZERO(&write_mask); + select_timeout.tv_sec = 0; + time_select = 0; + + /* + * if there's either an XEvent or an XtTimeout pending, just take + * a quick peek, i.e. timeout from the select() immediately. If + * there's nothing pending, let select() block a little while, but + * for a shorter interval than the arrow-style scrollbar timeout. + * The blocking is optional, because it tends to increase the load + * on the host. + */ + if (XtAppPending(app_con)) { + select_timeout.tv_usec = 0; + time_select = 1; + } else if (screen->awaitInput) { + select_timeout.tv_usec = 50000; + time_select = 1; +#if OPT_BLINK_CURS + } else if ((screen->blink_timer != 0 && + ((screen->select & FOCUS) || screen->always_highlight)) || + (screen->cursor_state == BLINKED_OFF)) { + select_timeout.tv_usec = tick; + while (select_timeout.tv_usec > 1000000) { + select_timeout.tv_usec -= 1000000; + select_timeout.tv_sec++; + } + time_select = 1; +#endif +#if OPT_SESSION_MGT + } else if (resource.sessionMgt) { + /* + * When session management is enabled, we should not block since + * session related events can arrive any time. + */ + select_timeout.tv_sec = 1; + select_timeout.tv_usec = 0; + time_select = 1; +#endif + } + if (need_cleanup) + Cleanup(0); + +#if defined(NX_TRANS_SOCKET) && defined(NX_TRANS_TEST) + fprintf(stderr, "xterm::in_put: Select called with [%d][%p][%p][%p][%p].\n", + max_plus1, (void *) &select_mask, (void *) &write_mask, (void *) 0, + (void *) (time_select ? &select_timeout : 0)); +#endif + + i = Select(max_plus1, &select_mask, &write_mask, 0, + (time_select ? &select_timeout : 0)); + if (i < 0) { + if (errno != EINTR) + SysError(ERROR_SELECT); + continue; + } + + /* if there is room to write more data to the pty, go write more */ + if (FD_ISSET(screen->respond, &write_mask)) { + v_write(screen->respond, (Char *) 0, 0); /* flush buffer */ + } + + /* if there are X events already in our queue, it + counts as being readable */ + if (XtAppPending(app_con) || + FD_ISSET(ConnectionNumber(screen->display), &select_mask)) { + xevents(); + if (VTbuffer->update != update) /* HandleInterpret */ + break; + } + + } +} +#endif /* VMS */ + +static IChar +doinput(void) +{ + TScreen *screen = &term->screen; + + while (!morePtyData(screen, VTbuffer)) + in_put(); + return nextPtyData(screen, VTbuffer); +} + +#if OPT_INPUT_METHOD +/* + * For OverTheSpot, client has to inform the position for XIM preedit. + */ +static void +PreeditPosition(TScreen * screen) +{ + XPoint spot; + XVaNestedList list; + + if (!screen->xic) + return; + spot.x = CurCursorX(screen, screen->cur_row, screen->cur_col); + spot.y = CursorY(screen, screen->cur_row) + screen->fs_ascent; + list = XVaCreateNestedList(0, + XNSpotLocation, &spot, + XNForeground, T_COLOR(screen, TEXT_FG), + XNBackground, T_COLOR(screen, TEXT_BG), + NULL); + XSetICValues(screen->xic, XNPreeditAttributes, list, NULL); + XFree(list); +} +#endif + +/* + * process a string of characters according to the character set indicated + * by charset. worry about end of line conditions (wraparound if selected). + */ +void +dotext(TScreen * screen, + int charset, + IChar * buf, /* start of characters to process */ + Cardinal len) /* end */ +{ +#if OPT_WIDE_CHARS + Cardinal chars_chomped = 1; +#else + int next_col, last_col, this_col; /* must be signed */ +#endif + Cardinal offset; + +#if OPT_WIDE_CHARS + /* don't translate if we use UTF-8, and are not handling legacy support + * for line-drawing characters. + */ + if ((screen->utf8_mode == uFalse) + || (screen->vt100_graphics && charset == '0')) +#endif + + if (!xtermCharSetOut(buf, buf + len, charset)) + return; + + if_OPT_XMC_GLITCH(screen, { + Cardinal n; + if (charset != '?') { + for (n = 0; n < len; n++) { + if (buf[n] == XMC_GLITCH) + buf[n] = XMC_GLITCH + 1; + } + } + }); + +#if OPT_WIDE_CHARS + for (offset = 0; + offset < len && (chars_chomped > 0 || screen->do_wrap); + offset += chars_chomped) { + int width_available = MaxCols(screen) - screen->cur_col; + int width_here = 0; + int need_wrap = 0; + chars_chomped = 0; + + if (screen->do_wrap && (term->flags & WRAPAROUND)) { + /* mark that we had to wrap this line */ + ScrnSetWrapped(screen, screen->cur_row); + xtermAutoPrint('\n'); + xtermIndex(screen, 1); + set_cur_col(screen, 0); + screen->do_wrap = 0; + width_available = MaxCols(screen) - screen->cur_col; + } + + while (width_here <= width_available && chars_chomped < (len - offset)) { + if (!screen->utf8_mode + || (screen->vt100_graphics && charset == '0')) + width_here++; + else + width_here += my_wcwidth((int) buf[chars_chomped + offset]); + chars_chomped++; + } + + if (width_here > width_available) { + chars_chomped--; + if (!screen->utf8_mode + || (screen->vt100_graphics && charset == '0')) + width_here--; + else + width_here -= my_wcwidth((int) buf[chars_chomped + offset]); + need_wrap = 1; + } else if (width_here == width_available) { + need_wrap = 1; + } else if (chars_chomped != (len - offset)) { + need_wrap = 1; + } + + /* + * Split the wide characters back into separate arrays of 8-bit + * characters so we can use the existing interface. + * + * FIXME: If we rewrote this interface, it would involve + * rewriting all of the memory-management for the screen + * buffers (perhaps this is simpler). + */ + if (chars_chomped != 0) { + static unsigned limit; + static Char *hibyte, *lobyte; + Bool both = False; + unsigned j, k; + + if (chars_chomped >= limit) { + limit = (chars_chomped + 1) * 2; + lobyte = (Char *) XtRealloc((char *) lobyte, limit); + hibyte = (Char *) XtRealloc((char *) hibyte, limit); + } + for (j = offset; j < offset + chars_chomped; j++) { + k = j - offset; + lobyte[k] = buf[j]; + if (buf[j] > 255) { + hibyte[k] = (buf[j] >> 8); + both = True; + } else { + hibyte[k] = 0; + } + } + + WriteText(screen, PAIRED_CHARS(lobyte, + (both ? hibyte : 0)), + chars_chomped); + } + screen->do_wrap = need_wrap; + } +#else + + for (offset = 0; offset < len; offset += this_col) { + last_col = CurMaxCol(screen, screen->cur_row); + this_col = last_col - screen->cur_col + 1; + if (this_col <= 1) { + if (screen->do_wrap && (term->flags & WRAPAROUND)) { + /* mark that we had to wrap this line */ + ScrnSetWrapped(screen, screen->cur_row); + xtermAutoPrint('\n'); + xtermIndex(screen, 1); + set_cur_col(screen, 0); + screen->do_wrap = 0; + this_col = last_col + 1; + } else + this_col = 1; + } + if (offset + this_col > len) { + this_col = len - offset; + } + next_col = screen->cur_col + this_col; + + WriteText(screen, PAIRED_CHARS(buf + offset, + buf2 ? buf2 + offset : 0), + this_col); + + /* + * the call to WriteText updates screen->cur_col. + * If screen->cur_col != next_col, we must have + * hit the right margin, so set the do_wrap flag. + */ + screen->do_wrap = (screen->cur_col < (int) next_col); + } + +#endif +} + +#if HANDLE_STRUCT_NOTIFY +/* Flag icon name with "*** " on window output when iconified. + * I'd like to do something like reverse video, but I don't + * know how to tell this to window managers in general. + * + * mapstate can be IsUnmapped, !IsUnmapped, or -1; + * -1 means no change; the other two are set by event handlers + * and indicate a new mapstate. !IsMapped is done in the handler. + * we worry about IsUnmapped when output occurs. -IAN! + */ +static int mapstate = -1; +#endif /* HANDLE_STRUCT_NOTIFY */ + +#if OPT_WIDE_CHARS +unsigned +visual_width(PAIRED_CHARS(Char * str, Char * str2), Cardinal len) +{ + /* returns the visual width of a string (doublewide characters count + as 2, normalwide characters count as 1) */ + int my_len = 0; + while (len) { + int ch = *str; + if (str2) + ch |= *str2 << 8; + if (str) + str++; + if (str2) + str2++; + if (iswide(ch)) + my_len += 2; + else + my_len++; + len--; + } + return my_len; +} +#endif + +/* + * write a string str of length len onto the screen at + * the current cursor position. update cursor position. + */ +static void +WriteText(TScreen * screen, PAIRED_CHARS(Char * str, Char * str2), Cardinal len) +{ + ScrnPtr PAIRED_CHARS(temp_str = 0, temp_str2 = 0); + unsigned test; + unsigned flags = term->flags; + unsigned fg_bg = makeColorPair(term->cur_foreground, term->cur_background); + unsigned cells = visual_width(PAIRED_CHARS(str, str2), len); + GC currentGC; + + TRACE(("WriteText (%2d,%2d) (%d) %3d:%s\n", + screen->cur_row, + screen->cur_col, + curXtermChrSet(screen->cur_row), + len, visibleChars(PAIRED_CHARS(str, str2), len))); + + if (ScrnHaveSelection(screen) + && ScrnIsLineInSelection(screen, screen->cur_row - screen->topline)) { + ScrnDisownSelection(screen); + } + + if (screen->cur_row - screen->topline <= screen->max_row) { + if (screen->cursor_state) + HideCursor(); + + if (flags & INSERT) { + InsertChar(screen, cells); + } + if (!AddToRefresh(screen)) { + + if (screen->scroll_amt) + FlushScroll(screen); + + if (flags & INVISIBLE) { + if (cells > len) { + str = temp_str = TypeMallocN(Char, cells); + if (str == 0) + return; + } + if_OPT_WIDE_CHARS(screen, { + if (cells > len) { + str2 = temp_str2 = TypeMallocN(Char, cells); + } + }); + len = cells; + + memset(str, ' ', len); + if_OPT_WIDE_CHARS(screen, { + if (str2 != 0) + memset(str2, 0, len); + }); + } + + TRACE(("WriteText calling drawXtermText (%d,%d)\n", + screen->cur_col, + screen->cur_row)); + + test = flags; + checkVeryBoldColors(test, term->cur_foreground); + + /* make sure that the correct GC is current */ + currentGC = updatedXtermGC(screen, flags, fg_bg, False); + + drawXtermText(screen, test & DRAWX_MASK, currentGC, + CurCursorX(screen, screen->cur_row, screen->cur_col), + CursorY(screen, screen->cur_row), + curXtermChrSet(screen->cur_row), + PAIRED_CHARS(str, str2), len, 0); + + resetXtermGC(screen, flags, False); + } + } + + ScreenWrite(screen, PAIRED_CHARS(str, str2), flags, fg_bg, len); + CursorForward(screen, (int) cells); +#if OPT_ZICONBEEP + /* Flag icon name with "***" on window output when iconified. + */ + if (zIconBeep && mapstate == IsUnmapped && !zIconBeep_flagged) { + static char *icon_name; + static Arg args[] = + { + {XtNiconName, (XtArgVal) & icon_name} + }; + + icon_name = NULL; + XtGetValues(toplevel, args, XtNumber(args)); + + if (icon_name != NULL) { + zIconBeep_flagged = True; + Changename(icon_name); + } + if (zIconBeep > 0) { +#if defined(HAVE_XKBBELL) + XkbBell(XtDisplay(toplevel), VShellWindow, zIconBeep, XkbBI_Info); +#else + XBell(XtDisplay(toplevel), zIconBeep); +#endif + } + } + mapstate = -1; +#endif /* OPT_ZICONBEEP */ + if (temp_str != 0) + free(temp_str); + if_OPT_WIDE_CHARS(screen, { + if (temp_str2 != 0) + free(temp_str2); + }); + return; +} + +#if HANDLE_STRUCT_NOTIFY +/* Flag icon name with "***" on window output when iconified. + */ +static void +HandleStructNotify(Widget w GCC_UNUSED, + XtPointer closure GCC_UNUSED, + XEvent * event, + Boolean * cont GCC_UNUSED) +{ + static char *icon_name; + static Arg args[] = + { + {XtNiconName, (XtArgVal) & icon_name} + }; + + switch (event->type) { + case MapNotify: + TRACE(("HandleStructNotify(MapNotify)\n")); +#if OPT_ZICONBEEP + if (zIconBeep_flagged) { + zIconBeep_flagged = False; + icon_name = NULL; + XtGetValues(toplevel, args, XtNumber(args)); + if (icon_name != NULL) { + char *buf = CastMallocN(char, strlen(icon_name)); + if (buf == NULL) { + zIconBeep_flagged = True; + return; + } + strcpy(buf, icon_name + 4); + Changename(buf); + free(buf); + } + } +#endif /* OPT_ZICONBEEP */ + mapstate = !IsUnmapped; + break; + case UnmapNotify: + TRACE(("HandleStructNotify(UnmapNotify)\n")); + mapstate = IsUnmapped; + break; + case ConfigureNotify: + TRACE(("HandleStructNotify(ConfigureNotify)\n")); +#if OPT_TOOLBAR + /* the notify is for the top-level widget, but we care about vt100 */ + if (term->screen.Vshow) { + TScreen *screen = &term->screen; + struct _vtwin *Vwin = WhichVWin(&(term->screen)); + TbInfo *info = &(Vwin->tb_info); + TbInfo save = *info; + + if (info->menu_bar) { + XtVaGetValues(info->menu_bar, + XtNheight, &info->menu_height, + XtNborderWidth, &info->menu_border, + (XtPointer) 0); + + if (save.menu_height != info->menu_height + || save.menu_border != info->menu_border) { + + TRACE(("...menu_height %d\n", info->menu_height)); + TRACE(("...menu_border %d\n", info->menu_border)); + TRACE(("...had height %d, border %d\n", + save.menu_height, + save.menu_border)); + + /* + * FIXME: Window manager still may be using the old values. + * Try to fool it. + */ + XtMakeResizeRequest((Widget) term, + screen->fullVwin.fullwidth, + info->menu_height + - save.menu_height + + screen->fullVwin.fullheight, + NULL, NULL); + repairSizeHints(); + } + } + } +#endif /* OPT_TOOLBAR */ + break; + default: + TRACE(("HandleStructNotify(event %d)\n", event->type)); + break; + } +} +#endif /* HANDLE_STRUCT_NOTIFY */ + +#if OPT_BLINK_CURS +static void +SetCursorBlink(TScreen * screen, int enable) +{ + screen->cursor_blink = enable; + if (DoStartBlinking(screen)) { + StartBlinking(screen); + } else { +#if !OPT_BLINK_TEXT + StopBlinking(screen); +#endif + } + update_cursorblink(); +} + +void +ToggleCursorBlink(TScreen * screen) +{ + SetCursorBlink(screen, !(screen->cursor_blink)); +} +#endif + +/* + * process ANSI modes set, reset + */ +static void +ansi_modes(XtermWidget termw, + void (*func) (unsigned *p, unsigned mask)) +{ + int i; + + for (i = 0; i < nparam; ++i) { + switch (param[i]) { + case 2: /* KAM (if set, keyboard locked */ + (*func) (&termw->keyboard.flags, MODE_KAM); + break; + + case 4: /* IRM */ + (*func) (&termw->flags, INSERT); + break; + + case 12: /* SRM (if set, local echo */ + (*func) (&termw->keyboard.flags, MODE_SRM); + break; + + case 20: /* LNM */ + (*func) (&termw->flags, LINEFEED); + update_autolinefeed(); + break; + } + } +} + +#define set_mousemode(mode) \ + screen->send_mouse_pos = (func == bitset) ? mode : MOUSE_OFF +#define set_mouseflag(f) \ + ((func == bitset) \ + ? SCREEN_FLAG_set(screen, f) \ + : SCREEN_FLAG_unset(screen, f)) + +/* + * process DEC private modes set, reset + */ +static void +dpmodes(XtermWidget termw, + void (*func) (unsigned *p, unsigned mask)) +{ + TScreen *screen = &termw->screen; + int i, j; + + for (i = 0; i < nparam; ++i) { + TRACE(("%s %d\n", (func == bitset) ? "DECSET" : "DECRST", param[i])); + switch (param[i]) { + case 1: /* DECCKM */ + (*func) (&termw->keyboard.flags, MODE_DECCKM); + update_appcursor(); + break; + case 2: /* DECANM - ANSI/VT52 mode */ + if (func == bitset) { /* ANSI (VT100) */ + /* + * Setting DECANM should have no effect, since this function + * cannot be reached from vt52 mode. + */ + ; + } +#if OPT_VT52_MODE + else if (screen->terminal_id >= 100) { /* VT52 */ + TRACE(("DECANM terminal_id %d, vtXX_level %d\n", + screen->terminal_id, + screen->vtXX_level)); + screen->vt52_save_level = screen->vtXX_level; + screen->vtXX_level = 0; + screen->vt52_save_curgl = screen->curgl; + screen->vt52_save_curgr = screen->curgr; + screen->vt52_save_curss = screen->curss; + memmove(screen->vt52_save_gsets, screen->gsets, sizeof(screen->gsets)); + resetCharsets(screen); + nparam = 0; /* ignore the remaining params, if any */ + } +#endif + break; + case 3: /* DECCOLM */ + if (screen->c132) { + ClearScreen(screen); + CursorSet(screen, 0, 0, termw->flags); + if ((j = func == bitset ? 132 : 80) != + ((termw->flags & IN132COLUMNS) ? 132 : 80) || + j != MaxCols(screen)) + RequestResize(termw, -1, j, True); + (*func) (&termw->flags, IN132COLUMNS); + } + break; + case 4: /* DECSCLM (slow scroll) */ + if (func == bitset) { + screen->jumpscroll = 0; + if (screen->scroll_amt) + FlushScroll(screen); + } else + screen->jumpscroll = 1; + (*func) (&termw->flags, SMOOTHSCROLL); + update_jumpscroll(); + break; + case 5: /* DECSCNM */ + j = termw->flags; + (*func) (&termw->flags, REVERSE_VIDEO); + if ((termw->flags ^ j) & REVERSE_VIDEO) + ReverseVideo(termw); + /* update_reversevideo done in RevVid */ + break; + + case 6: /* DECOM */ + (*func) (&termw->flags, ORIGIN); + CursorSet(screen, 0, 0, termw->flags); + break; + + case 7: /* DECAWM */ + (*func) (&termw->flags, WRAPAROUND); + update_autowrap(); + break; + case 8: /* DECARM */ + /* ignore autorepeat + * XAutoRepeatOn() and XAutoRepeatOff() can do this, but only + * for the whole display - not limited to a given window. + */ + break; + case SET_X10_MOUSE: /* MIT bogus sequence */ + MotionOff(screen, termw); + set_mousemode(X10_MOUSE); + break; +#if OPT_TOOLBAR + case 10: /* rxvt */ + ShowToolbar(func == bitset); + break; +#endif +#if OPT_BLINK_CURS + case 12: /* att610: Start/stop blinking cursor */ + if (screen->cursor_blink_res) { + screen->cursor_blink_esc = (func == bitset) ? ON : OFF; + SetCursorBlink(screen, screen->cursor_blink); + } + break; +#endif + case 18: /* DECPFF: print form feed */ + screen->printer_formfeed = (func == bitset) ? ON : OFF; + break; + case 19: /* DECPEX: print extent */ + screen->printer_extent = (func == bitset) ? ON : OFF; + break; + case 25: /* DECTCEM: Show/hide cursor (VT200) */ + screen->cursor_set = (func == bitset) ? ON : OFF; + break; + case 30: /* rxvt */ + if (screen->fullVwin.sb_info.width != ((func == bitset) ? ON : OFF)) + ToggleScrollBar(termw); + break; +#if OPT_SHIFT_FONTS + case 35: /* rxvt */ + term->misc.shift_fonts = (func == bitset) ? ON : OFF; + break; +#endif + case 38: /* DECTEK */ +#if OPT_TEK4014 + if (func == bitset && !(screen->inhibit & I_TEK)) { + FlushLog(screen); + screen->TekEmu = True; + } +#endif + break; + case 40: /* 132 column mode */ + screen->c132 = (func == bitset); + update_allow132(); + break; + case 41: /* curses hack */ + screen->curses = (func == bitset); + update_cursesemul(); + break; + case 42: /* DECNRCM national charset (VT220) */ + (*func) (&termw->flags, NATIONAL); + break; + case 44: /* margin bell */ + screen->marginbell = (func == bitset); + if (!screen->marginbell) + screen->bellarmed = -1; + update_marginbell(); + break; + case 45: /* reverse wraparound */ + (*func) (&termw->flags, REVERSEWRAP); + update_reversewrap(); + break; +#ifdef ALLOWLOGGING + case 46: /* logging */ +#ifdef ALLOWLOGFILEONOFF + /* + * if this feature is enabled, logging may be + * enabled and disabled via escape sequences. + */ + if (func == bitset) + StartLog(screen); + else + CloseLog(screen); +#else + Bell(XkbBI_Info, 0); + Bell(XkbBI_Info, 0); +#endif /* ALLOWLOGFILEONOFF */ + break; +#endif + case 1049: /* alternate buffer & cursor */ + if (!termw->misc.titeInhibit) { + if (func == bitset) { + CursorSave(termw); + ToAlternate(screen); + ClearScreen(screen); + } else { + FromAlternate(screen); + CursorRestore(termw); + } + } else if (termw->misc.tiXtraScroll) { + if (func == bitset) { + xtermScroll(screen, screen->max_row); + } + } + break; + case 1047: + case 47: /* alternate buffer */ + if (!termw->misc.titeInhibit) { + if (func == bitset) { + ToAlternate(screen); + } else { + if (screen->alternate + && (param[i] == 1047)) + ClearScreen(screen); + FromAlternate(screen); + } + } else if (termw->misc.tiXtraScroll) { + if (func == bitset) { + xtermScroll(screen, screen->max_row); + } + } + break; + case 66: /* DECNKM */ + (*func) (&termw->keyboard.flags, MODE_DECKPAM); + update_appkeypad(); + break; + case 67: /* DECBKM */ + /* back-arrow mapped to backspace or delete(D) */ + (*func) (&termw->keyboard.flags, MODE_DECBKM); + TRACE(("DECSET DECBKM %s\n", + BtoS(termw->keyboard.flags & MODE_DECBKM))); + update_decbkm(); + break; + case SET_VT200_MOUSE: /* xterm bogus sequence */ + MotionOff(screen, termw); + set_mousemode(VT200_MOUSE); + break; + case SET_VT200_HIGHLIGHT_MOUSE: /* xterm sequence w/hilite tracking */ + MotionOff(screen, termw); + set_mousemode(VT200_HIGHLIGHT_MOUSE); + break; + case SET_BTN_EVENT_MOUSE: + MotionOff(screen, termw); + set_mousemode(BTN_EVENT_MOUSE); + break; + case SET_ANY_EVENT_MOUSE: + set_mousemode(ANY_EVENT_MOUSE); + if (screen->send_mouse_pos == MOUSE_OFF) { + MotionOff(screen, term); + } else { + MotionOn(screen, term); + } + break; + case 1010: /* rxvt */ + screen->scrollttyoutput = (func == bitset) ? ON : OFF; + update_scrollttyoutput(); + break; + case 1011: /* rxvt */ + screen->scrollkey = (func == bitset) ? ON : OFF; + update_scrollkey(); + break; +#if OPT_NUM_LOCK + case 1035: + term->misc.real_NumLock = (func == bitset) ? ON : OFF; + update_num_lock(); + break; + case 1036: + screen->meta_sends_esc = (func == bitset) ? ON : OFF; + update_meta_esc(); + break; +#endif + case 1037: + screen->delete_is_del = (func == bitset) ? ON : OFF; + update_delete_del(); + break; + case 1048: + if (!termw->misc.titeInhibit) { + if (func == bitset) + CursorSave(termw); + else + CursorRestore(termw); + } + break; + case 1051: + set_keyboard_type(keyboardIsSun, func == bitset); + break; +#if OPT_HP_FUNC_KEYS + case 1052: + set_keyboard_type(keyboardIsHP, func == bitset); + break; +#endif +#if OPT_SCO_FUNC_KEYS + case 1053: + set_keyboard_type(keyboardIsSCO, func == bitset); + break; +#endif + case 1060: + set_keyboard_type(keyboardIsLegacy, func == bitset); + break; +#if OPT_SUNPC_KBD + case 1061: + set_keyboard_type(keyboardIsVT220, func == bitset); + break; +#endif +#if OPT_READLINE + case SET_BUTTON1_MOVE_POINT: + set_mouseflag(click1_moves); + break; + case SET_BUTTON2_MOVE_POINT: + set_mouseflag(paste_moves); + break; + case SET_DBUTTON3_DELETE: + set_mouseflag(dclick3_deletes); + break; + case SET_PASTE_IN_BRACKET: + set_mouseflag(paste_brackets); + break; + case SET_PASTE_QUOTE: + set_mouseflag(paste_quotes); + break; + case SET_PASTE_LITERAL_NL: + set_mouseflag(paste_literal_nl); + break; +#endif /* OPT_READLINE */ + } + } +} + +/* + * process xterm private modes save + */ +static void +savemodes(XtermWidget termw) +{ + TScreen *screen = &termw->screen; + int i; + + for (i = 0; i < nparam; i++) { + TRACE(("savemodes %d\n", param[i])); + switch (param[i]) { + case 1: /* DECCKM */ + DoSM(DP_DECCKM, termw->keyboard.flags & MODE_DECCKM); + break; + case 3: /* DECCOLM */ + if (screen->c132) + DoSM(DP_DECCOLM, termw->flags & IN132COLUMNS); + break; + case 4: /* DECSCLM (slow scroll) */ + DoSM(DP_DECSCLM, termw->flags & SMOOTHSCROLL); + break; + case 5: /* DECSCNM */ + DoSM(DP_DECSCNM, termw->flags & REVERSE_VIDEO); + break; + case 6: /* DECOM */ + DoSM(DP_DECOM, termw->flags & ORIGIN); + break; + + case 7: /* DECAWM */ + DoSM(DP_DECAWM, termw->flags & WRAPAROUND); + break; + case 8: /* DECARM */ + /* ignore autorepeat */ + break; + case SET_X10_MOUSE: /* mouse bogus sequence */ + DoSM(DP_X_X10MSE, screen->send_mouse_pos); + break; +#if OPT_TOOLBAR + case 10: /* rxvt */ + DoSM(DP_TOOLBAR, resource.toolBar); + break; +#endif +#if OPT_BLINK_CURS + case 12: /* att610: Start/stop blinking cursor */ + if (screen->cursor_blink_res) { + DoSM(DP_CRS_BLINK, screen->cursor_blink_esc); + } + break; +#endif + case 18: /* DECPFF: print form feed */ + DoSM(DP_PRN_FORMFEED, screen->printer_formfeed); + break; + case 19: /* DECPEX: print extent */ + DoSM(DP_PRN_EXTENT, screen->printer_extent); + break; + case 25: /* DECTCEM: Show/hide cursor (VT200) */ + DoSM(DP_CRS_VISIBLE, screen->cursor_set); + break; + case 40: /* 132 column mode */ + DoSM(DP_X_DECCOLM, screen->c132); + break; + case 41: /* curses hack */ + DoSM(DP_X_MORE, screen->curses); + break; + case 44: /* margin bell */ + DoSM(DP_X_MARGIN, screen->marginbell); + break; + case 45: /* reverse wraparound */ + DoSM(DP_X_REVWRAP, termw->flags & REVERSEWRAP); + break; +#ifdef ALLOWLOGGING + case 46: /* logging */ + DoSM(DP_X_LOGGING, screen->logging); + break; +#endif + case 1047: /* alternate buffer */ + /* FALLTHRU */ + case 47: /* alternate buffer */ + DoSM(DP_X_ALTSCRN, screen->alternate); + break; + case SET_VT200_MOUSE: /* mouse bogus sequence */ + case SET_VT200_HIGHLIGHT_MOUSE: + case SET_BTN_EVENT_MOUSE: + case SET_ANY_EVENT_MOUSE: + DoSM(DP_X_MOUSE, screen->send_mouse_pos); + break; + case 1048: + if (!termw->misc.titeInhibit) { + CursorSave(termw); + } + break; +#if OPT_READLINE + case SET_BUTTON1_MOVE_POINT: + SCREEN_FLAG_save(screen, click1_moves); + break; + case SET_BUTTON2_MOVE_POINT: + SCREEN_FLAG_save(screen, paste_moves); + break; + case SET_DBUTTON3_DELETE: + SCREEN_FLAG_save(screen, dclick3_deletes); + break; + case SET_PASTE_IN_BRACKET: + SCREEN_FLAG_save(screen, paste_brackets); + break; + case SET_PASTE_QUOTE: + SCREEN_FLAG_save(screen, paste_quotes); + break; + case SET_PASTE_LITERAL_NL: + SCREEN_FLAG_save(screen, paste_literal_nl); + break; +#endif /* OPT_READLINE */ + } + } +} + +/* + * process xterm private modes restore + */ +static void +restoremodes(XtermWidget termw) +{ + TScreen *screen = &termw->screen; + int i, j; + + for (i = 0; i < nparam; i++) { + TRACE(("restoremodes %d\n", param[i])); + switch (param[i]) { + case 1: /* DECCKM */ + bitcpy(&termw->keyboard.flags, + screen->save_modes[DP_DECCKM], MODE_DECCKM); + update_appcursor(); + break; + case 3: /* DECCOLM */ + if (screen->c132) { + ClearScreen(screen); + CursorSet(screen, 0, 0, termw->flags); + if ((j = (screen->save_modes[DP_DECCOLM] & IN132COLUMNS) + ? 132 : 80) != ((termw->flags & IN132COLUMNS) + ? 132 : 80) || j != MaxCols(screen)) + RequestResize(termw, -1, j, True); + bitcpy(&termw->flags, + screen->save_modes[DP_DECCOLM], + IN132COLUMNS); + } + break; + case 4: /* DECSCLM (slow scroll) */ + if (screen->save_modes[DP_DECSCLM] & SMOOTHSCROLL) { + screen->jumpscroll = 0; + if (screen->scroll_amt) + FlushScroll(screen); + } else + screen->jumpscroll = 1; + bitcpy(&termw->flags, screen->save_modes[DP_DECSCLM], SMOOTHSCROLL); + update_jumpscroll(); + break; + case 5: /* DECSCNM */ + if ((screen->save_modes[DP_DECSCNM] ^ termw->flags) & REVERSE_VIDEO) { + bitcpy(&termw->flags, screen->save_modes[DP_DECSCNM], REVERSE_VIDEO); + ReverseVideo(termw); + /* update_reversevideo done in RevVid */ + } + break; + case 6: /* DECOM */ + bitcpy(&termw->flags, screen->save_modes[DP_DECOM], ORIGIN); + CursorSet(screen, 0, 0, termw->flags); + break; + + case 7: /* DECAWM */ + bitcpy(&termw->flags, screen->save_modes[DP_DECAWM], WRAPAROUND); + update_autowrap(); + break; + case 8: /* DECARM */ + /* ignore autorepeat */ + break; + case SET_X10_MOUSE: /* MIT bogus sequence */ + DoRM(DP_X_X10MSE, screen->send_mouse_pos); + break; +#if OPT_TOOLBAR + case 10: /* rxvt */ + DoRM(DP_TOOLBAR, resource.toolBar); + ShowToolbar(resource.toolBar); + break; +#endif +#if OPT_BLINK_CURS + case 12: /* att610: Start/stop blinking cursor */ + if (screen->cursor_blink_res) { + DoRM(DP_CRS_BLINK, screen->cursor_blink_esc); + SetCursorBlink(screen, screen->cursor_blink); + } + break; +#endif + case 18: /* DECPFF: print form feed */ + DoRM(DP_PRN_FORMFEED, screen->printer_formfeed); + break; + case 19: /* DECPEX: print extent */ + DoRM(DP_PRN_EXTENT, screen->printer_extent); + break; + case 25: /* DECTCEM: Show/hide cursor (VT200) */ + DoRM(DP_CRS_VISIBLE, screen->cursor_set); + break; + case 40: /* 132 column mode */ + DoRM(DP_X_DECCOLM, screen->c132); + update_allow132(); + break; + case 41: /* curses hack */ + DoRM(DP_X_MORE, screen->curses); + update_cursesemul(); + break; + case 44: /* margin bell */ + if ((DoRM(DP_X_MARGIN, screen->marginbell)) == 0) + screen->bellarmed = -1; + update_marginbell(); + break; + case 45: /* reverse wraparound */ + bitcpy(&termw->flags, screen->save_modes[DP_X_REVWRAP], REVERSEWRAP); + update_reversewrap(); + break; +#ifdef ALLOWLOGGING + case 46: /* logging */ +#ifdef ALLOWLOGFILEONOFF + if (screen->save_modes[DP_X_LOGGING]) + StartLog(screen); + else + CloseLog(screen); +#endif /* ALLOWLOGFILEONOFF */ + /* update_logging done by StartLog and CloseLog */ + break; +#endif + case 1047: /* alternate buffer */ + /* FALLTHRU */ + case 47: /* alternate buffer */ + if (!termw->misc.titeInhibit) { + if (screen->save_modes[DP_X_ALTSCRN]) + ToAlternate(screen); + else + FromAlternate(screen); + /* update_altscreen done by ToAlt and FromAlt */ + } else if (termw->misc.tiXtraScroll) { + if (screen->save_modes[DP_X_ALTSCRN]) { + xtermScroll(screen, screen->max_row); + } + } + break; + case SET_VT200_MOUSE: /* mouse bogus sequence */ + case SET_VT200_HIGHLIGHT_MOUSE: + case SET_BTN_EVENT_MOUSE: + case SET_ANY_EVENT_MOUSE: + DoRM(DP_X_MOUSE, screen->send_mouse_pos); + break; + case 1048: + if (!termw->misc.titeInhibit) { + CursorRestore(termw); + } + break; +#if OPT_READLINE + case SET_BUTTON1_MOVE_POINT: + SCREEN_FLAG_restore(screen, click1_moves); + break; + case SET_BUTTON2_MOVE_POINT: + SCREEN_FLAG_restore(screen, paste_moves); + break; + case SET_DBUTTON3_DELETE: + SCREEN_FLAG_restore(screen, dclick3_deletes); + break; + case SET_PASTE_IN_BRACKET: + SCREEN_FLAG_restore(screen, paste_brackets); + break; + case SET_PASTE_QUOTE: + SCREEN_FLAG_restore(screen, paste_quotes); + break; + case SET_PASTE_LITERAL_NL: + SCREEN_FLAG_restore(screen, paste_literal_nl); + break; +#endif /* OPT_READLINE */ + } + } +} + +/* + * Report window label (icon or title) in dtterm protocol + * ESC ] code label ESC backslash + */ +static void +report_win_label(TScreen * screen, + int code, + XTextProperty * text, + Status ok) +{ + char **list; + int length = 0; + + reply.a_type = ESC; + unparseputc(ESC, screen->respond); + unparseputc(']', screen->respond); + unparseputc(code, screen->respond); + + if (ok) { + if (XTextPropertyToStringList(text, &list, &length)) { + int n, c; + for (n = 0; n < length; n++) { + char *s = list[n]; + while ((c = *s++) != '\0') + unparseputc(c, screen->respond); + } + XFreeStringList(list); + } + if (text->value != 0) + XFree(text->value); + } + + unparseputc(ESC, screen->respond); + unparseputc('\\', screen->respond); +} + +/* + * Window operations (from CDE dtterm description, as well as extensions). + * See also "allowWindowOps" resource. + */ +static void +window_ops(XtermWidget termw) +{ + TScreen *screen = &termw->screen; + XWindowChanges values; + XWindowAttributes win_attrs; + XTextProperty text; + unsigned value_mask; + unsigned root_width; + unsigned root_height; + + TRACE(("window_ops %d\n", param[0])); + switch (param[0]) { + case 1: /* Restore (de-iconify) window */ + XMapWindow(screen->display, + VShellWindow); + break; + + case 2: /* Minimize (iconify) window */ + XIconifyWindow(screen->display, + VShellWindow, + DefaultScreen(screen->display)); + break; + + case 3: /* Move the window to the given position */ + values.x = param[1]; + values.y = param[2]; + value_mask = (CWX | CWY); + XReconfigureWMWindow(screen->display, + VShellWindow, + DefaultScreen(screen->display), + value_mask, + &values); + break; + + case 4: /* Resize the window to given size in pixels */ + RequestResize(termw, param[1], param[2], False); + break; + + case 5: /* Raise the window to the front of the stack */ + XRaiseWindow(screen->display, VShellWindow); + break; + + case 6: /* Lower the window to the bottom of the stack */ + XLowerWindow(screen->display, VShellWindow); + break; + + case 7: /* Refresh the window */ + Redraw(); + break; + + case 8: /* Resize the text-area, in characters */ + RequestResize(termw, param[1], param[2], True); + break; + +#if OPT_MAXIMIZE + case 9: /* Maximize or restore */ + RequestMaximize(termw, param[1]); + break; +#endif + + case 11: /* Report the window's state */ + XGetWindowAttributes(screen->display, + VWindow(screen), + &win_attrs); + reply.a_type = CSI; + reply.a_pintro = 0; + reply.a_nparam = 1; + reply.a_param[0] = (win_attrs.map_state == IsViewable) ? 1 : 2; + reply.a_inters = 0; + reply.a_final = 't'; + unparseseq(&reply, screen->respond); + break; + + case 13: /* Report the window's position */ + XGetWindowAttributes(screen->display, + WMFrameWindow(termw), + &win_attrs); + reply.a_type = CSI; + reply.a_pintro = 0; + reply.a_nparam = 3; + reply.a_param[0] = 3; + reply.a_param[1] = win_attrs.x; + reply.a_param[2] = win_attrs.y; + reply.a_inters = 0; + reply.a_final = 't'; + unparseseq(&reply, screen->respond); + break; + + case 14: /* Report the window's size in pixels */ + XGetWindowAttributes(screen->display, + VWindow(screen), + &win_attrs); + reply.a_type = CSI; + reply.a_pintro = 0; + reply.a_nparam = 3; + reply.a_param[0] = 4; + /*FIXME: find if dtterm uses + * win_attrs.height or Height + * win_attrs.width or Width + */ + reply.a_param[1] = Height(screen); + reply.a_param[2] = Width(screen); + reply.a_inters = 0; + reply.a_final = 't'; + unparseseq(&reply, screen->respond); + break; + + case 18: /* Report the text's size in characters */ + reply.a_type = CSI; + reply.a_pintro = 0; + reply.a_nparam = 3; + reply.a_param[0] = 8; + reply.a_param[1] = MaxRows(screen); + reply.a_param[2] = MaxCols(screen); + reply.a_inters = 0; + reply.a_final = 't'; + unparseseq(&reply, screen->respond); + break; + +#if OPT_MAXIMIZE + case 19: /* Report the screen's size, in characters */ + if (!QueryMaximize(term, &root_height, &root_width)) { + root_height = 0; + root_width = 0; + } + reply.a_type = CSI; + reply.a_pintro = 0; + reply.a_nparam = 3; + reply.a_param[0] = 9; + reply.a_param[1] = root_height / FontHeight(screen); + reply.a_param[2] = root_width / FontWidth(screen); + reply.a_inters = 0; + reply.a_final = 't'; + unparseseq(&reply, screen->respond); + break; +#endif + + case 20: /* Report the icon's label */ + report_win_label(screen, 'L', &text, + XGetWMIconName(screen->display, VShellWindow, &text)); + break; + + case 21: /* Report the window's title */ + report_win_label(screen, 'l', &text, + XGetWMName(screen->display, VShellWindow, &text)); + break; + + default: /* DECSLPP (24, 25, 36, 48, 72, 144) */ + if (param[0] >= 24) + RequestResize(termw, param[0], -1, True); + break; + } +} + +/* + * set a bit in a word given a pointer to the word and a mask. + */ +static void +bitset(unsigned *p, unsigned mask) +{ + *p |= mask; +} + +/* + * clear a bit in a word given a pointer to the word and a mask. + */ +static void +bitclr(unsigned *p, unsigned mask) +{ + *p &= ~mask; +} + +/* + * Copy bits from one word to another, given a mask + */ +static void +bitcpy(unsigned *p, unsigned q, unsigned mask) +{ + bitclr(p, mask); + bitset(p, q & mask); +} + +void +unparseputc1(int c, int fd) +{ + if (c >= 0x80 && c <= 0x9F) { + if (!term->screen.control_eight_bits) { + unparseputc(A2E(ESC), fd); + c = A2E(c - 0x40); + } + } + unparseputc(c, fd); +} + +void +unparseseq(ANSI * ap, int fd) +{ + int c; + int i; + int inters; + + unparseputc1(c = ap->a_type, fd); + if (c == ESC + || c == DCS + || c == CSI + || c == OSC + || c == PM + || c == APC + || c == SS3) { + if (ap->a_pintro != 0) + unparseputc(ap->a_pintro, fd); + for (i = 0; i < ap->a_nparam; ++i) { + if (i != 0) + unparseputc(';', fd); + unparseputn((unsigned int) ap->a_param[i], fd); + } + if ((inters = ap->a_inters) != 0) { + for (i = 3; i >= 0; --i) { + c = CharOf(inters >> (8 * i)); + if (c != 0) + unparseputc(c, fd); + } + } + unparseputc((char) ap->a_final, fd); + } +} + +static void +unparseputn(unsigned int n, int fd) +{ + unsigned int q; + + q = n / 10; + if (q != 0) + unparseputn(q, fd); + unparseputc((char) ('0' + (n % 10)), fd); +} + +void +unparseputc(int c, int fd) +{ + IChar buf[2]; + unsigned i = 1; + +#if OPT_TCAP_QUERY + /* + * If we're returning a termcap string, it has to be translated since + * a DCS must not contain any characters except for the normal 7-bit + * printable ASCII (counting tab, carriage return, etc). For now, + * just use hexadecimal for the whole thing. + */ + if (term->screen.tc_query >= 0) { + char tmp[3]; + sprintf(tmp, "%02X", c & 0xFF); + buf[0] = tmp[0]; + buf[1] = tmp[1]; + i = 2; + } else +#endif + if ((buf[0] = c) == '\r' && (term->flags & LINEFEED)) { + buf[1] = '\n'; + i++; + } +#ifdef VMS + tt_write(&buf, i); +#else /* VMS */ + writePtyData(fd, buf, i); +#endif /* VMS */ + + /* If send/receive mode is reset, we echo characters locally */ + if ((term->keyboard.flags & MODE_SRM) == 0) { + (void) doparsing((unsigned) c, &myState); + } +} + +void +unparseputs(char *s, int fd) +{ + while (*s) + unparseputc(*s++, fd); +} + +void +ToggleAlternate(TScreen * screen) +{ + if (screen->alternate) + FromAlternate(screen); + else + ToAlternate(screen); +} + +static void +ToAlternate(TScreen * screen) +{ + if (screen->alternate) + return; + TRACE(("ToAlternate\n")); + if (!screen->altbuf) + screen->altbuf = Allocate(MaxRows(screen), MaxCols(screen), + &screen->abuf_address); + SwitchBufs(screen); + screen->alternate = True; + update_altscreen(); +} + +static void +FromAlternate(TScreen * screen) +{ + if (!screen->alternate) + return; + TRACE(("FromAlternate\n")); + if (screen->scroll_amt) + FlushScroll(screen); + screen->alternate = False; + SwitchBufs(screen); + update_altscreen(); +} + +static void +SwitchBufs(TScreen * screen) +{ + int rows, top; + + if (screen->cursor_state) + HideCursor(); + + rows = MaxRows(screen); + SwitchBufPtrs(screen); + + if ((top = -screen->topline) < rows) { + if (screen->scroll_amt) + FlushScroll(screen); + if (top == 0) + XClearWindow(screen->display, VWindow(screen)); + else + XClearArea(screen->display, + VWindow(screen), + (int) OriginX(screen), + (int) top * FontHeight(screen) + screen->border, + (unsigned) Width(screen), + (unsigned) (rows - top) * FontHeight(screen), + False); + } + ScrnUpdate(screen, 0, 0, rows, MaxCols(screen), False); +} + +/* swap buffer line pointers between alt and regular screens */ +void +SwitchBufPtrs(TScreen * screen) +{ + size_t len = ScrnPointers(screen, (unsigned) MaxRows(screen)); + + memcpy((char *) screen->save_ptr, (char *) screen->visbuf, len); + memcpy((char *) screen->visbuf, (char *) screen->altbuf, len); + memcpy((char *) screen->altbuf, (char *) screen->save_ptr, len); +} + +void +VTRun(void) +{ + TScreen *screen = &term->screen; + + TRACE(("VTRun ...\n")); + + if (!screen->Vshow) { + set_vt_visibility(True); + } + update_vttekmode(); + update_vtshow(); + update_tekshow(); + set_vthide_sensitivity(); + + if (screen->allbuf == NULL) + VTallocbuf(); + + screen->cursor_state = OFF; + screen->cursor_set = ON; +#if OPT_BLINK_CURS + if (DoStartBlinking(screen)) + StartBlinking(screen); +#endif + +#if OPT_TEK4014 + if (Tpushb > Tpushback) { + fillPtyData(screen, VTbuffer, (char *) Tpushback, Tpushb - Tpushback); + Tpushb = Tpushback; + } +#endif + if (!setjmp(VTend)) + VTparse(); + StopBlinking(screen); + HideCursor(); + screen->cursor_set = OFF; +} + +/*ARGSUSED*/ +static void +VTExpose(Widget w GCC_UNUSED, + XEvent * event, + Region region GCC_UNUSED) +{ + TScreen *screen = &term->screen; + +#ifdef DEBUG + if (debug) + fputs("Expose\n", stderr); +#endif /* DEBUG */ + if (event->type == Expose) + HandleExposure(screen, event); +} + +static void +VTGraphicsOrNoExpose(XEvent * event) +{ + TScreen *screen = &term->screen; + if (screen->incopy <= 0) { + screen->incopy = 1; + if (screen->scrolls > 0) + screen->scrolls--; + } + if (event->type == GraphicsExpose) + if (HandleExposure(screen, event)) + screen->cursor_state = OFF; + if ((event->type == NoExpose) + || ((XGraphicsExposeEvent *) event)->count == 0) { + if (screen->incopy <= 0 && screen->scrolls > 0) + screen->scrolls--; + if (screen->scrolls) + screen->incopy = -1; + else + screen->incopy = 0; + } +} + +/*ARGSUSED*/ +static void +VTNonMaskableEvent(Widget w GCC_UNUSED, + XtPointer closure GCC_UNUSED, + XEvent * event, + Boolean * cont GCC_UNUSED) +{ + switch (event->type) { + case GraphicsExpose: + case NoExpose: + VTGraphicsOrNoExpose(event); + break; + } +} + +static void +VTResize(Widget w) +{ + if (XtIsRealized(w)) { + ScreenResize(&term->screen, term->core.width, term->core.height, &term->flags); + } +} + +#define okDimension(src,dst) ((src <= 32767) && ((dst = src) == src)) + +static void +RequestResize(XtermWidget termw, int rows, int cols, int text) +{ +#ifndef nothack + XSizeHints sizehints; + long supp; +#endif + TScreen *screen = &termw->screen; + unsigned long value; + Dimension replyWidth, replyHeight; + Dimension askedWidth, askedHeight; + XtGeometryResult status; + XWindowAttributes attrs; + + TRACE(("RequestResize(rows=%d, cols=%d, text=%d)\n", rows, cols, text)); + + if ((askedWidth = cols) < cols + || (askedHeight = rows) < rows) + return; + + if (askedHeight == 0 + || askedWidth == 0 + || term->misc.limit_resize > 0) { + XGetWindowAttributes(XtDisplay(termw), + RootWindowOfScreen(XtScreen(termw)), &attrs); + } + + if (text) { + if ((value = rows) != 0) { + if (rows < 0) + value = MaxRows(screen); + value *= FontHeight(screen); + value += (2 * screen->border); + if (!okDimension(value, askedHeight)) + return; + } + + if ((value = cols) != 0) { + if (cols < 0) + value = MaxCols(screen); + value *= FontWidth(screen); + value += (2 * screen->border) + ScrollbarWidth(screen); + if (!okDimension(value, askedWidth)) + return; + } + + } else { + if (rows < 0) + askedHeight = FullHeight(screen); + if (cols < 0) + askedWidth = FullWidth(screen); + } + + if (rows == 0) + askedHeight = attrs.height; + if (cols == 0) + askedWidth = attrs.width; + + if (term->misc.limit_resize > 0) { + Dimension high = term->misc.limit_resize * attrs.height; + Dimension wide = term->misc.limit_resize * attrs.width; + if (high < attrs.height) + high = attrs.height; + if (askedHeight > high) + askedHeight = high; + if (wide < attrs.width) + wide = attrs.width; + if (askedWidth > wide) + askedWidth = wide; + } +#ifndef nothack + if (!XGetWMNormalHints(screen->display, VShellWindow, + &sizehints, &supp)) + bzero(&sizehints, sizeof(sizehints)); +#endif + + status = XtMakeResizeRequest((Widget) termw, + askedWidth, askedHeight, + &replyWidth, &replyHeight); + TRACE(("charproc.c XtMakeResizeRequest %dx%d -> %dx%d (status %d)\n", + askedHeight, askedWidth, + replyHeight, replyWidth, + status)); + + if (status == XtGeometryYes || + status == XtGeometryDone) { + ScreenResize(&termw->screen, + replyWidth, + replyHeight, + &termw->flags); + } +#ifndef nothack + /* + * XtMakeResizeRequest() has the undesirable side-effect of clearing + * the window manager's hints, even on a failed request. This would + * presumably be fixed if the shell did its own work. + */ + if (sizehints.flags + && replyHeight + && replyWidth) { + sizehints.height = replyHeight; + sizehints.width = replyWidth; + + TRACE(("%s@%d -- ", __FILE__, __LINE__)); + TRACE_HINTS(&sizehints); + XSetWMNormalHints(screen->display, VShellWindow, &sizehints); + TRACE(("%s@%d -- ", __FILE__, __LINE__)); + TRACE_WM_HINTS(termw); + } +#endif + + XSync(screen->display, False); /* synchronize */ + if (XtAppPending(app_con)) + xevents(); +} + +static String xterm_trans = +"<ClientMessage>WM_PROTOCOLS: DeleteWindow()\n\ + <MappingNotify>: KeyboardMapping()\n"; + +int +VTInit(void) +{ + TScreen *screen = &term->screen; + Widget vtparent = SHELL_OF(term); + + XtRealizeWidget(vtparent); + XtOverrideTranslations(vtparent, XtParseTranslationTable(xterm_trans)); + (void) XSetWMProtocols(XtDisplay(vtparent), XtWindow(vtparent), + &wm_delete_window, 1); + TRACE_TRANS("shell", vtparent); + TRACE_TRANS("vt100", (Widget) (term)); + + if (screen->allbuf == NULL) + VTallocbuf(); + return (1); +} + +static void +VTallocbuf(void) +{ + TScreen *screen = &term->screen; + int nrows = MaxRows(screen); + + /* allocate screen buffer now, if necessary. */ + if (screen->scrollWidget) + nrows += screen->savelines; + screen->allbuf = Allocate(nrows, MaxCols(screen), + &screen->sbuf_address); + if (screen->scrollWidget) + screen->visbuf = &screen->allbuf[MAX_PTRS * screen->savelines]; + else + screen->visbuf = screen->allbuf; + return; +} + +static void +VTClassInit(void) +{ + XtAddConverter(XtRString, XtRGravity, XmuCvtStringToGravity, + (XtConvertArgList) NULL, (Cardinal) 0); +} + +/* + * The whole wnew->screen struct is zeroed in VTInitialize. Use these macros + * where applicable for copying the pieces from the request widget into the + * new widget. We do not have to use them for wnew->misc, but the associated + * traces are very useful for debugging. + */ +#if OPT_TRACE +#define init_Bres(name) \ + TRACE(("init " #name " = %s\n", \ + BtoS(wnew->name = request->name))) +#define init_Dres(name) \ + TRACE(("init " #name " = %f\n", \ + wnew->name = request->name)) +#define init_Ires(name) \ + TRACE(("init " #name " = %d\n", \ + wnew->name = request->name)) +#define init_Sres(name) \ + TRACE(("init " #name " = \"%s\"\n", \ + (wnew->name = x_strtrim(request->name)) != NULL \ + ? wnew->name : "<null>")) +#define init_Tres(offset) \ + TRACE(("init screen.Tcolors[" #offset "] = %#lx\n", \ + fill_Tres(wnew, request, offset))) +#else +#define init_Bres(name) wnew->name = request->name +#define init_Dres(name) wnew->name = request->name +#define init_Ires(name) wnew->name = request->name +#define init_Sres(name) wnew->name = x_strtrim(request->name) +#define init_Tres(offset) fill_Tres(wnew, request, offset) +#endif + +#if OPT_COLOR_RES +/* + * Override the use of XtDefaultForeground/XtDefaultBackground to make some + * colors, such as cursor color, use the actual foreground/background value + * if there is no explicit resource value used. + */ +static Pixel +fill_Tres(XtermWidget target, XtermWidget source, int offset) +{ + char *name; + ScrnColors temp; + + target->screen.Tcolors[offset] = source->screen.Tcolors[offset]; + target->screen.Tcolors[offset].mode = False; + + if ((name = x_strtrim(target->screen.Tcolors[offset].resource)) != 0) + target->screen.Tcolors[offset].resource = name; + + if (name == 0) { + target->screen.Tcolors[offset].value = target->dft_foreground; + } else if (!x_strcasecmp(name, XtDefaultForeground)) { + target->screen.Tcolors[offset].value = + ((offset == TEXT_FG || offset == TEXT_BG) + ? target->dft_foreground + : target->screen.Tcolors[TEXT_FG].value); + } else if (!x_strcasecmp(name, XtDefaultBackground)) { + target->screen.Tcolors[offset].value = + ((offset == TEXT_FG || offset == TEXT_BG) + ? target->dft_background + : target->screen.Tcolors[TEXT_BG].value); + } else { + if (AllocateTermColor(target, &temp, offset, name)) { + target->screen.Tcolors[offset].value = temp.colors[offset]; + } + } + return target->screen.Tcolors[offset].value; +} +#else +#define fill_Tres(target, source, offset) \ + target->screen.Tcolors[offset] = source->screen.Tcolors[offset] +#endif + +#if OPT_WIDE_CHARS +static void +VTInitialize_locale(XtermWidget request) +{ + Bool is_utf8 = xtermEnvUTF8(); + + TRACE(("VTInitialize_locale\n")); + TRACE(("... request screen.utf8_mode = %d\n", request->screen.utf8_mode)); + + if (request->screen.utf8_mode < 0) + request->screen.utf8_mode = uFalse; + + if (request->screen.utf8_mode > 3) + request->screen.utf8_mode = uDefault; + + request->screen.latin9_mode = 0; + request->screen.unicode_font = 0; +#if OPT_LUIT_PROG + request->misc.callfilter = 0; + request->misc.use_encoding = 0; + + TRACE(("... setup for luit:\n")); + TRACE(("... request misc.locale_str = \"%s\"\n", request->misc.locale_str)); + + if (request->screen.utf8_mode == uFalse) { + TRACE(("... command-line +u8 overrides\n")); + } else +#if OPT_MINI_LUIT + if (x_strcasecmp(request->misc.locale_str, "CHECKFONT") == 0) { + int fl = (request->misc.default_font.f_n + ? strlen(request->misc.default_font.f_n) + : 0); + if (fl > 11 + && x_strcasecmp(request->misc.default_font.f_n + fl - 11, + "-ISO10646-1") == 0) { + request->screen.unicode_font = 1; + /* unicode font, use True */ +#ifdef HAVE_LANGINFO_CODESET + if (!strcmp(xtermEnvEncoding(), "ANSI_X3.4-1968") + || !strcmp(xtermEnvEncoding(), "ISO-8859-1")) { + if (request->screen.utf8_mode == uDefault) + request->screen.utf8_mode = uFalse; + } else if (!strcmp(xtermEnvEncoding(), "ISO-8859-15")) { + if (request->screen.utf8_mode == uDefault) + request->screen.utf8_mode = uFalse; + request->screen.latin9_mode = 1; + } else { + request->misc.callfilter = is_utf8 ? 0 : 1; + request->screen.utf8_mode = uAlways; + } +#else + request->misc.callfilter = is_utf8 ? 0 : 1; + request->screen.utf8_mode = uAlways; +#endif + } else { + /* other encoding, use False */ + if (request->screen.utf8_mode == uDefault) { + request->screen.utf8_mode = is_utf8 ? uAlways : uFalse; + } + } + } else +#endif /* OPT_MINI_LUIT */ + if (x_strcasecmp(request->misc.locale_str, "TRUE") == 0 || + x_strcasecmp(request->misc.locale_str, "ON") == 0 || + x_strcasecmp(request->misc.locale_str, "YES") == 0 || + x_strcasecmp(request->misc.locale_str, "AUTO") == 0 || + strcmp(request->misc.locale_str, "1") == 0) { + /* when true ... fully obeying LC_CTYPE locale */ + request->misc.callfilter = is_utf8 ? 0 : 1; + request->screen.utf8_mode = uAlways; + } else if (x_strcasecmp(request->misc.locale_str, "FALSE") == 0 || + x_strcasecmp(request->misc.locale_str, "OFF") == 0 || + x_strcasecmp(request->misc.locale_str, "NO") == 0 || + strcmp(request->misc.locale_str, "0") == 0) { + /* when false ... original value of utf8_mode is effective */ + if (request->screen.utf8_mode == uDefault) { + request->screen.utf8_mode = is_utf8 ? uAlways : uFalse; + } + } else if (x_strcasecmp(request->misc.locale_str, "MEDIUM") == 0 || + x_strcasecmp(request->misc.locale_str, "SEMIAUTO") == 0) { + /* when medium ... obeying locale only for UTF-8 and Asian */ + if (is_utf8) { + request->screen.utf8_mode = uAlways; + } else if ( +#ifdef MB_CUR_MAX + MB_CUR_MAX > 1 || +#else + !strncmp(xtermEnvLocale(), "ja", 2) || + !strncmp(xtermEnvLocale(), "ko", 2) || + !strncmp(xtermEnvLocale(), "zh", 2) || +#endif + !strncmp(xtermEnvLocale(), "th", 2) || + !strncmp(xtermEnvLocale(), "vi", 2)) { + request->misc.callfilter = 1; + request->screen.utf8_mode = uAlways; + } else { + request->screen.utf8_mode = uFalse; + } + } else if (x_strcasecmp(request->misc.locale_str, "UTF-8") == 0 || + x_strcasecmp(request->misc.locale_str, "UTF8") == 0) { + /* when UTF-8 ... UTF-8 mode */ + request->screen.utf8_mode = uAlways; + } else { + /* other words are regarded as encoding name passed to luit */ + request->misc.callfilter = 1; + request->screen.utf8_mode = uAlways; + request->misc.use_encoding = 1; + } + TRACE(("... updated misc.callfilter = %s\n", BtoS(request->misc.callfilter))); + TRACE(("... updated misc.use_encoding = %s\n", BtoS(request->misc.use_encoding))); +#else + if (request->screen.utf8_mode == uDefault) { + request->screen.utf8_mode = is_utf8 ? uAlways : uFalse; + } +#endif /* OPT_LUIT_PROG */ + + request->screen.utf8_inparse = (request->screen.utf8_mode != uFalse); + + TRACE(("... updated screen.utf8_mode = %d\n", request->screen.utf8_mode)); + TRACE(("...VTInitialize_locale done\n")); +} +#endif + +/* ARGSUSED */ +static void +VTInitialize(Widget wrequest, + Widget new_arg, + ArgList args GCC_UNUSED, + Cardinal *num_args GCC_UNUSED) +{ + XtermWidget request = (XtermWidget) wrequest; + XtermWidget wnew = (XtermWidget) new_arg; + Widget my_parent = SHELL_OF(wnew); + int i; + char *s; + +#if OPT_ISO_COLORS + Bool color_ok; +#endif + +#if OPT_COLOR_RES2 && (MAXCOLORS > MIN_ANSI_COLORS) + static XtResource fake_resources[] = + { +#if OPT_256_COLORS +# include <256colres.h> +#elif OPT_88_COLORS +# include <88colres.h> +#endif + }; +#endif /* OPT_COLOR_RES2 */ + + TRACE(("VTInitialize\n")); + + /* Zero out the entire "screen" component of "wnew" widget, then do + * field-by-field assignment of "screen" fields that are named in the + * resource list. + */ + bzero((char *) &wnew->screen, sizeof(wnew->screen)); + + /* dummy values so that we don't try to Realize the parent shell with height + * or width of 0, which is illegal in X. The real size is computed in the + * xtermWidget's Realize proc, but the shell's Realize proc is called first, + * and must see a valid size. + */ + wnew->core.height = wnew->core.width = 1; + + /* + * The definition of -rv now is that it changes the definition of + * XtDefaultForeground and XtDefaultBackground. So, we no longer + * need to do anything special. + */ + wnew->screen.display = wnew->core.screen->display; + + /* + * We use the default foreground/background colors to compare/check if a + * color-resource has been set. + */ +#define MyBlackPixel(dpy) BlackPixel(dpy,DefaultScreen(dpy)) +#define MyWhitePixel(dpy) WhitePixel(dpy,DefaultScreen(dpy)) + + if (request->misc.re_verse) { + wnew->dft_foreground = MyWhitePixel(wnew->screen.display); + wnew->dft_background = MyBlackPixel(wnew->screen.display); + } else { + wnew->dft_foreground = MyBlackPixel(wnew->screen.display); + wnew->dft_background = MyWhitePixel(wnew->screen.display); + } + init_Tres(TEXT_FG); + init_Tres(TEXT_BG); + + TRACE(("Color resource initialization:\n")); + TRACE((" Default foreground %#lx\n", wnew->dft_foreground)); + TRACE((" Default background %#lx\n", wnew->dft_background)); + TRACE((" Screen foreground %#lx\n", T_COLOR(&(wnew->screen), TEXT_FG))); + TRACE((" Screen background %#lx\n", T_COLOR(&(wnew->screen), TEXT_BG))); + + wnew->screen.mouse_button = -1; + wnew->screen.mouse_row = -1; + wnew->screen.mouse_col = -1; + +#if OPT_BOX_CHARS + init_Bres(screen.force_box_chars); + init_Bres(screen.force_all_chars); +#endif + init_Bres(screen.free_bold_box); + + init_Bres(screen.c132); + init_Bres(screen.curses); + init_Bres(screen.hp_ll_bc); +#if OPT_XMC_GLITCH + init_Ires(screen.xmc_glitch); + init_Ires(screen.xmc_attributes); + init_Bres(screen.xmc_inline); + init_Bres(screen.move_sgr_ok); +#endif +#if OPT_BLINK_CURS + init_Bres(screen.cursor_blink); + init_Ires(screen.blink_on); + init_Ires(screen.blink_off); + wnew->screen.cursor_blink_res = wnew->screen.cursor_blink; +#endif +#if OPT_BLINK_TEXT + init_Ires(screen.blink_as_bold); +#endif + init_Ires(screen.border); + init_Bres(screen.jumpscroll); + init_Bres(screen.old_fkeys); + init_Bres(screen.delete_is_del); + wnew->keyboard.type = wnew->screen.old_fkeys + ? keyboardIsLegacy + : keyboardIsDefault; +#ifdef ALLOWLOGGING + init_Sres(screen.logfile); +#endif + init_Bres(screen.bellOnReset); + init_Bres(screen.marginbell); + init_Bres(screen.multiscroll); + init_Ires(screen.nmarginbell); + init_Ires(screen.savelines); + init_Ires(screen.scrollBarBorder); + init_Ires(screen.scrolllines); + init_Bres(screen.scrollttyoutput); + init_Bres(screen.scrollkey); + + init_Sres(screen.term_id); + for (s = request->screen.term_id; *s; s++) { + if (!isalpha(CharOf(*s))) + break; + } + wnew->screen.terminal_id = atoi(s); + if (wnew->screen.terminal_id < MIN_DECID) + wnew->screen.terminal_id = MIN_DECID; + if (wnew->screen.terminal_id > MAX_DECID) + wnew->screen.terminal_id = MAX_DECID; + TRACE(("term_id '%s' -> terminal_id %d\n", + wnew->screen.term_id, + wnew->screen.terminal_id)); + + wnew->screen.vtXX_level = (wnew->screen.terminal_id / 100); + init_Bres(screen.visualbell); + init_Ires(screen.visualBellDelay); + init_Bres(screen.poponbell); + init_Ires(misc.limit_resize); +#if OPT_NUM_LOCK + init_Bres(misc.real_NumLock); + init_Bres(misc.alwaysUseMods); + wnew->misc.num_lock = 0; + wnew->misc.alt_left = 0; + wnew->misc.alt_right = 0; + wnew->misc.meta_trans = False; + wnew->misc.meta_left = 0; + wnew->misc.meta_right = 0; +#endif +#if OPT_SHIFT_FONTS + init_Bres(misc.shift_fonts); +#endif +#if OPT_SUNPC_KBD + init_Ires(misc.ctrl_fkeys); +#endif +#if OPT_TEK4014 + init_Bres(misc.tekInhibit); + init_Bres(misc.tekSmall); + init_Bres(screen.TekEmu); +#endif +#if OPT_TCAP_QUERY + wnew->screen.tc_query = -1; +#endif + wnew->misc.re_verse0 = request->misc.re_verse; + init_Bres(misc.re_verse); + init_Ires(screen.multiClickTime); + init_Ires(screen.bellSuppressTime); + init_Sres(screen.charClass); + init_Bres(screen.cutNewline); + init_Bres(screen.cutToBeginningOfLine); + init_Bres(screen.highlight_selection); + init_Bres(screen.trim_selection); + init_Bres(screen.i18nSelections); + init_Bres(screen.brokenSelections); + init_Bres(screen.always_highlight); + wnew->screen.pointer_cursor = request->screen.pointer_cursor; + + init_Sres(screen.answer_back); + + init_Sres(screen.printer_command); + init_Bres(screen.printer_autoclose); + init_Bres(screen.printer_extent); + init_Bres(screen.printer_formfeed); + init_Ires(screen.printer_controlmode); +#if OPT_PRINT_COLORS + init_Ires(screen.print_attributes); +#endif + + init_Sres(screen.keyboard_dialect); + + init_Bres(screen.input_eight_bits); + init_Bres(screen.output_eight_bits); + init_Bres(screen.control_eight_bits); + init_Bres(screen.backarrow_key); + init_Bres(screen.meta_sends_esc); + + init_Bres(screen.allowSendEvent0); + init_Bres(screen.allowWindowOp0); + + /* make a copy so that editres cannot change the resource after startup */ + wnew->screen.allowSendEvents = wnew->screen.allowSendEvent0; + wnew->screen.allowWindowOps = wnew->screen.allowWindowOp0; + +#ifndef NO_ACTIVE_ICON + wnew->screen.fnt_icon = request->screen.fnt_icon; + init_Bres(misc.active_icon); + init_Ires(misc.icon_border_width); + wnew->misc.icon_border_pixel = request->misc.icon_border_pixel; +#endif /* NO_ACTIVE_ICON */ + init_Bres(misc.titeInhibit); + init_Bres(misc.tiXtraScroll); + init_Bres(misc.dynamicColors); + for (i = fontMenu_font1; i <= fontMenu_lastBuiltin; i++) { + init_Sres(screen.MenuFontName(i)); + } + /* set default in realize proc */ + wnew->screen.MenuFontName(fontMenu_fontdefault) = NULL; + wnew->screen.MenuFontName(fontMenu_fontescape) = NULL; + wnew->screen.MenuFontName(fontMenu_fontsel) = NULL; + wnew->screen.menu_font_number = fontMenu_fontdefault; + +#if OPT_BROKEN_OSC + init_Bres(screen.brokenLinuxOSC); +#endif + +#if OPT_BROKEN_ST + init_Bres(screen.brokenStringTerm); +#endif + +#if OPT_C1_PRINT + init_Bres(screen.c1_printable); +#endif + +#if OPT_DEC_CHRSET + init_Bres(screen.font_doublesize); + init_Ires(screen.cache_doublesize); + if (wnew->screen.cache_doublesize > NUM_CHRSET) + wnew->screen.cache_doublesize = NUM_CHRSET; + if (wnew->screen.cache_doublesize == 0) + wnew->screen.font_doublesize = False; + TRACE(("Doublesize%s enabled, up to %d fonts\n", + wnew->screen.font_doublesize ? "" : " not", + wnew->screen.cache_doublesize)); +#endif + +#if OPT_ISO_COLORS || OPT_DEC_CHRSET || OPT_WIDE_CHARS + wnew->num_ptrs = (OFF_ATTRS + 1); /* OFF_FLAGS, OFF_CHARS, OFF_ATTRS */ +#endif +#if OPT_ISO_COLORS + init_Ires(screen.veryBoldColors); + init_Bres(screen.boldColors); + init_Bres(screen.colorAttrMode); + init_Bres(screen.colorBDMode); + init_Bres(screen.colorBLMode); + init_Bres(screen.colorMode); + init_Bres(screen.colorULMode); + init_Bres(screen.italicULMode); + init_Bres(screen.colorRVMode); + + for (i = 0, color_ok = False; i < MAXCOLORS; i++) { + +#if OPT_COLOR_RES2 && (MAXCOLORS > MIN_ANSI_COLORS) + /* + * Xt has a hardcoded limit on the maximum number of resources that can + * be used in a widget. If we configure both luit (which implies + * wide-characters) and 256-colors, it goes over that limit. Most + * people would not need a resource-file with 256-colors; the default + * values in our table are sufficient. In that case, fake the resource + * setting by copying the default value from the table. The #define's + * can be overridden to make these true resources. + */ + if (i >= MIN_ANSI_COLORS && i < NUM_ANSI_COLORS) { + wnew->screen.Acolors[i].resource + = ((char *) fake_resources[i - MIN_ANSI_COLORS].default_addr); + if (wnew->screen.Acolors[i].resource == 0) + wnew->screen.Acolors[i].resource = XtDefaultForeground; + } else +#endif /* OPT_COLOR_RES2 */ + wnew->screen.Acolors[i] = request->screen.Acolors[i]; + +#if OPT_COLOR_RES + TRACE(("Acolors[%d] = %s\n", i, wnew->screen.Acolors[i].resource)); + wnew->screen.Acolors[i].mode = False; + if (!x_strcasecmp(wnew->screen.Acolors[i].resource, XtDefaultForeground)) { + wnew->screen.Acolors[i].value = T_COLOR(&(wnew->screen), TEXT_FG); + wnew->screen.Acolors[i].mode = True; + } else if (!x_strcasecmp(wnew->screen.Acolors[i].resource, XtDefaultBackground)) { + wnew->screen.Acolors[i].value = T_COLOR(&(wnew->screen), TEXT_BG); + wnew->screen.Acolors[i].mode = True; + } else { + color_ok = True; + } +#else + TRACE(("Acolors[%d] = %#lx\n", i, request->screen.Acolors[i])); + if (wnew->screen.Acolors[i] != wnew->dft_foreground && + wnew->screen.Acolors[i] != T_COLOR(&(wnew->screen), TEXT_FG) && + wnew->screen.Acolors[i] != T_COLOR(&(wnew->screen), TEXT_BG)) + color_ok = True; +#endif + } + + /* + * Check if we're trying to use color in a monochrome screen. Disable + * color in that case, since that would make ANSI colors unusable. A 4-bit + * or 8-bit display is usable, so we do not have to check for anything more + * specific. + */ + if (color_ok) { + Display *display = wnew->screen.display; + XVisualInfo myTemplate, *visInfoPtr; + int numFound; + + myTemplate.visualid = XVisualIDFromVisual(DefaultVisual(display, + XDefaultScreen(display))); + visInfoPtr = XGetVisualInfo(display, (long) VisualIDMask, + &myTemplate, &numFound); + if (visInfoPtr == 0 + || numFound == 0 + || visInfoPtr->depth <= 1) { + TRACE(("disabling color since screen is monochrome\n")); + color_ok = False; + } else { + XFree(visInfoPtr); + } + } + + /* If none of the colors are anything other than the foreground or + * background, we'll assume this isn't color, no matter what the colorMode + * resource says. (There doesn't seem to be any good way to determine if + * the resource lookup failed versus the user having misconfigured this). + */ + if (!color_ok) { + wnew->screen.colorMode = False; + TRACE(("All colors are foreground or background: disable colorMode\n")); + } +#if OPT_EXT_COLORS + wnew->num_ptrs = (OFF_BGRND + 1); +#else + wnew->num_ptrs = (OFF_COLOR + 1); +#endif + wnew->sgr_foreground = -1; + wnew->sgr_background = -1; + wnew->sgr_extended = 0; +#endif /* OPT_ISO_COLORS */ + + init_Tres(MOUSE_FG); + init_Tres(MOUSE_BG); + init_Tres(TEXT_CURSOR); +#if OPT_HIGHLIGHT_COLOR + init_Tres(HIGHLIGHT_BG); +#endif + +#if OPT_TEK4014 + /* + * The Tek4014 window has no separate resources for foreground, background + * and cursor color. Since xterm always creates the vt100 widget first, we + * can set the Tektronix colors here. That lets us use escape sequences to + * set its dynamic colors and get consistent behavior whether or not the + * window is displayed. + */ + T_COLOR(&(wnew->screen), TEK_BG) = T_COLOR(&(wnew->screen), TEXT_BG); + T_COLOR(&(wnew->screen), TEK_FG) = T_COLOR(&(wnew->screen), TEXT_FG); + T_COLOR(&(wnew->screen), TEK_CURSOR) = T_COLOR(&(wnew->screen), TEXT_CURSOR); +#endif + +#if OPT_DEC_CHRSET + wnew->num_ptrs = (OFF_CSETS + 1); +#endif + +#if OPT_WIDE_CHARS + VTInitialize_locale(request); + +#if OPT_LUIT_PROG + init_Bres(misc.callfilter); + init_Bres(misc.use_encoding); + init_Sres(misc.locale_str); + init_Sres(misc.localefilter); +#endif + +#if OPT_RENDERFONT + init_Dres(misc.face_size); + init_Sres(misc.face_name); + init_Sres(misc.face_wide_name); + init_Bres(misc.render_font); + /* minor tweak to make debug traces consistent: */ + if (wnew->misc.render_font) { + if (wnew->misc.face_name == 0) { + wnew->misc.render_font = False; + TRACE(("reset render_font since there is no face_name\n")); + } + } +#endif + + init_Bres(screen.vt100_graphics); + init_Ires(screen.utf8_mode); + init_Bres(screen.wide_chars); + init_Bres(misc.mk_width); + init_Bres(misc.cjk_width); + if (request->screen.utf8_mode) { + TRACE(("setting wide_chars on\n")); + wnew->screen.wide_chars = True; + } else { + TRACE(("setting utf8_mode to 0\n")); + wnew->screen.utf8_mode = uFalse; + } + TRACE(("initialized UTF-8 mode to %d\n", wnew->screen.utf8_mode)); + +#if OPT_MINI_LUIT + if (request->screen.latin9_mode) { + wnew->screen.latin9_mode = True; + } + if (request->screen.unicode_font) { + wnew->screen.unicode_font = True; + } + TRACE(("initialized Latin9 mode to %d\n", wnew->screen.latin9_mode)); + TRACE(("initialized unicode_font to %d\n", wnew->screen.unicode_font)); +#endif + + if (wnew->screen.wide_chars != False) + wnew->num_ptrs = (OFF_COM2H + 1); + + decode_wcwidth((wnew->misc.cjk_width ? 2 : 0) + + (wnew->misc.mk_width ? 1 : 0) + + 1); +#endif /* OPT_WIDE_CHARS */ + + init_Bres(screen.bold_mode); + init_Bres(screen.underline); + + wnew->cur_foreground = 0; + wnew->cur_background = 0; + + wnew->keyboard.flags = MODE_SRM; + if (wnew->screen.backarrow_key) + wnew->keyboard.flags |= MODE_DECBKM; + TRACE(("initialized DECBKM %s\n", + BtoS(wnew->keyboard.flags & MODE_DECBKM))); + + /* look for focus related events on the shell, because we need + * to care about the shell's border being part of our focus. + */ + XtAddEventHandler(my_parent, EnterWindowMask, False, + HandleEnterWindow, (Opaque) NULL); + XtAddEventHandler(my_parent, LeaveWindowMask, False, + HandleLeaveWindow, (Opaque) NULL); + XtAddEventHandler(my_parent, FocusChangeMask, False, + HandleFocusChange, (Opaque) NULL); + XtAddEventHandler((Widget) wnew, 0L, True, + VTNonMaskableEvent, (Opaque) NULL); + XtAddEventHandler((Widget) wnew, PropertyChangeMask, False, + HandleBellPropertyChange, (Opaque) NULL); + +#if HANDLE_STRUCT_NOTIFY +#if OPT_TOOLBAR + wnew->VT100_TB_INFO(menu_bar) = request->VT100_TB_INFO(menu_bar); + init_Ires(VT100_TB_INFO(menu_height)); +#else + /* Flag icon name with "***" on window output when iconified. + * Put in a handler that will tell us when we get Map/Unmap events. + */ + if (zIconBeep) +#endif + XtAddEventHandler(my_parent, StructureNotifyMask, False, + HandleStructNotify, (Opaque) 0); +#endif /* HANDLE_STRUCT_NOTIFY */ + + wnew->screen.bellInProgress = False; + + set_character_class(wnew->screen.charClass); + + /* create it, but don't realize it */ + ScrollBarOn(wnew, True, False); + + /* make sure that the resize gravity acceptable */ + if (wnew->misc.resizeGravity != NorthWestGravity && + wnew->misc.resizeGravity != SouthWestGravity) { + Cardinal nparams = 1; + + XtAppWarningMsg(app_con, "rangeError", "resizeGravity", "XTermError", + "unsupported resizeGravity resource value (%d)", + (String *) & (wnew->misc.resizeGravity), &nparams); + wnew->misc.resizeGravity = SouthWestGravity; + } +#ifndef NO_ACTIVE_ICON + wnew->screen.whichVwin = &wnew->screen.fullVwin; +#if OPT_TEK4014 + wnew->screen.whichTwin = &wnew->screen.fullTwin; +#endif +#endif /* NO_ACTIVE_ICON */ + + if (wnew->screen.savelines < 0) + wnew->screen.savelines = 0; + + init_Bres(screen.awaitInput); + + wnew->flags = 0; + if (!wnew->screen.jumpscroll) + wnew->flags |= SMOOTHSCROLL; + if (wnew->misc.reverseWrap) + wnew->flags |= REVERSEWRAP; + if (wnew->misc.autoWrap) + wnew->flags |= WRAPAROUND; + if (wnew->misc.re_verse != wnew->misc.re_verse0) + wnew->flags |= REVERSE_VIDEO; + if (wnew->screen.c132) + wnew->flags |= IN132COLUMNS; + + wnew->initflags = wnew->flags; + + init_Ires(keyboard.modify_cursor_keys); + + init_Ires(misc.appcursorDefault); + if (wnew->misc.appcursorDefault) + wnew->keyboard.flags |= MODE_DECCKM; + + init_Ires(misc.appkeypadDefault); + if (wnew->misc.appkeypadDefault) + wnew->keyboard.flags |= MODE_DECKPAM; + + return; +} + +static void +VTDestroy(Widget w) +{ + XtFree((char *) (((XtermWidget) w)->screen.selection_data)); +} + +/*ARGSUSED*/ +static void +VTRealize(Widget w, + XtValueMask * valuemask, + XSetWindowAttributes * values) +{ + XtermWidget xw = (XtermWidget) w; + TScreen *screen = &xw->screen; + + unsigned width, height; + int xpos, ypos, pr; + XSizeHints sizehints; + Atom pid_atom; + + TRACE(("VTRealize\n")); + + TabReset(xw->tabs); + + screen->MenuFontName(fontMenu_fontdefault) = xw->misc.default_font.f_n; + screen->fnt_norm = NULL; + screen->fnt_bold = NULL; +#if OPT_WIDE_CHARS + screen->fnt_dwd = NULL; + screen->fnt_dwdb = NULL; +#endif + if (!xtermLoadFont(xw, + &(xw->misc.default_font), + False, 0)) { + if (XmuCompareISOLatin1(xw->misc.default_font.f_n, "fixed") != 0) { + fprintf(stderr, + "%s: unable to open font \"%s\", trying \"fixed\"....\n", + xterm_name, xw->misc.default_font.f_n); + (void) xtermLoadFont(xw, + xtermFontName("fixed"), + False, 0); + screen->MenuFontName(fontMenu_fontdefault) = "fixed"; + } + } + + /* really screwed if we couldn't open default font */ + if (!screen->fnt_norm) { + fprintf(stderr, "%s: unable to locate a suitable font\n", + xterm_name); + Exit(1); + } +#if OPT_WIDE_CHARS + if (xw->screen.utf8_mode) { + TRACE(("check if this is a wide font, if not try again\n")); + if (xtermLoadWideFonts(xw, False)) + SetVTFont(xw, screen->menu_font_number, TRUE, NULL); + } +#endif + + /* making cursor */ + if (!screen->pointer_cursor) { + screen->pointer_cursor = + make_colored_cursor(XC_xterm, + T_COLOR(screen, MOUSE_FG), + T_COLOR(screen, MOUSE_BG)); + } else { + recolor_cursor(screen->pointer_cursor, + T_COLOR(screen, MOUSE_FG), + T_COLOR(screen, MOUSE_BG)); + } + + /* set defaults */ + xpos = 1; + ypos = 1; + width = 80; + height = 24; + + TRACE(("parsing geo_metry %s\n", NonNull(xw->misc.geo_metry))); + pr = XParseGeometry(xw->misc.geo_metry, &xpos, &ypos, + &width, &height); + TRACE(("... position %d,%d size %dx%d\n", ypos, xpos, height, width)); + + set_max_col(screen, (int) (width - 1)); /* units in character cells */ + set_max_row(screen, (int) (height - 1)); /* units in character cells */ + xtermUpdateFontInfo(xw, False); + + width = screen->fullVwin.fullwidth; + height = screen->fullVwin.fullheight; + + TRACE(("... border widget %d parent %d shell %d\n", + BorderWidth(xw), + BorderWidth(XtParent(xw)), + BorderWidth(SHELL_OF(xw)))); + + if ((pr & XValue) && (XNegative & pr)) { + xpos += DisplayWidth(screen->display, DefaultScreen(screen->display)) + - width - (BorderWidth(XtParent(xw)) * 2); + } + if ((pr & YValue) && (YNegative & pr)) { + ypos += DisplayHeight(screen->display, DefaultScreen(screen->display)) + - height - (BorderWidth(XtParent(xw)) * 2); + } + + /* set up size hints for window manager; min 1 char by 1 char */ + bzero(&sizehints, sizeof(sizehints)); + xtermSizeHints(xw, &sizehints, (xw->misc.scrollbar + ? (screen->scrollWidget->core.width + + BorderWidth(screen->scrollWidget)) + : 0)); + + sizehints.x = xpos; + sizehints.y = ypos; + if ((XValue & pr) || (YValue & pr)) { + sizehints.flags |= USSize | USPosition; + sizehints.flags |= PWinGravity; + switch (pr & (XNegative | YNegative)) { + case 0: + sizehints.win_gravity = NorthWestGravity; + break; + case XNegative: + sizehints.win_gravity = NorthEastGravity; + break; + case YNegative: + sizehints.win_gravity = SouthWestGravity; + break; + default: + sizehints.win_gravity = SouthEastGravity; + break; + } + } else { + /* set a default size, but do *not* set position */ + sizehints.flags |= PSize; + } + sizehints.height = sizehints.base_height + + sizehints.height_inc * MaxRows(screen); + sizehints.width = sizehints.base_width + + sizehints.width_inc * MaxCols(screen); + + if ((WidthValue & pr) || (HeightValue & pr)) + sizehints.flags |= USSize; + else + sizehints.flags |= PSize; + + /* + * Note that the size-hints are for the shell, while the resize-request + * is for the vt100 widget. They are not the same size. + */ + TRACE(("make resize request %dx%d\n", height, width)); + (void) XtMakeResizeRequest((Widget) xw, + (Dimension) width, (Dimension) height, + &xw->core.width, &xw->core.height); + TRACE(("...made resize request %dx%d\n", xw->core.height, xw->core.width)); + + /* XXX This is bogus. We are parsing geometries too late. This + * is information that the shell widget ought to have before we get + * realized, so that it can do the right thing. + */ + if (sizehints.flags & USPosition) + XMoveWindow(XtDisplay(xw), XtWindow(SHELL_OF(xw)), + sizehints.x, sizehints.y); + + TRACE(("%s@%d -- ", __FILE__, __LINE__)); + TRACE_HINTS(&sizehints); + XSetWMNormalHints(XtDisplay(xw), XtWindow(SHELL_OF(xw)), &sizehints); + TRACE(("%s@%d -- ", __FILE__, __LINE__)); + TRACE_WM_HINTS(xw); + + if ((pid_atom = XInternAtom(XtDisplay(xw), "_NET_WM_PID", False)) != None) { + /* XChangeProperty format 32 really is "long" */ + unsigned long pid_l = (unsigned long) getpid(); + TRACE(("Setting _NET_WM_PID property to %lu\n", pid_l)); + XChangeProperty(XtDisplay(xw), VShellWindow, + pid_atom, XA_CARDINAL, 32, PropModeReplace, + (unsigned char *) &pid_l, 1); + } + + XFlush(XtDisplay(xw)); /* get it out to window manager */ + + /* use ForgetGravity instead of SouthWestGravity because translating + the Expose events for ConfigureNotifys is too hard */ + values->bit_gravity = ((xw->misc.resizeGravity == NorthWestGravity) + ? NorthWestGravity + : ForgetGravity); + xw->screen.fullVwin.window = XtWindow(xw) = + XCreateWindow(XtDisplay(xw), XtWindow(XtParent(xw)), + xw->core.x, xw->core.y, + xw->core.width, xw->core.height, BorderWidth(xw), + (int) xw->core.depth, + InputOutput, CopyFromParent, + *valuemask | CWBitGravity, values); + screen->event_mask = values->event_mask; + +#ifndef NO_ACTIVE_ICON + if (xw->misc.active_icon && screen->fnt_icon) { + int iconX = 0, iconY = 0; + Widget shell = SHELL_OF(xw); + unsigned long mask; + XGCValues xgcv; + + TRACE(("Initializing active-icon\n")); + XtVaGetValues(shell, XtNiconX, &iconX, XtNiconY, &iconY, (XtPointer) 0); + xtermComputeFontInfo(xw, &(screen->iconVwin), screen->fnt_icon, 0); + + /* since only one client is permitted to select for Button + * events, we have to let the window manager get 'em... + */ + values->event_mask &= ~(ButtonPressMask | ButtonReleaseMask); + values->border_pixel = xw->misc.icon_border_pixel; + + screen->iconVwin.window = + XCreateWindow(XtDisplay(xw), + RootWindowOfScreen(XtScreen(shell)), + iconX, iconY, + screen->iconVwin.fullwidth, + screen->iconVwin.fullheight, + xw->misc.icon_border_width, + (int) xw->core.depth, + InputOutput, CopyFromParent, + *valuemask | CWBitGravity | CWBorderPixel, + values); + XtVaSetValues(shell, + XtNiconWindow, screen->iconVwin.window, + (XtPointer) 0); + XtRegisterDrawable(XtDisplay(xw), screen->iconVwin.window, w); + + mask = (GCFont | GCForeground | GCBackground | + GCGraphicsExposures | GCFunction); + + xgcv.font = screen->fnt_icon->fid; + xgcv.foreground = T_COLOR(screen, TEXT_FG); + xgcv.background = T_COLOR(screen, TEXT_BG); + xgcv.graphics_exposures = True; /* default */ + xgcv.function = GXcopy; + + screen->iconVwin.normalGC = + screen->iconVwin.normalboldGC = + XtGetGC(shell, mask, &xgcv); + + xgcv.foreground = T_COLOR(screen, TEXT_BG); + xgcv.background = T_COLOR(screen, TEXT_FG); + + screen->iconVwin.reverseGC = + screen->iconVwin.reverseboldGC = + XtGetGC(shell, mask, &xgcv); +#if OPT_TOOLBAR + /* + * Toolbar is initialized before we get here. Enable the menu item + * and set it properly. + */ + set_sensitivity(mw, + vtMenuEntries[vtMenu_activeicon].widget, + True); + update_activeicon(); +#endif + } else { + TRACE(("Disabled active-icon\n")); + xw->misc.active_icon = False; + } +#endif /* NO_ACTIVE_ICON */ + +#if OPT_I18N_SUPPORT && OPT_INPUT_METHOD + VTInitI18N(); +#else + xw->screen.xic = NULL; +#endif +#if OPT_NUM_LOCK + VTInitModifiers(); +#endif + + set_cursor_gcs(screen); + + /* Reset variables used by ANSI emulation. */ + + resetCharsets(screen); + + XDefineCursor(screen->display, VShellWindow, screen->pointer_cursor); + + set_cur_col(screen, 0); + set_cur_row(screen, 0); + set_max_col(screen, Width(screen) / screen->fullVwin.f_width - 1); + set_max_row(screen, Height(screen) / screen->fullVwin.f_height - 1); + set_tb_margins(screen, 0, screen->max_row); + + memset(screen->sc, 0, sizeof(screen->sc)); + + /* Mark screen buffer as unallocated. We wait until the run loop so + that the child process does not fork and exec with all the dynamic + memory it will never use. If we were to do it here, the + swap space for new process would be huge for huge savelines. */ +#if OPT_TEK4014 + if (!tekWidget) /* if not called after fork */ +#endif + screen->visbuf = screen->allbuf = NULL; + + screen->do_wrap = 0; + screen->scrolls = screen->incopy = 0; + xtermSetCursorBox(screen); + + screen->savedlines = 0; + + if (xw->misc.scrollbar) { + screen->fullVwin.sb_info.width = 0; + ScrollBarOn(xw, False, True); + } + CursorSave(xw); + return; +} + +#if OPT_I18N_SUPPORT && OPT_INPUT_METHOD + +/* limit this feature to recent XFree86 since X11R6.x core dumps */ +#if defined(XtSpecificationRelease) && XtSpecificationRelease >= 6 && defined(X_HAVE_UTF8_STRING) +#define USE_XIM_INSTANTIATE_CB + +static void +xim_instantiate_cb(Display * display, + XPointer client_data GCC_UNUSED, + XPointer call_data GCC_UNUSED) +{ + if (display != XtDisplay(term)) + return; + + VTInitI18N(); +} + +static void +xim_destroy_cb(XIM im GCC_UNUSED, + XPointer client_data GCC_UNUSED, + XPointer call_data GCC_UNUSED) +{ + term->screen.xic = NULL; + + XRegisterIMInstantiateCallback(XtDisplay(term), NULL, NULL, NULL, + xim_instantiate_cb, NULL); +} +#endif /* X11R6+ */ + +static void +xim_real_init(void) +{ + unsigned i, j; + char *p, *s, *t, *ns, *end, buf[32]; + XIMStyles *xim_styles; + XIMStyle input_style = 0; + Bool found; + static struct { + char *name; + unsigned long code; + } known_style[] = { + { + "OverTheSpot", (XIMPreeditPosition | XIMStatusNothing) + }, + { + "OffTheSpot", (XIMPreeditArea | XIMStatusArea) + }, + { + "Root", (XIMPreeditNothing | XIMStatusNothing) + }, + }; + + term->screen.xic = NULL; + + if (term->misc.cannot_im) { + return; + } + + if (!term->misc.input_method || !*term->misc.input_method) { + if ((p = XSetLocaleModifiers("")) != NULL && *p) + term->screen.xim = XOpenIM(XtDisplay(term), NULL, NULL, NULL); + } else { + s = term->misc.input_method; + i = 5 + strlen(s); + t = (char *) MyStackAlloc(i, buf); + if (t == NULL) + SysError(ERROR_VINIT); + + for (ns = s; ns && *s;) { + while (*s && isspace(CharOf(*s))) + s++; + if (!*s) + break; + if ((ns = end = strchr(s, ',')) == 0) + end = s + strlen(s); + while ((end != s) && isspace(CharOf(end[-1]))) + end--; + + if (end != s) { + strcpy(t, "@im="); + strncat(t, s, (unsigned) (end - s)); + + if ((p = XSetLocaleModifiers(t)) != 0 && *p + && (term->screen.xim = XOpenIM(XtDisplay(term), + NULL, + NULL, + NULL)) != 0) + break; + + } + s = ns + 1; + } + MyStackFree(t, buf); + } + + if (term->screen.xim == NULL + && (p = XSetLocaleModifiers("@im=none")) != NULL + && *p) { + term->screen.xim = XOpenIM(XtDisplay(term), NULL, NULL, NULL); + } + + if (!term->screen.xim) { + fprintf(stderr, "Failed to open input method\n"); + return; + } + TRACE(("VTInitI18N opened input method\n")); + + if (XGetIMValues(term->screen.xim, XNQueryInputStyle, &xim_styles, NULL) + || !xim_styles + || !xim_styles->count_styles) { + fprintf(stderr, "input method doesn't support any style\n"); + XCloseIM(term->screen.xim); + term->misc.cannot_im = True; + return; + } + + found = False; + for (s = term->misc.preedit_type; s && !found;) { + while (*s && isspace(CharOf(*s))) + s++; + if (!*s) + break; + if ((ns = end = strchr(s, ',')) != 0) + ns++; + else + end = s + strlen(s); + while ((end != s) && isspace(CharOf(end[-1]))) + end--; + + if (end != s) { /* just in case we have a spurious comma */ + TRACE(("looking for style '%.*s'\n", end - s, s)); + for (i = 0; i < XtNumber(known_style); i++) { + if ((int) strlen(known_style[i].name) == (end - s) + && !strncmp(s, known_style[i].name, (unsigned) (end - s))) { + input_style = known_style[i].code; + for (j = 0; j < xim_styles->count_styles; j++) { + if (input_style == xim_styles->supported_styles[j]) { + found = True; + break; + } + } + if (found) + break; + } + } + } + + s = ns; + } + XFree(xim_styles); + + if (!found) { + fprintf(stderr, + "input method doesn't support my preedit type (%s)\n", + term->misc.preedit_type); + XCloseIM(term->screen.xim); + term->misc.cannot_im = True; + return; + } + + /* + * Check for styles we do not yet support. + */ + TRACE(("input_style %#lx\n", input_style)); + if (input_style == (XIMPreeditArea | XIMStatusArea)) { + fprintf(stderr, + "This program doesn't support the 'OffTheSpot' preedit type\n"); + XCloseIM(term->screen.xim); + term->misc.cannot_im = True; + return; + } + + /* + * For XIMPreeditPosition (or OverTheSpot), XIM client has to + * prepare a font. + * The font has to be locale-dependent XFontSet, whereas + * XTerm use Unicode font. This leads a problem that the + * same font cannot be used for XIM preedit. + */ + if (input_style != (XIMPreeditNothing | XIMStatusNothing)) { + char **missing_charset_list; + int missing_charset_count; + char *def_string; + XVaNestedList p_list; + XPoint spot = + {0, 0}; + XFontStruct **fonts; + char **font_name_list; + + term->screen.fs = XCreateFontSet(XtDisplay(term), + term->misc.f_x, + &missing_charset_list, + &missing_charset_count, + &def_string); + if (term->screen.fs == NULL) { + fprintf(stderr, "Preparation of font set " + "\"%s\" for XIM failed.\n", term->misc.f_x); + term->screen.fs = XCreateFontSet(XtDisplay(term), + DEFXIMFONT, + &missing_charset_list, + &missing_charset_count, + &def_string); + } + if (term->screen.fs == NULL) { + fprintf(stderr, "Preparation of default font set " + "\"%s\" for XIM failed.\n", DEFXIMFONT); + XCloseIM(term->screen.xim); + term->misc.cannot_im = True; + return; + } + (void) XExtentsOfFontSet(term->screen.fs); + j = XFontsOfFontSet(term->screen.fs, &fonts, &font_name_list); + for (i = 0, term->screen.fs_ascent = 0; i < j; i++) { + if (term->screen.fs_ascent < (*fonts)->ascent) + term->screen.fs_ascent = (*fonts)->ascent; + } + p_list = XVaCreateNestedList(0, + XNSpotLocation, &spot, + XNFontSet, term->screen.fs, + NULL); + term->screen.xic = XCreateIC(term->screen.xim, + XNInputStyle, input_style, + XNClientWindow, XtWindow(term), + XNFocusWindow, XtWindow(term), + XNPreeditAttributes, p_list, + NULL); + } else { + term->screen.xic = XCreateIC(term->screen.xim, XNInputStyle, input_style, + XNClientWindow, XtWindow(term), + XNFocusWindow, XtWindow(term), + NULL); + } + + if (!term->screen.xic) { + fprintf(stderr, "Failed to create input context\n"); + XCloseIM(term->screen.xim); + } +#if defined(USE_XIM_INSTANTIATE_CB) + else { + XIMCallback destroy_cb; + + destroy_cb.callback = xim_destroy_cb; + destroy_cb.client_data = NULL; + if (XSetIMValues(term->screen.xim, XNDestroyCallback, &destroy_cb, NULL)) + fprintf(stderr, "Could not set destroy callback to IM\n"); + } +#endif + + return; +} + +static void +VTInitI18N(void) +{ + if (term->misc.open_im) { + xim_real_init(); + +#if defined(USE_XIM_INSTANTIATE_CB) + if (term->screen.xic == NULL && !term->misc.cannot_im) { + sleep(3); + XRegisterIMInstantiateCallback(XtDisplay(term), NULL, NULL, NULL, + xim_instantiate_cb, NULL); + } +#endif + } +} +#endif /* OPT_I18N_SUPPORT && OPT_INPUT_METHOD */ + +static Boolean +VTSetValues(Widget cur, + Widget request GCC_UNUSED, + Widget wnew, + ArgList args GCC_UNUSED, + Cardinal *num_args GCC_UNUSED) +{ + XtermWidget curvt = (XtermWidget) cur; + XtermWidget newvt = (XtermWidget) wnew; + Bool refresh_needed = False; + Bool fonts_redone = False; + + if ((T_COLOR(&(curvt->screen), TEXT_BG) != + T_COLOR(&(newvt->screen), TEXT_BG)) || + (T_COLOR(&(curvt->screen), TEXT_FG) != + T_COLOR(&(newvt->screen), TEXT_FG)) || + (curvt->screen.MenuFontName(curvt->screen.menu_font_number) != + newvt->screen.MenuFontName(newvt->screen.menu_font_number)) || + (curvt->misc.default_font.f_n != newvt->misc.default_font.f_n)) { + if (curvt->misc.default_font.f_n != newvt->misc.default_font.f_n) + newvt->screen.MenuFontName(fontMenu_fontdefault) = newvt->misc.default_font.f_n; + if (xtermLoadFont(newvt, + xtermFontName(newvt->screen.MenuFontName(curvt->screen.menu_font_number)), + True, newvt->screen.menu_font_number)) { + /* resizing does the redisplay, so don't ask for it here */ + refresh_needed = True; + fonts_redone = True; + } else if (curvt->misc.default_font.f_n != newvt->misc.default_font.f_n) + newvt->screen.MenuFontName(fontMenu_fontdefault) = curvt->misc.default_font.f_n; + } + if (!fonts_redone + && (T_COLOR(&(curvt->screen), TEXT_CURSOR) != + T_COLOR(&(newvt->screen), TEXT_CURSOR))) { + set_cursor_gcs(&newvt->screen); + refresh_needed = True; + } + if (curvt->misc.re_verse != newvt->misc.re_verse) { + newvt->flags ^= REVERSE_VIDEO; + ReverseVideo(newvt); + newvt->misc.re_verse = !newvt->misc.re_verse; /* ReverseVideo toggles */ + refresh_needed = True; + } + if ((T_COLOR(&(curvt->screen), MOUSE_FG) != + T_COLOR(&(newvt->screen), MOUSE_FG)) || + (T_COLOR(&(curvt->screen), MOUSE_BG) != + T_COLOR(&(newvt->screen), MOUSE_BG))) { + recolor_cursor(newvt->screen.pointer_cursor, + T_COLOR(&(newvt->screen), MOUSE_FG), + T_COLOR(&(newvt->screen), MOUSE_BG)); + refresh_needed = True; + } + if (curvt->misc.scrollbar != newvt->misc.scrollbar) { + ToggleScrollBar(newvt); + } + + return refresh_needed; +} + +#define setGC(value) set_at = __LINE__, currentGC = value + +#define OutsideSelection(screen,row,col) \ + ((row) > (screen)->endHRow || \ + ((row) == (screen)->endHRow && \ + (col) >= (screen)->endHCol) || \ + (row) < (screen)->startHRow || \ + ((row) == (screen)->startHRow && \ + (col) < (screen)->startHCol)) + +/* + * Shows cursor at new cursor position in screen. + */ +void +ShowCursor(void) +{ + TScreen *screen = &term->screen; + int x, y; + Char clo; + unsigned flags; + unsigned fg_bg = 0; + GC currentGC; + int set_at; + Bool in_selection; + Bool reversed; + Pixel fg_pix; + Pixel bg_pix; + Pixel tmp; +#if OPT_HIGHLIGHT_COLOR + Pixel hi_pix = T_COLOR(screen, HIGHLIGHT_BG); +#endif +#if OPT_WIDE_CHARS + Char chi = 0; + Char c1h = 0; + Char c1l = 0; + Char c2h = 0; + Char c2l = 0; + int base; +#endif + int cursor_col; + + if (screen->cursor_state == BLINKED_OFF) + return; + + if (eventMode != NORMAL) + return; + + if (screen->cur_row - screen->topline > screen->max_row) + return; + + screen->cursor_row = screen->cur_row; + cursor_col = screen->cursor_col = screen->cur_col; + screen->cursor_moved = False; + +#ifndef NO_ACTIVE_ICON + if (IsIcon(screen)) { + screen->cursor_state = ON; + return; + } +#endif /* NO_ACTIVE_ICON */ + +#if OPT_WIDE_CHARS + base = +#endif + clo = SCRN_BUF_CHARS(screen, screen->cursor_row)[cursor_col]; + + if_OPT_WIDE_CHARS(screen, { + int my_col; + chi = SCRN_BUF_WIDEC(screen, screen->cursor_row)[cursor_col]; + if (clo == HIDDEN_LO && chi == HIDDEN_HI && cursor_col > 0) { + /* if cursor points to non-initial part of wide character, + * back it up + */ + --cursor_col; + clo = SCRN_BUF_CHARS(screen, screen->cursor_row)[cursor_col]; + chi = SCRN_BUF_WIDEC(screen, screen->cursor_row)[cursor_col]; + } + my_col = cursor_col; + base = (chi << 8) | clo; + if (iswide(base)) + my_col += 1; + c1l = SCRN_BUF_COM1L(screen, screen->cursor_row)[my_col]; + c1h = SCRN_BUF_COM1H(screen, screen->cursor_row)[my_col]; + c2l = SCRN_BUF_COM2L(screen, screen->cursor_row)[my_col]; + c2h = SCRN_BUF_COM2H(screen, screen->cursor_row)[my_col]; + }); + + flags = SCRN_BUF_ATTRS(screen, screen->cursor_row)[cursor_col]; + + if (clo == 0 +#if OPT_WIDE_CHARS + && chi == 0 +#endif + ) { + clo = ' '; + } + + /* + * If the cursor happens to be on blanks, and the foreground color is set + * but not the background, do not treat it as a colored cell. + */ +#if OPT_ISO_COLORS + if ((flags & TERM_COLOR_FLAGS(term)) == BG_COLOR +#if OPT_WIDE_CHARS + && chi == 0 +#endif + && clo == ' ') { + flags &= ~TERM_COLOR_FLAGS(term); + } +#endif + + /* + * Compare the current cell to the last set of colors used for the + * cursor and update the GC's if needed. + */ + if_OPT_EXT_COLORS(screen, { + fg_bg = (SCRN_BUF_FGRND(screen, screen->cursor_row)[cursor_col] << 8) + | (SCRN_BUF_BGRND(screen, screen->cursor_row)[cursor_col]); + }); + if_OPT_ISO_TRADITIONAL_COLORS(screen, { + fg_bg = SCRN_BUF_COLOR(screen, screen->cursor_row)[cursor_col]; + }); + fg_pix = getXtermForeground(flags, extract_fg(fg_bg, flags)); + bg_pix = getXtermBackground(flags, extract_bg(fg_bg, flags)); + + if (OutsideSelection(screen, screen->cur_row, screen->cur_col)) + in_selection = False; + else + in_selection = True; + + reversed = ReverseOrHilite(screen, flags, in_selection); + + /* This is like updatedXtermGC(), except that we have to worry about + * whether the window has focus, since in that case we want just an + * outline for the cursor. + */ + if (screen->select || screen->always_highlight) { + if (reversed) { /* text is reverse video */ + if (screen->cursorGC) { + setGC(screen->cursorGC); + } else { + if (flags & BOLDATTR(screen)) { + setGC(NormalBoldGC(screen)); + } else { + setGC(NormalGC(screen)); + } + } +#if OPT_HIGHLIGHT_COLOR + if (hi_pix != T_COLOR(screen, TEXT_FG) + && hi_pix != fg_pix + && hi_pix != bg_pix + && hi_pix != term->dft_foreground) { + bg_pix = fg_pix; + fg_pix = hi_pix; + } +#endif + EXCHANGE(fg_pix, bg_pix, tmp); + } else { /* normal video */ + if (screen->reversecursorGC) { + setGC(screen->reversecursorGC); + } else { + if (flags & BOLDATTR(screen)) { + setGC(ReverseBoldGC(screen)); + } else { + setGC(ReverseGC(screen)); + } + } + } + if (T_COLOR(screen, TEXT_CURSOR) == term->dft_foreground) { + XSetBackground(screen->display, currentGC, fg_pix); + } + XSetForeground(screen->display, currentGC, bg_pix); + } else { /* not selected */ + if (reversed) { /* text is reverse video */ +#if OPT_HIGHLIGHT_COLOR + if (hi_pix != T_COLOR(screen, TEXT_FG) + && hi_pix != fg_pix + && hi_pix != bg_pix + && hi_pix != term->dft_foreground) { + bg_pix = fg_pix; + fg_pix = hi_pix; + } +#endif + setGC(ReverseGC(screen)); + XSetForeground(screen->display, currentGC, bg_pix); + XSetBackground(screen->display, currentGC, fg_pix); + } else { /* normal video */ + setGC(NormalGC(screen)); + XSetForeground(screen->display, currentGC, fg_pix); + XSetBackground(screen->display, currentGC, bg_pix); + } + } + + if (screen->cursor_busy == 0 + && (screen->cursor_state != ON || screen->cursor_GC != set_at)) { + + screen->cursor_GC = set_at; + TRACE(("ShowCursor calling drawXtermText cur(%d,%d)\n", + screen->cur_row, screen->cur_col)); + + drawXtermText(screen, flags & DRAWX_MASK, currentGC, + x = CurCursorX(screen, screen->cur_row, cursor_col), + y = CursorY(screen, screen->cur_row), + curXtermChrSet(screen->cur_row), + PAIRED_CHARS(&clo, &chi), 1, 0); + +#if OPT_WIDE_CHARS + if (c1l || c1h) { + drawXtermText(screen, (flags & DRAWX_MASK) | NOBACKGROUND, + currentGC, x, y, + curXtermChrSet(screen->cur_row), + PAIRED_CHARS(&c1l, &c1h), 1, iswide(base)); + + if (c2l || c2h) + drawXtermText(screen, (flags & DRAWX_MASK) | NOBACKGROUND, + currentGC, x, y, + curXtermChrSet(screen->cur_row), + PAIRED_CHARS(&c2l, &c2h), 1, iswide(base)); + } +#endif + + if (!screen->select && !screen->always_highlight) { + screen->box->x = x; + screen->box->y = y; + XDrawLines(screen->display, VWindow(screen), + screen->cursoroutlineGC ? screen->cursoroutlineGC + : currentGC, + screen->box, NBOX, CoordModePrevious); + } + } + screen->cursor_state = ON; +} + +/* + * hide cursor at previous cursor position in screen. + */ +void +HideCursor(void) +{ + TScreen *screen = &term->screen; + GC currentGC; + unsigned flags; + unsigned fg_bg = 0; + int x, y; + Char clo; + Bool in_selection; +#if OPT_WIDE_CHARS + Char chi = 0; + Char c1h = 0; + Char c1l = 0; + Char c2h = 0; + Char c2l = 0; + int base; +#endif + int cursor_col; + + if (screen->cursor_state == OFF) /* FIXME */ + return; + if (screen->cursor_row - screen->topline > screen->max_row) + return; + + cursor_col = screen->cursor_col; + +#ifndef NO_ACTIVE_ICON + if (IsIcon(screen)) { + screen->cursor_state = OFF; + return; + } +#endif /* NO_ACTIVE_ICON */ + +#if OPT_WIDE_CHARS + base = +#endif + clo = SCRN_BUF_CHARS(screen, screen->cursor_row)[cursor_col]; + flags = SCRN_BUF_ATTRS(screen, screen->cursor_row)[cursor_col]; + + if_OPT_WIDE_CHARS(screen, { + int my_col; + chi = SCRN_BUF_WIDEC(screen, screen->cursor_row)[cursor_col]; + if (clo == HIDDEN_LO && chi == HIDDEN_HI) { + /* if cursor points to non-initial part of wide character, + * back it up + */ + --cursor_col; + clo = SCRN_BUF_CHARS(screen, screen->cursor_row)[cursor_col]; + chi = SCRN_BUF_WIDEC(screen, screen->cursor_row)[cursor_col]; + } + my_col = cursor_col; + base = (chi << 8) | clo; + if (iswide(base)) + my_col += 1; + c1l = SCRN_BUF_COM1L(screen, screen->cursor_row)[my_col]; + c1h = SCRN_BUF_COM1H(screen, screen->cursor_row)[my_col]; + c2l = SCRN_BUF_COM2L(screen, screen->cursor_row)[my_col]; + c2h = SCRN_BUF_COM2H(screen, screen->cursor_row)[my_col]; + }); + + if_OPT_EXT_COLORS(screen, { + fg_bg = (SCRN_BUF_FGRND(screen, screen->cursor_row)[cursor_col] << 8) + | (SCRN_BUF_BGRND(screen, screen->cursor_row)[cursor_col]); + }); + if_OPT_ISO_TRADITIONAL_COLORS(screen, { + fg_bg = SCRN_BUF_COLOR(screen, screen->cursor_row)[cursor_col]; + }); + + if (OutsideSelection(screen, screen->cursor_row, screen->cursor_col)) + in_selection = False; + else + in_selection = True; + + currentGC = updatedXtermGC(screen, flags, fg_bg, in_selection); + + if (clo == 0 +#if OPT_WIDE_CHARS + && chi == 0 +#endif + ) { + clo = ' '; + } + + TRACE(("HideCursor calling drawXtermText cur(%d,%d)\n", + screen->cursor_row, screen->cursor_col)); + drawXtermText(screen, flags & DRAWX_MASK, currentGC, + x = CurCursorX(screen, screen->cursor_row, cursor_col), + y = CursorY(screen, screen->cursor_row), + curXtermChrSet(screen->cursor_row), + PAIRED_CHARS(&clo, &chi), 1, 0); + +#if OPT_WIDE_CHARS + if (c1l || c1h) { + drawXtermText(screen, (flags & DRAWX_MASK) | NOBACKGROUND, + currentGC, x, y, + curXtermChrSet(screen->cur_row), + PAIRED_CHARS(&c1l, &c1h), 1, iswide(base)); + + if (c2l || c2h) + drawXtermText(screen, (flags & DRAWX_MASK) | NOBACKGROUND, + currentGC, x, y, + curXtermChrSet(screen->cur_row), + PAIRED_CHARS(&c2l, &c2h), 1, iswide(base)); + } +#endif + screen->cursor_state = OFF; + resetXtermGC(screen, flags, in_selection); +} + +#if OPT_BLINK_CURS || OPT_BLINK_TEXT +static void +StartBlinking(TScreen * screen) +{ + if (screen->blink_timer == 0) { + unsigned long interval = (screen->cursor_state == ON ? + screen->blink_on : screen->blink_off); + if (interval == 0) /* wow! */ + interval = 1; /* let's humor him anyway */ + screen->blink_timer = XtAppAddTimeOut(app_con, + interval, + HandleBlinking, + screen); + } +} + +static void +StopBlinking(TScreen * screen) +{ + if (screen->blink_timer) + XtRemoveTimeOut(screen->blink_timer); + screen->blink_timer = 0; +} + +#if OPT_BLINK_TEXT +static Bool +ScrnHasBlinking(TScreen * screen, int row) +{ + Char *attrs = SCRN_BUF_ATTRS(screen, row); + int col; + Bool result = False; + + for (col = 0; col < MaxCols(screen); ++col) { + if (attrs[col] & BLINK) { + result = True; + break; + } + } + return result; +} +#endif + +/* + * Blink the cursor by alternately showing/hiding cursor. We leave the timer + * running all the time (even though that's a little inefficient) to make the + * logic simple. + */ +static void +HandleBlinking(XtPointer closure, XtIntervalId * id GCC_UNUSED) +{ + TScreen *screen = (TScreen *) closure; + Bool resume = False; + + screen->blink_timer = 0; + screen->blink_state = !screen->blink_state; + +#if OPT_BLINK_CURS + if (DoStartBlinking(screen)) { + if (screen->cursor_state == ON) { + if (screen->select || screen->always_highlight) { + HideCursor(); + if (screen->cursor_state == OFF) + screen->cursor_state = BLINKED_OFF; + } + } else if (screen->cursor_state == BLINKED_OFF) { + screen->cursor_state = OFF; + ShowCursor(); + if (screen->cursor_state == OFF) + screen->cursor_state = BLINKED_OFF; + } + resume = True; + } +#endif + +#if OPT_BLINK_TEXT + /* + * Inspect the line on the current screen to see if any have the BLINK flag + * associated with them. Prune off any that have had the corresponding + * cells reset. If any are left, repaint those lines with ScrnRefresh(). + */ + if (!(screen->blink_as_bold)) { + int row; + int first_row = screen->max_row; + int last_row = -1; + + for (row = screen->max_row; row >= 0; row--) { + if (ScrnTstBlinked(screen, row)) { + if (ScrnHasBlinking(screen, row)) { + resume = True; + if (row > last_row) + last_row = row; + if (row < first_row) + first_row = row; + } else { + ScrnClrBlinked(screen, row); + } + } + } + /* + * FIXME: this could be a little more efficient, e.g,. by limiting the + * columns which are updated. + */ + if (first_row <= last_row) { + ScrnRefresh(screen, + first_row, + 0, + last_row + 1 - first_row, + MaxCols(screen), + True); + } + } +#endif + + /* + * If either the cursor or text is blinking, restart the timer. + */ + if (resume) + StartBlinking(screen); +} +#endif /* OPT_BLINK_CURS || OPT_BLINK_TEXT */ + +/* + * Implement soft or hard (full) reset of the VTxxx emulation. There are a + * couple of differences from real DEC VTxxx terminals (to avoid breaking + * applications which have come to rely on xterm doing this): + * + * + autowrap mode should be reset (instead it's reset to the resource + * default). + * + the popup menu offers a choice of resetting the savedLines, or not. + * (but the control sequence does this anyway). + */ +void +VTReset(Bool full, Bool saved) +{ + TScreen *screen = &term->screen; + + if (!XtIsRealized((Widget) term)) { + Bell(XkbBI_MinorError, 0); + return; + } + + if (saved) { + screen->savedlines = 0; + ScrollBarDrawThumb(screen->scrollWidget); + } + + /* make cursor visible */ + screen->cursor_set = ON; + + /* reset scrolling region */ + set_tb_margins(screen, 0, screen->max_row); + + bitclr(&term->flags, ORIGIN); + + if_OPT_ISO_COLORS(screen, { + reset_SGR_Colors(); + }); + + /* Reset character-sets to initial state */ + resetCharsets(screen); + + /* Reset DECSCA */ + bitclr(&term->flags, PROTECTED); + screen->protected_mode = OFF_PROTECT; + + if (full) { /* RIS */ + if (screen->bellOnReset) + Bell(XkbBI_TerminalBell, 0); + + /* reset the mouse mode */ + screen->send_mouse_pos = MOUSE_OFF; + waitingForTrackInfo = False; + eventMode = NORMAL; + + TabReset(term->tabs); + term->keyboard.flags = MODE_SRM; +#if OPT_INITIAL_ERASE + if (term->keyboard.reset_DECBKM == 1) + term->keyboard.flags |= MODE_DECBKM; + else if (term->keyboard.reset_DECBKM == 2) +#endif + if (term->screen.backarrow_key) + term->keyboard.flags |= MODE_DECBKM; + TRACE(("full reset DECBKM %s\n", + BtoS(term->keyboard.flags & MODE_DECBKM))); + update_appcursor(); + update_appkeypad(); + update_decbkm(); + show_8bit_control(False); + reset_decudk(); + + FromAlternate(screen); + ClearScreen(screen); + screen->cursor_state = OFF; + if (term->flags & REVERSE_VIDEO) + ReverseVideo(term); + + term->flags = term->initflags; + update_reversevideo(); + update_autowrap(); + update_reversewrap(); + update_autolinefeed(); + + screen->jumpscroll = !(term->flags & SMOOTHSCROLL); + update_jumpscroll(); + + if (screen->c132 && (term->flags & IN132COLUMNS)) { + Dimension reqWidth = (80 * FontWidth(screen) + + 2 * screen->border + ScrollbarWidth(screen)); + Dimension reqHeight = (FontHeight(screen) + * MaxRows(screen) + 2 * screen->border); + Dimension replyWidth; + Dimension replyHeight; + + TRACE(("Making resize-request to restore 80-columns %dx%d\n", + reqHeight, reqWidth)); + XtMakeResizeRequest((Widget) term, + reqWidth, + reqHeight, + &replyWidth, &replyHeight); + TRACE(("...result %dx%d\n", replyHeight, replyWidth)); + repairSizeHints(); + XSync(screen->display, False); /* synchronize */ + if (XtAppPending(app_con)) + xevents(); + } + + CursorSet(screen, 0, 0, term->flags); + CursorSave(term); + } else { /* DECSTR */ + /* + * There's a tiny difference, to accommodate usage of xterm. + * We reset autowrap to the resource values rather than turning + * it off. + */ + term->keyboard.flags &= ~(MODE_DECCKM | MODE_KAM | MODE_DECKPAM); + bitcpy(&term->flags, term->initflags, WRAPAROUND | REVERSEWRAP); + bitclr(&term->flags, INSERT | INVERSE | BOLD | BLINK | UNDERLINE | INVISIBLE); + if_OPT_ISO_COLORS(screen, { + reset_SGR_Colors(); + }); + update_appcursor(); + update_autowrap(); + update_reversewrap(); + + CursorSave(term); + screen->sc[screen->alternate != False].row = + screen->sc[screen->alternate != False].col = 0; + } + longjmp(vtjmpbuf, 1); /* force ground state in parser */ +} + +/* + * set_character_class - takes a string of the form + * + * low[-high]:val[,low[-high]:val[...]] + * + * and sets the indicated ranges to the indicated values. + */ +static int +set_character_class(char *s) +{ + int i; /* iterator, index into s */ + int len; /* length of s */ + int acc; /* accumulator */ + int low, high; /* bounds of range [0..127] */ + int base; /* 8, 10, 16 (octal, decimal, hex) */ + int numbers; /* count of numbers per range */ + int digits; /* count of digits in a number */ + static char *errfmt = "%s: %s in range string \"%s\" (position %d)\n"; + + if (!s || !s[0]) + return -1; + + base = 10; /* in case we ever add octal, hex */ + low = high = -1; /* out of range */ + + for (i = 0, len = strlen(s), acc = 0, numbers = digits = 0; + i < len; i++) { + Char c = s[i]; + + if (isspace(c)) { + continue; + } else if (isdigit(c)) { + acc = acc * base + (c - '0'); + digits++; + continue; + } else if (c == '-') { + low = acc; + acc = 0; + if (digits == 0) { + fprintf(stderr, errfmt, ProgramName, "missing number", s, i); + return (-1); + } + digits = 0; + numbers++; + continue; + } else if (c == ':') { + if (numbers == 0) + low = acc; + else if (numbers == 1) + high = acc; + else { + fprintf(stderr, errfmt, ProgramName, "too many numbers", + s, i); + return (-1); + } + digits = 0; + numbers++; + acc = 0; + continue; + } else if (c == ',') { + /* + * now, process it + */ + + if (high < 0) { + high = low; + numbers++; + } + if (numbers != 2) { + fprintf(stderr, errfmt, ProgramName, "bad value number", + s, i); + } else if (SetCharacterClassRange(low, high, acc) != 0) { + fprintf(stderr, errfmt, ProgramName, "bad range", s, i); + } + + low = high = -1; + acc = 0; + digits = 0; + numbers = 0; + continue; + } else { + fprintf(stderr, errfmt, ProgramName, "bad character", s, i); + return (-1); + } /* end if else if ... else */ + + } + + if (low < 0 && high < 0) + return (0); + + /* + * now, process it + */ + + if (high < 0) + high = low; + if (numbers < 1 || numbers > 2) { + fprintf(stderr, errfmt, ProgramName, "bad value number", s, i); + } else if (SetCharacterClassRange(low, high, acc) != 0) { + fprintf(stderr, errfmt, ProgramName, "bad range", s, i); + } + + return (0); +} + +/* ARGSUSED */ +static void +HandleKeymapChange(Widget w, + XEvent * event GCC_UNUSED, + String * params, + Cardinal *param_count) +{ + static XtTranslations keymap, original; + static XtResource key_resources[] = + { + {XtNtranslations, XtCTranslations, XtRTranslationTable, + sizeof(XtTranslations), 0, XtRTranslationTable, (XtPointer) NULL} + }; + char mapName[1000]; + char mapClass[1000]; + char *pmapName; + char *pmapClass; + size_t len; + + if (*param_count != 1) + return; + + if (original == NULL) + original = w->core.tm.translations; + + if (strcmp(params[0], "None") == 0) { + XtOverrideTranslations(w, original); + return; + } + + len = strlen(params[0]) + 7; + + pmapName = (char *) MyStackAlloc(len, mapName); + pmapClass = (char *) MyStackAlloc(len, mapClass); + if (pmapName == NULL + || pmapClass == NULL) + SysError(ERROR_KMMALLOC1); + + (void) sprintf(pmapName, "%sKeymap", params[0]); + (void) strcpy(pmapClass, pmapName); + if (islower(CharOf(pmapClass[0]))) + pmapClass[0] = toupper(CharOf(pmapClass[0])); + XtGetSubresources(w, (XtPointer) &keymap, pmapName, pmapClass, + key_resources, (Cardinal) 1, NULL, (Cardinal) 0); + if (keymap != NULL) + XtOverrideTranslations(w, keymap); + + MyStackFree(pmapName, mapName); + MyStackFree(pmapClass, mapClass); +} + +/* ARGSUSED */ +static void +HandleBell(Widget w GCC_UNUSED, + XEvent * event GCC_UNUSED, + String * params, /* [0] = volume */ + Cardinal *param_count) /* 0 or 1 */ +{ + int percent = (*param_count) ? atoi(params[0]) : 0; + + Bell(XkbBI_TerminalBell, percent); +} + +/* ARGSUSED */ +static void +HandleVisualBell(Widget w GCC_UNUSED, + XEvent * event GCC_UNUSED, + String * params GCC_UNUSED, + Cardinal *param_count GCC_UNUSED) +{ + VisualBell(); +} + +/* ARGSUSED */ +static void +HandleIgnore(Widget w, + XEvent * event, + String * params GCC_UNUSED, + Cardinal *param_count GCC_UNUSED) +{ + /* do nothing, but check for funny escape sequences */ + (void) SendMousePosition(w, event); +} + +/* ARGSUSED */ +static void +DoSetSelectedFont(Widget w GCC_UNUSED, + XtPointer client_data GCC_UNUSED, + Atom * selection GCC_UNUSED, + Atom * type, + XtPointer value, + unsigned long *length GCC_UNUSED, + int *format) +{ + char *val = (char *) value; + int len; + if (*type != XA_STRING || *format != 8) { + Bell(XkbBI_MinorError, 0); + return; + } + len = strlen(val); + if (len > 0) { + if (val[len - 1] == '\n') + val[len - 1] = '\0'; + /* Do some sanity checking to avoid sending a long selection + back to the server in an OpenFont that is unlikely to succeed. + XLFD allows up to 255 characters and no control characters; + we are a little more liberal here. */ + if (len > 1000 || strchr(val, '\n')) + return; + if (!xtermLoadFont(term, + xtermFontName(val), + True, + fontMenu_fontsel)) + Bell(XkbBI_MinorError, 0); + } +} + +void +FindFontSelection(char *atom_name, Bool justprobe) +{ + static AtomPtr *atoms; + static int atomCount = 0; + AtomPtr *pAtom; + int a; + Atom target; + + if (!atom_name) + atom_name = "PRIMARY"; + + for (pAtom = atoms, a = atomCount; a; a--, pAtom++) { + if (strcmp(atom_name, XmuNameOfAtom(*pAtom)) == 0) + break; + } + if (!a) { + atoms = (AtomPtr *) XtRealloc((char *) atoms, + sizeof(AtomPtr) * (atomCount + 1)); + *(pAtom = &atoms[atomCount++]) = XmuMakeAtom(atom_name); + } + + target = XmuInternAtom(XtDisplay(term), *pAtom); + if (justprobe) { + term->screen.MenuFontName(fontMenu_fontsel) = + XGetSelectionOwner(XtDisplay(term), target) ? _Font_Selected_ : 0; + } else { + XtGetSelectionValue((Widget) term, target, XA_STRING, + DoSetSelectedFont, NULL, + XtLastTimestampProcessed(XtDisplay(term))); + } + return; +} + +void +set_cursor_gcs(TScreen * screen) +{ + XGCValues xgcv; + XtGCMask mask; + Pixel cc = T_COLOR(screen, TEXT_CURSOR); + Pixel fg = T_COLOR(screen, TEXT_FG); + Pixel bg = T_COLOR(screen, TEXT_BG); + GC new_cursorGC = NULL; + GC new_cursorFillGC = NULL; + GC new_reversecursorGC = NULL; + GC new_cursoroutlineGC = NULL; + + /* + * Let's see, there are three things that have "color": + * + * background + * text + * cursorblock + * + * And, there are four situation when drawing a cursor, if we decide + * that we like have a solid block of cursor color with the letter + * that it is highlighting shown in the background color to make it + * stand out: + * + * selected window, normal video - background on cursor + * selected window, reverse video - foreground on cursor + * unselected window, normal video - foreground on background + * unselected window, reverse video - background on foreground + * + * Since the last two are really just normalGC and reverseGC, we only + * need two new GC's. Under monochrome, we get the same effect as + * above by setting cursor color to foreground. + */ + +#if OPT_ISO_COLORS + /* + * If we're using ANSI colors, the functions manipulating the SGR code will + * use the same GC's. To avoid having the cursor change color, we use the + * Xlib calls rather than the Xt calls. + * + * Use the colorMode value to determine which we'll do (the VWindow may + * not be set before the widget's realized, so it's tested separately). + */ + if (screen->colorMode) { + if (VWindow(screen) != 0 && (cc != bg) && (cc != fg)) { + /* we might have a colored foreground/background later */ + xgcv.font = screen->fnt_norm->fid; + mask = (GCForeground | GCBackground | GCFont); + xgcv.foreground = fg; + xgcv.background = cc; + new_cursorGC = XCreateGC(screen->display, VWindow(screen), mask, &xgcv); + + xgcv.foreground = cc; + xgcv.background = fg; + new_cursorFillGC = + XCreateGC(screen->display, VWindow(screen), mask, &xgcv); + + if (screen->always_highlight) { + new_reversecursorGC = (GC) 0; + new_cursoroutlineGC = (GC) 0; + } else { + xgcv.foreground = bg; + xgcv.background = cc; + new_reversecursorGC = + XCreateGC(screen->display, VWindow(screen), mask, &xgcv); + xgcv.foreground = cc; + xgcv.background = bg; + new_cursoroutlineGC = + XCreateGC(screen->display, VWindow(screen), mask, &xgcv); + } + } + } else +#endif + if (cc != fg && cc != bg) { + /* we have a colored cursor */ + xgcv.font = screen->fnt_norm->fid; + mask = (GCForeground | GCBackground | GCFont); + + xgcv.foreground = fg; + xgcv.background = cc; + new_cursorGC = XtGetGC((Widget) term, mask, &xgcv); + + xgcv.foreground = cc; + xgcv.background = fg; + new_cursorFillGC = XtGetGC((Widget) term, mask, &xgcv); + + if (screen->always_highlight) { + new_reversecursorGC = (GC) 0; + new_cursoroutlineGC = (GC) 0; + } else { + xgcv.foreground = bg; + xgcv.background = cc; + new_reversecursorGC = XtGetGC((Widget) term, mask, &xgcv); + xgcv.foreground = cc; + xgcv.background = bg; + new_cursoroutlineGC = XtGetGC((Widget) term, mask, &xgcv); + } + } +#if OPT_ISO_COLORS + if (screen->colorMode) { + if (screen->cursorGC) + XFreeGC(screen->display, screen->cursorGC); + if (screen->fillCursorGC) + XFreeGC(screen->display, screen->fillCursorGC); + if (screen->reversecursorGC) + XFreeGC(screen->display, screen->reversecursorGC); + if (screen->cursoroutlineGC) + XFreeGC(screen->display, screen->cursoroutlineGC); + } else +#endif + { + if (screen->cursorGC) + XtReleaseGC((Widget) term, screen->cursorGC); + if (screen->fillCursorGC) + XtReleaseGC((Widget) term, screen->fillCursorGC); + if (screen->reversecursorGC) + XtReleaseGC((Widget) term, screen->reversecursorGC); + if (screen->cursoroutlineGC) + XtReleaseGC((Widget) term, screen->cursoroutlineGC); + } + + screen->cursorGC = new_cursorGC; + screen->fillCursorGC = new_cursorFillGC; + screen->reversecursorGC = new_reversecursorGC; + screen->cursoroutlineGC = new_cursoroutlineGC; +} |