6 |
and semantics are as close as possible to those of the Perl 5 language. |
and semantics are as close as possible to those of the Perl 5 language. |
7 |
|
|
8 |
Written by Philip Hazel |
Written by Philip Hazel |
9 |
Copyright (c) 1997-2006 University of Cambridge |
Copyright (c) 1997-2007 University of Cambridge |
10 |
|
|
11 |
----------------------------------------------------------------------------- |
----------------------------------------------------------------------------- |
12 |
Redistribution and use in source and binary forms, with or without |
Redistribution and use in source and binary forms, with or without |
2120 |
} |
} |
2121 |
|
|
2122 |
if (possessive) continue; |
if (possessive) continue; |
2123 |
while (eptr >= pp) |
for(;;) |
2124 |
{ |
{ |
2125 |
RMATCH(rrc, eptr, ecode, offset_top, md, ims, eptrb, 0); |
RMATCH(rrc, eptr, ecode, offset_top, md, ims, eptrb, 0); |
2126 |
if (rrc != MATCH_NOMATCH) RRETURN(rrc); |
if (rrc != MATCH_NOMATCH) RRETURN(rrc); |
2127 |
|
if (eptr == pp) RRETURN(MATCH_NOMATCH); |
2128 |
#ifdef SUPPORT_UCP |
#ifdef SUPPORT_UCP |
2129 |
eptr--; |
eptr--; |
2130 |
BACKCHAR(eptr); |
BACKCHAR(eptr); |
2132 |
eptr -= length; |
eptr -= length; |
2133 |
#endif /* SUPPORT_UCP */ |
#endif /* SUPPORT_UCP */ |
2134 |
} |
} |
|
RRETURN(MATCH_NOMATCH); |
|
2135 |
} |
} |
2136 |
/* Control never gets here */ |
/* Control never gets here */ |
2137 |
} |
} |