To avoid confusion, zap libcurses. ncurses provides both curses, termcap

and termlib (terminfo) support.

1 files changed, 0 insertions, 850 deletions

diff --git a/lib/libcurses/refresh.c b/lib/libcurses/refresh.c
deleted file mode 100644
index 14e2aca..0000000
--- a/lib/libcurses/refresh.c
+++ /dev/null
@@ -1,850 +0,0 @@
-/*
- * Copyright (c) 1981, 1993, 1994
- *	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. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *	This product includes software developed by the University of
- *	California, Berkeley and its contributors.
- * 4. 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.
- */
-
-#ifndef lint
-static char sccsid[] = "@(#)refresh.c	8.4 (Berkeley) 8/4/94";
-#endif /* not lint */
-
-#include <string.h>
-
-#include "curses.h"
-
-static int curwin;
-static short ly, lx;
-
-static void	domvcur __P((int, int, int, int));
-static int	makech __P((WINDOW *, int));
-static void	quickch __P((WINDOW *));
-static void     scrolln __P((int, int, int, int, int));
-
-/*
- * wrefresh --
- *	Make the current screen look like "win" over the area coverd by
- *	win.
- */
-int
-wrefresh(win)
-	register WINDOW *win;
-{
-	register __LINE *wlp;
-	register int retval;
-	register short wy;
-	int dnum;
-
-	/* Initialize loop parameters. */
-	ly = curscr->cury;
-	lx = curscr->curx;
-	wy = 0;
-	curwin = (win == curscr);
-
-	if (!curwin)
-		for (wy = 0; wy < win->maxy; wy++) {
-			wlp = win->lines[wy];
-			if (wlp->flags & __ISDIRTY)
-				wlp->hash =
-				   __hash((char *) wlp->line, win->maxx * __LDATASIZE);
-		}
-
-	if (win->flags & __CLEAROK || curscr->flags & __CLEAROK || curwin) {
-		if ((win->flags & __FULLWIN) || curscr->flags & __CLEAROK) {
-			if (curscr->flags & __WSTANDOUT) {
-				tputs(SE, 0, __cputchar);
-				curscr->flags &= ~__WSTANDOUT;
-			}
-			tputs(CL, win->maxy, __cputchar);
-			ly = 0;
-			lx = 0;
-			if (!curwin) {
-				curscr->flags &= ~__CLEAROK;
-				curscr->cury = 0;
-				curscr->curx = 0;
-				werase(curscr);
-			}
-			__touchwin(win);
-		}
-		win->flags &= ~__CLEAROK;
-	}
-	if (!CA) {
-		if (win->curx != 0)
-			putchar('\n');
-		if (!curwin)
-			werase(curscr);
-	}
-#ifdef DEBUG
-	__CTRACE("wrefresh: (%0.2o): curwin = %d\n", win, curwin);
-	__CTRACE("wrefresh: \tfirstch\tlastch\n");
-#endif
-
-#ifndef NOQCH
-	if ((win->flags & __FULLLINE) && !curwin) {
-		/*
-		 * Invoke quickch() only if more than a quarter of the lines
-		 * in the window are dirty.
-		 */
-		for (wy = 0, dnum = 0; wy < win->maxy; wy++)
-			if (win->lines[wy]->flags & (__ISDIRTY | __FORCEPAINT))
-				dnum++;
-		/* __noqch already == 0 when __FULLLINE */
-		if (dnum > (int) win->maxy / 4)
-			quickch(win);
-	}
-#endif
-
-#ifdef DEBUG
-{ int i, j;
-		__CTRACE("#####################################\n");
-		for (i = 0; i < curscr->maxy; i++) {
-			__CTRACE("C: %d:", i);
-			__CTRACE(" 0x%x \n", curscr->lines[i]->hash);
-			for (j = 0; j < curscr->maxx; j++)
-				__CTRACE("%c",
-			           curscr->lines[i]->line[j].ch);
-			__CTRACE("\n");
-			for (j = 0; j < curscr->maxx; j++)
-				__CTRACE("%x",
-			           curscr->lines[i]->line[j].attr);
-			__CTRACE("\n");
-			if (i < win->begy || i > win->begy + win->maxy - 1)
-				continue;
-			__CTRACE("W: %d:", i - win->begy);
-			__CTRACE(" 0x%x \n", win->lines[i - win->begy]->hash);
-			__CTRACE(" 0x%x ", win->lines[i - win->begy]->flags);
-			for (j = 0; j < win->maxx; j++)
-				__CTRACE("%c",
-				   win->lines[i - win->begy]->line[j].ch);
-			__CTRACE("\n");
-			for (j = 0; j < win->maxx; j++)
-				__CTRACE("%x",
-				   win->lines[i - win->begy]->line[j].attr);
-			__CTRACE("\n");
-		}
-}
-#endif /* DEBUG */
-
-	for (wy = 0; wy < win->maxy; wy++) {
-#ifdef DEBUG
-		__CTRACE("%d\t%d\t%d\n",
-		    wy, *win->lines[wy]->firstchp, *win->lines[wy]->lastchp);
-#endif
-		if (!curwin)
-			curscr->lines[win->begy + wy]->hash = win->lines[wy]->hash;
-		if (win->lines[wy]->flags & (__ISDIRTY | __FORCEPAINT)) {
-			if (makech(win, wy) == ERR)
-				return (ERR);
-			else {
-				if (*win->lines[wy]->firstchp >= win->ch_off)
-					*win->lines[wy]->firstchp = win->maxx +
-					    win->ch_off;
-				if (*win->lines[wy]->lastchp < win->maxx +
-				    win->ch_off)
-					*win->lines[wy]->lastchp = win->ch_off;
-				if (*win->lines[wy]->lastchp <
-				    *win->lines[wy]->firstchp) {
-#ifdef DEBUG
-					__CTRACE("wrefresh: line %d notdirty \n", wy);
-#endif
-					win->lines[wy]->flags &= ~__ISDIRTY;
-				}
-			}
-
-		}
-#ifdef DEBUG
-		__CTRACE("\t%d\t%d\n", *win->lines[wy]->firstchp,
-			*win->lines[wy]->lastchp);
-#endif
-	}
-
-#ifdef DEBUG
-	__CTRACE("refresh: ly=%d, lx=%d\n", ly, lx);
-#endif
-
-	if (win == curscr)
-		domvcur(ly, lx, win->cury, win->curx);
-	else {
-		if (win->flags & __LEAVEOK) {
-			curscr->cury = ly;
-			curscr->curx = lx;
-			ly -= win->begy;
-			lx -= win->begx;
-			if (ly >= 0 && ly < win->maxy && lx >= 0 &&
-			    lx < win->maxx) {
-				win->cury = ly;
-				win->curx = lx;
-			} else
-				win->cury = win->curx = 0;
-		} else {
-			domvcur(ly, lx, win->cury + win->begy,
-			    win->curx + win->begx);
-			curscr->cury = win->cury + win->begy;
-			curscr->curx = win->curx + win->begx;
-		}
-	}
-	retval = OK;
-
-	(void)fflush(stdout);
-	return (retval);
-}
-
-/*
- * makech --
- *	Make a change on the screen.
- */
-static int
-makech(win, wy)
-	register WINDOW *win;
-	int wy;
-{
-	static __LDATA blank = {' ', 0};
-	register int nlsp, clsp;		/* Last space in lines. */
-	register int wx, lch, y;
-	register __LDATA *nsp, *csp, *cp, *cep;
-	u_int force;
-	char *ce;
-
-	/* Is the cursor still on the end of the last line? */
-	if (wy > 0 && win->lines[wy - 1]->flags & __ISPASTEOL) {
-		domvcur(ly, lx, ly + 1, 0);
-		ly++;
-		lx = 0;
-	}
-	wx = *win->lines[wy]->firstchp - win->ch_off;
-	if (wx < 0)
-		wx = 0;
-	else if (wx >= win->maxx)
-		return (OK);
-	lch = *win->lines[wy]->lastchp - win->ch_off;
-	if (lch < 0)
-		return (OK);
-	else if (lch >= (int) win->maxx)
-		lch = win->maxx - 1;
-	y = wy + win->begy;
-
-	if (curwin)
-		csp = &blank;
-	else
-		csp = &curscr->lines[wy + win->begy]->line[wx + win->begx];
-
-	nsp = &win->lines[wy]->line[wx];
-	force = win->lines[wy]->flags & __FORCEPAINT;
-	win->lines[wy]->flags &= ~__FORCEPAINT;
-	if (CE && !curwin) {
-		for (cp = &win->lines[wy]->line[win->maxx - 1];
-		     cp->ch == ' ' && cp->attr == 0; cp--)
-			if (cp <= win->lines[wy]->line)
-				break;
-		nlsp = cp - win->lines[wy]->line;
-	}
-	if (!curwin)
-		ce = CE;
-	else
-		ce = NULL;
-
-	if (force) {
-		if (CM)
-			tputs(tgoto(CM, lx, ly), 1, __cputchar);
-		else {
-			tputs(HO, 1, __cputchar);
-			__mvcur(0, 0, ly, lx, 1);
-		}
-	}
-	while (wx <= lch) {
-		if (!force && memcmp(nsp, csp, sizeof(__LDATA)) == 0) {
-			if (wx <= lch) {
-				while (wx <= lch &&
-				       memcmp(nsp, csp, sizeof(__LDATA)) == 0) {
-					    nsp++;
-					    if (!curwin)
-						    csp++;
-					    ++wx;
-				    }
-				continue;
-			}
-			break;
-		}
-		domvcur(ly, lx, y, wx + win->begx);
-
-#ifdef DEBUG
-		__CTRACE("makech: 1: wx = %d, ly= %d, lx = %d, newy = %d, newx = %d, force =%d\n",
-		    wx, ly, lx, y, wx + win->begx, force);
-#endif
-		ly = y;
-		lx = wx + win->begx;
-		while ((force || memcmp(nsp, csp, sizeof(__LDATA)) != 0)
-		    && wx <= lch) {
-
-			if (ce != NULL && win->maxx + win->begx ==
-			    curscr->maxx && wx >= nlsp && nsp->ch == ' ' && nsp->attr == 0) {
-				/* Check for clear to end-of-line. */
-				cep = &curscr->lines[win->begy + wy]->line[win->begx + win->maxx - 1];
-				while (cep->ch == ' ' && cep->attr == 0)
-					if (cep-- <= csp)
-						break;
-				clsp = cep - curscr->lines[win->begy + wy]->line -
-				       win->begx;
-#ifdef DEBUG
-			__CTRACE("makech: clsp = %d, nlsp = %d\n", clsp, nlsp);
-#endif
-				if ((clsp - nlsp >= strlen(CE)
-				    && clsp < win->maxx) ||
-				    wy == win->maxy - 1) {
-#ifdef DEBUG
-					__CTRACE("makech: using CE\n");
-#endif
-					if (curscr->flags & __WSTANDOUT) {
-						tputs(SE, 0, __cputchar);
-						curscr->flags &= ~__WSTANDOUT;
-					}
-					tputs(CE, 1, __cputchar);
-					lx = wx + win->begx;
-					while (wx++ <= clsp) {
-						csp->ch = ' ';
-						csp->attr = 0;
-						csp++;
-					}
-					return (OK);
-				}
-				ce = NULL;
-			}
-
-			/* Enter/exit standout mode as appropriate. */
-			/* don't use simple ! here due to gcc -O bug */
-			if (SO && !!(nsp->attr & __STANDOUT) !=
-				  !!(curscr->flags & __WSTANDOUT)
-			   ) {
-				if (nsp->attr & __STANDOUT) {
-					tputs(SO, 0, __cputchar);
-					curscr->flags |= __WSTANDOUT;
-				} else {
-					tputs(SE, 0, __cputchar);
-					curscr->flags &= ~__WSTANDOUT;
-				}
-			}
-
-			wx++;
-			if (wx >= win->maxx && wy == win->maxy - 1 && !curwin)
-				if (win->flags & __SCROLLOK) {
-					if (curscr->flags & __WSTANDOUT
-					    && win->flags & __ENDLINE)
-						if (!MS) {
-							tputs(SE, 0,
-							    __cputchar);
-							curscr->flags &=
-							    ~__WSTANDOUT;
-						}
-					if (!(win->flags & __SCROLLWIN)) {
-						if (!curwin) {
-							csp->attr = nsp->attr;
-							putchar(csp->ch = nsp->ch);
-						} else
-							putchar(nsp->ch);
-					}
-					if (wx + win->begx < curscr->maxx) {
-						domvcur(ly, wx + win->begx,
-						    win->begy + win->maxy - 1,
-						    win->begx + win->maxx - 1);
-					}
-					ly = win->begy + win->maxy - 1;
-					lx = win->begx + win->maxx - 1;
-					return (OK);
-				}
-			if (wx < win->maxx || wy < win->maxy - 1 ||
-			    !(win->flags & __SCROLLWIN)) {
-				if (!curwin) {
-					csp->attr = nsp->attr;
-					putchar(csp->ch = nsp->ch);
-					csp++;
-				} else
-					putchar(nsp->ch);
-			}
-#ifdef DEBUG
-			__CTRACE("makech: putchar(%c)\n", nsp->ch & 0177);
-#endif
-			if (UC && (nsp->attr & __STANDOUT)) {
-				putchar('\b');
-				tputs(UC, 0, __cputchar);
-			}
-			nsp++;
-#ifdef DEBUG
-		__CTRACE("makech: 2: wx = %d, lx = %d\n", wx, lx);
-#endif
-		}
-		if (lx == wx + win->begx)	/* If no change. */
-			break;
-		lx = wx + win->begx;
-		if (lx >= COLS && AM)
-			lx = COLS - 1;
-		else if (wx >= win->maxx) {
-			domvcur(ly, lx, ly, win->maxx + win->begx - 1);
-			lx = win->maxx + win->begx - 1;
-		}
-
-#ifdef DEBUG
-		__CTRACE("makech: 3: wx = %d, lx = %d\n", wx, lx);
-#endif
-	}
-	return (OK);
-}
-
-/*
- * domvcur --
- *	Do a mvcur, leaving standout mode if necessary.
- */
-static void
-domvcur(oy, ox, ny, nx)
-	int oy, ox, ny, nx;
-{
-	if (curscr->flags & __WSTANDOUT && !MS) {
-		tputs(SE, 0, __cputchar);
-		curscr->flags &= ~__WSTANDOUT;
-	}
-
-	__mvcur(oy, ox, ny, nx, 1);
-}
-
-/*
- * Quickch() attempts to detect a pattern in the change of the window
- * in order to optimize the change, e.g., scroll n lines as opposed to
- * repainting the screen line by line.
- */
-
-static void
-quickch(win)
-	WINDOW *win;
-{
-#define THRESH		(int) win->maxy / 4
-
-	register __LINE *clp, *tmp1, *tmp2;
-	register int bsize, curs, curw, starts, startw, i, j;
-	int n, target, cur_period, bot, top, sc_region;
-	__LDATA buf[1024];
-	u_int blank_hash;
-
-	/*
-	 * Find how many lines from the top of the screen are unchanged.
-	 */
-	for (top = win->begy; top < win->begy + win->maxy; top++)
-		if (win->lines[top - win->begy]->flags & __FORCEPAINT ||
-		    win->lines[top - win->begy]->hash != curscr->lines[top]->hash
-		    || memcmp(win->lines[top - win->begy]->line,
-		    curscr->lines[top]->line,
-		    win->maxx * __LDATASIZE) != 0)
-			break;
-		else
-			win->lines[top - win->begy]->flags &= ~__ISDIRTY;
-       /*
-	* Find how many lines from bottom of screen are unchanged.
-	*/
-	for (bot = win->begy + win->maxy - 1; bot >= (int) win->begy; bot--)
-		if (win->lines[bot - win->begy]->flags & __FORCEPAINT ||
-		    win->lines[bot - win->begy]->hash != curscr->lines[bot]->hash
-		    || memcmp(win->lines[bot - win->begy]->line,
-		    curscr->lines[bot]->line,
-		    win->maxx * __LDATASIZE) != 0)
-			break;
-		else
-			win->lines[bot - win->begy]->flags &= ~__ISDIRTY;
-
-#ifdef NO_JERKINESS
-	/*
-	 * If we have a bottom unchanged region return.  Scrolling the
-	 * bottom region up and then back down causes a screen jitter.
-	 * This will increase the number of characters sent to the screen
-	 * but it looks better.
-	 */
-	if (bot < (int) win->begy + win->maxy - 1)
-		return;
-#endif /* NO_JERKINESS */
-
-	/*
-	 * Search for the largest block of text not changed.
-	 * Invariants of the loop:
-	 * - Startw is the index of the beginning of the examined block in win.
-         * - Starts is the index of the beginning of the examined block in
-	 *    curscr.
-	 * - Curw is the index of one past the end of the exmined block in win.
-	 * - Curs is the index of one past the end of the exmined block in
-	 *   curscr.
-	 * - bsize is the current size of the examined block.
-         */
-	for (bsize = bot - top; bsize >= THRESH; bsize--) {
-		for (startw = top; startw <= bot - bsize; startw++)
-			for (starts = top; starts <= bot - bsize;
-			     starts++) {
-				for (curw = startw, curs = starts;
-				     curs < starts + bsize; curw++, curs++)
-					if (win->lines[curw - win->begy]->flags &
-					    __FORCEPAINT ||
-					    (win->lines[curw - win->begy]->hash !=
-					    curscr->lines[curs]->hash ||
-					    memcmp(win->lines[curw - win->begy]->line,
-					    curscr->lines[curs]->line,
-					    win->maxx * __LDATASIZE) != 0))
-						break;
-				if (curs == starts + bsize)
-					goto done;
-			}
-	}
- done:
-	/* Did not find anything */
-	if (bsize < THRESH)
-		return;
-
-#ifdef DEBUG
-	__CTRACE("quickch:bsize=%d,starts=%d,startw=%d,curw=%d,curs=%d,top=%d,bot=%d\n",
-		bsize, starts, startw, curw, curs, top, bot);
-#endif
-
-	/*
-	 * Make sure that there is no overlap between the bottom and top
-	 * regions and the middle scrolled block.
-	 */
-	if (bot < curs)
-		bot = curs - 1;
-	if (top > starts)
-		top = starts;
-
-	n = startw - starts;
-
-#ifdef DEBUG
-		__CTRACE("#####################################\n");
-		for (i = 0; i < curscr->maxy; i++) {
-			__CTRACE("C: %d:", i);
-			__CTRACE(" 0x%x \n", curscr->lines[i]->hash);
-			for (j = 0; j < curscr->maxx; j++)
-				__CTRACE("%c",
-			           curscr->lines[i]->line[j].ch);
-			__CTRACE("\n");
-			for (j = 0; j < curscr->maxx; j++)
-				__CTRACE("%x",
-			           curscr->lines[i]->line[j].attr);
-			__CTRACE("\n");
-			if (i < win->begy || i > win->begy + win->maxy - 1)
-				continue;
-			__CTRACE("W: %d:", i - win->begy);
-			__CTRACE(" 0x%x \n", win->lines[i - win->begy]->hash);
-			__CTRACE(" 0x%x ", win->lines[i - win->begy]->flags);
-			for (j = 0; j < win->maxx; j++)
-				__CTRACE("%c",
-				   win->lines[i - win->begy]->line[j].ch);
-			__CTRACE("\n");
-			for (j = 0; j < win->maxx; j++)
-				__CTRACE("%x",
-				   win->lines[i - win->begy]->line[j].attr);
-			__CTRACE("\n");
-		}
-#endif
-
-	/* So we don't have to call __hash() each time */
-	for (i = 0; i < win->maxx; i++) {
-		buf[i].ch = ' ';
-		buf[i].attr = 0;
-	}
-	blank_hash = __hash((char *) buf, win->maxx * __LDATASIZE);
-
-	/*
-	 * Perform the rotation to maintain the consistency of curscr.
-	 * This is hairy since we are doing an *in place* rotation.
-	 * Invariants of the loop:
-	 * - I is the index of the current line.
-	 * - Target is the index of the target of line i.
-	 * - Tmp1 points to current line (i).
-	 * - Tmp2 and points to target line (target);
-	 * - Cur_period is the index of the end of the current period.
-	 *   (see below).
-	 *
-	 * There are 2 major issues here that make this rotation non-trivial:
-	 * 1.  Scrolling in a scrolling region bounded by the top
-	 *     and bottom regions determined (whose size is sc_region).
-	 * 2.  As a result of the use of the mod function, there may be a
-	 *     period introduced, i.e., 2 maps to 4, 4 to 6, n-2 to 0, and
-	 *     0 to 2, which then causes all odd lines not to be rotated.
-	 *     To remedy this, an index of the end ( = beginning) of the
-	 *     current 'period' is kept, cur_period, and when it is reached,
-	 *     the next period is started from cur_period + 1 which is
-	 *     guaranteed not to have been reached since that would mean that
-	 *     all records would have been reached. (think about it...).
-	 *
-	 * Lines in the rotation can have 3 attributes which are marked on the
-	 * line so that curscr is consistent with the visual screen.
-	 * 1.  Not dirty -- lines inside the scrolled block, top region or
-	 *                  bottom region.
-	 * 2.  Blank lines -- lines in the differential of the scrolling
-	 *		      region adjacent to top and bot regions
-	 *                    depending on scrolling direction.
-	 * 3.  Dirty line -- all other lines are marked dirty.
-	 */
-	sc_region = bot - top + 1;
-	i = top;
-	tmp1 = curscr->lines[top];
-	cur_period = top;
-	for (j = top; j <= bot; j++) {
-		target = (i - top + n + sc_region) % sc_region + top;
-		tmp2 = curscr->lines[target];
-		curscr->lines[target] = tmp1;
-		/* Mark block as clean and blank out scrolled lines. */
-		clp = curscr->lines[target];
-#ifdef DEBUG
-		__CTRACE("quickch: n=%d startw=%d curw=%d i = %d target=%d ",
-			n, startw, curw, i, target);
-#endif
-		if ((target >= startw && target < curw) || target < top
-		    || target > bot) {
-#ifdef DEBUG
-			__CTRACE("-- notdirty");
-#endif
-			win->lines[target - win->begy]->flags &= ~__ISDIRTY;
-		} else if ((n > 0 && target >= top && target < top + n) ||
-		           (n < 0 && target <= bot && target > bot + n)) {
-			if (clp->hash != blank_hash ||  memcmp(clp->line,
-			    buf, win->maxx * __LDATASIZE) !=0) {
-				(void)memcpy(clp->line,  buf,
-				    win->maxx * __LDATASIZE);
-#ifdef DEBUG
-				__CTRACE("-- blanked out: dirty");
-#endif
-				clp->hash = blank_hash;
-				__touchline(win, target - win->begy, 0, win->maxx - 1, 0);
-			} else {
-				__touchline(win, target - win->begy, 0, win->maxx - 1, 0);
-#ifdef DEBUG
-				__CTRACE(" -- blank line already: dirty");
-#endif
-			}
-		} else {
-#ifdef DEBUG
-			__CTRACE(" -- dirty");
-#endif
-			__touchline(win, target - win->begy, 0, win->maxx - 1, 0);
-		}
-#ifdef DEBUG
-		__CTRACE("\n");
-#endif
-		if (target == cur_period) {
-			i = target + 1;
-			tmp1 = curscr->lines[i];
-			cur_period = i;
-		} else {
-			tmp1 = tmp2;
-			i = target;
-		}
-	}
-#ifdef DEBUG
-		__CTRACE("$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\n");
-		for (i = 0; i < curscr->maxy; i++) {
-			__CTRACE("C: %d:", i);
-			for (j = 0; j < curscr->maxx; j++)
-				__CTRACE("%c",
-			           curscr->lines[i]->line[j].ch);
-			__CTRACE("\n");
-			if (i < win->begy || i > win->begy + win->maxy - 1)
-				continue;
-			__CTRACE("W: %d:", i - win->begy);
-			for (j = 0; j < win->maxx; j++)
-				__CTRACE("%c",
-				   win->lines[i - win->begy]->line[j].ch);
-			__CTRACE("\n");
-		}
-#endif
-	if (n != 0) {
-		WINDOW *wp;
-		scrolln(starts, startw, curs, bot, top);
-		/*
-		 * Need to repoint any subwindow lines to the rotated
-		 * line structured.
-		 */
-		for (wp = curscr->nextp; wp != curscr; wp = wp->nextp)
-			__set_subwin(wp->orig, wp);
-	}
-}
-
-/*
- * scrolln --
- *	Scroll n lines, where n is starts - startw.
- */
-static void
-scrolln(starts, startw, curs, bot, top)
-	int starts, startw, curs, bot, top;
-{
-	int i, oy, ox, n;
-
-	oy = curscr->cury;
-	ox = curscr->curx;
-	n = starts - startw;
-
-	/*
-	 * When the scrolling region has been set, the cursor has to be at the
-	 * last line of the region to make the scroll happen.
-	 *
-	 * Doing SF/SR or AL/DL appears faster on the screen than either sf/sr
-	 * or al/dl, and, some terminals have AL/DL, sf/sr, and CS, but not
-	 * SF/SR.  So, if we're scrolling almost all of the screen, try and use
-	 * AL/DL, otherwise use the scrolling region.  The "almost all" is a
-	 * shameless hack for vi.
-	 */
-
-	if (__usecs) {  /* Use change scroll region */
-		if (bot != curscr->maxy - 1 || top != 0)
-			__set_scroll_region(top, bot, ox, oy);
-		if (n > 0) {
-			__mvcur(oy, ox, bot, 0, 1);
-			/* Scroll up the block */
-			if (SF != NULL && n > 1)
-				tputs(__tscroll(SF, n, 0), n, __cputchar);
-			else
-				/* newline seems faster than sf */
-				for(i = 0; i < n; i++)
-					if (NL && __pfast)
-						tputs(NL, 1, __cputchar);
-					else
-						putchar('\n');
-			__mvcur(bot, 0, oy, ox, 1);
-		} else {
-			__mvcur(oy, ox, top, 0, 1);
-			/* Scroll the block down */
-			if (SR != NULL && (sr == NULL || -n > 1))
-				tputs(__tscroll(SR, -n, 0), -n, __cputchar);
-			else
-				for(i = n; i < 0; i++)
-					tputs(sr, 1, __cputchar);
-			__mvcur(top, 0, oy, ox, 1);
-		}
-		if (bot != curscr->maxy - 1 || top != 0)
-			__set_scroll_region(0, curscr->maxy - 1, ox, oy);
-		return;
-	}
-
-	if (n > 0) {
-		/* Scroll up the screen. */
-		if (((!DB && SF != NULL) || n == 1) && (bot == curscr->maxy - 1) && top == 0) {
-			__mvcur(oy, ox, curscr->maxy - 1, 0, 1);
-			if (n == 1)
-				goto f_nl1;
-			tputs(__tscroll(SF, n, 0), n, __cputchar);
-			__mvcur(curscr->maxy - 1, 0, oy, ox, 1);
-			return;
-		}
-		else if (DL != NULL && top != 0) {
-			__mvcur(oy, ox, top, 0, 1);
-			if (dl != NULL && n == 1)
-				goto f_dl1;
-			tputs(__tscroll(DL, n, 0), n, __cputchar);
-			__mvcur(top, 0, bot - n + 1, 0, 1);
-		}
-		else if (dl != NULL && top != 0) {
-			__mvcur(oy, ox, top, 0, 1);
-		f_dl1:
-			for (i = 0; i < n; i++)
-				tputs(dl, 1, __cputchar);
-			__mvcur(top, 0, bot - n + 1, 0, 1);
-		}
-		else if (top == 0) {
-			__mvcur(oy, ox, curscr->maxy - 1, 0, 1);
-		f_nl1:
-			/* newline seems faster than sf */
-			for(i = 0; i < n; i++)
-				if (NL && __pfast)
-					tputs(NL, 1, __cputchar);
-				else
-					putchar('\n');
-			if (bot == curscr->maxy - 1) {
-				__mvcur(curscr->maxy - 1, 0, oy, ox, 1);
-				return;
-			}
-			__mvcur(curscr->maxy - 1, 0, bot - n + 1, 0, 1);
-		}
-		else
-			abort();
-
-		/* Push down the bottom region. */
-		if (AL != NULL) {
-			if (al != NULL && n == 1)
-				goto f_al1;
-			tputs(__tscroll(AL, n, 0), n, __cputchar);
-		}
-		else if (al != NULL) {
-		f_al1:
-			for (i = 0; i < n; i++)
-				tputs(al, 1, __cputchar);
-		}
-		else
-			abort();
-		__mvcur(bot - n + 1, 0, oy, ox, 1);
-	} else {
-		/*
-		 * !!!
-		 * n < 0
-		 */
-		/* Scroll down the screen. */
-		if (!DA && (SR != NULL || sr != NULL) && bot == curscr->maxy - 1 && top == 0) {
-			__mvcur(oy, ox, 0, 0, 1);
-			if (SR == NULL || (sr != NULL && -n == 1)) {
-				for (i = n; i < 0; i++)
-					tputs(sr, 1, __cputchar);
-			} else
-				tputs(__tscroll(SR, -n, 0), -n, __cputchar);
-			__mvcur(0, 0, oy, ox, 1);
-			return;
-		}
-		else if (DL != NULL) {
-			__mvcur(oy, ox, bot + n + 1, 0, 1);
-			if (dl != NULL && -n == 1)
-				goto b_dl1;
-			tputs(__tscroll(DL, -n, 0), -n, __cputchar);
-			__mvcur(bot + n + 1, 0, top, 0, 1);
-		}
-		else if (dl != NULL) {
-			__mvcur(oy, ox, bot + n + 1, 0, 1);
-		b_dl1:
-		       	for (i = n; i < 0; i++)
-				tputs(dl, 1, __cputchar);
-			__mvcur(bot + n + 1, 0, top, 0, 1);
-		}
-		else
-			abort();
-
-		/* Scroll the block down. */
-		if (AL != NULL) {
-			if (al != NULL && -n == 1)
-				goto b_al1;
-			tputs(__tscroll(AL, -n, 0), -n, __cputchar);
-		}
-		else if (al != NULL) {
-		b_al1:
-			for (i = n; i < 0; i++)
-				tputs(al, 1, __cputchar);
-		}
-		else
-			abort();
-		__mvcur(top, 0, oy, ox, 1);
-	}
-}