/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include <ctype.h>
#include <locale.h>
#include <string.h>
/*
* grindcap - routines for dealing with the language definitions data base
* (code stolen almost totally from termcap)
*
* BUG: Should use a "last" pointer in tbuf, so that searching
* for capabilities alphabetically would not be a n**2/2
* process when large numbers of capabilities are given.
* Note: If we add a last pointer now we will screw up the
* tc capability. We really should compile termcap.
*
* Essentially all the work here is scanning and decoding escapes
* in string capabilities. We don't use stdio because the editor
* doesn't, and because living w/o it is not hard.
*/
static char *tbuf;
static char *filename;
char *tgetstr();
char *getenv();
static int tnchktc(void);
static char *vgrind_msg;
/*
* Get an entry for terminal name in buffer bp,
* from the termcap file. Parse is very rudimentary;
* we just notice escaped newlines.
*/
int
{
char *cp;
int c;
int i = 0, cnt = 0;
char *cp2;
int tf;
tf = 0;
if (tf < 0)
return (-1);
for (;;) {
for (;;) {
if (i == cnt) {
if (cnt <= 0) {
return (0);
}
i = 0;
}
c = ibuf[i++];
if (c == '\n') {
cp--;
continue;
}
break;
}
break;
} else
*cp++ = c;
}
*cp = 0;
/*
* The real work for the match.
*/
return(tnchktc());
}
}
}
/*
* tnchktc: check the last entry, see if it's tc=xxx. If so,
* recursively find xxx and append that entry (minus the names)
* to take the place of the tc=xxx entry. This allows termcap
* entries to say "like an HP2621 but doesn't turn on the labels".
* Note that this works because of the left to right scan.
*/
static int
tnchktc(void)
{
char *p, *q;
int l;
while (*--p != ':')
if (p<tbuf) {
return (0);
}
p++;
/* p now points to beginning of last field */
if (p[0] != 't' || p[1] != 'c')
return(1);
q = tcname;
while (q && *q != ':')
q++;
*q = 0;
return (0);
}
return(0);
for (q=tcbuf; *q != ':'; q++)
;
if (l > BUFSIZ) {
}
strcpy(p, q+1);
return(1);
}
/*
* Tnamatch deals with name matching. The first field of the termcap
* entry is a sequence of names separated by |'s, so we compare
* against each such name. The normal : terminator after the last
* name (before the first field) stops us.
*/
static int
{
if (*Bp == '#')
return(0);
for (;;) {
continue;
return (1);
Bp++;
return (0);
Bp++;
}
}
/*
* Skip to the next field. Notice that this is very dumb, not
* knowing about \: escapes or any such. If necessary, :'s can be put
* into the termcap file in octal.
*/
static char *
{
bp++;
if (*bp == ':')
bp++;
return (bp);
}
/*
* Return the (numeric) option id.
* Numeric options look like
* li#80
* i.e. the option string is separated from the numeric value by
* a # character. If the option is not found we return -1.
* Note that we handle octal numbers beginning with 0.
*/
static int
{
int i, base;
for (;;) {
if (*bp == 0)
return (-1);
continue;
if (*bp == '@')
return(-1);
if (*bp != '#')
continue;
bp++;
base = 10;
if (*bp == '0')
base = 8;
i = 0;
return (i);
}
}
/*
* Handle a flag option.
* Flag options are given "naked", i.e. followed by a : or the end
* of the buffer. Return 1 if we find the option, or 0 if it is
* not given.
*/
int
{
for (;;) {
if (!*bp)
return (0);
return (1);
else if (*bp == '@')
return(0);
}
}
}
/*
* Get a string valued option.
* These are given as
* cl=^Z
* Much decoding is done on the strings, and the strings are
* placed in area, which is a ref parameter which is updated.
* No checking on area overflow.
*/
char *
{
for (;;) {
if (!*bp)
return (0);
continue;
if (*bp == '@')
return(0);
if (*bp != '=')
continue;
bp++;
}
}
/*
* Tdecode does the grung work to decode the
* string capability escapes.
*/
static char *
{
char *cp;
int c;
int i;
while (c = *str++) {
break;
*cp++ = c;
}
*cp++ = 0;
return (str);
}