From 77e3814f0c0e3dea4d0032e25666f77e6f83bfff Mon Sep 17 00:00:00 2001
From: cgd <cgd@NetBSD.org>
Date: Sun, 21 Mar 1993 09:45:37 +0000
Subject: initial import of 386bsd-0.1 sources

---
 hack/hack.topl.c | 192 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 192 insertions(+)
 create mode 100644 hack/hack.topl.c

(limited to 'hack/hack.topl.c')

diff --git a/hack/hack.topl.c b/hack/hack.topl.c
new file mode 100644
index 00000000..13a033d1
--- /dev/null
+++ b/hack/hack.topl.c
@@ -0,0 +1,192 @@
+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* hack.topl.c - version 1.0.2 */
+
+#include "hack.h"
+#include <stdio.h>
+extern char *eos();
+extern int CO;
+
+char toplines[BUFSZ];
+xchar tlx, tly;			/* set by pline; used by addtopl */
+
+struct topl {
+	struct topl *next_topl;
+	char *topl_text;
+} *old_toplines, *last_redone_topl;
+#define	OTLMAX	20		/* max nr of old toplines remembered */
+
+doredotopl(){
+	if(last_redone_topl)
+		last_redone_topl = last_redone_topl->next_topl;
+	if(!last_redone_topl)
+		last_redone_topl = old_toplines;
+	if(last_redone_topl){
+		(void) strcpy(toplines, last_redone_topl->topl_text);
+	}
+	redotoplin();
+	return(0);
+}
+
+redotoplin() {
+	home();
+	if(index(toplines, '\n')) cl_end();
+	putstr(toplines);
+	cl_end();
+	tlx = curx;
+	tly = cury;
+	flags.toplin = 1;
+	if(tly > 1)
+		more();
+}
+
+remember_topl() {
+register struct topl *tl;
+register int cnt = OTLMAX;
+	if(last_redone_topl &&
+	   !strcmp(toplines, last_redone_topl->topl_text)) return;
+	if(old_toplines &&
+	   !strcmp(toplines, old_toplines->topl_text)) return;
+	last_redone_topl = 0;
+	tl = (struct topl *)
+		alloc((unsigned)(strlen(toplines) + sizeof(struct topl) + 1));
+	tl->next_topl = old_toplines;
+	tl->topl_text = (char *)(tl + 1);
+	(void) strcpy(tl->topl_text, toplines);
+	old_toplines = tl;
+	while(cnt && tl){
+		cnt--;
+		tl = tl->next_topl;
+	}
+	if(tl && tl->next_topl){
+		free((char *) tl->next_topl);
+		tl->next_topl = 0;
+	}
+}
+
+addtopl(s) char *s; {
+	curs(tlx,tly);
+	if(tlx + strlen(s) > CO) putsym('\n');
+	putstr(s);
+	tlx = curx;
+	tly = cury;
+	flags.toplin = 1;
+}
+
+xmore(s)
+char *s;	/* allowed chars besides space/return */
+{
+	if(flags.toplin) {
+		curs(tlx, tly);
+		if(tlx + 8 > CO) putsym('\n'), tly++;
+	}
+
+	if(flags.standout)
+		standoutbeg();
+	putstr("--More--");
+	if(flags.standout)
+		standoutend();
+
+	xwaitforspace(s);
+	if(flags.toplin && tly > 1) {
+		home();
+		cl_end();
+		docorner(1, tly-1);
+	}
+	flags.toplin = 0;
+}
+
+more(){
+	xmore("");
+}
+
+cmore(s)
+register char *s;
+{
+	xmore(s);
+}
+
+clrlin(){
+	if(flags.toplin) {
+		home();
+		cl_end();
+		if(tly > 1) docorner(1, tly-1);
+		remember_topl();
+	}
+	flags.toplin = 0;
+}
+
+/*VARARGS1*/
+pline(line,arg1,arg2,arg3,arg4,arg5,arg6)
+register char *line,*arg1,*arg2,*arg3,*arg4,*arg5,*arg6;
+{
+	char pbuf[BUFSZ];
+	register char *bp = pbuf, *tl;
+	register int n,n0;
+
+	if(!line || !*line) return;
+	if(!index(line, '%')) (void) strcpy(pbuf,line); else
+	(void) sprintf(pbuf,line,arg1,arg2,arg3,arg4,arg5,arg6);
+	if(flags.toplin == 1 && !strcmp(pbuf, toplines)) return;
+	nscr();		/* %% */
+
+	/* If there is room on the line, print message on same line */
+	/* But messages like "You die..." deserve their own line */
+	n0 = strlen(bp);
+	if(flags.toplin == 1 && tly == 1 &&
+	    n0 + strlen(toplines) + 3 < CO-8 &&  /* leave room for --More-- */
+	    strncmp(bp, "You ", 4)) {
+		(void) strcat(toplines, "  ");
+		(void) strcat(toplines, bp);
+		tlx += 2;
+		addtopl(bp);
+		return;
+	}
+	if(flags.toplin == 1) more();
+	remember_topl();
+	toplines[0] = 0;
+	while(n0){
+		if(n0 >= CO){
+			/* look for appropriate cut point */
+			n0 = 0;
+			for(n = 0; n < CO; n++) if(bp[n] == ' ')
+				n0 = n;
+			if(!n0) for(n = 0; n < CO-1; n++)
+				if(!letter(bp[n])) n0 = n;
+			if(!n0) n0 = CO-2;
+		}
+		(void) strncpy((tl = eos(toplines)), bp, n0);
+		tl[n0] = 0;
+		bp += n0;
+
+		/* remove trailing spaces, but leave one */
+		while(n0 > 1 && tl[n0-1] == ' ' && tl[n0-2] == ' ')
+			tl[--n0] = 0;
+
+		n0 = strlen(bp);
+		if(n0 && tl[0]) (void) strcat(tl, "\n");
+	}
+	redotoplin();
+}
+
+putsym(c) char c; {
+	switch(c) {
+	case '\b':
+		backsp();
+		return;
+	case '\n':
+		curx = 1;
+		cury++;
+		if(cury > tly) tly = cury;
+		break;
+	default:
+		if(curx == CO)
+			putsym('\n');	/* 1 <= curx <= CO; avoid CO */
+		else
+			curx++;
+	}
+	(void) putchar(c);
+}
+
+putstr(s) register char *s; {
+	while(*s) putsym(*s++);
+}
-- 
cgit v1.2.3-56-ge451