[unix-history] / usr / src / lib / libcurses / refresh.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
static char sccsid[] = "@(#)refresh.c	5.1 (Berkeley) %G%";
#endif not lint

/*
 * make the current screen look like "win" over the area coverd by
 * win.
 */

# include	"curses.ext"

# ifdef DEBUG
# define	STATIC
# else
# define	STATIC	static
# endif

STATIC short	ly, lx;

STATIC bool	curwin;

WINDOW	*_win = NULL;

wrefresh(win)
reg WINDOW	*win;
{
	reg short	wy;
	reg int		retval;
	reg WINDOW	*orig;

	/*
	 * make sure were in visual state
	 */
	if (_endwin) {
		_puts(VS);
		_puts(TI);
		_endwin = FALSE;
	}

	/*
	 * initialize loop parameters
	 */

	ly = curscr->_cury;
	lx = curscr->_curx;
	wy = 0;
	_win = win;
	curwin = (win == curscr);

	if (win->_clear || curscr->_clear || curwin) {
		if ((win->_flags & _FULLWIN) || curscr->_clear) {
			_puts(CL);
			ly = 0;
			lx = 0;
			if (!curwin) {
				curscr->_clear = FALSE;
				curscr->_cury = 0;
				curscr->_curx = 0;
				werase(curscr);
			}
			touchwin(win);
		}
		win->_clear = FALSE;
	}
	if (!CA) {
		if (win->_curx != 0)
			_putchar('\n');
		if (!curwin)
			werase(curscr);
	}
# ifdef DEBUG
	fprintf(outf, "REFRESH(%0.2o): curwin = %d\n", win, curwin);
	fprintf(outf, "REFRESH:\n\tfirstch\tlastch\n");
# endif
	for (wy = 0; wy < win->_maxy; wy++) {
# ifdef DEBUG
		fprintf(outf, "%d\t%d\t%d\n", wy, win->_firstch[wy],
			win->_lastch[wy]);
# endif
		if (win->_firstch[wy] != _NOCHANGE)
			if (makech(win, wy) == ERR)
				return ERR;
			else {
				if (win->_firstch[wy] >= win->_ch_off)
					win->_firstch[wy] = win->_maxx +
							    win->_ch_off;
				if (win->_lastch[wy] < win->_maxx +
						       win->_ch_off)
					win->_lastch[wy] = win->_ch_off;
				if (win->_lastch[wy] < win->_firstch[wy])
					win->_firstch[wy] = _NOCHANGE;
			}
# ifdef DEBUG
		fprintf(outf, "\t%d\t%d\n", win->_firstch[wy],
			win->_lastch[wy]);
# endif
	}

	if (win == curscr)
		domvcur(ly, lx, win->_cury, win->_curx);
	else {
		if (win->_leave) {
			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;
ret:
	_win = NULL;
	fflush(stdout);
	return retval;
}

/*
 * make a change on the screen
 */
STATIC
makech(win, wy)
reg WINDOW	*win;
short		wy;
{
	reg char	*nsp, *csp, *ce;
	reg short	wx, lch, y;
	reg int		nlsp, clsp;	/* last space in lines		*/

	wx = win->_firstch[wy] - win->_ch_off;
	if (wx >= win->_maxx)
		return OK;
	else if (wx < 0)
		wx = 0;
	lch = win->_lastch[wy] - win->_ch_off;
	if (lch < 0)
		return OK;
	else if (lch >= win->_maxx)
		lch = win->_maxx - 1;;
	y = wy + win->_begy;

	if (curwin)
		csp = " ";
	else
		csp = &curscr->_y[wy + win->_begy][wx + win->_begx];

	nsp = &win->_y[wy][wx];
	if (CE && !curwin) {
		for (ce = &win->_y[wy][win->_maxx - 1]; *ce == ' '; ce--)
			if (ce <= win->_y[wy])
				break;
		nlsp = ce - win->_y[wy];
	}

	if (!curwin)
		ce = CE;
	else
		ce = NULL;

	while (wx <= lch) {
		if (*nsp != *csp) {
			domvcur(ly, lx, y, wx + win->_begx);
# ifdef DEBUG
			fprintf(outf, "MAKECH: 1: wx = %d, lx = %d\n", wx, lx);
# endif	
			ly = y;
			lx = wx + win->_begx;
			while (*nsp != *csp && wx <= lch) {
				if (ce != NULL && wx >= nlsp && *nsp == ' ') {
					/*
					 * check for clear to end-of-line
					 */
					ce = &curscr->_y[ly][COLS - 1];
					while (*ce == ' ')
						if (ce-- <= csp)
							break;
					clsp = ce - curscr->_y[ly] - win->_begx;
# ifdef DEBUG
					fprintf(outf, "MAKECH: clsp = %d, nlsp = %d\n", clsp, nlsp);
# endif
					if (clsp - nlsp >= strlen(CE)
					    && clsp < win->_maxx) {
# ifdef DEBUG
						fprintf(outf, "MAKECH: using CE\n");
# endif
						_puts(CE);
						lx = wx + win->_begx;
						while (wx++ <= clsp)
							*csp++ = ' ';
						return OK;
					}
					ce = NULL;
				}
				/*
				 * enter/exit standout mode as appropriate
				 */
				if (SO && (*nsp&_STANDOUT) != (curscr->_flags&_STANDOUT)) {
					if (*nsp & _STANDOUT) {
						_puts(SO);
						curscr->_flags |= _STANDOUT;
					}
					else {
						_puts(SE);
						curscr->_flags &= ~_STANDOUT;
					}
				}
				wx++;
				if (wx >= win->_maxx && wy == win->_maxy - 1)
					if (win->_scroll) {
					    if ((curscr->_flags&_STANDOUT) &&
					        (win->_flags & _ENDLINE))
						    if (!MS) {
							_puts(SE);
							curscr->_flags &= ~_STANDOUT;
						    }
					    if (!curwin)
						_putchar((*csp = *nsp) & 0177);
					    else
						_putchar(*nsp & 0177);
					    if (win->_flags&_FULLWIN && !curwin)
						scroll(curscr);
					    ly = win->_begy+win->_cury;
					    lx = win->_begx+win->_curx;
					    return OK;
					}
					else if (win->_flags&_SCROLLWIN) {
					    lx = --wx;
					    return ERR;
					}
				if (!curwin)
					_putchar((*csp++ = *nsp) & 0177);
				else
					_putchar(*nsp & 0177);
# ifdef FULLDEBUG
				fprintf(outf,
					"MAKECH:putchar(%c)\n", *nsp & 0177);
# endif
				if (UC && (*nsp & _STANDOUT)) {
					_putchar('\b');
					_puts(UC);
				}
				nsp++;
			}
# ifdef DEBUG
			fprintf(outf, "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 = 0;
				ly++;
				/*
				 * xn glitch: chomps a newline after auto-wrap.
				 * we just feed it now and forget about it.
				 */
				if (XN) {
					_putchar('\n');
					_putchar('\r');
				}
			}
		}
		else if (wx <= lch)
			while (*nsp == *csp && wx <= lch) {
				nsp++;
				if (!curwin)
					csp++;
				++wx;
			}
		else
			break;
# ifdef DEBUG
		fprintf(outf, "MAKECH: 3: wx = %d, lx = %d\n", wx, lx);
# endif	
	}
	return OK;
}

/*
 * perform a mvcur, leaving standout mode if necessary
 */
STATIC
domvcur(oy, ox, ny, nx)
int	oy, ox, ny, nx; {

	if (curscr->_flags & _STANDOUT && !MS) {
		_puts(SE);
		curscr->_flags &= ~_STANDOUT;
	}
	mvcur(oy, ox, ny, nx);
}
Commit	Line	Data
c2affd4a KM	1	/*
	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*/
	6
	7	#ifndef lint
	8	static char sccsid[] = "@(#)refresh.c 5.1 (Berkeley) %G%";
	9	#endif not lint
	10
55bb1023 KA	11	/*
	12	* make the current screen look like "win" over the area coverd by
	13	* win.
55bb1023 KA	14	*/
	15
	16	# include "curses.ext"
	17
01bcb98c KA	18	# ifdef DEBUG
01bcb98c KA	19	# define STATIC
55bb1023	20	# else
01bcb98c	21	# define STATIC static
55bb1023 KA	22	# endif
55bb1023 KA	23
01bcb98c KA	24	STATIC short ly, lx;
	25
	26	STATIC bool curwin;
	27
55bb1023 KA	28	WINDOW *_win = NULL;
	29
	30	wrefresh(win)
	31	reg WINDOW *win;
	32	{
	33	reg short wy;
01bcb98c	34	reg int retval;
7376ec5f	35	reg WINDOW *orig;
55bb1023 KA	36
	37	/*
	38	* make sure were in visual state
	39	*/
	40	if (_endwin) {
	41	_puts(VS);
	42	_puts(TI);
	43	_endwin = FALSE;
	44	}
01bcb98c KA	45
	46	/*
	47	* initialize loop parameters
	48	*/
	49
	50	ly = curscr->_cury;
	51	lx = curscr->_curx;
	52	wy = 0;
	53	_win = win;
	54	curwin = (win == curscr);
	55
	56	if (win->_clear \|\| curscr->_clear \|\| curwin) {
55bb1023 KA	57	if ((win->_flags & _FULLWIN) \|\| curscr->_clear) {
55bb1023 KA	58	_puts(CL);
524d237b KA	59	ly = 0;
	60	lx = 0;
	61	if (!curwin) {
	62	curscr->_clear = FALSE;
	63	curscr->_cury = 0;
	64	curscr->_curx = 0;
01bcb98c	65	werase(curscr);
524d237b	66	}
55bb1023 KA	67	touchwin(win);
	68	}
	69	win->_clear = FALSE;
	70	}
	71	if (!CA) {
	72	if (win->_curx != 0)
7376ec5f	73	_putchar('\n');
01bcb98c KA	74	if (!curwin)
01bcb98c KA	75	werase(curscr);
55bb1023 KA	76	}
55bb1023 KA	77	# ifdef DEBUG
01bcb98c	78	fprintf(outf, "REFRESH(%0.2o): curwin = %d\n", win, curwin);
55bb1023 KA	79	fprintf(outf, "REFRESH:\n\tfirstch\tlastch\n");
55bb1023 KA	80	# endif
55bb1023 KA	81	for (wy = 0; wy < win->_maxy; wy++) {
55bb1023 KA	82	# ifdef DEBUG
7376ec5f JB	83	fprintf(outf, "%d\t%d\t%d\n", wy, win->_firstch[wy],
7376ec5f JB	84	win->_lastch[wy]);
55bb1023 KA	85	# endif
	86	if (win->_firstch[wy] != _NOCHANGE)
	87	if (makech(win, wy) == ERR)
	88	return ERR;
7376ec5f JB	89	else {
	90	if (win->_firstch[wy] >= win->_ch_off)
	91	win->_firstch[wy] = win->_maxx +
	92	win->_ch_off;
	93	if (win->_lastch[wy] < win->_maxx +
	94	win->_ch_off)
	95	win->_lastch[wy] = win->_ch_off;
	96	if (win->_lastch[wy] < win->_firstch[wy])
	97	win->_firstch[wy] = _NOCHANGE;
	98	}
	99	# ifdef DEBUG
	100	fprintf(outf, "\t%d\t%d\n", win->_firstch[wy],
	101	win->_lastch[wy]);
	102	# endif
55bb1023	103	}
7376ec5f	104
524d237b KA	105	if (win == curscr)
524d237b KA	106	domvcur(ly, lx, win->_cury, win->_curx);
55bb1023	107	else {
7376ec5f JB	108	if (win->_leave) {
	109	curscr->_cury = ly;
	110	curscr->_curx = lx;
	111	ly -= win->_begy;
	112	lx -= win->_begx;
	113	if (ly >= 0 && ly < win->_maxy && lx >= 0 &&
	114	lx < win->_maxx) {
	115	win->_cury = ly;
	116	win->_curx = lx;
	117	}
	118	else
	119	win->_cury = win->_curx = 0;
	120	}
	121	else {
	122	domvcur(ly, lx, win->_cury + win->_begy,
	123	win->_curx + win->_begx);
	124	curscr->_cury = win->_cury + win->_begy;
	125	curscr->_curx = win->_curx + win->_begx;
	126	}
55bb1023	127	}
01bcb98c KA	128	retval = OK;
01bcb98c KA	129	ret:
55bb1023 KA	130	_win = NULL;
55bb1023 KA	131	fflush(stdout);
01bcb98c	132	return retval;
55bb1023 KA	133	}
	134
	135	/*
	136	* make a change on the screen
	137	*/
01bcb98c	138	STATIC
55bb1023 KA	139	makech(win, wy)
	140	reg WINDOW *win;
	141	short wy;
	142	{
	143	reg char nsp, csp, *ce;
	144	reg short wx, lch, y;
	145	reg int nlsp, clsp; /* last space in lines */
	146
7376ec5f JB	147	wx = win->_firstch[wy] - win->_ch_off;
	148	if (wx >= win->_maxx)
	149	return OK;
	150	else if (wx < 0)
	151	wx = 0;
	152	lch = win->_lastch[wy] - win->_ch_off;
	153	if (lch < 0)
	154	return OK;
	155	else if (lch >= win->_maxx)
	156	lch = win->_maxx - 1;;
55bb1023	157	y = wy + win->_begy;
7376ec5f	158
01bcb98c KA	159	if (curwin)
	160	csp = " ";
	161	else
	162	csp = &curscr->_y[wy + win->_begy][wx + win->_begx];
7376ec5f	163
55bb1023	164	nsp = &win->_y[wy][wx];
01bcb98c	165	if (CE && !curwin) {
55bb1023 KA	166	for (ce = &win->_y[wy][win->_maxx - 1]; *ce == ' '; ce--)
	167	if (ce <= win->_y[wy])
	168	break;
	169	nlsp = ce - win->_y[wy];
	170	}
7376ec5f	171
01bcb98c KA	172	if (!curwin)
	173	ce = CE;
	174	else
	175	ce = NULL;
7376ec5f	176
55bb1023 KA	177	while (wx <= lch) {
55bb1023 KA	178	if (nsp != csp) {
1fe7814b	179	domvcur(ly, lx, y, wx + win->_begx);
55bb1023 KA	180	# ifdef DEBUG
	181	fprintf(outf, "MAKECH: 1: wx = %d, lx = %d\n", wx, lx);
	182	# endif
	183	ly = y;
	184	lx = wx + win->_begx;
	185	while (nsp != csp && wx <= lch) {
01bcb98c	186	if (ce != NULL && wx >= nlsp && *nsp == ' ') {
55bb1023 KA	187	/*
	188	* check for clear to end-of-line
	189	*/
	190	ce = &curscr->_y[ly][COLS - 1];
	191	while (*ce == ' ')
	192	if (ce-- <= csp)
	193	break;
	194	clsp = ce - curscr->_y[ly] - win->_begx;
	195	# ifdef DEBUG
	196	fprintf(outf, "MAKECH: clsp = %d, nlsp = %d\n", clsp, nlsp);
	197	# endif
	198	if (clsp - nlsp >= strlen(CE)
	199	&& clsp < win->_maxx) {
	200	# ifdef DEBUG
	201	fprintf(outf, "MAKECH: using CE\n");
	202	# endif
	203	_puts(CE);
	204	lx = wx + win->_begx;
	205	while (wx++ <= clsp)
	206	*csp++ = ' ';
7376ec5f	207	return OK;
55bb1023 KA	208	}
	209	ce = NULL;
	210	}
	211	/*
	212	* enter/exit standout mode as appropriate
	213	*/
	214	if (SO && (*nsp&_STANDOUT) != (curscr->_flags&_STANDOUT)) {
	215	if (*nsp & _STANDOUT) {
	216	_puts(SO);
	217	curscr->_flags \|= _STANDOUT;
	218	}
	219	else {
	220	_puts(SE);
	221	curscr->_flags &= ~_STANDOUT;
	222	}
	223	}
	224	wx++;
3bd5da8b	225	if (wx >= win->_maxx && wy == win->_maxy - 1)
01bcb98c	226	if (win->_scroll) {
1fe7814b KA	227	if ((curscr->_flags&_STANDOUT) &&
	228	(win->_flags & _ENDLINE))
	229	if (!MS) {
	230	_puts(SE);
	231	curscr->_flags &= ~_STANDOUT;
	232	}
01bcb98c	233	if (!curwin)
7376ec5f	234	_putchar((csp = nsp) & 0177);
01bcb98c	235	else
7376ec5f	236	_putchar(*nsp & 0177);
01bcb98c KA	237	if (win->_flags&_FULLWIN && !curwin)
	238	scroll(curscr);
	239	ly = win->_begy+win->_cury;
	240	lx = win->_begx+win->_curx;
	241	return OK;
	242	}
	243	else if (win->_flags&_SCROLLWIN) {
	244	lx = --wx;
	245	return ERR;
	246	}
	247	if (!curwin)
7376ec5f	248	_putchar((csp++ = nsp) & 0177);
01bcb98c	249	else
7376ec5f JB	250	_putchar(*nsp & 0177);
	251	# ifdef FULLDEBUG
	252	fprintf(outf,
	253	"MAKECH:putchar(%c)\n", *nsp & 0177);
	254	# endif
55bb1023	255	if (UC && (*nsp & _STANDOUT)) {
7376ec5f	256	_putchar('\b');
55bb1023 KA	257	_puts(UC);
	258	}
	259	nsp++;
	260	}
	261	# ifdef DEBUG
	262	fprintf(outf, "MAKECH: 2: wx = %d, lx = %d\n", wx, lx);
	263	# endif
	264	if (lx == wx + win->_begx) /* if no change */
	265	break;
	266	lx = wx + win->_begx;
072ff498 KM	267	if (lx >= COLS && AM) {
	268	lx = 0;
	269	ly++;
	270	/*
	271	* xn glitch: chomps a newline after auto-wrap.
	272	* we just feed it now and forget about it.
	273	*/
	274	if (XN) {
	275	_putchar('\n');
	276	_putchar('\r');
	277	}
	278	}
55bb1023	279	}
072ff498 KM	280	else if (wx <= lch)
072ff498 KM	281	while (nsp == csp && wx <= lch) {
01bcb98c KA	282	nsp++;
	283	if (!curwin)
	284	csp++;
55bb1023 KA	285	++wx;
	286	}
	287	else
	288	break;
	289	# ifdef DEBUG
	290	fprintf(outf, "MAKECH: 3: wx = %d, lx = %d\n", wx, lx);
	291	# endif
	292	}
1fe7814b KA	293	return OK;
	294	}
	295
	296	/*
	297	* perform a mvcur, leaving standout mode if necessary
	298	*/
7376ec5f	299	STATIC
1fe7814b KA	300	domvcur(oy, ox, ny, nx)
	301	int oy, ox, ny, nx; {
	302
	303	if (curscr->_flags & _STANDOUT && !MS) {
55bb1023	304	_puts(SE);
1fe7814b	305	curscr->_flags &= ~_STANDOUT;
55bb1023	306	}
1fe7814b	307	mvcur(oy, ox, ny, nx);
55bb1023	308	}