#include "xlocale_private.h"
#include <ttyent.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include <regex.h>
#include <limits.h>
static char zapchar;
static FILE *tf;
struct ttyent *
getttynam(tty)
const char *tty;
{
register struct ttyent *t;
setttyent();
while ((t = getttyent()) != NULL)
if (!strcmp(tty, t->ty_name))
break;
endttyent();
return (t);
}
static char *skip(), *value();
struct seq {
int first;
int count;
int index;
char fmt[NAME_MAX + 17];
};
static char brapat[] = "\\[(.*)]";
static regex_t brapreg;
static char decpat[] = "^([0-9]+)-([0-9]+)$";
static regex_t decpreg;
static char hexpat[] = "^0x([0-9a-f]+)-0x([0-9a-f]+)$";
static regex_t hexpreg;
static struct seq *seq = NULL;
static int slot;
struct ttyent *
getttyent()
{
static struct ttyent tty;
static struct ttyent nonexistent = {
"\01",
NULL,
NULL,
0,
NULL,
NULL,
NULL
};
register int c;
register char *p;
#define MAXLINELENGTH 1024
static char *line = NULL;
locale_t loc = __current_locale();
int newslot, hex;
long b, e;
regmatch_t match[3], save, bracket;
if ( line == NULL ) {
line = malloc(MAXLINELENGTH);
if( line == NULL )
return NULL;
}
if (!tf && !setttyent())
return (NULL);
restart:
if (slot < seq->first) {
slot++;
return &nonexistent;
}
if (seq->count > 0) {
sprintf(tty.ty_name, seq->fmt, seq->index++);
slot++;
seq->count--;
return &tty;
}
if (slot == seq->first) {
slot++;
return &tty;
}
for (;;) {
if (!fgets(p = line, MAXLINELENGTH, tf))
return (NULL);
if (!index(p, '\n')) {
while ((c = getc(tf)) != '\n' && c != EOF)
;
continue;
}
while (isspace_l(*p, loc))
++p;
if (*p && *p != '#')
break;
}
zapchar = 0;
tty.ty_name = p;
p = skip(p);
if (!*(tty.ty_getty = p))
tty.ty_getty = tty.ty_type = NULL;
else {
p = skip(p);
if (!*(tty.ty_type = p))
tty.ty_type = NULL;
else
p = skip(p);
}
tty.ty_status = 0;
tty.ty_window = NULL;
tty.ty_onerror = NULL;
tty.ty_onoption = NULL;
#define scmp(e) !strncmp(p, e, sizeof(e) - 1) && isspace_l(p[sizeof(e) - 1], loc)
#define vcmp(e) !strncmp(p, e, sizeof(e) - 1) && p[sizeof(e) - 1] == '='
newslot = -1;
for (; *p; p = skip(p)) {
if (scmp(_TTYS_OFF))
tty.ty_status &= ~TTY_ON;
else if (scmp(_TTYS_ON))
tty.ty_status |= TTY_ON;
else if (scmp(_TTYS_SECURE))
tty.ty_status |= TTY_SECURE;
else if (vcmp(_TTYS_WINDOW))
tty.ty_window = value(p);
else if (vcmp(_TTYS_ONERROR))
tty.ty_onerror = value(p);
else if (vcmp(_TTYS_ONOPTION))
tty.ty_onoption = value(p);
else if (vcmp(_TTYS_SLOT)) {
char *slotstr = value(p);
if (slotstr)
newslot = atoi(slotstr);
} else
break;
}
if (zapchar == '#' || *p == '#')
while ((c = *++p) == ' ' || c == '\t')
;
tty.ty_comment = p;
if (*p == 0)
tty.ty_comment = 0;
if ((p = index(p, '\n')) != NULL)
*p = '\0';
if (regexec(&brapreg, tty.ty_name, 3, match, 0) != 0)
goto out;
bracket = match[0];
match[0] = save = match[1];
if (regexec(&decpreg, tty.ty_name, 3, match, REG_STARTEND) == 0) {
b = strtol(tty.ty_name + match[1].rm_so, NULL, 10);
e = strtol(tty.ty_name + match[2].rm_so, NULL, 10);
hex = 0;
} else {
match[0] = save;
if (regexec(&hexpreg, tty.ty_name, 3, match, REG_STARTEND) == 0) {
b = strtol(tty.ty_name + match[1].rm_so, NULL, 16);
e = strtol(tty.ty_name + match[2].rm_so, NULL, 16);
hex = 1;
} else
goto out;
}
if (b > e)
goto restart;
seq->count = e - b + 1;
seq->index = b;
sprintf(seq->fmt, "%.*s%%0%d%c%s",
(int)bracket.rm_so, tty.ty_name,
(int)(match[1].rm_eo - match[1].rm_so),
hex ? 'x' : 'd',
tty.ty_name + bracket.rm_eo);
out:
if (newslot > slot) {
seq->first = newslot;
goto restart;
}
if (seq->count > 0)
goto restart;
slot++;
return (&tty);
}
#define QUOTED 1
static char *
skip(p)
register char *p;
{
register char *t;
register int c, q;
for (q = 0, t = p; (c = *p) != '\0'; p++) {
if (c == '"') {
q ^= QUOTED;
continue;
}
if (q == QUOTED && *p == '\\' && *(p+1) == '"')
p++;
*t++ = *p;
if (q == QUOTED)
continue;
if (c == '#') {
zapchar = c;
*p = 0;
break;
}
if (c == '\t' || c == ' ' || c == '\n') {
zapchar = c;
*p++ = 0;
while ((c = *p) == '\t' || c == ' ' || c == '\n')
p++;
break;
}
}
*--t = '\0';
return (p);
}
static char *
value(p)
register char *p;
{
return ((p = index(p, '=')) ? ++p : NULL);
}
int
setttyent()
{
if (!seq) {
if (regcomp(&brapreg, brapat, REG_EXTENDED) != 0)
return 0;
if (regcomp(&decpreg, decpat, REG_EXTENDED) != 0) {
regfree(&brapreg);
return 0;
}
if (regcomp(&hexpreg, hexpat, REG_EXTENDED | REG_ICASE) != 0) {
regfree(&decpreg);
regfree(&brapreg);
return 0;
}
if ((seq = malloc(sizeof(struct seq))) == NULL) {
regfree(&hexpreg);
regfree(&decpreg);
regfree(&brapreg);
return 0;
}
}
seq->first = seq->count = 0;
slot = 1;
if (tf) {
(void)rewind(tf);
return (1);
} else if ((tf = fopen(_PATH_TTYS, "r")) != NULL)
return (1);
return (0);
}
int
endttyent()
{
int rval;
if (tf) {
rval = !(fclose(tf) == EOF);
tf = NULL;
return (rval);
}
return (1);
}