12 |
|
|
13 |
Written by: Philip Hazel <ph10@cam.ac.uk> |
Written by: Philip Hazel <ph10@cam.ac.uk> |
14 |
|
|
15 |
Copyright (c) 1997-2000 University of Cambridge |
Copyright (c) 1997-2003 University of Cambridge |
16 |
|
|
17 |
----------------------------------------------------------------------------- |
----------------------------------------------------------------------------- |
18 |
Permission is granted to anyone to use this software for any purpose on any |
Permission is granted to anyone to use this software for any purpose on any |
47 |
ERR1, ERR2, ERR3, ERR4, ERR5, ERR6, ERR7, ERR8, ERR9, ERR10, |
ERR1, ERR2, ERR3, ERR4, ERR5, ERR6, ERR7, ERR8, ERR9, ERR10, |
48 |
ERR11, ERR12, ERR13, ERR14, ERR15, ERR16, ERR17, ERR18, ERR19, ERR20, |
ERR11, ERR12, ERR13, ERR14, ERR15, ERR16, ERR17, ERR18, ERR19, ERR20, |
49 |
ERR21, ERR22, ERR23, ERR24, ERR25, ERR26, ERR27, ERR29, ERR29, ERR30, |
ERR21, ERR22, ERR23, ERR24, ERR25, ERR26, ERR27, ERR29, ERR29, ERR30, |
50 |
ERR31 }; |
ERR31, ERR32, ERR33, ERR34, ERR35, ERR36, ERR37, ERR38, ERR39, ERR40, |
51 |
|
ERR41, ERR42, ERR43, ERR44 }; |
52 |
|
|
53 |
static int eint[] = { |
static int eint[] = { |
54 |
REG_EESCAPE, /* "\\ at end of pattern" */ |
REG_EESCAPE, /* "\\ at end of pattern" */ |
63 |
REG_BADRPT, /* "operand of unlimited repeat could match the empty string" */ |
REG_BADRPT, /* "operand of unlimited repeat could match the empty string" */ |
64 |
REG_ASSERT, /* "internal error: unexpected repeat" */ |
REG_ASSERT, /* "internal error: unexpected repeat" */ |
65 |
REG_BADPAT, /* "unrecognized character after (?" */ |
REG_BADPAT, /* "unrecognized character after (?" */ |
66 |
REG_ESIZE, /* "too many capturing parenthesized sub-patterns" */ |
REG_BADPAT, /* "POSIX named classes are supported only within a class" */ |
67 |
REG_EPAREN, /* "missing )" */ |
REG_EPAREN, /* "missing )" */ |
68 |
REG_ESUBREG, /* "back reference to non-existent subpattern" */ |
REG_ESUBREG, /* "reference to non-existent subpattern" */ |
69 |
REG_INVARG, /* "erroffset passed as NULL" */ |
REG_INVARG, /* "erroffset passed as NULL" */ |
70 |
REG_INVARG, /* "unknown option bit(s) set" */ |
REG_INVARG, /* "unknown option bit(s) set" */ |
71 |
REG_EPAREN, /* "missing ) after comment" */ |
REG_EPAREN, /* "missing ) after comment" */ |
72 |
REG_ESIZE, /* "too many sets of parentheses" */ |
REG_ESIZE, /* "parentheses nested too deeply" */ |
73 |
REG_ESIZE, /* "regular expression too large" */ |
REG_ESIZE, /* "regular expression too large" */ |
74 |
REG_ESPACE, /* "failed to get memory" */ |
REG_ESPACE, /* "failed to get memory" */ |
75 |
REG_EPAREN, /* "unmatched brackets" */ |
REG_EPAREN, /* "unmatched brackets" */ |
79 |
REG_BADPAT, /* "malformed number after (?(" */ |
REG_BADPAT, /* "malformed number after (?(" */ |
80 |
REG_BADPAT, /* "conditional group containe more than two branches" */ |
REG_BADPAT, /* "conditional group containe more than two branches" */ |
81 |
REG_BADPAT, /* "assertion expected after (?(" */ |
REG_BADPAT, /* "assertion expected after (?(" */ |
82 |
REG_BADPAT, /* "(?p must be followed by )" */ |
REG_BADPAT, /* "(?R or (?digits must be followed by )" */ |
83 |
REG_ECTYPE, /* "unknown POSIX class name" */ |
REG_ECTYPE, /* "unknown POSIX class name" */ |
84 |
REG_BADPAT, /* "POSIX collating elements are not supported" */ |
REG_BADPAT, /* "POSIX collating elements are not supported" */ |
85 |
REG_INVARG, /* "this version of PCRE is not compiled with PCRE_UTF8 support" */ |
REG_INVARG, /* "this version of PCRE is not compiled with PCRE_UTF8 support" */ |
86 |
REG_BADPAT, /* "characters with values > 255 are not yet supported in classes" */ |
REG_BADPAT, /* "spare error" */ |
87 |
REG_BADPAT /* "character value in \x{...} sequence is too large" */ |
REG_BADPAT, /* "character value in \x{...} sequence is too large" */ |
88 |
|
REG_BADPAT, /* "invalid condition (?(0)" */ |
89 |
|
REG_BADPAT, /* "\\C not allowed in lookbehind assertion" */ |
90 |
|
REG_EESCAPE, /* "PCRE does not support \\L, \\l, \\N, \\P, \\p, \\U, \\u, or \\X" */ |
91 |
|
REG_BADPAT, /* "number after (?C is > 255" */ |
92 |
|
REG_BADPAT, /* "closing ) for (?C expected" */ |
93 |
|
REG_BADPAT, /* "recursive call could loop indefinitely" */ |
94 |
|
REG_BADPAT, /* "unrecognized character after (?P" */ |
95 |
|
REG_BADPAT, /* "syntax error after (?P" */ |
96 |
|
REG_BADPAT, /* "two named groups have the same name" */ |
97 |
|
REG_BADPAT /* "invalid UTF-8 string" */ |
98 |
}; |
}; |
99 |
|
|
100 |
/* Table of texts corresponding to POSIX error codes */ |
/* Table of texts corresponding to POSIX error codes */ |
218 |
|
|
219 |
if (preg->re_pcre == NULL) return pcre_posix_error_code(errorptr); |
if (preg->re_pcre == NULL) return pcre_posix_error_code(errorptr); |
220 |
|
|
221 |
preg->re_nsub = pcre_info(preg->re_pcre, NULL, NULL); |
preg->re_nsub = pcre_info((const pcre *)preg->re_pcre, NULL, NULL); |
222 |
return 0; |
return 0; |
223 |
} |
} |
224 |
|
|
232 |
/* Unfortunately, PCRE requires 3 ints of working space for each captured |
/* Unfortunately, PCRE requires 3 ints of working space for each captured |
233 |
substring, so we have to get and release working store instead of just using |
substring, so we have to get and release working store instead of just using |
234 |
the POSIX structures as was done in earlier releases when PCRE needed only 2 |
the POSIX structures as was done in earlier releases when PCRE needed only 2 |
235 |
ints. */ |
ints. However, if the number of possible capturing brackets is small, use a |
236 |
|
block of store on the stack, to reduce the use of malloc/free. The threshold is |
237 |
|
in a macro that can be changed at configure time. */ |
238 |
|
|
239 |
int |
int |
240 |
regexec(regex_t *preg, const char *string, size_t nmatch, |
regexec(const regex_t *preg, const char *string, size_t nmatch, |
241 |
regmatch_t pmatch[], int eflags) |
regmatch_t pmatch[], int eflags) |
242 |
{ |
{ |
243 |
int rc; |
int rc; |
244 |
int options = 0; |
int options = 0; |
245 |
int *ovector = NULL; |
int *ovector = NULL; |
246 |
|
int small_ovector[POSIX_MALLOC_THRESHOLD * 3]; |
247 |
|
BOOL allocated_ovector = FALSE; |
248 |
|
|
249 |
if ((eflags & REG_NOTBOL) != 0) options |= PCRE_NOTBOL; |
if ((eflags & REG_NOTBOL) != 0) options |= PCRE_NOTBOL; |
250 |
if ((eflags & REG_NOTEOL) != 0) options |= PCRE_NOTEOL; |
if ((eflags & REG_NOTEOL) != 0) options |= PCRE_NOTEOL; |
251 |
|
|
252 |
preg->re_erroffset = (size_t)(-1); /* Only has meaning after compile */ |
((regex_t *)preg)->re_erroffset = (size_t)(-1); /* Only has meaning after compile */ |
253 |
|
|
254 |
if (nmatch > 0) |
if (nmatch > 0) |
255 |
{ |
{ |
256 |
ovector = (int *)malloc(sizeof(int) * nmatch * 3); |
if (nmatch <= POSIX_MALLOC_THRESHOLD) |
257 |
if (ovector == NULL) return REG_ESPACE; |
{ |
258 |
|
ovector = &(small_ovector[0]); |
259 |
|
} |
260 |
|
else |
261 |
|
{ |
262 |
|
ovector = (int *)malloc(sizeof(int) * nmatch * 3); |
263 |
|
if (ovector == NULL) return REG_ESPACE; |
264 |
|
allocated_ovector = TRUE; |
265 |
|
} |
266 |
} |
} |
267 |
|
|
268 |
rc = pcre_exec(preg->re_pcre, NULL, string, (int)strlen(string), 0, options, |
rc = pcre_exec((const pcre *)preg->re_pcre, NULL, string, (int)strlen(string), |
269 |
ovector, nmatch * 3); |
0, options, ovector, nmatch * 3); |
270 |
|
|
271 |
if (rc == 0) rc = nmatch; /* All captured slots were filled in */ |
if (rc == 0) rc = nmatch; /* All captured slots were filled in */ |
272 |
|
|
273 |
if (rc >= 0) |
if (rc >= 0) |
274 |
{ |
{ |
275 |
size_t i; |
size_t i; |
276 |
for (i = 0; i < rc; i++) |
for (i = 0; i < (size_t)rc; i++) |
277 |
{ |
{ |
278 |
pmatch[i].rm_so = ovector[i*2]; |
pmatch[i].rm_so = ovector[i*2]; |
279 |
pmatch[i].rm_eo = ovector[i*2+1]; |
pmatch[i].rm_eo = ovector[i*2+1]; |
280 |
} |
} |
281 |
if (ovector != NULL) free(ovector); |
if (allocated_ovector) free(ovector); |
282 |
for (; i < nmatch; i++) pmatch[i].rm_so = pmatch[i].rm_eo = -1; |
for (; i < nmatch; i++) pmatch[i].rm_so = pmatch[i].rm_eo = -1; |
283 |
return 0; |
return 0; |
284 |
} |
} |
285 |
|
|
286 |
else |
else |
287 |
{ |
{ |
288 |
if (ovector != NULL) free(ovector); |
if (allocated_ovector) free(ovector); |
289 |
switch(rc) |
switch(rc) |
290 |
{ |
{ |
291 |
case PCRE_ERROR_NOMATCH: return REG_NOMATCH; |
case PCRE_ERROR_NOMATCH: return REG_NOMATCH; |