typedef struct sv SV;
|
typedef struct sv SV;
|
typedef struct regnode
|
typedef struct regnode
|
{
|
{
|
char flags;
|
char flags;
|
} regnode;
|
} regnode;
|
typedef struct regexp
|
typedef struct regexp
|
{
|
{
|
} regexp;
|
} regexp;
|
typedef struct cop
|
typedef struct cop
|
{
|
{
|
SV *cop_warnings;
|
SV *cop_warnings;
|
} COP;
|
} COP;
|
extern const unsigned char PL_utf8skip[];
|
extern const unsigned char PL_utf8skip[];
|
extern char PL_dowarn;
|
extern char PL_dowarn;
|
extern COP *volatile PL_curcop;
|
extern COP *volatile PL_curcop;
|
char *
|
char *
|
S_find_byclass (regexp * prog, regnode * c, char *s, char *strend,
|
S_find_byclass (regexp * prog, regnode * c, char *s, char *strend,
|
char *startpos, int norun)
|
char *startpos, int norun)
|
{
|
{
|
register long unsigned int uskip;
|
register long unsigned int uskip;
|
char *e;
|
char *e;
|
switch (((c)->flags))
|
switch (((c)->flags))
|
{
|
{
|
case 17:
|
case 17:
|
{
|
{
|
while (s + (uskip = PL_utf8skip[*s]) <= strend)
|
while (s + (uskip = PL_utf8skip[*s]) <= strend)
|
{
|
{
|
if (c->flags || S_reginclass (c))
|
if (c->flags || S_reginclass (c))
|
if (norun || S_regtry (prog, s))
|
if (norun || S_regtry (prog, s))
|
goto got_it;
|
goto got_it;
|
s += uskip;
|
s += uskip;
|
}
|
}
|
unsigned long c, f;
|
unsigned long c, f;
|
long unsigned int len;
|
long unsigned int len;
|
{
|
{
|
while (s <= e)
|
while (s <= e)
|
{
|
{
|
c = Perl_utf8n_to_uvuni (s, 13, &len,
|
c = Perl_utf8n_to_uvuni (s, 13, &len,
|
(((PL_curcop->cop_warnings !=
|
(((PL_curcop->cop_warnings !=
|
((SV *) ((void *) 0)))
|
((SV *) ((void *) 0)))
|
&& PL_dowarn)) ? 0 : 0x00FF);
|
&& PL_dowarn)) ? 0 : 0x00FF);
|
if (c == 0 && (norun || S_regtry (prog, s)))
|
if (c == 0 && (norun || S_regtry (prog, s)))
|
if (f != c && (norun || S_regtry (prog, s)))
|
if (f != c && (norun || S_regtry (prog, s)))
|
goto got_it;
|
goto got_it;
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
got_it:
|
got_it:
|
return s;
|
return s;
|
}
|
}
|
Perl_re_intuit_start (regexp * prog)
|
Perl_re_intuit_start (regexp * prog)
|
{
|
{
|
S_find_byclass (prog, 0, 0, 0, 0, 1);
|
S_find_byclass (prog, 0, 0, 0, 0, 1);
|
}
|
}
|
Perl_regexec_flags (register regexp * prog,
|
Perl_regexec_flags (register regexp * prog,
|
register char *strend)
|
register char *strend)
|
{
|
{
|
S_find_byclass (prog, 0, 0, strend, 0, 0);
|
S_find_byclass (prog, 0, 0, strend, 0, 0);
|
}
|
}
|
S_regtry (regexp * prog, char *startpos)
|
S_regtry (regexp * prog, char *startpos)
|
{
|
{
|
}
|
}
|
|
|