freebsd-dev/contrib/tcsh/vms.termcap.c

334 lines
7.2 KiB
C
Raw Normal View History

2007-03-11 22:33:41 +00:00
/* $Header: /p/tcsh/cvsroot/tcsh/vms.termcap.c,v 1.11 2006/03/02 18:46:45 christos Exp $ */
/*
* termcap.c 1.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.
*/
#include "sh.h"
2007-03-11 22:33:41 +00:00
RCSID("$tcsh: vms.termcap.c,v 1.11 2006/03/02 18:46:45 christos Exp $")
#if defined(_VMS_POSIX) || defined(_OSD_POSIX)
/* efth 1988-Apr-29
- 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]
Paul Gillingwater <paul@actrix.gen.nz> July 1992
- Modified to allow terminal aliases in termcap file
- Uses TERMCAP environment variable for file only
*/
#include <stdio.h>
#include <string.h>
#define CAPABLEN 2
#define ISSPACE(c) ((c) == ' ' || (c) == '\t' || (c) == '\r' || (c) == '\n')
#define ISDIGIT(x) ((x) >= '0' && (x) <= '9')
char *capab; /* the capability itself */
extern char *getenv(); /* new, improved getenv */
2005-04-24 19:41:08 +00:00
#ifndef fopen
extern FILE *fopen(); /* old fopen */
2005-04-24 19:41:08 +00:00
#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
2007-03-11 22:33:41 +00:00
tgetent(char *bp, char *name)
{
FILE *fp;
char *termfile;
char *cp,
*ptr, /* temporary pointer */
2007-03-11 22:33:41 +00:00
tmp[1024]; /* buffer for terminal name *//*FIXBUF*/
size_t len = strlen(name);
capab = bp;
/* Use TERMCAP to override default. */
termfile = getenv("TERMCAP");
if (termfile == NULL ) termfile = "/etc/termcap";
if ((fp = fopen(termfile, "r")) == (FILE *) NULL) {
fprintf(stderr, CGETS(31, 1,
"Can't open TERMCAP: [%s]\n"), termfile);
fprintf(stderr, CGETS(31, 2, "Can't open %s.\n"), termfile);
sleep(1);
return(-1);
}
while (fgets(bp, 1024, fp) != NULL) {
/* Any line starting with # or NL is skipped as a comment */
if ((*bp == '#') || (*bp == '\n')) continue;
/* Look for lines which end with two backslashes,
and then append the next line. */
while (*(cp = &bp[strlen(bp) - 2]) == '\\')
fgets(cp, 1024, fp);
2007-03-11 22:33:41 +00:00
/* Skip over any spaces or tabs */
for (++cp ; ISSPACE(*cp) ; cp++);
/* Make sure "name" matches exactly (efth) */
/* Here we might want to look at any aliases as well. We'll use
sscanf to look at aliases. These are delimited by '|'. */
sscanf(bp,"%[^|]",tmp);
if (strncmp(name, tmp, len) == 0) {
fclose(fp);
#ifdef DEBUG
fprintf(stderr, CGETS(31, 3, "Found %s in %s.\n"), name, termfile);
sleep(1);
#endif /* DEBUG */
return(1);
}
ptr = bp;
while ((ptr = strchr(ptr,'|')) != NULL) {
ptr++;
if (strchr(ptr,'|') == NULL) break;
sscanf(ptr,"%[^|]",tmp);
if (strncmp(name, tmp, len) == 0) {
fclose(fp);
#ifdef DEBUG
fprintf(stderr,CGETS(31, 3, "Found %s in %s.\n"), name, termfile);
sleep(1);
#endif /* DEBUG */
return(1);
}
}
}
/* If we get here, then we haven't found a match. */
fclose(fp);
#ifdef DEBUG
fprintf(stderr,CGETS(31, 4, "No match found for %s in file %s\n"),
name, termfile);
sleep(1);
#endif /* DEBUG */
return(0);
}
/*
* tgetnum - get the numeric terminal capability corresponding
* to id. Returns the value, -1 if invalid.
*/
int
2007-03-11 22:33:41 +00:00
tgetnum(char *id)
{
char *cp;
int ret;
if ((cp = capab) == NULL || id == NULL)
return(-1);
while (*++cp != ':')
;
for (++cp ; *cp ; cp++) {
while (ISSPACE(*cp))
cp++;
if (strncmp(cp, id, CAPABLEN) == 0) {
while (*cp && *cp != ':' && *cp != '#')
cp++;
if (*cp != '#')
return(-1);
for (ret = 0, cp++ ; *cp && ISDIGIT(*cp) ; cp++)
ret = ret * 10 + *cp - '0';
return(ret);
}
while (*cp && *cp != ':')
cp++;
}
return(-1);
}
/*
* 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
2007-03-11 22:33:41 +00:00
tgetflag(char *id)
{
char *cp;
if ((cp = capab) == NULL || id == NULL)
return(-1);
while (*++cp != ':')
;
for (++cp ; *cp ; cp++) {
while (ISSPACE(*cp))
cp++;
if (strncmp(cp, id, CAPABLEN) == 0)
return(1);
while (*cp && *cp != ':')
cp++;
}
return(0);
}
/*
* 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 *
2007-03-11 22:33:41 +00:00
tgetstr(char *id, char **area)
{
char *cp;
char *ret;
int i;
if ((cp = capab) == NULL || id == NULL)
return(NULL);
while (*++cp != ':')
;
for (++cp ; *cp ; cp++) {
while (ISSPACE(*cp))
cp++;
if (strncmp(cp, id, CAPABLEN) == 0) {
while (*cp && *cp != ':' && *cp != '=')
cp++;
if (*cp != '=')
return(NULL);
for (ret = *area, cp++; *cp && *cp != ':' ;
(*area)++, cp++)
switch(*cp) {
case '^' :
**area = *++cp - '@'; /* fix (efth)*/
break;
case '\\' :
switch(*++cp) {
case 'E' :
**area = CTL_ESC('\033');
break;
case 'n' :
**area = '\n';
break;
case 'r' :
**area = '\r';
break;
case 't' :
**area = '\t';
break;
case 'b' :
**area = '\b';
break;
case 'f' :
**area = '\f';
break;
case '0' :
case '1' :
case '2' :
case '3' :
for (i=0 ; *cp && ISDIGIT(*cp) ;
cp++)
i = i * 8 + *cp - '0';
**area = i;
cp--;
break;
case '^' :
case '\\' :
**area = *cp;
break;
}
break;
default :
**area = *cp;
}
*(*area)++ = '\0';
return(ret);
}
while (*cp && *cp != ':')
cp++;
}
return(NULL);
}
/*
* 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 *
2007-03-11 22:33:41 +00:00
tgoto(char *cm, int destcol, int destline)
{
2005-04-24 19:41:08 +00:00
char *rp;
static char ret[24];
int incr = 0;
int argno = 0, numval;
for (rp = ret ; *cm ; cm++) {
switch(*cm) {
case '%' :
switch(*++cm) {
case '+' :
numval = (argno == 0 ? destline : destcol);
argno = 1 - argno;
*rp++ = numval + incr + *++cm;
break;
case '%' :
*rp++ = '%';
break;
case 'i' :
incr = 1;
break;
case 'd' :
numval = (argno == 0 ? destline : destcol);
numval += incr;
argno = 1 - argno;
*rp++ = '0' + (numval/10);
*rp++ = '0' + (numval%10);
break;
case 'r' :
argno = 1;
break;
}
break;
default :
*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
2007-03-11 22:33:41 +00:00
tputs(char *cp, int affcnt, int (*outc)())
{
2005-04-24 19:41:08 +00:00
unsigned long delay = 0;
if (cp == NULL)
return(1);
/* do any padding interpretation - left null for MINIX just now */
2005-04-24 19:41:08 +00:00
for (delay = 0; *cp && ISDIGIT(*cp) ; cp++)
delay = delay * 10 + *cp - '0';
while (*cp)
(*outc)(*cp++);
2005-04-24 19:41:08 +00:00
#ifdef _OSD_POSIX
usleep(delay*100); /* strictly spoken, it should be *1000 */
#endif
return(1);
}
#endif /* _VMS_POSIX || _OSD_POSIX */