2 |
* Perl-Compatible Regular Expressions * |
* Perl-Compatible Regular Expressions * |
3 |
*************************************************/ |
*************************************************/ |
4 |
|
|
5 |
/* |
/* PCRE is a library of functions to support regular expressions whose syntax |
6 |
This is a library of functions to support regular expressions whose syntax |
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. See |
|
|
the file Tech.Notes for some information on the internals. |
|
7 |
|
|
8 |
This module is a wrapper that provides a POSIX API to the underlying PCRE |
Written by Philip Hazel |
9 |
functions. |
Copyright (c) 1997-2007 University of Cambridge |
10 |
|
|
11 |
Written by: Philip Hazel <ph10@cam.ac.uk> |
----------------------------------------------------------------------------- |
12 |
|
Redistribution and use in source and binary forms, with or without |
13 |
|
modification, are permitted provided that the following conditions are met: |
14 |
|
|
15 |
Copyright (c) 1997-2003 University of Cambridge |
* Redistributions of source code must retain the above copyright notice, |
16 |
|
this list of conditions and the following disclaimer. |
17 |
|
|
18 |
----------------------------------------------------------------------------- |
* Redistributions in binary form must reproduce the above copyright |
19 |
Permission is granted to anyone to use this software for any purpose on any |
notice, this list of conditions and the following disclaimer in the |
20 |
computer system, and to redistribute it freely, subject to the following |
documentation and/or other materials provided with the distribution. |
21 |
restrictions: |
|
22 |
|
* Neither the name of the University of Cambridge nor the names of its |
23 |
1. This software is distributed in the hope that it will be useful, |
contributors may be used to endorse or promote products derived from |
24 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
this software without specific prior written permission. |
25 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
|
26 |
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" |
27 |
2. The origin of this software must not be misrepresented, either by |
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
28 |
explicit claim or by omission. |
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
29 |
|
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE |
30 |
3. Altered versions must be plainly marked as such, and must not be |
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR |
31 |
misrepresented as being the original software. |
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |
32 |
|
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS |
33 |
4. If PCRE is embedded in any software that is released under the GNU |
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN |
34 |
General Purpose Licence (GPL), then the terms of that licence shall |
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) |
35 |
supersede any condition above with which it is incompatible. |
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
36 |
|
POSSIBILITY OF SUCH DAMAGE. |
37 |
----------------------------------------------------------------------------- |
----------------------------------------------------------------------------- |
38 |
*/ |
*/ |
39 |
|
|
|
#include "internal.h" |
|
|
#include "pcreposix.h" |
|
|
#include "stdlib.h" |
|
40 |
|
|
41 |
|
/* This module is a wrapper that provides a POSIX API to the underlying PCRE |
42 |
|
functions. */ |
43 |
|
|
44 |
|
|
45 |
|
#ifdef HAVE_CONFIG_H |
46 |
|
#include <config.h> |
47 |
|
#endif |
48 |
|
|
49 |
|
|
50 |
/* Corresponding tables of PCRE error messages and POSIX error codes. */ |
/* Ensure that the PCREPOSIX_EXP_xxx macros are set appropriately for |
51 |
|
compiling these functions. This must come before including pcreposix.h, where |
52 |
|
they are set for an application (using these functions) if they have not |
53 |
|
previously been set. */ |
54 |
|
|
55 |
static const char *const estring[] = { |
#if defined(_WIN32) && !defined(PCRE_STATIC) |
56 |
ERR1, ERR2, ERR3, ERR4, ERR5, ERR6, ERR7, ERR8, ERR9, ERR10, |
# define PCREPOSIX_EXP_DECL extern __declspec(dllexport) |
57 |
ERR11, ERR12, ERR13, ERR14, ERR15, ERR16, ERR17, ERR18, ERR19, ERR20, |
# define PCREPOSIX_EXP_DEFN __declspec(dllexport) |
58 |
ERR21, ERR22, ERR23, ERR24, ERR25, ERR26, ERR27, ERR29, ERR29, ERR30, |
#endif |
59 |
ERR31, ERR32, ERR33, ERR34, ERR35, ERR36, ERR37, ERR38, ERR39, ERR40, |
|
60 |
ERR41, ERR42, ERR43, ERR44 }; |
#include "pcre_internal.h" |
61 |
|
#include "pcreposix.h" |
62 |
|
|
63 |
|
|
64 |
|
|
65 |
|
/* Table to translate PCRE compile time error codes into POSIX error codes. */ |
66 |
|
|
67 |
static const int eint[] = { |
static const int eint[] = { |
68 |
REG_EESCAPE, /* "\\ at end of pattern" */ |
0, /* no error */ |
69 |
REG_EESCAPE, /* "\\c at end of pattern" */ |
REG_EESCAPE, /* \ at end of pattern */ |
70 |
REG_EESCAPE, /* "unrecognized character follows \\" */ |
REG_EESCAPE, /* \c at end of pattern */ |
71 |
REG_BADBR, /* "numbers out of order in {} quantifier" */ |
REG_EESCAPE, /* unrecognized character follows \ */ |
72 |
REG_BADBR, /* "number too big in {} quantifier" */ |
REG_BADBR, /* numbers out of order in {} quantifier */ |
73 |
REG_EBRACK, /* "missing terminating ] for character class" */ |
REG_BADBR, /* number too big in {} quantifier */ |
74 |
REG_ECTYPE, /* "invalid escape sequence in character class" */ |
REG_EBRACK, /* missing terminating ] for character class */ |
75 |
REG_ERANGE, /* "range out of order in character class" */ |
REG_ECTYPE, /* invalid escape sequence in character class */ |
76 |
REG_BADRPT, /* "nothing to repeat" */ |
REG_ERANGE, /* range out of order in character class */ |
77 |
REG_BADRPT, /* "operand of unlimited repeat could match the empty string" */ |
REG_BADRPT, /* nothing to repeat */ |
78 |
REG_ASSERT, /* "internal error: unexpected repeat" */ |
REG_BADRPT, /* operand of unlimited repeat could match the empty string */ |
79 |
REG_BADPAT, /* "unrecognized character after (?" */ |
REG_ASSERT, /* internal error: unexpected repeat */ |
80 |
REG_BADPAT, /* "POSIX named classes are supported only within a class" */ |
REG_BADPAT, /* unrecognized character after (? */ |
81 |
REG_EPAREN, /* "missing )" */ |
REG_BADPAT, /* POSIX named classes are supported only within a class */ |
82 |
REG_ESUBREG, /* "reference to non-existent subpattern" */ |
REG_EPAREN, /* missing ) */ |
83 |
REG_INVARG, /* "erroffset passed as NULL" */ |
REG_ESUBREG, /* reference to non-existent subpattern */ |
84 |
REG_INVARG, /* "unknown option bit(s) set" */ |
REG_INVARG, /* erroffset passed as NULL */ |
85 |
REG_EPAREN, /* "missing ) after comment" */ |
REG_INVARG, /* unknown option bit(s) set */ |
86 |
REG_ESIZE, /* "parentheses nested too deeply" */ |
REG_EPAREN, /* missing ) after comment */ |
87 |
REG_ESIZE, /* "regular expression too large" */ |
REG_ESIZE, /* parentheses nested too deeply */ |
88 |
REG_ESPACE, /* "failed to get memory" */ |
REG_ESIZE, /* regular expression too large */ |
89 |
REG_EPAREN, /* "unmatched brackets" */ |
REG_ESPACE, /* failed to get memory */ |
90 |
REG_ASSERT, /* "internal error: code overflow" */ |
REG_EPAREN, /* unmatched brackets */ |
91 |
REG_BADPAT, /* "unrecognized character after (?<" */ |
REG_ASSERT, /* internal error: code overflow */ |
92 |
REG_BADPAT, /* "lookbehind assertion is not fixed length" */ |
REG_BADPAT, /* unrecognized character after (?< */ |
93 |
REG_BADPAT, /* "malformed number after (?(" */ |
REG_BADPAT, /* lookbehind assertion is not fixed length */ |
94 |
REG_BADPAT, /* "conditional group containe more than two branches" */ |
REG_BADPAT, /* malformed number or name after (?( */ |
95 |
REG_BADPAT, /* "assertion expected after (?(" */ |
REG_BADPAT, /* conditional group contains more than two branches */ |
96 |
REG_BADPAT, /* "(?R or (?digits must be followed by )" */ |
REG_BADPAT, /* assertion expected after (?( */ |
97 |
REG_ECTYPE, /* "unknown POSIX class name" */ |
REG_BADPAT, /* (?R or (?[+-]digits must be followed by ) */ |
98 |
REG_BADPAT, /* "POSIX collating elements are not supported" */ |
REG_ECTYPE, /* unknown POSIX class name */ |
99 |
REG_INVARG, /* "this version of PCRE is not compiled with PCRE_UTF8 support" */ |
REG_BADPAT, /* POSIX collating elements are not supported */ |
100 |
REG_BADPAT, /* "spare error" */ |
REG_INVARG, /* this version of PCRE is not compiled with PCRE_UTF8 support */ |
101 |
REG_BADPAT, /* "character value in \x{...} sequence is too large" */ |
REG_BADPAT, /* spare error */ |
102 |
REG_BADPAT, /* "invalid condition (?(0)" */ |
REG_BADPAT, /* character value in \x{...} sequence is too large */ |
103 |
REG_BADPAT, /* "\\C not allowed in lookbehind assertion" */ |
REG_BADPAT, /* invalid condition (?(0) */ |
104 |
REG_EESCAPE, /* "PCRE does not support \\L, \\l, \\N, \\P, \\p, \\U, \\u, or \\X" */ |
REG_BADPAT, /* \C not allowed in lookbehind assertion */ |
105 |
REG_BADPAT, /* "number after (?C is > 255" */ |
REG_EESCAPE, /* PCRE does not support \L, \l, \N, \U, or \u */ |
106 |
REG_BADPAT, /* "closing ) for (?C expected" */ |
REG_BADPAT, /* number after (?C is > 255 */ |
107 |
REG_BADPAT, /* "recursive call could loop indefinitely" */ |
REG_BADPAT, /* closing ) for (?C expected */ |
108 |
REG_BADPAT, /* "unrecognized character after (?P" */ |
REG_BADPAT, /* recursive call could loop indefinitely */ |
109 |
REG_BADPAT, /* "syntax error after (?P" */ |
REG_BADPAT, /* unrecognized character after (?P */ |
110 |
REG_BADPAT, /* "two named groups have the same name" */ |
REG_BADPAT, /* syntax error in subpattern name (missing terminator) */ |
111 |
REG_BADPAT /* "invalid UTF-8 string" */ |
REG_BADPAT, /* two named subpatterns have the same name */ |
112 |
|
REG_BADPAT, /* invalid UTF-8 string */ |
113 |
|
REG_BADPAT, /* support for \P, \p, and \X has not been compiled */ |
114 |
|
REG_BADPAT, /* malformed \P or \p sequence */ |
115 |
|
REG_BADPAT, /* unknown property name after \P or \p */ |
116 |
|
REG_BADPAT, /* subpattern name is too long (maximum 32 characters) */ |
117 |
|
REG_BADPAT, /* too many named subpatterns (maximum 10,000) */ |
118 |
|
REG_BADPAT, /* repeated subpattern is too long */ |
119 |
|
REG_BADPAT, /* octal value is greater than \377 (not in UTF-8 mode) */ |
120 |
|
REG_BADPAT, /* internal error: overran compiling workspace */ |
121 |
|
REG_BADPAT, /* internal error: previously-checked referenced subpattern not found */ |
122 |
|
REG_BADPAT, /* DEFINE group contains more than one branch */ |
123 |
|
REG_BADPAT, /* repeating a DEFINE group is not allowed */ |
124 |
|
REG_INVARG, /* inconsistent NEWLINE options */ |
125 |
|
REG_BADPAT, /* \g is not followed followed by an (optionally braced) non-zero number */ |
126 |
|
REG_BADPAT /* (?+ or (?- must be followed by a non-zero number */ |
127 |
}; |
}; |
128 |
|
|
129 |
/* Table of texts corresponding to POSIX error codes */ |
/* Table of texts corresponding to POSIX error codes */ |
153 |
|
|
154 |
|
|
155 |
/************************************************* |
/************************************************* |
|
* Translate PCRE text code to int * |
|
|
*************************************************/ |
|
|
|
|
|
/* PCRE compile-time errors are given as strings defined as macros. We can just |
|
|
look them up in a table to turn them into POSIX-style error codes. */ |
|
|
|
|
|
static int |
|
|
pcre_posix_error_code(const char *s) |
|
|
{ |
|
|
size_t i; |
|
|
for (i = 0; i < sizeof(estring)/sizeof(char *); i++) |
|
|
if (strcmp(s, estring[i]) == 0) return eint[i]; |
|
|
return REG_ASSERT; |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
/************************************************* |
|
156 |
* Translate error code to string * |
* Translate error code to string * |
157 |
*************************************************/ |
*************************************************/ |
158 |
|
|
159 |
EXPORT size_t |
PCREPOSIX_EXP_DEFN size_t |
160 |
regerror(int errcode, const regex_t *preg, char *errbuf, size_t errbuf_size) |
regerror(int errcode, const regex_t *preg, char *errbuf, size_t errbuf_size) |
161 |
{ |
{ |
162 |
const char *message, *addmessage; |
const char *message, *addmessage; |
191 |
* Free store held by a regex * |
* Free store held by a regex * |
192 |
*************************************************/ |
*************************************************/ |
193 |
|
|
194 |
EXPORT void |
PCREPOSIX_EXP_DEFN void |
195 |
regfree(regex_t *preg) |
regfree(regex_t *preg) |
196 |
{ |
{ |
197 |
(pcre_free)(preg->re_pcre); |
(pcre_free)(preg->re_pcre); |
214 |
various non-zero codes on failure |
various non-zero codes on failure |
215 |
*/ |
*/ |
216 |
|
|
217 |
EXPORT int |
PCREPOSIX_EXP_DEFN int |
218 |
regcomp(regex_t *preg, const char *pattern, int cflags) |
regcomp(regex_t *preg, const char *pattern, int cflags) |
219 |
{ |
{ |
220 |
const char *errorptr; |
const char *errorptr; |
221 |
int erroffset; |
int erroffset; |
222 |
|
int errorcode; |
223 |
int options = 0; |
int options = 0; |
224 |
|
|
225 |
if ((cflags & REG_ICASE) != 0) options |= PCRE_CASELESS; |
if ((cflags & REG_ICASE) != 0) options |= PCRE_CASELESS; |
226 |
if ((cflags & REG_NEWLINE) != 0) options |= PCRE_MULTILINE; |
if ((cflags & REG_NEWLINE) != 0) options |= PCRE_MULTILINE; |
227 |
|
if ((cflags & REG_DOTALL) != 0) options |= PCRE_DOTALL; |
228 |
|
if ((cflags & REG_NOSUB) != 0) options |= PCRE_NO_AUTO_CAPTURE; |
229 |
|
if ((cflags & REG_UTF8) != 0) options |= PCRE_UTF8; |
230 |
|
|
231 |
preg->re_pcre = pcre_compile(pattern, options, &errorptr, &erroffset, NULL); |
preg->re_pcre = pcre_compile2(pattern, options, &errorcode, &errorptr, |
232 |
|
&erroffset, NULL); |
233 |
preg->re_erroffset = erroffset; |
preg->re_erroffset = erroffset; |
234 |
|
|
235 |
if (preg->re_pcre == NULL) return pcre_posix_error_code(errorptr); |
if (preg->re_pcre == NULL) return eint[errorcode]; |
236 |
|
|
237 |
preg->re_nsub = pcre_info((const pcre *)preg->re_pcre, NULL, NULL); |
preg->re_nsub = pcre_info((const pcre *)preg->re_pcre, NULL, NULL); |
238 |
return 0; |
return 0; |
250 |
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 |
251 |
ints. However, if the number of possible capturing brackets is small, use a |
ints. However, if the number of possible capturing brackets is small, use a |
252 |
block of store on the stack, to reduce the use of malloc/free. The threshold is |
block of store on the stack, to reduce the use of malloc/free. The threshold is |
253 |
in a macro that can be changed at configure time. */ |
in a macro that can be changed at configure time. |
254 |
|
|
255 |
|
If REG_NOSUB was specified at compile time, the PCRE_NO_AUTO_CAPTURE flag will |
256 |
|
be set. When this is the case, the nmatch and pmatch arguments are ignored, and |
257 |
|
the only result is yes/no/error. */ |
258 |
|
|
259 |
EXPORT int |
PCREPOSIX_EXP_DEFN int |
260 |
regexec(const regex_t *preg, const char *string, size_t nmatch, |
regexec(const regex_t *preg, const char *string, size_t nmatch, |
261 |
regmatch_t pmatch[], int eflags) |
regmatch_t pmatch[], int eflags) |
262 |
{ |
{ |
265 |
int *ovector = NULL; |
int *ovector = NULL; |
266 |
int small_ovector[POSIX_MALLOC_THRESHOLD * 3]; |
int small_ovector[POSIX_MALLOC_THRESHOLD * 3]; |
267 |
BOOL allocated_ovector = FALSE; |
BOOL allocated_ovector = FALSE; |
268 |
|
BOOL nosub = |
269 |
|
(((const pcre *)preg->re_pcre)->options & PCRE_NO_AUTO_CAPTURE) != 0; |
270 |
|
|
271 |
if ((eflags & REG_NOTBOL) != 0) options |= PCRE_NOTBOL; |
if ((eflags & REG_NOTBOL) != 0) options |= PCRE_NOTBOL; |
272 |
if ((eflags & REG_NOTEOL) != 0) options |= PCRE_NOTEOL; |
if ((eflags & REG_NOTEOL) != 0) options |= PCRE_NOTEOL; |
273 |
|
|
274 |
((regex_t *)preg)->re_erroffset = (size_t)(-1); /* Only has meaning after compile */ |
((regex_t *)preg)->re_erroffset = (size_t)(-1); /* Only has meaning after compile */ |
275 |
|
|
276 |
if (nmatch > 0) |
/* When no string data is being returned, ensure that nmatch is zero. |
277 |
|
Otherwise, ensure the vector for holding the return data is large enough. */ |
278 |
|
|
279 |
|
if (nosub) nmatch = 0; |
280 |
|
|
281 |
|
else if (nmatch > 0) |
282 |
{ |
{ |
283 |
if (nmatch <= POSIX_MALLOC_THRESHOLD) |
if (nmatch <= POSIX_MALLOC_THRESHOLD) |
284 |
{ |
{ |
286 |
} |
} |
287 |
else |
else |
288 |
{ |
{ |
289 |
|
if (nmatch > INT_MAX/(sizeof(int) * 3)) return REG_ESPACE; |
290 |
ovector = (int *)malloc(sizeof(int) * nmatch * 3); |
ovector = (int *)malloc(sizeof(int) * nmatch * 3); |
291 |
if (ovector == NULL) return REG_ESPACE; |
if (ovector == NULL) return REG_ESPACE; |
292 |
allocated_ovector = TRUE; |
allocated_ovector = TRUE; |
301 |
if (rc >= 0) |
if (rc >= 0) |
302 |
{ |
{ |
303 |
size_t i; |
size_t i; |
304 |
for (i = 0; i < (size_t)rc; i++) |
if (!nosub) |
305 |
{ |
{ |
306 |
pmatch[i].rm_so = ovector[i*2]; |
for (i = 0; i < (size_t)rc; i++) |
307 |
pmatch[i].rm_eo = ovector[i*2+1]; |
{ |
308 |
|
pmatch[i].rm_so = ovector[i*2]; |
309 |
|
pmatch[i].rm_eo = ovector[i*2+1]; |
310 |
|
} |
311 |
|
if (allocated_ovector) free(ovector); |
312 |
|
for (; i < nmatch; i++) pmatch[i].rm_so = pmatch[i].rm_eo = -1; |
313 |
} |
} |
|
if (allocated_ovector) free(ovector); |
|
|
for (; i < nmatch; i++) pmatch[i].rm_so = pmatch[i].rm_eo = -1; |
|
314 |
return 0; |
return 0; |
315 |
} |
} |
316 |
|
|