| 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-2007 University of Cambridge |
Copyright (c) 1997-2008 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 |
| 43 |
|
|
| 44 |
|
|
| 45 |
#ifdef HAVE_CONFIG_H |
#ifdef HAVE_CONFIG_H |
| 46 |
#include <config.h> |
#include "config.h" |
| 47 |
#endif |
#endif |
| 48 |
|
|
| 49 |
|
|
| 57 |
# define PCREPOSIX_EXP_DEFN __declspec(dllexport) |
# define PCREPOSIX_EXP_DEFN __declspec(dllexport) |
| 58 |
#endif |
#endif |
| 59 |
|
|
| 60 |
#include <pcre.h> |
#include "pcre.h" |
| 61 |
#include "pcre_internal.h" |
#include "pcre_internal.h" |
| 62 |
#include "pcreposix.h" |
#include "pcreposix.h" |
| 63 |
|
|
| 64 |
|
|
|
|
|
| 65 |
/* Table to translate PCRE compile time error codes into POSIX error codes. */ |
/* Table to translate PCRE compile time error codes into POSIX error codes. */ |
| 66 |
|
|
| 67 |
static const int eint[] = { |
static const int eint[] = { |
| 123 |
REG_BADPAT, /* repeating a DEFINE group is not allowed */ |
REG_BADPAT, /* repeating a DEFINE group is not allowed */ |
| 124 |
REG_INVARG, /* inconsistent NEWLINE options */ |
REG_INVARG, /* inconsistent NEWLINE options */ |
| 125 |
REG_BADPAT, /* \g is not followed followed by an (optionally braced) non-zero number */ |
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 */ |
REG_BADPAT, /* (?+ or (?- must be followed by a non-zero number */ |
| 127 |
|
REG_BADPAT, /* number is too big */ |
| 128 |
|
REG_BADPAT, /* subpattern name expected */ |
| 129 |
|
REG_BADPAT /* digit expected after (?+ */ |
| 130 |
}; |
}; |
| 131 |
|
|
| 132 |
/* Table of texts corresponding to POSIX error codes */ |
/* Table of texts corresponding to POSIX error codes */ |
| 263 |
regexec(const regex_t *preg, const char *string, size_t nmatch, |
regexec(const regex_t *preg, const char *string, size_t nmatch, |
| 264 |
regmatch_t pmatch[], int eflags) |
regmatch_t pmatch[], int eflags) |
| 265 |
{ |
{ |
| 266 |
int rc; |
int rc, so, eo; |
| 267 |
int options = 0; |
int options = 0; |
| 268 |
int *ovector = NULL; |
int *ovector = NULL; |
| 269 |
int small_ovector[POSIX_MALLOC_THRESHOLD * 3]; |
int small_ovector[POSIX_MALLOC_THRESHOLD * 3]; |
| 296 |
} |
} |
| 297 |
} |
} |
| 298 |
|
|
| 299 |
rc = pcre_exec((const pcre *)preg->re_pcre, NULL, string, (int)strlen(string), |
/* REG_STARTEND is a BSD extension, to allow for non-NUL-terminated strings. |
| 300 |
|
The man page from OS X says "REG_STARTEND affects only the location of the |
| 301 |
|
string, not how it is matched". That is why the "so" value is used to bump the |
| 302 |
|
start location rather than being passed as a PCRE "starting offset". */ |
| 303 |
|
|
| 304 |
|
if ((eflags & REG_STARTEND) != 0) |
| 305 |
|
{ |
| 306 |
|
so = pmatch[0].rm_so; |
| 307 |
|
eo = pmatch[0].rm_eo; |
| 308 |
|
} |
| 309 |
|
else |
| 310 |
|
{ |
| 311 |
|
so = 0; |
| 312 |
|
eo = strlen(string); |
| 313 |
|
} |
| 314 |
|
|
| 315 |
|
rc = pcre_exec((const pcre *)preg->re_pcre, NULL, string + so, (eo - so), |
| 316 |
0, options, ovector, nmatch * 3); |
0, options, ovector, nmatch * 3); |
| 317 |
|
|
| 318 |
if (rc == 0) rc = nmatch; /* All captured slots were filled in */ |
if (rc == 0) rc = nmatch; /* All captured slots were filled in */ |