From 013ac7742311556022304e8b30ca170d48b3a016 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Thu, 7 May 2015 16:32:32 -0400
Subject: initial commit

---
 hack/hack.topl.c | 236 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 236 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 0000000..75d612a
--- /dev/null
+++ b/hack/hack.topl.c
@@ -0,0 +1,236 @@
+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* hack.topl.c - version 1.0.2 */
+/* $FreeBSD: src/games/hack/hack.topl.c,v 1.3 1999/11/16 02:57:12 billf Exp $ */
+
+#include "hack.h"
+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 */
+
+static void redotoplin(void);
+static void xmore(const char *);
+
+int
+doredotopl(void)
+{
+	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)
+		strcpy(toplines, last_redone_topl->topl_text);
+	redotoplin();
+	return (0);
+}
+
+static void
+redotoplin(void)
+{
+	home();
+	if (strchr(toplines, '\n'))
+		cl_end();
+	putstr(toplines);
+	cl_end();
+	tlx = curx;
+	tly = cury;
+	flags.toplin = 1;
+	if (tly > 1)
+		more();
+}
+
+void
+remember_topl(void)
+{
+	struct topl *tl;
+	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 = NULL;
+	tl = alloc((unsigned)(strlen(toplines) + sizeof(struct topl) + 1));
+	tl->next_topl = old_toplines;
+	tl->topl_text = (char *)(tl + 1);
+	strcpy(tl->topl_text, toplines);
+	old_toplines = tl;
+	while (cnt && tl) {
+		cnt--;
+		tl = tl->next_topl;
+	}
+	if (tl && tl->next_topl) {
+		free(tl->next_topl);
+		tl->next_topl = NULL;
+	}
+}
+
+void
+addtopl(const char *s)
+{
+	curs(tlx, tly);
+	if (tlx + (int)strlen(s) > CO)
+		putsym('\n');
+	putstr(s);
+	tlx = curx;
+	tly = cury;
+	flags.toplin = 1;
+}
+
+static void
+xmore(const 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;
+}
+
+void
+more(void)
+{
+	xmore("");
+}
+
+void
+cmore(const char *s)
+{
+	xmore(s);
+}
+
+void
+clrlin(void)
+{
+	if (flags.toplin) {
+		home();
+		cl_end();
+		if (tly > 1)
+			docorner(1, tly - 1);
+		remember_topl();
+	}
+	flags.toplin = 0;
+}
+
+void
+pline(const char *line, ...)
+{
+	va_list ap;
+	va_start(ap, line);
+	vpline(line, ap);
+	va_end(ap);
+}
+
+/*VARARGS1*/
+void
+vpline(const char *line, va_list ap)
+{
+	char pbuf[BUFSZ];
+	char *bp = pbuf, *tl;
+	int n, n0;
+
+	if (!line || !*line)
+		return;
+	if (!strchr(line, '%'))
+		strcpy(pbuf, line);
+	else
+		vsprintf(pbuf, line, ap);
+	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 + (int)strlen(toplines) + 3 < CO - 8 && /* room for --More-- */
+	    strncmp(bp, "You ", 4)) {
+		strcat(toplines, "  ");
+		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;
+		}
+		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])
+			strcat(tl, "\n");
+	}
+	redotoplin();
+}
+
+void
+putsym(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++;
+	}
+	putchar(c);
+}
+
+void
+putstr(const char *s)
+{
+	while (*s)
+		putsym(*s++);
+}
-- 
cgit v1.2.3