4842 lines
119 KiB
C
4842 lines
119 KiB
C
/* $XTermId: util.c,v 1.668 2014/12/18 09:27:49 tom Exp $ */
|
|
|
|
/*
|
|
* Copyright 1999-2013,2014 by Thomas E. Dickey
|
|
*
|
|
* All Rights Reserved
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining a
|
|
* copy of this software and associated documentation files (the
|
|
* "Software"), to deal in the Software without restriction, including
|
|
* without limitation the rights to use, copy, modify, merge, publish,
|
|
* distribute, sublicense, and/or sell copies of the Software, and to
|
|
* permit persons to whom the Software is furnished to do so, subject to
|
|
* the following conditions:
|
|
*
|
|
* The above copyright notice and this permission notice shall be included
|
|
* in all copies or substantial portions of the Software.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
|
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
|
* IN NO EVENT SHALL THE ABOVE LISTED COPYRIGHT HOLDER(S) BE LIABLE FOR ANY
|
|
* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
|
* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
|
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
*
|
|
* Except as contained in this notice, the name(s) of the above copyright
|
|
* holders shall not be used in advertising or otherwise to promote the
|
|
* sale, use or other dealings in this Software without prior written
|
|
* authorization.
|
|
*
|
|
*
|
|
* Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
|
|
*
|
|
* All Rights Reserved
|
|
*
|
|
* Permission to use, copy, modify, and distribute this software and its
|
|
* documentation for any purpose and without fee is hereby granted,
|
|
* provided that the above copyright notice appear in all copies and that
|
|
* both that copyright notice and this permission notice appear in
|
|
* supporting documentation, and that the name of Digital Equipment
|
|
* Corporation not be used in advertising or publicity pertaining to
|
|
* distribution of the software without specific, written prior permission.
|
|
*
|
|
*
|
|
* DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
|
|
* ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
|
|
* DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
|
|
* ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|
|
* WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
|
|
* ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
|
|
* SOFTWARE.
|
|
*/
|
|
|
|
/* util.c */
|
|
|
|
#include <xterm.h>
|
|
|
|
#include <data.h>
|
|
#include <error.h>
|
|
#include <menu.h>
|
|
#include <fontutils.h>
|
|
#include <xstrings.h>
|
|
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
#include <assert.h>
|
|
|
|
#if OPT_WIDE_CHARS
|
|
#if defined(HAVE_WCHAR_H) && defined(HAVE_WCWIDTH)
|
|
#include <wchar.h>
|
|
#endif
|
|
#include <wcwidth.h>
|
|
#endif
|
|
|
|
#include <graphics.h>
|
|
|
|
static int handle_translated_exposure(XtermWidget xw,
|
|
int rect_x,
|
|
int rect_y,
|
|
int rect_width,
|
|
int rect_height);
|
|
static void ClearLeft(XtermWidget xw);
|
|
static void CopyWait(XtermWidget xw);
|
|
static void horizontal_copy_area(XtermWidget xw,
|
|
int firstchar,
|
|
int nchars,
|
|
int amount);
|
|
static void vertical_copy_area(XtermWidget xw,
|
|
int firstline,
|
|
int nlines,
|
|
int amount,
|
|
int left,
|
|
int right);
|
|
|
|
#if OPT_WIDE_CHARS
|
|
unsigned first_widechar;
|
|
int (*my_wcwidth) (wchar_t);
|
|
#endif
|
|
|
|
#if OPT_WIDE_CHARS
|
|
/*
|
|
* We will modify the 'n' cells beginning at the current position.
|
|
* Some of those cells may be part of multi-column characters, including
|
|
* carryover from the left. Find the limits of the multi-column characters
|
|
* that we should fill with blanks, return true if filling is needed.
|
|
*/
|
|
int
|
|
DamagedCells(TScreen *screen, unsigned n, int *klp, int *krp, int row, int col)
|
|
{
|
|
LineData *ld = getLineData(screen, row);
|
|
int result = False;
|
|
|
|
assert(ld);
|
|
if (col < (int) ld->lineSize) {
|
|
int nn = (int) n;
|
|
int kl = col;
|
|
int kr = col + nn;
|
|
|
|
if (kr >= (int) ld->lineSize) {
|
|
nn = (ld->lineSize - col - 1);
|
|
kr = col + nn;
|
|
}
|
|
|
|
if (nn > 0) {
|
|
assert(kl < (int) ld->lineSize);
|
|
if (ld->charData[kl] == HIDDEN_CHAR) {
|
|
while (kl > 0) {
|
|
if (ld->charData[--kl] != HIDDEN_CHAR) {
|
|
break;
|
|
}
|
|
}
|
|
} else {
|
|
kl = col + 1;
|
|
}
|
|
|
|
assert(kr < (int) ld->lineSize);
|
|
if (ld->charData[kr] == HIDDEN_CHAR) {
|
|
while (kr < screen->max_col) {
|
|
assert((kr + 1) < (int) ld->lineSize);
|
|
if (ld->charData[++kr] != HIDDEN_CHAR) {
|
|
--kr;
|
|
break;
|
|
}
|
|
}
|
|
} else {
|
|
kr = col - 1;
|
|
}
|
|
|
|
if (klp)
|
|
*klp = kl;
|
|
if (krp)
|
|
*krp = kr;
|
|
result = (kr >= kl);
|
|
}
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
int
|
|
DamagedCurCells(TScreen *screen, unsigned n, int *klp, int *krp)
|
|
{
|
|
return DamagedCells(screen, n, klp, krp, screen->cur_row, screen->cur_col);
|
|
}
|
|
#endif /* OPT_WIDE_CHARS */
|
|
|
|
/*
|
|
* These routines are used for the jump scroll feature
|
|
*/
|
|
void
|
|
FlushScroll(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int i;
|
|
int shift = INX2ROW(screen, 0);
|
|
int bot = screen->max_row - shift;
|
|
int refreshtop;
|
|
int refreshheight;
|
|
int scrolltop;
|
|
int scrollheight;
|
|
int left = ScrnLeftMargin(xw);
|
|
int right = ScrnRightMargin(xw);
|
|
Boolean full_lines = (Boolean) ((left == 0) && (right == screen->max_col));
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
|
|
TRACE(("FlushScroll %s-lines scroll:%d refresh %d\n",
|
|
full_lines ? "full" : "partial",
|
|
screen->scroll_amt,
|
|
screen->refresh_amt));
|
|
|
|
if (screen->scroll_amt > 0) {
|
|
/*
|
|
* Lines will be scrolled "up".
|
|
*/
|
|
refreshheight = screen->refresh_amt;
|
|
scrollheight = screen->bot_marg - screen->top_marg - refreshheight + 1;
|
|
refreshtop = screen->bot_marg - refreshheight + 1 + shift;
|
|
i = screen->max_row - screen->scroll_amt + 1;
|
|
if (refreshtop > i) {
|
|
refreshtop = i;
|
|
}
|
|
|
|
/*
|
|
* If this is the normal (not alternate) screen, and the top margin is
|
|
* at the top of the screen, then we will shift full lines scrolled out
|
|
* of the scrolling region into the saved-lines.
|
|
*/
|
|
if (screen->scrollWidget
|
|
&& !screen->whichBuf
|
|
&& full_lines
|
|
&& screen->top_marg == 0) {
|
|
scrolltop = 0;
|
|
scrollheight += shift;
|
|
if (scrollheight > i)
|
|
scrollheight = i;
|
|
i = screen->bot_marg - bot;
|
|
if (i > 0) {
|
|
refreshheight -= i;
|
|
if (refreshheight < screen->scroll_amt) {
|
|
refreshheight = screen->scroll_amt;
|
|
}
|
|
}
|
|
i = screen->savedlines;
|
|
if (i < screen->savelines) {
|
|
i += screen->scroll_amt;
|
|
if (i > screen->savelines) {
|
|
i = screen->savelines;
|
|
}
|
|
screen->savedlines = i;
|
|
ScrollBarDrawThumb(screen->scrollWidget);
|
|
}
|
|
} else {
|
|
scrolltop = screen->top_marg + shift;
|
|
i = bot - (screen->bot_marg - screen->refresh_amt + screen->scroll_amt);
|
|
if (i > 0) {
|
|
if (bot < screen->bot_marg) {
|
|
refreshheight = screen->scroll_amt + i;
|
|
}
|
|
} else {
|
|
scrollheight += i;
|
|
refreshheight = screen->scroll_amt;
|
|
i = screen->top_marg + screen->scroll_amt - 1 - bot;
|
|
if (i > 0) {
|
|
refreshtop += i;
|
|
refreshheight -= i;
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
/*
|
|
* Lines will be scrolled "down".
|
|
*/
|
|
refreshheight = -screen->refresh_amt;
|
|
scrollheight = screen->bot_marg - screen->top_marg - refreshheight + 1;
|
|
refreshtop = screen->top_marg + shift;
|
|
scrolltop = refreshtop + refreshheight;
|
|
i = screen->bot_marg - bot;
|
|
if (i > 0) {
|
|
scrollheight -= i;
|
|
}
|
|
i = screen->top_marg + refreshheight - 1 - bot;
|
|
if (i > 0) {
|
|
refreshheight -= i;
|
|
}
|
|
}
|
|
|
|
vertical_copy_area(xw,
|
|
scrolltop + screen->scroll_amt,
|
|
scrollheight,
|
|
screen->scroll_amt,
|
|
left,
|
|
right);
|
|
ScrollSelection(screen, -(screen->scroll_amt), False);
|
|
screen->scroll_amt = 0;
|
|
screen->refresh_amt = 0;
|
|
|
|
if (refreshheight > 0) {
|
|
ClearCurBackground(xw,
|
|
refreshtop,
|
|
left,
|
|
(unsigned) refreshheight,
|
|
(unsigned) (right + 1 - left),
|
|
(unsigned) FontWidth(screen));
|
|
ScrnRefresh(xw,
|
|
refreshtop,
|
|
0,
|
|
refreshheight,
|
|
MaxCols(screen),
|
|
False);
|
|
}
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* Returns true if there are lines off-screen due to scrolling which should
|
|
* include the current line. If false, the line is visible and we should
|
|
* paint it now rather than waiting for the line to become visible.
|
|
*/
|
|
static Bool
|
|
AddToRefresh(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int amount = screen->refresh_amt;
|
|
int row = screen->cur_row;
|
|
Bool result;
|
|
|
|
if (amount == 0) {
|
|
result = False;
|
|
} else if (amount > 0) {
|
|
int bottom;
|
|
|
|
if (row == (bottom = screen->bot_marg) - amount) {
|
|
screen->refresh_amt++;
|
|
result = True;
|
|
} else {
|
|
result = (row >= bottom - amount + 1 && row <= bottom);
|
|
}
|
|
} else {
|
|
int top;
|
|
|
|
amount = -amount;
|
|
if (row == (top = screen->top_marg) + amount) {
|
|
screen->refresh_amt--;
|
|
result = True;
|
|
} else {
|
|
result = (row <= top + amount - 1 && row >= top);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* If this line is visible, and there are scrolled-off lines, flush out
|
|
* those which are now visible.
|
|
*/
|
|
if (!result && screen->scroll_amt)
|
|
FlushScroll(xw);
|
|
|
|
return result;
|
|
}
|
|
|
|
/*
|
|
* Returns true if the current row is in the visible area (it should be for
|
|
* screen operations) and incidentally flush the scrolled-in lines which
|
|
* have newly become visible.
|
|
*/
|
|
static Bool
|
|
AddToVisible(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
Bool result = False;
|
|
|
|
if (INX2ROW(screen, screen->cur_row) <= screen->max_row) {
|
|
if (!AddToRefresh(xw)) {
|
|
result = True;
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
|
|
/*
|
|
* If we're scrolling, leave the selection intact if possible.
|
|
* If it will bump into one of the extremes of the saved-lines, truncate that.
|
|
* If the selection is not entirely contained within the margins and not
|
|
* entirely outside the margins, clear it.
|
|
*/
|
|
static void
|
|
adjustHiliteOnFwdScroll(XtermWidget xw, int amount, Bool all_lines)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int lo_row = (all_lines
|
|
? (screen->bot_marg - screen->savelines)
|
|
: screen->top_marg);
|
|
int hi_row = screen->bot_marg;
|
|
int left = ScrnLeftMargin(xw);
|
|
int right = ScrnRightMargin(xw);
|
|
|
|
TRACE2(("adjustSelection FWD %s by %d (%s)\n",
|
|
screen->whichBuf ? "alternate" : "normal",
|
|
amount,
|
|
all_lines ? "all" : "visible"));
|
|
TRACE2((" before highlite %d.%d .. %d.%d\n",
|
|
screen->startH.row,
|
|
screen->startH.col,
|
|
screen->endH.row,
|
|
screen->endH.col));
|
|
TRACE2((" margins %d..%d\n", screen->top_marg, screen->bot_marg));
|
|
TRACE2((" limits %d..%d\n", lo_row, hi_row));
|
|
|
|
if ((left > 0 || right < screen->max_col) &&
|
|
((screen->startH.row >= lo_row &&
|
|
screen->startH.row - amount <= hi_row) ||
|
|
(screen->endH.row >= lo_row &&
|
|
screen->endH.row - amount <= hi_row))) {
|
|
/*
|
|
* This could be improved slightly by excluding the special case where
|
|
* the selection is on a single line outside left/right margins.
|
|
*/
|
|
TRACE2(("deselect because selection overlaps with scrolled partial-line\n"));
|
|
ScrnDisownSelection(xw);
|
|
} else if (screen->startH.row >= lo_row
|
|
&& screen->startH.row - amount < lo_row) {
|
|
/* truncate the selection because its start would move out of region */
|
|
if (lo_row + amount <= screen->endH.row) {
|
|
TRACE2(("truncate selection by changing start %d.%d to %d.%d\n",
|
|
screen->startH.row,
|
|
screen->startH.col,
|
|
lo_row + amount,
|
|
0));
|
|
screen->startH.row = lo_row + amount;
|
|
screen->startH.col = 0;
|
|
} else {
|
|
TRACE2(("deselect because %d.%d .. %d.%d shifted %d is outside margins %d..%d\n",
|
|
screen->startH.row,
|
|
screen->startH.col,
|
|
screen->endH.row,
|
|
screen->endH.col,
|
|
-amount,
|
|
lo_row,
|
|
hi_row));
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
} else if (screen->startH.row <= hi_row && screen->endH.row > hi_row) {
|
|
TRACE2(("deselect because selection straddles top-margin\n"));
|
|
ScrnDisownSelection(xw);
|
|
} else if (screen->startH.row < lo_row && screen->endH.row > lo_row) {
|
|
TRACE2(("deselect because selection straddles bottom-margin\n"));
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
|
|
TRACE2((" after highlite %d.%d .. %d.%d\n",
|
|
screen->startH.row,
|
|
screen->startH.col,
|
|
screen->endH.row,
|
|
screen->endH.col));
|
|
}
|
|
|
|
/*
|
|
* This is the same as adjustHiliteOnFwdScroll(), but reversed. In this case,
|
|
* only the visible lines are affected.
|
|
*/
|
|
static void
|
|
adjustHiliteOnBakScroll(XtermWidget xw, int amount)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int lo_row = screen->top_marg;
|
|
int hi_row = screen->bot_marg;
|
|
|
|
TRACE2(("adjustSelection BAK %s by %d (%s)\n",
|
|
screen->whichBuf ? "alternate" : "normal",
|
|
amount,
|
|
"visible"));
|
|
TRACE2((" before highlite %d.%d .. %d.%d\n",
|
|
screen->startH.row,
|
|
screen->startH.col,
|
|
screen->endH.row,
|
|
screen->endH.col));
|
|
TRACE2((" margins %d..%d\n", screen->top_marg, screen->bot_marg));
|
|
|
|
if (screen->endH.row >= hi_row
|
|
&& screen->endH.row + amount > hi_row) {
|
|
/* truncate the selection because its start would move out of region */
|
|
if (hi_row - amount >= screen->startH.row) {
|
|
TRACE2(("truncate selection by changing start %d.%d to %d.%d\n",
|
|
screen->startH.row,
|
|
screen->startH.col,
|
|
hi_row - amount,
|
|
0));
|
|
screen->endH.row = hi_row - amount;
|
|
screen->endH.col = 0;
|
|
} else {
|
|
TRACE2(("deselect because %d.%d .. %d.%d shifted %d is outside margins %d..%d\n",
|
|
screen->startH.row,
|
|
screen->startH.col,
|
|
screen->endH.row,
|
|
screen->endH.col,
|
|
amount,
|
|
lo_row,
|
|
hi_row));
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
} else if (screen->endH.row >= lo_row && screen->startH.row < lo_row) {
|
|
ScrnDisownSelection(xw);
|
|
} else if (screen->endH.row > hi_row && screen->startH.row > hi_row) {
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
|
|
TRACE2((" after highlite %d.%d .. %d.%d\n",
|
|
screen->startH.row,
|
|
screen->startH.col,
|
|
screen->endH.row,
|
|
screen->endH.col));
|
|
}
|
|
|
|
/*
|
|
* Move cells in LineData's on the current screen to simulate scrolling by the
|
|
* given amount of lines.
|
|
*/
|
|
static void
|
|
scrollInMargins(XtermWidget xw, int amount, int top)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
LineData *src;
|
|
LineData *dst;
|
|
int row;
|
|
int left = ScrnLeftMargin(xw);
|
|
int right = ScrnRightMargin(xw);
|
|
int length = right + 1 - left;
|
|
|
|
if (amount > 0) {
|
|
for (row = top; row <= screen->bot_marg - amount; ++row) {
|
|
if ((src = getLineData(screen, row + amount)) != 0
|
|
&& (dst = getLineData(screen, row)) != 0) {
|
|
CopyCells(screen, src, dst, left, length);
|
|
}
|
|
}
|
|
while (row <= screen->bot_marg) {
|
|
ClearCells(xw, 0, (unsigned) length, row, left);
|
|
++row;
|
|
}
|
|
} else if (amount < 0) {
|
|
for (row = screen->bot_marg; row >= top - amount; --row) {
|
|
if ((src = getLineData(screen, row + amount)) != 0
|
|
&& (dst = getLineData(screen, row)) != 0) {
|
|
CopyCells(screen, src, dst, left, length);
|
|
}
|
|
}
|
|
while (row >= top) {
|
|
ClearCells(xw, 0, (unsigned) length, row, left);
|
|
--row;
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* scrolls the screen by amount lines, erases bottom, doesn't alter
|
|
* cursor position (i.e. cursor moves down amount relative to text).
|
|
* All done within the scrolling region, of course.
|
|
* requires: amount > 0
|
|
*/
|
|
void
|
|
xtermScroll(XtermWidget xw, int amount)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int i;
|
|
int shift;
|
|
int bot;
|
|
int refreshtop = 0;
|
|
int refreshheight;
|
|
int scrolltop;
|
|
int scrollheight;
|
|
int left = ScrnLeftMargin(xw);
|
|
int right = ScrnRightMargin(xw);
|
|
Boolean scroll_all_lines = (Boolean) (screen->scrollWidget
|
|
&& !screen->whichBuf
|
|
&& screen->top_marg == 0);
|
|
|
|
TRACE(("xtermScroll count=%d\n", amount));
|
|
|
|
screen->cursor_busy += 1;
|
|
screen->cursor_moved = True;
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
|
|
i = screen->bot_marg - screen->top_marg + 1;
|
|
if (amount > i)
|
|
amount = i;
|
|
|
|
#if OPT_SCROLL_LOCK
|
|
if (screen->allowScrollLock && screen->scroll_lock) {
|
|
refreshheight = 0;
|
|
screen->scroll_amt = 0;
|
|
screen->refresh_amt = 0;
|
|
if (--(screen->topline) < -screen->savelines) {
|
|
screen->topline = -screen->savelines;
|
|
screen->scroll_dirty = True;
|
|
}
|
|
if (++(screen->savedlines) > screen->savelines) {
|
|
screen->savedlines = screen->savelines;
|
|
}
|
|
} else
|
|
#endif
|
|
{
|
|
if (ScrnHaveSelection(screen))
|
|
adjustHiliteOnFwdScroll(xw, amount, scroll_all_lines);
|
|
|
|
if (screen->jumpscroll) {
|
|
if (screen->scroll_amt > 0) {
|
|
if (!screen->fastscroll) {
|
|
if (screen->refresh_amt + amount > i)
|
|
FlushScroll(xw);
|
|
}
|
|
screen->scroll_amt += amount;
|
|
screen->refresh_amt += amount;
|
|
} else {
|
|
if (!screen->fastscroll) {
|
|
if (screen->scroll_amt < 0)
|
|
FlushScroll(xw);
|
|
}
|
|
screen->scroll_amt = amount;
|
|
screen->refresh_amt = amount;
|
|
}
|
|
refreshheight = 0;
|
|
} else {
|
|
ScrollSelection(screen, -(amount), False);
|
|
if (amount == i) {
|
|
ClearScreen(xw);
|
|
screen->cursor_busy -= 1;
|
|
return;
|
|
}
|
|
|
|
shift = INX2ROW(screen, 0);
|
|
bot = screen->max_row - shift;
|
|
scrollheight = i - amount;
|
|
refreshheight = amount;
|
|
|
|
if ((refreshtop = screen->bot_marg - refreshheight + 1 + shift) >
|
|
(i = screen->max_row - refreshheight + 1))
|
|
refreshtop = i;
|
|
|
|
if (scroll_all_lines) {
|
|
scrolltop = 0;
|
|
if ((scrollheight += shift) > i)
|
|
scrollheight = i;
|
|
if ((i = screen->savedlines) < screen->savelines) {
|
|
if ((i += amount) > screen->savelines)
|
|
i = screen->savelines;
|
|
screen->savedlines = i;
|
|
ScrollBarDrawThumb(screen->scrollWidget);
|
|
}
|
|
} else {
|
|
scrolltop = screen->top_marg + shift;
|
|
if ((i = screen->bot_marg - bot) > 0) {
|
|
scrollheight -= i;
|
|
if ((i = screen->top_marg + amount - 1 - bot) >= 0) {
|
|
refreshtop += i;
|
|
refreshheight -= i;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (screen->multiscroll && amount == 1 &&
|
|
screen->topline == 0 && screen->top_marg == 0 &&
|
|
screen->bot_marg == screen->max_row) {
|
|
if (screen->incopy < 0 && screen->scrolls == 0)
|
|
CopyWait(xw);
|
|
screen->scrolls++;
|
|
}
|
|
|
|
vertical_copy_area(xw,
|
|
scrolltop + amount,
|
|
scrollheight,
|
|
amount,
|
|
left,
|
|
right);
|
|
|
|
if (refreshheight > 0) {
|
|
ClearCurBackground(xw,
|
|
refreshtop,
|
|
left,
|
|
(unsigned) refreshheight,
|
|
(unsigned) (right + 1 - left),
|
|
(unsigned) FontWidth(screen));
|
|
if (refreshheight > shift)
|
|
refreshheight = shift;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (amount > 0) {
|
|
if (left > 0 || right < screen->max_col) {
|
|
scrollInMargins(xw, amount, screen->top_marg);
|
|
} else if (scroll_all_lines) {
|
|
ScrnDeleteLine(xw,
|
|
screen->saveBuf_index,
|
|
screen->bot_marg + screen->savelines,
|
|
0,
|
|
(unsigned) amount);
|
|
} else {
|
|
ScrnDeleteLine(xw,
|
|
screen->visbuf,
|
|
screen->bot_marg,
|
|
screen->top_marg,
|
|
(unsigned) amount);
|
|
}
|
|
}
|
|
|
|
scroll_displayed_graphics(xw, amount);
|
|
|
|
if (refreshheight > 0) {
|
|
ScrnRefresh(xw,
|
|
refreshtop,
|
|
left,
|
|
refreshheight,
|
|
right + 1 - left,
|
|
False);
|
|
}
|
|
|
|
screen->cursor_busy -= 1;
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* This is from ISO 6429, not found in any of DEC's terminals.
|
|
*/
|
|
void
|
|
xtermScrollLR(XtermWidget xw, int amount, Bool toLeft)
|
|
{
|
|
if (amount > 0) {
|
|
xtermColScroll(xw, amount, toLeft, 0);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Implement DECBI/DECFI (back/forward column index)
|
|
*/
|
|
void
|
|
xtermColIndex(XtermWidget xw, Bool toLeft)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int margin;
|
|
|
|
if (toLeft) {
|
|
margin = ScrnLeftMargin(xw);
|
|
if (screen->cur_col > margin) {
|
|
CursorBack(xw, 1);
|
|
} else if (screen->cur_col == margin) {
|
|
xtermColScroll(xw, 1, False, screen->cur_col);
|
|
}
|
|
} else {
|
|
margin = ScrnRightMargin(xw);
|
|
if (screen->cur_col < margin) {
|
|
CursorForward(xw, 1);
|
|
} else if (screen->cur_col == margin) {
|
|
xtermColScroll(xw, 1, True, ScrnLeftMargin(xw));
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Implement DECDC/DECIC (delete/insert column)
|
|
*/
|
|
void
|
|
xtermColScroll(XtermWidget xw, int amount, Bool toLeft, int at_col)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
if (amount > 0) {
|
|
int min_row;
|
|
int max_row;
|
|
|
|
if (ScrnHaveRowMargins(screen)) {
|
|
min_row = screen->top_marg;
|
|
max_row = screen->bot_marg;
|
|
} else {
|
|
min_row = 0;
|
|
max_row = screen->max_row;
|
|
}
|
|
|
|
if (screen->cur_row >= min_row
|
|
&& screen->cur_row <= max_row
|
|
&& screen->cur_col >= screen->lft_marg
|
|
&& screen->cur_col <= screen->rgt_marg) {
|
|
int save_row = screen->cur_row;
|
|
int save_col = screen->cur_col;
|
|
int row;
|
|
|
|
screen->cur_col = at_col;
|
|
if (toLeft) {
|
|
for (row = min_row; row <= max_row; row++) {
|
|
screen->cur_row = row;
|
|
ScrnDeleteChar(xw, (unsigned) amount);
|
|
}
|
|
} else {
|
|
for (row = min_row; row <= max_row; row++) {
|
|
screen->cur_row = row;
|
|
ScrnInsertChar(xw, (unsigned) amount);
|
|
}
|
|
}
|
|
screen->cur_row = save_row;
|
|
screen->cur_col = save_col;
|
|
xtermRepaint(xw);
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Reverse scrolls the screen by amount lines, erases top, doesn't alter
|
|
* cursor position (i.e. cursor moves up amount relative to text).
|
|
* All done within the scrolling region, of course.
|
|
* Requires: amount > 0
|
|
*/
|
|
void
|
|
RevScroll(XtermWidget xw, int amount)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int i = screen->bot_marg - screen->top_marg + 1;
|
|
int shift;
|
|
int bot;
|
|
int refreshtop;
|
|
int refreshheight;
|
|
int scrolltop;
|
|
int scrollheight;
|
|
int left = ScrnLeftMargin(xw);
|
|
int right = ScrnRightMargin(xw);
|
|
|
|
TRACE(("RevScroll count=%d\n", amount));
|
|
|
|
screen->cursor_busy += 1;
|
|
screen->cursor_moved = True;
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
|
|
if (amount > i)
|
|
amount = i;
|
|
|
|
if (ScrnHaveSelection(screen))
|
|
adjustHiliteOnBakScroll(xw, amount);
|
|
|
|
if (screen->jumpscroll) {
|
|
if (screen->scroll_amt < 0) {
|
|
if (-screen->refresh_amt + amount > i)
|
|
FlushScroll(xw);
|
|
screen->scroll_amt -= amount;
|
|
screen->refresh_amt -= amount;
|
|
} else {
|
|
if (screen->scroll_amt > 0)
|
|
FlushScroll(xw);
|
|
screen->scroll_amt = -amount;
|
|
screen->refresh_amt = -amount;
|
|
}
|
|
} else {
|
|
shift = INX2ROW(screen, 0);
|
|
bot = screen->max_row - shift;
|
|
refreshheight = amount;
|
|
scrollheight = screen->bot_marg - screen->top_marg - refreshheight + 1;
|
|
refreshtop = screen->top_marg + shift;
|
|
scrolltop = refreshtop + refreshheight;
|
|
if ((i = screen->bot_marg - bot) > 0)
|
|
scrollheight -= i;
|
|
if ((i = screen->top_marg + refreshheight - 1 - bot) > 0)
|
|
refreshheight -= i;
|
|
|
|
if (screen->multiscroll && amount == 1 &&
|
|
screen->topline == 0 && screen->top_marg == 0 &&
|
|
screen->bot_marg == screen->max_row) {
|
|
if (screen->incopy < 0 && screen->scrolls == 0)
|
|
CopyWait(xw);
|
|
screen->scrolls++;
|
|
}
|
|
|
|
vertical_copy_area(xw,
|
|
scrolltop - amount,
|
|
scrollheight,
|
|
-amount,
|
|
left,
|
|
right);
|
|
|
|
if (refreshheight > 0) {
|
|
ClearCurBackground(xw,
|
|
refreshtop,
|
|
left,
|
|
(unsigned) refreshheight,
|
|
(unsigned) (right + 1 - left),
|
|
(unsigned) FontWidth(screen));
|
|
}
|
|
}
|
|
if (amount > 0) {
|
|
if (left > 0 || right < screen->max_col) {
|
|
scrollInMargins(xw, -amount, screen->top_marg);
|
|
} else {
|
|
ScrnInsertLine(xw,
|
|
screen->visbuf,
|
|
screen->bot_marg,
|
|
screen->top_marg,
|
|
(unsigned) amount);
|
|
}
|
|
}
|
|
screen->cursor_busy -= 1;
|
|
return;
|
|
}
|
|
|
|
#if OPT_ZICONBEEP
|
|
void
|
|
initZIconBeep(void)
|
|
{
|
|
if (resource.zIconBeep > 100 || resource.zIconBeep < -100) {
|
|
resource.zIconBeep = 0; /* was 100, but I prefer to defaulting off. */
|
|
xtermWarning("a number between -100 and 100 is required for zIconBeep. 0 used by default\n");
|
|
}
|
|
}
|
|
|
|
static void
|
|
setZIconBeep(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
/* Flag icon name with "***" on window output when iconified.
|
|
*/
|
|
if (resource.zIconBeep && mapstate == IsUnmapped && !screen->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) {
|
|
screen->zIconBeep_flagged = True;
|
|
ChangeIconName(xw, icon_name);
|
|
}
|
|
xtermBell(xw, XkbBI_Info, 0);
|
|
}
|
|
mapstate = -1;
|
|
}
|
|
|
|
/*
|
|
* If warning should be given then give it
|
|
*/
|
|
Boolean
|
|
showZIconBeep(XtermWidget xw, char *name)
|
|
{
|
|
Boolean code = False;
|
|
|
|
if (resource.zIconBeep && TScreenOf(xw)->zIconBeep_flagged) {
|
|
char *format = resource.zIconFormat;
|
|
char *newname = CastMallocN(char, strlen(name) + strlen(format) + 1);
|
|
if (!newname) {
|
|
xtermWarning("malloc failed in showZIconBeep\n");
|
|
} else {
|
|
char *marker = strstr(format, "%s");
|
|
char *result = newname;
|
|
if (marker != 0) {
|
|
size_t skip = (size_t) (marker - format);
|
|
if (skip) {
|
|
strncpy(result, format, skip);
|
|
result += skip;
|
|
}
|
|
strcpy(result, name);
|
|
strcat(result, marker + 2);
|
|
} else {
|
|
strcpy(result, format);
|
|
strcat(result, name);
|
|
}
|
|
ChangeGroup(xw, XtNiconName, newname);
|
|
free(newname);
|
|
}
|
|
code = True;
|
|
}
|
|
return code;
|
|
}
|
|
|
|
/*
|
|
* Restore the icon name, resetting the state for zIconBeep.
|
|
*/
|
|
void
|
|
resetZIconBeep(XtermWidget xw)
|
|
{
|
|
static char *icon_name;
|
|
static Arg args[] =
|
|
{
|
|
{XtNiconName, (XtArgVal) & icon_name}
|
|
};
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
if (screen->zIconBeep_flagged) {
|
|
screen->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) {
|
|
screen->zIconBeep_flagged = True;
|
|
} else {
|
|
char *format = resource.zIconFormat;
|
|
char *marker = strstr(format, "%s");
|
|
Boolean found = False;
|
|
|
|
if (marker != 0) {
|
|
if (marker == format
|
|
|| !strncmp(icon_name, format, (size_t) (marker - format))) {
|
|
found = True;
|
|
strcpy(buf, icon_name + (marker - format));
|
|
marker += 2;
|
|
if (*marker != '\0') {
|
|
size_t len_m = strlen(marker);
|
|
size_t len_b = strlen(buf);
|
|
if (len_m < len_b
|
|
&& !strcmp(buf + len_b - len_m, marker)) {
|
|
buf[len_b - len_m] = '\0';
|
|
}
|
|
}
|
|
}
|
|
} else if (!strncmp(icon_name, format, strlen(format))) {
|
|
strcpy(buf, icon_name + strlen(format));
|
|
found = True;
|
|
}
|
|
if (found)
|
|
ChangeIconName(xw, buf);
|
|
free(buf);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
#else
|
|
#define setZIconBeep(xw) /* nothing */
|
|
#endif /* OPT_ZICONBEEP */
|
|
|
|
/*
|
|
* write a string str of length len onto the screen at
|
|
* the current cursor position. update cursor position.
|
|
*/
|
|
void
|
|
WriteText(XtermWidget xw, IChar *str, Cardinal len)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
CLineData *ld = 0;
|
|
int fg;
|
|
unsigned test;
|
|
unsigned attr_flags = xw->flags;
|
|
CellColor fg_bg = makeColorPair(xw->cur_foreground, xw->cur_background);
|
|
unsigned cells = visual_width(str, len);
|
|
GC currentGC;
|
|
|
|
TRACE(("WriteText %d (%2d,%2d) %3d:%s\n",
|
|
screen->topline,
|
|
screen->cur_row,
|
|
screen->cur_col,
|
|
len, visibleIChars(str, len)));
|
|
|
|
if (cells + (unsigned) screen->cur_col > (unsigned) MaxCols(screen)) {
|
|
cells = (unsigned) (MaxCols(screen) - screen->cur_col);
|
|
}
|
|
|
|
if (ScrnHaveSelection(screen)
|
|
&& ScrnIsRowInSelection(screen, INX2ROW(screen, screen->cur_row))) {
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
|
|
/* if we are in insert-mode, reserve space for the new cells */
|
|
if (attr_flags & INSERT) {
|
|
InsertChar(xw, cells);
|
|
}
|
|
|
|
if (AddToVisible(xw)
|
|
&& ((ld = getLineData(screen, screen->cur_row))) != 0) {
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
|
|
/*
|
|
* If we overwrite part of a multi-column character, fill the rest
|
|
* of it with blanks.
|
|
*/
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
int kl;
|
|
int kr;
|
|
if (DamagedCurCells(screen, cells, &kl, &kr))
|
|
ClearInLine(xw, screen->cur_row, kl, (unsigned) (kr - kl + 1));
|
|
});
|
|
|
|
if (attr_flags & INVISIBLE) {
|
|
Cardinal n;
|
|
for (n = 0; n < cells; ++n)
|
|
str[n] = ' ';
|
|
}
|
|
|
|
TRACE(("WriteText calling drawXtermText (%d) (%d,%d)\n",
|
|
LineCharSet(screen, ld),
|
|
screen->cur_col,
|
|
screen->cur_row));
|
|
|
|
test = attr_flags;
|
|
#if OPT_ISO_COLORS
|
|
if (screen->colorAttrMode) {
|
|
fg = MapToColorMode(xw->cur_foreground, screen, attr_flags);
|
|
} else {
|
|
fg = xw->cur_foreground;
|
|
}
|
|
checkVeryBoldColors(test, fg);
|
|
#endif
|
|
|
|
/* make sure that the correct GC is current */
|
|
currentGC = updatedXtermGC(xw, attr_flags, fg_bg, False);
|
|
|
|
drawXtermText(xw,
|
|
test & DRAWX_MASK,
|
|
0,
|
|
currentGC,
|
|
LineCursorX(screen, ld, screen->cur_col),
|
|
CursorY(screen, screen->cur_row),
|
|
LineCharSet(screen, ld),
|
|
str, len, 0);
|
|
|
|
resetXtermGC(xw, attr_flags, False);
|
|
}
|
|
|
|
ScrnWriteText(xw, str, attr_flags, fg_bg, len);
|
|
CursorForward(xw, (int) cells);
|
|
setZIconBeep(xw);
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* If cursor not in scrolling region, returns. Else,
|
|
* inserts n blank lines at the cursor's position. Lines above the
|
|
* bottom margin are lost.
|
|
*/
|
|
void
|
|
InsertLine(XtermWidget xw, int n)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int i;
|
|
int shift;
|
|
int bot;
|
|
int refreshtop;
|
|
int refreshheight;
|
|
int scrolltop;
|
|
int scrollheight;
|
|
int left = ScrnLeftMargin(xw);
|
|
int right = ScrnRightMargin(xw);
|
|
|
|
if (!ScrnIsRowInMargins(screen, screen->cur_row)
|
|
|| screen->cur_col < left
|
|
|| screen->cur_col > right)
|
|
return;
|
|
|
|
TRACE(("InsertLine count=%d\n", n));
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
|
|
if (ScrnHaveSelection(screen)
|
|
&& ScrnAreRowsInSelection(screen,
|
|
INX2ROW(screen, screen->top_marg),
|
|
INX2ROW(screen, screen->cur_row - 1))
|
|
&& ScrnAreRowsInSelection(screen,
|
|
INX2ROW(screen, screen->cur_row),
|
|
INX2ROW(screen, screen->bot_marg))) {
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
|
|
ResetWrap(screen);
|
|
if (n > (i = screen->bot_marg - screen->cur_row + 1))
|
|
n = i;
|
|
if (screen->jumpscroll) {
|
|
if (screen->scroll_amt <= 0 &&
|
|
screen->cur_row <= -screen->refresh_amt) {
|
|
if (-screen->refresh_amt + n > MaxRows(screen))
|
|
FlushScroll(xw);
|
|
screen->scroll_amt -= n;
|
|
screen->refresh_amt -= n;
|
|
} else {
|
|
if (screen->scroll_amt)
|
|
FlushScroll(xw);
|
|
}
|
|
}
|
|
if (!screen->scroll_amt) {
|
|
shift = INX2ROW(screen, 0);
|
|
bot = screen->max_row - shift;
|
|
refreshheight = n;
|
|
scrollheight = screen->bot_marg - screen->cur_row - refreshheight + 1;
|
|
refreshtop = screen->cur_row + shift;
|
|
scrolltop = refreshtop + refreshheight;
|
|
if ((i = screen->bot_marg - bot) > 0)
|
|
scrollheight -= i;
|
|
if ((i = screen->cur_row + refreshheight - 1 - bot) > 0)
|
|
refreshheight -= i;
|
|
vertical_copy_area(xw, scrolltop - n, scrollheight, -n, left, right);
|
|
if (refreshheight > 0) {
|
|
ClearCurBackground(xw,
|
|
refreshtop,
|
|
left,
|
|
(unsigned) refreshheight,
|
|
(unsigned) (right + 1 - left),
|
|
(unsigned) FontWidth(screen));
|
|
}
|
|
}
|
|
if (n > 0) {
|
|
if (left > 0 || right < screen->max_col) {
|
|
scrollInMargins(xw, -n, screen->cur_row);
|
|
} else {
|
|
ScrnInsertLine(xw,
|
|
screen->visbuf,
|
|
screen->bot_marg,
|
|
screen->cur_row,
|
|
(unsigned) n);
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* If cursor not in scrolling region, returns. Else, deletes n lines
|
|
* at the cursor's position, lines added at bottom margin are blank.
|
|
*/
|
|
void
|
|
DeleteLine(XtermWidget xw, int n)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int i;
|
|
int shift;
|
|
int bot;
|
|
int refreshtop;
|
|
int refreshheight;
|
|
int scrolltop;
|
|
int scrollheight;
|
|
int left = ScrnLeftMargin(xw);
|
|
int right = ScrnRightMargin(xw);
|
|
Boolean scroll_all_lines = (Boolean) (screen->scrollWidget
|
|
&& !screen->whichBuf
|
|
&& screen->cur_row == 0);
|
|
|
|
if (!ScrnIsRowInMargins(screen, screen->cur_row)
|
|
|| screen->cur_col < left
|
|
|| screen->cur_col > right)
|
|
return;
|
|
|
|
TRACE(("DeleteLine count=%d\n", n));
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
|
|
if (n > (i = screen->bot_marg - screen->cur_row + 1)) {
|
|
n = i;
|
|
}
|
|
if (ScrnHaveSelection(screen)
|
|
&& ScrnAreRowsInSelection(screen,
|
|
INX2ROW(screen, screen->cur_row),
|
|
INX2ROW(screen, screen->cur_row + n - 1))) {
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
|
|
ResetWrap(screen);
|
|
if (screen->jumpscroll) {
|
|
if (screen->scroll_amt >= 0 && screen->cur_row == screen->top_marg) {
|
|
if (screen->refresh_amt + n > MaxRows(screen))
|
|
FlushScroll(xw);
|
|
screen->scroll_amt += n;
|
|
screen->refresh_amt += n;
|
|
} else {
|
|
if (screen->scroll_amt)
|
|
FlushScroll(xw);
|
|
}
|
|
}
|
|
|
|
/* adjust screen->buf */
|
|
if (n > 0) {
|
|
if (left > 0 || right < screen->max_col) {
|
|
scrollInMargins(xw, n, screen->cur_row);
|
|
} else if (scroll_all_lines) {
|
|
ScrnDeleteLine(xw,
|
|
screen->saveBuf_index,
|
|
screen->bot_marg + screen->savelines,
|
|
0,
|
|
(unsigned) n);
|
|
} else {
|
|
ScrnDeleteLine(xw,
|
|
screen->visbuf,
|
|
screen->bot_marg,
|
|
screen->cur_row,
|
|
(unsigned) n);
|
|
}
|
|
}
|
|
|
|
/* repaint the screen, as needed */
|
|
if (!screen->scroll_amt) {
|
|
shift = INX2ROW(screen, 0);
|
|
bot = screen->max_row - shift;
|
|
scrollheight = i - n;
|
|
refreshheight = n;
|
|
if ((refreshtop = screen->bot_marg - refreshheight + 1 + shift) >
|
|
(i = screen->max_row - refreshheight + 1))
|
|
refreshtop = i;
|
|
if (scroll_all_lines) {
|
|
scrolltop = 0;
|
|
if ((scrollheight += shift) > i)
|
|
scrollheight = i;
|
|
if ((i = screen->savedlines) < screen->savelines) {
|
|
if ((i += n) > screen->savelines)
|
|
i = screen->savelines;
|
|
screen->savedlines = i;
|
|
ScrollBarDrawThumb(screen->scrollWidget);
|
|
}
|
|
} else {
|
|
scrolltop = screen->cur_row + shift;
|
|
if ((i = screen->bot_marg - bot) > 0) {
|
|
scrollheight -= i;
|
|
if ((i = screen->cur_row + n - 1 - bot) >= 0) {
|
|
refreshheight -= i;
|
|
}
|
|
}
|
|
}
|
|
vertical_copy_area(xw, scrolltop + n, scrollheight, n, left, right);
|
|
if (shift > 0 && refreshheight > 0) {
|
|
int rows = refreshheight;
|
|
if (rows > shift)
|
|
rows = shift;
|
|
ScrnUpdate(xw, refreshtop, 0, rows, MaxCols(screen), True);
|
|
refreshtop += shift;
|
|
refreshheight -= shift;
|
|
}
|
|
if (refreshheight > 0) {
|
|
ClearCurBackground(xw,
|
|
refreshtop,
|
|
left,
|
|
(unsigned) refreshheight,
|
|
(unsigned) (right + 1 - left),
|
|
(unsigned) FontWidth(screen));
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Insert n blanks at the cursor's position, no wraparound
|
|
*/
|
|
void
|
|
InsertChar(XtermWidget xw, unsigned n)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
CLineData *ld;
|
|
unsigned limit;
|
|
int row = INX2ROW(screen, screen->cur_row);
|
|
int left = ScrnLeftMargin(xw);
|
|
int right = ScrnRightMargin(xw);
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
|
|
TRACE(("InsertChar count=%d\n", n));
|
|
|
|
if (ScrnHaveSelection(screen)
|
|
&& ScrnIsRowInSelection(screen, row)) {
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
ResetWrap(screen);
|
|
|
|
limit = (unsigned) (right + 1 - screen->cur_col);
|
|
|
|
if (n > limit)
|
|
n = limit;
|
|
|
|
if (screen->cur_col < left || screen->cur_col > right) {
|
|
n = 0;
|
|
} else if (AddToVisible(xw)
|
|
&& (ld = getLineData(screen, screen->cur_row)) != 0) {
|
|
int col = right + 1 - (int) n;
|
|
|
|
/*
|
|
* If we shift part of a multi-column character, fill the rest
|
|
* of it with blanks. Do similar repair for the text which will
|
|
* be shifted into the right-margin.
|
|
*/
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
int kl;
|
|
int kr = screen->cur_col;
|
|
if (DamagedCurCells(screen, n, &kl, (int *) 0) && kr > kl) {
|
|
ClearInLine(xw, screen->cur_row, kl, (unsigned) (kr - kl + 1));
|
|
}
|
|
kr = screen->max_col - (int) n + 1;
|
|
if (DamagedCells(screen, n, &kl, (int *) 0,
|
|
screen->cur_row,
|
|
kr) && kr > kl) {
|
|
ClearInLine(xw, screen->cur_row, kl, (unsigned) (kr - kl + 1));
|
|
}
|
|
});
|
|
|
|
#if OPT_DEC_CHRSET
|
|
if (CSET_DOUBLE(GetLineDblCS(ld))) {
|
|
col = MaxCols(screen) / 2 - (int) n;
|
|
}
|
|
#endif
|
|
/*
|
|
* prevent InsertChar from shifting the end of a line over
|
|
* if it is being appended to
|
|
*/
|
|
if (non_blank_line(screen, screen->cur_row,
|
|
screen->cur_col, MaxCols(screen))) {
|
|
horizontal_copy_area(xw, screen->cur_col,
|
|
col - screen->cur_col,
|
|
(int) n);
|
|
}
|
|
|
|
ClearCurBackground(xw,
|
|
INX2ROW(screen, screen->cur_row),
|
|
screen->cur_col,
|
|
1U,
|
|
n,
|
|
(unsigned) LineFontWidth(screen, ld));
|
|
}
|
|
if (n != 0) {
|
|
/* adjust screen->buf */
|
|
ScrnInsertChar(xw, n);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Deletes n chars at the cursor's position, no wraparound.
|
|
*/
|
|
void
|
|
DeleteChar(XtermWidget xw, unsigned n)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
CLineData *ld;
|
|
unsigned limit;
|
|
int row = INX2ROW(screen, screen->cur_row);
|
|
int left = ScrnLeftMargin(xw);
|
|
int right = ScrnRightMargin(xw);
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
|
|
TRACE(("DeleteChar count=%d\n", n));
|
|
|
|
if (ScrnHaveSelection(screen)
|
|
&& ScrnIsRowInSelection(screen, row)) {
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
ResetWrap(screen);
|
|
|
|
limit = (unsigned) (right + 1 - screen->cur_col);
|
|
|
|
if (n > limit)
|
|
n = limit;
|
|
|
|
if (screen->cur_col < left || screen->cur_col > right) {
|
|
n = 0;
|
|
} else if (AddToVisible(xw)
|
|
&& (ld = getLineData(screen, screen->cur_row)) != 0) {
|
|
int col = right + 1 - (int) n;
|
|
|
|
/*
|
|
* If we delete part of a multi-column character, fill the rest
|
|
* of it with blanks.
|
|
*/
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
int kl;
|
|
int kr;
|
|
if (DamagedCurCells(screen, n, &kl, &kr))
|
|
ClearInLine(xw, screen->cur_row, kl, (unsigned) (kr - kl + 1));
|
|
});
|
|
|
|
#if OPT_DEC_CHRSET
|
|
if (CSET_DOUBLE(GetLineDblCS(ld))) {
|
|
col = MaxCols(screen) / 2 - (int) n;
|
|
}
|
|
#endif
|
|
horizontal_copy_area(xw,
|
|
(screen->cur_col + (int) n),
|
|
col - screen->cur_col,
|
|
-((int) n));
|
|
|
|
ClearCurBackground(xw,
|
|
INX2ROW(screen, screen->cur_row),
|
|
col,
|
|
1U,
|
|
n,
|
|
(unsigned) LineFontWidth(screen, ld));
|
|
}
|
|
if (n != 0) {
|
|
/* adjust screen->buf */
|
|
ScrnDeleteChar(xw, n);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Clear from cursor position to beginning of display, inclusive.
|
|
*/
|
|
static void
|
|
ClearAbove(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
if (screen->protected_mode != OFF_PROTECT) {
|
|
int row;
|
|
unsigned len = (unsigned) MaxCols(screen);
|
|
|
|
assert(screen->max_col >= 0);
|
|
for (row = 0; row <= screen->max_row; row++)
|
|
ClearInLine(xw, row, 0, len);
|
|
} else {
|
|
int top, height;
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
if ((top = INX2ROW(screen, 0)) <= screen->max_row) {
|
|
if (screen->scroll_amt)
|
|
FlushScroll(xw);
|
|
if ((height = screen->cur_row + top) > screen->max_row)
|
|
height = screen->max_row + 1;
|
|
if ((height -= top) > 0) {
|
|
chararea_clear_displayed_graphics(screen,
|
|
0,
|
|
top,
|
|
MaxCols(screen),
|
|
height);
|
|
|
|
ClearCurBackground(xw,
|
|
top,
|
|
0,
|
|
(unsigned) height,
|
|
(unsigned) MaxCols(screen),
|
|
(unsigned) FontWidth(screen));
|
|
}
|
|
}
|
|
ClearBufRows(xw, 0, screen->cur_row - 1);
|
|
}
|
|
|
|
ClearLeft(xw);
|
|
}
|
|
|
|
/*
|
|
* Clear from cursor position to end of display, inclusive.
|
|
*/
|
|
static void
|
|
ClearBelow(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
ClearRight(xw, -1);
|
|
|
|
if (screen->protected_mode != OFF_PROTECT) {
|
|
int row;
|
|
unsigned len = (unsigned) MaxCols(screen);
|
|
|
|
assert(screen->max_col >= 0);
|
|
for (row = screen->cur_row + 1; row <= screen->max_row; row++)
|
|
ClearInLine(xw, row, 0, len);
|
|
} else {
|
|
int top;
|
|
|
|
if ((top = INX2ROW(screen, screen->cur_row)) <= screen->max_row) {
|
|
if (screen->scroll_amt)
|
|
FlushScroll(xw);
|
|
if (++top <= screen->max_row) {
|
|
chararea_clear_displayed_graphics(screen,
|
|
0,
|
|
top,
|
|
MaxCols(screen),
|
|
(screen->max_row - top + 1));
|
|
ClearCurBackground(xw,
|
|
top,
|
|
0,
|
|
(unsigned) (screen->max_row - top + 1),
|
|
(unsigned) MaxCols(screen),
|
|
(unsigned) FontWidth(screen));
|
|
}
|
|
}
|
|
ClearBufRows(xw, screen->cur_row + 1, screen->max_row);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Clear the given row, for the given range of columns, returning 1 if no
|
|
* protected characters were found, 0 otherwise.
|
|
*/
|
|
static int
|
|
ClearInLine2(XtermWidget xw, int flags, int row, int col, unsigned len)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
CLineData *ld;
|
|
int rc = 1;
|
|
|
|
TRACE(("ClearInLine(row=%d, col=%d, len=%d) vs %d..%d\n",
|
|
row, col, len,
|
|
screen->startH.row,
|
|
screen->startH.col));
|
|
|
|
if (ScrnHaveSelection(screen)
|
|
&& ScrnIsRowInSelection(screen, row)) {
|
|
ScrnDisownSelection(xw);
|
|
}
|
|
|
|
if (col + (int) len >= MaxCols(screen)) {
|
|
len = (unsigned) (MaxCols(screen) - col);
|
|
}
|
|
|
|
/* If we've marked protected text on the screen, we'll have to
|
|
* check each time we do an erase.
|
|
*/
|
|
if (screen->protected_mode != OFF_PROTECT) {
|
|
unsigned n;
|
|
IAttr *attrs = getLineData(screen, row)->attribs + col;
|
|
int saved_mode = screen->protected_mode;
|
|
Bool done;
|
|
|
|
/* disable this branch during recursion */
|
|
screen->protected_mode = OFF_PROTECT;
|
|
|
|
do {
|
|
done = True;
|
|
for (n = 0; n < len; n++) {
|
|
if (attrs[n] & PROTECTED) {
|
|
rc = 0; /* found a protected segment */
|
|
if (n != 0) {
|
|
ClearInLine(xw, row, col, n);
|
|
}
|
|
while ((n < len)
|
|
&& (attrs[n] & PROTECTED)) {
|
|
n++;
|
|
}
|
|
done = False;
|
|
break;
|
|
}
|
|
}
|
|
/* setup for another segment, past the protected text */
|
|
if (!done) {
|
|
attrs += n;
|
|
col += (int) n;
|
|
len -= n;
|
|
}
|
|
} while (!done);
|
|
|
|
screen->protected_mode = saved_mode;
|
|
if ((int) len <= 0) {
|
|
return 0;
|
|
}
|
|
}
|
|
/* fall through to the final non-protected segment */
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
ResetWrap(screen);
|
|
|
|
if (AddToVisible(xw)
|
|
&& (ld = getLineData(screen, row)) != 0) {
|
|
|
|
ClearCurBackground(xw,
|
|
INX2ROW(screen, row),
|
|
col,
|
|
1U,
|
|
len,
|
|
(unsigned) LineFontWidth(screen, ld));
|
|
}
|
|
|
|
if (len != 0) {
|
|
ClearCells(xw, flags, len, row, col);
|
|
}
|
|
|
|
return rc;
|
|
}
|
|
|
|
int
|
|
ClearInLine(XtermWidget xw, int row, int col, unsigned len)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int flags = 0;
|
|
|
|
/*
|
|
* If we're clearing to the end of the line, we won't count this as
|
|
* "drawn" characters. We'll only do cut/paste on "drawn" characters,
|
|
* so this has the effect of suppressing trailing blanks from a
|
|
* selection.
|
|
*/
|
|
if (col + (int) len < MaxCols(screen)) {
|
|
flags |= CHARDRAWN;
|
|
}
|
|
return ClearInLine2(xw, flags, row, col, len);
|
|
}
|
|
|
|
/*
|
|
* Clear the next n characters on the cursor's line, including the cursor's
|
|
* position.
|
|
*/
|
|
void
|
|
ClearRight(XtermWidget xw, int n)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
LineData *ld;
|
|
unsigned len = (unsigned) (MaxCols(screen) - screen->cur_col);
|
|
|
|
assert(screen->max_col >= 0);
|
|
assert(screen->max_col >= screen->cur_col);
|
|
|
|
if (n < 0) /* the remainder of the line */
|
|
n = MaxCols(screen);
|
|
if (n == 0) /* default for 'ECH' */
|
|
n = 1;
|
|
|
|
if (len > (unsigned) n)
|
|
len = (unsigned) n;
|
|
|
|
ld = getLineData(screen, screen->cur_row);
|
|
if (AddToVisible(xw)) {
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
int col = screen->cur_col;
|
|
int row = screen->cur_row;
|
|
int kl;
|
|
int kr;
|
|
int xx;
|
|
if (DamagedCurCells(screen, len, &kl, &kr) && kr >= kl) {
|
|
xx = col;
|
|
if (kl < xx) {
|
|
ClearInLine2(xw, 0, row, kl, (unsigned) (xx - kl));
|
|
}
|
|
xx = col + (int) len - 1;
|
|
if (kr > xx) {
|
|
ClearInLine2(xw, 0, row, xx + 1, (unsigned) (kr - xx));
|
|
}
|
|
}
|
|
});
|
|
(void) ClearInLine(xw, screen->cur_row, screen->cur_col, len);
|
|
} else {
|
|
ScrnClearCells(xw, screen->cur_row, screen->cur_col, len);
|
|
}
|
|
|
|
/* with the right part cleared, we can't be wrapping */
|
|
LineClrWrapped(ld);
|
|
if (screen->show_wrap_marks) {
|
|
ShowWrapMarks(xw, screen->cur_row, ld);
|
|
}
|
|
ResetWrap(screen);
|
|
}
|
|
|
|
/*
|
|
* Clear first part of cursor's line, inclusive.
|
|
*/
|
|
static void
|
|
ClearLeft(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
unsigned len = (unsigned) screen->cur_col + 1;
|
|
|
|
assert(screen->cur_col >= 0);
|
|
if (AddToVisible(xw)) {
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
int row = screen->cur_row;
|
|
int kl;
|
|
int kr;
|
|
if (DamagedCurCells(screen, 1, &kl, &kr) && kr >= kl) {
|
|
ClearInLine2(xw, 0, row, kl, (unsigned) (kr - kl + 1));
|
|
}
|
|
});
|
|
(void) ClearInLine(xw, screen->cur_row, 0, len);
|
|
} else {
|
|
ScrnClearCells(xw, screen->cur_row, 0, len);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Erase the cursor's line.
|
|
*/
|
|
static void
|
|
ClearLine(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
unsigned len = (unsigned) MaxCols(screen);
|
|
|
|
assert(screen->max_col >= 0);
|
|
(void) ClearInLine(xw, screen->cur_row, 0, len);
|
|
}
|
|
|
|
void
|
|
ClearScreen(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int top;
|
|
|
|
TRACE(("ClearScreen\n"));
|
|
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
|
|
ScrnDisownSelection(xw);
|
|
ResetWrap(screen);
|
|
if ((top = INX2ROW(screen, 0)) <= screen->max_row) {
|
|
if (screen->scroll_amt)
|
|
FlushScroll(xw);
|
|
chararea_clear_displayed_graphics(screen,
|
|
0,
|
|
top,
|
|
MaxCols(screen),
|
|
(screen->max_row - top + 1));
|
|
ClearCurBackground(xw,
|
|
top,
|
|
0,
|
|
(unsigned) (screen->max_row - top + 1),
|
|
(unsigned) MaxCols(screen),
|
|
(unsigned) FontWidth(screen));
|
|
}
|
|
ClearBufRows(xw, 0, screen->max_row);
|
|
}
|
|
|
|
/*
|
|
* If we've written protected text DEC-style, and are issuing a non-DEC
|
|
* erase, temporarily reset the protected_mode flag so that the erase will
|
|
* ignore the protected flags.
|
|
*/
|
|
void
|
|
do_erase_line(XtermWidget xw, int param, int mode)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int saved_mode = screen->protected_mode;
|
|
|
|
if (saved_mode == DEC_PROTECT
|
|
&& saved_mode != mode) {
|
|
screen->protected_mode = OFF_PROTECT;
|
|
}
|
|
|
|
switch (param) {
|
|
case -1: /* DEFAULT */
|
|
case 0:
|
|
ClearRight(xw, -1);
|
|
break;
|
|
case 1:
|
|
ClearLeft(xw);
|
|
break;
|
|
case 2:
|
|
ClearLine(xw);
|
|
break;
|
|
}
|
|
screen->protected_mode = saved_mode;
|
|
}
|
|
|
|
/*
|
|
* Just like 'do_erase_line()', except that this intercepts ED controls. If we
|
|
* clear the whole screen, we'll get the return-value from ClearInLine, and
|
|
* find if there were any protected characters left. If not, reset the
|
|
* protected mode flag in the screen data (it's slower).
|
|
*/
|
|
void
|
|
do_erase_display(XtermWidget xw, int param, int mode)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int saved_mode = screen->protected_mode;
|
|
|
|
if (saved_mode == DEC_PROTECT
|
|
&& saved_mode != mode)
|
|
screen->protected_mode = OFF_PROTECT;
|
|
|
|
switch (param) {
|
|
case -1: /* DEFAULT */
|
|
case 0:
|
|
if (screen->cur_row == 0
|
|
&& screen->cur_col == 0) {
|
|
screen->protected_mode = saved_mode;
|
|
do_erase_display(xw, 2, mode);
|
|
saved_mode = screen->protected_mode;
|
|
} else
|
|
ClearBelow(xw);
|
|
break;
|
|
|
|
case 1:
|
|
if (screen->cur_row == screen->max_row
|
|
&& screen->cur_col == screen->max_col) {
|
|
screen->protected_mode = saved_mode;
|
|
do_erase_display(xw, 2, mode);
|
|
saved_mode = screen->protected_mode;
|
|
} else
|
|
ClearAbove(xw);
|
|
break;
|
|
|
|
case 2:
|
|
/*
|
|
* We use 'ClearScreen()' throughout the remainder of the
|
|
* program for places where we don't care if the characters are
|
|
* protected or not. So we modify the logic around this call
|
|
* on 'ClearScreen()' to handle protected characters.
|
|
*/
|
|
if (screen->protected_mode != OFF_PROTECT) {
|
|
int row;
|
|
int rc = 1;
|
|
unsigned len = (unsigned) MaxCols(screen);
|
|
|
|
assert(screen->max_col >= 0);
|
|
for (row = 0; row <= screen->max_row; row++)
|
|
rc &= ClearInLine(xw, row, 0, len);
|
|
if (rc != 0)
|
|
saved_mode = OFF_PROTECT;
|
|
} else {
|
|
ClearScreen(xw);
|
|
}
|
|
break;
|
|
|
|
case 3:
|
|
/* xterm addition - erase saved lines. */
|
|
screen->savedlines = 0;
|
|
ScrollBarDrawThumb(screen->scrollWidget);
|
|
break;
|
|
}
|
|
screen->protected_mode = saved_mode;
|
|
}
|
|
|
|
static Boolean
|
|
screen_has_data(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
Boolean result = False;
|
|
CLineData *ld;
|
|
int row, col;
|
|
|
|
for (row = 0; row < screen->max_row; ++row) {
|
|
if ((ld = getLineData(screen, row)) != 0) {
|
|
for (col = 0; col < screen->max_col; ++col) {
|
|
if (ld->attribs[col] & CHARDRAWN) {
|
|
result = True;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
if (result)
|
|
break;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
/*
|
|
* Like tiXtraScroll, perform a scroll up of the page contents. In this case,
|
|
* it happens for the special case when erasing the whole display starting from
|
|
* the upper-left corner of the screen.
|
|
*/
|
|
void
|
|
do_cd_xtra_scroll(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
if (xw->misc.cdXtraScroll
|
|
&& screen->cur_col == 0
|
|
&& screen->cur_row == 0
|
|
&& screen_has_data(xw)) {
|
|
xtermScroll(xw, screen->max_row);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Scroll the page up (saving it). This is called when doing terminal
|
|
* initialization (ti) or exiting from that (te).
|
|
*/
|
|
void
|
|
do_ti_xtra_scroll(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
if (xw->misc.tiXtraScroll) {
|
|
xtermScroll(xw, screen->max_row);
|
|
}
|
|
}
|
|
|
|
static void
|
|
CopyWait(XtermWidget xw)
|
|
{
|
|
#if OPT_DOUBLE_BUFFER
|
|
(void) xw;
|
|
#else /* !OPT_DOUBLE_BUFFER */
|
|
TScreen *screen = TScreenOf(xw);
|
|
XEvent reply;
|
|
XEvent *rep = &reply;
|
|
|
|
for (;;) {
|
|
XWindowEvent(screen->display, VWindow(screen), ExposureMask, &reply);
|
|
switch (reply.type) {
|
|
case Expose:
|
|
HandleExposure(xw, &reply);
|
|
break;
|
|
case NoExpose:
|
|
case GraphicsExpose:
|
|
if (screen->incopy <= 0) {
|
|
screen->incopy = 1;
|
|
if (screen->scrolls > 0)
|
|
screen->scrolls--;
|
|
}
|
|
if (reply.type == GraphicsExpose)
|
|
HandleExposure(xw, &reply);
|
|
|
|
if ((reply.type == NoExpose) ||
|
|
((XExposeEvent *) rep)->count == 0) {
|
|
if (screen->incopy <= 0 && screen->scrolls > 0)
|
|
screen->scrolls--;
|
|
if (screen->scrolls == 0) {
|
|
screen->incopy = 0;
|
|
return;
|
|
}
|
|
screen->incopy = -1;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
#endif /* OPT_DOUBLE_BUFFER */
|
|
}
|
|
|
|
/*
|
|
* used by vertical_copy_area and and horizontal_copy_area
|
|
*/
|
|
static void
|
|
copy_area(XtermWidget xw,
|
|
int src_x,
|
|
int src_y,
|
|
unsigned width,
|
|
unsigned height,
|
|
int dest_x,
|
|
int dest_y)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
if (width != 0 && height != 0) {
|
|
/* wait for previous CopyArea to complete unless
|
|
multiscroll is enabled and active */
|
|
if (screen->incopy && screen->scrolls == 0)
|
|
CopyWait(xw);
|
|
screen->incopy = -1;
|
|
|
|
/* save for translating Expose events */
|
|
screen->copy_src_x = src_x;
|
|
screen->copy_src_y = src_y;
|
|
screen->copy_width = width;
|
|
screen->copy_height = height;
|
|
screen->copy_dest_x = dest_x;
|
|
screen->copy_dest_y = dest_y;
|
|
|
|
XCopyArea(screen->display,
|
|
VDrawable(screen), VDrawable(screen),
|
|
NormalGC(xw, screen),
|
|
src_x, src_y, width, height, dest_x, dest_y);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* use when inserting or deleting characters on the current line
|
|
*/
|
|
static void
|
|
horizontal_copy_area(XtermWidget xw,
|
|
int firstchar, /* char pos on screen to start copying at */
|
|
int nchars,
|
|
int amount) /* number of characters to move right */
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
CLineData *ld;
|
|
|
|
if ((ld = getLineData(screen, screen->cur_row)) != 0) {
|
|
int src_x = LineCursorX(screen, ld, firstchar);
|
|
int src_y = CursorY(screen, screen->cur_row);
|
|
|
|
copy_area(xw, src_x, src_y,
|
|
(unsigned) (nchars * LineFontWidth(screen, ld)),
|
|
(unsigned) FontHeight(screen),
|
|
src_x + amount * LineFontWidth(screen, ld), src_y);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* use when inserting or deleting lines from the screen
|
|
*/
|
|
static void
|
|
vertical_copy_area(XtermWidget xw,
|
|
int firstline, /* line on screen to start copying at */
|
|
int nlines,
|
|
int amount, /* number of lines to move up (neg=down) */
|
|
int left,
|
|
int right)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
TRACE(("vertical_copy_area - firstline=%d nlines=%d left=%d right=%d amount=%d\n",
|
|
firstline, nlines, left, right, amount));
|
|
|
|
if (nlines > 0) {
|
|
int src_x = CursorX(screen, left);
|
|
int src_y = firstline * FontHeight(screen) + screen->border;
|
|
unsigned int w = (unsigned) ((right + 1 - left) * FontWidth(screen));
|
|
unsigned int h = (unsigned) (nlines * FontHeight(screen));
|
|
int dst_x = src_x;
|
|
int dst_y = src_y - amount * FontHeight(screen);
|
|
|
|
copy_area(xw, src_x, src_y, w, h, dst_x, dst_y);
|
|
|
|
if (screen->show_wrap_marks) {
|
|
CLineData *ld;
|
|
int row;
|
|
for (row = firstline; row < firstline + nlines; ++row) {
|
|
if ((ld = getLineData(screen, row)) != 0) {
|
|
ShowWrapMarks(xw, row, ld);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* use when scrolling the entire screen
|
|
*/
|
|
void
|
|
scrolling_copy_area(XtermWidget xw,
|
|
int firstline, /* line on screen to start copying at */
|
|
int nlines,
|
|
int amount) /* number of lines to move up (neg=down) */
|
|
{
|
|
|
|
if (nlines > 0) {
|
|
vertical_copy_area(xw, firstline, nlines, amount, 0, TScreenOf(xw)->max_col);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Handler for Expose events on the VT widget.
|
|
* Returns 1 iff the area where the cursor was got refreshed.
|
|
*/
|
|
int
|
|
HandleExposure(XtermWidget xw, XEvent *event)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
XExposeEvent *reply = (XExposeEvent *) event;
|
|
|
|
#ifndef NO_ACTIVE_ICON
|
|
if (reply->window == screen->iconVwin.window) {
|
|
WhichVWin(screen) = &screen->iconVwin;
|
|
TRACE(("HandleExposure - icon\n"));
|
|
} else {
|
|
WhichVWin(screen) = &screen->fullVwin;
|
|
TRACE(("HandleExposure - normal\n"));
|
|
}
|
|
TRACE((" event %d,%d %dx%d\n",
|
|
reply->y,
|
|
reply->x,
|
|
reply->height,
|
|
reply->width));
|
|
#endif /* NO_ACTIVE_ICON */
|
|
|
|
/* if not doing CopyArea or if this is a GraphicsExpose, don't translate */
|
|
if (!screen->incopy || event->type != Expose)
|
|
return handle_translated_exposure(xw, reply->x, reply->y,
|
|
reply->width,
|
|
reply->height);
|
|
else {
|
|
/* compute intersection of area being copied with
|
|
area being exposed. */
|
|
int both_x1 = Max(screen->copy_src_x, reply->x);
|
|
int both_y1 = Max(screen->copy_src_y, reply->y);
|
|
int both_x2 = Min(screen->copy_src_x + (int) screen->copy_width,
|
|
(reply->x + (int) reply->width));
|
|
int both_y2 = Min(screen->copy_src_y + (int) screen->copy_height,
|
|
(reply->y + (int) reply->height));
|
|
int value = 0;
|
|
|
|
/* was anything copied affected? */
|
|
if (both_x2 > both_x1 && both_y2 > both_y1) {
|
|
/* do the copied area */
|
|
value = handle_translated_exposure
|
|
(xw, reply->x + screen->copy_dest_x - screen->copy_src_x,
|
|
reply->y + screen->copy_dest_y - screen->copy_src_y,
|
|
reply->width, reply->height);
|
|
}
|
|
/* was anything not copied affected? */
|
|
if (reply->x < both_x1 || reply->y < both_y1
|
|
|| reply->x + reply->width > both_x2
|
|
|| reply->y + reply->height > both_y2)
|
|
value = handle_translated_exposure(xw, reply->x, reply->y,
|
|
reply->width, reply->height);
|
|
|
|
return value;
|
|
}
|
|
}
|
|
|
|
static void
|
|
set_background(XtermWidget xw, int color GCC_UNUSED)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
Pixel c = getXtermBackground(xw, xw->flags, color);
|
|
|
|
TRACE(("set_background(%d) %#lx\n", color, c));
|
|
XSetWindowBackground(screen->display, VShellWindow(xw), c);
|
|
XSetWindowBackground(screen->display, VWindow(screen), c);
|
|
}
|
|
|
|
/*
|
|
* Called by the ExposeHandler to do the actual repaint after the coordinates
|
|
* have been translated to allow for any CopyArea in progress.
|
|
* The rectangle passed in is pixel coordinates.
|
|
*/
|
|
static int
|
|
handle_translated_exposure(XtermWidget xw,
|
|
int rect_x,
|
|
int rect_y,
|
|
int rect_width,
|
|
int rect_height)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int toprow, leftcol, nrows, ncols;
|
|
int x0, x1;
|
|
int y0, y1;
|
|
int result = 0;
|
|
|
|
TRACE(("handle_translated_exposure at %d,%d size %dx%d\n",
|
|
rect_y, rect_x, rect_height, rect_width));
|
|
|
|
x0 = (rect_x - OriginX(screen));
|
|
x1 = (x0 + rect_width);
|
|
|
|
y0 = (rect_y - OriginY(screen));
|
|
y1 = (y0 + rect_height);
|
|
|
|
if ((x0 < 0 ||
|
|
y0 < 0 ||
|
|
x1 > Width(screen) ||
|
|
y1 > Height(screen))) {
|
|
set_background(xw, -1);
|
|
#if OPT_DOUBLE_BUFFER
|
|
XFillRectangle(screen->display, VDrawable(screen),
|
|
ReverseGC(xw, screen),
|
|
rect_x,
|
|
rect_y,
|
|
(unsigned) rect_width,
|
|
(unsigned) rect_height);
|
|
#else
|
|
XClearArea(screen->display, VWindow(screen),
|
|
rect_x,
|
|
rect_y,
|
|
(unsigned) rect_width,
|
|
(unsigned) rect_height, False);
|
|
#endif
|
|
}
|
|
toprow = y0 / FontHeight(screen);
|
|
if (toprow < 0)
|
|
toprow = 0;
|
|
|
|
leftcol = x0 / FontWidth(screen);
|
|
if (leftcol < 0)
|
|
leftcol = 0;
|
|
|
|
nrows = (y1 - 1) / FontHeight(screen) - toprow + 1;
|
|
ncols = (x1 - 1) / FontWidth(screen) - leftcol + 1;
|
|
toprow -= screen->scrolls;
|
|
if (toprow < 0) {
|
|
nrows += toprow;
|
|
toprow = 0;
|
|
}
|
|
if (toprow + nrows > MaxRows(screen))
|
|
nrows = MaxRows(screen) - toprow;
|
|
if (leftcol + ncols > MaxCols(screen))
|
|
ncols = MaxCols(screen) - leftcol;
|
|
|
|
if (nrows > 0 && ncols > 0) {
|
|
ScrnRefresh(xw, toprow, leftcol, nrows, ncols, True);
|
|
first_map_occurred();
|
|
if (screen->cur_row >= toprow &&
|
|
screen->cur_row < toprow + nrows &&
|
|
screen->cur_col >= leftcol &&
|
|
screen->cur_col < leftcol + ncols) {
|
|
result = 1;
|
|
}
|
|
|
|
}
|
|
TRACE(("...handle_translated_exposure %d\n", result));
|
|
return (result);
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
void
|
|
GetColors(XtermWidget xw, ScrnColors * pColors)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int n;
|
|
|
|
pColors->which = 0;
|
|
for (n = 0; n < NCOLORS; ++n) {
|
|
SET_COLOR_VALUE(pColors, n, T_COLOR(screen, n));
|
|
}
|
|
}
|
|
|
|
void
|
|
ChangeColors(XtermWidget xw, ScrnColors * pNew)
|
|
{
|
|
Bool repaint = False;
|
|
TScreen *screen = TScreenOf(xw);
|
|
VTwin *win = WhichVWin(screen);
|
|
|
|
TRACE(("ChangeColors\n"));
|
|
|
|
if (COLOR_DEFINED(pNew, TEXT_CURSOR)) {
|
|
T_COLOR(screen, TEXT_CURSOR) = COLOR_VALUE(pNew, TEXT_CURSOR);
|
|
TRACE(("... TEXT_CURSOR: %#lx\n", T_COLOR(screen, TEXT_CURSOR)));
|
|
/* no repaint needed */
|
|
} else if ((T_COLOR(screen, TEXT_CURSOR) == T_COLOR(screen, TEXT_FG)) &&
|
|
(COLOR_DEFINED(pNew, TEXT_FG))) {
|
|
if (T_COLOR(screen, TEXT_CURSOR) != COLOR_VALUE(pNew, TEXT_FG)) {
|
|
T_COLOR(screen, TEXT_CURSOR) = COLOR_VALUE(pNew, TEXT_FG);
|
|
TRACE(("... TEXT_CURSOR: %#lx\n", T_COLOR(screen, TEXT_CURSOR)));
|
|
if (screen->Vshow)
|
|
repaint = True;
|
|
}
|
|
}
|
|
|
|
if (COLOR_DEFINED(pNew, TEXT_FG)) {
|
|
Pixel fg = COLOR_VALUE(pNew, TEXT_FG);
|
|
T_COLOR(screen, TEXT_FG) = fg;
|
|
TRACE(("... TEXT_FG: %#lx\n", T_COLOR(screen, TEXT_FG)));
|
|
if (screen->Vshow) {
|
|
setCgsFore(xw, win, gcNorm, fg);
|
|
setCgsBack(xw, win, gcNormReverse, fg);
|
|
setCgsFore(xw, win, gcBold, fg);
|
|
setCgsBack(xw, win, gcBoldReverse, fg);
|
|
repaint = True;
|
|
}
|
|
}
|
|
|
|
if (COLOR_DEFINED(pNew, TEXT_BG)) {
|
|
Pixel bg = COLOR_VALUE(pNew, TEXT_BG);
|
|
T_COLOR(screen, TEXT_BG) = bg;
|
|
TRACE(("... TEXT_BG: %#lx\n", T_COLOR(screen, TEXT_BG)));
|
|
if (screen->Vshow) {
|
|
setCgsBack(xw, win, gcNorm, bg);
|
|
setCgsFore(xw, win, gcNormReverse, bg);
|
|
setCgsBack(xw, win, gcBold, bg);
|
|
setCgsFore(xw, win, gcBoldReverse, bg);
|
|
set_background(xw, -1);
|
|
repaint = True;
|
|
}
|
|
}
|
|
#if OPT_HIGHLIGHT_COLOR
|
|
if (COLOR_DEFINED(pNew, HIGHLIGHT_BG)) {
|
|
if (T_COLOR(screen, HIGHLIGHT_BG) != COLOR_VALUE(pNew, HIGHLIGHT_BG)) {
|
|
T_COLOR(screen, HIGHLIGHT_BG) = COLOR_VALUE(pNew, HIGHLIGHT_BG);
|
|
TRACE(("... HIGHLIGHT_BG: %#lx\n", T_COLOR(screen, HIGHLIGHT_BG)));
|
|
if (screen->Vshow)
|
|
repaint = True;
|
|
}
|
|
}
|
|
if (COLOR_DEFINED(pNew, HIGHLIGHT_FG)) {
|
|
if (T_COLOR(screen, HIGHLIGHT_FG) != COLOR_VALUE(pNew, HIGHLIGHT_FG)) {
|
|
T_COLOR(screen, HIGHLIGHT_FG) = COLOR_VALUE(pNew, HIGHLIGHT_FG);
|
|
TRACE(("... HIGHLIGHT_FG: %#lx\n", T_COLOR(screen, HIGHLIGHT_FG)));
|
|
if (screen->Vshow)
|
|
repaint = True;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
if (COLOR_DEFINED(pNew, MOUSE_FG) || (COLOR_DEFINED(pNew, MOUSE_BG))) {
|
|
if (COLOR_DEFINED(pNew, MOUSE_FG)) {
|
|
T_COLOR(screen, MOUSE_FG) = COLOR_VALUE(pNew, MOUSE_FG);
|
|
TRACE(("... MOUSE_FG: %#lx\n", T_COLOR(screen, MOUSE_FG)));
|
|
}
|
|
if (COLOR_DEFINED(pNew, MOUSE_BG)) {
|
|
T_COLOR(screen, MOUSE_BG) = COLOR_VALUE(pNew, MOUSE_BG);
|
|
TRACE(("... MOUSE_BG: %#lx\n", T_COLOR(screen, MOUSE_BG)));
|
|
}
|
|
|
|
if (screen->Vshow) {
|
|
recolor_cursor(screen,
|
|
screen->pointer_cursor,
|
|
T_COLOR(screen, MOUSE_FG),
|
|
T_COLOR(screen, MOUSE_BG));
|
|
XDefineCursor(screen->display, VWindow(screen),
|
|
screen->pointer_cursor);
|
|
}
|
|
#if OPT_TEK4014
|
|
if (TEK4014_SHOWN(xw)) {
|
|
TekScreen *tekscr = TekScreenOf(tekWidget);
|
|
Window tekwin = TWindow(tekscr);
|
|
if (tekwin) {
|
|
recolor_cursor(screen,
|
|
tekscr->arrow,
|
|
T_COLOR(screen, MOUSE_FG),
|
|
T_COLOR(screen, MOUSE_BG));
|
|
XDefineCursor(screen->display, tekwin, tekscr->arrow);
|
|
}
|
|
}
|
|
#endif
|
|
/* no repaint needed */
|
|
}
|
|
|
|
if (COLOR_DEFINED(pNew, TEXT_FG) ||
|
|
COLOR_DEFINED(pNew, TEXT_BG) ||
|
|
COLOR_DEFINED(pNew, TEXT_CURSOR)) {
|
|
if (set_cursor_gcs(xw) && screen->Vshow) {
|
|
repaint = True;
|
|
}
|
|
}
|
|
#if OPT_TEK4014
|
|
if (COLOR_DEFINED(pNew, TEK_FG) ||
|
|
COLOR_DEFINED(pNew, TEK_BG)) {
|
|
ChangeTekColors(tekWidget, screen, pNew);
|
|
if (TEK4014_SHOWN(xw)) {
|
|
TekRepaint(tekWidget);
|
|
}
|
|
} else if (COLOR_DEFINED(pNew, TEK_CURSOR)) {
|
|
ChangeTekColors(tekWidget, screen, pNew);
|
|
}
|
|
#endif
|
|
if (repaint)
|
|
xtermRepaint(xw);
|
|
}
|
|
|
|
void
|
|
xtermClear(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
TRACE(("xtermClear\n"));
|
|
#if OPT_DOUBLE_BUFFER
|
|
XFillRectangle(screen->display, VDrawable(screen),
|
|
ReverseGC(xw, screen),
|
|
0, 0,
|
|
FullWidth(screen), FullHeight(screen));
|
|
#else
|
|
XClearWindow(screen->display, VWindow(screen));
|
|
#endif
|
|
}
|
|
|
|
void
|
|
xtermRepaint(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
TRACE(("xtermRepaint\n"));
|
|
xtermClear(xw);
|
|
ScrnRefresh(xw, 0, 0, MaxRows(screen), MaxCols(screen), True);
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
Boolean
|
|
isDefaultForeground(const char *name)
|
|
{
|
|
return (Boolean) !x_strcasecmp(name, XtDefaultForeground);
|
|
}
|
|
|
|
Boolean
|
|
isDefaultBackground(const char *name)
|
|
{
|
|
return (Boolean) !x_strcasecmp(name, XtDefaultBackground);
|
|
}
|
|
|
|
#if OPT_WIDE_CHARS
|
|
/*
|
|
* Check for Unicode BIDI control characters, which may be miscategorized via
|
|
* wcwidth() and iswprint() as zero-width printable characters.
|
|
*/
|
|
Boolean
|
|
isWideControl(unsigned ch)
|
|
{
|
|
Boolean result;
|
|
|
|
switch (ch) {
|
|
case 0x200E:
|
|
case 0x200F:
|
|
case 0x202A:
|
|
case 0x202B:
|
|
case 0x202C:
|
|
case 0x202D:
|
|
case 0x202E:
|
|
result = True;
|
|
break;
|
|
default:
|
|
result = False;
|
|
break;
|
|
}
|
|
return result;
|
|
}
|
|
#endif
|
|
|
|
/***====================================================================***/
|
|
|
|
typedef struct {
|
|
Pixel fg;
|
|
Pixel bg;
|
|
} ToSwap;
|
|
|
|
#if OPT_HIGHLIGHT_COLOR
|
|
#define hc_param ,Bool hilite_color
|
|
#define hc_value ,screen->hilite_color
|
|
#else
|
|
#define hc_param /* nothing */
|
|
#define hc_value /* nothing */
|
|
#endif
|
|
|
|
/*
|
|
* Use this to swap the foreground/background color values in the resource
|
|
* data, and to build up a list of the pairs which must be swapped in the
|
|
* GC cache.
|
|
*/
|
|
static void
|
|
swapLocally(ToSwap * list, int *count, ColorRes * fg, ColorRes * bg hc_param)
|
|
{
|
|
ColorRes tmp;
|
|
int n;
|
|
Boolean found = False;
|
|
|
|
#if OPT_COLOR_RES
|
|
Pixel fg_color = fg->value;
|
|
Pixel bg_color = bg->value;
|
|
#else
|
|
Pixel fg_color = *fg;
|
|
Pixel bg_color = *bg;
|
|
#endif
|
|
|
|
#if OPT_HIGHLIGHT_COLOR
|
|
if ((fg_color != bg_color) || !hilite_color)
|
|
#endif
|
|
{
|
|
EXCHANGE(*fg, *bg, tmp);
|
|
for (n = 0; n < *count; ++n) {
|
|
if ((list[n].fg == fg_color && list[n].bg == bg_color)
|
|
|| (list[n].fg == bg_color && list[n].bg == fg_color)) {
|
|
found = True;
|
|
break;
|
|
}
|
|
}
|
|
if (!found) {
|
|
list[*count].fg = fg_color;
|
|
list[*count].bg = bg_color;
|
|
*count = *count + 1;
|
|
TRACE(("swapLocally fg %#lx, bg %#lx ->%d\n",
|
|
fg_color, bg_color, *count));
|
|
}
|
|
}
|
|
}
|
|
|
|
static void
|
|
reallySwapColors(XtermWidget xw, ToSwap * list, int count)
|
|
{
|
|
int j, k;
|
|
|
|
TRACE(("reallySwapColors\n"));
|
|
for (j = 0; j < count; ++j) {
|
|
for_each_text_gc(k) {
|
|
redoCgs(xw, list[j].fg, list[j].bg, (CgsEnum) k);
|
|
}
|
|
}
|
|
}
|
|
|
|
static void
|
|
swapVTwinGCs(XtermWidget xw, VTwin *win)
|
|
{
|
|
swapCgs(xw, win, gcNorm, gcNormReverse);
|
|
swapCgs(xw, win, gcBold, gcBoldReverse);
|
|
}
|
|
|
|
void
|
|
ReverseVideo(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
ToSwap listToSwap[5];
|
|
int numToSwap = 0;
|
|
|
|
TRACE(("ReverseVideo\n"));
|
|
|
|
/*
|
|
* Swap SGR foreground and background colors. By convention, these are
|
|
* the colors assigned to "black" (SGR #0) and "white" (SGR #7). Also,
|
|
* SGR #8 and SGR #15 are the bold (or bright) versions of SGR #0 and
|
|
* #7, respectively.
|
|
*
|
|
* We don't swap colors that happen to match the screen's foreground
|
|
* and background because that tends to produce bizarre effects.
|
|
*/
|
|
#define swapAnyColor(name,a,b) swapLocally(listToSwap, &numToSwap, &(screen->name[a]), &(screen->name[b]) hc_value)
|
|
#define swapAColor(a,b) swapAnyColor(Acolors, a, b)
|
|
if_OPT_ISO_COLORS(screen, {
|
|
swapAColor(0, 7);
|
|
swapAColor(8, 15);
|
|
});
|
|
|
|
if (T_COLOR(screen, TEXT_CURSOR) == T_COLOR(screen, TEXT_FG))
|
|
T_COLOR(screen, TEXT_CURSOR) = T_COLOR(screen, TEXT_BG);
|
|
|
|
#define swapTColor(a,b) swapAnyColor(Tcolors, a, b)
|
|
swapTColor(TEXT_FG, TEXT_BG);
|
|
swapTColor(MOUSE_FG, MOUSE_BG);
|
|
|
|
reallySwapColors(xw, listToSwap, numToSwap);
|
|
|
|
swapVTwinGCs(xw, &(screen->fullVwin));
|
|
#ifndef NO_ACTIVE_ICON
|
|
swapVTwinGCs(xw, &(screen->iconVwin));
|
|
#endif /* NO_ACTIVE_ICON */
|
|
|
|
xw->misc.re_verse = (Boolean) !xw->misc.re_verse;
|
|
|
|
if (XtIsRealized((Widget) xw)) {
|
|
xtermDisplayCursor(xw);
|
|
}
|
|
#if OPT_TEK4014
|
|
if (TEK4014_SHOWN(xw)) {
|
|
TekScreen *tekscr = TekScreenOf(tekWidget);
|
|
Window tekwin = TWindow(tekscr);
|
|
recolor_cursor(screen,
|
|
tekscr->arrow,
|
|
T_COLOR(screen, MOUSE_FG),
|
|
T_COLOR(screen, MOUSE_BG));
|
|
XDefineCursor(screen->display, tekwin, tekscr->arrow);
|
|
}
|
|
#endif
|
|
|
|
if (screen->scrollWidget)
|
|
ScrollBarReverseVideo(screen->scrollWidget);
|
|
|
|
if (XtIsRealized((Widget) xw)) {
|
|
set_background(xw, -1);
|
|
}
|
|
#if OPT_TEK4014
|
|
TekReverseVideo(tekWidget);
|
|
#endif
|
|
if (XtIsRealized((Widget) xw)) {
|
|
xtermRepaint(xw);
|
|
}
|
|
#if OPT_TEK4014
|
|
if (TEK4014_SHOWN(xw)) {
|
|
TekRepaint(tekWidget);
|
|
}
|
|
#endif
|
|
ReverseOldColors(xw);
|
|
set_cursor_gcs(xw);
|
|
update_reversevideo();
|
|
TRACE(("...ReverseVideo\n"));
|
|
}
|
|
|
|
void
|
|
recolor_cursor(TScreen *screen,
|
|
Cursor cursor, /* X cursor ID to set */
|
|
unsigned long fg, /* pixel indexes to look up */
|
|
unsigned long bg) /* pixel indexes to look up */
|
|
{
|
|
Display *dpy = screen->display;
|
|
XColor colordefs[2]; /* 0 is foreground, 1 is background */
|
|
|
|
colordefs[0].pixel = fg;
|
|
colordefs[1].pixel = bg;
|
|
XQueryColors(dpy, DefaultColormap(dpy, DefaultScreen(dpy)),
|
|
colordefs, 2);
|
|
XRecolorCursor(dpy, cursor, colordefs, colordefs + 1);
|
|
cleanup_colored_cursor();
|
|
return;
|
|
}
|
|
|
|
#if OPT_RENDERFONT
|
|
#define XFT_CACHE_LIMIT ((unsigned)(~0) >> 1)
|
|
#define XFT_CACHE_SIZE 16
|
|
typedef struct {
|
|
XftColor color;
|
|
unsigned use;
|
|
} XftColorCache;
|
|
|
|
static int
|
|
compare_xft_color_cache(const void *a, const void *b)
|
|
{
|
|
return (int) (((const XftColorCache *) a)->use -
|
|
((const XftColorCache *) b)->use);
|
|
}
|
|
|
|
static XftColor *
|
|
getXftColor(XtermWidget xw, Pixel pixel)
|
|
{
|
|
static XftColorCache cache[XFT_CACHE_SIZE];
|
|
static unsigned latest_use;
|
|
int i;
|
|
int oldest;
|
|
unsigned oldest_use;
|
|
XColor color;
|
|
Boolean found = False;
|
|
|
|
oldest_use = XFT_CACHE_LIMIT;
|
|
oldest = 0;
|
|
if (latest_use == XFT_CACHE_LIMIT) {
|
|
latest_use = 0;
|
|
qsort(cache, (size_t) XFT_CACHE_SIZE, sizeof(XftColorCache), compare_xft_color_cache);
|
|
for (i = 0; i < XFT_CACHE_SIZE; i++) {
|
|
if (cache[i].use) {
|
|
cache[i].use = ++latest_use;
|
|
}
|
|
}
|
|
}
|
|
for (i = 0; i < XFT_CACHE_SIZE; i++) {
|
|
if (cache[i].use) {
|
|
if (cache[i].color.pixel == pixel) {
|
|
found = True;
|
|
break;
|
|
}
|
|
}
|
|
if (cache[i].use < oldest_use) {
|
|
oldest_use = cache[i].use;
|
|
oldest = i;
|
|
}
|
|
}
|
|
if (!found) {
|
|
i = oldest;
|
|
color.pixel = pixel;
|
|
XQueryColor(TScreenOf(xw)->display, xw->core.colormap, &color);
|
|
cache[i].color.color.red = color.red;
|
|
cache[i].color.color.green = color.green;
|
|
cache[i].color.color.blue = color.blue;
|
|
cache[i].color.color.alpha = 0xffff;
|
|
cache[i].color.pixel = pixel;
|
|
}
|
|
cache[i].use = ++latest_use;
|
|
return &cache[i].color;
|
|
}
|
|
|
|
/*
|
|
* The cell-width is related to, but not the same as the wide-character width.
|
|
* We will only get useful values from wcwidth() for codes above 255.
|
|
* Otherwise, interpret according to internal data.
|
|
*/
|
|
#if OPT_RENDERWIDE
|
|
|
|
#if OPT_C1_PRINT
|
|
#define XtermCellWidth(xw, ch) \
|
|
(((ch) == 0 || (ch) == 127) \
|
|
? 0 \
|
|
: (((ch) < 256) \
|
|
? (((ch) >= 128 && (ch) < 160) \
|
|
? (TScreenOf(xw)->c1_printable ? 1 : 0) \
|
|
: 1) \
|
|
: my_wcwidth(ch)))
|
|
#else
|
|
#define XtermCellWidth(xw, ch) \
|
|
(((ch) == 0 || (ch) == 127) \
|
|
? 0 \
|
|
: (((ch) < 256) \
|
|
? 1 \
|
|
: my_wcwidth(ch)))
|
|
#endif
|
|
|
|
#endif /* OPT_RENDERWIDE */
|
|
|
|
#define XFT_FONT(name) screen->name.font
|
|
|
|
#if OPT_ISO_COLORS
|
|
#define UseBoldFont(screen) (!(screen)->colorBDMode || ((screen)->veryBoldColors & BOLD))
|
|
#else
|
|
#define UseBoldFont(screen) 1
|
|
#endif
|
|
|
|
#if OPT_RENDERWIDE
|
|
static XftFont *
|
|
getWideXftFont(XtermWidget xw,
|
|
unsigned attr_flags)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int fontnum = screen->menu_font_number;
|
|
XftFont *wfont;
|
|
|
|
#if OPT_WIDE_ATTRS
|
|
if ((attr_flags & ATR_ITALIC)
|
|
#if OPT_ISO_COLORS
|
|
&& !screen->colorITMode
|
|
#endif
|
|
&& XFT_FONT(renderWideItal[fontnum])) {
|
|
wfont = XFT_FONT(renderWideItal[fontnum]);
|
|
} else
|
|
#endif
|
|
#if OPT_ISO_COLORS
|
|
if ((attr_flags & UNDERLINE)
|
|
&& !screen->colorULMode
|
|
&& screen->italicULMode
|
|
&& XFT_FONT(renderWideItal[fontnum])) {
|
|
wfont = XFT_FONT(renderWideItal[fontnum]);
|
|
} else
|
|
#endif
|
|
if ((attr_flags & BOLDATTR(screen))
|
|
&& UseBoldFont(screen)
|
|
&& XFT_FONT(renderWideBold[fontnum])) {
|
|
wfont = XFT_FONT(renderWideBold[fontnum]);
|
|
} else {
|
|
wfont = XFT_FONT(renderWideNorm[fontnum]);
|
|
}
|
|
return wfont;
|
|
}
|
|
#endif /* OPT_RENDERWIDE */
|
|
|
|
static XftFont *
|
|
getNormXftFont(XtermWidget xw,
|
|
unsigned attr_flags,
|
|
Bool *did_ul)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int fontnum = screen->menu_font_number;
|
|
XftFont *font;
|
|
|
|
#if OPT_WIDE_ATTRS
|
|
if ((attr_flags & ATR_ITALIC)
|
|
#if OPT_ISO_COLORS
|
|
&& !screen->colorITMode
|
|
#endif
|
|
&& XFT_FONT(renderFontItal[fontnum])) {
|
|
font = XFT_FONT(renderFontItal[fontnum]);
|
|
} else
|
|
#endif
|
|
#if OPT_ISO_COLORS
|
|
if ((attr_flags & UNDERLINE)
|
|
&& !screen->colorULMode
|
|
&& screen->italicULMode
|
|
&& XFT_FONT(renderFontItal[fontnum])) {
|
|
font = XFT_FONT(renderFontItal[fontnum]);
|
|
*did_ul = True;
|
|
} else
|
|
#endif
|
|
if ((attr_flags & BOLDATTR(screen))
|
|
&& UseBoldFont(screen)
|
|
&& XFT_FONT(renderFontBold[fontnum])) {
|
|
font = XFT_FONT(renderFontBold[fontnum]);
|
|
} else {
|
|
font = XFT_FONT(renderFontNorm[fontnum]);
|
|
}
|
|
return font;
|
|
}
|
|
|
|
#if OPT_RENDERWIDE
|
|
#define pickXftFont(width, nf, wf) ((width == 2 && wf != 0) ? wf : nf)
|
|
#else
|
|
#define pickXftFont(width, nf, wf) (nf)
|
|
#endif
|
|
|
|
/*
|
|
* fontconfig/Xft combination prior to 2.2 has a problem with
|
|
* CJK truetype 'double-width' (bi-width/monospace) fonts leading
|
|
* to the 's p a c e d o u t' rendering. Consequently, we can't
|
|
* rely on XftDrawString8/16 when one of those fonts is used.
|
|
* Instead, we need to roll out our own using XftDrawCharSpec.
|
|
* A patch in the same spirit (but in a rather different form)
|
|
* was applied to gnome vte and gtk2 port of vim.
|
|
* See http://bugzilla.mozilla.org/show_bug.cgi?id=196312
|
|
*/
|
|
static int
|
|
xtermXftDrawString(XtermWidget xw,
|
|
unsigned attr_flags GCC_UNUSED,
|
|
XftColor *color,
|
|
XftFont *font,
|
|
int x,
|
|
int y,
|
|
const IChar *text,
|
|
Cardinal len,
|
|
Bool really)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int ncells = 0;
|
|
|
|
if (len != 0) {
|
|
#if OPT_RENDERWIDE
|
|
XftCharSpec *sbuf;
|
|
XftFont *wfont = getWideXftFont(xw, attr_flags);
|
|
Cardinal src, dst;
|
|
XftFont *lastFont = 0;
|
|
XftFont *currFont = 0;
|
|
Cardinal start = 0;
|
|
int charWidth;
|
|
int fwidth = FontWidth(screen);
|
|
|
|
BumpTypedBuffer(XftCharSpec, len);
|
|
sbuf = BfBuf(XftCharSpec);
|
|
|
|
for (src = dst = 0; src < len; src++) {
|
|
FcChar32 wc = *text++;
|
|
|
|
charWidth = XtermCellWidth(xw, (wchar_t) wc);
|
|
if (charWidth < 0)
|
|
continue;
|
|
|
|
sbuf[dst].ucs4 = wc;
|
|
sbuf[dst].x = (short) (x + fwidth * ncells);
|
|
sbuf[dst].y = (short) (y);
|
|
|
|
currFont = pickXftFont(charWidth, font, wfont);
|
|
ncells += charWidth;
|
|
|
|
if (lastFont != currFont) {
|
|
if ((lastFont != 0) && really) {
|
|
XftDrawCharSpec(screen->renderDraw,
|
|
color,
|
|
lastFont,
|
|
sbuf + start,
|
|
(int) (dst - start));
|
|
}
|
|
start = dst;
|
|
lastFont = currFont;
|
|
}
|
|
++dst;
|
|
}
|
|
if ((dst != start) && really) {
|
|
XftDrawCharSpec(screen->renderDraw,
|
|
color,
|
|
lastFont,
|
|
sbuf + start,
|
|
(int) (dst - start));
|
|
}
|
|
#else /* !OPT_RENDERWIDE */
|
|
if (really) {
|
|
XftChar8 *buffer;
|
|
int dst;
|
|
|
|
BumpTypedBuffer(XftChar8, len);
|
|
buffer = BfBuf(XftChar8);
|
|
|
|
for (dst = 0; dst < (int) len; ++dst)
|
|
buffer[dst] = CharOf(text[dst]);
|
|
|
|
XftDrawString8(screen->renderDraw,
|
|
color,
|
|
font,
|
|
x, y, buffer, (int) len);
|
|
}
|
|
ncells = (int) len;
|
|
#endif
|
|
}
|
|
return ncells;
|
|
}
|
|
#define xtermXftWidth(xw, attr_flags, color, font, x, y, chars, len) \
|
|
xtermXftDrawString(xw, attr_flags, color, font, x, y, chars, len, False)
|
|
#endif /* OPT_RENDERFONT */
|
|
|
|
#if OPT_WIDE_CHARS
|
|
/*
|
|
* Map characters commonly "fixed" by groff back to their ASCII equivalents.
|
|
* Also map other useful equivalents.
|
|
*/
|
|
unsigned
|
|
AsciiEquivs(unsigned ch)
|
|
{
|
|
switch (ch) {
|
|
case 0x2010: /* groff "-" */
|
|
case 0x2011:
|
|
case 0x2012:
|
|
case 0x2013:
|
|
case 0x2014:
|
|
case 0x2015:
|
|
case 0x2212: /* groff "\-" */
|
|
ch = '-';
|
|
break;
|
|
case 0x2018: /* groff "`" */
|
|
ch = '`';
|
|
break;
|
|
case 0x2019: /* groff ' */
|
|
ch = '\'';
|
|
break;
|
|
case 0x201C: /* groff lq */
|
|
case 0x201D: /* groff rq */
|
|
ch = '"';
|
|
break;
|
|
case 0x2329: /* groff ".URL" */
|
|
ch = '<';
|
|
break;
|
|
case 0x232a: /* groff ".URL" */
|
|
ch = '>';
|
|
break;
|
|
default:
|
|
if (ch >= 0xff01 && ch <= 0xff5e) {
|
|
/* "Fullwidth" codes (actually double-width) */
|
|
ch -= 0xff00;
|
|
ch += ANSI_SPA;
|
|
break;
|
|
}
|
|
}
|
|
return ch;
|
|
}
|
|
|
|
/*
|
|
* Actually this should be called "groff_workaround()" - for the places where
|
|
* groff stomps on compatibility. Still, if enough people get used to it,
|
|
* this might someday become a quasi-standard.
|
|
*/
|
|
#if OPT_BOX_CHARS
|
|
static int
|
|
ucs_workaround(XtermWidget xw,
|
|
unsigned ch,
|
|
unsigned attr_flags,
|
|
unsigned draw_flags,
|
|
GC gc,
|
|
int x,
|
|
int y,
|
|
int chrset,
|
|
int on_wide)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
int fixed = False;
|
|
|
|
if (screen->wide_chars && screen->utf8_mode && ch > 256) {
|
|
IChar eqv = (IChar) AsciiEquivs(ch);
|
|
|
|
if (eqv != (IChar) ch) {
|
|
int width = my_wcwidth((wchar_t) ch);
|
|
|
|
do {
|
|
drawXtermText(xw,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc,
|
|
x,
|
|
y,
|
|
chrset,
|
|
&eqv,
|
|
1,
|
|
on_wide);
|
|
x += FontWidth(screen);
|
|
eqv = '?';
|
|
} while (width-- > 1);
|
|
|
|
fixed = True;
|
|
} else if (ch == HIDDEN_CHAR) {
|
|
fixed = True;
|
|
}
|
|
}
|
|
return fixed;
|
|
}
|
|
#endif /* OPT_BOX_CHARS */
|
|
#endif /* OPT_WIDE_CHARS */
|
|
|
|
/*
|
|
* Use this when the characters will not fill the cell area properly. Fill the
|
|
* area where we'll write the characters, otherwise we'll get gaps between
|
|
* them, e.g., in the original background color.
|
|
*
|
|
* The cursor is a special case, because the XFillRectangle call only uses the
|
|
* foreground, while we've set the cursor color in the background. So we need
|
|
* a special GC for that.
|
|
*/
|
|
static void
|
|
xtermFillCells(XtermWidget xw,
|
|
unsigned draw_flags,
|
|
GC gc,
|
|
int x,
|
|
int y,
|
|
Cardinal len)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
VTwin *currentWin = WhichVWin(screen);
|
|
|
|
if (!(draw_flags & NOBACKGROUND)) {
|
|
CgsEnum srcId = getCgsId(xw, currentWin, gc);
|
|
CgsEnum dstId = gcMAX;
|
|
Pixel fg = getCgsFore(xw, currentWin, gc);
|
|
Pixel bg = getCgsBack(xw, currentWin, gc);
|
|
|
|
switch (srcId) {
|
|
case gcVTcursNormal:
|
|
case gcVTcursReverse:
|
|
dstId = gcVTcursOutline;
|
|
break;
|
|
case gcVTcursFilled:
|
|
case gcVTcursOutline:
|
|
/* FIXME */
|
|
break;
|
|
case gcNorm:
|
|
dstId = gcNormReverse;
|
|
break;
|
|
case gcNormReverse:
|
|
dstId = gcNorm;
|
|
break;
|
|
case gcBold:
|
|
dstId = gcBoldReverse;
|
|
break;
|
|
case gcBoldReverse:
|
|
dstId = gcBold;
|
|
break;
|
|
#if OPT_BOX_CHARS
|
|
case gcLine:
|
|
case gcDots:
|
|
/* FIXME */
|
|
break;
|
|
#endif
|
|
#if OPT_DEC_CHRSET
|
|
case gcCNorm:
|
|
case gcCBold:
|
|
/* FIXME */
|
|
break;
|
|
#endif
|
|
#if OPT_WIDE_CHARS
|
|
case gcWide:
|
|
dstId = gcWideReverse;
|
|
break;
|
|
case gcWBold:
|
|
dstId = gcBoldReverse;
|
|
break;
|
|
case gcWideReverse:
|
|
case gcWBoldReverse:
|
|
/* FIXME */
|
|
break;
|
|
#endif
|
|
#if OPT_TEK4014
|
|
case gcTKcurs:
|
|
/* FIXME */
|
|
break;
|
|
#endif
|
|
case gcMAX:
|
|
break;
|
|
}
|
|
|
|
if (dstId != gcMAX) {
|
|
setCgsFore(xw, currentWin, dstId, bg);
|
|
setCgsBack(xw, currentWin, dstId, fg);
|
|
|
|
XFillRectangle(screen->display, VDrawable(screen),
|
|
getCgsGC(xw, currentWin, dstId),
|
|
x, y,
|
|
len * (Cardinal) FontWidth(screen),
|
|
(unsigned) FontHeight(screen));
|
|
}
|
|
}
|
|
}
|
|
|
|
#if OPT_TRACE
|
|
static void
|
|
xtermSetClipRectangles(Display *dpy,
|
|
GC gc,
|
|
int x,
|
|
int y,
|
|
XRectangle * rp,
|
|
Cardinal nr,
|
|
int order)
|
|
{
|
|
#if 0
|
|
TScreen *screen = TScreenOf(term);
|
|
Drawable draw = VDrawable(screen);
|
|
|
|
XSetClipMask(dpy, gc, None);
|
|
XDrawRectangle(screen->display, draw, gc,
|
|
x + rp->x - 1,
|
|
y + rp->y - 1,
|
|
rp->width,
|
|
rp->height);
|
|
#endif
|
|
|
|
XSetClipRectangles(dpy, gc,
|
|
x, y, rp, (int) nr, order);
|
|
TRACE(("clipping @(%3d,%3d) (%3d,%3d)..(%3d,%3d)\n",
|
|
y, x,
|
|
rp->y, rp->x, rp->height, rp->width));
|
|
}
|
|
|
|
#else
|
|
#define xtermSetClipRectangles(dpy, gc, x, y, rp, nr, order) \
|
|
XSetClipRectangles(dpy, gc, x, y, rp, (int) nr, order)
|
|
#endif
|
|
|
|
#if OPT_CLIP_BOLD
|
|
/*
|
|
* This special case is a couple of percent slower, but avoids a lot of pixel
|
|
* trash in rxcurses' hanoi.cmd demo (e.g., 10x20 font).
|
|
*/
|
|
#define beginClipping(screen,gc,pwidth,plength) \
|
|
if (screen->use_clipping && (pwidth > 2)) { \
|
|
XRectangle clip; \
|
|
int clip_x = x; \
|
|
int clip_y = y - FontHeight(screen) + FontDescent(screen); \
|
|
clip.x = 0; \
|
|
clip.y = 0; \
|
|
clip.height = (unsigned short) FontHeight(screen); \
|
|
clip.width = (unsigned short) (pwidth * plength); \
|
|
xtermSetClipRectangles(screen->display, gc, \
|
|
clip_x, clip_y, \
|
|
&clip, 1, Unsorted); \
|
|
}
|
|
#define endClipping(screen,gc) \
|
|
XSetClipMask(screen->display, gc, None)
|
|
#else
|
|
#define beginClipping(screen,gc,pwidth,plength) /* nothing */
|
|
#define endClipping(screen,gc) /* nothing */
|
|
#endif /* OPT_CLIP_BOLD */
|
|
|
|
#if OPT_CLIP_BOLD && OPT_RENDERFONT && defined(HAVE_XFTDRAWSETCLIP) && defined(HAVE_XFTDRAWSETCLIPRECTANGLES)
|
|
#define beginXftClipping(screen,px,py,plength) \
|
|
if (screen->use_clipping && (FontWidth(screen) > 2)) { \
|
|
XRectangle clip; \
|
|
double adds = (screen->scale_height - 1.0) * FontHeight(screen); \
|
|
int height = dimRound(adds + FontHeight(screen)); \
|
|
int descnt = dimRound(adds / 2.0) + FontDescent(screen); \
|
|
int clip_x = px; \
|
|
int clip_y = py - height + descnt; \
|
|
clip.x = 0; \
|
|
clip.y = 0; \
|
|
clip.height = (unsigned short) height; \
|
|
clip.width = (unsigned short) (FontWidth(screen) * plength); \
|
|
XftDrawSetClipRectangles (screen->renderDraw, \
|
|
clip_x, clip_y, \
|
|
&clip, 1); \
|
|
}
|
|
#define endXftClipping(screen) \
|
|
XftDrawSetClip (screen->renderDraw, 0)
|
|
#else
|
|
#define beginXftClipping(screen,px,py,plength) /* nothing */
|
|
#define endXftClipping(screen) /* nothing */
|
|
#endif /* OPT_CLIP_BOLD */
|
|
|
|
#if OPT_RENDERFONT
|
|
static int
|
|
drawClippedXftString(XtermWidget xw,
|
|
unsigned attr_flags,
|
|
XftFont *font,
|
|
XftColor *fg_color,
|
|
int x,
|
|
int y,
|
|
const IChar *text,
|
|
Cardinal len)
|
|
{
|
|
int ncells = xtermXftWidth(xw, attr_flags,
|
|
fg_color,
|
|
font, x, y,
|
|
text,
|
|
len);
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
beginXftClipping(screen, x, y, ncells);
|
|
xtermXftDrawString(xw, attr_flags,
|
|
fg_color,
|
|
font, x, y,
|
|
text,
|
|
len,
|
|
True);
|
|
endXftClipping(screen);
|
|
return ncells;
|
|
}
|
|
#endif
|
|
|
|
#ifndef NO_ACTIVE_ICON
|
|
#define WhichVFontData(screen,name) \
|
|
(IsIcon(screen) ? &((screen)->fnt_icon) \
|
|
: &((screen)->name))
|
|
#else
|
|
#define WhichVFontData(screen,name) \
|
|
(&((screen)->name))
|
|
#endif
|
|
|
|
static int
|
|
drawUnderline(XtermWidget xw,
|
|
GC gc,
|
|
unsigned attr_flags,
|
|
unsigned underline_len,
|
|
int font_width,
|
|
int x,
|
|
int y,
|
|
Bool did_ul)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
if (screen->underline && !did_ul) {
|
|
int repeat = 0;
|
|
int descent = FontDescent(screen);
|
|
int length = x + (int) underline_len * font_width - 1;
|
|
|
|
#if OPT_WIDE_ATTRS
|
|
if ((attr_flags & ATR_STRIKEOUT)) {
|
|
int where = y - ((3 * FontAscent(screen)) / 8);
|
|
XDrawLine(screen->display, VDrawable(screen), gc,
|
|
x, where,
|
|
length,
|
|
where);
|
|
}
|
|
if ((attr_flags & ATR_DBL_UNDER)) {
|
|
repeat = 2;
|
|
} else
|
|
#endif
|
|
if ((attr_flags & UNDERLINE)) {
|
|
repeat = 1;
|
|
}
|
|
while (repeat-- > 0) {
|
|
if (descent-- > 1)
|
|
y++;
|
|
XDrawLine(screen->display, VDrawable(screen), gc,
|
|
x, y,
|
|
length,
|
|
y);
|
|
}
|
|
}
|
|
return y;
|
|
}
|
|
|
|
#if OPT_WIDE_ATTRS
|
|
/*
|
|
* As a special case, we are currently allowing italic fonts to be inexact
|
|
* matches for the normal font's size. That introduces a problem: either the
|
|
* ascent or descent may be shorter, leaving a gap that has to be filled in.
|
|
* Or they may be larger, requiring clipping. Check for both cases.
|
|
*/
|
|
static int
|
|
fixupItalics(XtermWidget xw,
|
|
unsigned draw_flags,
|
|
GC gc,
|
|
XTermFonts * curFont,
|
|
int y, int x,
|
|
int font_width,
|
|
Cardinal len)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
VTwin *cgsWin = WhichVWin(screen);
|
|
XFontStruct *realFp = curFont->fs;
|
|
XFontStruct *thisFp = getCgsFont(xw, cgsWin, gc)->fs;
|
|
int need_clipping = 0;
|
|
int need_filling = 0;
|
|
|
|
if (thisFp->ascent > realFp->ascent)
|
|
need_clipping = 1;
|
|
else if (thisFp->ascent < realFp->ascent)
|
|
need_filling = 1;
|
|
|
|
if (thisFp->descent > realFp->descent)
|
|
need_clipping = 1;
|
|
else if (thisFp->descent < realFp->descent)
|
|
need_filling = 1;
|
|
|
|
if (need_clipping) {
|
|
beginClipping(screen, gc, font_width, (int) len);
|
|
}
|
|
if (need_filling) {
|
|
xtermFillCells(xw,
|
|
draw_flags,
|
|
gc,
|
|
x,
|
|
y - realFp->ascent,
|
|
len);
|
|
}
|
|
return need_clipping;
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* Draws text with the specified combination of bold/underline. The return
|
|
* value is the updated x position.
|
|
*/
|
|
int
|
|
drawXtermText(XtermWidget xw,
|
|
unsigned attr_flags,
|
|
unsigned draw_flags,
|
|
GC gc,
|
|
int start_x,
|
|
int start_y,
|
|
int chrset,
|
|
const IChar *text,
|
|
Cardinal len,
|
|
int on_wide)
|
|
{
|
|
int x = start_x, y = start_y;
|
|
TScreen *screen = TScreenOf(xw);
|
|
Cardinal real_length = len;
|
|
Cardinal underline_len = 0;
|
|
/* Intended width of the font to draw (as opposed to the actual width of
|
|
the X font, and the width of the default font) */
|
|
int font_width = ((draw_flags & DOUBLEWFONT) ? 2 : 1) * screen->fnt_wide;
|
|
Bool did_ul = False;
|
|
XTermFonts *curFont;
|
|
#if OPT_WIDE_ATTRS || OPT_WIDE_CHARS
|
|
int need_clipping = 0;
|
|
int ascent_adjust = 0;
|
|
#endif
|
|
|
|
#if OPT_WIDE_CHARS
|
|
if (text == 0)
|
|
return 0;
|
|
#endif
|
|
#if OPT_DEC_CHRSET
|
|
if (CSET_DOUBLE(chrset)) {
|
|
/* We could try drawing double-size characters in the icon, but
|
|
* given that the icon font is usually nil or nil2, there
|
|
* doesn't seem to be much point.
|
|
*/
|
|
int inx = 0;
|
|
GC gc2 = ((!IsIcon(screen) && screen->font_doublesize)
|
|
? xterm_DoubleGC(xw, (unsigned) chrset,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc, &inx)
|
|
: 0);
|
|
|
|
TRACE(("DRAWTEXT%c[%4d,%4d] (%d)%3d:%s\n",
|
|
screen->cursor_state == OFF ? ' ' : '*',
|
|
y, x, chrset, len,
|
|
visibleIChars(text, len)));
|
|
|
|
if (gc2 != 0) { /* draw actual double-sized characters */
|
|
XFontStruct *fs = screen->double_fonts[inx].fs;
|
|
|
|
#if OPT_RENDERFONT
|
|
if (!UsingRenderFont(xw))
|
|
#endif
|
|
{
|
|
XRectangle rect, *rp = ▭
|
|
Cardinal nr = 1;
|
|
|
|
font_width *= 2;
|
|
draw_flags |= DOUBLEWFONT;
|
|
|
|
rect.x = 0;
|
|
rect.y = 0;
|
|
rect.width = (unsigned short) ((int) len * font_width);
|
|
rect.height = (unsigned short) (FontHeight(screen));
|
|
|
|
TRACE(("drawing %s\n", visibleDblChrset((unsigned) chrset)));
|
|
switch (chrset) {
|
|
case CSET_DHL_TOP:
|
|
rect.y = (short) -(fs->ascent / 2);
|
|
y -= rect.y;
|
|
draw_flags |= DOUBLEHFONT;
|
|
break;
|
|
case CSET_DHL_BOT:
|
|
rect.y = (short) (rect.height - (fs->ascent / 2));
|
|
y -= rect.y;
|
|
draw_flags |= DOUBLEHFONT;
|
|
break;
|
|
default:
|
|
nr = 0;
|
|
break;
|
|
}
|
|
|
|
if (nr) {
|
|
xtermSetClipRectangles(screen->display, gc2,
|
|
x, y, rp, nr, YXBanded);
|
|
xtermFillCells(xw, draw_flags, gc, x, y + rect.y, len * 2);
|
|
} else {
|
|
XSetClipMask(screen->display, gc2, None);
|
|
}
|
|
}
|
|
|
|
/* Call ourselves recursively with the new gc */
|
|
|
|
/*
|
|
* If we're trying to use proportional font, or if the
|
|
* font server didn't give us what we asked for wrt
|
|
* width, position each character independently.
|
|
*/
|
|
if (screen->fnt_prop
|
|
|| (fs->min_bounds.width != fs->max_bounds.width)
|
|
|| (fs->min_bounds.width != 2 * FontWidth(screen))) {
|
|
/* It is hard to fall-through to the main
|
|
branch: in a lot of places the check
|
|
for the cached font info is for
|
|
normal/bold fonts only. */
|
|
while (len--) {
|
|
x = drawXtermText(xw,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc2,
|
|
x, y, 0,
|
|
text++,
|
|
1, on_wide);
|
|
x += FontWidth(screen);
|
|
}
|
|
} else {
|
|
x = drawXtermText(xw,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc2,
|
|
x, y, 0,
|
|
text,
|
|
len, on_wide);
|
|
x += (int) len *FontWidth(screen);
|
|
}
|
|
|
|
TRACE(("drawtext [%4d,%4d]\n", y, x));
|
|
} else { /* simulate double-sized characters */
|
|
unsigned need = 2 * len;
|
|
IChar *temp = TypeMallocN(IChar, need);
|
|
unsigned n = 0;
|
|
|
|
while (len--) {
|
|
temp[n++] = *text++;
|
|
temp[n++] = ' ';
|
|
}
|
|
x = drawXtermText(xw,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc,
|
|
x, y,
|
|
0,
|
|
temp,
|
|
n,
|
|
on_wide);
|
|
free(temp);
|
|
}
|
|
return x;
|
|
}
|
|
#endif
|
|
#if OPT_RENDERFONT
|
|
if (UsingRenderFont(xw)) {
|
|
VTwin *currentWin = WhichVWin(screen);
|
|
Display *dpy = screen->display;
|
|
XftFont *font, *font0;
|
|
XGCValues values;
|
|
int ncells;
|
|
#if OPT_RENDERWIDE
|
|
XftFont *wfont, *wfont0;
|
|
#endif
|
|
if (!screen->renderDraw) {
|
|
int scr;
|
|
Drawable draw = VDrawable(screen);
|
|
Visual *visual;
|
|
|
|
scr = DefaultScreen(dpy);
|
|
visual = DefaultVisual(dpy, scr);
|
|
screen->renderDraw = XftDrawCreate(dpy, draw, visual,
|
|
DefaultColormap(dpy, scr));
|
|
}
|
|
#define IS_BOLD (attr_flags & BOLDATTR(screen))
|
|
#define NOT_BOLD (attr_flags & ~BOLDATTR(screen))
|
|
font = getNormXftFont(xw, attr_flags, &did_ul);
|
|
font0 = IS_BOLD ? getNormXftFont(xw, NOT_BOLD, &did_ul) : font;
|
|
#if OPT_RENDERWIDE
|
|
wfont = getWideXftFont(xw, attr_flags);
|
|
wfont0 = IS_BOLD ? getWideXftFont(xw, NOT_BOLD) : wfont;
|
|
#endif
|
|
values.foreground = getCgsFore(xw, currentWin, gc);
|
|
values.background = getCgsBack(xw, currentWin, gc);
|
|
|
|
if (!(draw_flags & NOBACKGROUND)) {
|
|
XftColor *bg_color = getXftColor(xw, values.background);
|
|
ncells = xtermXftWidth(xw, attr_flags,
|
|
bg_color,
|
|
font, x, y,
|
|
text,
|
|
len);
|
|
XftDrawRect(screen->renderDraw,
|
|
bg_color,
|
|
x, y,
|
|
(unsigned) (ncells * FontWidth(screen)),
|
|
(unsigned) FontHeight(screen));
|
|
}
|
|
|
|
y += font->ascent;
|
|
#if OPT_BOX_CHARS
|
|
{
|
|
/* adding code to substitute simulated line-drawing characters */
|
|
int last, first = 0;
|
|
Dimension old_wide, old_high = 0;
|
|
int curX = x;
|
|
|
|
for (last = 0; last < (int) len; last++) {
|
|
Boolean replace = False;
|
|
Boolean missing = False;
|
|
unsigned ch = (unsigned) text[last];
|
|
int filler = 0;
|
|
int nc;
|
|
#if OPT_WIDE_CHARS
|
|
int needed = my_wcwidth((wchar_t) ch);
|
|
XftFont *currFont = pickXftFont(needed, font, wfont);
|
|
|
|
if (xtermIsDecGraphic(ch)) {
|
|
/*
|
|
* Xft generally does not have the line-drawing characters
|
|
* in cells 1-31. Assume this (we cannot inspect the
|
|
* picture easily...), and attempt to fill in from real
|
|
* line-drawing character in the font at the Unicode
|
|
* position. Failing that, use our own box-characters.
|
|
*/
|
|
if (screen->force_box_chars
|
|
|| xtermXftMissing(xw, currFont, dec2ucs(ch))) {
|
|
missing = 1;
|
|
} else {
|
|
ch = dec2ucs(ch);
|
|
replace = True;
|
|
}
|
|
} else if (ch >= 256) {
|
|
/*
|
|
* If we're reading UTF-8 from the client, we may have a
|
|
* line-drawing character. Translate it back to our
|
|
* box-code if Xft tells us that the glyph is missing.
|
|
*/
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
unsigned part = ucs2dec(ch);
|
|
if (xtermIsDecGraphic(part)) {
|
|
if (screen->force_box_chars
|
|
|| xtermXftMissing(xw, currFont, ch)) {
|
|
ch = part;
|
|
missing = True;
|
|
}
|
|
} else if (xtermXftMissing(xw, currFont, ch)) {
|
|
XftFont *test = pickXftFont(needed, font0, wfont0);
|
|
if (!xtermXftMissing(xw, test, ch)) {
|
|
currFont = test;
|
|
replace = True;
|
|
filler = needed - 1;
|
|
} else if ((part = AsciiEquivs(ch)) != ch) {
|
|
filler = needed - 1;
|
|
ch = part;
|
|
replace = True;
|
|
}
|
|
}
|
|
});
|
|
}
|
|
#else
|
|
XftFont *currFont = font;
|
|
if (xtermIsDecGraphic(ch)) {
|
|
/*
|
|
* Xft generally does not have the line-drawing characters
|
|
* in cells 1-31. Check for this, and attempt to fill in
|
|
* from real line-drawing character in the font at the
|
|
* Unicode position. Failing that, use our own
|
|
* box-characters.
|
|
*/
|
|
if (xtermXftMissing(xw, currFont, ch)) {
|
|
missing = 1;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* If we now have one of our box-codes, draw it directly.
|
|
*/
|
|
if (missing || replace) {
|
|
/* line drawing character time */
|
|
if (last > first) {
|
|
nc = drawClippedXftString(xw,
|
|
attr_flags,
|
|
currFont,
|
|
getXftColor(xw, values.foreground),
|
|
curX,
|
|
y,
|
|
text + first,
|
|
(Cardinal) (last - first));
|
|
curX += nc * FontWidth(screen);
|
|
underline_len += (Cardinal) nc;
|
|
}
|
|
if (missing) {
|
|
old_wide = screen->fnt_wide;
|
|
old_high = screen->fnt_high;
|
|
screen->fnt_wide = (Dimension) FontWidth(screen);
|
|
screen->fnt_high = (Dimension) FontHeight(screen);
|
|
xtermDrawBoxChar(xw, ch,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc,
|
|
curX, y - FontAscent(screen), 1);
|
|
curX += FontWidth(screen);
|
|
underline_len += 1;
|
|
screen->fnt_wide = old_wide;
|
|
screen->fnt_high = old_high;
|
|
} else {
|
|
IChar ch2 = (IChar) ch;
|
|
nc = drawClippedXftString(xw,
|
|
attr_flags,
|
|
currFont,
|
|
getXftColor(xw, values.foreground),
|
|
curX,
|
|
y,
|
|
&ch2,
|
|
1);
|
|
curX += nc * FontWidth(screen);
|
|
underline_len += (Cardinal) nc;
|
|
if (filler) {
|
|
ch2 = ' ';
|
|
nc = drawClippedXftString(xw,
|
|
attr_flags,
|
|
currFont,
|
|
getXftColor(xw, values.foreground),
|
|
curX,
|
|
y,
|
|
&ch2,
|
|
1);
|
|
curX += nc * FontWidth(screen);
|
|
underline_len += (Cardinal) nc;
|
|
}
|
|
}
|
|
first = last + 1;
|
|
}
|
|
}
|
|
if (last > first) {
|
|
underline_len += (Cardinal)
|
|
drawClippedXftString(xw,
|
|
attr_flags,
|
|
font,
|
|
getXftColor(xw, values.foreground),
|
|
curX,
|
|
y,
|
|
text + first,
|
|
(Cardinal) (last - first));
|
|
}
|
|
}
|
|
#else
|
|
{
|
|
underline_len += (Cardinal)
|
|
drawClippedXftString(xw,
|
|
attr_flags,
|
|
font,
|
|
getXftColor(xw, values.foreground),
|
|
x,
|
|
y,
|
|
text,
|
|
len);
|
|
}
|
|
#endif /* OPT_BOX_CHARS */
|
|
|
|
(void) drawUnderline(xw,
|
|
gc,
|
|
attr_flags,
|
|
underline_len,
|
|
FontWidth(screen),
|
|
x,
|
|
y,
|
|
did_ul);
|
|
|
|
x += (int) len *FontWidth(screen);
|
|
|
|
return x;
|
|
}
|
|
#endif /* OPT_RENDERFONT */
|
|
curFont = ((attr_flags & BOLDATTR(screen))
|
|
? WhichVFontData(screen, fnts[fBold])
|
|
: WhichVFontData(screen, fnts[fNorm]));
|
|
/*
|
|
* If we're asked to display a proportional font, do this with a fixed
|
|
* pitch. Yes, it's ugly. But we cannot distinguish the use of xterm
|
|
* as a dumb terminal vs its use as in fullscreen programs such as vi.
|
|
* Hint: do not try to use a proportional font in the icon.
|
|
*/
|
|
if (!IsIcon(screen) && !(draw_flags & CHARBYCHAR) && screen->fnt_prop) {
|
|
int adj, width;
|
|
|
|
while (len--) {
|
|
int cells = WideCells(*text);
|
|
#if OPT_BOX_CHARS
|
|
#if OPT_WIDE_CHARS
|
|
if (*text == HIDDEN_CHAR) {
|
|
++text;
|
|
continue;
|
|
} else
|
|
#endif
|
|
if (IsXtermMissingChar(screen, *text, curFont)) {
|
|
adj = 0;
|
|
} else
|
|
#endif
|
|
{
|
|
if_WIDE_OR_NARROW(screen, {
|
|
XChar2b temp[1];
|
|
temp[0].byte2 = LO_BYTE(*text);
|
|
temp[0].byte1 = HI_BYTE(*text);
|
|
width = XTextWidth16(curFont->fs, temp, 1);
|
|
}
|
|
, {
|
|
char temp[1];
|
|
temp[0] = (char) LO_BYTE(*text);
|
|
width = XTextWidth(curFont->fs, temp, 1);
|
|
});
|
|
adj = (FontWidth(screen) - width) / 2;
|
|
if (adj < 0)
|
|
adj = 0;
|
|
}
|
|
xtermFillCells(xw, draw_flags, gc, x, y, (Cardinal) cells);
|
|
x = drawXtermText(xw,
|
|
attr_flags,
|
|
draw_flags | NOBACKGROUND | CHARBYCHAR,
|
|
gc, x + adj, y, chrset,
|
|
text++, 1, on_wide) - adj;
|
|
}
|
|
|
|
return x;
|
|
}
|
|
#if OPT_BOX_CHARS
|
|
/*
|
|
* Draw some substitutions, if needed. The font may not include the
|
|
* line-drawing set, or it may be incomplete (in which case we'll draw an
|
|
* empty space via xtermDrawBoxChar), or we may be told to force our
|
|
* line-drawing.
|
|
*
|
|
* The empty space is a special case which can be overridden with the
|
|
* showMissingGlyphs resource to produce an outline. Not all fonts in
|
|
* "modern" (sic) X provide an empty space; some use a thick outline or
|
|
* something like the replacement character. If you would rather not see
|
|
* that, you can set assumeAllChars.
|
|
*/
|
|
if (!IsIcon(screen)
|
|
&& !(draw_flags & NOTRANSLATION)
|
|
&& (!screen->fnt_boxes
|
|
|| (FontIsIncomplete(curFont) && !screen->assume_all_chars)
|
|
|| screen->force_box_chars)) {
|
|
/* Fill in missing box-characters.
|
|
Find regions without missing characters, and draw
|
|
them calling ourselves recursively. Draw missing
|
|
characters via xtermDrawBoxChar(). */
|
|
int last, first = 0;
|
|
Bool drewBoxes = False;
|
|
|
|
for (last = 0; last < (int) len; last++) {
|
|
unsigned ch = (unsigned) text[last];
|
|
Bool isMissing;
|
|
int ch_width;
|
|
#if OPT_WIDE_CHARS
|
|
|
|
if (ch == HIDDEN_CHAR) {
|
|
if (last > first) {
|
|
x = drawXtermText(xw,
|
|
attr_flags,
|
|
draw_flags | NOTRANSLATION,
|
|
gc,
|
|
x, y,
|
|
chrset, text + first,
|
|
(unsigned) (last - first), on_wide);
|
|
}
|
|
first = last + 1;
|
|
drewBoxes = True;
|
|
continue;
|
|
}
|
|
ch_width = my_wcwidth((wchar_t) ch);
|
|
isMissing =
|
|
IsXtermMissingChar(screen, ch,
|
|
((on_wide || ch_width > 1)
|
|
&& okFont(NormalWFont(screen)))
|
|
? WhichVFontData(screen, fnts[fWide])
|
|
: curFont);
|
|
#else
|
|
isMissing = IsXtermMissingChar(screen, ch, curFont);
|
|
ch_width = 1;
|
|
#endif
|
|
/*
|
|
* If the character is not missing, but we're in wide-character
|
|
* mode and the character happens to be a wide-character that
|
|
* corresponds to the line-drawing set, allow the forceBoxChars
|
|
* resource (or menu entry) to force it to display using our
|
|
* tables.
|
|
*/
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
if (!isMissing
|
|
&& TScreenOf(xw)->force_box_chars) {
|
|
if (ch > 255
|
|
&& ucs2dec(ch) < 32) {
|
|
ch = ucs2dec(ch);
|
|
isMissing = True;
|
|
} else if (ch < 32) {
|
|
isMissing = True;
|
|
}
|
|
}
|
|
});
|
|
|
|
if (isMissing) {
|
|
if (last > first) {
|
|
x = drawXtermText(xw,
|
|
attr_flags,
|
|
draw_flags | NOTRANSLATION,
|
|
gc,
|
|
x, y,
|
|
chrset, text + first,
|
|
(unsigned) (last - first), on_wide);
|
|
}
|
|
#if OPT_WIDE_CHARS
|
|
/*
|
|
* One way or another, we will draw at least one cell.
|
|
*/
|
|
if (ch_width <= 0)
|
|
ch_width = 1;
|
|
if (!ucs_workaround(xw, ch,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc, x, y, chrset, on_wide)) {
|
|
xtermDrawBoxChar(xw, ch,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc, x, y, ch_width);
|
|
}
|
|
#else
|
|
xtermDrawBoxChar(xw, ch,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc, x, y, ch_width);
|
|
#endif
|
|
x += (ch_width * FontWidth(screen));
|
|
first = last + 1;
|
|
drewBoxes = True;
|
|
}
|
|
}
|
|
if (last <= first) {
|
|
return x;
|
|
}
|
|
text += first;
|
|
len = (Cardinal) (last - first);
|
|
draw_flags |= NOTRANSLATION;
|
|
if (drewBoxes) {
|
|
return drawXtermText(xw,
|
|
attr_flags,
|
|
draw_flags,
|
|
gc,
|
|
x,
|
|
y,
|
|
chrset,
|
|
text,
|
|
len,
|
|
on_wide);
|
|
}
|
|
}
|
|
#endif /* OPT_BOX_CHARS */
|
|
/*
|
|
* Behave as if the font has (maybe Unicode-replacements for) drawing
|
|
* characters in the range 1-31 (either we were not asked to ignore them,
|
|
* or the caller made sure that there is none).
|
|
*/
|
|
#if OPT_WIDE_ATTRS
|
|
#define AttrFlags() attr_flags
|
|
#define DrawFlags() draw_flags
|
|
#else
|
|
#define AttrFlags() (attr_flags & DRAWX_MASK)
|
|
#define DrawFlags() (draw_flags & ~DRAWX_MASK)
|
|
#endif
|
|
TRACE(("drawtext%c[%4d,%4d] {%#x,%#x} (%d) %d:%s\n",
|
|
screen->cursor_state == OFF ? ' ' : '*',
|
|
y, x,
|
|
AttrFlags(),
|
|
DrawFlags(),
|
|
chrset, len,
|
|
visibleIChars(text, len)));
|
|
if (screen->scale_height != 1.0) {
|
|
xtermFillCells(xw, draw_flags, gc, x, y, (Cardinal) len);
|
|
}
|
|
y += FontAscent(screen);
|
|
|
|
#if OPT_WIDE_CHARS
|
|
|
|
if (screen->wide_chars || screen->unicode_font) {
|
|
XChar2b *buffer;
|
|
Bool needWide = False;
|
|
int src, dst;
|
|
Bool useBoldFont;
|
|
|
|
BumpTypedBuffer(XChar2b, len);
|
|
buffer = BfBuf(XChar2b);
|
|
|
|
for (src = dst = 0; src < (int) len; src++) {
|
|
IChar ch = text[src];
|
|
|
|
if (ch == HIDDEN_CHAR)
|
|
continue;
|
|
|
|
if (!needWide
|
|
&& !IsIcon(screen)
|
|
&& ((on_wide || my_wcwidth((wchar_t) ch) > 1)
|
|
&& okFont(NormalWFont(screen)))) {
|
|
needWide = True;
|
|
}
|
|
|
|
/*
|
|
* bitmap-fonts are limited to 16-bits.
|
|
*/
|
|
#if OPT_WIDER_ICHAR
|
|
if (ch > 0xffff) {
|
|
ch = UCS_REPL;
|
|
}
|
|
#endif
|
|
buffer[dst].byte2 = LO_BYTE(ch);
|
|
buffer[dst].byte1 = HI_BYTE(ch);
|
|
#if OPT_MINI_LUIT
|
|
#define UCS2SBUF(value) buffer[dst].byte2 = LO_BYTE(value);\
|
|
buffer[dst].byte1 = HI_BYTE(value)
|
|
|
|
#define Map2Sbuf(from,to) (text[src] == from) { UCS2SBUF(to); }
|
|
|
|
if (screen->latin9_mode && !screen->utf8_mode && text[src] < 256) {
|
|
|
|
/* see http://www.cs.tut.fi/~jkorpela/latin9.html */
|
|
/* *INDENT-OFF* */
|
|
if Map2Sbuf(0xa4, 0x20ac)
|
|
else if Map2Sbuf(0xa6, 0x0160)
|
|
else if Map2Sbuf(0xa8, 0x0161)
|
|
else if Map2Sbuf(0xb4, 0x017d)
|
|
else if Map2Sbuf(0xb8, 0x017e)
|
|
else if Map2Sbuf(0xbc, 0x0152)
|
|
else if Map2Sbuf(0xbd, 0x0153)
|
|
else if Map2Sbuf(0xbe, 0x0178)
|
|
/* *INDENT-ON* */
|
|
|
|
}
|
|
if (screen->unicode_font
|
|
&& (text[src] == ANSI_DEL ||
|
|
text[src] < ANSI_SPA)) {
|
|
unsigned ni = dec2ucs((unsigned) ((text[src] == ANSI_DEL)
|
|
? 0
|
|
: text[src]));
|
|
UCS2SBUF(ni);
|
|
}
|
|
#endif /* OPT_MINI_LUIT */
|
|
++dst;
|
|
}
|
|
|
|
/*
|
|
* Check for special case where the bold font lacks glyphs found in the
|
|
* normal font, and drop down to normal fonts with overstriking to help
|
|
* show the actual characters.
|
|
*/
|
|
useBoldFont = ((attr_flags & BOLDATTR(screen)) != 0);
|
|
if (useBoldFont) {
|
|
XTermFonts *norm = 0;
|
|
XTermFonts *bold = 0;
|
|
Bool noBold, noNorm;
|
|
|
|
if (needWide && okFont(BoldWFont(screen))) {
|
|
norm = WhichVFontData(screen, fnts[fWide]);
|
|
bold = WhichVFontData(screen, fnts[fWBold]);
|
|
} else if (okFont(BoldFont(screen))) {
|
|
norm = WhichVFontData(screen, fnts[fNorm]);
|
|
bold = WhichVFontData(screen, fnts[fBold]);
|
|
} else {
|
|
useBoldFont = False;
|
|
}
|
|
|
|
if (useBoldFont && FontIsIncomplete(bold)) {
|
|
for (src = 0; src < (int) len; src++) {
|
|
IChar ch = text[src];
|
|
|
|
if (ch == HIDDEN_CHAR)
|
|
continue;
|
|
|
|
noBold = IsXtermMissingChar(screen, ch, bold);
|
|
if (noBold) {
|
|
noNorm = IsXtermMissingChar(screen, ch, norm);
|
|
if (!noNorm) {
|
|
useBoldFont = False;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* FIXME This is probably wrong. But it works. */
|
|
underline_len = len;
|
|
|
|
/* Set the drawing font */
|
|
if (!(draw_flags & (DOUBLEHFONT | DOUBLEWFONT))) {
|
|
VTwin *currentWin = WhichVWin(screen);
|
|
VTFontEnum fntId;
|
|
CgsEnum cgsId;
|
|
Pixel fg = getCgsFore(xw, currentWin, gc);
|
|
Pixel bg = getCgsBack(xw, currentWin, gc);
|
|
|
|
if (needWide
|
|
&& useBoldFont
|
|
&& okFont(BoldWFont(screen))) {
|
|
fntId = fWBold;
|
|
cgsId = gcWBold;
|
|
} else if (needWide) {
|
|
fntId = fWide;
|
|
cgsId = gcWide;
|
|
} else if (useBoldFont) {
|
|
fntId = fBold;
|
|
cgsId = gcBold;
|
|
} else {
|
|
fntId = fNorm;
|
|
cgsId = gcNorm;
|
|
}
|
|
|
|
setCgsFore(xw, currentWin, cgsId, fg);
|
|
setCgsBack(xw, currentWin, cgsId, bg);
|
|
gc = getCgsGC(xw, currentWin, cgsId);
|
|
|
|
#if OPT_WIDE_ATTRS
|
|
#if OPT_DEC_CHRSET
|
|
if (!(CSET_DOUBLE(chrset) || (draw_flags & DOUBLEWFONT)))
|
|
#endif
|
|
need_clipping = fixupItalics(xw, draw_flags, gc,
|
|
getCgsFont(xw, currentWin, gc),
|
|
y, x, font_width, len);
|
|
#endif
|
|
if (fntId != fNorm) {
|
|
XFontStruct *thisFp = WhichVFont(screen, fnts[fntId].fs);
|
|
ascent_adjust = (thisFp->ascent
|
|
- NormalFont(screen)->ascent);
|
|
if (thisFp->max_bounds.width ==
|
|
NormalFont(screen)->max_bounds.width * 2) {
|
|
underline_len = real_length = (Cardinal) (dst * 2);
|
|
} else if (cgsId == gcWide || cgsId == gcWBold) {
|
|
underline_len = real_length = (Cardinal) (dst * 2);
|
|
xtermFillCells(xw,
|
|
draw_flags,
|
|
gc,
|
|
x,
|
|
y - thisFp->ascent,
|
|
real_length);
|
|
}
|
|
}
|
|
}
|
|
|
|
if (draw_flags & NOBACKGROUND) {
|
|
XDrawString16(screen->display,
|
|
VDrawable(screen), gc,
|
|
x, y + ascent_adjust,
|
|
buffer, dst);
|
|
} else {
|
|
XDrawImageString16(screen->display,
|
|
VDrawable(screen), gc,
|
|
x, y + ascent_adjust,
|
|
buffer, dst);
|
|
}
|
|
#if OPT_WIDE_ATTRS
|
|
if (need_clipping) {
|
|
endClipping(screen, gc);
|
|
}
|
|
#endif
|
|
|
|
if ((attr_flags & BOLDATTR(screen)) && (screen->enbolden || !useBoldFont)) {
|
|
beginClipping(screen, gc, (Cardinal) font_width, len);
|
|
XDrawString16(screen->display, VDrawable(screen), gc,
|
|
x + 1,
|
|
y + ascent_adjust,
|
|
buffer, dst);
|
|
endClipping(screen, gc);
|
|
}
|
|
|
|
} else
|
|
#endif /* OPT_WIDE_CHARS */
|
|
{
|
|
int length = (int) len; /* X should have used unsigned */
|
|
#if OPT_WIDE_CHARS
|
|
char *buffer;
|
|
int dst;
|
|
|
|
BumpTypedBuffer(char, len);
|
|
buffer = BfBuf(char);
|
|
|
|
for (dst = 0; dst < length; ++dst)
|
|
buffer[dst] = (char) LO_BYTE(text[dst]);
|
|
#else
|
|
char *buffer = (char *) text;
|
|
#endif
|
|
|
|
#if OPT_WIDE_ATTRS
|
|
#if OPT_DEC_CHRSET
|
|
if (!(CSET_DOUBLE(chrset) || (draw_flags & DOUBLEWFONT)))
|
|
#endif
|
|
need_clipping = fixupItalics(xw, draw_flags, gc, curFont,
|
|
y, x, font_width, len);
|
|
#endif
|
|
|
|
if (draw_flags & NOBACKGROUND) {
|
|
XDrawString(screen->display, VDrawable(screen), gc,
|
|
x, y, buffer, length);
|
|
} else {
|
|
XDrawImageString(screen->display, VDrawable(screen), gc,
|
|
x, y, buffer, length);
|
|
}
|
|
|
|
#if OPT_WIDE_ATTRS
|
|
if (need_clipping) {
|
|
endClipping(screen, gc);
|
|
}
|
|
#endif
|
|
underline_len = (Cardinal) length;
|
|
if ((attr_flags & BOLDATTR(screen)) && screen->enbolden) {
|
|
beginClipping(screen, gc, font_width, length);
|
|
XDrawString(screen->display, VDrawable(screen), gc,
|
|
x + 1, y, buffer, length);
|
|
endClipping(screen, gc);
|
|
}
|
|
}
|
|
|
|
(void) drawUnderline(xw,
|
|
gc,
|
|
attr_flags,
|
|
underline_len,
|
|
font_width,
|
|
x,
|
|
y,
|
|
did_ul);
|
|
|
|
x += ((int) real_length) * FontWidth(screen);
|
|
return x;
|
|
}
|
|
|
|
#if OPT_WIDE_CHARS
|
|
/*
|
|
* Allocate buffer - workaround for wide-character interfaces.
|
|
*/
|
|
void
|
|
allocXtermChars(ScrnPtr *buffer, Cardinal length)
|
|
{
|
|
if (*buffer == 0) {
|
|
*buffer = (ScrnPtr) XtMalloc(length);
|
|
} else {
|
|
*buffer = (ScrnPtr) XtRealloc((char *) *buffer, length);
|
|
}
|
|
}
|
|
#endif
|
|
|
|
/* set up size hints for window manager; min 1 char by 1 char */
|
|
void
|
|
xtermSizeHints(XtermWidget xw, int scrollbarWidth)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
TRACE(("xtermSizeHints\n"));
|
|
TRACE((" border %d\n", xw->core.border_width));
|
|
TRACE((" scrollbar %d\n", scrollbarWidth));
|
|
|
|
xw->hints.base_width = 2 * screen->border + scrollbarWidth;
|
|
xw->hints.base_height = 2 * screen->border;
|
|
|
|
#if OPT_TOOLBAR
|
|
TRACE((" toolbar %d\n", ToolbarHeight(xw)));
|
|
|
|
xw->hints.base_height += ToolbarHeight(xw);
|
|
xw->hints.base_height += BorderWidth(xw) * 2;
|
|
xw->hints.base_width += BorderWidth(xw) * 2;
|
|
#endif
|
|
|
|
xw->hints.width_inc = FontWidth(screen);
|
|
xw->hints.height_inc = FontHeight(screen);
|
|
xw->hints.min_width = xw->hints.base_width + xw->hints.width_inc;
|
|
xw->hints.min_height = xw->hints.base_height + xw->hints.height_inc;
|
|
|
|
xw->hints.width = MaxCols(screen) * FontWidth(screen) + xw->hints.min_width;
|
|
xw->hints.height = MaxRows(screen) * FontHeight(screen) + xw->hints.min_height;
|
|
|
|
xw->hints.flags |= (PSize | PBaseSize | PMinSize | PResizeInc);
|
|
|
|
TRACE_HINTS(&(xw->hints));
|
|
}
|
|
|
|
void
|
|
getXtermSizeHints(XtermWidget xw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
long supp;
|
|
|
|
if (!XGetWMNormalHints(screen->display, VShellWindow(xw),
|
|
&xw->hints, &supp))
|
|
memset(&xw->hints, 0, sizeof(xw->hints));
|
|
TRACE_HINTS(&(xw->hints));
|
|
}
|
|
|
|
CgsEnum
|
|
whichXtermCgs(XtermWidget xw, unsigned attr_flags, Bool hilite)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
CgsEnum cgsId = gcMAX;
|
|
|
|
if (ReverseOrHilite(screen, attr_flags, hilite)) {
|
|
if (attr_flags & BOLDATTR(screen)) {
|
|
cgsId = gcBoldReverse;
|
|
} else {
|
|
cgsId = gcNormReverse;
|
|
}
|
|
} else {
|
|
if (attr_flags & BOLDATTR(screen)) {
|
|
cgsId = gcBold;
|
|
} else {
|
|
cgsId = gcNorm;
|
|
}
|
|
}
|
|
return cgsId;
|
|
}
|
|
|
|
/*
|
|
* Returns a GC, selected according to the font (reverse/bold/normal) that is
|
|
* required for the current position (implied). The GC is updated with the
|
|
* current screen foreground and background colors.
|
|
*/
|
|
GC
|
|
updatedXtermGC(XtermWidget xw, unsigned attr_flags, unsigned fg_bg, Bool hilite)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
VTwin *win = WhichVWin(screen);
|
|
CgsEnum cgsId = whichXtermCgs(xw, attr_flags, hilite);
|
|
unsigned my_fg = extract_fg(xw, fg_bg, attr_flags);
|
|
unsigned my_bg = extract_bg(xw, fg_bg, attr_flags);
|
|
Pixel fg_pix = getXtermForeground(xw, attr_flags, (int) my_fg);
|
|
Pixel bg_pix = getXtermBackground(xw, attr_flags, (int) my_bg);
|
|
Pixel xx_pix;
|
|
#if OPT_HIGHLIGHT_COLOR
|
|
Pixel selbg_pix = T_COLOR(screen, HIGHLIGHT_BG);
|
|
Pixel selfg_pix = T_COLOR(screen, HIGHLIGHT_FG);
|
|
Boolean always = screen->hilite_color;
|
|
Boolean use_selbg = (Boolean) (always ||
|
|
isNotForeground(xw, fg_pix, bg_pix, selbg_pix));
|
|
Boolean use_selfg = (Boolean) (always &&
|
|
isNotBackground(xw, fg_pix, bg_pix, selfg_pix));
|
|
#endif
|
|
|
|
(void) fg_bg;
|
|
(void) my_bg;
|
|
(void) my_fg;
|
|
|
|
/*
|
|
* Discard video attributes overridden by colorXXXMode's.
|
|
*/
|
|
checkVeryBoldColors(attr_flags, my_fg);
|
|
|
|
if (ReverseOrHilite(screen, attr_flags, hilite)) {
|
|
#if OPT_HIGHLIGHT_COLOR
|
|
if (!screen->hilite_color) {
|
|
if (selbg_pix != T_COLOR(screen, TEXT_FG)
|
|
&& selbg_pix != fg_pix
|
|
&& selbg_pix != bg_pix
|
|
&& selbg_pix != xw->dft_foreground) {
|
|
bg_pix = fg_pix;
|
|
fg_pix = selbg_pix;
|
|
}
|
|
}
|
|
#endif
|
|
EXCHANGE(fg_pix, bg_pix, xx_pix);
|
|
#if OPT_HIGHLIGHT_COLOR
|
|
if (screen->hilite_color) {
|
|
if (screen->hilite_reverse) {
|
|
if (use_selbg) {
|
|
if (use_selfg)
|
|
bg_pix = fg_pix;
|
|
else
|
|
fg_pix = bg_pix;
|
|
}
|
|
if (use_selbg)
|
|
bg_pix = selbg_pix;
|
|
if (use_selfg)
|
|
fg_pix = selfg_pix;
|
|
}
|
|
}
|
|
#endif
|
|
}
|
|
#if OPT_HIGHLIGHT_COLOR
|
|
if (!screen->hilite_color || !screen->hilite_reverse) {
|
|
if (hilite && !screen->hilite_reverse) {
|
|
if (use_selbg)
|
|
bg_pix = selbg_pix;
|
|
if (use_selfg)
|
|
fg_pix = selfg_pix;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
#if OPT_BLINK_TEXT
|
|
if ((screen->blink_state == ON) &&
|
|
(!screen->blink_as_bold) &&
|
|
(attr_flags & BLINK)) {
|
|
fg_pix = bg_pix;
|
|
}
|
|
#endif
|
|
|
|
setCgsFore(xw, win, cgsId, fg_pix);
|
|
setCgsBack(xw, win, cgsId, bg_pix);
|
|
return getCgsGC(xw, win, cgsId);
|
|
}
|
|
|
|
/*
|
|
* Resets the foreground/background of the GC returned by 'updatedXtermGC()'
|
|
* to the values that would be set in SGR_Foreground and SGR_Background. This
|
|
* duplicates some logic, but only modifies 1/4 as many GC's.
|
|
*/
|
|
void
|
|
resetXtermGC(XtermWidget xw, unsigned attr_flags, Bool hilite)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
VTwin *win = WhichVWin(screen);
|
|
CgsEnum cgsId = whichXtermCgs(xw, attr_flags, hilite);
|
|
Pixel fg_pix = getXtermForeground(xw, attr_flags, xw->cur_foreground);
|
|
Pixel bg_pix = getXtermBackground(xw, attr_flags, xw->cur_background);
|
|
|
|
checkVeryBoldColors(attr_flags, xw->cur_foreground);
|
|
|
|
if (ReverseOrHilite(screen, attr_flags, hilite)) {
|
|
setCgsFore(xw, win, cgsId, bg_pix);
|
|
setCgsBack(xw, win, cgsId, fg_pix);
|
|
} else {
|
|
setCgsFore(xw, win, cgsId, fg_pix);
|
|
setCgsBack(xw, win, cgsId, bg_pix);
|
|
}
|
|
}
|
|
|
|
#if OPT_ISO_COLORS
|
|
/*
|
|
* Extract the foreground-color index from a color pair.
|
|
* If we've got BOLD or UNDERLINE color-mode active, those will be used.
|
|
*/
|
|
unsigned
|
|
extract_fg(XtermWidget xw, unsigned color, unsigned attr_flags)
|
|
{
|
|
unsigned fg = ExtractForeground(color);
|
|
|
|
if (TScreenOf(xw)->colorAttrMode
|
|
|| (fg == ExtractBackground(color))) {
|
|
fg = MapToColorMode(fg, TScreenOf(xw), attr_flags);
|
|
}
|
|
return fg;
|
|
}
|
|
|
|
/*
|
|
* Extract the background-color index from a color pair.
|
|
* If we've got INVERSE color-mode active, that will be used.
|
|
*/
|
|
unsigned
|
|
extract_bg(XtermWidget xw, unsigned color, unsigned attr_flags)
|
|
{
|
|
unsigned bg = ExtractBackground(color);
|
|
|
|
if (TScreenOf(xw)->colorAttrMode
|
|
|| (bg == ExtractForeground(color))) {
|
|
if (TScreenOf(xw)->colorRVMode && (attr_flags & INVERSE))
|
|
bg = COLOR_RV;
|
|
}
|
|
return bg;
|
|
}
|
|
|
|
/*
|
|
* Combine the current foreground and background into a single 8-bit number.
|
|
* Note that we're storing the SGR foreground, since cur_foreground may be set
|
|
* to COLOR_UL, COLOR_BD or COLOR_BL, which would make the code larger than 8
|
|
* bits.
|
|
*
|
|
* This assumes that fg/bg are equal when we override with one of the special
|
|
* attribute colors.
|
|
*/
|
|
CellColor
|
|
makeColorPair(int fg, int bg)
|
|
{
|
|
unsigned my_bg = (bg >= 0) && (bg < NUM_ANSI_COLORS) ? (unsigned) bg : 0;
|
|
unsigned my_fg = (fg >= 0) && (fg < NUM_ANSI_COLORS) ? (unsigned) fg : my_bg;
|
|
|
|
return (CellColor) (my_fg | (my_bg << COLOR_BITS));
|
|
}
|
|
|
|
/*
|
|
* Using the "current" SGR background, clear a rectangle.
|
|
*/
|
|
void
|
|
ClearCurBackground(XtermWidget xw,
|
|
int top,
|
|
int left,
|
|
unsigned height,
|
|
unsigned width,
|
|
unsigned fw)
|
|
{
|
|
TScreen *screen = TScreenOf(xw);
|
|
|
|
TRACE(("ClearCurBackground %d,%d %dx%d with %d\n",
|
|
top, left, height, width, xw->cur_background));
|
|
|
|
assert((int) width > 0);
|
|
assert((left + (int) width) <= screen->max_col + 1);
|
|
assert((int) height <= screen->max_row + 1);
|
|
|
|
if (VWindow(screen)) {
|
|
set_background(xw, xw->cur_background);
|
|
|
|
#if OPT_DOUBLE_BUFFER
|
|
XFillRectangle(screen->display, VDrawable(screen),
|
|
ReverseGC(xw, screen),
|
|
CursorX2(screen, left, fw),
|
|
CursorY(screen, top),
|
|
(width * fw),
|
|
(height * (unsigned) FontHeight(screen)));
|
|
#else
|
|
XClearArea(screen->display, VWindow(screen),
|
|
CursorX2(screen, left, fw),
|
|
CursorY2(screen, top),
|
|
(width * fw),
|
|
(height * (unsigned) FontHeight(screen)),
|
|
False);
|
|
#endif
|
|
|
|
set_background(xw, -1);
|
|
}
|
|
}
|
|
#endif /* OPT_ISO_COLORS */
|
|
|
|
Pixel
|
|
getXtermBackground(XtermWidget xw, unsigned attr_flags, int color)
|
|
{
|
|
Pixel result = T_COLOR(TScreenOf(xw), TEXT_BG);
|
|
#if OPT_ISO_COLORS
|
|
if ((attr_flags & BG_COLOR) && (color >= 0 && color < MAXCOLORS)) {
|
|
result = GET_COLOR_RES(xw, TScreenOf(xw)->Acolors[color]);
|
|
}
|
|
#endif
|
|
return result;
|
|
}
|
|
|
|
Pixel
|
|
getXtermForeground(XtermWidget xw, unsigned attr_flags, int color)
|
|
{
|
|
Pixel result = T_COLOR(TScreenOf(xw), TEXT_FG);
|
|
#if OPT_ISO_COLORS
|
|
if ((attr_flags & FG_COLOR) && (color >= 0 && color < MAXCOLORS)) {
|
|
result = GET_COLOR_RES(xw, TScreenOf(xw)->Acolors[color]);
|
|
}
|
|
#endif
|
|
#if OPT_WIDE_ATTRS
|
|
#define DIM_IT(n) work.n = (unsigned short) ((2 * work.n) / 3)
|
|
if ((attr_flags & ATR_FAINT)) {
|
|
static Pixel last_in;
|
|
static Pixel last_out;
|
|
if (result != last_in) {
|
|
XColor work;
|
|
work.pixel = result;
|
|
last_in = result;
|
|
if (XQueryColor(TScreenOf(xw)->display, xw->core.colormap, &work)) {
|
|
DIM_IT(red);
|
|
DIM_IT(green);
|
|
DIM_IT(blue);
|
|
if (allocateBestRGB(xw, &work)) {
|
|
result = work.pixel;
|
|
}
|
|
}
|
|
last_out = result;
|
|
} else {
|
|
result = last_out;
|
|
}
|
|
}
|
|
#endif
|
|
return result;
|
|
}
|
|
|
|
/*
|
|
* Returns a single base character for the given cell.
|
|
*/
|
|
unsigned
|
|
getXtermCell(TScreen *screen, int row, int col)
|
|
{
|
|
CLineData *ld = getLineData(screen, row);
|
|
|
|
return ((ld && (col < (int) ld->lineSize))
|
|
? ld->charData[col]
|
|
: (unsigned) ' ');
|
|
}
|
|
|
|
/*
|
|
* Sets a single base character for the given cell.
|
|
*/
|
|
void
|
|
putXtermCell(TScreen *screen, int row, int col, int ch)
|
|
{
|
|
LineData *ld = getLineData(screen, row);
|
|
|
|
if (ld && (col < (int) ld->lineSize)) {
|
|
ld->charData[col] = (CharData) ch;
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
size_t off;
|
|
for_each_combData(off, ld) {
|
|
ld->combData[off][col] = 0;
|
|
}
|
|
});
|
|
}
|
|
}
|
|
|
|
#if OPT_WIDE_CHARS
|
|
/*
|
|
* Add a combining character for the given cell
|
|
*/
|
|
void
|
|
addXtermCombining(TScreen *screen, int row, int col, unsigned ch)
|
|
{
|
|
if (ch != 0) {
|
|
LineData *ld = getLineData(screen, row);
|
|
size_t off;
|
|
|
|
TRACE(("addXtermCombining %d,%d %#x (%d)\n",
|
|
row, col, ch, my_wcwidth((wchar_t) ch)));
|
|
|
|
for_each_combData(off, ld) {
|
|
if (!ld->combData[off][col]) {
|
|
ld->combData[off][col] = (CharData) ch;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
unsigned
|
|
getXtermCombining(TScreen *screen, int row, int col, int off)
|
|
{
|
|
CLineData *ld = getLineData(screen, row);
|
|
return ld->combData[off][col];
|
|
}
|
|
#endif
|
|
|
|
void
|
|
update_keyboard_type(void)
|
|
{
|
|
update_delete_del();
|
|
update_tcap_fkeys();
|
|
update_old_fkeys();
|
|
update_hp_fkeys();
|
|
update_sco_fkeys();
|
|
update_sun_fkeys();
|
|
update_sun_kbd();
|
|
}
|
|
|
|
void
|
|
set_keyboard_type(XtermWidget xw, xtermKeyboardType type, Bool set)
|
|
{
|
|
xtermKeyboardType save = xw->keyboard.type;
|
|
|
|
TRACE(("set_keyboard_type(%s, %s) currently %s\n",
|
|
visibleKeyboardType(type),
|
|
BtoS(set),
|
|
visibleKeyboardType(xw->keyboard.type)));
|
|
if (set) {
|
|
xw->keyboard.type = type;
|
|
} else {
|
|
xw->keyboard.type = keyboardIsDefault;
|
|
}
|
|
|
|
if (save != xw->keyboard.type) {
|
|
update_keyboard_type();
|
|
}
|
|
}
|
|
|
|
void
|
|
toggle_keyboard_type(XtermWidget xw, xtermKeyboardType type)
|
|
{
|
|
xtermKeyboardType save = xw->keyboard.type;
|
|
|
|
TRACE(("toggle_keyboard_type(%s) currently %s\n",
|
|
visibleKeyboardType(type),
|
|
visibleKeyboardType(xw->keyboard.type)));
|
|
if (xw->keyboard.type == type) {
|
|
xw->keyboard.type = keyboardIsDefault;
|
|
} else {
|
|
xw->keyboard.type = type;
|
|
}
|
|
|
|
if (save != xw->keyboard.type) {
|
|
update_keyboard_type();
|
|
}
|
|
}
|
|
|
|
void
|
|
init_keyboard_type(XtermWidget xw, xtermKeyboardType type, Bool set)
|
|
{
|
|
static Bool wasSet = False;
|
|
|
|
TRACE(("init_keyboard_type(%s, %s) currently %s\n",
|
|
visibleKeyboardType(type),
|
|
BtoS(set),
|
|
visibleKeyboardType(xw->keyboard.type)));
|
|
if (set) {
|
|
if (wasSet) {
|
|
xtermWarning("Conflicting keyboard type option (%u/%u)\n",
|
|
xw->keyboard.type, type);
|
|
}
|
|
xw->keyboard.type = type;
|
|
wasSet = True;
|
|
update_keyboard_type();
|
|
}
|
|
}
|
|
|
|
/*
|
|
* If the keyboardType resource is set, use that, overriding the individual
|
|
* boolean resources for different keyboard types.
|
|
*/
|
|
void
|
|
decode_keyboard_type(XtermWidget xw, XTERM_RESOURCE * rp)
|
|
{
|
|
#define DATA(n, t, f) { n, t, XtOffsetOf(XTERM_RESOURCE, f) }
|
|
#define FLAG(n) *(Boolean *)(((char *)rp) + table[n].offset)
|
|
static struct {
|
|
const char *name;
|
|
xtermKeyboardType type;
|
|
unsigned offset;
|
|
} table[] = {
|
|
#if OPT_HP_FUNC_KEYS
|
|
DATA(NAME_HP_KT, keyboardIsHP, hpFunctionKeys),
|
|
#endif
|
|
#if OPT_SCO_FUNC_KEYS
|
|
DATA(NAME_SCO_KT, keyboardIsSCO, scoFunctionKeys),
|
|
#endif
|
|
#if OPT_SUN_FUNC_KEYS
|
|
DATA(NAME_SUN_KT, keyboardIsSun, sunFunctionKeys),
|
|
#endif
|
|
#if OPT_SUNPC_KBD
|
|
DATA(NAME_VT220_KT, keyboardIsVT220, sunKeyboard),
|
|
#endif
|
|
#if OPT_TCAP_FKEYS
|
|
DATA(NAME_TCAP_KT, keyboardIsTermcap, termcapKeys),
|
|
#endif
|
|
};
|
|
Cardinal n;
|
|
|
|
TRACE(("decode_keyboard_type(%s)\n", rp->keyboardType));
|
|
if (!x_strcasecmp(rp->keyboardType, "unknown")) {
|
|
/*
|
|
* Let the individual resources comprise the keyboard-type.
|
|
*/
|
|
for (n = 0; n < XtNumber(table); ++n)
|
|
init_keyboard_type(xw, table[n].type, FLAG(n));
|
|
} else if (!x_strcasecmp(rp->keyboardType, "default")) {
|
|
/*
|
|
* Set the keyboard-type to the Sun/PC type, allowing modified
|
|
* function keys, etc.
|
|
*/
|
|
for (n = 0; n < XtNumber(table); ++n)
|
|
init_keyboard_type(xw, table[n].type, False);
|
|
} else {
|
|
Bool found = False;
|
|
|
|
/*
|
|
* Choose an individual keyboard type.
|
|
*/
|
|
for (n = 0; n < XtNumber(table); ++n) {
|
|
if (!x_strcasecmp(rp->keyboardType, table[n].name + 1)) {
|
|
FLAG(n) = True;
|
|
found = True;
|
|
} else {
|
|
FLAG(n) = False;
|
|
}
|
|
init_keyboard_type(xw, table[n].type, FLAG(n));
|
|
}
|
|
if (!found) {
|
|
xtermWarning("KeyboardType resource \"%s\" not found\n",
|
|
rp->keyboardType);
|
|
}
|
|
}
|
|
#undef DATA
|
|
#undef FLAG
|
|
}
|
|
|
|
#if OPT_WIDE_CHARS
|
|
#if defined(HAVE_WCHAR_H) && defined(HAVE_WCWIDTH)
|
|
/*
|
|
* If xterm is running in a UTF-8 locale, it is still possible to encounter
|
|
* old runtime configurations which yield incomplete or inaccurate data.
|
|
*/
|
|
static Bool
|
|
systemWcwidthOk(int samplesize, int samplepass)
|
|
{
|
|
wchar_t n;
|
|
int oops = 0;
|
|
|
|
for (n = 21; n <= 25; ++n) {
|
|
wchar_t code = (wchar_t) dec2ucs((unsigned) n);
|
|
int system_code = wcwidth(code);
|
|
int intern_code = mk_wcwidth(code);
|
|
|
|
/*
|
|
* Solaris 10 wcwidth() returns "2" for all of the line-drawing (page
|
|
* 0x2500) and most of the geometric shapes (a few are excluded, just
|
|
* to make it more difficult to use). Do a sanity check to avoid using
|
|
* it.
|
|
*/
|
|
if ((system_code < 0 && intern_code >= 1)
|
|
|| (system_code >= 0 && intern_code != system_code)) {
|
|
TRACE(("systemWcwidthOk: broken system line-drawing wcwidth\n"));
|
|
oops += (samplepass + 1);
|
|
break;
|
|
}
|
|
}
|
|
|
|
for (n = 0; n < (wchar_t) samplesize; ++n) {
|
|
int system_code = wcwidth(n);
|
|
int intern_code = mk_wcwidth(n);
|
|
|
|
/*
|
|
* Since mk_wcwidth() is designed to check for nonspacing characters,
|
|
* and has rough range-checks for double-width characters, it will
|
|
* generally not detect cases where a code has not been assigned.
|
|
*
|
|
* Some experimentation with GNU libc suggests that up to 1/4 of the
|
|
* codes would differ, simply because the runtime library would have a
|
|
* table listing the unassigned codes, and return -1 for those. If
|
|
* mk_wcwidth() has no information about a code, it returns 1. On the
|
|
* other hand, if the runtime returns a positive number, the two should
|
|
* agree.
|
|
*
|
|
* The "up to" is measured for 4k, 8k, 16k of data. With only 1k, the
|
|
* number of differences was only 77. However, that is only one
|
|
* system, and this is only a sanity check to avoid using broken
|
|
* libraries.
|
|
*/
|
|
if ((system_code < 0 && intern_code >= 1)
|
|
|| (system_code >= 0 && intern_code != system_code)) {
|
|
++oops;
|
|
}
|
|
}
|
|
TRACE(("systemWcwidthOk: %d/%d mismatches, allowed %d\n",
|
|
oops, samplesize, samplepass));
|
|
return (oops <= samplepass);
|
|
}
|
|
#endif /* HAVE_WCWIDTH */
|
|
|
|
void
|
|
decode_wcwidth(XtermWidget xw)
|
|
{
|
|
int mode = ((xw->misc.cjk_width ? 2 : 0)
|
|
+ (xw->misc.mk_width ? 1 : 0)
|
|
+ 1);
|
|
|
|
switch (mode) {
|
|
default:
|
|
#if defined(HAVE_WCHAR_H) && defined(HAVE_WCWIDTH)
|
|
if (xtermEnvUTF8() &&
|
|
systemWcwidthOk(xw->misc.mk_samplesize, xw->misc.mk_samplepass)) {
|
|
my_wcwidth = wcwidth;
|
|
TRACE(("using system wcwidth() function\n"));
|
|
break;
|
|
}
|
|
/* FALLTHRU */
|
|
#endif
|
|
case 2:
|
|
my_wcwidth = &mk_wcwidth;
|
|
TRACE(("using MK wcwidth() function\n"));
|
|
break;
|
|
case 3:
|
|
case 4:
|
|
my_wcwidth = &mk_wcwidth_cjk;
|
|
TRACE(("using MK-CJK wcwidth() function\n"));
|
|
break;
|
|
}
|
|
|
|
for (first_widechar = 128; first_widechar < 4500; ++first_widechar) {
|
|
if (my_wcwidth((int) first_widechar) > 1) {
|
|
TRACE(("first_widechar %#x\n", first_widechar));
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* Extend a (normally) boolean resource value by checking for additional values
|
|
* which will be mapped into true/false.
|
|
*/
|
|
int
|
|
extendedBoolean(const char *value, const FlagList * table, Cardinal limit)
|
|
{
|
|
int result = -1;
|
|
long check;
|
|
char *next;
|
|
Cardinal n;
|
|
|
|
if ((x_strcasecmp(value, "true") == 0)
|
|
|| (x_strcasecmp(value, "yes") == 0)
|
|
|| (x_strcasecmp(value, "on") == 0)) {
|
|
result = True;
|
|
} else if ((x_strcasecmp(value, "false") == 0)
|
|
|| (x_strcasecmp(value, "no") == 0)
|
|
|| (x_strcasecmp(value, "off") == 0)) {
|
|
result = False;
|
|
} else if ((check = strtol(value, &next, 0)) >= 0 && *next == '\0') {
|
|
if (check >= (long) limit)
|
|
check = True;
|
|
result = (int) check;
|
|
} else {
|
|
for (n = 0; n < limit; ++n) {
|
|
if (x_strcasecmp(value, table[n].name) == 0) {
|
|
result = table[n].code;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (result < 0) {
|
|
xtermWarning("Unrecognized keyword: %s\n", value);
|
|
result = False;
|
|
}
|
|
|
|
TRACE(("extendedBoolean(%s) = %d\n", value, result));
|
|
return result;
|
|
}
|
|
|
|
/*
|
|
* Something like round() from math library, but round() is less widely-used
|
|
* than xterm. Also, there are no negative numbers to complicate this.
|
|
*/
|
|
int
|
|
dimRound(double value)
|
|
{
|
|
int result = (int) value;
|
|
if (result < value)
|
|
++result;
|
|
return result;
|
|
}
|