scrolling has come

[unix-history] / usr / src / usr.bin / window / wwwrite.c

#ifndef lint
static	char *sccsid = "@(#)wwwrite.c	3.5 83/08/18";
#endif

#include "ww.h"

wwwrite(w, p, n)
register struct ww *w;
register char *p;
int n;
{
	char c;
	int oldn = n;

	if (w == 0)
		return -1;
	wwnwrite++;
	wwnwritec += n;
	while (--n >= 0) {
		c = *p++ & 0x7f;
		switch (w->ww_wstate) {
		case 0:
			if (!ISCTRL(c)) {
				int i, j;
				register union ww_char *bp;
				union ww_char *bq;
				register union ww_char *ns;
				register char *smap;
				register char *win;
				char *touched;

				if (w->ww_insert) {
					wwinschar(w, w->ww_scroll + w->ww_cur.r,
						w->ww_cur.c, c);
					goto right;
				}
				i = w->ww_w.nc - w->ww_cur.c - 1;
				bp = bq = &w->ww_buf[w->ww_scroll+w->ww_cur.r]
					[w->ww_cur.c];
				bp++->c_w = c | w->ww_modes << WWC_MSHIFT;
				while (n > 0 && --i >= 0 && !ISCTRL(*p)) {
					n--;
					bp++->c_w = *p++ & 0x7f
						| w->ww_modes << WWC_MSHIFT;
				}
				win = &w->ww_win[w->ww_cur.r][w->ww_cur.c];
				i = wwcurrow(w);
				j = wwcurcol(w);
				smap = &wwsmap[i][j];
				ns = &wwns[i][j];
				touched = &wwtouched[i];
				j = i = bp - bq;
				bp = bq;
				while (--i >= 0) {
					if (*smap++ == w->ww_index) {
						*touched = 1;
						ns++->c_w = bp++->c_w
							^ *win++ << WWC_MSHIFT;
					} else {
						ns++;
						bp++;
						win++;
					}
				}
				if ((w->ww_cur.c += j) >= w->ww_w.nc) {
					w->ww_cur.c = 0;
					goto lf;
				}
				break;
			}
			switch (c) {
			case '\n':
				if (w->ww_mapnl)
					w->ww_cur.c = 0;
		lf:
				if (++w->ww_cur.r >= w->ww_w.nr) {
					w->ww_cur.r = w->ww_w.nr - 1;
					if (w->ww_scroll + w->ww_w.nr
					    < w->ww_nline)
						wwscroll(w, 1);
					else
						wwdelline(w, 0);
				}
				break;
			case '\t':
				w->ww_cur.c |= 7;
		right:
				if (++w->ww_cur.c >= w->ww_w.nc) {
					w->ww_cur.c = 0;
					goto lf;
				}
				break;
			case '\b':
				if (--w->ww_cur.c < 0) {
					w->ww_cur.c = w->ww_w.nc - 1;
					goto up;
				}
				break;
			case '\r':
				w->ww_cur.c = 0;
				break;
			case CTRL(g):
				wwbell();
				break;
			case CTRL([):
				w->ww_wstate = 1;
				break;
			}
			break;
		case 1:
			w->ww_wstate = 0;
			switch (c) {
			case '@':
				w->ww_insert = 1;
				break;
			case 'A':
		up:
				if (--w->ww_cur.r < 0) {
					w->ww_cur.r = 0;
					if (w->ww_scroll > 0)
						wwscroll(w, -1);
					else
						wwinsline(w, 0);
				}
				break;
			case 'B':
				goto lf;
			case 'C':
				goto right;
			case 'E':
				w->ww_scroll = 0;
				w->ww_cur.c = w->ww_cur.r = 0;
				wwclreos(w, 0, 0);
				break;
			case 'H':
				w->ww_cur.c = w->ww_cur.r = 0;
				break;
			case 'J':
				wwclreos(w, w->ww_scroll + w->ww_cur.r,
					w->ww_cur.c);
				break;
			case 'K':
				wwclreol(w, w->ww_scroll + w->ww_cur.r,
					w->ww_cur.c);
				break;
			case 'L':
				wwinsline(w, w->ww_scroll + w->ww_cur.r);
				break;
			case 'M':
				wwdelline(w, w->ww_scroll + w->ww_cur.r);
				break;
			case 'N':
				wwdelchar(w, w->ww_scroll + w->ww_cur.r,
					w->ww_cur.c);
				break;
			case 'O':
				w->ww_insert = 0;
				break;
			case 'Y':
				w->ww_wstate = 2;
				break;
			case 'p':
				w->ww_modes |= WWM_REV;
				break;
			case 'q':
				w->ww_modes &= ~WWM_REV;
				break;
			case 'r':
				w->ww_modes |= WWM_UL;
				break;
			case 's':
				w->ww_modes &= ~WWM_UL;
				break;
			}
			break;
		case 2:
			w->ww_cur.r = (c - ' ') % w->ww_w.nr;
			w->ww_wstate++;
			break;
		case 3:
			w->ww_cur.c = (c - ' ') % w->ww_w.nc;
			w->ww_wstate = 0;
			break;
		}
	}
	return oldn - n;
}