/* * 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 #include #include #include #include #include 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); }
