274 lines
5.1 KiB
C
274 lines
5.1 KiB
C
/*
|
|
* gettcap.c
|
|
*
|
|
* By Ross Ridge
|
|
* Public Domain
|
|
* 92/02/01 07:30:00
|
|
*
|
|
*/
|
|
|
|
#include "defs.h"
|
|
#include <term.h>
|
|
|
|
#include <ctype.h>
|
|
|
|
#ifdef USE_SCCS_IDS
|
|
static const char SCCSid[] = "@(#) mytinfo gettcap.c 3.2 92/02/01 public domain, By Ross Ridge";
|
|
#endif
|
|
|
|
int
|
|
_gettcap(sp, cur, path)
|
|
register char *sp;
|
|
TERMINAL *cur;
|
|
struct term_path *path; {
|
|
static char name[MAX_NAME];
|
|
static char entry[MAX_LINE];
|
|
register char *dp;
|
|
register TERMINAL *ct = cur;
|
|
int i, pad, fract, mul = 0, ind;
|
|
char c, flag;
|
|
|
|
dp = entry;
|
|
while(*sp != ':' && *sp != '\0')
|
|
*dp++ = *sp++;
|
|
if (ct->name_all == NULL) {
|
|
*dp = '\0';
|
|
if ((ct->name_all = _addstr(entry)) == NULL)
|
|
return 1;
|
|
while(dp > entry && *--dp != '|');
|
|
ct->name_long = ct->name_all + (dp - entry) + 1;
|
|
}
|
|
|
|
while(*sp != '\0') {
|
|
while(*sp == ':')
|
|
sp++;
|
|
while(isspace(*sp))
|
|
sp++;
|
|
if (*sp == ':')
|
|
continue;
|
|
if (*sp == '\0')
|
|
break;
|
|
dp = name;
|
|
while (*sp != ':' && *sp != '#' && *sp != '=' &&
|
|
!isspace(*sp) && *sp != '\0')
|
|
*dp++ = *sp++;
|
|
*dp = '\0';
|
|
#ifdef DEBUG
|
|
printf(" %s", name);
|
|
#endif
|
|
switch(*sp) {
|
|
case '=':
|
|
#ifdef DEBUG
|
|
putchar('$');
|
|
#endif
|
|
ind = _findstrcode(name);
|
|
if (ind != -1)
|
|
flag = _strflags[ind];
|
|
else
|
|
flag = 'K';
|
|
dp = entry;
|
|
fract = pad = 0;
|
|
sp++;
|
|
if (isdigit(*sp) && flag != 'K') {
|
|
pad = *sp++ - '0';
|
|
while(isdigit(*sp))
|
|
pad = pad * 10 + (*sp++ - '0');
|
|
if (*sp == '.' && isdigit(sp[1])) {
|
|
sp++;
|
|
fract = (*sp++ - '0');
|
|
}
|
|
if (*sp == '*') {
|
|
mul = 1;
|
|
sp++;
|
|
} else
|
|
mul = 0;
|
|
|
|
}
|
|
while(*sp != '\0' && *sp != ':') {
|
|
switch(*sp) {
|
|
case '\\':
|
|
switch(*++sp) {
|
|
case 'e':
|
|
case 'E': *dp++ = '\033'; break;
|
|
case 'l': *dp++ = '\012'; break;
|
|
case 'n': *dp++ = '\n'; break;
|
|
case 'r': *dp++ = '\r'; break;
|
|
case 't': *dp++ = '\t'; break;
|
|
case 'b': *dp++ = '\b'; break;
|
|
case 'f': *dp++ = '\f'; break;
|
|
case 's': *dp++ = ' '; break;
|
|
|
|
case '^':
|
|
case '\\':
|
|
case ',':
|
|
case ':':
|
|
*dp++ = *sp;
|
|
break;
|
|
|
|
case '0':
|
|
if (!isdigit(*(sp + 1))) {
|
|
*dp++ = '\200';
|
|
break;
|
|
}
|
|
;/* FALLTHROUGH */
|
|
case '1':
|
|
case '2':
|
|
case '3':
|
|
case '4':
|
|
case '5':
|
|
case '6':
|
|
case '7':
|
|
c = *sp - '0';
|
|
if (sp[1] >= '0'
|
|
&& sp[1] <= '8')
|
|
c = c * 8
|
|
+ (*++sp - '0');
|
|
if (sp[1] >= '0'
|
|
&& sp[1] <= '8')
|
|
c = c * 8
|
|
+ (*++sp - '0');
|
|
switch((char)c) {
|
|
case 0:
|
|
if (flag == 'K')
|
|
*dp++ = '\200';
|
|
else {
|
|
*dp++ = '\\';
|
|
*dp++ = '0';
|
|
*dp++ = '0';
|
|
*dp++ = '0';
|
|
}
|
|
break;
|
|
case '$':
|
|
case '\'':
|
|
case '\\':
|
|
if (flag != 'K')
|
|
*dp++ = '\\';
|
|
/* FALLTHROUGH */
|
|
default:
|
|
if (flag == 'G'
|
|
&& c == '%')
|
|
*dp++ = '\\';
|
|
*dp++ = c;
|
|
break;
|
|
}
|
|
break;
|
|
default:
|
|
*dp++ = '\\';
|
|
*dp++ = *sp;
|
|
break;
|
|
}
|
|
sp++;
|
|
break;
|
|
case '^':
|
|
if (*++sp >= 'A' && *sp <= '_') {
|
|
*dp++ = *sp++ - '@';
|
|
} else if (*sp >= 'a' && *sp <= 'z') {
|
|
*dp++ = *sp++ - 'a' + 1;
|
|
} else if (*sp == '@') {
|
|
if (flag == 'K')
|
|
*dp++ = '\200';
|
|
else {
|
|
*dp++ = '\\';
|
|
*dp++ = '0';
|
|
*dp++ = '0';
|
|
*dp++ = '0';
|
|
}
|
|
sp++;
|
|
} else
|
|
*dp++ = '^';
|
|
break;
|
|
case '$':
|
|
if (flag != 'K')
|
|
*dp++ = '\\';
|
|
/* FALLTHROUGH */
|
|
default:
|
|
*dp++ = *sp++;
|
|
break;
|
|
}
|
|
}
|
|
if (pad != 0 || fract != 0) {
|
|
if (fract == 0)
|
|
sprintf(dp, "$<%d", pad);
|
|
else
|
|
sprintf(dp, "$<%d.%d", pad, fract);
|
|
dp += strlen(dp);
|
|
if (mul)
|
|
*dp++ = '*';
|
|
*dp++ = '>';
|
|
}
|
|
*dp++ = '\0';
|
|
if(name[0] == 't' && name[1] == 'c' && name[2] == '\0'){
|
|
if (_getother(entry, path, ct))
|
|
return 1;
|
|
break;
|
|
}
|
|
if (ind == -1)
|
|
break;
|
|
if (ct->strs[ind] != (char *) -1)
|
|
break;
|
|
if ((ct->strs[ind] = _addstr(entry)) == NULL)
|
|
return 1;
|
|
break;
|
|
case '#':
|
|
#ifdef DEBUG
|
|
putchar('#');
|
|
#endif
|
|
i = atoi(++sp);
|
|
while(*sp != '\0' && *sp++ != ':');
|
|
ind = _findnumcode(name);
|
|
if (ind == -1)
|
|
break;
|
|
if (ct->nums[ind] != -2)
|
|
break;
|
|
ct->nums[ind] = i;
|
|
break;
|
|
default:
|
|
while(*sp != '\0' && *sp++ != ':');
|
|
if (*(dp - 1) == '@') {
|
|
#ifdef DEBUG
|
|
putchar('@');
|
|
#endif
|
|
*(dp - 1) = '\0';
|
|
ind = _findboolcode(name);
|
|
if (ind != -1) {
|
|
#ifdef DEBUG
|
|
putchar('!');
|
|
#endif
|
|
if (ct->bools[ind] == -1)
|
|
ct->bools[ind] = 0;
|
|
break;
|
|
}
|
|
ind = _findnumcode(name);
|
|
if (ind != -1) {
|
|
#ifdef DEBUG
|
|
putchar('#');
|
|
#endif
|
|
if (ct->nums[ind] == -2)
|
|
ct->nums[ind] = -1;
|
|
break;
|
|
}
|
|
ind = _findstrcode(name);
|
|
if (ind != -1) {
|
|
#ifdef DEBUG
|
|
putchar('$');
|
|
#endif
|
|
if (ct->strs[ind] == (char *) -1)
|
|
ct->strs[ind] = NULL;
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
#ifdef DEBUG
|
|
putchar('!');
|
|
#endif
|
|
ind = _findboolcode(name);
|
|
if (ind == -1)
|
|
break;
|
|
if (ct->bools[ind] != -1)
|
|
break;
|
|
ct->bools[ind] = 1;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|