1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-22 20:41:26 +00:00

Support termcap "ec"(erase_chars).

This fixed scroll-and-wipe-screen problem,
for example, using /usr/bin/vi(4.x-RELEASE).
# There is "ec" directive in "kterm" termcap.
# But, kterm-6.2.0_4 or former does not support "ec"(erase_chars).

PORTREVISION bumped.

Pointed by:     KFB03633@nifty.ne.jp
This commit is contained in:
Shigeyuki Fukushima 2002-11-15 16:24:37 +00:00
parent f77f7c0e19
commit 1b6f3b8cd3
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=70164
3 changed files with 83 additions and 0 deletions

View File

@ -0,0 +1,65 @@
--- util.c.orig Wed Nov 13 23:56:22 2002
+++ util.c Wed Nov 13 23:53:41 2002
@@ -36,6 +36,7 @@
#include <stdio.h>
+static void ClearInLine(TScreen *screen, int row, int col, int len);
static void horizontal_copy_area();
static void vertical_copy_area();
@@ -706,6 +707,54 @@
/*
* Clear last part of cursor's line, inclusive.
*/
+ClearRightN (screen, n)
+register TScreen *screen;
+register int n;
+{
+ int i;
+ int len = (screen->max_col - screen->cur_col + 1);
+
+ if (n < 0) /* the remainder of the line */
+ n = screen->max_col + 1;
+ if (n == 0) /* default for 'ECH' */
+ n = 1;
+
+ if (len > n)
+ len = n;
+
+ ClearInLine(screen, screen->cur_row, screen->cur_col, len);
+}
+
+/*
+ * Clear the given row, for the given range of columns.
+ */
+static void
+ClearInLine(TScreen *screen, int row, int col, int len)
+{
+ if (col + len >= screen->max_col + 1) {
+ len = screen->max_col + 1 - col;
+ }
+
+ if (screen->cursor_state)
+ HideCursor();
+
+ screen->do_wrap = 0;
+
+ if (row - screen->topline <= screen->max_row) {
+ if (!AddToRefresh(screen)) {
+ if (screen->scroll_amt)
+ FlushScroll(screen);
+ XClearArea(screen->display,
+ VWindow(screen),
+ CursorX (screen, col),
+ CursorY (screen, row),
+ len * FontWidth(screen),
+ FontHeight(screen),
+ FALSE);
+ }
+ }
+}
+
ClearRight (screen)
register TScreen *screen;
{

View File

@ -0,0 +1,11 @@
--- VTPrsTbl.c.orig Wed Nov 13 23:56:22 2002
+++ VTPrsTbl.c Wed Nov 13 01:10:07 2002
@@ -490,7 +490,7 @@
CASE_GROUND_STATE,
CASE_GROUND_STATE,
/* X Y Z [ */
-CASE_GROUND_STATE,
+CASE_ECH,
CASE_GROUND_STATE,
CASE_GROUND_STATE,
CASE_GROUND_STATE,

View File

@ -0,0 +1,7 @@
--- VTparse.h.orig Wed Nov 13 23:56:22 2002
+++ VTparse.h Wed Nov 13 01:07:07 2002
@@ -118,3 +118,4 @@
#define CASE_SCS_STATE 77
#define CASE_GSET_VERSION_STATE 78
#define CASE_GSET_VERSION 79
+#define CASE_ECH 80