1 files changed, 276 insertions, 0 deletions
diff --git a/games/hack/hack.termcap.c b/games/hack/hack.termcap.c
new file mode 100644
index 0000000..e94d672
--- /dev/null
+++ b/games/hack/hack.termcap.c
@@ -0,0 +1,276 @@
+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* hack.termcap.c - version 1.0.3 */
+
+#include <stdio.h>
+#include "config.h"	/* for ROWNO and COLNO */
+#include "def.flag.h"	/* for flags.nonull */
+extern char *tgetstr(), *tgoto(), *getenv();
+extern long *alloc();
+
+#ifndef lint
+extern			/* it is defined in libtermlib (libtermcap) */
+#endif lint
+	short ospeed;		/* terminal baudrate; used by tputs */
+static char tbuf[512];
+static char *HO, *CL, *CE, *UP, *CM, *ND, *XD, *BC, *SO, *SE, *TI, *TE;
+static char *VS, *VE;
+static int SG;
+static char PC = '\0';
+char *CD;		/* tested in pri.c: docorner() */
+int CO, LI;		/* used in pri.c and whatis.c */
+
+startup()
+{
+	register char *term;
+	register char *tptr;
+	char *tbufptr, *pc;
+
+	tptr = (char *) alloc(1024);
+
+	tbufptr = tbuf;
+	if(!(term = getenv("TERM")))
+		error("Can't get TERM.");
+	if(!strncmp(term, "5620", 4))
+		flags.nonull = 1;	/* this should be a termcap flag */
+	if(tgetent(tptr, term) < 1)
+		error("Unknown terminal type: %s.", term);
+	if(pc = tgetstr("pc", &tbufptr))
+		PC = *pc;
+	if(!(BC = tgetstr("bc", &tbufptr))) {	
+		if(!tgetflag("bs"))
+			error("Terminal must backspace.");
+		BC = tbufptr;
+		tbufptr += 2;
+		*BC = '\b';
+	}
+	HO = tgetstr("ho", &tbufptr);
+	CO = tgetnum("co");
+	LI = tgetnum("li");
+	if(CO < COLNO || LI < ROWNO+2)
+		setclipped();
+	if(!(CL = tgetstr("cl", &tbufptr)))
+		error("Hack needs CL.");
+	ND = tgetstr("nd", &tbufptr);
+	if(tgetflag("os"))
+		error("Hack can't have OS.");
+	CE = tgetstr("ce", &tbufptr);
+	UP = tgetstr("up", &tbufptr);
+	/* It seems that xd is no longer supported, and we should use
+	   a linefeed instead; unfortunately this requires resetting
+	   CRMOD, and many output routines will have to be modified
+	   slightly. Let's leave that till the next release. */
+	XD = tgetstr("xd", &tbufptr);
+/* not: 		XD = tgetstr("do", &tbufptr); */
+	if(!(CM = tgetstr("cm", &tbufptr))) {
+		if(!UP && !HO)
+			error("Hack needs CM or UP or HO.");
+		printf("Playing hack on terminals without cm is suspect...\n");
+		getret();
+	}
+	SO = tgetstr("so", &tbufptr);
+	SE = tgetstr("se", &tbufptr);
+	SG = tgetnum("sg");	/* -1: not fnd; else # of spaces left by so */
+	if(!SO || !SE || (SG > 0)) SO = SE = 0;
+	CD = tgetstr("cd", &tbufptr);
+	set_whole_screen();		/* uses LI and CD */
+	if(tbufptr-tbuf > sizeof(tbuf)) error("TERMCAP entry too big...\n");
+	free(tptr);
+}
+
+start_screen()
+{
+	xputs(TI);
+	xputs(VS);
+}
+
+end_screen()
+{
+	xputs(VE);
+	xputs(TE);
+}
+
+/* Cursor movements */
+extern xchar curx, cury;
+
+curs(x, y)
+register int x, y;	/* not xchar: perhaps xchar is unsigned and
+			   curx-x would be unsigned as well */
+{
+
+	if (y == cury && x == curx)
+		return;
+	if(!ND && (curx != x || x <= 3)) {	/* Extremely primitive */
+		cmov(x, y);			/* bunker!wtm */
+		return;
+	}
+	if(abs(cury-y) <= 3 && abs(curx-x) <= 3)
+		nocmov(x, y);
+	else if((x <= 3 && abs(cury-y)<= 3) || (!CM && x<abs(curx-x))) {
+		(void) putchar('\r');
+		curx = 1;
+		nocmov(x, y);
+	} else if(!CM) {
+		nocmov(x, y);
+	} else
+		cmov(x, y);
+}
+
+nocmov(x, y)
+{
+	if (cury > y) {
+		if(UP) {
+			while (cury > y) {	/* Go up. */
+				xputs(UP);
+				cury--;
+			}
+		} else if(CM) {
+			cmov(x, y);
+		} else if(HO) {
+			home();
+			curs(x, y);
+		} /* else impossible("..."); */
+	} else if (cury < y) {
+		if(XD) {
+			while(cury < y) {
+				xputs(XD);
+				cury++;
+			}
+		} else if(CM) {
+			cmov(x, y);
+		} else {
+			while(cury < y) {
+				xputc('\n');
+				curx = 1;
+				cury++;
+			}
+		}
+	}
+	if (curx < x) {		/* Go to the right. */
+		if(!ND) cmov(x, y); else	/* bah */
+			/* should instead print what is there already */
+		while (curx < x) {
+			xputs(ND);
+			curx++;
+		}
+	} else if (curx > x) {
+		while (curx > x) {	/* Go to the left. */
+			xputs(BC);
+			curx--;
+		}
+	}
+}
+
+cmov(x, y)
+register x, y;
+{
+	xputs(tgoto(CM, x-1, y-1));
+	cury = y;
+	curx = x;
+}
+
+xputc(c) char c; {
+	(void) fputc(c, stdout);
+}
+
+xputs(s) char *s; {
+	tputs(s, 1, xputc);
+}
+
+cl_end() {
+	if(CE)
+		xputs(CE);
+	else {	/* no-CE fix - free after Harold Rynes */
+		/* this looks terrible, especially on a slow terminal
+		   but is better than nothing */
+		register cx = curx, cy = cury;
+
+		while(curx < COLNO) {
+			xputc(' ');
+			curx++;
+		}
+		curs(cx, cy);
+	}
+}
+
+clear_screen() {
+	xputs(CL);
+	curx = cury = 1;
+}
+
+home()
+{
+	if(HO)
+		xputs(HO);
+	else if(CM)
+		xputs(tgoto(CM, 0, 0));
+	else
+		curs(1, 1);	/* using UP ... */
+	curx = cury = 1;
+}
+
+standoutbeg()
+{
+	if(SO) xputs(SO);
+}
+
+standoutend()
+{
+	if(SE) xputs(SE);
+}
+
+backsp()
+{
+	xputs(BC);
+	curx--;
+}
+
+bell()
+{
+	(void) putchar('\007');		/* curx does not change */
+	(void) fflush(stdout);
+}
+
+static short tmspc10[] = {		/* from termcap */
+	0, 2000, 1333, 909, 743, 666, 500, 333, 166, 83, 55, 41, 20, 10, 5
+};
+
+delay_output() {
+	/* delay 50 ms - could also use a 'nap'-system call */
+	/* BUG: if the padding character is visible, as it is on the 5620
+	   then this looks terrible. */
+	if(!flags.nonull)
+		tputs("50", 1, xputc);
+
+		/* cbosgd!cbcephus!pds for SYS V R2 */
+		/* is this terminfo, or what? */
+		/* tputs("$<50>", 1, xputc); */
+
+	else if(ospeed > 0 || ospeed < SIZE(tmspc10)) if(CM) {
+		/* delay by sending cm(here) an appropriate number of times */
+		register int cmlen = strlen(tgoto(CM, curx-1, cury-1));
+		register int i = 500 + tmspc10[ospeed]/2;
+
+		while(i > 0) {
+			cmov(curx, cury);
+			i -= cmlen*tmspc10[ospeed];
+		}
+	}
+}
+
+cl_eos()			/* free after Robert Viduya */
+{				/* must only be called with curx = 1 */
+
+	if(CD)
+		xputs(CD);
+	else {
+		register int cx = curx, cy = cury;
+		while(cury <= LI-2) {
+			cl_end();
+			xputc('\n');
+			curx = 1;
+			cury++;
+		}
+		cl_end();
+		curs(cx, cy);
+	}
+}