Flatten vendor/tcsh/dist.

1 files changed, 0 insertions, 1330 deletions

diff --git a/contrib/tcsh/ed.refresh.c b/contrib/tcsh/ed.refresh.c
deleted file mode 100644
index afba75e..0000000
--- a/contrib/tcsh/ed.refresh.c
+++ /dev/null
@@ -1,1330 +0,0 @@
-/* $Header: /p/tcsh/cvsroot/tcsh/ed.refresh.c,v 3.46 2006/08/23 15:03:14 christos Exp $ */
-/*
- * ed.refresh.c: Lower level screen refreshing functions
- */
-/*-
- * Copyright (c) 1980, 1991 The Regents of the University of California.
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- *    notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- *    notice, this list of conditions and the following disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- * 3. Neither the name of the University nor the names of its contributors
- *    may be used to endorse or promote products derived from this software
- *    without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- */
-#include "sh.h"
-
-RCSID("$tcsh: ed.refresh.c,v 3.46 2006/08/23 15:03:14 christos Exp $")
-
-#include "ed.h"
-/* #define DEBUG_UPDATE */
-/* #define DEBUG_REFRESH */
-/* #define DEBUG_LITERAL */
-
-/* refresh.c -- refresh the current set of lines on the screen */
-
-Char   *litptr;
-static int vcursor_h, vcursor_v;
-static int rprompt_h, rprompt_v;
-
-static	int	MakeLiteral		(Char *, int, Char);
-static	int	Draw 			(Char *, int);
-static	void	Vdraw 			(Char, int);
-static	void	RefreshPromptpart	(Char *);
-static	void	update_line 		(Char *, Char *, int);
-static	void	str_insert		(Char *, int, int, Char *, int);
-static	void	str_delete		(Char *, int, int, int);
-static	void	str_cp			(Char *, Char *, int);
-#ifndef WINNT_NATIVE
-static
-#else
-extern
-#endif
-	void    PutPlusOne      (Char, int);
-static	void	cpy_pad_spaces		(Char *, Char *, int);
-#if defined(DEBUG_UPDATE) || defined(DEBUG_REFRESH) || defined(DEBUG_LITERAL)
-static	void	dprintf			(char *, ...);
-#ifdef DEBUG_UPDATE
-static	void	dprintstr		(char *, const Char *, const Char *);
-
-static void
-dprintstr(char *str, const Char *f, const Char *t)
-{
-    dprintf("%s:\"", str);
-    while (f < t) {
-	if (ASC(*f) & ~ASCII)
-	  dprintf("[%x]", *f++);
-	else
-	  dprintf("%c", CTL_ESC(ASCII & ASC(*f++)));
-    }
-    dprintf("\"\r\n");
-}
-#endif /* DEBUG_UPDATE */
-
-/* dprintf():
- *	Print to $DEBUGTTY, so that we can test editing on one pty, and 
- *      print debugging stuff on another. Don't interrupt the shell while
- *	debugging cause you'll mangle up the file descriptors!
- */
-static void
-dprintf(char *fmt, ...)
-{
-    static int fd = -1;
-    char *dtty;
-
-    if ((dtty = getenv("DEBUGTTY"))) {
-	int o;
-	va_list va;
-	va_start(va, fmt);
-
-	if (fd == -1)
-	    fd = xopen(dtty, O_RDWR);
-	o = SHOUT;
-	flush();
-	SHOUT = fd;
-	xvprintf(fmt, va);
-	va_end(va);
-	flush();
-	SHOUT = o;
-    }
-}
-#endif  /* DEBUG_UPDATE || DEBUG_REFRESH || DEBUG_LITERAL */
-
-static int litlen = 0, litalloc = 0;
-
-static int MakeLiteral(Char *str, int len, Char addlit)
-{
-    int i, addlitlen = 0;
-    Char *addlitptr = 0;
-    if (addlit) {
-	if ((addlit & LITERAL) != 0) {
-	    addlitptr = litptr + (addlit & ~LITERAL) * LIT_FACTOR;
-	    addlitlen = Strlen(addlitptr);
-	} else {
-	    addlitptr = &addlit;
-	    addlitlen = 1;
-	}
-	for (i = 0; i < litlen; i += LIT_FACTOR)
-	    if (!Strncmp(addlitptr, litptr + i, addlitlen) && !Strncmp(str, litptr + i + addlitlen, len) && litptr[i + addlitlen + len] == 0)
-		return (i / LIT_FACTOR) | LITERAL;
-    } else {
-	addlitlen = 0;
-	for (i = 0; i < litlen; i += LIT_FACTOR)
-	    if (!Strncmp(str, litptr + i, len) && litptr[i + len] == 0)
-		return (i / LIT_FACTOR) | LITERAL;
-    }
-    if (litlen + addlitlen + len + 1 + (LIT_FACTOR - 1) > litalloc) {
-	Char *newlitptr;
-	int add = 256;
-	while (len + addlitlen + 1 + (LIT_FACTOR - 1) > add)
-	    add *= 2;
-	newlitptr = xrealloc(litptr, (litalloc + add) * sizeof(Char));
-	if (!newlitptr)
-	    return '?';
-	litptr = newlitptr;
-	litalloc += add;
-	if (addlitptr && addlitptr != &addlit)
-	    addlitptr = litptr + (addlit & ~LITERAL) * LIT_FACTOR;
-    }
-    i = litlen / LIT_FACTOR;
-    if (i >= LITERAL || i == CHAR_DBWIDTH)
-	return '?';
-    if (addlitptr) {
-	Strncpy(litptr + litlen, addlitptr, addlitlen);
-	litlen += addlitlen;
-    }
-    Strncpy(litptr + litlen, str, len);
-    litlen += len;
-    do
-	litptr[litlen++] = 0;
-    while (litlen % LIT_FACTOR);
-    return i | LITERAL;
-}
-
-static int
-Draw(Char *cp, int nocomb)	/* draw char at cp, expand tabs, ctl chars */
-{
-    int w, i, lv, lh;
-    Char c, attr;
-
-    attr = *cp & ~CHAR;
-    c = *cp & CHAR;
-    w = NLSClassify(c, nocomb);
-    switch (w) {
-	case NLSCLASS_NL:
-	    Vdraw('\0', 0);		/* assure end of line	 */
-	    vcursor_h = 0;		/* reset cursor pos	 */
-	    vcursor_v++;
-	    break;
-	case NLSCLASS_TAB:
-	    do {
-		Vdraw(' ', 1);
-	    } while ((vcursor_h & 07) != 0);
-	    break;
-	case NLSCLASS_CTRL:
-	    Vdraw('^' | attr, 1);
-	    if (c == CTL_ESC('\177')) {
-		Vdraw('?' | attr, 1);
-	    } else {
-#ifdef IS_ASCII
-		/* uncontrolify it; works only for iso8859-1 like sets */
-		Vdraw(c | 0100 | attr, 1);
-#else
-		Vdraw(_toebcdic[_toascii[c]|0100] | attr, 1);
-#endif
-	    }
-	    break;
-	case NLSCLASS_ILLEGAL:
-	    Vdraw('\\' | attr, 1);
-	    Vdraw((((c >> 6) & 7) + '0') | attr, 1);
-	    Vdraw((((c >> 3) & 7) + '0') | attr, 1);
-	    Vdraw(((c & 7) + '0') | attr, 1);
-	    break;
-	case NLSCLASS_ILLEGAL2:
-	case NLSCLASS_ILLEGAL3:
-	case NLSCLASS_ILLEGAL4:
-	    Vdraw('\\' | attr, 1);
-	    Vdraw('U' | attr, 1);
-	    Vdraw('+' | attr, 1);
-	    for (i = 8 * NLSCLASS_ILLEGAL_SIZE(w) - 4; i >= 0; i -= 4)
-		Vdraw("0123456789ABCDEF"[(c >> i) & 15] | attr, 1);
-	    break;
-	case 0:
-	    lv = vcursor_v;
-	    lh = vcursor_h;
-	    for (;;) {
-		lh--;
-		if (lh < 0) {
-		    lv--;
-		    if (lv < 0)
-			break;
-		    lh = Strlen(Vdisplay[lv]) - 1;
-		}
-		if (Vdisplay[lv][lh] != CHAR_DBWIDTH)
-		    break;
-	    }
-	    if (lv < 0) {
-		Vdraw('\\' | attr, 1);
-		Vdraw((((c >> 6) & 7) + '0') | attr, 1);
-		Vdraw((((c >> 3) & 7) + '0') | attr, 1);
-		Vdraw(((c & 7) + '0') | attr, 1);
-		break;
-	    }
-	    Vdisplay[lv][lh] = MakeLiteral(cp, 1, Vdisplay[lv][lh]);
-	    break;
-	default:
-	    Vdraw(*cp, w);
-	    break;
-    }
-    return 1;
-}
-
-static void
-Vdraw(Char c, int width)	/* draw char c onto V lines */
-{
-#ifdef DEBUG_REFRESH
-# ifdef SHORT_STRINGS
-    dprintf("Vdrawing %6.6o '%c' %d\r\n", (unsigned)c, (int)(c & ASCII), width);
-# else
-    dprintf("Vdrawing %3.3o '%c' %d\r\n", (unsigned)c, (int)c, width);
-# endif /* SHORT_STRNGS */
-#endif  /* DEBUG_REFRESH */
-
-    /* Hopefully this is what all the terminals do with multi-column characters
-       that "span line breaks". */
-    while (vcursor_h + width > TermH)
-	Vdraw(' ', 1);
-    Vdisplay[vcursor_v][vcursor_h] = c;
-    if (width)
-	vcursor_h++;		/* advance to next place */
-    while (--width > 0)
-	Vdisplay[vcursor_v][vcursor_h++] = CHAR_DBWIDTH;
-    if (vcursor_h >= TermH) {
-	Vdisplay[vcursor_v][TermH] = '\0';	/* assure end of line */
-	vcursor_h = 0;		/* reset it. */
-	vcursor_v++;
-#ifdef DEBUG_REFRESH
-	if (vcursor_v >= TermV) {	/* should NEVER happen. */
-	    dprintf("\r\nVdraw: vcursor_v overflow! Vcursor_v == %d > %d\r\n",
-		    vcursor_v, TermV);
-	    abort();
-	}
-#endif /* DEBUG_REFRESH */
-    }
-}
-
-/*
- *  RefreshPromptpart()
- *	draws a prompt element, expanding literals (we know it's ASCIZ)
- */
-static void
-RefreshPromptpart(Char *buf)
-{
-    Char *cp;
-    int w;
-
-    if (buf == NULL)
-	return;
-    for (cp = buf; *cp; ) {
-	if (*cp & LITERAL) {
-	    Char *litstart = cp;
-	    while (*cp & LITERAL)
-		cp++;
-	    if (*cp) {
-		w = NLSWidth(*cp & CHAR);
-		Vdraw(MakeLiteral(litstart, cp + 1 - litstart, 0), w);
-		cp++;
-	    }
-	    else {
-		/*
-		 * XXX: This is a bug, we lose the last literal, if it is not
-		 * followed by a normal character, but it is too hard to fix
-		 */
-		break;
-	    }
-	}
-	else
-	    cp += Draw(cp, cp == buf);
-    }
-}
-
-/*
- *  Refresh()
- *	draws the new virtual screen image from the current input
- *  	line, then goes line-by-line changing the real image to the new
- *	virtual image. The routine to re-draw a line can be replaced
- *	easily in hopes of a smarter one being placed there.
- */
-#ifndef WINNT_NATIVE
-static
-#endif
-int OldvcV = 0;
-
-void
-Refresh(void)
-{
-    int cur_line;
-    Char *cp;
-    int     cur_h, cur_v = 0, new_vcv;
-    int     rhdiff;
-    Char    oldgetting;
-
-#ifdef DEBUG_REFRESH
-    dprintf("Prompt = :%s:\r\n", short2str(Prompt));
-    dprintf("InputBuf = :%s:\r\n", short2str(InputBuf));
-#endif /* DEBUG_REFRESH */
-    oldgetting = GettingInput;
-    GettingInput = 0;		/* avoid re-entrance via SIGWINCH */
-
-    /* reset the Vdraw cursor, temporarily draw rprompt to calculate its size */
-    vcursor_h = 0;
-    vcursor_v = 0;
-    RefreshPromptpart(RPrompt);
-    rprompt_h = vcursor_h;
-    rprompt_v = vcursor_v;
-
-    /* reset the Vdraw cursor, draw prompt */
-    vcursor_h = 0;
-    vcursor_v = 0;
-    RefreshPromptpart(Prompt);
-    cur_h = -1;			/* set flag in case I'm not set */
-
-    /* draw the current input buffer */
-    for (cp = InputBuf; (cp < LastChar); ) {
-	if (cp >= Cursor && cur_h == -1) {
-	    cur_h = vcursor_h;	/* save for later */
-	    cur_v = vcursor_v;
-	    Cursor = cp;
-	}
-	cp += Draw(cp, cp == InputBuf);
-    }
-
-    if (cur_h == -1) {		/* if I haven't been set yet, I'm at the end */
-	cur_h = vcursor_h;
-	cur_v = vcursor_v;
-    }
-
-    rhdiff = TermH - vcursor_h - rprompt_h;
-    if (rprompt_h != 0 && rprompt_v == 0 && vcursor_v == 0 && rhdiff > 1) {
-			/*
-			 * have a right-hand side prompt that will fit on
-			 * the end of the first line with at least one
-			 * character gap to the input buffer.
-			 */
-	while (--rhdiff > 0)		/* pad out with spaces */
-	    Vdraw(' ', 1);
-	RefreshPromptpart(RPrompt);
-    }
-    else {
-	rprompt_h = 0;			/* flag "not using rprompt" */
-	rprompt_v = 0;
-    }
-
-    new_vcv = vcursor_v;	/* must be done BEFORE the NUL is written */
-    Vdraw('\0', 1);		/* put NUL on end */
-
-#if defined (DEBUG_REFRESH)
-    dprintf("TermH=%d, vcur_h=%d, vcur_v=%d, Vdisplay[0]=\r\n:%80.80s:\r\n",
-	    TermH, vcursor_h, vcursor_v, short2str(Vdisplay[0]));
-#endif /* DEBUG_REFRESH */
-
-#ifdef DEBUG_UPDATE
-    dprintf("updating %d lines.\r\n", new_vcv);
-#endif  /* DEBUG_UPDATE */
-    for (cur_line = 0; cur_line <= new_vcv; cur_line++) {
-	/* NOTE THAT update_line MAY CHANGE Display[cur_line] */
-	update_line(Display[cur_line], Vdisplay[cur_line], cur_line);
-#ifdef WINNT_NATIVE
-	flush();
-#endif /* WINNT_NATIVE */
-
-	/*
-	 * Copy the new line to be the current one, and pad out with spaces
-	 * to the full width of the terminal so that if we try moving the
-	 * cursor by writing the character that is at the end of the
-	 * screen line, it won't be a NUL or some old leftover stuff.
-	 */
-	cpy_pad_spaces(Display[cur_line], Vdisplay[cur_line], TermH);
-    }
-#ifdef DEBUG_REFRESH
-    dprintf("\r\nvcursor_v = %d, OldvcV = %d, cur_line = %d\r\n",
-	    vcursor_v, OldvcV, cur_line);
-#endif /* DEBUG_REFRESH */
-    if (OldvcV > new_vcv) {
-	for (; cur_line <= OldvcV; cur_line++) {
-	    update_line(Display[cur_line], STRNULL, cur_line);
-	    *Display[cur_line] = '\0';
-	}
-    }
-    OldvcV = new_vcv;		/* set for next time */
-#ifdef DEBUG_REFRESH
-    dprintf("\r\nCursorH = %d, CursorV = %d, cur_h = %d, cur_v = %d\r\n",
-	    CursorH, CursorV, cur_h, cur_v);
-#endif /* DEBUG_REFRESH */
-#ifdef WINNT_NATIVE
-    flush();
-#endif /* WINNT_NATIVE */
-    MoveToLine(cur_v);		/* go to where the cursor is */
-    MoveToChar(cur_h);
-    SetAttributes(0);		/* Clear all attributes */
-    flush();			/* send the output... */
-    GettingInput = oldgetting;	/* reset to old value */
-}
-
-#ifdef notdef
-GotoBottom(void)
-{				/* used to go to last used screen line */
-    MoveToLine(OldvcV);
-}
-
-#endif 
-
-void
-PastBottom(void)
-{				/* used to go to last used screen line */
-    MoveToLine(OldvcV);
-    (void) putraw('\r');
-    (void) putraw('\n');
-    ClearDisp();
-    flush();
-}
-
-
-/* insert num characters of s into d (in front of the character) at dat,
-   maximum length of d is dlen */
-static void
-str_insert(Char *d, int dat, int dlen, Char *s, int num)
-{
-    Char *a, *b;
-
-    if (num <= 0)
-	return;
-    if (num > dlen - dat)
-	num = dlen - dat;
-
-#ifdef DEBUG_REFRESH
-    dprintf("str_insert() starting: %d at %d max %d, d == \"%s\"\n",
-	    num, dat, dlen, short2str(d));
-    dprintf("s == \"%s\"n", short2str(s));
-#endif /* DEBUG_REFRESH */
-
-    /* open up the space for num chars */
-    if (num > 0) {
-	b = d + dlen - 1;
-	a = b - num;
-	while (a >= &d[dat])
-	    *b-- = *a--;
-	d[dlen] = '\0';		/* just in case */
-    }
-#ifdef DEBUG_REFRESH
-    dprintf("str_insert() after insert: %d at %d max %d, d == \"%s\"\n",
-	    num, dat, dlen, short2str(d));
-    dprintf("s == \"%s\"n", short2str(s));
-#endif /* DEBUG_REFRESH */
-
-    /* copy the characters */
-    for (a = d + dat; (a < d + dlen) && (num > 0); num--)
-	*a++ = *s++;
-
-#ifdef DEBUG_REFRESH
-    dprintf("str_insert() after copy: %d at %d max %d, d == \"%s\"\n",
-	    num, dat, dlen, d, short2str(s));
-    dprintf("s == \"%s\"n", short2str(s));
-#endif /* DEBUG_REFRESH */
-}
-
-/* delete num characters d at dat, maximum length of d is dlen */
-static void
-str_delete(Char *d, int dat, int dlen, int num)
-{
-    Char *a, *b;
-
-    if (num <= 0)
-	return;
-    if (dat + num >= dlen) {
-	d[dat] = '\0';
-	return;
-    }
-
-#ifdef DEBUG_REFRESH
-    dprintf("str_delete() starting: %d at %d max %d, d == \"%s\"\n",
-	    num, dat, dlen, short2str(d));
-#endif /* DEBUG_REFRESH */
-
-    /* open up the space for num chars */
-    if (num > 0) {
-	b = d + dat;
-	a = b + num;
-	while (a < &d[dlen])
-	    *b++ = *a++;
-	d[dlen] = '\0';		/* just in case */
-    }
-#ifdef DEBUG_REFRESH
-    dprintf("str_delete() after delete: %d at %d max %d, d == \"%s\"\n",
-	    num, dat, dlen, short2str(d));
-#endif /* DEBUG_REFRESH */
-}
-
-static void
-str_cp(Char *a, Char *b, int n)
-{
-    while (n-- && *b)
-	*a++ = *b++;
-}
-
-
-/* ****************************************************************
-    update_line() is based on finding the middle difference of each line
-    on the screen; vis:
-
-			     /old first difference
-	/beginning of line   |              /old last same       /old EOL
-	v		     v              v                    v
-old:	eddie> Oh, my little gruntle-buggy is to me, as lurgid as
-new:	eddie> Oh, my little buggy says to me, as lurgid as
-	^		     ^        ^			   ^
-	\beginning of line   |        \new last same	   \new end of line
-			     \new first difference
-
-    all are character pointers for the sake of speed.  Special cases for
-    no differences, as well as for end of line additions must be handled.
-**************************************************************** */
-
-/* Minimum at which doing an insert it "worth it".  This should be about
- * half the "cost" of going into insert mode, inserting a character, and
- * going back out.  This should really be calculated from the termcap
- * data...  For the moment, a good number for ANSI terminals.
- */
-#define MIN_END_KEEP	4
-
-static void			/* could be changed to make it smarter */
-update_line(Char *old, Char *new, int cur_line)
-{
-    Char *o, *n, *p, c;
-    Char  *ofd, *ols, *oe, *nfd, *nls, *ne;
-    Char  *osb, *ose, *nsb, *nse;
-    int     fx, sx;
-
-    /*
-     * find first diff (won't be CHAR_DBWIDTH in either line)
-     */
-    for (o = old, n = new; *o && (*o == *n); o++, n++)
-	continue;
-    ofd = o;
-    nfd = n;
-
-    /*
-     * Find the end of both old and new
-     */
-    o = Strend(o);
-
-    /* 
-     * Remove any trailing blanks off of the end, being careful not to
-     * back up past the beginning.
-     */
-    if (!(adrof(STRhighlight) && MarkIsSet)) {
-    while (ofd < o) {
-	if (o[-1] != ' ')
-	    break;
-	o--;
-    }
-    }
-    oe = o;
-    *oe = (Char) 0;
-
-    n = Strend(n);
-
-    /* remove blanks from end of new */
-    if (!(adrof(STRhighlight) && MarkIsSet)) {
-    while (nfd < n) {
-	if (n[-1] != ' ')
-	    break;
-	n--;
-    }
-    }
-    ne = n;
-    *ne = (Char) 0;
-  
-    /*
-     * if no diff, continue to next line of redraw
-     */
-    if (*ofd == '\0' && *nfd == '\0') {
-#ifdef DEBUG_UPDATE
-	dprintf("no difference.\r\n");
-#endif /* DEBUG_UPDATE */
-	return;
-    }
-
-    /*
-     * find last same pointer
-     */
-    while ((o > ofd) && (n > nfd) && (*--o == *--n))
-	continue;
-    if (*o != *n) {
-	o++;
-	n++;
-    }
-    while (*o == CHAR_DBWIDTH) {
-	o++;
-	n++;
-    }
-    ols = o;
-    nls = n;
-
-    /*
-     * find same begining and same end
-     */
-    osb = ols;
-    nsb = nls;
-    ose = ols;
-    nse = nls;
-
-    /*
-     * case 1: insert: scan from nfd to nls looking for *ofd
-     */
-    if (*ofd) {
-	for (c = *ofd, n = nfd; n < nls; n++) {
-	    if (c == *n) {
-		for (o = ofd, p = n; p < nls && o < ols && *o == *p; o++, p++)
-		    continue;
-		/*
-		 * if the new match is longer and it's worth keeping, then we
-		 * take it
-		 */
-		if (((nse - nsb) < (p - n)) && (2 * (p - n) > n - nfd)) {
-		    nsb = n;
-		    nse = p;
-		    osb = ofd;
-		    ose = o;
-		}
-	    }
-	}
-    }
-
-    /*
-     * case 2: delete: scan from ofd to ols looking for *nfd
-     */
-    if (*nfd) {
-	for (c = *nfd, o = ofd; o < ols; o++) {
-	    if (c == *o) {
-		for (n = nfd, p = o; p < ols && n < nls && *p == *n; p++, n++)
-		    continue;
-		/*
-		 * if the new match is longer and it's worth keeping, then we
-		 * take it
-		 */
-		if (((ose - osb) < (p - o)) && (2 * (p - o) > o - ofd)) {
-		    nsb = nfd;
-		    nse = n;
-		    osb = o;
-		    ose = p;
-		}
-	    }
-	}
-    }
-#ifdef notdef
-    /*
-     * If `last same' is before `same end' re-adjust
-     */
-    if (ols < ose)
-	ols = ose;
-    if (nls < nse)
-	nls = nse;
-#endif
-
-    /*
-     * Pragmatics I: If old trailing whitespace or not enough characters to
-     * save to be worth it, then don't save the last same info.
-     */
-    if ((oe - ols) < MIN_END_KEEP) {
-	ols = oe;
-	nls = ne;
-    }
-
-    /*
-     * Pragmatics II: if the terminal isn't smart enough, make the data dumber
-     * so the smart update doesn't try anything fancy
-     */
-
-    /*
-     * fx is the number of characters we need to insert/delete: in the
-     * beginning to bring the two same begins together
-     */
-    fx = (int) ((nsb - nfd) - (osb - ofd));
-    /*
-     * sx is the number of characters we need to insert/delete: in the end to
-     * bring the two same last parts together
-     */
-    sx = (int) ((nls - nse) - (ols - ose));
-
-    if (!T_CanIns) {
-	if (fx > 0) {
-	    osb = ols;
-	    ose = ols;
-	    nsb = nls;
-	    nse = nls;
-	}
-	if (sx > 0) {
-	    ols = oe;
-	    nls = ne;
-	}
-	if ((ols - ofd) < (nls - nfd)) {
-	    ols = oe;
-	    nls = ne;
-	}
-    }
-    if (!T_CanDel) {
-	if (fx < 0) {
-	    osb = ols;
-	    ose = ols;
-	    nsb = nls;
-	    nse = nls;
-	}
-	if (sx < 0) {
-	    ols = oe;
-	    nls = ne;
-	}
-	if ((ols - ofd) > (nls - nfd)) {
-	    ols = oe;
-	    nls = ne;
-	}
-    }
-
-    /*
-     * Pragmatics III: make sure the middle shifted pointers are correct if
-     * they don't point to anything (we may have moved ols or nls).
-     */
-    /* if the change isn't worth it, don't bother */
-    /* was: if (osb == ose) */
-    if ((ose - osb) < MIN_END_KEEP) {
-	osb = ols;
-	ose = ols;
-	nsb = nls;
-	nse = nls;
-    }
-
-    /*
-     * Now that we are done with pragmatics we recompute fx, sx
-     */
-    fx = (int) ((nsb - nfd) - (osb - ofd));
-    sx = (int) ((nls - nse) - (ols - ose));
-
-#ifdef DEBUG_UPDATE
-    dprintf("\n");
-    dprintf("ofd %d, osb %d, ose %d, ols %d, oe %d\n",
-	    ofd - old, osb - old, ose - old, ols - old, oe - old);
-    dprintf("nfd %d, nsb %d, nse %d, nls %d, ne %d\n",
-	    nfd - new, nsb - new, nse - new, nls - new, ne - new);
-    dprintf("xxx-xxx:\"00000000001111111111222222222233333333334\"\r\n");
-    dprintf("xxx-xxx:\"01234567890123456789012345678901234567890\"\r\n");
-    dprintstr("old- oe", old, oe);
-    dprintstr("new- ne", new, ne);
-    dprintstr("old-ofd", old, ofd);
-    dprintstr("new-nfd", new, nfd);
-    dprintstr("ofd-osb", ofd, osb);
-    dprintstr("nfd-nsb", nfd, nsb);
-    dprintstr("osb-ose", osb, ose);
-    dprintstr("nsb-nse", nsb, nse);
-    dprintstr("ose-ols", ose, ols);
-    dprintstr("nse-nls", nse, nls);
-    dprintstr("ols- oe", ols, oe);
-    dprintstr("nls- ne", nls, ne);
-#endif /* DEBUG_UPDATE */
-
-    /*
-     * CursorV to this line cur_line MUST be in this routine so that if we
-     * don't have to change the line, we don't move to it. CursorH to first
-     * diff char
-     */
-    MoveToLine(cur_line);
-
-    /*
-     * at this point we have something like this:
-     * 
-     * /old                  /ofd    /osb               /ose    /ols     /oe
-     * v.....................v       v..................v       v........v
-     * eddie> Oh, my fredded gruntle-buggy is to me, as foo var lurgid as
-     * eddie> Oh, my fredded quiux buggy is to me, as gruntle-lurgid as
-     * ^.....................^     ^..................^       ^........^ 
-     * \new                  \nfd  \nsb               \nse     \nls    \ne
-     * 
-     * fx is the difference in length between the the chars between nfd and
-     * nsb, and the chars between ofd and osb, and is thus the number of
-     * characters to delete if < 0 (new is shorter than old, as above),
-     * or insert (new is longer than short).
-     *
-     * sx is the same for the second differences.
-     */
-
-    /*
-     * if we have a net insert on the first difference, AND inserting the net
-     * amount ((nsb-nfd) - (osb-ofd)) won't push the last useful character
-     * (which is ne if nls != ne, otherwise is nse) off the edge of the screen
-     * (TermH - 1) else we do the deletes first so that we keep everything we
-     * need to.
-     */
-
-    /*
-     * if the last same is the same like the end, there is no last same part,
-     * otherwise we want to keep the last same part set p to the last useful
-     * old character
-     */
-    p = (ols != oe) ? oe : ose;
-
-    /*
-     * if (There is a diffence in the beginning) && (we need to insert
-     * characters) && (the number of characters to insert is less than the term
-     * width) We need to do an insert! else if (we need to delete characters)
-     * We need to delete characters! else No insert or delete
-     */
-    if ((nsb != nfd) && fx > 0 && ((p - old) + fx < TermH)) {
-#ifdef DEBUG_UPDATE
-	dprintf("first diff insert at %d...\r\n", nfd - new);
-#endif  /* DEBUG_UPDATE */
-	/*
-	 * Move to the first char to insert, where the first diff is.
-	 */
-	MoveToChar(nfd - new);
-	/*
-	 * Check if we have stuff to keep at end
-	 */
-	if (nsb != ne) {
-#ifdef DEBUG_UPDATE
-	    dprintf("with stuff to keep at end\r\n");
-#endif  /* DEBUG_UPDATE */
-	    /*
-	     * insert fx chars of new starting at nfd
-	     */
-	    if (fx > 0) {
-#ifdef DEBUG_UPDATE
-		if (!T_CanIns)
-		    dprintf("   ERROR: cannot insert in early first diff\n");
-#endif  /* DEBUG_UPDATE */
-		Insert_write(nfd, fx);
-		str_insert(old, (int) (ofd - old), TermH, nfd, fx);
-	    }
-	    /*
-	     * write (nsb-nfd) - fx chars of new starting at (nfd + fx)
-	     */
-	    so_write(nfd + fx, (nsb - nfd) - fx);
-	    str_cp(ofd + fx, nfd + fx, (int) ((nsb - nfd) - fx));
-	}
-	else {
-#ifdef DEBUG_UPDATE
-	    dprintf("without anything to save\r\n");
-#endif  /* DEBUG_UPDATE */
-	    so_write(nfd, (nsb - nfd));
-	    str_cp(ofd, nfd, (int) (nsb - nfd));
-	    /*
-	     * Done
-	     */
-	    return;
-	}
-    }
-    else if (fx < 0) {
-#ifdef DEBUG_UPDATE
-	dprintf("first diff delete at %d...\r\n", ofd - old);
-#endif  /* DEBUG_UPDATE */
-	/*
-	 * move to the first char to delete where the first diff is
-	 */
-	MoveToChar(ofd - old);
-	/*
-	 * Check if we have stuff to save
-	 */
-	if (osb != oe) {
-#ifdef DEBUG_UPDATE
-	    dprintf("with stuff to save at end\r\n");
-#endif  /* DEBUG_UPDATE */
-	    /*
-	     * fx is less than zero *always* here but we check for code
-	     * symmetry
-	     */
-	    if (fx < 0) {
-#ifdef DEBUG_UPDATE
-		if (!T_CanDel)
-		    dprintf("   ERROR: cannot delete in first diff\n");
-#endif /* DEBUG_UPDATE */
-		DeleteChars(-fx);
-		str_delete(old, (int) (ofd - old), TermH, -fx);
-	    }
-	    /*
-	     * write (nsb-nfd) chars of new starting at nfd
-	     */
-	    so_write(nfd, (nsb - nfd));
-	    str_cp(ofd, nfd, (int) (nsb - nfd));
-
-	}
-	else {
-#ifdef DEBUG_UPDATE
-	    dprintf("but with nothing left to save\r\n");
-#endif  /* DEBUG_UPDATE */
-	    /*
-	     * write (nsb-nfd) chars of new starting at nfd
-	     */
-	    so_write(nfd, (nsb - nfd));
-#ifdef DEBUG_REFRESH
-	    dprintf("cleareol %d\n", (oe - old) - (ne - new));
-#endif  /* DEBUG_UPDATE */
-#ifndef WINNT_NATIVE
-	    ClearEOL((oe - old) - (ne - new));
-#else
-	    /*
-	     * The calculation above does not work too well on NT
-	     */
-	    ClearEOL(TermH - CursorH);
-#endif /*WINNT_NATIVE*/
-	    /*
-	     * Done
-	     */
-	    return;
-	}
-    }
-    else
-	fx = 0;
-
-    if (sx < 0) {
-#ifdef DEBUG_UPDATE
-	dprintf("second diff delete at %d...\r\n", (ose - old) + fx);
-#endif  /* DEBUG_UPDATE */
-	/*
-	 * Check if we have stuff to delete
-	 */
-	/*
-	 * fx is the number of characters inserted (+) or deleted (-)
-	 */
-
-	MoveToChar((ose - old) + fx);
-	/*
-	 * Check if we have stuff to save
-	 */
-	if (ols != oe) {
-#ifdef DEBUG_UPDATE
-	    dprintf("with stuff to save at end\r\n");
-#endif  /* DEBUG_UPDATE */
-	    /*
-	     * Again a duplicate test.
-	     */
-	    if (sx < 0) {
-#ifdef DEBUG_UPDATE
-		if (!T_CanDel)
-		    dprintf("   ERROR: cannot delete in second diff\n");
-#endif  /* DEBUG_UPDATE */
-		DeleteChars(-sx);
-	    }
-
-	    /*
-	     * write (nls-nse) chars of new starting at nse
-	     */
-	    so_write(nse, (nls - nse));
-	}
-	else {
-	    int olen = (int) (oe - old + fx);
-	    if (olen > TermH)
-		olen = TermH;
-#ifdef DEBUG_UPDATE
-	    dprintf("but with nothing left to save\r\n");
-#endif /* DEBUG_UPDATE */
-	    so_write(nse, (nls - nse));
-#ifdef DEBUG_REFRESH
-	    dprintf("cleareol %d\n", olen - (ne - new));
-#endif /* DEBUG_UPDATE */
-#ifndef WINNT_NATIVE
-	    ClearEOL(olen - (ne - new));
-#else
-	    /*
-	     * The calculation above does not work too well on NT
-	     */
-	    ClearEOL(TermH - CursorH);
-#endif /*WINNT_NATIVE*/
-	}
-    }
-
-    /*
-     * if we have a first insert AND WE HAVEN'T ALREADY DONE IT...
-     */
-    if ((nsb != nfd) && (osb - ofd) <= (nsb - nfd) && (fx == 0)) {
-#ifdef DEBUG_UPDATE
-	dprintf("late first diff insert at %d...\r\n", nfd - new);
-#endif /* DEBUG_UPDATE */
-
-	MoveToChar(nfd - new);
-	/*
-	 * Check if we have stuff to keep at the end
-	 */
-	if (nsb != ne) {
-#ifdef DEBUG_UPDATE
-	    dprintf("with stuff to keep at end\r\n");
-#endif /* DEBUG_UPDATE */
-	    /* 
-	     * We have to recalculate fx here because we set it
-	     * to zero above as a flag saying that we hadn't done
-	     * an early first insert.
-	     */
-	    fx = (int) ((nsb - nfd) - (osb - ofd));
-	    if (fx > 0) {
-		/*
-		 * insert fx chars of new starting at nfd
-		 */
-#ifdef DEBUG_UPDATE
-		if (!T_CanIns)
-		    dprintf("   ERROR: cannot insert in late first diff\n");
-#endif /* DEBUG_UPDATE */
-		Insert_write(nfd, fx);
-		str_insert(old, (int) (ofd - old), TermH, nfd, fx);
-	    }
-
-	    /*
-	     * write (nsb-nfd) - fx chars of new starting at (nfd + fx)
-	     */
-	    so_write(nfd + fx, (nsb - nfd) - fx);
-	    str_cp(ofd + fx, nfd + fx, (int) ((nsb - nfd) - fx));
-	}
-	else {
-#ifdef DEBUG_UPDATE
-	    dprintf("without anything to save\r\n");
-#endif /* DEBUG_UPDATE */
-	    so_write(nfd, (nsb - nfd));
-	    str_cp(ofd, nfd, (int) (nsb - nfd));
-	}
-    }
-
-    /*
-     * line is now NEW up to nse
-     */
-    if (sx >= 0) {
-#ifdef DEBUG_UPDATE
-	dprintf("second diff insert at %d...\r\n", nse - new);
-#endif /* DEBUG_UPDATE */
-	MoveToChar(nse - new);
-	if (ols != oe) {
-#ifdef DEBUG_UPDATE
-	    dprintf("with stuff to keep at end\r\n");
-#endif /* DEBUG_UPDATE */
-	    if (sx > 0) {
-		/* insert sx chars of new starting at nse */
-#ifdef DEBUG_UPDATE
-		if (!T_CanIns)
-		    dprintf("   ERROR: cannot insert in second diff\n");
-#endif /* DEBUG_UPDATE */
-		Insert_write(nse, sx);
-	    }
-
-	    /*
-	     * write (nls-nse) - sx chars of new starting at (nse + sx)
-	     */
-	    so_write(nse + sx, (nls - nse) - sx);
-	}
-	else {
-#ifdef DEBUG_UPDATE
-	    dprintf("without anything to save\r\n");
-#endif /* DEBUG_UPDATE */
-	    so_write(nse, (nls - nse));
-
-	    /*
-             * No need to do a clear-to-end here because we were doing
-	     * a second insert, so we will have over written all of the
-	     * old string.
-	     */
-	}
-    }
-#ifdef DEBUG_UPDATE
-    dprintf("done.\r\n");
-#endif /* DEBUG_UPDATE */
-}
-
-
-static void
-cpy_pad_spaces(Char *dst, Char *src, int width)
-{
-    int i;
-
-    for (i = 0; i < width; i++) {
-	if (*src == (Char) 0)
-	    break;
-	*dst++ = *src++;
-    }
-
-    while (i < width) {
-	*dst++ = ' ';
-	i++;
-    }
-    *dst = (Char) 0;
-}
-
-void
-RefCursor(void)
-{				/* only move to new cursor pos */
-    Char *cp;
-    int w, h, th, v;
-
-    /* first we must find where the cursor is... */
-    h = 0;
-    v = 0;
-    th = TermH;			/* optimize for speed */
-
-    for (cp = Prompt; cp != NULL && *cp; ) {	/* do prompt */
-	if (*cp & LITERAL) {
-	    cp++;
-	    continue;
-	}
-	w = NLSClassify(*cp & CHAR, cp == Prompt);
-	cp++;
-	switch(w) {
-	    case NLSCLASS_NL:
-		h = 0;
-		v++;
-		break;
-	    case NLSCLASS_TAB:
-		while (++h & 07)
-		    ;
-		break;
-	    case NLSCLASS_CTRL:
-		h += 2;
-		break;
-	    case NLSCLASS_ILLEGAL:
-		h += 4;
-		break;
-	    case NLSCLASS_ILLEGAL2:
-	    case NLSCLASS_ILLEGAL3:
-	    case NLSCLASS_ILLEGAL4:
-		h += 3 + 2 * NLSCLASS_ILLEGAL_SIZE(w);
-		break;
-	    default:
-		h += w;
-	}
-	if (h >= th) {		/* check, extra long tabs picked up here also */
-	    h -= th;
-	    v++;
-	}
-    }
-
-    for (cp = InputBuf; cp < Cursor;) {	/* do input buffer to Cursor */
-	w = NLSClassify(*cp & CHAR, cp == InputBuf);
-	cp++;
-	switch(w) {
-	    case NLSCLASS_NL:
-		h = 0;
-		v++;
-		break;
-	    case NLSCLASS_TAB:
-		while (++h & 07)
-		    ;
-		break;
-	    case NLSCLASS_CTRL:
-		h += 2;
-		break;
-	    case NLSCLASS_ILLEGAL:
-		h += 4;
-		break;
-	    case NLSCLASS_ILLEGAL2:
-	    case NLSCLASS_ILLEGAL3:
-	    case NLSCLASS_ILLEGAL4:
-		h += 3 + 2 * NLSCLASS_ILLEGAL_SIZE(w);
-		break;
-	    default:
-		h += w;
-	}
-	if (h >= th) {		/* check, extra long tabs picked up here also */
-	    h -= th;
-	    v++;
-	}
-    }
-
-    /* now go there */
-    MoveToLine(v);
-    MoveToChar(h);
-    if (adrof(STRhighlight) && MarkIsSet) {
-	ClearLines();
-	ClearDisp();
-	Refresh();
-    }
-    flush();
-}
-
-#ifndef WINTT_NATIVE
-static void
-PutPlusOne(Char c, int width)
-{
-    while (width > 1 && CursorH + width > TermH)
-	PutPlusOne(' ', 1);
-    if ((c & LITERAL) != 0) {
-	Char *d;
-	for (d = litptr + (c & ~LITERAL) * LIT_FACTOR; *d; d++)
-	    (void) putwraw(*d);
-    } else {
-	(void) putwraw(c);
-    }
-    Display[CursorV][CursorH++] = (Char) c;
-    while (--width > 0)
-	Display[CursorV][CursorH++] = CHAR_DBWIDTH;
-    if (CursorH >= TermH) {	/* if we must overflow */
-	CursorH = 0;
-	CursorV++;
-	OldvcV++;
-	if (T_Margin & MARGIN_AUTO) {
-	    if (T_Margin & MARGIN_MAGIC) {
-		(void) putraw(' ');
-		(void) putraw('\b');
-	    }
-	}
-	else {
-	    (void) putraw('\r');
-	    (void) putraw('\n');
-	}
-    }
-}
-#endif
-
-void
-RefPlusOne(int l)
-{				/* we added just one char, handle it fast.
-				 * assumes that screen cursor == real cursor */
-    Char *cp, c;
-    int w;
-
-    if (Cursor != LastChar) {
-	Refresh();		/* too hard to handle */
-	return;
-    }
-    if (rprompt_h != 0 && (TermH - CursorH - rprompt_h < 3)) {
-	Refresh();		/* clear out rprompt if less than one char gap*/
-	return;
-    }
-    cp = Cursor - l;
-    c = *cp & CHAR;
-    w = NLSClassify(c, cp == InputBuf);
-    switch(w) {
-	case NLSCLASS_CTRL:
-	    PutPlusOne('^', 1);
-	    if (c == CTL_ESC('\177')) {
-		PutPlusOne('?', 1);
-		break;
-	    }
-#ifdef IS_ASCII
-	    /* uncontrolify it; works only for iso8859-1 like sets */
-	    PutPlusOne((c | 0100), 1);
-#else
-	    PutPlusOne(_toebcdic[_toascii[c]|0100], 1);
-#endif
-	    break;
-	case NLSCLASS_ILLEGAL:
-	    PutPlusOne('\\', 1);
-	    PutPlusOne(((c >> 6) & 7) + '0', 1);
-	    PutPlusOne(((c >> 3) & 7) + '0', 1);
-	    PutPlusOne((c & 7) + '0', 1);
-	    break;
-	case 1:
-	    if (adrof(STRhighlight) && MarkIsSet)
-		StartHighlight();
-	    if (l > 1)
-		PutPlusOne(MakeLiteral(cp, l, 0), 1);
-	    else
-		PutPlusOne(*cp, 1);
-	    if (adrof(STRhighlight) && MarkIsSet)
-		StopHighlight();
-	    break;
-	default:
-	    Refresh();		/* too hard to handle */
-	    return;
-    }
-    flush();
-}
-
-/* clear the screen buffers so that new new prompt starts fresh. */
-
-void
-ClearDisp(void)
-{
-    int i;
-
-    CursorV = 0;		/* clear the display buffer */
-    CursorH = 0;
-    for (i = 0; i < TermV; i++)
-	(void) memset(Display[i], 0, TermH * sizeof(Display[0][0]));
-    OldvcV = 0;
-    litlen = 0;
-}
-
-void
-ClearLines(void)
-{				/* Make sure all lines are *really* blank */
-    int i;
-
-    if (T_CanCEOL) {
-	/*
-	 * Clear the lines from the bottom up so that if we try moving
-	 * the cursor down by writing the character that is at the end
-	 * of the screen line, we won't rewrite a character that shouldn't
-	 * be there.
-	 */
-	for (i = OldvcV; i >= 0; i--) {	/* for each line on the screen */
-	    MoveToLine(i);
-	    MoveToChar(0);
-	    ClearEOL(TermH);
-	}
-    }
-    else {
-	MoveToLine(OldvcV);	/* go to last line */
-	(void) putraw('\r');	/* go to BOL */
-	(void) putraw('\n');	/* go to new line */
-    }
-}