/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.termcap.c - version 1.0.3 */
#include "config.h" /* for ROWNO and COLNO */
#include "def.flag.h" /* for flags.nonull */
extern char *tgetstr(), *tgoto(), *getenv();
extern /* it is defined in libtermlib (libtermcap) */
short ospeed
; /* terminal baudrate; used by tputs */
static char *HO
, *CL
, *CE
, *UP
, *CM
, *ND
, *XD
, *BC
, *SO
, *SE
, *TI
, *TE
;
char *CD
; /* tested in pri.c: docorner() */
int CO
, LI
; /* used in pri.c and whatis.c */
tptr
= (char *) alloc(1024);
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
))
if(!(BC
= tgetstr("bc", &tbufptr
))) {
error("Terminal must backspace.");
HO
= tgetstr("ho", &tbufptr
);
if(CO
< COLNO
|| LI
< ROWNO
+2)
if(!(CL
= tgetstr("cl", &tbufptr
)))
ND
= tgetstr("nd", &tbufptr
);
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
))) {
error("Hack needs CM or UP or HO.");
printf("Playing hack on terminals without cm is suspect...\n");
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");
register int x
, y
; /* not xchar: perhaps xchar is unsigned and
curx-x would be unsigned as well */
if (y
== cury
&& x
== curx
)
if(!ND
&& (curx
!= x
|| x
<= 3)) { /* Extremely primitive */
cmov(x
, y
); /* bunker!wtm */
if(abs(cury
-y
) <= 3 && abs(curx
-x
) <= 3)
else if((x
<= 3 && abs(cury
-y
)<= 3) || (!CM
&& x
<abs(curx
-x
))) {
while (cury
> y
) { /* Go up. */
} /* else impossible("..."); */
if (curx
< x
) { /* Go to the right. */
if(!ND
) cmov(x
, y
); else /* bah */
/* should instead print what is there already */
while (curx
> x
) { /* Go to the left. */
xputs(tgoto(CM
, x
-1, y
-1));
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
;
curs(1, 1); /* using UP ... */
(void) putchar('\007'); /* curx does not change */
static short tmspc10
[] = { /* from termcap */
0, 2000, 1333, 909, 743, 666, 500, 333, 166, 83, 55, 41, 20, 10, 5
/* 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. */
/* 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;
i
-= cmlen
*tmspc10
[ospeed
];
cl_eos() /* free after Robert Viduya */
{ /* must only be called with curx = 1 */
register int cx
= curx
, cy
= cury
;