da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <ast.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintypedef struct Stack_s

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* beg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short min;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin} Stack_t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinchar*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinfmtre(const char* as)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* s = (char*)as;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Stack_t* p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int end;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* buf;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Stack_t stack[32];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin end = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = 2 * strlen(s) + 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t = buf = fmtbuf(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = stack;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*s != '*' || *(s + 1) == '(' || *(s + 1) == '-' && *(s + 2) == '(')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '^';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c = *s++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\\':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(c = *s++) || c == '{' || c == '}')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '\\';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((*t++ = c) == '(' && *s == '|')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = *s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto logical;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '[':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((c = *s++) == '!')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '^';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = *s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == '^')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((c = *s++) == ']')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *(t - 1) = '\\';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '^';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = '^';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(*t++ = c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((c = *s++) == ']')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '{':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (x = s; *x && *x != '}'; x++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*x++ && (*x == '(' || *x == '-' && *(x + 1) == '('))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p >= &stack[elementsof(stack)])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->beg = s - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->len = s - p->beg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p->min = *s == '-')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = *s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '*':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!*s)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin end = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '?':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '+':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '@':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '!':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '~':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*s == '(' || c != '~' && *s == '-' && *(s + 1) == '(')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p >= &stack[elementsof(stack)])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->beg = s - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '~')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*(s + 1) == 'E' && *(s + 2) == ')')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (s += 3; *t = *s; t++, s++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->len = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin p->min = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = *s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '?';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->len = c != '@';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p->min = *s == '-')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = *s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '*':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '.';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '?':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '.';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '+':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '!':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '\\';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '(':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p >= &stack[elementsof(stack)])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->beg = s - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->len = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->min = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ')':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p == stack)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (c = 0; c < p->len; c++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = p->beg[c];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p->min)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '?';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '^':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '.':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '$':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '\\';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '|':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (t == buf || *(t - 1) == '(')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin logical:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!*s || *s == ')')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p != stack)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (end)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '$';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return buf;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}