diff options
Diffstat (limited to 'games/hack/hack.termcap.c')
-rw-r--r-- | games/hack/hack.termcap.c | 276 |
1 files changed, 0 insertions, 276 deletions
diff --git a/games/hack/hack.termcap.c b/games/hack/hack.termcap.c deleted file mode 100644 index e94d6729c17b5..0000000000000 --- a/games/hack/hack.termcap.c +++ /dev/null @@ -1,276 +0,0 @@ -/* 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); - } -} |