Displaying 3 results from an estimated 3 matches for "perl_opt".
2011 Sep 29
3
grep and PCRE fun
...================================================
--- main/grep.c (revision 57110)
+++ main/grep.c (working copy)
@@ -723,7 +723,7 @@
{
SEXP pat, text, ind, ans;
regex_t reg;
- int i, j, n, nmatches = 0, ov, rc;
+ int i, j, n, nmatches = 0, ov[3], rc;
int igcase_opt, value_opt, perl_opt, fixed_opt, useBytes, invert;
const char *spat = NULL;
pcre *re_pcre = NULL /* -Wall */;
@@ -882,7 +882,7 @@
if (fixed_opt)
LOGICAL(ind)[i] = fgrep_one(spat, s, useBytes, use_UTF8, NULL) >= 0;
else if (perl_opt) {
- if (pcre_exec(re_pcre, re_pe, s, strlen(s), 0, 0, &...
2015 Nov 28
0
[patch] Use JIT for PCRE pattern matching
...e, PCRE_STUDY_JIT_COMPILE, &errorptr);
+ if (errorptr)
+ warning(_("PCRE pattern study error\n\t'%s'\n"), errorptr);
+ }
} else {
int cflags = REG_NOSUB | REG_EXTENDED;
if (igcase_opt) cflags |= REG_ICASE;
@@ -929,7 +937,11 @@
if (fixed_opt);
else if (perl_opt) {
+#ifdef PCRE_CONFIG_JIT
+ if (re_pe) pcre_free_study(re_pe);
+#else
if (re_pe) pcre_free(re_pe);
+#endif
pcre_free(re_pcre);
pcre_free((void *)tables);
} else
@@ -1623,7 +1635,7 @@
error(_("invalid regular expression '%s'"), spat);
}
if (n > 10) {
-...
2007 Sep 07
1
"bug" and patch: quadratic running time for strsplit(..., fixed=TRUE) (PR#9902)
...d to fix strsplit().
Index: src/main/character.c
===================================================================
--- src/main/character.c (revision 42792)
+++ src/main/character.c (working copy)
@@ -357,7 +357,7 @@
int i, j, len, tlen, ntok, slen;
int extended_opt, cflags, fixed_opt, perl_opt;
char *pt = NULL;
- const char *buf, *split = "", *bufp, *laststart;
+ const char *buf, *split = "", *bufp, *laststart, *ebuf = NULL;
regex_t reg;
regmatch_t regmatch[1];
pcre *re_pcre = NULL;
@@ -419,7 +419,8 @@
if(fixed_opt) {
/* This is UTF-...