da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "reglib.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "lclib.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define serialize re_serialize /* hp.ia64 <unistd.h>! */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define C_ESC (-1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define C_MB (-2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _AST_REGEX_DEBUG

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DEBUG_TEST(f,y,n) ((debug&(debug_flag=f))?(y):(n))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DEBUG_CODE(f,y,n) do if(debug&(f)){y}else{n} while(0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DEBUG_INIT() do { char* t; if (!debug) { debug = 0x80000000; if (t = getenv("_AST_regex_comp_debug")) debug |= strtoul(t, NiL, 0); } } while (0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic unsigned long debug;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic unsigned long debug_flag;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DEBUG_INIT()

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DEBUG_TEST(f,y,n) (n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DEBUG_CODE(f,y,n) do {n} while(0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintypedef struct Cchr_s

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Dtlink_t lnk;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char nam[2];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Ckey_t key;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin} Cchr_t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define eat(p) do{if ((p)->token.push)(p)->token.push=0;else (p)->cursor+=(p)->token.len;}while (0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintypedef struct Stats_s

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long l; /* min length to left of x */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long k; /* min length to left of y */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long m; /* min length */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long n; /* max length */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned short a; /* number of alternations */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned short b; /* number of backrefs */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned short c; /* number of closures */

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner unsigned short e; /* $ */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned short i; /* number of negations */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned short p; /* number of named subexpressions */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned short s; /* number of simple closures */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned short t; /* number of tries */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned short u; /* number of unnamed subexpressions */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Rex_t* x; /* max length REX_STRING */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Rex_t* y; /* max length REX_TRIE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin} Stats_t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintypedef struct Token_s

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long min;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long max;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short lex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short esc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short att;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short push;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin} Token_t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintypedef struct Cenv_s

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int delimiter; /* pattern delimiter */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int error; /* last error */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int explicit; /* explicit match on this char */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int mappeddot; /* inverse mapped '.' */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int mappednewline; /* inverse mapped '\n' */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int mappedslash; /* inverse mapped '/' */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regflags_t flags; /* flags arg to regcomp */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int type; /* BRE,ERE,ARE,SRE,KRE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* cursor; /* curent point in re */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* pattern; /* the original pattern */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* literal; /* literal restart pattern */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int parno; /* number of last open paren */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int parnest; /* paren nest count */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int posixkludge; /* to make * nonspecial */

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz int regexp; /* <regexp.h> compatibility */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Token_t token; /* token lookahead */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Stats_t stats; /* RE statistics */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int terminator; /* pattern terminator */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Rex_t* paren[2*(BACK_REF_MAX+2)];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* paren[i]!=0 if \i defined */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regex_t* regex; /* user handle */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regdisc_t* disc; /* user discipline */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* map; /* external to native ccode map */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* MAP; /* fold and/or map */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin} Cenv_t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic Rex_t*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinnode(Cenv_t* env, int type, int lo, int hi, size_t extra)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Rex_t* e;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e = (Rex_t*)alloc(env->disc, 0, sizeof(Rex_t) + extra))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memset(e, 0, sizeof(Rex_t) + extra);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->type = type;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->marked = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->lo = lo;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->hi = hi;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->flags = env->flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->map = (e->flags & REG_ICASE) ? env->MAP : env->map;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->explicit = env->explicit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (extra)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->re.data = (char*)e + sizeof(Rex_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return e;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintriedrop(regdisc_t* disc, Trie_node_t* e)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin triedrop(disc, e->son);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin triedrop(disc, e->sib);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin alloc(disc, e, 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindrop(regdisc_t* disc, Rex_t* e)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int i;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Rex_t* x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e && !(disc->re_flags & REG_NOFREE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (e->type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_ALT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_CONJ:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin drop(disc, e->re.group.expr.binary.left);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin drop(disc, e->re.group.expr.binary.right);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_AHEAD:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_AHEAD_NOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_BEHIND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_BEHIND_NOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_CUT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_NEG:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_REP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin drop(disc, e->re.group.expr.rex);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_TRIE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (i = 0; i <= UCHAR_MAX; i++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin triedrop(disc, e->re.trie.root[i]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin x = e->next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin alloc(disc, e, 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while (e = x);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinmark(register Rex_t* e, int set)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e && !e->marked)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->marked = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (set)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->flags |= REG_MINIMAL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->flags &= ~REG_MINIMAL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (e->type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_ALT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_CONJ:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_COND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->re.group.expr.binary.left)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mark(e->re.group.expr.binary.left, set);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->re.group.expr.binary.right)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mark(e->re.group.expr.binary.right, set);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_AHEAD:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_AHEAD_NOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_BEHIND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_BEHIND_NOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_CUT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_NEG:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_REP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_TRIE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mark(e->re.group.expr.rex, set);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while (e = e->next);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinserialize(Cenv_t* env, Rex_t* e, int n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->serial = n++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (e->type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_ALT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_COND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->re.group.expr.binary.left)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = serialize(env, e->re.group.expr.binary.left, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->re.group.expr.binary.serial = n++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->re.group.expr.binary.right)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = serialize(env, e->re.group.expr.binary.right, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_CONJ:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = serialize(env, e->re.group.expr.binary.left, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = serialize(env, e->re.group.expr.binary.right, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_AHEAD:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_AHEAD_NOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_BEHIND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_BEHIND_NOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_CUT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_NEG:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_REP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = serialize(env, e->re.group.expr.rex, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while (e = e->next);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic Rex_t*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chincat(Cenv_t* env, Rex_t* e, Rex_t* f)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Rex_t* g;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!f)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin drop(env->disc, e);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->type == REX_NULL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin drop(env->disc, e);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return f;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (f->type == REX_NULL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin g = f->next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->next = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin drop(env->disc, f);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f = g;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (e->type == REX_DOT && f->type == REX_DOT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned int m = e->lo + f->lo;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned int n = e->hi + f->hi;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (m <= RE_DUP_MAX)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->hi > RE_DUP_MAX || f->hi > RE_DUP_MAX)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = RE_DUP_INF;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto combine;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (n <= RE_DUP_MAX)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin combine:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->lo = m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->hi = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin g = f->next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->next = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin drop(env->disc, f);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f = g;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e->next = f;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return e;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstats(register Cenv_t* env, register Rex_t* e)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register unsigned long n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register unsigned long m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long cm;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long nm;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long cn;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long nn;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long k;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Rex_t* q;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Rex_t* x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Rex_t* y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char b;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (e->type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_ALT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin x = env->stats.x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin l = env->stats.l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin y = env->stats.y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin k = env->stats.k;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t = env->stats.t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++env->stats.a <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cm = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cn = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (stats(env, e->re.group.expr.binary.left))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->re.group.expr.binary.right && stats(env, e->re.group.expr.binary.right))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->stats.m > m)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.m += cm) < m)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->stats.n < n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.n = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.n += cn) < n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.x = x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.l = l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.y = y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.k = k;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.t = t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_BACK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++env->stats.b <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_CLASS:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_COLL_CLASS:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_DOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_ONECHAR:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.m += e->lo) < n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->hi != RE_DUP_INF)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.n += e->hi) < n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->lo != e->hi)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++env->stats.c <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++env->stats.s <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_CONJ:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cm = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cn = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (stats(env, e->re.group.expr.binary.left))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nm = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nn = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (stats(env, e->re.group.expr.binary.right))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->stats.m < nm)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = nm;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nm = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.m += cm) < nm)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->stats.n < nn)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.n = nn;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nn = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.n += cn) < nn)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner case REX_END:

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner env->stats.e = 1;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->re.group.number && ++env->stats.p <= 0 || !e->re.group.number && ++env->stats.u <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (stats(env, e->re.group.expr.rex))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_AHEAD:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_AHEAD_NOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_BEHIND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_BEHIND_NOT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin x = env->stats.x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin y = env->stats.y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (stats(env, e->re.group.expr.rex))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.n = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.x = x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.y = y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (e->type)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_AHEAD:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_BEHIND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++env->stats.u <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_COND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++env->stats.u <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin x = env->stats.x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin y = env->stats.y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->re.group.size > 0 && ++env->stats.b <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->re.group.expr.binary.left && stats(env, e->re.group.expr.binary.left))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (q = e->re.group.expr.binary.right)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (q->re.group.expr.binary.left && stats(env, q->re.group.expr.binary.left))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (q->re.group.expr.binary.right && stats(env, q->re.group.expr.binary.right))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.n = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.x = x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.y = y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_GROUP_CUT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++env->stats.u <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin x = env->stats.x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin y = env->stats.y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (stats(env, e->re.group.expr.rex))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.n = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.x = x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.y = y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_NEG:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.i++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin x = env->stats.x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin l = env->stats.l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin y = env->stats.y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin k = env->stats.k;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t = env->stats.t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cm = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (stats(env, e->re.group.expr.rex))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = !env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.m += cm) < cm)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.x = x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.l = l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.y = y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.k = k;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.t = t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_REP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin x = env->stats.x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin l = env->stats.l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin y = env->stats.y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin k = env->stats.k;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t = env->stats.t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++env->stats.c <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin b = env->stats.b;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = env->stats.c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cm = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (stats(env, e->re.group.expr.rex))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->stats.m == 1 && b == env->stats.b && c == env->stats.c && ++env->stats.s <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (e->lo < 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.x = x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.l = l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.y = y;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.k = k;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.t = t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.m = cm;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.m *= e->lo) > 0 && env->stats.m < m)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.m += cm) < m)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->stats.x != x)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.l = cm;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->stats.y != y)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.k = cm;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_STRING:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (!e->map)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cm = env->stats.m;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if ((env->stats.m += e->re.string.size) < cm)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cn = env->stats.n;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if ((env->stats.n += e->re.string.size) < cn)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (!env->stats.x || env->stats.x->re.string.size < e->re.string.size)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin env->stats.x = e;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin env->stats.l = cm;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case REX_TRIE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++env->stats.s <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cm = env->stats.m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.m += e->re.trie.min) < cm)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cn = env->stats.n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->stats.n += e->re.trie.max) < cn)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.t++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!env->stats.y || env->stats.y->re.trie.min < e->re.trie.min)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.y = e;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->stats.k = cm;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while (e = e->next);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int token(Cenv_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinmagic(register Cenv_t* env, register int c, int escaped)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int o = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int e = env->error;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int l = env->token.len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short* mp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* ep;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mp = state.magic[c])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = mp[env->type+escaped];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c >= T_META)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = (char*)env->cursor + env->token.len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_LEFT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ep = sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*sp >= '0' && *sp <= '9')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n > (INT_MAX / 10))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADBR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = n * 10 + *sp++ - '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sp == ep)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (env->type < SRE || *sp != ',')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin env->error = *sp ? REG_BADBR : REG_EBRACE;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin goto bad;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (n > RE_DUP_MAX)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADBR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.min = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*sp == ',')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ep = ++sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*sp >= '0' && *sp <= '9')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n > (INT_MAX / 10))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADBR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = n * 10 + *sp++ - '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sp == ep)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = RE_DUP_INF;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (n < env->token.min)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADBR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.max = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (*sp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_EBRACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\\':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!escaped)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADBR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (escaped)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADBR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (*sp++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_EBRACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '}':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADBR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len = sp - (char*)env->cursor;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_RIGHT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_EBRACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_OPEN:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type < SRE && *sp == '?')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.lex = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto group;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_ESCAPE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = chresc(sp - 2, &ep);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ep < sp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len += ep - sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c >= T_META)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.lex = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = C_ESC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+1:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+2:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+3:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+4:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+5:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+6:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+7:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = chresc(sp - 2, &ep);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ep > sp + 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len += ep - sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+8:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BACK+9:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type == SRE || c == T_BACK && !(env->flags & REG_LENIENT))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADESC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->flags & REG_MULTIREF) && isdigit(*sp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = (c - T_BACK) * 10 + (*sp - '0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c > 0 && c <= env->parno && env->paren[c])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c += T_BACK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = chresc(sp - 2, &ep);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == T_BACK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_BAD:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (escaped == 1 && (env->flags & REG_LENIENT) && (c = mp[env->type+escaped+2]) >= T_META)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type >= SRE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == T_DOT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '.';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c < T_OPEN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type == KRE && *(env->cursor + env->token.len) == '-' && *(env->cursor + env->token.len + 1) == '(')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.att = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type == KRE && *(env->cursor + env->token.len) == '(')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_AT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_PERCENT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.lex = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto group;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_TILDE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.lex = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto group;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.lex = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_OPEN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == T_STAR)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_DOTSTAR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == T_QUES)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_DOT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = o;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len = l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c > T_BACK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = (c - T_BACK) * 2 - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = (c > env->parno || !env->paren[c]) ? o : T_BACK + c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (env->type == KRE && !env->parnest && (env->flags & REG_SHELL_GROUP))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == T_AND)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '&';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == T_BAR)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '|';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == T_OPEN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '(';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (escaped == 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type >= SRE && !(env->flags & REG_SHELL_ESCAPED) || (env->flags & REG_ESCAPE) && (c == '[' || c == '-' || c == ']' || env->delimiter && c == env->delimiter))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*ok*/;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADESC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (escaped && !(env->flags & REG_LENIENT) && c != ']')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADESC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto bad;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin group:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = (char*)env->cursor + env->token.len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (*sp++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ')':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '#':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (*sp++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_EPAREN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_BAD;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ')':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_GROUP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->cursor = (unsigned char*)sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return token(env);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bad:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (escaped == 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = e;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (env->flags & REG_LENIENT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return o;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (escaped == 1 && !env->error)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mp || o == ']')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return o;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_BADESC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_BAD;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintoken(register Cenv_t* env)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int posixkludge;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->token.push)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return env->token.lex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.att = env->token.esc = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((env->token.len = MBSIZE(env->cursor)) > 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return env->token.lex = C_MB;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.lex = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = *env->cursor;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == 0 || c == env->delimiter || c == env->terminator)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_END;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(env->flags & REG_COMMENT))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '#')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = *++env->cursor;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == 0 || c == env->delimiter)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_END;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while (c != '\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (!isspace(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->cursor++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '\n' && (env->flags & REG_MULTIPLE) && !env->delimiter)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->parnest)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_EPAREN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_BAD;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->parno = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->pattern = env->cursor + 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_BAR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->flags & REG_LITERAL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (posixkludge = env->posixkludge)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->posixkludge = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '*')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '\\')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->flags & REG_SHELL_ESCAPED)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(c = *(env->cursor + 1)) || c == env->terminator)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->flags & REG_LENIENT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.esc = env->token.len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len += MBSIZE(env->cursor + 1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return '\\';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_EESCAPE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_BAD;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.esc = env->token.len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len += MBSIZE(env->cursor + 1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->delimiter && c == 'n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return '\n';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == env->delimiter)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return magic(env, c, 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == '(' && env->type == BRE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->posixkludge = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == ')' && env->type == BRE && env->parnest <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->error = REG_EPAREN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_BAD;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (isspace(c) && (env->flags & REG_COMMENT))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return magic(env, c, 1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type == BRE && (*(env->cursor + 1) == 0 || *(env->cursor + 1) == env->delimiter || *(env->cursor + 1) == env->terminator || *(env->cursor + 1) == '\\' && *(env->cursor + 2) == ')') || (env->flags & REG_MULTIPLE) && *(env->cursor + 1) == '\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_DOLL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == '^')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (env->type == BRE && (env->cursor == env->pattern || posixkludge == 1))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner env->posixkludge = 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_CFLX;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == ')')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type != BRE && env->parnest <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == '/' && env->explicit == env->mappedslash)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*(env->cursor + env->token.len) == c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return T_SLASHPLUS;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return magic(env, c, 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic Celt_t*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chincol(Celt_t* ce, int ic, unsigned char* bp, int bw, int bc, unsigned char* ep, int ew, int ec)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register char* s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register unsigned char* k;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register unsigned char* e;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int cc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int bt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int et;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Ckey_t key;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cc = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin k = key;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (bw == 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = bc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ic)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (isupper(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = tolower(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if (islower(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = toupper(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *k++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (bw < COLL_KEY_MAX)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin s = (char*)bp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (ic)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = mbchar(s);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (iswupper(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = towlower(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if (iswlower(c))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = towupper(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (cc > 0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = -1;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner k += mbconv((char*)k, c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin for (e = k + bw; k < e; *k++ = *s++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *k = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mbxfrm(ce->beg, key, COLL_KEY_MAX);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ep)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin k = key;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = mbchar(k);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (iswupper(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bt = COLL_range_uc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (iswlower(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bt = COLL_range_lc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bt = COLL_range;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin k = key;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ew == 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = ec;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ic)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (isupper(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = tolower(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if (islower(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = toupper(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *k++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (ew < COLL_KEY_MAX)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin s = (char*)ep;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (ic)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = mbchar(s);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (iswupper(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = towlower(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if (iswlower(c))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = towupper(c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (cc > 0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin cc = -1;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner k += mbconv((char*)k, c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin for (e = k + ew; k < e; *k++ = *s++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *k = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mbxfrm(ce->end, key, COLL_KEY_MAX);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin k = key;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = mbchar(k);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (iswupper(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin et = COLL_range_uc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (iswlower(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin et = COLL_range_lc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin et = COLL_range;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ce->typ = bt == et ? bt : COLL_range;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ce->typ = COLL_char;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ce++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!ic || !cc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ic = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return ce;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic Rex_t*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinbra(Cenv_t* env)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Rex_t* e;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int i;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int w;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int neg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int last;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int inrange;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int complicated;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int collate;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int elements;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* first;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* start;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* begin;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regclass_t f;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char buf[4 * (COLL_KEY_MAX + 1)];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ic;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char mbc[COLL_KEY_MAX + 1];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(e = node(env, REX_CLASS, 1, 1, sizeof(Set_t))))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin collate = complicated = elements = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*env->cursor == '^' || env->type >= SRE && *env->cursor == '!')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->cursor++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin neg = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin neg = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin first = env->cursor;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin start = first + MBSIZE(first);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*env->cursor == 0 || *(env->cursor + 1) == 0 || *env->cursor == env->terminator || *(env->cursor + 1) == env->terminator || (env->flags & REG_ESCAPE) && (*env->cursor == env->delimiter || *env->cursor != '\\' && *(env->cursor + 1) == env->delimiter))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto error;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin begin = env->cursor + MBSIZE(env->cursor);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin inrange = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (!(c = *env->cursor) || c == env->terminator || c == env->delimiter && (env->flags & REG_ESCAPE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto error;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->cursor += (w = MBSIZE(env->cursor));

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (c == '\\' && ((env->flags & REG_CLASS_ESCAPE) || env->type >= SRE && env->parnest || *env->cursor == env->delimiter && (env->flags & REG_ESCAPE)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*env->cursor)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*env->cursor == 'n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->cursor++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\n';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (env->type < SRE || !(env->flags & REG_SHELL_ESCAPED))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->token.len = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w = magic(env, *env->cursor, 2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->token.len > 1 || w != T_BAD)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->token.len == 1 && (f = classfun(w)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (inrange > 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type < SRE && !(env->flags & REG_LENIENT))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto erange;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin inrange = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->cursor++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (c = 0; c <= UCHAR_MAX; c++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((*f)(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setadd(e->re.charclass, c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin complicated++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin elements++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->token.len > 1 || w >= 0 && w < T_META)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = w;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c > UCHAR_MAX)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type < SRE && !(env->flags & REG_LENIENT) && !mbwide())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto erange;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = UCHAR_MAX;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin env->cursor += env->token.len;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == ']')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->cursor == begin)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin last = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin inrange = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (inrange != 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setadd(e->re.charclass, last);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin elements++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (inrange == 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin setadd(e->re.charclass, '-');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin elements++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == '-')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!inrange && env->cursor != begin && *env->cursor != ']')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (env->type < SRE && !(env->flags & REG_LENIENT))