freebsd-src/lib/libmytinfo/readcaps.c
1995-05-30 05:51:47 +00:00

152 lines
2.2 KiB
C

/*
* readcaps.c
*
* By Ross Ridge
* Public Domain
* 92/02/01 07:30:15
*
* Read in the cap_list file
*
*/
#define NOTLIB
#include "defs.h"
#include <ctype.h>
#ifdef USE_SCCS_IDS
static const char SCCSid[] = "@(#) mytinfo readcaps.c 3.2 92/02/01 public domain, By Ross Ridge";
#endif
#ifdef __GNUC__
__inline__
#endif
static int
skipline(f)
register FILE *f; {
register int c;
do {
c = getc(f);
if (c == EOF)
return EOF;
#ifdef TEST
putchar(c);
#endif
} while (c != '\n');
return 0;
}
#ifdef __GNUC__
__inline__
#endif
static int
getfield(f, s, len)
register FILE *f;
register char *s;
int len; {
register int c;
int i;
#ifdef TEST
char *start = s;
#endif
do {
c = getc(f);
if (c == EOF)
return EOF;
} while (c != '\n' && isspace(c));
if (c == '\n')
return 0;
i = 0;
while(!isspace(c)) {
if (i++ < len)
*s++ = c;
c = getc(f);
if (c == EOF)
return EOF;
}
*s = '\0';
#ifdef TEST
printf(" %s", start);
#endif
return c;
}
int
readcaps(f, buf, max)
FILE *f;
register struct caplist *buf;
int max; {
int type;
register int count;
int c;
static char dummy;
count = 0;
type = getc(f);
while(type != EOF) {
if (type == '$' || type == '!' || type == '#') {
if (count >= max)
return count + 1;
#ifdef TEST
putchar(type);
#endif
buf[count].type = type;
if (type == '$') {
c = getc(f);
if (c == EOF)
break;
if (c == 'G')
buf[count].flag = 'G';
else if (c == 'K')
buf[count].flag = 'K';
else
buf[count].flag = ' ';
}
c = getfield(f, buf[count].var, MAX_VARNAME);
if (c == EOF || c == '\n' || c == 0)
return -1;
c = getfield(f, buf[count].tinfo, MAX_TINFONAME);
if (c == EOF || c == '\n' || c == 0)
return -1;
c = getfield(f, buf[count].tcap, MAX_TCAPNAME);
if (c == EOF || c == 0)
return -1;
if (c != '\n')
if (getfield(f, &dummy, 1) != 0)
return -1;
count++;
#ifdef TEST
putchar('\n');
#endif
} else {
#ifdef TEST
putchar(type);
#endif
if (type != '\n' && skipline(f) == EOF)
return -1;
}
type = getc(f);
}
return count;
}
#ifdef TEST
struct caplist list[1000];
int
main() {
int ret;
ret = readcaps(stdin, list, 1000);
printf("ret = %d\n", ret);
return 0;
}
#endif