#pragma prototyped
#include <ast.h>
#include <ctype.h>
int
stropt(const char* as, const void* tab, int siz, int(*f)(void*, const void*, int, const char*), void* a)
{
register int c;
register char* s;
register char* v;
register char* t;
char** p;
char* u;
char* x;
char* e;
int n;
int ql;
int qr;
int qc;
if (!as) n = 0;
else if (!(x = s = strdup(as))) n = -1;
else
{
for (;;)
{
while (isspace(*s) || *s == ',') s++;
if (*s == 'n' && *(s + 1) == 'o')
{
s += 2;
n = 0;
}
else n = 1;
if (!*s)
{
n = 0;
break;
}
if (tab)
{
for (p = (char**)tab; t = *p; p = (char**)((char*)p + siz))
{
for (v = s; *t && *t++ == *v; v++);
if (!*t || isspace(*v) || *v == ',' || *v == '=')
break;
if (*v == ':' && *(v + 1) == '=')
{
v++;
n = -1;
break;
}
}
if (!t)
{
u = v = s;
p = 0;
}
}
else
{
p = (char**)(v = s);
t = 0;
}
while (*v && !isspace(*v) && *v != '=' && *v != ',')
if (*v++ == ':' && *v == '=')
{
if (!t)
*(v - 1) = 0;
n = -n;
break;
}
if (*v == '=')
{
if (!t)
*v = 0;
t = s = ++v;
ql = qr = 0;
while (c = *s++)
{
if (c == '\\')
{
*t++ = chresc(s - 1, &e);
s = e;
}
else if (c == qr)
{
if (qr != ql)
*t++ = c;
if (--qc <= 0)
qr = ql = 0;
}
else if (c == ql)
{
*t++ = c;
qc++;
}
else if (qr)
*t++ = c;
else if (c == ',' || isspace(c))
break;
else if (c == '"' || c == '\'')
{
ql = qr = c;
qc = 1;
}
else
{
*t++ = c;
if (c == '{')
{
ql = c;
qr = '}';
qc = 1;
}
else if (c == '(')
{
ql = c;
qr = ')';
qc = 1;
}
}
}
*t = 0;
}
else
{
s = v;
c = *s;
*s++ = 0;
}
n = p ? (*f)(a, p, n, v) : (*f)(a, p, v - u, u);
if (n || !c)
break;
}
free(x);
}
return n;
}