Mercurial > vim
annotate src/regexp.c @ 29234:96ff6c230a66 v8.2.5136
patch 8.2.5136: debugger test fails when run with valgrind
Commit: https://github.com/vim/vim/commit/e366ed4f2c6fa8cb663f1b9599b39d57ddbd8a2a
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Jun 19 20:13:56 2022 +0100
patch 8.2.5136: debugger test fails when run with valgrind
Problem: Debugger test fails when run with valgrind.
Solution: Wait longer when using valgrind.
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Sun, 19 Jun 2022 21:15:03 +0200 |
| parents | d6f8b784d0f6 |
| children | b12fd2b3be63 |
| rev | line source |
|---|---|
|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
9723
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
| 7 | 2 * |
| 3 * Handling of regular expressions: vim_regcomp(), vim_regexec(), vim_regsub() | |
| 4 */ | |
| 5 | |
|
16395
a849fe2a4b21
patch 8.1.1202: always get regexp debugging logs when building with -DDEBUG
Bram Moolenaar <Bram@vim.org>
parents:
16054
diff
changeset
|
6 // By default: do not create debugging logs or files related to regular |
|
a849fe2a4b21
patch 8.1.1202: always get regexp debugging logs when building with -DDEBUG
Bram Moolenaar <Bram@vim.org>
parents:
16054
diff
changeset
|
7 // expressions, even when compiling with -DDEBUG. |
|
a849fe2a4b21
patch 8.1.1202: always get regexp debugging logs when building with -DDEBUG
Bram Moolenaar <Bram@vim.org>
parents:
16054
diff
changeset
|
8 // Uncomment the second line to get the regexp debugging. |
|
a849fe2a4b21
patch 8.1.1202: always get regexp debugging logs when building with -DDEBUG
Bram Moolenaar <Bram@vim.org>
parents:
16054
diff
changeset
|
9 #undef DEBUG |
|
a849fe2a4b21
patch 8.1.1202: always get regexp debugging logs when building with -DDEBUG
Bram Moolenaar <Bram@vim.org>
parents:
16054
diff
changeset
|
10 // #define DEBUG |
| 4444 | 11 |
| 7 | 12 #include "vim.h" |
| 13 | |
| 4444 | 14 #ifdef DEBUG |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
15 // show/save debugging data when BT engine is used |
| 4444 | 16 # define BT_REGEXP_DUMP |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
17 // save the debugging data to a file instead of displaying it |
| 4444 | 18 # define BT_REGEXP_LOG |
| 4460 | 19 # define BT_REGEXP_DEBUG_LOG |
| 20 # define BT_REGEXP_DEBUG_LOG_NAME "bt_regexp_debug.log" | |
| 4444 | 21 #endif |
| 7 | 22 |
|
29071
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
23 #ifdef FEAT_RELTIME |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
24 static int dummy_timeout_flag = 0; |
|
29191
0af5fe160e4e
patch 8.2.5115: search timeout is overrun with some patterns
Bram Moolenaar <Bram@vim.org>
parents:
29071
diff
changeset
|
25 static volatile int *timeout_flag = &dummy_timeout_flag; |
|
29071
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
26 #endif |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
27 |
| 7 | 28 /* |
| 29 * Magic characters have a special meaning, they don't match literally. | |
| 30 * Magic characters are negative. This separates them from literal characters | |
| 31 * (possibly multi-byte). Only ASCII characters can be Magic. | |
| 32 */ | |
| 33 #define Magic(x) ((int)(x) - 256) | |
| 34 #define un_Magic(x) ((x) + 256) | |
| 35 #define is_Magic(x) ((x) < 0) | |
| 36 | |
| 37 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
38 no_Magic(int x) |
| 7 | 39 { |
| 40 if (is_Magic(x)) | |
| 41 return un_Magic(x); | |
| 42 return x; | |
| 43 } | |
| 44 | |
| 45 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
46 toggle_Magic(int x) |
| 7 | 47 { |
| 48 if (is_Magic(x)) | |
| 49 return un_Magic(x); | |
| 50 return Magic(x); | |
| 51 } | |
| 52 | |
|
29071
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
53 #ifdef FEAT_RELTIME |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
54 void |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
55 init_regexp_timeout(long msec) |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
56 { |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
57 timeout_flag = start_timeout(msec); |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
58 } |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
59 |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
60 void |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
61 disable_regexp_timeout(void) |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
62 { |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
63 stop_timeout(); |
|
29220
d6f8b784d0f6
patch 8.2.5129: timeout handling is not optimal
Bram Moolenaar <Bram@vim.org>
parents:
29191
diff
changeset
|
64 timeout_flag = &dummy_timeout_flag; |
|
29071
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
65 } |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
66 #endif |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
67 |
| 7 | 68 /* |
|
18019
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
69 * The first byte of the BT regexp internal "program" is actually this magic |
| 7 | 70 * number; the start node begins in the second byte. It's used to catch the |
| 71 * most severe mutilation of the program by the caller. | |
| 72 */ | |
| 73 | |
| 74 #define REGMAGIC 0234 | |
| 75 | |
| 76 /* | |
| 77 * Utility definitions. | |
| 78 */ | |
| 79 #define UCHARAT(p) ((int)*(char_u *)(p)) | |
| 80 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
81 // Used for an error (down from) vim_regcomp(): give the error message, set |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
82 // rc_did_emsg and return NULL |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15339
diff
changeset
|
83 #define EMSG_RET_NULL(m) return (emsg((m)), rc_did_emsg = TRUE, (void *)NULL) |
|
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15339
diff
changeset
|
84 #define IEMSG_RET_NULL(m) return (iemsg((m)), rc_did_emsg = TRUE, (void *)NULL) |
|
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15339
diff
changeset
|
85 #define EMSG_RET_FAIL(m) return (emsg((m)), rc_did_emsg = TRUE, FAIL) |
|
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15339
diff
changeset
|
86 #define EMSG2_RET_NULL(m, c) return (semsg((const char *)(m), (c) ? "" : "\\"), rc_did_emsg = TRUE, (void *)NULL) |
|
15480
bd12ace1bab2
patch 8.1.0748: using sprintf() instead of semsg()
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
87 #define EMSG3_RET_NULL(m, c, a) return (semsg((const char *)(m), (c) ? "" : "\\", (a)), rc_did_emsg = TRUE, (void *)NULL) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15339
diff
changeset
|
88 #define EMSG2_RET_FAIL(m, c) return (semsg((const char *)(m), (c) ? "" : "\\"), rc_did_emsg = TRUE, FAIL) |
|
26913
d4e61d61afd9
patch 8.2.3985: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26841
diff
changeset
|
89 #define EMSG_ONE_RET_NULL EMSG2_RET_NULL(_(e_invalid_item_in_str_brackets), reg_magic == MAGIC_ALL) |
| 7 | 90 |
|
10359
66f1b5bf3fa6
commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f
Christian Brabandt <cb@256bit.org>
parents:
10245
diff
changeset
|
91 |
| 7 | 92 #define MAX_LIMIT (32767L << 16L) |
| 93 | |
| 94 #define NOT_MULTI 0 | |
| 95 #define MULTI_ONE 1 | |
| 96 #define MULTI_MULT 2 | |
|
18019
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
97 |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
98 // return values for regmatch() |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
99 #define RA_FAIL 1 // something failed, abort |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
100 #define RA_CONT 2 // continue in inner loop |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
101 #define RA_BREAK 3 // break inner loop |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
102 #define RA_MATCH 4 // successful match |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
103 #define RA_NOMATCH 5 // didn't match |
|
18019
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
104 |
| 7 | 105 /* |
| 106 * Return NOT_MULTI if c is not a "multi" operator. | |
| 107 * Return MULTI_ONE if c is a single "multi" operator. | |
| 108 * Return MULTI_MULT if c is a multi "multi" operator. | |
| 109 */ | |
| 110 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
111 re_multi_type(int c) |
| 7 | 112 { |
| 113 if (c == Magic('@') || c == Magic('=') || c == Magic('?')) | |
| 114 return MULTI_ONE; | |
| 115 if (c == Magic('*') || c == Magic('+') || c == Magic('{')) | |
| 116 return MULTI_MULT; | |
| 117 return NOT_MULTI; | |
| 118 } | |
| 119 | |
| 359 | 120 static char_u *reg_prev_sub = NULL; |
| 121 | |
| 7 | 122 /* |
| 123 * REGEXP_INRANGE contains all characters which are always special in a [] | |
| 124 * range after '\'. | |
| 125 * REGEXP_ABBR contains all characters which act as abbreviations after '\'. | |
| 126 * These are: | |
| 127 * \n - New line (NL). | |
| 128 * \r - Carriage Return (CR). | |
| 129 * \t - Tab (TAB). | |
| 130 * \e - Escape (ESC). | |
| 131 * \b - Backspace (Ctrl_H). | |
| 24 | 132 * \d - Character code in decimal, eg \d123 |
| 133 * \o - Character code in octal, eg \o80 | |
| 134 * \x - Character code in hex, eg \x4a | |
| 135 * \u - Multibyte character code, eg \u20ac | |
| 136 * \U - Long multibyte character code, eg \U12345678 | |
| 7 | 137 */ |
| 138 static char_u REGEXP_INRANGE[] = "]^-n\\"; | |
| 24 | 139 static char_u REGEXP_ABBR[] = "nrtebdoxuU"; |
| 7 | 140 |
| 141 /* | |
| 142 * Translate '\x' to its control character, except "\n", which is Magic. | |
| 143 */ | |
| 144 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
145 backslash_trans(int c) |
| 7 | 146 { |
| 147 switch (c) | |
| 148 { | |
| 149 case 'r': return CAR; | |
| 150 case 't': return TAB; | |
| 151 case 'e': return ESC; | |
| 152 case 'b': return BS; | |
| 153 } | |
| 154 return c; | |
| 155 } | |
| 156 | |
| 157 /* | |
| 167 | 158 * Check for a character class name "[:name:]". "pp" points to the '['. |
| 7 | 159 * Returns one of the CLASS_ items. CLASS_NONE means that no item was |
| 160 * recognized. Otherwise "pp" is advanced to after the item. | |
| 161 */ | |
| 162 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
163 get_char_class(char_u **pp) |
| 7 | 164 { |
| 165 static const char *(class_names[]) = | |
| 166 { | |
| 167 "alnum:]", | |
| 168 #define CLASS_ALNUM 0 | |
| 169 "alpha:]", | |
| 170 #define CLASS_ALPHA 1 | |
| 171 "blank:]", | |
| 172 #define CLASS_BLANK 2 | |
| 173 "cntrl:]", | |
| 174 #define CLASS_CNTRL 3 | |
| 175 "digit:]", | |
| 176 #define CLASS_DIGIT 4 | |
| 177 "graph:]", | |
| 178 #define CLASS_GRAPH 5 | |
| 179 "lower:]", | |
| 180 #define CLASS_LOWER 6 | |
| 181 "print:]", | |
| 182 #define CLASS_PRINT 7 | |
| 183 "punct:]", | |
| 184 #define CLASS_PUNCT 8 | |
| 185 "space:]", | |
| 186 #define CLASS_SPACE 9 | |
| 187 "upper:]", | |
| 188 #define CLASS_UPPER 10 | |
| 189 "xdigit:]", | |
| 190 #define CLASS_XDIGIT 11 | |
| 191 "tab:]", | |
| 192 #define CLASS_TAB 12 | |
| 193 "return:]", | |
| 194 #define CLASS_RETURN 13 | |
| 195 "backspace:]", | |
| 196 #define CLASS_BACKSPACE 14 | |
| 197 "escape:]", | |
| 198 #define CLASS_ESCAPE 15 | |
|
15709
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
199 "ident:]", |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
200 #define CLASS_IDENT 16 |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
201 "keyword:]", |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
202 #define CLASS_KEYWORD 17 |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
203 "fname:]", |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
204 #define CLASS_FNAME 18 |
| 7 | 205 }; |
| 206 #define CLASS_NONE 99 | |
| 207 int i; | |
| 208 | |
| 209 if ((*pp)[1] == ':') | |
| 210 { | |
|
24768
7334bf933510
patch 8.2.2922: computing array length is done in various ways
Bram Moolenaar <Bram@vim.org>
parents:
24745
diff
changeset
|
211 for (i = 0; i < (int)ARRAY_LENGTH(class_names); ++i) |
| 7 | 212 if (STRNCMP(*pp + 2, class_names[i], STRLEN(class_names[i])) == 0) |
| 213 { | |
| 214 *pp += STRLEN(class_names[i]) + 2; | |
| 215 return i; | |
| 216 } | |
| 217 } | |
| 218 return CLASS_NONE; | |
| 219 } | |
| 220 | |
| 221 /* | |
| 222 * Specific version of character class functions. | |
| 223 * Using a table to keep this fast. | |
| 224 */ | |
| 225 static short class_tab[256]; | |
| 226 | |
| 227 #define RI_DIGIT 0x01 | |
| 228 #define RI_HEX 0x02 | |
| 229 #define RI_OCTAL 0x04 | |
| 230 #define RI_WORD 0x08 | |
| 231 #define RI_HEAD 0x10 | |
| 232 #define RI_ALPHA 0x20 | |
| 233 #define RI_LOWER 0x40 | |
| 234 #define RI_UPPER 0x80 | |
| 235 #define RI_WHITE 0x100 | |
| 236 | |
| 237 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
238 init_class_tab(void) |
| 7 | 239 { |
| 240 int i; | |
| 241 static int done = FALSE; | |
| 242 | |
| 243 if (done) | |
| 244 return; | |
| 245 | |
| 246 for (i = 0; i < 256; ++i) | |
| 247 { | |
| 248 if (i >= '0' && i <= '7') | |
| 249 class_tab[i] = RI_DIGIT + RI_HEX + RI_OCTAL + RI_WORD; | |
| 250 else if (i >= '8' && i <= '9') | |
| 251 class_tab[i] = RI_DIGIT + RI_HEX + RI_WORD; | |
| 252 else if (i >= 'a' && i <= 'f') | |
| 253 class_tab[i] = RI_HEX + RI_WORD + RI_HEAD + RI_ALPHA + RI_LOWER; | |
| 254 else if (i >= 'g' && i <= 'z') | |
| 255 class_tab[i] = RI_WORD + RI_HEAD + RI_ALPHA + RI_LOWER; | |
| 256 else if (i >= 'A' && i <= 'F') | |
| 257 class_tab[i] = RI_HEX + RI_WORD + RI_HEAD + RI_ALPHA + RI_UPPER; | |
| 258 else if (i >= 'G' && i <= 'Z') | |
| 259 class_tab[i] = RI_WORD + RI_HEAD + RI_ALPHA + RI_UPPER; | |
| 260 else if (i == '_') | |
| 261 class_tab[i] = RI_WORD + RI_HEAD; | |
| 262 else | |
| 263 class_tab[i] = 0; | |
| 264 } | |
| 265 class_tab[' '] |= RI_WHITE; | |
| 266 class_tab['\t'] |= RI_WHITE; | |
| 267 done = TRUE; | |
| 268 } | |
| 269 | |
|
27752
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27490
diff
changeset
|
270 #define ri_digit(c) ((c) < 0x100 && (class_tab[c] & RI_DIGIT)) |
|
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27490
diff
changeset
|
271 #define ri_hex(c) ((c) < 0x100 && (class_tab[c] & RI_HEX)) |
|
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27490
diff
changeset
|
272 #define ri_octal(c) ((c) < 0x100 && (class_tab[c] & RI_OCTAL)) |
|
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27490
diff
changeset
|
273 #define ri_word(c) ((c) < 0x100 && (class_tab[c] & RI_WORD)) |
|
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27490
diff
changeset
|
274 #define ri_head(c) ((c) < 0x100 && (class_tab[c] & RI_HEAD)) |
|
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27490
diff
changeset
|
275 #define ri_alpha(c) ((c) < 0x100 && (class_tab[c] & RI_ALPHA)) |
|
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27490
diff
changeset
|
276 #define ri_lower(c) ((c) < 0x100 && (class_tab[c] & RI_LOWER)) |
|
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27490
diff
changeset
|
277 #define ri_upper(c) ((c) < 0x100 && (class_tab[c] & RI_UPPER)) |
|
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27490
diff
changeset
|
278 #define ri_white(c) ((c) < 0x100 && (class_tab[c] & RI_WHITE)) |
| 7 | 279 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
280 // flags for regflags |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
281 #define RF_ICASE 1 // ignore case |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
282 #define RF_NOICASE 2 // don't ignore case |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
283 #define RF_HASNL 4 // can match a NL |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
284 #define RF_ICOMBINE 8 // ignore combining characters |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
285 #define RF_LOOKBH 16 // uses "\@<=" or "\@<!" |
| 7 | 286 |
| 287 /* | |
| 288 * Global work variables for vim_regcomp(). | |
| 289 */ | |
| 290 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
291 static char_u *regparse; // Input-scan pointer. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
292 static int regnpar; // () count. |
|
23471
a7cdfc8e4b6e
patch 8.2.2278: falling back to old regexp engine can some patterns
Bram Moolenaar <Bram@vim.org>
parents:
22167
diff
changeset
|
293 static int wants_nfa; // regex should use NFA engine |
| 7 | 294 #ifdef FEAT_SYN_HL |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
295 static int regnzpar; // \z() count. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
296 static int re_has_z; // \z item detected |
| 7 | 297 #endif |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
298 static unsigned regflags; // RF_ flags for prog |
| 7 | 299 #if defined(FEAT_SYN_HL) || defined(PROTO) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
300 static int had_eol; // TRUE when EOL found by vim_regcomp() |
| 7 | 301 #endif |
| 302 | |
|
23505
bb29b09902d5
patch 8.2.2295: incsearch does not detect empty pattern properly
Bram Moolenaar <Bram@vim.org>
parents:
23471
diff
changeset
|
303 static magic_T reg_magic; // magicness of the pattern |
| 7 | 304 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
305 static int reg_string; // matching with a string instead of a buffer |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
306 // line |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
307 static int reg_strict; // "[abc" is illegal |
| 7 | 308 |
| 309 /* | |
| 310 * META contains all characters that may be magic, except '^' and '$'. | |
| 311 */ | |
| 312 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
313 // META[] is used often enough to justify turning it into a table. |
| 7 | 314 static char_u META_flags[] = { |
| 315 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |
| 316 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
317 // % & ( ) * + . |
| 7 | 318 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
319 // 1 2 3 4 5 6 7 8 9 < = > ? |
| 7 | 320 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
321 // @ A C D F H I K L M O |
| 7 | 322 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
323 // P S U V W X Z [ _ |
| 7 | 324 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
325 // a c d f h i k l m n o |
| 7 | 326 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
327 // p s u v w x z { | ~ |
| 7 | 328 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1 |
| 329 }; | |
| 330 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
331 static int curchr; // currently parsed character |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
332 // Previous character. Note: prevchr is sometimes -1 when we are not at the |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
333 // start, eg in /[ ^I]^ the pattern was never found even if it existed, |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
334 // because ^ was taken to be magic -- webb |
| 4444 | 335 static int prevchr; |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
336 static int prevprevchr; // previous-previous character |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
337 static int nextchr; // used for ungetchr() |
| 7 | 338 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
339 // arguments for reg() |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
340 #define REG_NOPAREN 0 // toplevel reg() |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
341 #define REG_PAREN 1 // \(\) |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
342 #define REG_ZPAREN 2 // \z(\) |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
343 #define REG_NPAREN 3 // \%(\) |
| 7 | 344 |
|
4679
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
345 typedef struct |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
346 { |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
347 char_u *regparse; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
348 int prevchr_len; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
349 int curchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
350 int prevchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
351 int prevprevchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
352 int nextchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
353 int at_start; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
354 int prev_at_start; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
355 int regnpar; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
356 } parse_state_T; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
357 |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
358 static void initchr(char_u *); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
359 static int getchr(void); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
360 static void skipchr_keepstart(void); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
361 static int peekchr(void); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
362 static void skipchr(void); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
363 static void ungetchr(void); |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
364 static long gethexchrs(int maxinputlen); |
|
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
365 static long getoctchrs(void); |
|
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
366 static long getdecchrs(void); |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
367 static int coll_get_char(void); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
368 static int prog_magic_wrong(void); |
|
18019
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
369 static int cstrncmp(char_u *s1, char_u *s2, int *n); |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
370 static char_u *cstrchr(char_u *, int); |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
371 static int re_mult_next(char *what); |
|
15709
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
372 static int reg_iswordc(int); |
|
23471
a7cdfc8e4b6e
patch 8.2.2278: falling back to old regexp engine can some patterns
Bram Moolenaar <Bram@vim.org>
parents:
22167
diff
changeset
|
373 #ifdef FEAT_EVAL |
|
a7cdfc8e4b6e
patch 8.2.2278: falling back to old regexp engine can some patterns
Bram Moolenaar <Bram@vim.org>
parents:
22167
diff
changeset
|
374 static void report_re_switch(char_u *pat); |
|
a7cdfc8e4b6e
patch 8.2.2278: falling back to old regexp engine can some patterns
Bram Moolenaar <Bram@vim.org>
parents:
22167
diff
changeset
|
375 #endif |
| 7 | 376 |
| 4444 | 377 static regengine_T bt_regengine; |
| 378 static regengine_T nfa_regengine; | |
| 379 | |
| 7 | 380 /* |
| 381 * Return TRUE if compiled regular expression "prog" can match a line break. | |
| 382 */ | |
| 383 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
384 re_multiline(regprog_T *prog) |
| 7 | 385 { |
| 386 return (prog->regflags & RF_HASNL); | |
| 387 } | |
| 388 | |
| 389 /* | |
| 167 | 390 * Check for an equivalence class name "[=a=]". "pp" points to the '['. |
| 391 * Returns a character representing the class. Zero means that no item was | |
| 392 * recognized. Otherwise "pp" is advanced to after the item. | |
| 393 */ | |
| 394 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
395 get_equi_class(char_u **pp) |
| 167 | 396 { |
| 397 int c; | |
| 398 int l = 1; | |
| 399 char_u *p = *pp; | |
| 400 | |
|
15854
4ac1c185b0b8
patch 8.1.0934: invalid memory access in search pattern
Bram Moolenaar <Bram@vim.org>
parents:
15792
diff
changeset
|
401 if (p[1] == '=' && p[2] != NUL) |
| 167 | 402 { |
| 403 if (has_mbyte) | |
| 474 | 404 l = (*mb_ptr2len)(p + 2); |
| 167 | 405 if (p[l + 2] == '=' && p[l + 3] == ']') |
| 406 { | |
| 407 if (has_mbyte) | |
| 408 c = mb_ptr2char(p + 2); | |
| 409 else | |
| 410 c = p[2]; | |
| 411 *pp += l + 4; | |
| 412 return c; | |
| 413 } | |
| 414 } | |
| 415 return 0; | |
| 416 } | |
| 417 | |
| 418 /* | |
| 419 * Check for a collating element "[.a.]". "pp" points to the '['. | |
| 420 * Returns a character. Zero means that no item was recognized. Otherwise | |
| 421 * "pp" is advanced to after the item. | |
| 422 * Currently only single characters are recognized! | |
| 423 */ | |
| 424 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
425 get_coll_element(char_u **pp) |
| 167 | 426 { |
| 427 int c; | |
| 428 int l = 1; | |
| 429 char_u *p = *pp; | |
| 430 | |
|
15860
9cd9bf2897de
patch 8.1.0937: invalid memory access in search pattern
Bram Moolenaar <Bram@vim.org>
parents:
15856
diff
changeset
|
431 if (p[0] != NUL && p[1] == '.' && p[2] != NUL) |
| 167 | 432 { |
| 433 if (has_mbyte) | |
| 474 | 434 l = (*mb_ptr2len)(p + 2); |
| 167 | 435 if (p[l + 2] == '.' && p[l + 3] == ']') |
| 436 { | |
| 437 if (has_mbyte) | |
| 438 c = mb_ptr2char(p + 2); | |
| 439 else | |
| 440 c = p[2]; | |
| 441 *pp += l + 4; | |
| 442 return c; | |
| 443 } | |
| 444 } | |
| 445 return 0; | |
| 446 } | |
| 447 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
448 static int reg_cpo_lit; // 'cpoptions' contains 'l' flag |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
449 static int reg_cpo_bsl; // 'cpoptions' contains '\' flag |
|
4744
a62695305e03
updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents:
4732
diff
changeset
|
450 |
|
a62695305e03
updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents:
4732
diff
changeset
|
451 static void |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
452 get_cpo_flags(void) |
|
4744
a62695305e03
updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents:
4732
diff
changeset
|
453 { |
|
a62695305e03
updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents:
4732
diff
changeset
|
454 reg_cpo_lit = vim_strchr(p_cpo, CPO_LITERAL) != NULL; |
|
a62695305e03
updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents:
4732
diff
changeset
|
455 reg_cpo_bsl = vim_strchr(p_cpo, CPO_BACKSL) != NULL; |
|
a62695305e03
updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents:
4732
diff
changeset
|
456 } |
| 167 | 457 |
| 458 /* | |
| 459 * Skip over a "[]" range. | |
| 460 * "p" must point to the character after the '['. | |
| 461 * The returned pointer is on the matching ']', or the terminating NUL. | |
| 462 */ | |
| 463 static char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
464 skip_anyof(char_u *p) |
| 167 | 465 { |
| 466 int l; | |
| 467 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
468 if (*p == '^') // Complement of range. |
| 167 | 469 ++p; |
| 470 if (*p == ']' || *p == '-') | |
| 471 ++p; | |
| 472 while (*p != NUL && *p != ']') | |
| 473 { | |
| 474 | 474 if (has_mbyte && (l = (*mb_ptr2len)(p)) > 1) |
| 167 | 475 p += l; |
| 476 else | |
| 477 if (*p == '-') | |
| 478 { | |
| 479 ++p; | |
| 480 if (*p != ']' && *p != NUL) | |
|
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11121
diff
changeset
|
481 MB_PTR_ADV(p); |
| 167 | 482 } |
| 483 else if (*p == '\\' | |
|
4744
a62695305e03
updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents:
4732
diff
changeset
|
484 && !reg_cpo_bsl |
| 167 | 485 && (vim_strchr(REGEXP_INRANGE, p[1]) != NULL |
|
4744
a62695305e03
updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents:
4732
diff
changeset
|
486 || (!reg_cpo_lit && vim_strchr(REGEXP_ABBR, p[1]) != NULL))) |
| 167 | 487 p += 2; |
| 488 else if (*p == '[') | |
| 489 { | |
| 490 if (get_char_class(&p) == CLASS_NONE | |
| 491 && get_equi_class(&p) == 0 | |
| 6830 | 492 && get_coll_element(&p) == 0 |
| 493 && *p != NUL) | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
494 ++p; // it is not a class name and not NUL |
| 167 | 495 } |
| 496 else | |
| 497 ++p; | |
| 498 } | |
| 499 | |
| 500 return p; | |
| 501 } | |
| 502 | |
| 503 /* | |
| 7 | 504 * Skip past regular expression. |
|
20113
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
505 * Stop at end of "startp" or where "delim" is found ('/', '?', etc). |
| 7 | 506 * Take care of characters with a backslash in front of it. |
| 507 * Skip strings inside [ and ]. | |
| 508 */ | |
| 509 char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
510 skip_regexp( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
511 char_u *startp, |
|
20113
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
512 int delim, |
|
19892
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
513 int magic) |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
514 { |
|
23505
bb29b09902d5
patch 8.2.2295: incsearch does not detect empty pattern properly
Bram Moolenaar <Bram@vim.org>
parents:
23471
diff
changeset
|
515 return skip_regexp_ex(startp, delim, magic, NULL, NULL, NULL); |
|
20113
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
516 } |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
517 |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
518 /* |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
519 * Call skip_regexp() and when the delimiter does not match give an error and |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
520 * return NULL. |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
521 */ |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
522 char_u * |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
523 skip_regexp_err( |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
524 char_u *startp, |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
525 int delim, |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
526 int magic) |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
527 { |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
528 char_u *p = skip_regexp(startp, delim, magic); |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
529 |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
530 if (*p != delim) |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
531 { |
|
26952
b34ddbca305c
patch 8.2.4005: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26917
diff
changeset
|
532 semsg(_(e_missing_delimiter_after_search_pattern_str), startp); |
|
20113
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
533 return NULL; |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
534 } |
|
2c23053c654a
patch 8.2.0612: Vim9: no check for space before #comment
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
535 return p; |
|
19892
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
536 } |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
537 |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
538 /* |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
539 * skip_regexp() with extra arguments: |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
540 * When "newp" is not NULL and "dirc" is '?', make an allocated copy of the |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
541 * expression and change "\?" to "?". If "*newp" is not NULL the expression |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
542 * is changed in-place. |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
543 * If a "\?" is changed to "?" then "dropped" is incremented, unless NULL. |
|
23505
bb29b09902d5
patch 8.2.2295: incsearch does not detect empty pattern properly
Bram Moolenaar <Bram@vim.org>
parents:
23471
diff
changeset
|
544 * If "magic_val" is not NULL, returns the effective magicness of the pattern |
|
19892
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
545 */ |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
546 char_u * |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
547 skip_regexp_ex( |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
548 char_u *startp, |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
549 int dirc, |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
550 int magic, |
|
19892
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
551 char_u **newp, |
|
23505
bb29b09902d5
patch 8.2.2295: incsearch does not detect empty pattern properly
Bram Moolenaar <Bram@vim.org>
parents:
23471
diff
changeset
|
552 int *dropped, |
|
bb29b09902d5
patch 8.2.2295: incsearch does not detect empty pattern properly
Bram Moolenaar <Bram@vim.org>
parents:
23471
diff
changeset
|
553 magic_T *magic_val) |
| 7 | 554 { |
|
23505
bb29b09902d5
patch 8.2.2295: incsearch does not detect empty pattern properly
Bram Moolenaar <Bram@vim.org>
parents:
23471
diff
changeset
|
555 magic_T mymagic; |
| 7 | 556 char_u *p = startp; |
| 557 | |
| 558 if (magic) | |
| 559 mymagic = MAGIC_ON; | |
| 560 else | |
| 561 mymagic = MAGIC_OFF; | |
|
4744
a62695305e03
updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents:
4732
diff
changeset
|
562 get_cpo_flags(); |
| 7 | 563 |
|
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11121
diff
changeset
|
564 for (; p[0] != NUL; MB_PTR_ADV(p)) |
| 7 | 565 { |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
566 if (p[0] == dirc) // found end of regexp |
| 7 | 567 break; |
| 568 if ((p[0] == '[' && mymagic >= MAGIC_ON) | |
| 569 || (p[0] == '\\' && p[1] == '[' && mymagic <= MAGIC_OFF)) | |
| 570 { | |
| 571 p = skip_anyof(p + 1); | |
| 572 if (p[0] == NUL) | |
| 573 break; | |
| 574 } | |
| 575 else if (p[0] == '\\' && p[1] != NUL) | |
| 576 { | |
| 577 if (dirc == '?' && newp != NULL && p[1] == '?') | |
| 578 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
579 // change "\?" to "?", make a copy first. |
| 7 | 580 if (*newp == NULL) |
| 581 { | |
| 582 *newp = vim_strsave(startp); | |
| 583 if (*newp != NULL) | |
| 584 p = *newp + (p - startp); | |
| 585 } | |
|
19892
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
586 if (dropped != NULL) |
|
5feb426d2ea1
patch 8.2.0502: Vim9: some code is not tested
Bram Moolenaar <Bram@vim.org>
parents:
19405
diff
changeset
|
587 ++*dropped; |
| 7 | 588 if (*newp != NULL) |
| 1621 | 589 STRMOVE(p, p + 1); |
| 7 | 590 else |
| 591 ++p; | |
| 592 } | |
| 593 else | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
594 ++p; // skip next character |
| 7 | 595 if (*p == 'v') |
| 596 mymagic = MAGIC_ALL; | |
| 597 else if (*p == 'V') | |
| 598 mymagic = MAGIC_NONE; | |
| 599 } | |
| 600 } | |
|
23505
bb29b09902d5
patch 8.2.2295: incsearch does not detect empty pattern properly
Bram Moolenaar <Bram@vim.org>
parents:
23471
diff
changeset
|
601 if (magic_val != NULL) |
|
bb29b09902d5
patch 8.2.2295: incsearch does not detect empty pattern properly
Bram Moolenaar <Bram@vim.org>
parents:
23471
diff
changeset
|
602 *magic_val = mymagic; |
| 7 | 603 return p; |
| 604 } | |
| 605 | |
|
11525
14b6b79d685b
patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
606 /* |
|
18019
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
607 * Functions for getting characters from the regexp input. |
| 7 | 608 */ |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
609 static int prevchr_len; // byte length of previous char |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
610 static int at_start; // True when on the first character |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
611 static int prev_at_start; // True when on the second character |
|
8021
b6b4f354df23
commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents:
7833
diff
changeset
|
612 |
| 7 | 613 /* |
| 4444 | 614 * Start parsing at "str". |
| 615 */ | |
| 7 | 616 static void |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
617 initchr(char_u *str) |
| 7 | 618 { |
| 619 regparse = str; | |
| 620 prevchr_len = 0; | |
| 621 curchr = prevprevchr = prevchr = nextchr = -1; | |
| 622 at_start = TRUE; | |
| 623 prev_at_start = FALSE; | |
| 624 } | |
| 625 | |
| 4444 | 626 /* |
|
4679
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
627 * Save the current parse state, so that it can be restored and parsing |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
628 * starts in the same state again. |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
629 */ |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
630 static void |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
631 save_parse_state(parse_state_T *ps) |
|
4679
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
632 { |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
633 ps->regparse = regparse; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
634 ps->prevchr_len = prevchr_len; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
635 ps->curchr = curchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
636 ps->prevchr = prevchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
637 ps->prevprevchr = prevprevchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
638 ps->nextchr = nextchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
639 ps->at_start = at_start; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
640 ps->prev_at_start = prev_at_start; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
641 ps->regnpar = regnpar; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
642 } |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
643 |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
644 /* |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
645 * Restore a previously saved parse state. |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
646 */ |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
647 static void |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
648 restore_parse_state(parse_state_T *ps) |
|
4679
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
649 { |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
650 regparse = ps->regparse; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
651 prevchr_len = ps->prevchr_len; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
652 curchr = ps->curchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
653 prevchr = ps->prevchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
654 prevprevchr = ps->prevprevchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
655 nextchr = ps->nextchr; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
656 at_start = ps->at_start; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
657 prev_at_start = ps->prev_at_start; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
658 regnpar = ps->regnpar; |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
659 } |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
660 |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
661 |
|
4d92b873acef
updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents:
4579
diff
changeset
|
662 /* |
| 4444 | 663 * Get the next character without advancing. |
| 664 */ | |
| 7 | 665 static int |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
666 peekchr(void) |
| 7 | 667 { |
| 167 | 668 static int after_slash = FALSE; |
| 669 | |
| 7 | 670 if (curchr == -1) |
| 671 { | |
| 672 switch (curchr = regparse[0]) | |
| 673 { | |
| 674 case '.': | |
| 675 case '[': | |
| 676 case '~': | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
677 // magic when 'magic' is on |
| 7 | 678 if (reg_magic >= MAGIC_ON) |
| 679 curchr = Magic(curchr); | |
| 680 break; | |
| 681 case '(': | |
| 682 case ')': | |
| 683 case '{': | |
| 684 case '%': | |
| 685 case '+': | |
| 686 case '=': | |
| 687 case '?': | |
| 688 case '@': | |
| 689 case '!': | |
| 690 case '&': | |
| 691 case '|': | |
| 692 case '<': | |
| 693 case '>': | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
694 case '#': // future ext. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
695 case '"': // future ext. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
696 case '\'': // future ext. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
697 case ',': // future ext. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
698 case '-': // future ext. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
699 case ':': // future ext. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
700 case ';': // future ext. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
701 case '`': // future ext. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
702 case '/': // Can't be used in / command |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
703 // magic only after "\v" |
| 7 | 704 if (reg_magic == MAGIC_ALL) |
| 705 curchr = Magic(curchr); | |
| 706 break; | |
| 707 case '*': | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
708 // * is not magic as the very first character, eg "?*ptr", when |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
709 // after '^', eg "/^*ptr" and when after "\(", "\|", "\&". But |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
710 // "\(\*" is not magic, thus must be magic if "after_slash" |
| 167 | 711 if (reg_magic >= MAGIC_ON |
| 712 && !at_start | |
| 713 && !(prev_at_start && prevchr == Magic('^')) | |
| 714 && (after_slash | |
| 715 || (prevchr != Magic('(') | |
| 716 && prevchr != Magic('&') | |
| 717 && prevchr != Magic('|')))) | |
| 7 | 718 curchr = Magic('*'); |
| 719 break; | |
| 720 case '^': | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
721 // '^' is only magic as the very first character and if it's after |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
722 // "\(", "\|", "\&' or "\n" |
| 7 | 723 if (reg_magic >= MAGIC_OFF |
| 724 && (at_start | |
| 725 || reg_magic == MAGIC_ALL | |
| 726 || prevchr == Magic('(') | |
| 727 || prevchr == Magic('|') | |
| 728 || prevchr == Magic('&') | |
| 729 || prevchr == Magic('n') | |
| 730 || (no_Magic(prevchr) == '(' | |
| 731 && prevprevchr == Magic('%')))) | |
| 732 { | |
| 733 curchr = Magic('^'); | |
| 734 at_start = TRUE; | |
| 735 prev_at_start = FALSE; | |
| 736 } | |
| 737 break; | |
| 738 case '$': | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
739 // '$' is only magic as the very last char and if it's in front of |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
740 // either "\|", "\)", "\&", or "\n" |
| 7 | 741 if (reg_magic >= MAGIC_OFF) |
| 742 { | |
| 743 char_u *p = regparse + 1; | |
| 6041 | 744 int is_magic_all = (reg_magic == MAGIC_ALL); |
| 745 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
746 // ignore \c \C \m \M \v \V and \Z after '$' |
| 7 | 747 while (p[0] == '\\' && (p[1] == 'c' || p[1] == 'C' |
| 6041 | 748 || p[1] == 'm' || p[1] == 'M' |
| 749 || p[1] == 'v' || p[1] == 'V' || p[1] == 'Z')) | |
| 750 { | |
| 751 if (p[1] == 'v') | |
| 752 is_magic_all = TRUE; | |
| 753 else if (p[1] == 'm' || p[1] == 'M' || p[1] == 'V') | |
| 754 is_magic_all = FALSE; | |
| 7 | 755 p += 2; |
| 6041 | 756 } |
| 7 | 757 if (p[0] == NUL |
| 758 || (p[0] == '\\' | |
| 759 && (p[1] == '|' || p[1] == '&' || p[1] == ')' | |
| 760 || p[1] == 'n')) | |
| 6041 | 761 || (is_magic_all |
| 762 && (p[0] == '|' || p[0] == '&' || p[0] == ')')) | |
| 7 | 763 || reg_magic == MAGIC_ALL) |
| 764 curchr = Magic('$'); | |
| 765 } | |
| 766 break; | |
| 767 case '\\': | |
| 768 { | |
| 769 int c = regparse[1]; | |
| 770 | |
| 771 if (c == NUL) | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
772 curchr = '\\'; // trailing '\' |
|
27490
fb4c30606b4a
patch 8.2.4273: the EBCDIC support is outdated
Bram Moolenaar <Bram@vim.org>
parents:
27468
diff
changeset
|
773 else if (c <= '~' && META_flags[c]) |
| 7 | 774 { |
| 775 /* | |
| 776 * META contains everything that may be magic sometimes, | |
| 777 * except ^ and $ ("\^" and "\$" are only magic after | |
| 6830 | 778 * "\V"). We now fetch the next character and toggle its |
| 7 | 779 * magicness. Therefore, \ is so meta-magic that it is |
| 780 * not in META. | |
| 781 */ | |
| 782 curchr = -1; | |
| 783 prev_at_start = at_start; | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
784 at_start = FALSE; // be able to say "/\*ptr" |
| 7 | 785 ++regparse; |
| 167 | 786 ++after_slash; |
| 7 | 787 peekchr(); |
| 788 --regparse; | |
| 167 | 789 --after_slash; |
| 7 | 790 curchr = toggle_Magic(curchr); |
| 791 } | |
| 792 else if (vim_strchr(REGEXP_ABBR, c)) | |
| 793 { | |
| 794 /* | |
| 795 * Handle abbreviations, like "\t" for TAB -- webb | |
| 796 */ | |
| 797 curchr = backslash_trans(c); | |
| 798 } | |
| 799 else if (reg_magic == MAGIC_NONE && (c == '$' || c == '^')) | |
| 800 curchr = toggle_Magic(c); | |
| 801 else | |
| 802 { | |
| 803 /* | |
| 804 * Next character can never be (made) magic? | |
| 805 * Then backslashing it won't do anything. | |
| 806 */ | |
| 807 if (has_mbyte) | |
| 808 curchr = (*mb_ptr2char)(regparse + 1); | |
| 809 else | |
| 810 curchr = c; | |
| 811 } | |
| 812 break; | |
| 813 } | |
| 814 | |
| 815 default: | |
| 816 if (has_mbyte) | |
| 817 curchr = (*mb_ptr2char)(regparse); | |
| 818 } | |
| 819 } | |
| 820 | |
| 821 return curchr; | |
| 822 } | |
| 823 | |
| 824 /* | |
| 825 * Eat one lexed character. Do this in a way that we can undo it. | |
| 826 */ | |
| 827 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
828 skipchr(void) |
| 7 | 829 { |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
830 // peekchr() eats a backslash, do the same here |
| 7 | 831 if (*regparse == '\\') |
| 832 prevchr_len = 1; | |
| 833 else | |
| 834 prevchr_len = 0; | |
| 835 if (regparse[prevchr_len] != NUL) | |
| 836 { | |
| 714 | 837 if (enc_utf8) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
838 // exclude composing chars that mb_ptr2len does include |
| 1449 | 839 prevchr_len += utf_ptr2len(regparse + prevchr_len); |
| 714 | 840 else if (has_mbyte) |
| 474 | 841 prevchr_len += (*mb_ptr2len)(regparse + prevchr_len); |
| 7 | 842 else |
| 843 ++prevchr_len; | |
| 844 } | |
| 845 regparse += prevchr_len; | |
| 846 prev_at_start = at_start; | |
| 847 at_start = FALSE; | |
| 848 prevprevchr = prevchr; | |
| 849 prevchr = curchr; | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
850 curchr = nextchr; // use previously unget char, or -1 |
| 7 | 851 nextchr = -1; |
| 852 } | |
| 853 | |
| 854 /* | |
| 855 * Skip a character while keeping the value of prev_at_start for at_start. | |
| 856 * prevchr and prevprevchr are also kept. | |
| 857 */ | |
| 858 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
859 skipchr_keepstart(void) |
| 7 | 860 { |
| 861 int as = prev_at_start; | |
| 862 int pr = prevchr; | |
| 863 int prpr = prevprevchr; | |
| 864 | |
| 865 skipchr(); | |
| 866 at_start = as; | |
| 867 prevchr = pr; | |
| 868 prevprevchr = prpr; | |
| 869 } | |
| 870 | |
| 4444 | 871 /* |
| 872 * Get the next character from the pattern. We know about magic and such, so | |
| 873 * therefore we need a lexical analyzer. | |
| 874 */ | |
| 7 | 875 static int |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
876 getchr(void) |
| 7 | 877 { |
| 878 int chr = peekchr(); | |
| 879 | |
| 880 skipchr(); | |
| 881 return chr; | |
| 882 } | |
| 883 | |
| 884 /* | |
| 885 * put character back. Works only once! | |
| 886 */ | |
| 887 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
888 ungetchr(void) |
| 7 | 889 { |
| 890 nextchr = curchr; | |
| 891 curchr = prevchr; | |
| 892 prevchr = prevprevchr; | |
| 893 at_start = prev_at_start; | |
| 894 prev_at_start = FALSE; | |
| 895 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
896 // Backup regparse, so that it's at the same position as before the |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
897 // getchr(). |
| 7 | 898 regparse -= prevchr_len; |
| 899 } | |
| 900 | |
| 901 /* | |
| 29 | 902 * Get and return the value of the hex string at the current position. |
| 903 * Return -1 if there is no valid hex number. | |
| 904 * The position is updated: | |
| 24 | 905 * blahblah\%x20asdf |
| 856 | 906 * before-^ ^-after |
| 24 | 907 * The parameter controls the maximum number of input characters. This will be |
| 908 * 2 when reading a \%x20 sequence and 4 when reading a \%u20AC sequence. | |
| 909 */ | |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
910 static long |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
911 gethexchrs(int maxinputlen) |
| 24 | 912 { |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
913 long_u nr = 0; |
| 24 | 914 int c; |
| 915 int i; | |
| 916 | |
| 917 for (i = 0; i < maxinputlen; ++i) | |
| 918 { | |
| 919 c = regparse[0]; | |
| 920 if (!vim_isxdigit(c)) | |
| 921 break; | |
| 922 nr <<= 4; | |
| 923 nr |= hex2nr(c); | |
| 924 ++regparse; | |
| 925 } | |
| 926 | |
| 927 if (i == 0) | |
| 928 return -1; | |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
929 return (long)nr; |
| 24 | 930 } |
| 931 | |
| 932 /* | |
|
4579
7a2be4a39423
updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents:
4505
diff
changeset
|
933 * Get and return the value of the decimal string immediately after the |
| 24 | 934 * current position. Return -1 for invalid. Consumes all digits. |
| 935 */ | |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
936 static long |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
937 getdecchrs(void) |
| 24 | 938 { |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
939 long_u nr = 0; |
| 24 | 940 int c; |
| 941 int i; | |
| 942 | |
| 943 for (i = 0; ; ++i) | |
| 944 { | |
| 945 c = regparse[0]; | |
| 946 if (c < '0' || c > '9') | |
| 947 break; | |
| 948 nr *= 10; | |
| 949 nr += c - '0'; | |
| 950 ++regparse; | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
951 curchr = -1; // no longer valid |
| 24 | 952 } |
| 953 | |
| 954 if (i == 0) | |
| 955 return -1; | |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
956 return (long)nr; |
| 24 | 957 } |
| 958 | |
| 959 /* | |
| 960 * get and return the value of the octal string immediately after the current | |
| 961 * position. Return -1 for invalid, or 0-255 for valid. Smart enough to handle | |
| 962 * numbers > 377 correctly (for example, 400 is treated as 40) and doesn't | |
| 963 * treat 8 or 9 as recognised characters. Position is updated: | |
| 964 * blahblah\%o210asdf | |
| 856 | 965 * before-^ ^-after |
| 24 | 966 */ |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
967 static long |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
968 getoctchrs(void) |
| 24 | 969 { |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
970 long_u nr = 0; |
| 24 | 971 int c; |
| 972 int i; | |
| 973 | |
| 974 for (i = 0; i < 3 && nr < 040; ++i) | |
| 975 { | |
| 976 c = regparse[0]; | |
| 977 if (c < '0' || c > '7') | |
| 978 break; | |
| 979 nr <<= 3; | |
| 980 nr |= hex2nr(c); | |
| 981 ++regparse; | |
| 982 } | |
| 983 | |
| 984 if (i == 0) | |
| 985 return -1; | |
|
12752
09c856605191
patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
986 return (long)nr; |
| 24 | 987 } |
| 988 | |
| 989 /* | |
| 7 | 990 * read_limits - Read two integers to be taken as a minimum and maximum. |
| 991 * If the first character is '-', then the range is reversed. | |
| 992 * Should end with 'end'. If minval is missing, zero is default, if maxval is | |
| 993 * missing, a very big number is the default. | |
| 994 */ | |
| 995 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
996 read_limits(long *minval, long *maxval) |
| 7 | 997 { |
| 998 int reverse = FALSE; | |
| 999 char_u *first_char; | |
| 1000 long tmp; | |
| 1001 | |
| 1002 if (*regparse == '-') | |
| 1003 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1004 // Starts with '-', so reverse the range later |
| 7 | 1005 regparse++; |
| 1006 reverse = TRUE; | |
| 1007 } | |
| 1008 first_char = regparse; | |
| 1009 *minval = getdigits(®parse); | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1010 if (*regparse == ',') // There is a comma |
| 7 | 1011 { |
| 1012 if (vim_isdigit(*++regparse)) | |
| 1013 *maxval = getdigits(®parse); | |
| 1014 else | |
| 1015 *maxval = MAX_LIMIT; | |
| 1016 } | |
| 1017 else if (VIM_ISDIGIT(*first_char)) | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1018 *maxval = *minval; // It was \{n} or \{-n} |
| 7 | 1019 else |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1020 *maxval = MAX_LIMIT; // It was \{} or \{-} |
| 7 | 1021 if (*regparse == '\\') |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1022 regparse++; // Allow either \{...} or \{...\} |
| 167 | 1023 if (*regparse != '}') |
|
26917
d91aea2a612c
patch 8.2.3987: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
1024 EMSG2_RET_FAIL(_(e_syntax_error_in_str_curlies), |
|
15480
bd12ace1bab2
patch 8.1.0748: using sprintf() instead of semsg()
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1025 reg_magic == MAGIC_ALL); |
| 7 | 1026 |
| 1027 /* | |
| 1028 * Reverse the range if there was a '-', or make sure it is in the right | |
| 1029 * order otherwise. | |
| 1030 */ | |
| 1031 if ((!reverse && *minval > *maxval) || (reverse && *minval < *maxval)) | |
| 1032 { | |
| 1033 tmp = *minval; | |
| 1034 *minval = *maxval; | |
| 1035 *maxval = tmp; | |
| 1036 } | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1037 skipchr(); // let's be friends with the lexer again |
| 7 | 1038 return OK; |
| 1039 } | |
| 1040 | |
| 1041 /* | |
| 1042 * vim_regexec and friends | |
| 1043 */ | |
| 1044 | |
| 1045 /* | |
| 1046 * Global work variables for vim_regexec(). | |
| 1047 */ | |
| 1048 | |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
1049 static void cleanup_subexpr(void); |
| 7 | 1050 #ifdef FEAT_SYN_HL |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
1051 static void cleanup_zsubexpr(void); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
1052 #endif |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
1053 static void reg_nextline(void); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
1054 static int match_with_backref(linenr_T start_lnum, colnr_T start_col, linenr_T end_lnum, colnr_T end_col, int *bytelen); |
| 7 | 1055 |
| 1056 /* | |
| 1057 * Sometimes need to save a copy of a line. Since alloc()/free() is very | |
| 1058 * slow, we keep one allocated piece of memory and only re-allocate it when | |
| 4444 | 1059 * it's too small. It's freed in bt_regexec_both() when finished. |
| 7 | 1060 */ |
| 1468 | 1061 static char_u *reg_tofree = NULL; |
| 7 | 1062 static unsigned reg_tofreelen; |
| 1063 | |
| 1064 /* | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1065 * Structure used to store the execution state of the regex engine. |
| 1209 | 1066 * Which ones are set depends on whether a single-line or multi-line match is |
| 7 | 1067 * done: |
| 1068 * single-line multi-line | |
| 1069 * reg_match ®match_T NULL | |
| 1070 * reg_mmatch NULL ®mmatch_T | |
| 1071 * reg_startp reg_match->startp <invalid> | |
| 1072 * reg_endp reg_match->endp <invalid> | |
| 1073 * reg_startpos <invalid> reg_mmatch->startpos | |
| 1074 * reg_endpos <invalid> reg_mmatch->endpos | |
| 1075 * reg_win NULL window in which to search | |
| 4061 | 1076 * reg_buf curbuf buffer in which to search |
| 7 | 1077 * reg_firstlnum <invalid> first line in which to search |
| 1078 * reg_maxline 0 last line nr | |
| 1079 * reg_line_lbr FALSE or TRUE FALSE | |
| 1080 */ | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1081 typedef struct { |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1082 regmatch_T *reg_match; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1083 regmmatch_T *reg_mmatch; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1084 char_u **reg_startp; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1085 char_u **reg_endp; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1086 lpos_T *reg_startpos; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1087 lpos_T *reg_endpos; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1088 win_T *reg_win; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1089 buf_T *reg_buf; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1090 linenr_T reg_firstlnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1091 linenr_T reg_maxline; |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1092 int reg_line_lbr; // "\n" in string is line break |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1093 |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1094 // The current match-position is stord in these variables: |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1095 linenr_T lnum; // line number, relative to first line |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1096 char_u *line; // start of current line |
|
26161
9835f424bef5
patch 8.2.3612: using freed memory with regexp using a mark
Bram Moolenaar <Bram@vim.org>
parents:
25320
diff
changeset
|
1097 char_u *input; // current input, points into "line" |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1098 |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1099 int need_clear_subexpr; // subexpressions still need to be cleared |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1100 #ifdef FEAT_SYN_HL |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1101 int need_clear_zsubexpr; // extmatch subexpressions still need to be |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1102 // cleared |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1103 #endif |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1104 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1105 // Internal copy of 'ignorecase'. It is set at each call to vim_regexec(). |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1106 // Normally it gets the value of "rm_ic" or "rmm_ic", but when the pattern |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1107 // contains '\c' or '\C' the value is overruled. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1108 int reg_ic; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1109 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1110 // Similar to "reg_ic", but only for 'combining' characters. Set with \Z |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1111 // flag in the regexp. Defaults to false, always. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1112 int reg_icombine; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1113 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1114 // Copy of "rmm_maxcol": maximum column to search for a match. Zero when |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1115 // there is no maximum. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1116 colnr_T reg_maxcol; |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1117 |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1118 // State for the NFA engine regexec. |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1119 int nfa_has_zend; // NFA regexp \ze operator encountered. |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1120 int nfa_has_backref; // NFA regexp \1 .. \9 encountered. |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1121 int nfa_nsubexpr; // Number of sub expressions actually being used |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1122 // during execution. 1 if only the whole match |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1123 // (subexpr 0) is used. |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1124 // listid is global, so that it increases on recursive calls to |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1125 // nfa_regmatch(), which means we don't have to clear the lastlist field of |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1126 // all the states. |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1127 int nfa_listid; |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1128 int nfa_alt_listid; |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1129 |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1130 #ifdef FEAT_SYN_HL |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1131 int nfa_has_zsubexpr; // NFA regexp has \z( ), set zsubexpr. |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1132 #endif |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1133 } regexec_T; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1134 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1135 static regexec_T rex; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1136 static int rex_in_use = FALSE; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1137 |
| 7 | 1138 /* |
|
15709
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1139 * Return TRUE if character 'c' is included in 'iskeyword' option for |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1140 * "reg_buf" buffer. |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1141 */ |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1142 static int |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1143 reg_iswordc(int c) |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1144 { |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1145 return vim_iswordc_buf(c, rex.reg_buf); |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1146 } |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1147 |
|
2e2f07561f4b
patch 8.1.0862: no verbose version of character classes
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1148 /* |
| 7 | 1149 * Get pointer to the line "lnum", which is relative to "reg_firstlnum". |
| 1150 */ | |
| 1151 static char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1152 reg_getline(linenr_T lnum) |
| 7 | 1153 { |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1154 // when looking behind for a match/no-match lnum is negative. But we |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1155 // can't go before line 1 |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1156 if (rex.reg_firstlnum + lnum < 1) |
| 7 | 1157 return NULL; |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1158 if (lnum > rex.reg_maxline) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1159 // Must have matched the "\n" in the last line. |
| 481 | 1160 return (char_u *)""; |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1161 return ml_get_buf(rex.reg_buf, rex.reg_firstlnum + lnum, FALSE); |
| 7 | 1162 } |
| 1163 | |
| 1164 #ifdef FEAT_SYN_HL | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1165 static char_u *reg_startzp[NSUBEXP]; // Workspace to mark beginning |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1166 static char_u *reg_endzp[NSUBEXP]; // and end of \z(...\) matches |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1167 static lpos_T reg_startzpos[NSUBEXP]; // idem, beginning pos |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1168 static lpos_T reg_endzpos[NSUBEXP]; // idem, end pos |
| 7 | 1169 #endif |
| 1170 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1171 // TRUE if using multi-line regexp. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1172 #define REG_MULTI (rex.reg_match == NULL) |
| 4444 | 1173 |
| 7 | 1174 #ifdef FEAT_SYN_HL |
| 1175 /* | |
| 1176 * Create a new extmatch and mark it as referenced once. | |
| 1177 */ | |
| 1178 static reg_extmatch_T * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1179 make_extmatch(void) |
| 7 | 1180 { |
| 1181 reg_extmatch_T *em; | |
| 1182 | |
|
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
1183 em = ALLOC_CLEAR_ONE(reg_extmatch_T); |
| 7 | 1184 if (em != NULL) |
| 1185 em->refcnt = 1; | |
| 1186 return em; | |
| 1187 } | |
| 1188 | |
| 1189 /* | |
| 1190 * Add a reference to an extmatch. | |
| 1191 */ | |
| 1192 reg_extmatch_T * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1193 ref_extmatch(reg_extmatch_T *em) |
| 7 | 1194 { |
| 1195 if (em != NULL) | |
| 1196 em->refcnt++; | |
| 1197 return em; | |
| 1198 } | |
| 1199 | |
| 1200 /* | |
| 1201 * Remove a reference to an extmatch. If there are no references left, free | |
| 1202 * the info. | |
| 1203 */ | |
| 1204 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1205 unref_extmatch(reg_extmatch_T *em) |
| 7 | 1206 { |
| 1207 int i; | |
| 1208 | |
| 1209 if (em != NULL && --em->refcnt <= 0) | |
| 1210 { | |
| 1211 for (i = 0; i < NSUBEXP; ++i) | |
| 1212 vim_free(em->matches[i]); | |
| 1213 vim_free(em); | |
| 1214 } | |
| 1215 } | |
| 1216 #endif | |
| 1217 | |
| 1218 /* | |
| 1219 * Get class of previous character. | |
| 1220 */ | |
| 1221 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1222 reg_prev_class(void) |
| 7 | 1223 { |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1224 if (rex.input > rex.line) |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1225 return mb_get_class_buf(rex.input - 1 |
|
15603
639b8318472c
patch 8.1.0809: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
15555
diff
changeset
|
1226 - (*mb_head_off)(rex.line, rex.input - 1), rex.reg_buf); |
| 7 | 1227 return -1; |
| 1228 } | |
| 5735 | 1229 |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1230 /* |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1231 * Return TRUE if the current rex.input position matches the Visual area. |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1232 */ |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1233 static int |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1234 reg_match_visual(void) |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1235 { |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1236 pos_T top, bot; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1237 linenr_T lnum; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1238 colnr_T col; |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1239 win_T *wp = rex.reg_win == NULL ? curwin : rex.reg_win; |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1240 int mode; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1241 colnr_T start, end; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1242 colnr_T start2, end2; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1243 colnr_T cols; |
|
24745
b1fa3f005c93
patch 8.2.2911: pattern "%V" does not match all of block selection
Bram Moolenaar <Bram@vim.org>
parents:
24488
diff
changeset
|
1244 colnr_T curswant; |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1245 |
|
27466
8ed815f061af
patch 8.2.4261: accessing invalid memory in a regular expression
Bram Moolenaar <Bram@vim.org>
parents:
26966
diff
changeset
|
1246 // Check if the buffer is the current buffer and not using a string. |
|
27468
678ea52c15a0
patch 8.2.4262: some search tests fail
Bram Moolenaar <Bram@vim.org>
parents:
27466
diff
changeset
|
1247 if (rex.reg_buf != curbuf || VIsual.lnum == 0 || !REG_MULTI) |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1248 return FALSE; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1249 |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1250 if (VIsual_active) |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1251 { |
|
11121
778c10516955
patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
10359
diff
changeset
|
1252 if (LT_POS(VIsual, wp->w_cursor)) |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1253 { |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1254 top = VIsual; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1255 bot = wp->w_cursor; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1256 } |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1257 else |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1258 { |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1259 top = wp->w_cursor; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1260 bot = VIsual; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1261 } |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1262 mode = VIsual_mode; |
|
24745
b1fa3f005c93
patch 8.2.2911: pattern "%V" does not match all of block selection
Bram Moolenaar <Bram@vim.org>
parents:
24488
diff
changeset
|
1263 curswant = wp->w_curswant; |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1264 } |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1265 else |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1266 { |
|
11121
778c10516955
patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
10359
diff
changeset
|
1267 if (LT_POS(curbuf->b_visual.vi_start, curbuf->b_visual.vi_end)) |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1268 { |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1269 top = curbuf->b_visual.vi_start; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1270 bot = curbuf->b_visual.vi_end; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1271 } |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1272 else |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1273 { |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1274 top = curbuf->b_visual.vi_end; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1275 bot = curbuf->b_visual.vi_start; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1276 } |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1277 mode = curbuf->b_visual.vi_mode; |
|
24745
b1fa3f005c93
patch 8.2.2911: pattern "%V" does not match all of block selection
Bram Moolenaar <Bram@vim.org>
parents:
24488
diff
changeset
|
1278 curswant = curbuf->b_visual.vi_curswant; |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1279 } |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1280 lnum = rex.lnum + rex.reg_firstlnum; |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1281 if (lnum < top.lnum || lnum > bot.lnum) |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1282 return FALSE; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1283 |
|
26841
48d6f187e9c0
patch 8.2.3949: using freed memory with /%V
Bram Moolenaar <Bram@vim.org>
parents:
26534
diff
changeset
|
1284 col = (colnr_T)(rex.input - rex.line); |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1285 if (mode == 'v') |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1286 { |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1287 if ((lnum == top.lnum && col < top.col) |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1288 || (lnum == bot.lnum && col >= bot.col + (*p_sel != 'e'))) |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1289 return FALSE; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1290 } |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1291 else if (mode == Ctrl_V) |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1292 { |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1293 getvvcol(wp, &top, &start, NULL, &end); |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1294 getvvcol(wp, &bot, &start2, NULL, &end2); |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1295 if (start2 < start) |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1296 start = start2; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1297 if (end2 > end) |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1298 end = end2; |
|
24745
b1fa3f005c93
patch 8.2.2911: pattern "%V" does not match all of block selection
Bram Moolenaar <Bram@vim.org>
parents:
24488
diff
changeset
|
1299 if (top.col == MAXCOL || bot.col == MAXCOL || curswant == MAXCOL) |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1300 end = MAXCOL; |
|
26841
48d6f187e9c0
patch 8.2.3949: using freed memory with /%V
Bram Moolenaar <Bram@vim.org>
parents:
26534
diff
changeset
|
1301 |
|
48d6f187e9c0
patch 8.2.3949: using freed memory with /%V
Bram Moolenaar <Bram@vim.org>
parents:
26534
diff
changeset
|
1302 // getvvcol() flushes rex.line, need to get it again |
|
48d6f187e9c0
patch 8.2.3949: using freed memory with /%V
Bram Moolenaar <Bram@vim.org>
parents:
26534
diff
changeset
|
1303 rex.line = reg_getline(rex.lnum); |
|
48d6f187e9c0
patch 8.2.3949: using freed memory with /%V
Bram Moolenaar <Bram@vim.org>
parents:
26534
diff
changeset
|
1304 rex.input = rex.line + col; |
|
48d6f187e9c0
patch 8.2.3949: using freed memory with /%V
Bram Moolenaar <Bram@vim.org>
parents:
26534
diff
changeset
|
1305 |
|
48d6f187e9c0
patch 8.2.3949: using freed memory with /%V
Bram Moolenaar <Bram@vim.org>
parents:
26534
diff
changeset
|
1306 cols = win_linetabsize(wp, rex.line, col); |
|
4730
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1307 if (cols < start || cols > end - (*p_sel == 'e')) |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1308 return FALSE; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1309 } |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1310 return TRUE; |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1311 } |
|
749e2b2755d5
updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents:
4720
diff
changeset
|
1312 |
| 7 | 1313 /* |
| 1314 * Check the regexp program for its magic number. | |
| 1315 * Return TRUE if it's wrong. | |
| 1316 */ | |
| 1317 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1318 prog_magic_wrong(void) |
| 7 | 1319 { |
| 4444 | 1320 regprog_T *prog; |
| 1321 | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1322 prog = REG_MULTI ? rex.reg_mmatch->regprog : rex.reg_match->regprog; |
| 4444 | 1323 if (prog->engine == &nfa_regengine) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1324 // For NFA matcher we don't check the magic |
| 4444 | 1325 return FALSE; |
| 1326 | |
| 1327 if (UCHARAT(((bt_regprog_T *)prog)->program) != REGMAGIC) | |
| 7 | 1328 { |
|
25306
078edc1821bf
patch 8.2.3190: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1329 emsg(_(e_corrupted_regexp_program)); |
| 7 | 1330 return TRUE; |
| 1331 } | |
| 1332 return FALSE; | |
| 1333 } | |
| 1334 | |
| 1335 /* | |
| 1336 * Cleanup the subexpressions, if this wasn't done yet. | |
| 1337 * This construction is used to clear the subexpressions only when they are | |
| 1338 * used (to increase speed). | |
| 1339 */ | |
| 1340 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1341 cleanup_subexpr(void) |
| 7 | 1342 { |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1343 if (rex.need_clear_subexpr) |
| 7 | 1344 { |
| 1345 if (REG_MULTI) | |
| 1346 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1347 // Use 0xff to set lnum to -1 |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1348 vim_memset(rex.reg_startpos, 0xff, sizeof(lpos_T) * NSUBEXP); |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1349 vim_memset(rex.reg_endpos, 0xff, sizeof(lpos_T) * NSUBEXP); |
| 7 | 1350 } |
| 1351 else | |
| 1352 { | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1353 vim_memset(rex.reg_startp, 0, sizeof(char_u *) * NSUBEXP); |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1354 vim_memset(rex.reg_endp, 0, sizeof(char_u *) * NSUBEXP); |
| 7 | 1355 } |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1356 rex.need_clear_subexpr = FALSE; |
| 7 | 1357 } |
| 1358 } | |
| 1359 | |
| 1360 #ifdef FEAT_SYN_HL | |
| 1361 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1362 cleanup_zsubexpr(void) |
| 7 | 1363 { |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1364 if (rex.need_clear_zsubexpr) |
| 7 | 1365 { |
| 1366 if (REG_MULTI) | |
| 1367 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1368 // Use 0xff to set lnum to -1 |
| 7 | 1369 vim_memset(reg_startzpos, 0xff, sizeof(lpos_T) * NSUBEXP); |
| 1370 vim_memset(reg_endzpos, 0xff, sizeof(lpos_T) * NSUBEXP); | |
| 1371 } | |
| 1372 else | |
| 1373 { | |
| 1374 vim_memset(reg_startzp, 0, sizeof(char_u *) * NSUBEXP); | |
| 1375 vim_memset(reg_endzp, 0, sizeof(char_u *) * NSUBEXP); | |
| 1376 } | |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1377 rex.need_clear_zsubexpr = FALSE; |
| 7 | 1378 } |
| 1379 } | |
| 1380 #endif | |
| 1381 | |
| 1382 /* | |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1383 * Advance rex.lnum, rex.line and rex.input to the next line. |
| 7 | 1384 */ |
| 1385 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1386 reg_nextline(void) |
| 7 | 1387 { |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1388 rex.line = reg_getline(++rex.lnum); |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1389 rex.input = rex.line; |
| 7 | 1390 fast_breakcheck(); |
| 1391 } | |
| 1392 | |
| 1393 /* | |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1394 * Check whether a backreference matches. |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1395 * Returns RA_FAIL, RA_NOMATCH or RA_MATCH. |
| 5504 | 1396 * If "bytelen" is not NULL, it is set to the byte length of the match in the |
| 1397 * last line. | |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1398 */ |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1399 static int |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1400 match_with_backref( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1401 linenr_T start_lnum, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1402 colnr_T start_col, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1403 linenr_T end_lnum, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1404 colnr_T end_col, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1405 int *bytelen) |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1406 { |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1407 linenr_T clnum = start_lnum; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1408 colnr_T ccol = start_col; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1409 int len; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1410 char_u *p; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1411 |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1412 if (bytelen != NULL) |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1413 *bytelen = 0; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1414 for (;;) |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1415 { |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1416 // Since getting one line may invalidate the other, need to make copy. |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1417 // Slow! |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1418 if (rex.line != reg_tofree) |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1419 { |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1420 len = (int)STRLEN(rex.line); |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1421 if (reg_tofree == NULL || len >= (int)reg_tofreelen) |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1422 { |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1423 len += 50; // get some extra |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1424 vim_free(reg_tofree); |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1425 reg_tofree = alloc(len); |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1426 if (reg_tofree == NULL) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1427 return RA_FAIL; // out of memory! |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1428 reg_tofreelen = len; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1429 } |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1430 STRCPY(reg_tofree, rex.line); |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1431 rex.input = reg_tofree + (rex.input - rex.line); |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1432 rex.line = reg_tofree; |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1433 } |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1434 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1435 // Get the line to compare with. |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1436 p = reg_getline(clnum); |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1437 if (clnum == end_lnum) |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1438 len = end_col - ccol; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1439 else |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1440 len = (int)STRLEN(p + ccol); |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1441 |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1442 if (cstrncmp(p + ccol, rex.input, &len) != 0) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1443 return RA_NOMATCH; // doesn't match |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1444 if (bytelen != NULL) |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1445 *bytelen += len; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1446 if (clnum == end_lnum) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1447 break; // match and at end! |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
1448 if (rex.lnum >= rex.reg_maxline) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1449 return RA_NOMATCH; // text too short |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1450 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1451 // Advance to next line. |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1452 reg_nextline(); |
| 5504 | 1453 if (bytelen != NULL) |
| 1454 *bytelen = 0; | |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1455 ++clnum; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1456 ccol = 0; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1457 if (got_int) |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1458 return RA_FAIL; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1459 } |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1460 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1461 // found a match! Note that rex.line may now point to a copy of the line, |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1462 // that should not matter. |
|
4891
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1463 return RA_MATCH; |
|
4c42efb4c098
updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1464 } |
| 7 | 1465 |
| 6203 | 1466 /* |
| 1467 * Used in a place where no * or \+ can follow. | |
| 1468 */ | |
| 1469 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1470 re_mult_next(char *what) |
| 6203 | 1471 { |
| 1472 if (re_multi_type(peekchr()) == MULTI_MULT) | |
|
15480
bd12ace1bab2
patch 8.1.0748: using sprintf() instead of semsg()
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1473 { |
|
26966
ac75c145f0a9
patch 8.2.4012: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26962
diff
changeset
|
1474 semsg(_(e_nfa_regexp_cannot_repeat_str), what); |
|
15480
bd12ace1bab2
patch 8.1.0748: using sprintf() instead of semsg()
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1475 rc_did_emsg = TRUE; |
|
bd12ace1bab2
patch 8.1.0748: using sprintf() instead of semsg()
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1476 return FAIL; |
|
bd12ace1bab2
patch 8.1.0748: using sprintf() instead of semsg()
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1477 } |
| 6203 | 1478 return OK; |
| 1479 } | |
| 1480 | |
| 7 | 1481 typedef struct |
| 1482 { | |
| 1483 int a, b, c; | |
| 1484 } decomp_T; | |
| 1485 | |
| 1486 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1487 // 0xfb20 - 0xfb4f |
| 297 | 1488 static decomp_T decomp_table[0xfb4f-0xfb20+1] = |
| 7 | 1489 { |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1490 {0x5e2,0,0}, // 0xfb20 alt ayin |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1491 {0x5d0,0,0}, // 0xfb21 alt alef |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1492 {0x5d3,0,0}, // 0xfb22 alt dalet |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1493 {0x5d4,0,0}, // 0xfb23 alt he |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1494 {0x5db,0,0}, // 0xfb24 alt kaf |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1495 {0x5dc,0,0}, // 0xfb25 alt lamed |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1496 {0x5dd,0,0}, // 0xfb26 alt mem-sofit |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1497 {0x5e8,0,0}, // 0xfb27 alt resh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1498 {0x5ea,0,0}, // 0xfb28 alt tav |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1499 {'+', 0, 0}, // 0xfb29 alt plus |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1500 {0x5e9, 0x5c1, 0}, // 0xfb2a shin+shin-dot |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1501 {0x5e9, 0x5c2, 0}, // 0xfb2b shin+sin-dot |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1502 {0x5e9, 0x5c1, 0x5bc}, // 0xfb2c shin+shin-dot+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1503 {0x5e9, 0x5c2, 0x5bc}, // 0xfb2d shin+sin-dot+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1504 {0x5d0, 0x5b7, 0}, // 0xfb2e alef+patah |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1505 {0x5d0, 0x5b8, 0}, // 0xfb2f alef+qamats |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1506 {0x5d0, 0x5b4, 0}, // 0xfb30 alef+hiriq |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1507 {0x5d1, 0x5bc, 0}, // 0xfb31 bet+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1508 {0x5d2, 0x5bc, 0}, // 0xfb32 gimel+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1509 {0x5d3, 0x5bc, 0}, // 0xfb33 dalet+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1510 {0x5d4, 0x5bc, 0}, // 0xfb34 he+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1511 {0x5d5, 0x5bc, 0}, // 0xfb35 vav+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1512 {0x5d6, 0x5bc, 0}, // 0xfb36 zayin+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1513 {0xfb37, 0, 0}, // 0xfb37 -- UNUSED |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1514 {0x5d8, 0x5bc, 0}, // 0xfb38 tet+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1515 {0x5d9, 0x5bc, 0}, // 0xfb39 yud+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1516 {0x5da, 0x5bc, 0}, // 0xfb3a kaf sofit+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1517 {0x5db, 0x5bc, 0}, // 0xfb3b kaf+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1518 {0x5dc, 0x5bc, 0}, // 0xfb3c lamed+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1519 {0xfb3d, 0, 0}, // 0xfb3d -- UNUSED |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1520 {0x5de, 0x5bc, 0}, // 0xfb3e mem+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1521 {0xfb3f, 0, 0}, // 0xfb3f -- UNUSED |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1522 {0x5e0, 0x5bc, 0}, // 0xfb40 nun+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1523 {0x5e1, 0x5bc, 0}, // 0xfb41 samech+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1524 {0xfb42, 0, 0}, // 0xfb42 -- UNUSED |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1525 {0x5e3, 0x5bc, 0}, // 0xfb43 pe sofit+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1526 {0x5e4, 0x5bc,0}, // 0xfb44 pe+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1527 {0xfb45, 0, 0}, // 0xfb45 -- UNUSED |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1528 {0x5e6, 0x5bc, 0}, // 0xfb46 tsadi+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1529 {0x5e7, 0x5bc, 0}, // 0xfb47 qof+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1530 {0x5e8, 0x5bc, 0}, // 0xfb48 resh+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1531 {0x5e9, 0x5bc, 0}, // 0xfb49 shin+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1532 {0x5ea, 0x5bc, 0}, // 0xfb4a tav+dagesh |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1533 {0x5d5, 0x5b9, 0}, // 0xfb4b vav+holam |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1534 {0x5d1, 0x5bf, 0}, // 0xfb4c bet+rafe |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1535 {0x5db, 0x5bf, 0}, // 0xfb4d kaf+rafe |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1536 {0x5e4, 0x5bf, 0}, // 0xfb4e pe+rafe |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1537 {0x5d0, 0x5dc, 0} // 0xfb4f alef-lamed |
| 7 | 1538 }; |
| 1539 | |
| 1540 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1541 mb_decompose(int c, int *c1, int *c2, int *c3) |
| 7 | 1542 { |
| 1543 decomp_T d; | |
| 1544 | |
|
4505
d037b9cbdaaa
updated for version 7.3.1000
Bram Moolenaar <bram@vim.org>
parents:
4466
diff
changeset
|
1545 if (c >= 0xfb20 && c <= 0xfb4f) |
| 7 | 1546 { |
| 1547 d = decomp_table[c - 0xfb20]; | |
| 1548 *c1 = d.a; | |
| 1549 *c2 = d.b; | |
| 1550 *c3 = d.c; | |
| 1551 } | |
| 1552 else | |
| 1553 { | |
| 1554 *c1 = c; | |
| 1555 *c2 = *c3 = 0; | |
| 1556 } | |
| 1557 } | |
| 1558 | |
| 1559 /* | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1560 * Compare two strings, ignore case if rex.reg_ic set. |
| 7 | 1561 * Return 0 if strings match, non-zero otherwise. |
| 1562 * Correct the length "*n" when composing characters are ignored. | |
| 1563 */ | |
| 1564 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1565 cstrncmp(char_u *s1, char_u *s2, int *n) |
| 7 | 1566 { |
| 1567 int result; | |
| 1568 | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1569 if (!rex.reg_ic) |
| 7 | 1570 result = STRNCMP(s1, s2, *n); |
| 1571 else | |
| 1572 result = MB_STRNICMP(s1, s2, *n); | |
| 1573 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1574 // if it failed and it's utf8 and we want to combineignore: |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1575 if (result != 0 && enc_utf8 && rex.reg_icombine) |
| 7 | 1576 { |
| 1577 char_u *str1, *str2; | |
| 1578 int c1, c2, c11, c12; | |
| 1579 int junk; | |
| 1580 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1581 // we have to handle the strcmp ourselves, since it is necessary to |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1582 // deal with the composing characters by ignoring them: |
| 7 | 1583 str1 = s1; |
| 1584 str2 = s2; | |
| 1585 c1 = c2 = 0; | |
| 507 | 1586 while ((int)(str1 - s1) < *n) |
| 7 | 1587 { |
| 1588 c1 = mb_ptr2char_adv(&str1); | |
| 1589 c2 = mb_ptr2char_adv(&str2); | |
| 1590 | |
|
18019
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
1591 // Decompose the character if necessary, into 'base' characters. |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
1592 // Currently hard-coded for Hebrew, Arabic to be done... |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1593 if (c1 != c2 && (!rex.reg_ic || utf_fold(c1) != utf_fold(c2))) |
| 7 | 1594 { |
|
18019
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
1595 // decomposition necessary? |
| 7 | 1596 mb_decompose(c1, &c11, &junk, &junk); |
| 1597 mb_decompose(c2, &c12, &junk, &junk); | |
| 1598 c1 = c11; | |
| 1599 c2 = c12; | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1600 if (c11 != c12 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1601 && (!rex.reg_ic || utf_fold(c11) != utf_fold(c12))) |
| 7 | 1602 break; |
| 1603 } | |
| 1604 } | |
| 1605 result = c2 - c1; | |
| 1606 if (result == 0) | |
| 1607 *n = (int)(str2 - s2); | |
| 1608 } | |
| 1609 | |
| 1610 return result; | |
| 1611 } | |
| 1612 | |
| 1613 /* | |
| 1614 * cstrchr: This function is used a lot for simple searches, keep it fast! | |
| 1615 */ | |
| 1616 static char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1617 cstrchr(char_u *s, int c) |
| 7 | 1618 { |
| 1619 char_u *p; | |
| 1620 int cc; | |
| 1621 | |
|
15603
639b8318472c
patch 8.1.0809: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
15555
diff
changeset
|
1622 if (!rex.reg_ic || (!enc_utf8 && mb_char2len(c) > 1)) |
| 7 | 1623 return vim_strchr(s, c); |
| 1624 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1625 // tolower() and toupper() can be slow, comparing twice should be a lot |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1626 // faster (esp. when using MS Visual C++!). |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1627 // For UTF-8 need to use folded case. |
| 7 | 1628 if (enc_utf8 && c > 0x80) |
| 1629 cc = utf_fold(c); | |
| 1630 else | |
| 1347 | 1631 if (MB_ISUPPER(c)) |
| 1632 cc = MB_TOLOWER(c); | |
| 1633 else if (MB_ISLOWER(c)) | |
| 1634 cc = MB_TOUPPER(c); | |
| 7 | 1635 else |
| 1636 return vim_strchr(s, c); | |
| 1637 | |
| 1638 if (has_mbyte) | |
| 1639 { | |
| 474 | 1640 for (p = s; *p != NUL; p += (*mb_ptr2len)(p)) |
| 7 | 1641 { |
| 1642 if (enc_utf8 && c > 0x80) | |
| 1643 { | |
| 1644 if (utf_fold(utf_ptr2char(p)) == cc) | |
| 1645 return p; | |
| 1646 } | |
| 1647 else if (*p == c || *p == cc) | |
| 1648 return p; | |
| 1649 } | |
| 1650 } | |
| 1651 else | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1652 // Faster version for when there are no multi-byte characters. |
| 7 | 1653 for (p = s; *p != NUL; ++p) |
| 1654 if (*p == c || *p == cc) | |
| 1655 return p; | |
| 1656 | |
| 1657 return NULL; | |
| 1658 } | |
| 1659 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1660 //////////////////////////////////////////////////////////////// |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1661 // regsub stuff // |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1662 //////////////////////////////////////////////////////////////// |
| 7 | 1663 |
| 1664 /* | |
| 1665 * We should define ftpr as a pointer to a function returning a pointer to | |
| 1666 * a function returning a pointer to a function ... | |
| 1667 * This is impossible, so we declare a pointer to a function returning a | |
|
22151
01cab6232a9a
patch 8.2.1625: compiler warning for use of fptr_T
Bram Moolenaar <Bram@vim.org>
parents:
22143
diff
changeset
|
1668 * void pointer. This should work for all compilers. |
| 7 | 1669 */ |
|
22151
01cab6232a9a
patch 8.2.1625: compiler warning for use of fptr_T
Bram Moolenaar <Bram@vim.org>
parents:
22143
diff
changeset
|
1670 typedef void (*(*fptr_T)(int *, int)); |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7009
diff
changeset
|
1671 |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1672 static int vim_regsub_both(char_u *source, typval_T *expr, char_u *dest, int destlen, int flags); |
| 7 | 1673 |
| 772 | 1674 static fptr_T |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1675 do_upper(int *d, int c) |
| 7 | 1676 { |
| 772 | 1677 *d = MB_TOUPPER(c); |
| 1678 | |
| 1679 return (fptr_T)NULL; | |
| 7 | 1680 } |
| 1681 | |
| 772 | 1682 static fptr_T |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1683 do_Upper(int *d, int c) |
| 7 | 1684 { |
| 772 | 1685 *d = MB_TOUPPER(c); |
| 1686 | |
| 1687 return (fptr_T)do_Upper; | |
| 1688 } | |
| 1689 | |
| 1690 static fptr_T | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1691 do_lower(int *d, int c) |
| 772 | 1692 { |
| 1693 *d = MB_TOLOWER(c); | |
| 1694 | |
| 1695 return (fptr_T)NULL; | |
| 1696 } | |
| 1697 | |
| 1698 static fptr_T | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1699 do_Lower(int *d, int c) |
| 772 | 1700 { |
| 1701 *d = MB_TOLOWER(c); | |
| 1702 | |
| 1703 return (fptr_T)do_Lower; | |
| 7 | 1704 } |
| 1705 | |
| 1706 /* | |
| 1707 * regtilde(): Replace tildes in the pattern by the old pattern. | |
| 1708 * | |
| 1709 * Short explanation of the tilde: It stands for the previous replacement | |
| 1710 * pattern. If that previous pattern also contains a ~ we should go back a | |
| 1711 * step further... But we insert the previous pattern into the current one | |
| 1712 * and remember that. | |
| 772 | 1713 * This still does not handle the case where "magic" changes. So require the |
| 1714 * user to keep his hands off of "magic". | |
| 7 | 1715 * |
| 1716 * The tildes are parsed once before the first call to vim_regsub(). | |
| 1717 */ | |
| 1718 char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1719 regtilde(char_u *source, int magic) |
| 7 | 1720 { |
| 1721 char_u *newsub = source; | |
| 1722 char_u *tmpsub; | |
| 1723 char_u *p; | |
| 1724 int len; | |
| 1725 int prevlen; | |
| 1726 | |
| 1727 for (p = newsub; *p; ++p) | |
| 1728 { | |
| 1729 if ((*p == '~' && magic) || (*p == '\\' && *(p + 1) == '~' && !magic)) | |
| 1730 { | |
| 1731 if (reg_prev_sub != NULL) | |
| 1732 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1733 // length = len(newsub) - 1 + len(prev_sub) + 1 |
| 7 | 1734 prevlen = (int)STRLEN(reg_prev_sub); |
|
16764
ef00b6bc186b
patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
16634
diff
changeset
|
1735 tmpsub = alloc(STRLEN(newsub) + prevlen); |
| 7 | 1736 if (tmpsub != NULL) |
| 1737 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1738 // copy prefix |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1739 len = (int)(p - newsub); // not including ~ |
| 7 | 1740 mch_memmove(tmpsub, newsub, (size_t)len); |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1741 // interpret tilde |
| 7 | 1742 mch_memmove(tmpsub + len, reg_prev_sub, (size_t)prevlen); |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1743 // copy postfix |
| 7 | 1744 if (!magic) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1745 ++p; // back off backslash |
| 7 | 1746 STRCPY(tmpsub + len + prevlen, p + 1); |
| 1747 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1748 if (newsub != source) // already allocated newsub |
| 7 | 1749 vim_free(newsub); |
| 1750 newsub = tmpsub; | |
| 1751 p = newsub + len + prevlen; | |
| 1752 } | |
| 1753 } | |
| 1754 else if (magic) | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1755 STRMOVE(p, p + 1); // remove '~' |
| 7 | 1756 else |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1757 STRMOVE(p, p + 2); // remove '\~' |
| 7 | 1758 --p; |
| 1759 } | |
| 1760 else | |
| 1761 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1762 if (*p == '\\' && p[1]) // skip escaped characters |
| 7 | 1763 ++p; |
| 1764 if (has_mbyte) | |
| 474 | 1765 p += (*mb_ptr2len)(p) - 1; |
| 7 | 1766 } |
| 1767 } | |
| 1768 | |
| 1769 vim_free(reg_prev_sub); | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1770 if (newsub != source) // newsub was allocated, just keep it |
| 7 | 1771 reg_prev_sub = newsub; |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1772 else // no ~ found, need to save newsub |
| 7 | 1773 reg_prev_sub = vim_strsave(newsub); |
| 1774 return newsub; | |
| 1775 } | |
| 1776 | |
| 1777 #ifdef FEAT_EVAL | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1778 static int can_f_submatch = FALSE; // TRUE when submatch() can be used |
| 7 | 1779 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1780 // These pointers are used for reg_submatch(). Needed for when the |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1781 // substitution string is an expression that contains a call to substitute() |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1782 // and submatch(). |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1783 typedef struct { |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1784 regmatch_T *sm_match; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1785 regmmatch_T *sm_mmatch; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1786 linenr_T sm_firstlnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1787 linenr_T sm_maxline; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1788 int sm_line_lbr; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1789 } regsubmatch_T; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1790 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1791 static regsubmatch_T rsm; // can only be used when can_f_submatch is TRUE |
| 7 | 1792 #endif |
| 1793 | |
|
17966
46f95606b9ec
patch 8.1.1979: code for handling file names is spread out
Bram Moolenaar <Bram@vim.org>
parents:
17789
diff
changeset
|
1794 #ifdef FEAT_EVAL |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1795 |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1796 /* |
|
18572
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1797 * Put the submatches in "argv[argskip]" which is a list passed into |
|
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1798 * call_func() by vim_regsub_both(). |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1799 */ |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1800 static int |
|
18572
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1801 fill_submatch_list(int argc UNUSED, typval_T *argv, int argskip, int argcount) |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1802 { |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1803 listitem_T *li; |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1804 int i; |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1805 char_u *s; |
|
18572
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1806 typval_T *listarg = argv + argskip; |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1807 |
|
18572
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1808 if (argcount == argskip) |
|
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1809 // called function doesn't take a submatches argument |
|
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1810 return argskip; |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1811 |
|
18572
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1812 // Relies on sl_list to be the first item in staticList10_T. |
|
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1813 init_static_list((staticList10_T *)(listarg->vval.v_list)); |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1814 |
|
18572
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1815 // There are always 10 list items in staticList10_T. |
|
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1816 li = listarg->vval.v_list->lv_first; |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1817 for (i = 0; i < 10; ++i) |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1818 { |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1819 s = rsm.sm_match->startp[i]; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1820 if (s == NULL || rsm.sm_match->endp[i] == NULL) |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1821 s = NULL; |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1822 else |
|
20830
9064044fd4f6
patch 8.2.0967: unnecessary type casts for vim_strnsave()
Bram Moolenaar <Bram@vim.org>
parents:
20113
diff
changeset
|
1823 s = vim_strnsave(s, rsm.sm_match->endp[i] - s); |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1824 li->li_tv.v_type = VAR_STRING; |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1825 li->li_tv.vval.v_string = s; |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1826 li = li->li_next; |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1827 } |
|
18572
23fef64352a1
patch 8.1.2280: crash when passing partial to substitute()
Bram Moolenaar <Bram@vim.org>
parents:
18019
diff
changeset
|
1828 return argskip + 1; |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1829 } |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1830 |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1831 static void |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1832 clear_submatch_list(staticList10_T *sl) |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1833 { |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1834 int i; |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1835 |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1836 for (i = 0; i < 10; ++i) |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1837 vim_free(sl->sl_items[i].li_tv.vval.v_string); |
|
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1838 } |
|
17966
46f95606b9ec
patch 8.1.1979: code for handling file names is spread out
Bram Moolenaar <Bram@vim.org>
parents:
17789
diff
changeset
|
1839 #endif |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
1840 |
| 7 | 1841 /* |
| 1842 * vim_regsub() - perform substitutions after a vim_regexec() or | |
| 1843 * vim_regexec_multi() match. | |
| 1844 * | |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1845 * If "flags" has REGSUB_COPY really copy into "dest[destlen]". |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1846 * Oterwise nothing is copied, only compue the length of the result. |
| 7 | 1847 * |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1848 * If "flags" has REGSUB_MAGIC then behave like 'magic' is set. |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1849 * |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1850 * If "flags" has REGSUB_BACKSLASH a backslash will be removed later, need to |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1851 * double them to keep them, and insert a backslash before a CR to avoid it |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1852 * being replaced with a line break later. |
| 7 | 1853 * |
| 1854 * Note: The matched text must not change between the call of | |
| 1855 * vim_regexec()/vim_regexec_multi() and vim_regsub()! It would make the back | |
| 1856 * references invalid! | |
| 1857 * | |
| 1858 * Returns the size of the replacement, including terminating NUL. | |
| 1859 */ | |
| 1860 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1861 vim_regsub( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1862 regmatch_T *rmp, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1863 char_u *source, |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
1864 typval_T *expr, |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1865 char_u *dest, |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1866 int destlen, |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1867 int flags) |
| 7 | 1868 { |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1869 int result; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1870 regexec_T rex_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1871 int rex_in_use_save = rex_in_use; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1872 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1873 if (rex_in_use) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1874 // Being called recursively, save the state. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1875 rex_save = rex; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1876 rex_in_use = TRUE; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1877 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1878 rex.reg_match = rmp; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1879 rex.reg_mmatch = NULL; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1880 rex.reg_maxline = 0; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1881 rex.reg_buf = curbuf; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1882 rex.reg_line_lbr = TRUE; |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1883 result = vim_regsub_both(source, expr, dest, destlen, flags); |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1884 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1885 rex_in_use = rex_in_use_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1886 if (rex_in_use) |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1887 rex = rex_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1888 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1889 return result; |
| 7 | 1890 } |
| 1891 | |
| 1892 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1893 vim_regsub_multi( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1894 regmmatch_T *rmp, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1895 linenr_T lnum, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1896 char_u *source, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1897 char_u *dest, |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1898 int destlen, |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1899 int flags) |
| 7 | 1900 { |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1901 int result; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1902 regexec_T rex_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1903 int rex_in_use_save = rex_in_use; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1904 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1905 if (rex_in_use) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1906 // Being called recursively, save the state. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1907 rex_save = rex; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1908 rex_in_use = TRUE; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1909 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1910 rex.reg_match = NULL; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1911 rex.reg_mmatch = rmp; |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1912 rex.reg_buf = curbuf; // always works on the current buffer! |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1913 rex.reg_firstlnum = lnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1914 rex.reg_maxline = curbuf->b_ml.ml_line_count - lnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1915 rex.reg_line_lbr = FALSE; |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1916 result = vim_regsub_both(source, NULL, dest, destlen, flags); |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1917 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1918 rex_in_use = rex_in_use_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1919 if (rex_in_use) |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1920 rex = rex_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1921 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1922 return result; |
| 7 | 1923 } |
| 1924 | |
| 1925 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1926 vim_regsub_both( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1927 char_u *source, |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
1928 typval_T *expr, |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1929 char_u *dest, |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1930 int destlen, |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1931 int flags) |
| 7 | 1932 { |
| 1933 char_u *src; | |
| 1934 char_u *dst; | |
| 1935 char_u *s; | |
| 1936 int c; | |
| 772 | 1937 int cc; |
| 7 | 1938 int no = -1; |
| 4244 | 1939 fptr_T func_all = (fptr_T)NULL; |
| 1940 fptr_T func_one = (fptr_T)NULL; | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1941 linenr_T clnum = 0; // init for GCC |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1942 int len = 0; // init for GCC |
| 7 | 1943 #ifdef FEAT_EVAL |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
1944 static char_u *eval_result = NULL; |
| 7 | 1945 #endif |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
1946 int copy = flags & REGSUB_COPY; |
| 7 | 1947 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1948 // Be paranoid... |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
1949 if ((source == NULL && expr == NULL) || dest == NULL) |
| 7 | 1950 { |
|
25306
078edc1821bf
patch 8.2.3190: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1951 emsg(_(e_null_argument)); |
| 7 | 1952 return 0; |
| 1953 } | |
| 1954 if (prog_magic_wrong()) | |
| 1955 return 0; | |
| 1956 src = source; | |
| 1957 dst = dest; | |
| 1958 | |
| 1959 /* | |
| 1960 * When the substitute part starts with "\=" evaluate it as an expression. | |
| 1961 */ | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1962 if (expr != NULL || (source[0] == '\\' && source[1] == '=')) |
| 7 | 1963 { |
| 1964 #ifdef FEAT_EVAL | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1965 // To make sure that the length doesn't change between checking the |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1966 // length and copying the string, and to speed up things, the |
|
29071
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
1967 // resulting string is saved from the call with |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
1968 // "flags & REGSUB_COPY" == 0 to the call with |
|
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
1969 // "flags & REGSUB_COPY" != 0. |
| 7 | 1970 if (copy) |
| 1971 { | |
| 1972 if (eval_result != NULL) | |
| 1973 { | |
| 1974 STRCPY(dest, eval_result); | |
| 1975 dst += STRLEN(eval_result); | |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
12752
diff
changeset
|
1976 VIM_CLEAR(eval_result); |
| 7 | 1977 } |
| 1978 } | |
| 1979 else | |
| 1980 { | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1981 int prev_can_f_submatch = can_f_submatch; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1982 regsubmatch_T rsm_save; |
| 7 | 1983 |
|
29071
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
1984 VIM_CLEAR(eval_result); |
| 7 | 1985 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1986 // The expression may contain substitute(), which calls us |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1987 // recursively. Make sure submatch() gets the text from the first |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
1988 // level. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1989 if (can_f_submatch) |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1990 rsm_save = rsm; |
| 7 | 1991 can_f_submatch = TRUE; |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1992 rsm.sm_match = rex.reg_match; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1993 rsm.sm_mmatch = rex.reg_mmatch; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1994 rsm.sm_firstlnum = rex.reg_firstlnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1995 rsm.sm_maxline = rex.reg_maxline; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
1996 rsm.sm_line_lbr = rex.reg_line_lbr; |
| 7 | 1997 |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
1998 if (expr != NULL) |
|
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
1999 { |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
2000 typval_T argv[2]; |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2001 char_u buf[NUMBUFLEN]; |
|
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2002 typval_T rettv; |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
2003 staticList10_T matchList; |
|
17606
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17444
diff
changeset
|
2004 funcexe_T funcexe; |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2005 |
|
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2006 rettv.v_type = VAR_STRING; |
|
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2007 rettv.vval.v_string = NULL; |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2008 argv[0].v_type = VAR_LIST; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2009 argv[0].vval.v_list = &matchList.sl_list; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2010 matchList.sl_list.lv_len = 0; |
|
20007
aadd1cae2ff5
patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents:
19892
diff
changeset
|
2011 CLEAR_FIELD(funcexe); |
|
26534
28745eec1dda
patch 8.2.3796: the funcexe_T struct members are not named consistently
Bram Moolenaar <Bram@vim.org>
parents:
26436
diff
changeset
|
2012 funcexe.fe_argv_func = fill_submatch_list; |
|
28745eec1dda
patch 8.2.3796: the funcexe_T struct members are not named consistently
Bram Moolenaar <Bram@vim.org>
parents:
26436
diff
changeset
|
2013 funcexe.fe_evaluate = TRUE; |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2014 if (expr->v_type == VAR_FUNC) |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2015 { |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2016 s = expr->vval.v_string; |
|
17606
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17444
diff
changeset
|
2017 call_func(s, -1, &rettv, 1, argv, &funcexe); |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2018 } |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2019 else if (expr->v_type == VAR_PARTIAL) |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2020 { |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2021 partial_T *partial = expr->vval.v_partial; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2022 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2023 s = partial_name(partial); |
|
26534
28745eec1dda
patch 8.2.3796: the funcexe_T struct members are not named consistently
Bram Moolenaar <Bram@vim.org>
parents:
26436
diff
changeset
|
2024 funcexe.fe_partial = partial; |
|
17606
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17444
diff
changeset
|
2025 call_func(s, -1, &rettv, 1, argv, &funcexe); |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2026 } |
|
28692
bfd8e25fa207
patch 8.2.4870: Vim9: expression in :substitute is not compiled
Bram Moolenaar <Bram@vim.org>
parents:
28572
diff
changeset
|
2027 else if (expr->v_type == VAR_INSTR) |
|
bfd8e25fa207
patch 8.2.4870: Vim9: expression in :substitute is not compiled
Bram Moolenaar <Bram@vim.org>
parents:
28572
diff
changeset
|
2028 { |
|
bfd8e25fa207
patch 8.2.4870: Vim9: expression in :substitute is not compiled
Bram Moolenaar <Bram@vim.org>
parents:
28572
diff
changeset
|
2029 exe_typval_instr(expr, &rettv); |
|
bfd8e25fa207
patch 8.2.4870: Vim9: expression in :substitute is not compiled
Bram Moolenaar <Bram@vim.org>
parents:
28572
diff
changeset
|
2030 } |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2031 if (matchList.sl_list.lv_len > 0) |
|
18576
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2032 // fill_submatch_list() was called |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2033 clear_submatch_list(&matchList); |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2034 |
|
18576
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2035 if (rettv.v_type == VAR_UNKNOWN) |
|
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2036 // something failed, no need to report another error |
|
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2037 eval_result = NULL; |
|
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2038 else |
|
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2039 { |
|
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2040 eval_result = tv_get_string_buf_chk(&rettv, buf); |
|
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2041 if (eval_result != NULL) |
|
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2042 eval_result = vim_strsave(eval_result); |
|
e9675870c480
patch 8.1.2282: crash when passing many arguments through a partial
Bram Moolenaar <Bram@vim.org>
parents:
18572
diff
changeset
|
2043 } |
|
9626
172131507c85
commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents:
9589
diff
changeset
|
2044 clear_tv(&rettv); |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2045 } |
|
24488
f293bb501b30
patch 8.2.2784: Vim9: cannot use =expr in :substitute
Bram Moolenaar <Bram@vim.org>
parents:
23505
diff
changeset
|
2046 else if (substitute_instr != NULL) |
|
f293bb501b30
patch 8.2.2784: Vim9: cannot use =expr in :substitute
Bram Moolenaar <Bram@vim.org>
parents:
23505
diff
changeset
|
2047 // Execute instructions from ISN_SUBSTITUTE. |
|
f293bb501b30
patch 8.2.2784: Vim9: cannot use =expr in :substitute
Bram Moolenaar <Bram@vim.org>
parents:
23505
diff
changeset
|
2048 eval_result = exe_substitute_instr(); |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2049 else |
|
20996
3af71cbcfdbe
patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents:
20830
diff
changeset
|
2050 eval_result = eval_to_string(source + 2, TRUE); |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9015
diff
changeset
|
2051 |
| 7 | 2052 if (eval_result != NULL) |
| 2053 { | |
|
2125
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2054 int had_backslash = FALSE; |
|
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2055 |
|
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11121
diff
changeset
|
2056 for (s = eval_result; *s != NUL; MB_PTR_ADV(s)) |
| 7 | 2057 { |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2058 // Change NL to CR, so that it becomes a line break, |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2059 // unless called from vim_regexec_nl(). |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2060 // Skip over a backslashed character. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2061 if (*s == NL && !rsm.sm_line_lbr) |
| 7 | 2062 *s = CAR; |
| 2063 else if (*s == '\\' && s[1] != NUL) | |
|
2125
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2064 { |
| 7 | 2065 ++s; |
| 2173 | 2066 /* Change NL to CR here too, so that this works: |
| 2067 * :s/abc\\\ndef/\="aaa\\\nbbb"/ on text: | |
| 2068 * abc\ | |
| 2069 * def | |
| 2904 | 2070 * Not when called from vim_regexec_nl(). |
| 2173 | 2071 */ |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2072 if (*s == NL && !rsm.sm_line_lbr) |
| 2173 | 2073 *s = CAR; |
|
2125
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2074 had_backslash = TRUE; |
|
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2075 } |
|
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2076 } |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2077 if (had_backslash && (flags & REGSUB_BACKSLASH)) |
|
2125
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2078 { |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2079 // Backslashes will be consumed, need to double them. |
|
2125
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2080 s = vim_strsave_escaped(eval_result, (char_u *)"\\"); |
|
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2081 if (s != NULL) |
|
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2082 { |
|
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2083 vim_free(eval_result); |
|
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2084 eval_result = s; |
|
b8744d1982d1
updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents:
2012
diff
changeset
|
2085 } |
| 7 | 2086 } |
| 2087 | |
| 2088 dst += STRLEN(eval_result); | |
| 2089 } | |
| 2090 | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2091 can_f_submatch = prev_can_f_submatch; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2092 if (can_f_submatch) |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2093 rsm = rsm_save; |
| 7 | 2094 } |
| 2095 #endif | |
| 2096 } | |
| 2097 else | |
| 2098 while ((c = *src++) != NUL) | |
| 2099 { | |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2100 if (c == '&' && (flags & REGSUB_MAGIC)) |
| 7 | 2101 no = 0; |
| 2102 else if (c == '\\' && *src != NUL) | |
| 2103 { | |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2104 if (*src == '&' && !(flags & REGSUB_MAGIC)) |
| 7 | 2105 { |
| 2106 ++src; | |
| 2107 no = 0; | |
| 2108 } | |
| 2109 else if ('0' <= *src && *src <= '9') | |
| 2110 { | |
| 2111 no = *src++ - '0'; | |
| 2112 } | |
| 2113 else if (vim_strchr((char_u *)"uUlLeE", *src)) | |
| 2114 { | |
| 2115 switch (*src++) | |
| 2116 { | |
| 4244 | 2117 case 'u': func_one = (fptr_T)do_upper; |
| 7 | 2118 continue; |
| 4244 | 2119 case 'U': func_all = (fptr_T)do_Upper; |
| 7 | 2120 continue; |
| 4244 | 2121 case 'l': func_one = (fptr_T)do_lower; |
| 7 | 2122 continue; |
| 4244 | 2123 case 'L': func_all = (fptr_T)do_Lower; |
| 7 | 2124 continue; |
| 2125 case 'e': | |
| 4244 | 2126 case 'E': func_one = func_all = (fptr_T)NULL; |
| 7 | 2127 continue; |
| 2128 } | |
| 2129 } | |
| 2130 } | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2131 if (no < 0) // Ordinary character. |
| 7 | 2132 { |
| 798 | 2133 if (c == K_SPECIAL && src[0] != NUL && src[1] != NUL) |
| 2134 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2135 // Copy a special key as-is. |
| 798 | 2136 if (copy) |
| 2137 { | |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2138 if (dst + 3 > dest + destlen) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2139 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2140 iemsg("vim_regsub_both(): not enough space"); |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2141 return 0; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2142 } |
| 798 | 2143 *dst++ = c; |
| 2144 *dst++ = *src++; | |
| 2145 *dst++ = *src++; | |
| 2146 } | |
| 2147 else | |
| 2148 { | |
| 2149 dst += 3; | |
| 2150 src += 2; | |
| 2151 } | |
| 2152 continue; | |
| 2153 } | |
| 2154 | |
| 7 | 2155 if (c == '\\' && *src != NUL) |
| 2156 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2157 // Check for abbreviations -- webb |
| 7 | 2158 switch (*src) |
| 2159 { | |
| 2160 case 'r': c = CAR; ++src; break; | |
| 2161 case 'n': c = NL; ++src; break; | |
| 2162 case 't': c = TAB; ++src; break; | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2163 // Oh no! \e already has meaning in subst pat :-( |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2164 // case 'e': c = ESC; ++src; break; |
| 7 | 2165 case 'b': c = Ctrl_H; ++src; break; |
| 2166 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2167 // If "backslash" is TRUE the backslash will be removed |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2168 // later. Used to insert a literal CR. |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2169 default: if (flags & REGSUB_BACKSLASH) |
| 7 | 2170 { |
| 2171 if (copy) | |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2172 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2173 if (dst + 1 > dest + destlen) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2174 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2175 iemsg("vim_regsub_both(): not enough space"); |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2176 return 0; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2177 } |
| 7 | 2178 *dst = '\\'; |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2179 } |
| 7 | 2180 ++dst; |
| 2181 } | |
| 2182 c = *src++; | |
| 2183 } | |
| 2184 } | |
| 798 | 2185 else if (has_mbyte) |
| 2186 c = mb_ptr2char(src - 1); | |
| 7 | 2187 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2188 // Write to buffer, if copy is set. |
| 4244 | 2189 if (func_one != (fptr_T)NULL) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2190 // Turbo C complains without the typecast |
| 4244 | 2191 func_one = (fptr_T)(func_one(&cc, c)); |
| 2192 else if (func_all != (fptr_T)NULL) | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2193 // Turbo C complains without the typecast |
| 4244 | 2194 func_all = (fptr_T)(func_all(&cc, c)); |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2195 else // just copy |
| 772 | 2196 cc = c; |
| 2197 | |
| 2198 if (has_mbyte) | |
| 7 | 2199 { |
|
2307
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2200 int totlen = mb_ptr2len(src - 1); |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2201 int charlen = mb_char2len(cc); |
|
2307
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2202 |
| 7 | 2203 if (copy) |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2204 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2205 if (dst + charlen > dest + destlen) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2206 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2207 iemsg("vim_regsub_both(): not enough space"); |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2208 return 0; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2209 } |
| 772 | 2210 mb_char2bytes(cc, dst); |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2211 } |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2212 dst += charlen - 1; |
|
2307
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2213 if (enc_utf8) |
|
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2214 { |
|
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2215 int clen = utf_ptr2len(src - 1); |
|
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2216 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2217 // If the character length is shorter than "totlen", there |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2218 // are composing characters; copy them as-is. |
|
2307
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2219 if (clen < totlen) |
|
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2220 { |
|
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2221 if (copy) |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2222 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2223 if (dst + totlen - clen > dest + destlen) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2224 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2225 iemsg("vim_regsub_both(): not enough space"); |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2226 return 0; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2227 } |
|
2307
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2228 mch_memmove(dst + 1, src - 1 + clen, |
|
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2229 (size_t)(totlen - clen)); |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2230 } |
|
2307
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2231 dst += totlen - clen; |
|
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2232 } |
|
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2233 } |
|
81527f127fb1
Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents:
2247
diff
changeset
|
2234 src += totlen - 1; |
| 7 | 2235 } |
|
15603
639b8318472c
patch 8.1.0809: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
15555
diff
changeset
|
2236 else if (copy) |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2237 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2238 if (dst + 1 > dest + destlen) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2239 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2240 iemsg("vim_regsub_both(): not enough space"); |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2241 return 0; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2242 } |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2243 *dst = cc; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2244 } |
| 7 | 2245 dst++; |
| 2246 } | |
| 2247 else | |
| 2248 { | |
| 2249 if (REG_MULTI) | |
| 2250 { | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2251 clnum = rex.reg_mmatch->startpos[no].lnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2252 if (clnum < 0 || rex.reg_mmatch->endpos[no].lnum < 0) |
| 7 | 2253 s = NULL; |
| 2254 else | |
| 2255 { | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2256 s = reg_getline(clnum) + rex.reg_mmatch->startpos[no].col; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2257 if (rex.reg_mmatch->endpos[no].lnum == clnum) |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2258 len = rex.reg_mmatch->endpos[no].col |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2259 - rex.reg_mmatch->startpos[no].col; |
| 7 | 2260 else |
| 2261 len = (int)STRLEN(s); | |
| 2262 } | |
| 2263 } | |
| 2264 else | |
| 2265 { | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2266 s = rex.reg_match->startp[no]; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2267 if (rex.reg_match->endp[no] == NULL) |
| 7 | 2268 s = NULL; |
| 2269 else | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2270 len = (int)(rex.reg_match->endp[no] - s); |
| 7 | 2271 } |
| 2272 if (s != NULL) | |
| 2273 { | |
| 2274 for (;;) | |
| 2275 { | |
| 2276 if (len == 0) | |
| 2277 { | |
| 2278 if (REG_MULTI) | |
| 2279 { | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2280 if (rex.reg_mmatch->endpos[no].lnum == clnum) |
| 7 | 2281 break; |
| 2282 if (copy) | |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2283 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2284 if (dst + 1 > dest + destlen) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2285 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2286 iemsg("vim_regsub_both(): not enough space"); |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2287 return 0; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2288 } |
| 7 | 2289 *dst = CAR; |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2290 } |
| 7 | 2291 ++dst; |
| 2292 s = reg_getline(++clnum); | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2293 if (rex.reg_mmatch->endpos[no].lnum == clnum) |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2294 len = rex.reg_mmatch->endpos[no].col; |
| 7 | 2295 else |
| 2296 len = (int)STRLEN(s); | |
| 2297 } | |
| 2298 else | |
| 2299 break; | |
| 2300 } | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2301 else if (*s == NUL) // we hit NUL. |
| 7 | 2302 { |
| 2303 if (copy) | |
|
25306
078edc1821bf
patch 8.2.3190: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
2304 iemsg(_(e_damaged_match_string)); |
| 7 | 2305 goto exit; |
| 2306 } | |
| 2307 else | |
| 2308 { | |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2309 if ((flags & REGSUB_BACKSLASH) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2310 && (*s == CAR || *s == '\\')) |
| 7 | 2311 { |
| 2312 /* | |
| 2313 * Insert a backslash in front of a CR, otherwise | |
| 2314 * it will be replaced by a line break. | |
| 2315 * Number of backslashes will be halved later, | |
| 2316 * double them here. | |
| 2317 */ | |
| 2318 if (copy) | |
| 2319 { | |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2320 if (dst + 2 > dest + destlen) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2321 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2322 iemsg("vim_regsub_both(): not enough space"); |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2323 return 0; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2324 } |
| 7 | 2325 dst[0] = '\\'; |
| 2326 dst[1] = *s; | |
| 2327 } | |
| 2328 dst += 2; | |
| 2329 } | |
| 2330 else | |
| 2331 { | |
| 772 | 2332 if (has_mbyte) |
| 2333 c = mb_ptr2char(s); | |
| 2334 else | |
| 2335 c = *s; | |
| 2336 | |
| 4244 | 2337 if (func_one != (fptr_T)NULL) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2338 // Turbo C complains without the typecast |
| 4244 | 2339 func_one = (fptr_T)(func_one(&cc, c)); |
| 2340 else if (func_all != (fptr_T)NULL) | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2341 // Turbo C complains without the typecast |
| 4244 | 2342 func_all = (fptr_T)(func_all(&cc, c)); |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2343 else // just copy |
| 772 | 2344 cc = c; |
| 2345 | |
| 2346 if (has_mbyte) | |
| 7 | 2347 { |
| 1332 | 2348 int l; |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2349 int charlen; |
| 1332 | 2350 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2351 // Copy composing characters separately, one |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2352 // at a time. |
| 1332 | 2353 if (enc_utf8) |
| 2354 l = utf_ptr2len(s) - 1; | |
| 2355 else | |
| 2356 l = mb_ptr2len(s) - 1; | |
| 772 | 2357 |
| 2358 s += l; | |
| 2359 len -= l; | |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2360 charlen = mb_char2len(cc); |
| 772 | 2361 if (copy) |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2362 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2363 if (dst + charlen > dest + destlen) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2364 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2365 iemsg("vim_regsub_both(): not enough space"); |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2366 return 0; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2367 } |
| 772 | 2368 mb_char2bytes(cc, dst); |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2369 } |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2370 dst += charlen - 1; |
| 7 | 2371 } |
|
15603
639b8318472c
patch 8.1.0809: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
15555
diff
changeset
|
2372 else if (copy) |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2373 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2374 if (dst + 1 > dest + destlen) |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2375 { |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2376 iemsg("vim_regsub_both(): not enough space"); |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2377 return 0; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2378 } |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2379 *dst = cc; |
|
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2380 } |
| 772 | 2381 dst++; |
| 7 | 2382 } |
| 772 | 2383 |
| 7 | 2384 ++s; |
| 2385 --len; | |
| 2386 } | |
| 2387 } | |
| 2388 } | |
| 2389 no = -1; | |
| 2390 } | |
| 2391 } | |
| 2392 if (copy) | |
| 2393 *dst = NUL; | |
| 2394 | |
| 2395 exit: | |
| 2396 return (int)((dst - dest) + 1); | |
| 2397 } | |
| 2398 | |
| 2399 #ifdef FEAT_EVAL | |
| 2400 /* | |
| 2011 | 2401 * Call reg_getline() with the line numbers from the submatch. If a |
| 2402 * substitute() was used the reg_maxline and other values have been | |
| 2403 * overwritten. | |
| 2404 */ | |
| 2405 static char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2406 reg_getline_submatch(linenr_T lnum) |
| 2011 | 2407 { |
| 2408 char_u *s; | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2409 linenr_T save_first = rex.reg_firstlnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2410 linenr_T save_max = rex.reg_maxline; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2411 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2412 rex.reg_firstlnum = rsm.sm_firstlnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2413 rex.reg_maxline = rsm.sm_maxline; |
| 2011 | 2414 |
| 2415 s = reg_getline(lnum); | |
| 2416 | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2417 rex.reg_firstlnum = save_first; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2418 rex.reg_maxline = save_max; |
| 2011 | 2419 return s; |
| 2420 } | |
| 2421 | |
| 2422 /* | |
| 1209 | 2423 * Used for the submatch() function: get the string from the n'th submatch in |
| 7 | 2424 * allocated memory. |
| 2425 * Returns NULL when not in a ":s" command and for a non-existing submatch. | |
| 2426 */ | |
| 2427 char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2428 reg_submatch(int no) |
| 7 | 2429 { |
| 2430 char_u *retval = NULL; | |
| 2431 char_u *s; | |
| 2432 int len; | |
| 2433 int round; | |
| 2434 linenr_T lnum; | |
| 2435 | |
| 840 | 2436 if (!can_f_submatch || no < 0) |
| 7 | 2437 return NULL; |
| 2438 | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2439 if (rsm.sm_match == NULL) |
| 7 | 2440 { |
| 2441 /* | |
| 2442 * First round: compute the length and allocate memory. | |
| 2443 * Second round: copy the text. | |
| 2444 */ | |
| 2445 for (round = 1; round <= 2; ++round) | |
| 2446 { | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2447 lnum = rsm.sm_mmatch->startpos[no].lnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2448 if (lnum < 0 || rsm.sm_mmatch->endpos[no].lnum < 0) |
| 7 | 2449 return NULL; |
| 2450 | |
|
16040
13ab270dd68d
patch 8.1.1025: checking NULL pointer after addition
Bram Moolenaar <Bram@vim.org>
parents:
15967
diff
changeset
|
2451 s = reg_getline_submatch(lnum); |
|
13ab270dd68d
patch 8.1.1025: checking NULL pointer after addition
Bram Moolenaar <Bram@vim.org>
parents:
15967
diff
changeset
|
2452 if (s == NULL) // anti-crash check, cannot happen? |
| 7 | 2453 break; |
|
16040
13ab270dd68d
patch 8.1.1025: checking NULL pointer after addition
Bram Moolenaar <Bram@vim.org>
parents:
15967
diff
changeset
|
2454 s += rsm.sm_mmatch->startpos[no].col; |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2455 if (rsm.sm_mmatch->endpos[no].lnum == lnum) |
| 7 | 2456 { |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2457 // Within one line: take form start to end col. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2458 len = rsm.sm_mmatch->endpos[no].col |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2459 - rsm.sm_mmatch->startpos[no].col; |
| 7 | 2460 if (round == 2) |
| 418 | 2461 vim_strncpy(retval, s, len); |
| 7 | 2462 ++len; |
| 2463 } | |
| 2464 else | |
| 2465 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2466 // Multiple lines: take start line from start col, middle |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2467 // lines completely and end line up to end col. |
| 7 | 2468 len = (int)STRLEN(s); |
| 2469 if (round == 2) | |
| 2470 { | |
| 2471 STRCPY(retval, s); | |
| 2472 retval[len] = '\n'; | |
| 2473 } | |
| 2474 ++len; | |
| 2475 ++lnum; | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2476 while (lnum < rsm.sm_mmatch->endpos[no].lnum) |
| 7 | 2477 { |
| 2011 | 2478 s = reg_getline_submatch(lnum++); |
| 7 | 2479 if (round == 2) |
| 2480 STRCPY(retval + len, s); | |
| 2481 len += (int)STRLEN(s); | |
| 2482 if (round == 2) | |
| 2483 retval[len] = '\n'; | |
| 2484 ++len; | |
| 2485 } | |
| 2486 if (round == 2) | |
| 2011 | 2487 STRNCPY(retval + len, reg_getline_submatch(lnum), |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2488 rsm.sm_mmatch->endpos[no].col); |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2489 len += rsm.sm_mmatch->endpos[no].col; |
| 7 | 2490 if (round == 2) |
| 2491 retval[len] = NUL; | |
| 2492 ++len; | |
| 2493 } | |
| 2494 | |
| 840 | 2495 if (retval == NULL) |
| 7 | 2496 { |
|
16768
695d9ef00b03
patch 8.1.1386: unessesary type casts for lalloc()
Bram Moolenaar <Bram@vim.org>
parents:
16764
diff
changeset
|
2497 retval = alloc(len); |
| 840 | 2498 if (retval == NULL) |
| 7 | 2499 return NULL; |
| 2500 } | |
| 2501 } | |
| 2502 } | |
| 2503 else | |
| 2504 { | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2505 s = rsm.sm_match->startp[no]; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2506 if (s == NULL || rsm.sm_match->endp[no] == NULL) |
| 7 | 2507 retval = NULL; |
| 2508 else | |
|
20830
9064044fd4f6
patch 8.2.0967: unnecessary type casts for vim_strnsave()
Bram Moolenaar <Bram@vim.org>
parents:
20113
diff
changeset
|
2509 retval = vim_strnsave(s, rsm.sm_match->endp[no] - s); |
| 7 | 2510 } |
| 2511 | |
| 2512 return retval; | |
| 2513 } | |
| 5794 | 2514 |
| 2515 /* | |
| 2516 * Used for the submatch() function with the optional non-zero argument: get | |
| 2517 * the list of strings from the n'th submatch in allocated memory with NULs | |
| 2518 * represented in NLs. | |
| 2519 * Returns a list of allocated strings. Returns NULL when not in a ":s" | |
| 2520 * command, for a non-existing submatch and for any error. | |
| 2521 */ | |
| 2522 list_T * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2523 reg_submatch_list(int no) |
| 5794 | 2524 { |
| 2525 char_u *s; | |
| 2526 linenr_T slnum; | |
| 2527 linenr_T elnum; | |
| 2528 colnr_T scol; | |
| 2529 colnr_T ecol; | |
| 2530 int i; | |
| 2531 list_T *list; | |
| 2532 int error = FALSE; | |
| 2533 | |
| 2534 if (!can_f_submatch || no < 0) | |
| 2535 return NULL; | |
| 2536 | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2537 if (rsm.sm_match == NULL) |
| 5794 | 2538 { |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2539 slnum = rsm.sm_mmatch->startpos[no].lnum; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2540 elnum = rsm.sm_mmatch->endpos[no].lnum; |
| 5794 | 2541 if (slnum < 0 || elnum < 0) |
| 2542 return NULL; | |
| 2543 | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2544 scol = rsm.sm_mmatch->startpos[no].col; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2545 ecol = rsm.sm_mmatch->endpos[no].col; |
| 5794 | 2546 |
| 2547 list = list_alloc(); | |
| 2548 if (list == NULL) | |
| 2549 return NULL; | |
| 2550 | |
| 2551 s = reg_getline_submatch(slnum) + scol; | |
| 2552 if (slnum == elnum) | |
| 2553 { | |
| 2554 if (list_append_string(list, s, ecol - scol) == FAIL) | |
| 2555 error = TRUE; | |
| 2556 } | |
| 2557 else | |
| 2558 { | |
| 2559 if (list_append_string(list, s, -1) == FAIL) | |
| 2560 error = TRUE; | |
| 2561 for (i = 1; i < elnum - slnum; i++) | |
| 2562 { | |
| 2563 s = reg_getline_submatch(slnum + i); | |
| 2564 if (list_append_string(list, s, -1) == FAIL) | |
| 2565 error = TRUE; | |
| 2566 } | |
| 2567 s = reg_getline_submatch(elnum); | |
| 2568 if (list_append_string(list, s, ecol) == FAIL) | |
| 2569 error = TRUE; | |
| 2570 } | |
| 2571 } | |
| 2572 else | |
| 2573 { | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2574 s = rsm.sm_match->startp[no]; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2575 if (s == NULL || rsm.sm_match->endp[no] == NULL) |
| 5794 | 2576 return NULL; |
| 2577 list = list_alloc(); | |
| 2578 if (list == NULL) | |
| 2579 return NULL; | |
| 2580 if (list_append_string(list, s, | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2581 (int)(rsm.sm_match->endp[no] - s)) == FAIL) |
| 5794 | 2582 error = TRUE; |
| 2583 } | |
| 2584 | |
| 2585 if (error) | |
| 2586 { | |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8825
diff
changeset
|
2587 list_free(list); |
| 5794 | 2588 return NULL; |
| 2589 } | |
|
22143
3ec9e302ec94
patch 8.2.1621: crash when using submatch(0, 1) in substitute()
Bram Moolenaar <Bram@vim.org>
parents:
20996
diff
changeset
|
2590 ++list->lv_refcount; |
| 5794 | 2591 return list; |
| 2592 } | |
| 7 | 2593 #endif |
| 4444 | 2594 |
|
19405
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2595 /* |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2596 * Initialize the values used for matching against multiple lines |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2597 */ |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2598 static void |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2599 init_regexec_multi( |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2600 regmmatch_T *rmp, |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2601 win_T *win, // window in which to search or NULL |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2602 buf_T *buf, // buffer in which to search |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2603 linenr_T lnum) // nr of line to start looking for match |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2604 { |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2605 rex.reg_match = NULL; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2606 rex.reg_mmatch = rmp; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2607 rex.reg_buf = buf; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2608 rex.reg_win = win; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2609 rex.reg_firstlnum = lnum; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2610 rex.reg_maxline = rex.reg_buf->b_ml.ml_line_count - lnum; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2611 rex.reg_line_lbr = FALSE; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2612 rex.reg_ic = rmp->rmm_ic; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2613 rex.reg_icombine = FALSE; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2614 rex.reg_maxcol = rmp->rmm_maxcol; |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2615 } |
|
08f4dc2ba716
patch 8.2.0260: several lines of code are duplicated
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
2616 |
|
18019
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2617 #include "regexp_bt.c" |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2618 |
| 4444 | 2619 static regengine_T bt_regengine = |
| 2620 { | |
| 2621 bt_regcomp, | |
|
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2622 bt_regfree, |
| 4444 | 2623 bt_regexec_nl, |
| 6328 | 2624 bt_regexec_multi, |
| 4444 | 2625 }; |
| 2626 | |
| 2627 #include "regexp_nfa.c" | |
| 2628 | |
| 2629 static regengine_T nfa_regengine = | |
| 2630 { | |
| 2631 nfa_regcomp, | |
|
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2632 nfa_regfree, |
| 4444 | 2633 nfa_regexec_nl, |
| 6328 | 2634 nfa_regexec_multi, |
| 4444 | 2635 }; |
| 2636 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2637 // Which regexp engine to use? Needed for vim_regcomp(). |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2638 // Must match with 'regexpengine'. |
| 4444 | 2639 static int regexp_engine = 0; |
| 6328 | 2640 |
| 4444 | 2641 #ifdef DEBUG |
| 2642 static char_u regname[][30] = { | |
| 2643 "AUTOMATIC Regexp Engine", | |
|
4579
7a2be4a39423
updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents:
4505
diff
changeset
|
2644 "BACKTRACKING Regexp Engine", |
| 4444 | 2645 "NFA Regexp Engine" |
| 2646 }; | |
| 2647 #endif | |
| 2648 | |
| 2649 /* | |
| 2650 * Compile a regular expression into internal code. | |
|
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2651 * Returns the program in allocated memory. |
|
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2652 * Use vim_regfree() to free the memory. |
|
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2653 * Returns NULL for an error. |
| 4444 | 2654 */ |
| 2655 regprog_T * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2656 vim_regcomp(char_u *expr_arg, int re_flags) |
| 4444 | 2657 { |
| 2658 regprog_T *prog = NULL; | |
| 2659 char_u *expr = expr_arg; | |
|
18949
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
2660 int called_emsg_before; |
| 4444 | 2661 |
| 2662 regexp_engine = p_re; | |
| 2663 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2664 // Check for prefix "\%#=", that sets the regexp engine |
| 4444 | 2665 if (STRNCMP(expr, "\\%#=", 4) == 0) |
| 2666 { | |
| 2667 int newengine = expr[4] - '0'; | |
| 2668 | |
| 2669 if (newengine == AUTOMATIC_ENGINE | |
| 2670 || newengine == BACKTRACKING_ENGINE | |
| 2671 || newengine == NFA_ENGINE) | |
| 2672 { | |
| 2673 regexp_engine = expr[4] - '0'; | |
| 2674 expr += 5; | |
| 2675 #ifdef DEBUG | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15339
diff
changeset
|
2676 smsg("New regexp mode selected (%d): %s", |
| 5897 | 2677 regexp_engine, regname[newengine]); |
| 4444 | 2678 #endif |
| 2679 } | |
| 2680 else | |
| 2681 { | |
|
26962
85866e069c24
patch 8.2.4010: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26958
diff
changeset
|
2682 emsg(_(e_percent_hash_can_only_be_followed_by_zero_one_two_automatic_engine_will_be_used)); |
| 4444 | 2683 regexp_engine = AUTOMATIC_ENGINE; |
| 2684 } | |
| 2685 } | |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2686 #ifdef DEBUG |
| 4444 | 2687 bt_regengine.expr = expr; |
| 2688 nfa_regengine.expr = expr; | |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2689 #endif |
|
15856
e44b7caaf373
patch 8.1.0935: old regexp engine may use invalid buffer
Bram Moolenaar <Bram@vim.org>
parents:
15854
diff
changeset
|
2690 // reg_iswordc() uses rex.reg_buf |
|
e44b7caaf373
patch 8.1.0935: old regexp engine may use invalid buffer
Bram Moolenaar <Bram@vim.org>
parents:
15854
diff
changeset
|
2691 rex.reg_buf = curbuf; |
| 4444 | 2692 |
| 2693 /* | |
| 2694 * First try the NFA engine, unless backtracking was requested. | |
| 2695 */ | |
|
18949
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
2696 called_emsg_before = called_emsg; |
| 4444 | 2697 if (regexp_engine != BACKTRACKING_ENGINE) |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
12752
diff
changeset
|
2698 prog = nfa_regengine.regcomp(expr, |
| 6533 | 2699 re_flags + (regexp_engine == AUTOMATIC_ENGINE ? RE_AUTO : 0)); |
| 4444 | 2700 else |
| 2701 prog = bt_regengine.regcomp(expr, re_flags); | |
| 2702 | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2703 // Check for error compiling regexp with initial engine. |
| 6328 | 2704 if (prog == NULL) |
| 4444 | 2705 { |
| 4460 | 2706 #ifdef BT_REGEXP_DEBUG_LOG |
|
23471
a7cdfc8e4b6e
patch 8.2.2278: falling back to old regexp engine can some patterns
Bram Moolenaar <Bram@vim.org>
parents:
22167
diff
changeset
|
2707 if (regexp_engine == BACKTRACKING_ENGINE) // debugging log for BT engine |
| 4444 | 2708 { |
| 2709 FILE *f; | |
| 4460 | 2710 f = fopen(BT_REGEXP_DEBUG_LOG_NAME, "a"); |
| 4444 | 2711 if (f) |
| 2712 { | |
|
4762
47906f888725
updated for version 7.3.1128
Bram Moolenaar <bram@vim.org>
parents:
4760
diff
changeset
|
2713 fprintf(f, "Syntax error in \"%s\"\n", expr); |
| 4444 | 2714 fclose(f); |
| 2715 } | |
| 2716 else | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15339
diff
changeset
|
2717 semsg("(NFA) Could not open \"%s\" to write !!!", |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
12752
diff
changeset
|
2718 BT_REGEXP_DEBUG_LOG_NAME); |
| 4444 | 2719 } |
| 2720 #endif | |
| 2721 /* | |
| 6328 | 2722 * If the NFA engine failed, try the backtracking engine. |
| 6533 | 2723 * The NFA engine also fails for patterns that it can't handle well |
| 2724 * but are still valid patterns, thus a retry should work. | |
|
15935
ff00d207cc5e
patch 8.1.0973: pattern with syntax error gives threee error messages
Bram Moolenaar <Bram@vim.org>
parents:
15860
diff
changeset
|
2725 * But don't try if an error message was given. |
| 6533 | 2726 */ |
|
18949
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
2727 if (regexp_engine == AUTOMATIC_ENGINE |
|
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
2728 && called_emsg == called_emsg_before) |
| 6328 | 2729 { |
| 6533 | 2730 regexp_engine = BACKTRACKING_ENGINE; |
|
23471
a7cdfc8e4b6e
patch 8.2.2278: falling back to old regexp engine can some patterns
Bram Moolenaar <Bram@vim.org>
parents:
22167
diff
changeset
|
2731 #ifdef FEAT_EVAL |
|
a7cdfc8e4b6e
patch 8.2.2278: falling back to old regexp engine can some patterns
Bram Moolenaar <Bram@vim.org>
parents:
22167
diff
changeset
|
2732 report_re_switch(expr); |
|
a7cdfc8e4b6e
patch 8.2.2278: falling back to old regexp engine can some patterns
Bram Moolenaar <Bram@vim.org>
parents:
22167
diff
changeset
|
2733 #endif |
|
4762
47906f888725
updated for version 7.3.1128
Bram Moolenaar <bram@vim.org>
parents:
4760
diff
changeset
|
2734 prog = bt_regengine.regcomp(expr, re_flags); |
| 6328 | 2735 } |
|
4762
47906f888725
updated for version 7.3.1128
Bram Moolenaar <bram@vim.org>
parents:
4760
diff
changeset
|
2736 } |
| 4444 | 2737 |
| 6328 | 2738 if (prog != NULL) |
| 2739 { | |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2740 // Store the info needed to call regcomp() again when the engine turns |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2741 // out to be very slow when executing it. |
| 6328 | 2742 prog->re_engine = regexp_engine; |
| 2743 prog->re_flags = re_flags; | |
| 2744 } | |
| 2745 | |
| 4444 | 2746 return prog; |
| 2747 } | |
| 2748 | |
| 2749 /* | |
|
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2750 * Free a compiled regexp program, returned by vim_regcomp(). |
|
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2751 */ |
|
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2752 void |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2753 vim_regfree(regprog_T *prog) |
|
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2754 { |
|
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2755 if (prog != NULL) |
|
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2756 prog->engine->regfree(prog); |
|
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2757 } |
|
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2758 |
|
18019
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2759 #if defined(EXITFREE) || defined(PROTO) |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2760 void |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2761 free_regexp_stuff(void) |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2762 { |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2763 ga_clear(®stack); |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2764 ga_clear(&backpos); |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2765 vim_free(reg_tofree); |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2766 vim_free(reg_prev_sub); |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2767 } |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2768 #endif |
|
68fd5296bf73
patch 8.1.2005: the regexp.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2769 |
| 6328 | 2770 #ifdef FEAT_EVAL |
| 2771 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2772 report_re_switch(char_u *pat) |
| 6328 | 2773 { |
| 2774 if (p_verbose > 0) | |
| 2775 { | |
| 2776 verbose_enter(); | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15480
diff
changeset
|
2777 msg_puts(_("Switching to backtracking RE engine for pattern: ")); |
|
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15480
diff
changeset
|
2778 msg_puts((char *)pat); |
| 6328 | 2779 verbose_leave(); |
| 2780 } | |
| 2781 } | |
| 2782 #endif | |
| 2783 | |
|
26336
a2e6da79274d
patch 8.2.3699: the +title feature adds a lot of #ifdef but little code
Bram Moolenaar <Bram@vim.org>
parents:
26161
diff
changeset
|
2784 #if defined(FEAT_X11) || defined(PROTO) |
|
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4770
diff
changeset
|
2785 /* |
|
15306
7fff2d18e191
patch 8.1.0661: clipboard regexp might be used recursively
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2786 * Return whether "prog" is currently being executed. |
|
7fff2d18e191
patch 8.1.0661: clipboard regexp might be used recursively
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2787 */ |
|
7fff2d18e191
patch 8.1.0661: clipboard regexp might be used recursively
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2788 int |
|
7fff2d18e191
patch 8.1.0661: clipboard regexp might be used recursively
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2789 regprog_in_use(regprog_T *prog) |
|
7fff2d18e191
patch 8.1.0661: clipboard regexp might be used recursively
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2790 { |
|
7fff2d18e191
patch 8.1.0661: clipboard regexp might be used recursively
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2791 return prog->re_in_use; |
|
7fff2d18e191
patch 8.1.0661: clipboard regexp might be used recursively
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2792 } |
|
15555
d89c5b339c2a
patch 8.1.0785: depending on the configuration some functions are unused
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
2793 #endif |
|
15306
7fff2d18e191
patch 8.1.0661: clipboard regexp might be used recursively
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2794 |
|
7fff2d18e191
patch 8.1.0661: clipboard regexp might be used recursively
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2795 /* |
| 4444 | 2796 * Match a regexp against a string. |
|
29048
c98fc7a4dde4
patch 8.2.5046: vim_regsub() can overwrite the destination
Bram Moolenaar <Bram@vim.org>
parents:
28692
diff
changeset
|
2797 * "rmp->regprog" must be a compiled regexp as returned by vim_regcomp(). |
| 6375 | 2798 * Note: "rmp->regprog" may be freed and changed. |
| 4444 | 2799 * Uses curbuf for line count and 'iskeyword'. |
| 6328 | 2800 * When "nl" is TRUE consider a "\n" in "line" to be a line break. |
| 4444 | 2801 * |
| 2802 * Return TRUE if there is a match, FALSE if not. | |
| 2803 */ | |
| 6328 | 2804 static int |
|
11529
998d2cf59caa
patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents:
11527
diff
changeset
|
2805 vim_regexec_string( |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2806 regmatch_T *rmp, |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2807 char_u *line, // string to match against |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2808 colnr_T col, // column to start looking for match |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2809 int nl) |
| 6328 | 2810 { |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2811 int result; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2812 regexec_T rex_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2813 int rex_in_use_save = rex_in_use; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2814 |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2815 // Cannot use the same prog recursively, it contains state. |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2816 if (rmp->regprog->re_in_use) |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2817 { |
|
26958
d92e0d85923f
patch 8.2.4008: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26952
diff
changeset
|
2818 emsg(_(e_cannot_use_pattern_recursively)); |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2819 return FALSE; |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2820 } |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2821 rmp->regprog->re_in_use = TRUE; |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2822 |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2823 if (rex_in_use) |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2824 // Being called recursively, save the state. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2825 rex_save = rex; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2826 rex_in_use = TRUE; |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2827 |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2828 rex.reg_startp = NULL; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2829 rex.reg_endp = NULL; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2830 rex.reg_startpos = NULL; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2831 rex.reg_endpos = NULL; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2832 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2833 result = rmp->regprog->engine->regexec_nl(rmp, line, col, nl); |
|
14358
72d506d94f3f
patch 8.1.0194: possibly use of NULL pointer
Christian Brabandt <cb@256bit.org>
parents:
14354
diff
changeset
|
2834 rmp->regprog->re_in_use = FALSE; |
| 6328 | 2835 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2836 // NFA engine aborted because it's very slow. |
| 6328 | 2837 if (rmp->regprog->re_engine == AUTOMATIC_ENGINE |
| 2838 && result == NFA_TOO_EXPENSIVE) | |
| 2839 { | |
| 2840 int save_p_re = p_re; | |
| 2841 int re_flags = rmp->regprog->re_flags; | |
| 2842 char_u *pat = vim_strsave(((nfa_regprog_T *)rmp->regprog)->pattern); | |
| 2843 | |
| 2844 p_re = BACKTRACKING_ENGINE; | |
| 2845 vim_regfree(rmp->regprog); | |
| 2846 if (pat != NULL) | |
| 2847 { | |
| 2848 #ifdef FEAT_EVAL | |
| 2849 report_re_switch(pat); | |
| 2850 #endif | |
| 2851 rmp->regprog = vim_regcomp(pat, re_flags); | |
| 2852 if (rmp->regprog != NULL) | |
|
14358
72d506d94f3f
patch 8.1.0194: possibly use of NULL pointer
Christian Brabandt <cb@256bit.org>
parents:
14354
diff
changeset
|
2853 { |
|
72d506d94f3f
patch 8.1.0194: possibly use of NULL pointer
Christian Brabandt <cb@256bit.org>
parents:
14354
diff
changeset
|
2854 rmp->regprog->re_in_use = TRUE; |
| 6328 | 2855 result = rmp->regprog->engine->regexec_nl(rmp, line, col, nl); |
|
14358
72d506d94f3f
patch 8.1.0194: possibly use of NULL pointer
Christian Brabandt <cb@256bit.org>
parents:
14354
diff
changeset
|
2856 rmp->regprog->re_in_use = FALSE; |
|
72d506d94f3f
patch 8.1.0194: possibly use of NULL pointer
Christian Brabandt <cb@256bit.org>
parents:
14354
diff
changeset
|
2857 } |
| 6328 | 2858 vim_free(pat); |
| 2859 } | |
| 2860 | |
| 2861 p_re = save_p_re; | |
| 2862 } | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2863 |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2864 rex_in_use = rex_in_use_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2865 if (rex_in_use) |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2866 rex = rex_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2867 |
| 6390 | 2868 return result > 0; |
| 6328 | 2869 } |
| 2870 | |
| 6375 | 2871 /* |
| 2872 * Note: "*prog" may be freed and changed. | |
| 6390 | 2873 * Return TRUE if there is a match, FALSE if not. |
| 6375 | 2874 */ |
| 2875 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2876 vim_regexec_prog( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2877 regprog_T **prog, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2878 int ignore_case, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2879 char_u *line, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2880 colnr_T col) |
| 6375 | 2881 { |
|
11529
998d2cf59caa
patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents:
11527
diff
changeset
|
2882 int r; |
|
998d2cf59caa
patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents:
11527
diff
changeset
|
2883 regmatch_T regmatch; |
| 6375 | 2884 |
| 2885 regmatch.regprog = *prog; | |
| 2886 regmatch.rm_ic = ignore_case; | |
|
11529
998d2cf59caa
patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents:
11527
diff
changeset
|
2887 r = vim_regexec_string(®match, line, col, FALSE); |
| 6375 | 2888 *prog = regmatch.regprog; |
| 2889 return r; | |
| 2890 } | |
| 2891 | |
| 2892 /* | |
| 2893 * Note: "rmp->regprog" may be freed and changed. | |
| 6390 | 2894 * Return TRUE if there is a match, FALSE if not. |
| 6375 | 2895 */ |
| 4444 | 2896 int |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2897 vim_regexec(regmatch_T *rmp, char_u *line, colnr_T col) |
| 4444 | 2898 { |
|
11529
998d2cf59caa
patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents:
11527
diff
changeset
|
2899 return vim_regexec_string(rmp, line, col, FALSE); |
| 4444 | 2900 } |
| 2901 | |
| 2902 /* | |
| 2903 * Like vim_regexec(), but consider a "\n" in "line" to be a line break. | |
| 6375 | 2904 * Note: "rmp->regprog" may be freed and changed. |
| 6390 | 2905 * Return TRUE if there is a match, FALSE if not. |
| 4444 | 2906 */ |
| 2907 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2908 vim_regexec_nl(regmatch_T *rmp, char_u *line, colnr_T col) |
| 4444 | 2909 { |
|
11529
998d2cf59caa
patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents:
11527
diff
changeset
|
2910 return vim_regexec_string(rmp, line, col, TRUE); |
| 4444 | 2911 } |
| 2912 | |
| 2913 /* | |
| 2914 * Match a regexp against multiple lines. | |
|
14161
7cac4646c552
patch 8.1.0098: segfault when pattern with z() is very slow
Christian Brabandt <cb@256bit.org>
parents:
13286
diff
changeset
|
2915 * "rmp->regprog" must be a compiled regexp as returned by vim_regcomp(). |
|
7cac4646c552
patch 8.1.0098: segfault when pattern with z() is very slow
Christian Brabandt <cb@256bit.org>
parents:
13286
diff
changeset
|
2916 * Note: "rmp->regprog" may be freed and changed, even set to NULL. |
| 4444 | 2917 * Uses curbuf for line count and 'iskeyword'. |
| 2918 * | |
| 2919 * Return zero if there is no match. Return number of lines contained in the | |
| 2920 * match otherwise. | |
| 2921 */ | |
| 2922 long | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2923 vim_regexec_multi( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
2924 regmmatch_T *rmp, |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2925 win_T *win, // window in which to search or NULL |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2926 buf_T *buf, // buffer in which to search |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2927 linenr_T lnum, // nr of line to start looking for match |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2928 colnr_T col, // column to start looking for match |
|
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2929 int *timed_out) // flag is set when timeout limit reached |
| 4444 | 2930 { |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2931 int result; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2932 regexec_T rex_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2933 int rex_in_use_save = rex_in_use; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2934 |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2935 // Cannot use the same prog recursively, it contains state. |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2936 if (rmp->regprog->re_in_use) |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2937 { |
|
26958
d92e0d85923f
patch 8.2.4008: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26952
diff
changeset
|
2938 emsg(_(e_cannot_use_pattern_recursively)); |
|
14354
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2939 return FALSE; |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2940 } |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2941 rmp->regprog->re_in_use = TRUE; |
|
ffd834f893aa
patch 8.1.0192: executing regexp recursively fails with a crash
Christian Brabandt <cb@256bit.org>
parents:
14169
diff
changeset
|
2942 |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2943 if (rex_in_use) |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2944 // Being called recursively, save the state. |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2945 rex_save = rex; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2946 rex_in_use = TRUE; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2947 |
|
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11482
diff
changeset
|
2948 result = rmp->regprog->engine->regexec_multi( |
|
29071
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
2949 rmp, win, buf, lnum, col, timed_out); |
|
14358
72d506d94f3f
patch 8.1.0194: possibly use of NULL pointer
Christian Brabandt <cb@256bit.org>
parents:
14354
diff
changeset
|
2950 rmp->regprog->re_in_use = FALSE; |
| 6328 | 2951 |
|
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18576
diff
changeset
|
2952 // NFA engine aborted because it's very slow. |
| 6328 | 2953 if (rmp->regprog->re_engine == AUTOMATIC_ENGINE |
| 2954 && result == NFA_TOO_EXPENSIVE) | |
| 2955 { | |
| 2956 int save_p_re = p_re; | |
| 2957 int re_flags = rmp->regprog->re_flags; | |
| 2958 char_u *pat = vim_strsave(((nfa_regprog_T *)rmp->regprog)->pattern); | |
| 2959 | |
| 2960 p_re = BACKTRACKING_ENGINE; | |
| 2961 if (pat != NULL) | |
| 2962 { | |
|
28323
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2963 regprog_T *prev_prog = rmp->regprog; |
|
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2964 |
| 6328 | 2965 #ifdef FEAT_EVAL |
| 2966 report_re_switch(pat); | |
| 2967 #endif | |
|
14169
42a9178374d1
patch 8.1.0102: cannot build without syntax highlighting
Christian Brabandt <cb@256bit.org>
parents:
14161
diff
changeset
|
2968 #ifdef FEAT_SYN_HL |
|
14161
7cac4646c552
patch 8.1.0098: segfault when pattern with z() is very slow
Christian Brabandt <cb@256bit.org>
parents:
13286
diff
changeset
|
2969 // checking for \z misuse was already done when compiling for NFA, |
|
7cac4646c552
patch 8.1.0098: segfault when pattern with z() is very slow
Christian Brabandt <cb@256bit.org>
parents:
13286
diff
changeset
|
2970 // allow all here |
|
7cac4646c552
patch 8.1.0098: segfault when pattern with z() is very slow
Christian Brabandt <cb@256bit.org>
parents:
13286
diff
changeset
|
2971 reg_do_extmatch = REX_ALL; |
|
14169
42a9178374d1
patch 8.1.0102: cannot build without syntax highlighting
Christian Brabandt <cb@256bit.org>
parents:
14161
diff
changeset
|
2972 #endif |
| 6328 | 2973 rmp->regprog = vim_regcomp(pat, re_flags); |
|
14169
42a9178374d1
patch 8.1.0102: cannot build without syntax highlighting
Christian Brabandt <cb@256bit.org>
parents:
14161
diff
changeset
|
2974 #ifdef FEAT_SYN_HL |
|
14161
7cac4646c552
patch 8.1.0098: segfault when pattern with z() is very slow
Christian Brabandt <cb@256bit.org>
parents:
13286
diff
changeset
|
2975 reg_do_extmatch = 0; |
|
14169
42a9178374d1
patch 8.1.0102: cannot build without syntax highlighting
Christian Brabandt <cb@256bit.org>
parents:
14161
diff
changeset
|
2976 #endif |
|
28323
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2977 if (rmp->regprog == NULL) |
|
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2978 { |
|
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2979 // Somehow compiling the pattern failed now, put back the |
|
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2980 // previous one to avoid "regprog" becoming NULL. |
|
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2981 rmp->regprog = prev_prog; |
|
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2982 } |
|
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2983 else |
|
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2984 { |
|
82f34ca7b3b7
patch 8.2.4687: "vimgrep /%v/ *" may cause a crash
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
2985 vim_regfree(prev_prog); |
|
14161
7cac4646c552
patch 8.1.0098: segfault when pattern with z() is very slow
Christian Brabandt <cb@256bit.org>
parents:
13286
diff
changeset
|
2986 |
|
14358
72d506d94f3f
patch 8.1.0194: possibly use of NULL pointer
Christian Brabandt <cb@256bit.org>
parents:
14354
diff
changeset
|
2987 rmp->regprog->re_in_use = TRUE; |
| 6328 | 2988 result = rmp->regprog->engine->regexec_multi( |
|
29071
b90bca860b5a
patch 8.2.5057: using gettimeofday() for timeout is very inefficient
Bram Moolenaar <Bram@vim.org>
parents:
29048
diff
changeset
|
2989 rmp, win, buf, lnum, col, timed_out); |
|
14358
72d506d94f3f
patch 8.1.0194: possibly use of NULL pointer
Christian Brabandt <cb@256bit.org>
parents:
14354
diff
changeset
|
2990 rmp->regprog->re_in_use = FALSE; |
|
72d506d94f3f
patch 8.1.0194: possibly use of NULL pointer
Christian Brabandt <cb@256bit.org>
parents:
14354
diff
changeset
|
2991 } |
| 6328 | 2992 vim_free(pat); |
| 2993 } | |
| 2994 p_re = save_p_re; | |
| 2995 } | |
| 2996 | |
|
10245
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2997 rex_in_use = rex_in_use_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2998 if (rex_in_use) |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
2999 rex = rex_save; |
|
d76ccdacb41e
commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents:
10187
diff
changeset
|
3000 |
| 6390 | 3001 return result <= 0 ? 0 : result; |
| 4444 | 3002 } |