From fe3db729f2b72d0535750d960592b698951bda64 Mon Sep 17 00:00:00 2001
From: Edward Wang <edward@ucbvax.Berkeley.EDU>
Date: Sun, 17 Jul 1983 22:19:05 -0800
Subject: [PATCH] date and time created 83/07/17 15:19:05 by edward

SCCS-vsn: usr.bin/window/wwwrite.c 1.1
---
 usr/src/usr.bin/window/wwwrite.c | 117 +++++++++++++++++++++++++++++++
 1 file changed, 117 insertions(+)
 create mode 100644 usr/src/usr.bin/window/wwwrite.c

diff --git a/usr/src/usr.bin/window/wwwrite.c b/usr/src/usr.bin/window/wwwrite.c
new file mode 100644
index 0000000000..8797d3744a
--- /dev/null
+++ b/usr/src/usr.bin/window/wwwrite.c
@@ -0,0 +1,117 @@
+#ifndef lint
+static	char *sccsid = "@(#)wwwrite.c	1.1 83/07/17";
+#endif
+
+#include "ww.h"
+
+int wwnwrite = 0;
+
+wwwrite(w, p, n)
+register struct ww *w;
+register char *p;
+register n;
+{
+	register char c;
+
+	if (w == 0 || w->ww_win == 0)
+		return -1;
+	wwnwrite += n;
+	while (n-- > 0) {
+		c = *p++ & 0x7f;
+		switch (w->ww_wstate) {
+		case 0:
+			if (c >= ' ' && c < 0x7f) {
+				if (w->ww_insert)
+					Winschars(w->ww_win, 1);
+				Wputc(c, w->ww_win);
+				break;
+			}
+			switch (c) {
+			case '\n':
+				Wputc(c, w->ww_win);
+				if (w->ww_refresh)
+					Wrefresh(1);
+				break;
+			case '\t':
+			case '\b':
+			case '\r':
+			case CTRL(g):
+				Wputc(c, w->ww_win);
+				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':
+				Wcurup(w->ww_win, 1);
+				break;
+			case 'B':
+				Wcurdown(w->ww_win, 1);
+				break;
+			case 'C':
+				Wcurright(w->ww_win, 1);
+				break;
+			case 'E':
+				WWcursor(w->ww_win, 0, 0);
+				Wclear(w->ww_win, 2);
+				/* always refresh */
+				Wrefresh(1);
+				break;
+			case 'H':
+				WWcursor(w->ww_win, 0, 0);
+				break;
+			case 'J':
+				Wclear(w->ww_win, 0);
+				break;
+			case 'K':
+				Wclearline(w->ww_win, 0);
+				break;
+			case 'L':
+				Winslines(w->ww_win, 1);
+				if (w->ww_refresh)
+					Wrefresh(1);
+				break;
+			case 'M':
+				Wdellines(w->ww_win, 1);
+				if (w->ww_refresh)
+					Wrefresh(1);
+				break;
+			case 'N':
+				Wdelchars(w->ww_win, 1);
+				break;
+			case 'O':
+				w->ww_insert = 0;
+				break;
+			case 'Y':
+				w->ww_wstate = 2;
+				break;
+			}
+			break;
+		case 2:
+			w->ww_newrow = (c - ' ') % w->ww_nrow;
+			w->ww_wstate++;
+			break;
+		case 3:
+			WWcursor(w->ww_win, w->ww_newrow,
+				(c - ' ') % w->ww_ncol);
+			w->ww_wstate = 0;
+			break;
+		}
+	}
+}
+
+wwflush()
+{
+	register Win *w = curwin->ww_win;
+
+	WRCurRow = WCurRow(w);
+	WRCurCol = WCurCol(w);
+	Wrefresh(1);
+}
-- 
2.20.1