325 lines
6.9 KiB
C
Executable file
325 lines
6.9 KiB
C
Executable file
/*
|
|
* termcap.c V1.1 20/7/87 agc Joypace Ltd
|
|
*
|
|
* Copyright Joypace Ltd, London, UK, 1987. All rights reserved.
|
|
* This file may be freely distributed provided that this notice
|
|
* remains attached.
|
|
*
|
|
* A public domain implementation of the termcap(3) routines.
|
|
*
|
|
*
|
|
*
|
|
* Klamer Schutte V1.2 Nov. 1988
|
|
*
|
|
* - Can match multiple terminal names [tgetent]
|
|
* - Removal of **area assignments [tgetstr]
|
|
*
|
|
* Terrence W. Holm V1.3 May, Sep, Oct. 1988
|
|
*
|
|
* - Correct when TERM != name and TERMCAP is defined [tgetent]
|
|
* - Correct the comparison for the terminal name [tgetent]
|
|
* - Correct the value of ^x escapes [tgetstr]
|
|
* - Added %r to reverse row/column [tgoto]
|
|
* - Fixed end of definition test [tgetnum/flag/str]
|
|
*
|
|
* Terrence W. Holm V1.4 Jan. 1989
|
|
*
|
|
* - Incorporated Klamer's V1.2 fixes into V1.3
|
|
* - Added %d, (old %d is now %2) [tgoto]
|
|
* - Allow '#' comments in definition file [tgetent]
|
|
*/
|
|
|
|
#include <lib.h>
|
|
#include <termcap.h>
|
|
#include <ctype.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
|
|
char *capab = (char *)NULL; /* the capability itself */
|
|
|
|
#if 0
|
|
/* The following are not yet used. */
|
|
extern short ospeed; /* output speed */
|
|
extern char PC; /* padding character */
|
|
extern char *BC; /* back cursor movement */
|
|
extern char *UP; /* up cursor movement */
|
|
#endif
|
|
|
|
/*
|
|
* tgetent - get the termcap entry for terminal name, and put it
|
|
* in bp (which must be an array of 1024 chars). Returns 1 if
|
|
* termcap entry found, 0 if not found, and -1 if file not found.
|
|
*/
|
|
|
|
int tgetent(bp, name)
|
|
char *bp;
|
|
char *name;
|
|
{
|
|
FILE *fp;
|
|
char *file;
|
|
char *term;
|
|
short len = strlen(name);
|
|
|
|
capab = bp;
|
|
|
|
/* If TERMCAP begins with a '/' then use TERMCAP as the path */
|
|
/* Name of the termcap definitions file. If TERMCAP is a */
|
|
/* Definition and TERM equals "name" then use TERMCAP as the */
|
|
/* Definition. Otherwise use "/etc/termcap" as the path name. */
|
|
|
|
if ((file = getenv("TERMCAP")) == (char *)NULL)
|
|
file = "/etc/termcap";
|
|
else if (*file != '/')
|
|
if ((term = getenv("TERM")) != (char *)NULL && strcmp(term, name) == 0) {
|
|
*bp = '\0';
|
|
strncat(bp, file, 1023);
|
|
return(1);
|
|
} else
|
|
file = "/etc/termcap";
|
|
|
|
if ((fp = fopen(file, "r")) == (FILE *) NULL) {
|
|
capab = (char *)NULL; /* no valid termcap */
|
|
return(-1);
|
|
}
|
|
for (;;) {
|
|
/* Read in each definition */
|
|
int def_len = 0;
|
|
char *cp = bp;
|
|
|
|
do {
|
|
if (fgets(&bp[def_len], (unsigned int)(1024 - def_len), fp) == (char *)NULL) {
|
|
fclose(fp);
|
|
capab = (char *)NULL; /* no valid termcap */
|
|
return(0);
|
|
}
|
|
def_len = strlen(bp) - 2;
|
|
} while (bp[def_len] == '\\');
|
|
|
|
while (isspace(*cp)) cp++;
|
|
|
|
/* Comment lines start with a '#' */
|
|
if (*cp == '#') continue;
|
|
|
|
/* See if any of the terminal names in this definition */
|
|
/* Match "name". */
|
|
|
|
do {
|
|
if (strncmp(name, cp, len) == 0 &&
|
|
(cp[len] == '|' || cp[len] == ':')) {
|
|
fclose(fp);
|
|
return(1);
|
|
}
|
|
while ((*cp) && (*cp != '|') && (*cp != ':')) cp++;
|
|
} while (*cp++ == '|');
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* tgetnum - get the numeric terminal capability corresponding
|
|
* to id. Returns the value, -1 if invalid.
|
|
*/
|
|
|
|
int tgetnum(id)
|
|
char *id;
|
|
{
|
|
register char *cp = capab;
|
|
|
|
if (cp == (char *)NULL || id == (char *)NULL) return(-1);
|
|
|
|
for (;;) {
|
|
while (*cp++ != ':')
|
|
if (cp[-1] == '\0') return(-1);
|
|
|
|
while (isspace(*cp)) cp++;
|
|
|
|
if (strncmp(cp, id, 2) == 0 && cp[2] == '#') return(atoi(cp + 3));
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* tgetflag - get the boolean flag corresponding to id. Returns -1
|
|
* if invalid, 0 if the flag is not in termcap entry, or 1 if it is
|
|
* present.
|
|
*/
|
|
|
|
int tgetflag(id)
|
|
char *id;
|
|
{
|
|
register char *cp = capab;
|
|
|
|
if (cp == (char *)NULL || id == (char *)NULL) return(-1);
|
|
|
|
for (;;) {
|
|
while (*cp++ != ':')
|
|
if (cp[-1] == '\0') return(0);
|
|
|
|
while (isspace(*cp)) cp++;
|
|
|
|
if (strncmp(cp, id, 2) == 0) return(1);
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* tgetstr - get the string capability corresponding to id and place
|
|
* it in area (advancing area at same time). Expand escape sequences
|
|
* etc. Returns the string, or NULL if it can't do it.
|
|
*/
|
|
|
|
char *tgetstr(id, area)
|
|
char *id;
|
|
char **area;
|
|
{
|
|
register char *cp = capab;
|
|
register char *wsp = *area; /* workspace pointer */
|
|
|
|
if (cp == (char *)NULL || id == (char *)NULL) return((char *)NULL);
|
|
|
|
for (;;) {
|
|
while (*cp++ != ':')
|
|
if (cp[-1] == '\0') return((char *)NULL);
|
|
|
|
while (isspace(*cp)) cp++;
|
|
|
|
if (strncmp(cp, id, 2) == 0 && cp[2] == '=') {
|
|
for (cp += 3; *cp && *cp != ':'; wsp++, cp++) switch (*cp) {
|
|
case '^':
|
|
*wsp = *++cp - '@';
|
|
break;
|
|
|
|
case '\\':
|
|
switch (*++cp) {
|
|
case 'E':
|
|
*wsp = '\033';
|
|
break;
|
|
case 'n':
|
|
*wsp = '\n';
|
|
break;
|
|
case 'r':
|
|
*wsp = '\r';
|
|
break;
|
|
case 't':
|
|
*wsp = '\t';
|
|
break;
|
|
case 'b':
|
|
*wsp = '\b';
|
|
break;
|
|
case 'f':
|
|
*wsp = '\f';
|
|
break;
|
|
case '0':
|
|
case '1':
|
|
case '2':
|
|
case '3':
|
|
{
|
|
int i;
|
|
int t = 0;
|
|
for (i = 0; i < 3 &&
|
|
isdigit(*cp); ++i, ++cp)
|
|
t = t * 8 + *cp - '0';
|
|
*wsp = t;
|
|
cp--;
|
|
break;
|
|
}
|
|
default:
|
|
*wsp = *cp;
|
|
}
|
|
break;
|
|
|
|
default: *wsp = *cp;
|
|
}
|
|
|
|
*wsp++ = '\0';
|
|
|
|
{
|
|
char *ret = *area;
|
|
*area = wsp;
|
|
return(ret);
|
|
}
|
|
}
|
|
} /* end for(;;) */
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
* tgoto - given the cursor motion string cm, make up the string
|
|
* for the cursor to go to (destcol, destline), and return the string.
|
|
* Returns "OOPS" if something's gone wrong, or the string otherwise.
|
|
*/
|
|
|
|
char *tgoto(cm, destcol, destline)
|
|
char *cm;
|
|
int destcol;
|
|
int destline;
|
|
{
|
|
PRIVATE char ret[24];
|
|
char *rp = ret;
|
|
int incr = 0;
|
|
int argno = 0;
|
|
int numval;
|
|
|
|
for (; *cm; cm++) {
|
|
if (*cm == '%') {
|
|
switch (*++cm) {
|
|
case 'i': incr = 1; break;
|
|
|
|
case 'r': argno = 1; break;
|
|
|
|
case '+':
|
|
numval = (argno == 0 ? destline : destcol);
|
|
*rp++ = numval + incr + *++cm;
|
|
argno = 1 - argno;
|
|
break;
|
|
|
|
case '2':
|
|
numval = (argno == 0 ? destline : destcol);
|
|
numval = (numval + incr) % 100;
|
|
*rp++ = '0' + (numval / 10);
|
|
*rp++ = '0' + (numval % 10);
|
|
argno = 1 - argno;
|
|
break;
|
|
|
|
case 'd':
|
|
numval = (argno == 0 ? destline : destcol);
|
|
numval = (numval + incr) % 1000;
|
|
if (numval > 99) *rp++ = '0' + (numval / 100);
|
|
if (numval > 9) *rp++ = '0' + (numval / 10) % 10;
|
|
*rp++ = '0' + (numval % 10);
|
|
argno = 1 - argno;
|
|
break;
|
|
|
|
case '%': *rp++ = '%'; break;
|
|
|
|
default: return("OOPS");
|
|
}
|
|
|
|
} else
|
|
*rp++ = *cm;
|
|
}
|
|
|
|
*rp = '\0';
|
|
return(ret);
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
* tputs - put the string cp out onto the terminal, using the function
|
|
* outc. This should do padding for the terminal, but I can't find a
|
|
* terminal that needs padding at the moment...
|
|
*/
|
|
|
|
int tputs(cp, affcnt, outc)
|
|
register char *cp;
|
|
int affcnt;
|
|
_PROTOTYPE( void (*outc), (int ch));
|
|
{
|
|
if (cp == (char *)NULL) return(1);
|
|
/* Do any padding interpretation - left null for MINIX just now */
|
|
while (*cp) (*outc) (*cp++);
|
|
return(1);
|
|
}
|