Subversion Repositories openrisc

typedef struct sv SV;

typedef struct regnode

{

  char flags;

} regnode;

typedef struct regexp

{

} regexp;

typedef struct cop

{

  SV *cop_warnings;

} COP;

extern const unsigned char PL_utf8skip[];

extern char PL_dowarn;

extern COP *volatile PL_curcop;

char *

S_find_byclass (regexp * prog, regnode * c, char *s, char *strend,

                char *startpos, int norun)

{

  register long unsigned int uskip;

  char *e;

  switch (((c)->flags))

    {

    case 17:

        {

          while (s + (uskip = PL_utf8skip[*s]) <= strend)

            {

              if (c->flags || S_reginclass (c))

                  if (norun || S_regtry (prog, s))

                    goto got_it;

              s += uskip;

            }

          unsigned long c, f;

          long unsigned int len;

            {

              while (s <= e)

                {

                  c = Perl_utf8n_to_uvuni (s, 13, &len,

                                           (((PL_curcop->cop_warnings !=

                                              ((SV *) ((void *) 0)))

                                             && PL_dowarn)) ? 0 : 0x00FF);

                  if (c == 0 && (norun || S_regtry (prog, s)))

                      if (f != c && (norun || S_regtry (prog, s)))

                        goto got_it;

                }

            }

        }

    }

got_it:

  return s;

}

Perl_re_intuit_start (regexp * prog)

{

  S_find_byclass (prog, 0, 0, 0, 0, 1);

}

Perl_regexec_flags (register regexp * prog,

                    register char *strend)

{

  S_find_byclass (prog, 0, 0, strend, 0, 0);

}

S_regtry (regexp * prog, char *startpos)

{

}