annotate src/regexp.c @ 12752:09c856605191 v8.0.1254

patch 8.0.1254: undefined left shift in gethexchrs() commit https://github.com/vim/vim/commit/4c22a91d20cce4f28dd2852a13129b5a4cc691da Author: Bram Moolenaar <Bram@vim.org> Date: Thu Nov 2 22:29:38 2017 +0100 patch 8.0.1254: undefined left shift in gethexchrs() Problem: Undefined left shift in gethexchrs(). (geeknik) Solution: Use unsigned long. (idea by Christian Brabandt, closes https://github.com/vim/vim/issues/2255)
author Christian Brabandt <cb@256bit.org>
date Thu, 02 Nov 2017 22:30:05 +0100
parents e769c912fcd9
children ac42c4b11dbc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3 * Handling of regular expressions: vim_regcomp(), vim_regexec(), vim_regsub()
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5 * NOTICE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7 * This is NOT the original regular expression code as written by Henry
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
8 * Spencer. This code has been modified specifically for use with the VIM
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
9 * editor, and should not be used separately from Vim. If you want a good
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
10 * regular expression library, get the original code. The copyright notice
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
11 * that follows is from the original.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
12 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
13 * END NOTICE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
14 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
15 * Copyright (c) 1986 by University of Toronto.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
16 * Written by Henry Spencer. Not derived from licensed software.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
17 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
18 * Permission is granted to anyone to use this software for any
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
19 * purpose on any computer system, and to redistribute it freely,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
20 * subject to the following restrictions:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
21 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
22 * 1. The author is not responsible for the consequences of use of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
23 * this software, no matter how awful, even if they arise
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
24 * from defects in it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
25 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
26 * 2. The origin of this software must not be misrepresented, either
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
27 * by explicit claim or by omission.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
28 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
29 * 3. Altered versions must be plainly marked as such, and must not
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
30 * be misrepresented as being the original software.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
31 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
32 * Beware that some of this code is subtly aware of the way operator
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
33 * precedence is structured in regular expressions. Serious changes in
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
34 * regular-expression syntax might require a total rethink.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
35 *
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
36 * Changes have been made by Tony Andrews, Olaf 'Rhialto' Seibert, Robert
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
37 * Webb, Ciaran McCreesh and Bram Moolenaar.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
38 * Named character class support added by Walter Briscoe (1998 Jul 01)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
39 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
40
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
41 /* Uncomment the first if you do not want to see debugging logs or files
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
42 * related to regular expressions, even when compiling with -DDEBUG.
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
43 * Uncomment the second to get the regexp debugging. */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
44 /* #undef DEBUG */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
45 /* #define DEBUG */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
46
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
47 #include "vim.h"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
48
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
49 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
50 /* show/save debugging data when BT engine is used */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
51 # define BT_REGEXP_DUMP
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
52 /* save the debugging data to a file instead of displaying it */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
53 # define BT_REGEXP_LOG
4460
fe8a0a6a1c2a updated for version 7.3.978
Bram Moolenaar <bram@vim.org>
parents: 4444
diff changeset
54 # define BT_REGEXP_DEBUG_LOG
fe8a0a6a1c2a updated for version 7.3.978
Bram Moolenaar <bram@vim.org>
parents: 4444
diff changeset
55 # define BT_REGEXP_DEBUG_LOG_NAME "bt_regexp_debug.log"
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
56 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
57
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
58 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
59 * The "internal use only" fields in regexp.h are present to pass info from
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
60 * compile to execute that permits the execute phase to run lots faster on
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
61 * simple cases. They are:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
62 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
63 * regstart char that must begin a match; NUL if none obvious; Can be a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
64 * multi-byte character.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
65 * reganch is the match anchored (at beginning-of-line only)?
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
66 * regmust string (pointer into program) that match must include, or NULL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
67 * regmlen length of regmust string
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
68 * regflags RF_ values or'ed together
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
69 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
70 * Regstart and reganch permit very fast decisions on suitable starting points
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
71 * for a match, cutting down the work a lot. Regmust permits fast rejection
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
72 * of lines that cannot possibly match. The regmust tests are costly enough
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
73 * that vim_regcomp() supplies a regmust only if the r.e. contains something
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
74 * potentially expensive (at present, the only such thing detected is * or +
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
75 * at the start of the r.e., which can involve a lot of backup). Regmlen is
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
76 * supplied because the test in vim_regexec() needs it and vim_regcomp() is
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
77 * computing it anyway.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
78 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
79
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
80 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
81 * Structure for regexp "program". This is essentially a linear encoding
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
82 * of a nondeterministic finite-state machine (aka syntax charts or
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
83 * "railroad normal form" in parsing technology). Each node is an opcode
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
84 * plus a "next" pointer, possibly plus an operand. "Next" pointers of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
85 * all nodes except BRANCH and BRACES_COMPLEX implement concatenation; a "next"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
86 * pointer with a BRANCH on both ends of it is connecting two alternatives.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
87 * (Here we have one of the subtle syntax dependencies: an individual BRANCH
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
88 * (as opposed to a collection of them) is never concatenated with anything
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
89 * because of operator precedence). The "next" pointer of a BRACES_COMPLEX
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
90 * node points to the node after the stuff to be repeated.
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
91 * The operand of some types of node is a literal string; for others, it is a
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
92 * node leading into a sub-FSM. In particular, the operand of a BRANCH node
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
93 * is the first node of the branch.
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
94 * (NB this is *not* a tree structure: the tail of the branch connects to the
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
95 * thing following the set of BRANCHes.)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
96 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
97 * pattern is coded like:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
98 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
99 * +-----------------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
100 * | V
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
101 * <aa>\|<bb> BRANCH <aa> BRANCH <bb> --> END
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
102 * | ^ | ^
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
103 * +------+ +----------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
104 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
105 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
106 * +------------------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
107 * V |
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
108 * <aa>* BRANCH BRANCH <aa> --> BACK BRANCH --> NOTHING --> END
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
109 * | | ^ ^
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
110 * | +---------------+ |
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
111 * +---------------------------------------------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
112 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
113 *
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
114 * +----------------------+
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
115 * V |
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
116 * <aa>\+ BRANCH <aa> --> BRANCH --> BACK BRANCH --> NOTHING --> END
856
8cd729851562 updated for version 7.0g
vimboss
parents: 840
diff changeset
117 * | | ^ ^
8cd729851562 updated for version 7.0g
vimboss
parents: 840
diff changeset
118 * | +-----------+ |
179
7fd70926e2e1 updated for version 7.0055
vimboss
parents: 177
diff changeset
119 * +--------------------------------------------------+
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
120 *
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
121 *
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
122 * +-------------------------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
123 * V |
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
124 * <aa>\{} BRANCH BRACE_LIMITS --> BRACE_COMPLEX <aa> --> BACK END
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
125 * | | ^
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
126 * | +----------------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
127 * +-----------------------------------------------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
128 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
129 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
130 * <aa>\@!<bb> BRANCH NOMATCH <aa> --> END <bb> --> END
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
131 * | | ^ ^
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
132 * | +----------------+ |
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
133 * +--------------------------------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
134 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
135 * +---------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
136 * | V
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
137 * \z[abc] BRANCH BRANCH a BRANCH b BRANCH c BRANCH NOTHING --> END
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
138 * | | | | ^ ^
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
139 * | | | +-----+ |
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
140 * | | +----------------+ |
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
141 * | +---------------------------+ |
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
142 * +------------------------------------------------------+
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
143 *
1209
070f2ac50cf8 updated for version 7.1b
vimboss
parents: 1148
diff changeset
144 * They all start with a BRANCH for "\|" alternatives, even when there is only
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
145 * one alternative.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
146 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
147
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
148 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
149 * The opcodes are:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
150 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
151
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
152 /* definition number opnd? meaning */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
153 #define END 0 /* End of program or NOMATCH operand. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
154 #define BOL 1 /* Match "" at beginning of line. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
155 #define EOL 2 /* Match "" at end of line. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
156 #define BRANCH 3 /* node Match this alternative, or the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
157 * next... */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
158 #define BACK 4 /* Match "", "next" ptr points backward. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
159 #define EXACTLY 5 /* str Match this string. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
160 #define NOTHING 6 /* Match empty string. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
161 #define STAR 7 /* node Match this (simple) thing 0 or more
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
162 * times. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
163 #define PLUS 8 /* node Match this (simple) thing 1 or more
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
164 * times. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
165 #define MATCH 9 /* node match the operand zero-width */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
166 #define NOMATCH 10 /* node check for no match with operand */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
167 #define BEHIND 11 /* node look behind for a match with operand */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
168 #define NOBEHIND 12 /* node look behind for no match with operand */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
169 #define SUBPAT 13 /* node match the operand here */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
170 #define BRACE_SIMPLE 14 /* node Match this (simple) thing between m and
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
171 * n times (\{m,n\}). */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
172 #define BOW 15 /* Match "" after [^a-zA-Z0-9_] */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
173 #define EOW 16 /* Match "" at [^a-zA-Z0-9_] */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
174 #define BRACE_LIMITS 17 /* nr nr define the min & max for BRACE_SIMPLE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
175 * and BRACE_COMPLEX. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
176 #define NEWL 18 /* Match line-break */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
177 #define BHPOS 19 /* End position for BEHIND or NOBEHIND */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
178
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
179
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
180 /* character classes: 20-48 normal, 50-78 include a line-break */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
181 #define ADD_NL 30
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
182 #define FIRST_NL ANY + ADD_NL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
183 #define ANY 20 /* Match any one character. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
184 #define ANYOF 21 /* str Match any character in this string. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
185 #define ANYBUT 22 /* str Match any character not in this
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
186 * string. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
187 #define IDENT 23 /* Match identifier char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
188 #define SIDENT 24 /* Match identifier char but no digit */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
189 #define KWORD 25 /* Match keyword char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
190 #define SKWORD 26 /* Match word char but no digit */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
191 #define FNAME 27 /* Match file name char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
192 #define SFNAME 28 /* Match file name char but no digit */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
193 #define PRINT 29 /* Match printable char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
194 #define SPRINT 30 /* Match printable char but no digit */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
195 #define WHITE 31 /* Match whitespace char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
196 #define NWHITE 32 /* Match non-whitespace char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
197 #define DIGIT 33 /* Match digit char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
198 #define NDIGIT 34 /* Match non-digit char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
199 #define HEX 35 /* Match hex char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
200 #define NHEX 36 /* Match non-hex char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
201 #define OCTAL 37 /* Match octal char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
202 #define NOCTAL 38 /* Match non-octal char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
203 #define WORD 39 /* Match word char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
204 #define NWORD 40 /* Match non-word char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
205 #define HEAD 41 /* Match head char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
206 #define NHEAD 42 /* Match non-head char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
207 #define ALPHA 43 /* Match alpha char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
208 #define NALPHA 44 /* Match non-alpha char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
209 #define LOWER 45 /* Match lowercase char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
210 #define NLOWER 46 /* Match non-lowercase char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
211 #define UPPER 47 /* Match uppercase char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
212 #define NUPPER 48 /* Match non-uppercase char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
213 #define LAST_NL NUPPER + ADD_NL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
214 #define WITH_NL(op) ((op) >= FIRST_NL && (op) <= LAST_NL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
215
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
216 #define MOPEN 80 /* -89 Mark this point in input as start of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
217 * \( subexpr. MOPEN + 0 marks start of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
218 * match. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
219 #define MCLOSE 90 /* -99 Analogous to MOPEN. MCLOSE + 0 marks
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
220 * end of match. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
221 #define BACKREF 100 /* -109 node Match same string again \1-\9 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
222
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
223 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
224 # define ZOPEN 110 /* -119 Mark this point in input as start of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
225 * \z( subexpr. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
226 # define ZCLOSE 120 /* -129 Analogous to ZOPEN. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
227 # define ZREF 130 /* -139 node Match external submatch \z1-\z9 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
228 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
229
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
230 #define BRACE_COMPLEX 140 /* -149 node Match nodes between m & n times */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
231
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
232 #define NOPEN 150 /* Mark this point in input as start of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
233 \%( subexpr. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
234 #define NCLOSE 151 /* Analogous to NOPEN. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
235
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
236 #define MULTIBYTECODE 200 /* mbc Match one multi-byte character */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
237 #define RE_BOF 201 /* Match "" at beginning of file. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
238 #define RE_EOF 202 /* Match "" at end of file. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
239 #define CURSOR 203 /* Match location of cursor. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
240
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
241 #define RE_LNUM 204 /* nr cmp Match line number */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
242 #define RE_COL 205 /* nr cmp Match column number */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
243 #define RE_VCOL 206 /* nr cmp Match virtual column number */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
244
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
245 #define RE_MARK 207 /* mark cmp Match mark position */
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
246 #define RE_VISUAL 208 /* Match Visual area */
5901
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
247 #define RE_COMPOSING 209 /* any composing characters */
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
248
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
249 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
250 * Magic characters have a special meaning, they don't match literally.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
251 * Magic characters are negative. This separates them from literal characters
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
252 * (possibly multi-byte). Only ASCII characters can be Magic.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
253 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
254 #define Magic(x) ((int)(x) - 256)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
255 #define un_Magic(x) ((x) + 256)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
256 #define is_Magic(x) ((x) < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
257
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
258 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
259 no_Magic(int x)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
260 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
261 if (is_Magic(x))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
262 return un_Magic(x);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
263 return x;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
264 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
265
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
266 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
267 toggle_Magic(int x)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
268 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
269 if (is_Magic(x))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
270 return un_Magic(x);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
271 return Magic(x);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
272 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
273
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
274 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
275 * The first byte of the regexp internal "program" is actually this magic
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
276 * number; the start node begins in the second byte. It's used to catch the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
277 * most severe mutilation of the program by the caller.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
278 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
279
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
280 #define REGMAGIC 0234
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
281
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
282 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
283 * Opcode notes:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
284 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
285 * BRANCH The set of branches constituting a single choice are hooked
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
286 * together with their "next" pointers, since precedence prevents
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
287 * anything being concatenated to any individual branch. The
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
288 * "next" pointer of the last BRANCH in a choice points to the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
289 * thing following the whole choice. This is also where the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
290 * final "next" pointer of each individual branch points; each
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
291 * branch starts with the operand node of a BRANCH node.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
292 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
293 * BACK Normal "next" pointers all implicitly point forward; BACK
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
294 * exists to make loop structures possible.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
295 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
296 * STAR,PLUS '=', and complex '*' and '+', are implemented as circular
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
297 * BRANCH structures using BACK. Simple cases (one character
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
298 * per match) are implemented with STAR and PLUS for speed
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
299 * and to minimize recursive plunges.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
300 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
301 * BRACE_LIMITS This is always followed by a BRACE_SIMPLE or BRACE_COMPLEX
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
302 * node, and defines the min and max limits to be used for that
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
303 * node.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
304 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
305 * MOPEN,MCLOSE ...are numbered at compile time.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
306 * ZOPEN,ZCLOSE ...ditto
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
307 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
308
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
309 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
310 * A node is one char of opcode followed by two chars of "next" pointer.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
311 * "Next" pointers are stored as two 8-bit bytes, high order first. The
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
312 * value is a positive offset from the opcode of the node containing it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
313 * An operand, if any, simply follows the node. (Note that much of the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
314 * code generation knows about this implicit relationship.)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
315 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
316 * Using two bytes for the "next" pointer is vast overkill for most things,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
317 * but allows patterns to get big without disasters.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
318 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
319 #define OP(p) ((int)*(p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
320 #define NEXT(p) (((*((p) + 1) & 0377) << 8) + (*((p) + 2) & 0377))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
321 #define OPERAND(p) ((p) + 3)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
322 /* Obtain an operand that was stored as four bytes, MSB first. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
323 #define OPERAND_MIN(p) (((long)(p)[3] << 24) + ((long)(p)[4] << 16) \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
324 + ((long)(p)[5] << 8) + (long)(p)[6])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
325 /* Obtain a second operand stored as four bytes. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
326 #define OPERAND_MAX(p) OPERAND_MIN((p) + 4)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
327 /* Obtain a second single-byte operand stored after a four bytes operand. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
328 #define OPERAND_CMP(p) (p)[7]
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
329
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
330 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
331 * Utility definitions.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
332 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
333 #define UCHARAT(p) ((int)*(char_u *)(p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
334
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
335 /* Used for an error (down from) vim_regcomp(): give the error message, set
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
336 * rc_did_emsg and return NULL */
653
5acda076fb0c updated for version 7.0192
vimboss
parents: 639
diff changeset
337 #define EMSG_RET_NULL(m) return (EMSG(m), rc_did_emsg = TRUE, (void *)NULL)
10359
66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f
Christian Brabandt <cb@256bit.org>
parents: 10245
diff changeset
338 #define IEMSG_RET_NULL(m) return (IEMSG(m), rc_did_emsg = TRUE, (void *)NULL)
308
74e9d19831c2 updated for version 7.0081
vimboss
parents: 297
diff changeset
339 #define EMSG_RET_FAIL(m) return (EMSG(m), rc_did_emsg = TRUE, FAIL)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
340 #define EMSG2_RET_NULL(m, c) return (EMSG2((m), (c) ? "" : "\\"), rc_did_emsg = TRUE, (void *)NULL)
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
341 #define EMSG2_RET_FAIL(m, c) return (EMSG2((m), (c) ? "" : "\\"), rc_did_emsg = TRUE, FAIL)
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
342 #define EMSG_ONE_RET_NULL EMSG2_RET_NULL(_("E369: invalid item in %s%%[]"), reg_magic == MAGIC_ALL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
343
10359
66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f
Christian Brabandt <cb@256bit.org>
parents: 10245
diff changeset
344
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
345 #define MAX_LIMIT (32767L << 16L)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
346
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
347 static int re_multi_type(int);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
348 static int cstrncmp(char_u *s1, char_u *s2, int *n);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
349 static char_u *cstrchr(char_u *, int);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
350
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
351 #ifdef BT_REGEXP_DUMP
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
352 static void regdump(char_u *, bt_regprog_T *);
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
353 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
354 #ifdef DEBUG
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
355 static char_u *regprop(char_u *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
356 #endif
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
357
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
358 static int re_mult_next(char *what);
6203
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
359
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
360 static char_u e_missingbracket[] = N_("E769: Missing ] after %s[");
11480
99ce30ac4226 patch 8.0.0623: error for invalid regexp is not very informative
Christian Brabandt <cb@256bit.org>
parents: 11269
diff changeset
361 static char_u e_reverse_range[] = N_("E944: Reverse range in character class");
11482
e691ebe6558e patch 8.0.0624: warning for unused variable in tiny build
Christian Brabandt <cb@256bit.org>
parents: 11480
diff changeset
362 #ifdef FEAT_MBYTE
11480
99ce30ac4226 patch 8.0.0623: error for invalid regexp is not very informative
Christian Brabandt <cb@256bit.org>
parents: 11269
diff changeset
363 static char_u e_large_class[] = N_("E945: Range too large in character class");
11482
e691ebe6558e patch 8.0.0624: warning for unused variable in tiny build
Christian Brabandt <cb@256bit.org>
parents: 11480
diff changeset
364 #endif
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
365 static char_u e_unmatchedpp[] = N_("E53: Unmatched %s%%(");
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
366 static char_u e_unmatchedp[] = N_("E54: Unmatched %s(");
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
367 static char_u e_unmatchedpar[] = N_("E55: Unmatched %s)");
4720
bd6bef0bd0fb updated for version 7.3.1107
Bram Moolenaar <bram@vim.org>
parents: 4688
diff changeset
368 #ifdef FEAT_SYN_HL
4688
371cc0c44097 updated for version 7.3.1091
Bram Moolenaar <bram@vim.org>
parents: 4682
diff changeset
369 static char_u e_z_not_allowed[] = N_("E66: \\z( not allowed here");
371cc0c44097 updated for version 7.3.1091
Bram Moolenaar <bram@vim.org>
parents: 4682
diff changeset
370 static char_u e_z1_not_allowed[] = N_("E67: \\z1 et al. not allowed here");
4720
bd6bef0bd0fb updated for version 7.3.1107
Bram Moolenaar <bram@vim.org>
parents: 4688
diff changeset
371 #endif
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
372 static char_u e_missing_sb[] = N_("E69: Missing ] after %s%%[");
4760
532a9855bd30 updated for version 7.3.1127
Bram Moolenaar <bram@vim.org>
parents: 4746
diff changeset
373 static char_u e_empty_sb[] = N_("E70: Empty %s%%[]");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
374 #define NOT_MULTI 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
375 #define MULTI_ONE 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
376 #define MULTI_MULT 2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
377 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
378 * Return NOT_MULTI if c is not a "multi" operator.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
379 * Return MULTI_ONE if c is a single "multi" operator.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
380 * Return MULTI_MULT if c is a multi "multi" operator.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
381 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
382 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
383 re_multi_type(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
384 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
385 if (c == Magic('@') || c == Magic('=') || c == Magic('?'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
386 return MULTI_ONE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
387 if (c == Magic('*') || c == Magic('+') || c == Magic('{'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
388 return MULTI_MULT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
389 return NOT_MULTI;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
390 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
391
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
392 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
393 * Flags to be passed up and down.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
394 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
395 #define HASWIDTH 0x1 /* Known never to match null string. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
396 #define SIMPLE 0x2 /* Simple enough to be STAR/PLUS operand. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
397 #define SPSTART 0x4 /* Starts with * or +. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
398 #define HASNL 0x8 /* Contains some \n. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
399 #define HASLOOKBH 0x10 /* Contains "\@<=" or "\@<!". */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
400 #define WORST 0 /* Worst case. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
401
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
402 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
403 * When regcode is set to this value, code is not emitted and size is computed
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
404 * instead.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
405 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
406 #define JUST_CALC_SIZE ((char_u *) -1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
407
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 308
diff changeset
408 static char_u *reg_prev_sub = NULL;
6c62b9b939bd updated for version 7.0093
vimboss
parents: 308
diff changeset
409
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
410 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
411 * REGEXP_INRANGE contains all characters which are always special in a []
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
412 * range after '\'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
413 * REGEXP_ABBR contains all characters which act as abbreviations after '\'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
414 * These are:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
415 * \n - New line (NL).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
416 * \r - Carriage Return (CR).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
417 * \t - Tab (TAB).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
418 * \e - Escape (ESC).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
419 * \b - Backspace (Ctrl_H).
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
420 * \d - Character code in decimal, eg \d123
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
421 * \o - Character code in octal, eg \o80
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
422 * \x - Character code in hex, eg \x4a
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
423 * \u - Multibyte character code, eg \u20ac
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
424 * \U - Long multibyte character code, eg \U12345678
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
425 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
426 static char_u REGEXP_INRANGE[] = "]^-n\\";
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
427 static char_u REGEXP_ABBR[] = "nrtebdoxuU";
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
428
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
429 static int backslash_trans(int c);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
430 static int get_char_class(char_u **pp);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
431 static int get_equi_class(char_u **pp);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
432 static void reg_equi_class(int c);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
433 static int get_coll_element(char_u **pp);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
434 static char_u *skip_anyof(char_u *p);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
435 static void init_class_tab(void);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
436
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
437 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
438 * Translate '\x' to its control character, except "\n", which is Magic.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
439 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
440 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
441 backslash_trans(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
442 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
443 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
444 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
445 case 'r': return CAR;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
446 case 't': return TAB;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
447 case 'e': return ESC;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
448 case 'b': return BS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
449 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
450 return c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
451 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
452
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
453 /*
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
454 * Check for a character class name "[:name:]". "pp" points to the '['.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
455 * Returns one of the CLASS_ items. CLASS_NONE means that no item was
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
456 * recognized. Otherwise "pp" is advanced to after the item.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
457 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
458 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
459 get_char_class(char_u **pp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
460 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
461 static const char *(class_names[]) =
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
462 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
463 "alnum:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
464 #define CLASS_ALNUM 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
465 "alpha:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
466 #define CLASS_ALPHA 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
467 "blank:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
468 #define CLASS_BLANK 2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
469 "cntrl:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
470 #define CLASS_CNTRL 3
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
471 "digit:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
472 #define CLASS_DIGIT 4
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
473 "graph:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
474 #define CLASS_GRAPH 5
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
475 "lower:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
476 #define CLASS_LOWER 6
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
477 "print:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
478 #define CLASS_PRINT 7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
479 "punct:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
480 #define CLASS_PUNCT 8
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
481 "space:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
482 #define CLASS_SPACE 9
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
483 "upper:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
484 #define CLASS_UPPER 10
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
485 "xdigit:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
486 #define CLASS_XDIGIT 11
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
487 "tab:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
488 #define CLASS_TAB 12
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
489 "return:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
490 #define CLASS_RETURN 13
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
491 "backspace:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
492 #define CLASS_BACKSPACE 14
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
493 "escape:]",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
494 #define CLASS_ESCAPE 15
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
495 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
496 #define CLASS_NONE 99
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
497 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
498
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
499 if ((*pp)[1] == ':')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
500 {
1877
b5c1cb6f8d56 updated for version 7.2-174
vimboss
parents: 1815
diff changeset
501 for (i = 0; i < (int)(sizeof(class_names) / sizeof(*class_names)); ++i)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
502 if (STRNCMP(*pp + 2, class_names[i], STRLEN(class_names[i])) == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
503 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
504 *pp += STRLEN(class_names[i]) + 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
505 return i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
506 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
507 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
508 return CLASS_NONE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
509 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
510
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
511 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
512 * Specific version of character class functions.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
513 * Using a table to keep this fast.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
514 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
515 static short class_tab[256];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
516
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
517 #define RI_DIGIT 0x01
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
518 #define RI_HEX 0x02
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
519 #define RI_OCTAL 0x04
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
520 #define RI_WORD 0x08
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
521 #define RI_HEAD 0x10
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
522 #define RI_ALPHA 0x20
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
523 #define RI_LOWER 0x40
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
524 #define RI_UPPER 0x80
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
525 #define RI_WHITE 0x100
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
526
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
527 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
528 init_class_tab(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
529 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
530 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
531 static int done = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
532
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
533 if (done)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
534 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
535
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
536 for (i = 0; i < 256; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
537 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
538 if (i >= '0' && i <= '7')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
539 class_tab[i] = RI_DIGIT + RI_HEX + RI_OCTAL + RI_WORD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
540 else if (i >= '8' && i <= '9')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
541 class_tab[i] = RI_DIGIT + RI_HEX + RI_WORD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
542 else if (i >= 'a' && i <= 'f')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
543 class_tab[i] = RI_HEX + RI_WORD + RI_HEAD + RI_ALPHA + RI_LOWER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
544 #ifdef EBCDIC
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
545 else if ((i >= 'g' && i <= 'i') || (i >= 'j' && i <= 'r')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
546 || (i >= 's' && i <= 'z'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
547 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
548 else if (i >= 'g' && i <= 'z')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
549 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
550 class_tab[i] = RI_WORD + RI_HEAD + RI_ALPHA + RI_LOWER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
551 else if (i >= 'A' && i <= 'F')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
552 class_tab[i] = RI_HEX + RI_WORD + RI_HEAD + RI_ALPHA + RI_UPPER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
553 #ifdef EBCDIC
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
554 else if ((i >= 'G' && i <= 'I') || ( i >= 'J' && i <= 'R')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
555 || (i >= 'S' && i <= 'Z'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
556 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
557 else if (i >= 'G' && i <= 'Z')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
558 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
559 class_tab[i] = RI_WORD + RI_HEAD + RI_ALPHA + RI_UPPER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
560 else if (i == '_')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
561 class_tab[i] = RI_WORD + RI_HEAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
562 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
563 class_tab[i] = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
564 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
565 class_tab[' '] |= RI_WHITE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
566 class_tab['\t'] |= RI_WHITE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
567 done = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
568 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
569
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
570 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
571 # define ri_digit(c) (c < 0x100 && (class_tab[c] & RI_DIGIT))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
572 # define ri_hex(c) (c < 0x100 && (class_tab[c] & RI_HEX))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
573 # define ri_octal(c) (c < 0x100 && (class_tab[c] & RI_OCTAL))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
574 # define ri_word(c) (c < 0x100 && (class_tab[c] & RI_WORD))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
575 # define ri_head(c) (c < 0x100 && (class_tab[c] & RI_HEAD))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
576 # define ri_alpha(c) (c < 0x100 && (class_tab[c] & RI_ALPHA))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
577 # define ri_lower(c) (c < 0x100 && (class_tab[c] & RI_LOWER))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
578 # define ri_upper(c) (c < 0x100 && (class_tab[c] & RI_UPPER))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
579 # define ri_white(c) (c < 0x100 && (class_tab[c] & RI_WHITE))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
580 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
581 # define ri_digit(c) (class_tab[c] & RI_DIGIT)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
582 # define ri_hex(c) (class_tab[c] & RI_HEX)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
583 # define ri_octal(c) (class_tab[c] & RI_OCTAL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
584 # define ri_word(c) (class_tab[c] & RI_WORD)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
585 # define ri_head(c) (class_tab[c] & RI_HEAD)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
586 # define ri_alpha(c) (class_tab[c] & RI_ALPHA)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
587 # define ri_lower(c) (class_tab[c] & RI_LOWER)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
588 # define ri_upper(c) (class_tab[c] & RI_UPPER)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
589 # define ri_white(c) (class_tab[c] & RI_WHITE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
590 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
591
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
592 /* flags for regflags */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
593 #define RF_ICASE 1 /* ignore case */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
594 #define RF_NOICASE 2 /* don't ignore case */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
595 #define RF_HASNL 4 /* can match a NL */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
596 #define RF_ICOMBINE 8 /* ignore combining characters */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
597 #define RF_LOOKBH 16 /* uses "\@<=" or "\@<!" */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
598
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
599 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
600 * Global work variables for vim_regcomp().
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
601 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
602
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
603 static char_u *regparse; /* Input-scan pointer. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
604 static int prevchr_len; /* byte length of previous char */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
605 static int num_complex_braces; /* Complex \{...} count */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
606 static int regnpar; /* () count. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
607 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
608 static int regnzpar; /* \z() count. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
609 static int re_has_z; /* \z item detected */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
610 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
611 static char_u *regcode; /* Code-emit pointer, or JUST_CALC_SIZE */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
612 static long regsize; /* Code size. */
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
613 static int reg_toolong; /* TRUE when offset out of range */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
614 static char_u had_endbrace[NSUBEXP]; /* flags, TRUE if end of () found */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
615 static unsigned regflags; /* RF_ flags for prog */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
616 static long brace_min[10]; /* Minimums for complex brace repeats */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
617 static long brace_max[10]; /* Maximums for complex brace repeats */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
618 static int brace_count[10]; /* Current counts for complex brace repeats */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
619 #if defined(FEAT_SYN_HL) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
620 static int had_eol; /* TRUE when EOL found by vim_regcomp() */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
621 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
622 static int one_exactly = FALSE; /* only do one char for EXACTLY */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
623
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
624 static int reg_magic; /* magicness of the pattern: */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
625 #define MAGIC_NONE 1 /* "\V" very unmagic */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
626 #define MAGIC_OFF 2 /* "\M" or 'magic' off */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
627 #define MAGIC_ON 3 /* "\m" or 'magic' */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
628 #define MAGIC_ALL 4 /* "\v" very magic */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
629
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
630 static int reg_string; /* matching with a string instead of a buffer
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
631 line */
481
66080ac5dab7 updated for version 7.0130
vimboss
parents: 474
diff changeset
632 static int reg_strict; /* "[abc" is illegal */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
633
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
634 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
635 * META contains all characters that may be magic, except '^' and '$'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
636 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
637
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
638 #ifdef EBCDIC
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
639 static char_u META[] = "%&()*+.123456789<=>?@ACDFHIKLMOPSUVWX[_acdfhiklmnopsuvwxz{|~";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
640 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
641 /* META[] is used often enough to justify turning it into a table. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
642 static char_u META_flags[] = {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
643 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
644 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
645 /* % & ( ) * + . */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
646 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
647 /* 1 2 3 4 5 6 7 8 9 < = > ? */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
648 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
649 /* @ A C D F H I K L M O */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
650 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
651 /* P S U V W X Z [ _ */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
652 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
653 /* a c d f h i k l m n o */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
654 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
655 /* p s u v w x z { | ~ */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
656 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
657 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
658 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
659
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
660 static int curchr; /* currently parsed character */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
661 /* Previous character. Note: prevchr is sometimes -1 when we are not at the
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
662 * start, eg in /[ ^I]^ the pattern was never found even if it existed,
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
663 * because ^ was taken to be magic -- webb */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
664 static int prevchr;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
665 static int prevprevchr; /* previous-previous character */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
666 static int nextchr; /* used for ungetchr() */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
667
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
668 /* arguments for reg() */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
669 #define REG_NOPAREN 0 /* toplevel reg() */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
670 #define REG_PAREN 1 /* \(\) */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
671 #define REG_ZPAREN 2 /* \z(\) */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
672 #define REG_NPAREN 3 /* \%(\) */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
673
4679
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
674 typedef struct
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
675 {
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
676 char_u *regparse;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
677 int prevchr_len;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
678 int curchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
679 int prevchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
680 int prevprevchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
681 int nextchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
682 int at_start;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
683 int prev_at_start;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
684 int regnpar;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
685 } parse_state_T;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
686
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
687 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
688 * Forward declarations for vim_regcomp()'s friends.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
689 */
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
690 static void initchr(char_u *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
691 static void save_parse_state(parse_state_T *ps);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
692 static void restore_parse_state(parse_state_T *ps);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
693 static int getchr(void);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
694 static void skipchr_keepstart(void);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
695 static int peekchr(void);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
696 static void skipchr(void);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
697 static void ungetchr(void);
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
698 static long gethexchrs(int maxinputlen);
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
699 static long getoctchrs(void);
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
700 static long getdecchrs(void);
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
701 static int coll_get_char(void);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
702 static void regcomp_start(char_u *expr, int flags);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
703 static char_u *reg(int, int *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
704 static char_u *regbranch(int *flagp);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
705 static char_u *regconcat(int *flagp);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
706 static char_u *regpiece(int *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
707 static char_u *regatom(int *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
708 static char_u *regnode(int);
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
709 #ifdef FEAT_MBYTE
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
710 static int use_multibytecode(int c);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
711 #endif
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
712 static int prog_magic_wrong(void);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
713 static char_u *regnext(char_u *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
714 static void regc(int b);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
715 #ifdef FEAT_MBYTE
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
716 static void regmbc(int c);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
717 # define REGMBC(x) regmbc(x);
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
718 # define CASEMBC(x) case x:
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
719 #else
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
720 # define regmbc(c) regc(c)
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
721 # define REGMBC(x)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
722 # define CASEMBC(x)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
723 #endif
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
724 static void reginsert(int, char_u *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
725 static void reginsert_nr(int op, long val, char_u *opnd);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
726 static void reginsert_limits(int, long, long, char_u *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
727 static char_u *re_put_long(char_u *pr, long_u val);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
728 static int read_limits(long *, long *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
729 static void regtail(char_u *, char_u *);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
730 static void regoptail(char_u *, char_u *);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
731
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
732 static regengine_T bt_regengine;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
733 static regengine_T nfa_regengine;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
734
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
735 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
736 * Return TRUE if compiled regular expression "prog" can match a line break.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
737 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
738 int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
739 re_multiline(regprog_T *prog)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
740 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
741 return (prog->regflags & RF_HASNL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
742 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
743
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
744 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
745 * Return TRUE if compiled regular expression "prog" looks before the start
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
746 * position (pattern contains "\@<=" or "\@<!").
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
747 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
748 int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
749 re_lookbehind(regprog_T *prog)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
750 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
751 return (prog->regflags & RF_LOOKBH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
752 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
753
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
754 /*
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
755 * Check for an equivalence class name "[=a=]". "pp" points to the '['.
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
756 * Returns a character representing the class. Zero means that no item was
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
757 * recognized. Otherwise "pp" is advanced to after the item.
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
758 */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
759 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
760 get_equi_class(char_u **pp)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
761 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
762 int c;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
763 int l = 1;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
764 char_u *p = *pp;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
765
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
766 if (p[1] == '=')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
767 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
768 #ifdef FEAT_MBYTE
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
769 if (has_mbyte)
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
770 l = (*mb_ptr2len)(p + 2);
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
771 #endif
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
772 if (p[l + 2] == '=' && p[l + 3] == ']')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
773 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
774 #ifdef FEAT_MBYTE
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
775 if (has_mbyte)
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
776 c = mb_ptr2char(p + 2);
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
777 else
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
778 #endif
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
779 c = p[2];
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
780 *pp += l + 4;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
781 return c;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
782 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
783 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
784 return 0;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
785 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
786
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
787 #ifdef EBCDIC
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
788 /*
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
789 * Table for equivalence class "c". (IBM-1047)
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
790 */
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
791 char *EQUIVAL_CLASS_C[16] = {
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
792 "A\x62\x63\x64\x65\x66\x67",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
793 "C\x68",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
794 "E\x71\x72\x73\x74",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
795 "I\x75\x76\x77\x78",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
796 "N\x69",
8825
318eaa6fa973 commit https://github.com/vim/vim/commit/22e421549d54147d003f6444de007cb1d73f1d27
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
797 "O\xEB\xEC\xED\xEE\xEF\x80",
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
798 "U\xFB\xFC\xFD\xFE",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
799 "Y\xBA",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
800 "a\x42\x43\x44\x45\x46\x47",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
801 "c\x48",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
802 "e\x51\x52\x53\x54",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
803 "i\x55\x56\x57\x58",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
804 "n\x49",
8825
318eaa6fa973 commit https://github.com/vim/vim/commit/22e421549d54147d003f6444de007cb1d73f1d27
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
805 "o\xCB\xCC\xCD\xCE\xCF\x70",
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
806 "u\xDB\xDC\xDD\xDE",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
807 "y\x8D\xDF",
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
808 };
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
809 #endif
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
810
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
811 /*
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
812 * Produce the bytes for equivalence class "c".
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
813 * Currently only handles latin1, latin9 and utf-8.
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
814 * NOTE: When changing this function, also change nfa_emit_equi_class()
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
815 */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
816 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
817 reg_equi_class(int c)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
818 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
819 #ifdef FEAT_MBYTE
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
820 if (enc_utf8 || STRCMP(p_enc, "latin1") == 0
492
81c06952fb1d updated for version 7.0135
vimboss
parents: 482
diff changeset
821 || STRCMP(p_enc, "iso-8859-15") == 0)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
822 #endif
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
823 {
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
824 #ifdef EBCDIC
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
825 int i;
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
826
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
827 /* This might be slower than switch/case below. */
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
828 for (i = 0; i < 16; i++)
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
829 {
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
830 if (vim_strchr(EQUIVAL_CLASS_C[i], c) != NULL)
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
831 {
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
832 char *p = EQUIVAL_CLASS_C[i];
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
833
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
834 while (*p != 0)
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
835 regmbc(*p++);
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
836 return;
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
837 }
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
838 }
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
839 #else
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
840 switch (c)
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
841 {
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
842 /* Do not use '\300' style, it results in a negative number. */
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
843 case 'A': case 0xc0: case 0xc1: case 0xc2:
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
844 case 0xc3: case 0xc4: case 0xc5:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
845 CASEMBC(0x100) CASEMBC(0x102) CASEMBC(0x104) CASEMBC(0x1cd)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
846 CASEMBC(0x1de) CASEMBC(0x1e0) CASEMBC(0x1ea2)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
847 regmbc('A'); regmbc(0xc0); regmbc(0xc1);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
848 regmbc(0xc2); regmbc(0xc3); regmbc(0xc4);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
849 regmbc(0xc5);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
850 REGMBC(0x100) REGMBC(0x102) REGMBC(0x104)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
851 REGMBC(0x1cd) REGMBC(0x1de) REGMBC(0x1e0)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
852 REGMBC(0x1ea2)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
853 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
854 case 'B': CASEMBC(0x1e02) CASEMBC(0x1e06)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
855 regmbc('B'); REGMBC(0x1e02) REGMBC(0x1e06)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
856 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
857 case 'C': case 0xc7:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
858 CASEMBC(0x106) CASEMBC(0x108) CASEMBC(0x10a) CASEMBC(0x10c)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
859 regmbc('C'); regmbc(0xc7);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
860 REGMBC(0x106) REGMBC(0x108) REGMBC(0x10a)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
861 REGMBC(0x10c)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
862 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
863 case 'D': CASEMBC(0x10e) CASEMBC(0x110) CASEMBC(0x1e0a)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
864 CASEMBC(0x1e0e) CASEMBC(0x1e10)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
865 regmbc('D'); REGMBC(0x10e) REGMBC(0x110)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
866 REGMBC(0x1e0a) REGMBC(0x1e0e) REGMBC(0x1e10)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
867 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
868 case 'E': case 0xc8: case 0xc9: case 0xca: case 0xcb:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
869 CASEMBC(0x112) CASEMBC(0x114) CASEMBC(0x116) CASEMBC(0x118)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
870 CASEMBC(0x11a) CASEMBC(0x1eba) CASEMBC(0x1ebc)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
871 regmbc('E'); regmbc(0xc8); regmbc(0xc9);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
872 regmbc(0xca); regmbc(0xcb);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
873 REGMBC(0x112) REGMBC(0x114) REGMBC(0x116)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
874 REGMBC(0x118) REGMBC(0x11a) REGMBC(0x1eba)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
875 REGMBC(0x1ebc)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
876 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
877 case 'F': CASEMBC(0x1e1e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
878 regmbc('F'); REGMBC(0x1e1e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
879 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
880 case 'G': CASEMBC(0x11c) CASEMBC(0x11e) CASEMBC(0x120)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
881 CASEMBC(0x122) CASEMBC(0x1e4) CASEMBC(0x1e6) CASEMBC(0x1f4)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
882 CASEMBC(0x1e20)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
883 regmbc('G'); REGMBC(0x11c) REGMBC(0x11e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
884 REGMBC(0x120) REGMBC(0x122) REGMBC(0x1e4)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
885 REGMBC(0x1e6) REGMBC(0x1f4) REGMBC(0x1e20)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
886 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
887 case 'H': CASEMBC(0x124) CASEMBC(0x126) CASEMBC(0x1e22)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
888 CASEMBC(0x1e26) CASEMBC(0x1e28)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
889 regmbc('H'); REGMBC(0x124) REGMBC(0x126)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
890 REGMBC(0x1e22) REGMBC(0x1e26) REGMBC(0x1e28)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
891 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
892 case 'I': case 0xcc: case 0xcd: case 0xce: case 0xcf:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
893 CASEMBC(0x128) CASEMBC(0x12a) CASEMBC(0x12c) CASEMBC(0x12e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
894 CASEMBC(0x130) CASEMBC(0x1cf) CASEMBC(0x1ec8)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
895 regmbc('I'); regmbc(0xcc); regmbc(0xcd);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
896 regmbc(0xce); regmbc(0xcf);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
897 REGMBC(0x128) REGMBC(0x12a) REGMBC(0x12c)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
898 REGMBC(0x12e) REGMBC(0x130) REGMBC(0x1cf)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
899 REGMBC(0x1ec8)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
900 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
901 case 'J': CASEMBC(0x134)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
902 regmbc('J'); REGMBC(0x134)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
903 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
904 case 'K': CASEMBC(0x136) CASEMBC(0x1e8) CASEMBC(0x1e30)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
905 CASEMBC(0x1e34)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
906 regmbc('K'); REGMBC(0x136) REGMBC(0x1e8)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
907 REGMBC(0x1e30) REGMBC(0x1e34)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
908 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
909 case 'L': CASEMBC(0x139) CASEMBC(0x13b) CASEMBC(0x13d)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
910 CASEMBC(0x13f) CASEMBC(0x141) CASEMBC(0x1e3a)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
911 regmbc('L'); REGMBC(0x139) REGMBC(0x13b)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
912 REGMBC(0x13d) REGMBC(0x13f) REGMBC(0x141)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
913 REGMBC(0x1e3a)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
914 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
915 case 'M': CASEMBC(0x1e3e) CASEMBC(0x1e40)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
916 regmbc('M'); REGMBC(0x1e3e) REGMBC(0x1e40)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
917 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
918 case 'N': case 0xd1:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
919 CASEMBC(0x143) CASEMBC(0x145) CASEMBC(0x147) CASEMBC(0x1e44)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
920 CASEMBC(0x1e48)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
921 regmbc('N'); regmbc(0xd1);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
922 REGMBC(0x143) REGMBC(0x145) REGMBC(0x147)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
923 REGMBC(0x1e44) REGMBC(0x1e48)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
924 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
925 case 'O': case 0xd2: case 0xd3: case 0xd4: case 0xd5:
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
926 case 0xd6: case 0xd8:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
927 CASEMBC(0x14c) CASEMBC(0x14e) CASEMBC(0x150) CASEMBC(0x1a0)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
928 CASEMBC(0x1d1) CASEMBC(0x1ea) CASEMBC(0x1ec) CASEMBC(0x1ece)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
929 regmbc('O'); regmbc(0xd2); regmbc(0xd3);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
930 regmbc(0xd4); regmbc(0xd5); regmbc(0xd6);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
931 regmbc(0xd8);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
932 REGMBC(0x14c) REGMBC(0x14e) REGMBC(0x150)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
933 REGMBC(0x1a0) REGMBC(0x1d1) REGMBC(0x1ea)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
934 REGMBC(0x1ec) REGMBC(0x1ece)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
935 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
936 case 'P': case 0x1e54: case 0x1e56:
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
937 regmbc('P'); REGMBC(0x1e54) REGMBC(0x1e56)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
938 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
939 case 'R': CASEMBC(0x154) CASEMBC(0x156) CASEMBC(0x158)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
940 CASEMBC(0x1e58) CASEMBC(0x1e5e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
941 regmbc('R'); REGMBC(0x154) REGMBC(0x156) REGMBC(0x158)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
942 REGMBC(0x1e58) REGMBC(0x1e5e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
943 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
944 case 'S': CASEMBC(0x15a) CASEMBC(0x15c) CASEMBC(0x15e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
945 CASEMBC(0x160) CASEMBC(0x1e60)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
946 regmbc('S'); REGMBC(0x15a) REGMBC(0x15c)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
947 REGMBC(0x15e) REGMBC(0x160) REGMBC(0x1e60)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
948 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
949 case 'T': CASEMBC(0x162) CASEMBC(0x164) CASEMBC(0x166)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
950 CASEMBC(0x1e6a) CASEMBC(0x1e6e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
951 regmbc('T'); REGMBC(0x162) REGMBC(0x164)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
952 REGMBC(0x166) REGMBC(0x1e6a) REGMBC(0x1e6e)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
953 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
954 case 'U': case 0xd9: case 0xda: case 0xdb: case 0xdc:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
955 CASEMBC(0x168) CASEMBC(0x16a) CASEMBC(0x16c) CASEMBC(0x16e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
956 CASEMBC(0x170) CASEMBC(0x172) CASEMBC(0x1af) CASEMBC(0x1d3)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
957 CASEMBC(0x1ee6)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
958 regmbc('U'); regmbc(0xd9); regmbc(0xda);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
959 regmbc(0xdb); regmbc(0xdc);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
960 REGMBC(0x168) REGMBC(0x16a) REGMBC(0x16c)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
961 REGMBC(0x16e) REGMBC(0x170) REGMBC(0x172)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
962 REGMBC(0x1af) REGMBC(0x1d3) REGMBC(0x1ee6)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
963 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
964 case 'V': CASEMBC(0x1e7c)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
965 regmbc('V'); REGMBC(0x1e7c)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
966 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
967 case 'W': CASEMBC(0x174) CASEMBC(0x1e80) CASEMBC(0x1e82)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
968 CASEMBC(0x1e84) CASEMBC(0x1e86)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
969 regmbc('W'); REGMBC(0x174) REGMBC(0x1e80)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
970 REGMBC(0x1e82) REGMBC(0x1e84) REGMBC(0x1e86)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
971 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
972 case 'X': CASEMBC(0x1e8a) CASEMBC(0x1e8c)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
973 regmbc('X'); REGMBC(0x1e8a) REGMBC(0x1e8c)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
974 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
975 case 'Y': case 0xdd:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
976 CASEMBC(0x176) CASEMBC(0x178) CASEMBC(0x1e8e) CASEMBC(0x1ef2)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
977 CASEMBC(0x1ef6) CASEMBC(0x1ef8)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
978 regmbc('Y'); regmbc(0xdd);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
979 REGMBC(0x176) REGMBC(0x178) REGMBC(0x1e8e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
980 REGMBC(0x1ef2) REGMBC(0x1ef6) REGMBC(0x1ef8)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
981 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
982 case 'Z': CASEMBC(0x179) CASEMBC(0x17b) CASEMBC(0x17d)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
983 CASEMBC(0x1b5) CASEMBC(0x1e90) CASEMBC(0x1e94)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
984 regmbc('Z'); REGMBC(0x179) REGMBC(0x17b)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
985 REGMBC(0x17d) REGMBC(0x1b5) REGMBC(0x1e90)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
986 REGMBC(0x1e94)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
987 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
988 case 'a': case 0xe0: case 0xe1: case 0xe2:
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
989 case 0xe3: case 0xe4: case 0xe5:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
990 CASEMBC(0x101) CASEMBC(0x103) CASEMBC(0x105) CASEMBC(0x1ce)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
991 CASEMBC(0x1df) CASEMBC(0x1e1) CASEMBC(0x1ea3)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
992 regmbc('a'); regmbc(0xe0); regmbc(0xe1);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
993 regmbc(0xe2); regmbc(0xe3); regmbc(0xe4);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
994 regmbc(0xe5);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
995 REGMBC(0x101) REGMBC(0x103) REGMBC(0x105)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
996 REGMBC(0x1ce) REGMBC(0x1df) REGMBC(0x1e1)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
997 REGMBC(0x1ea3)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
998 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
999 case 'b': CASEMBC(0x1e03) CASEMBC(0x1e07)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1000 regmbc('b'); REGMBC(0x1e03) REGMBC(0x1e07)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1001 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1002 case 'c': case 0xe7:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1003 CASEMBC(0x107) CASEMBC(0x109) CASEMBC(0x10b) CASEMBC(0x10d)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1004 regmbc('c'); regmbc(0xe7);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1005 REGMBC(0x107) REGMBC(0x109) REGMBC(0x10b)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1006 REGMBC(0x10d)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1007 return;
6914
94b179585851 patch 7.4.776
Bram Moolenaar <bram@vim.org>
parents: 6830
diff changeset
1008 case 'd': CASEMBC(0x10f) CASEMBC(0x111) CASEMBC(0x1e0b)
94b179585851 patch 7.4.776
Bram Moolenaar <bram@vim.org>
parents: 6830
diff changeset
1009 CASEMBC(0x1e0f) CASEMBC(0x1e11)
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1010 regmbc('d'); REGMBC(0x10f) REGMBC(0x111)
6914
94b179585851 patch 7.4.776
Bram Moolenaar <bram@vim.org>
parents: 6830
diff changeset
1011 REGMBC(0x1e0b) REGMBC(0x1e0f) REGMBC(0x1e11)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1012 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1013 case 'e': case 0xe8: case 0xe9: case 0xea: case 0xeb:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1014 CASEMBC(0x113) CASEMBC(0x115) CASEMBC(0x117) CASEMBC(0x119)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1015 CASEMBC(0x11b) CASEMBC(0x1ebb) CASEMBC(0x1ebd)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1016 regmbc('e'); regmbc(0xe8); regmbc(0xe9);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1017 regmbc(0xea); regmbc(0xeb);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1018 REGMBC(0x113) REGMBC(0x115) REGMBC(0x117)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1019 REGMBC(0x119) REGMBC(0x11b) REGMBC(0x1ebb)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1020 REGMBC(0x1ebd)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1021 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1022 case 'f': CASEMBC(0x1e1f)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1023 regmbc('f'); REGMBC(0x1e1f)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1024 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1025 case 'g': CASEMBC(0x11d) CASEMBC(0x11f) CASEMBC(0x121)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1026 CASEMBC(0x123) CASEMBC(0x1e5) CASEMBC(0x1e7) CASEMBC(0x1f5)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1027 CASEMBC(0x1e21)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1028 regmbc('g'); REGMBC(0x11d) REGMBC(0x11f)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1029 REGMBC(0x121) REGMBC(0x123) REGMBC(0x1e5)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1030 REGMBC(0x1e7) REGMBC(0x1f5) REGMBC(0x1e21)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1031 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1032 case 'h': CASEMBC(0x125) CASEMBC(0x127) CASEMBC(0x1e23)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1033 CASEMBC(0x1e27) CASEMBC(0x1e29) CASEMBC(0x1e96)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1034 regmbc('h'); REGMBC(0x125) REGMBC(0x127)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1035 REGMBC(0x1e23) REGMBC(0x1e27) REGMBC(0x1e29)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1036 REGMBC(0x1e96)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1037 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1038 case 'i': case 0xec: case 0xed: case 0xee: case 0xef:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1039 CASEMBC(0x129) CASEMBC(0x12b) CASEMBC(0x12d) CASEMBC(0x12f)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1040 CASEMBC(0x1d0) CASEMBC(0x1ec9)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1041 regmbc('i'); regmbc(0xec); regmbc(0xed);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1042 regmbc(0xee); regmbc(0xef);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1043 REGMBC(0x129) REGMBC(0x12b) REGMBC(0x12d)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1044 REGMBC(0x12f) REGMBC(0x1d0) REGMBC(0x1ec9)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1045 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1046 case 'j': CASEMBC(0x135) CASEMBC(0x1f0)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1047 regmbc('j'); REGMBC(0x135) REGMBC(0x1f0)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1048 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1049 case 'k': CASEMBC(0x137) CASEMBC(0x1e9) CASEMBC(0x1e31)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1050 CASEMBC(0x1e35)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1051 regmbc('k'); REGMBC(0x137) REGMBC(0x1e9)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1052 REGMBC(0x1e31) REGMBC(0x1e35)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1053 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1054 case 'l': CASEMBC(0x13a) CASEMBC(0x13c) CASEMBC(0x13e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1055 CASEMBC(0x140) CASEMBC(0x142) CASEMBC(0x1e3b)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1056 regmbc('l'); REGMBC(0x13a) REGMBC(0x13c)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1057 REGMBC(0x13e) REGMBC(0x140) REGMBC(0x142)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1058 REGMBC(0x1e3b)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1059 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1060 case 'm': CASEMBC(0x1e3f) CASEMBC(0x1e41)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1061 regmbc('m'); REGMBC(0x1e3f) REGMBC(0x1e41)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1062 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1063 case 'n': case 0xf1:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1064 CASEMBC(0x144) CASEMBC(0x146) CASEMBC(0x148) CASEMBC(0x149)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1065 CASEMBC(0x1e45) CASEMBC(0x1e49)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1066 regmbc('n'); regmbc(0xf1);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1067 REGMBC(0x144) REGMBC(0x146) REGMBC(0x148)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1068 REGMBC(0x149) REGMBC(0x1e45) REGMBC(0x1e49)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1069 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1070 case 'o': case 0xf2: case 0xf3: case 0xf4: case 0xf5:
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1071 case 0xf6: case 0xf8:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1072 CASEMBC(0x14d) CASEMBC(0x14f) CASEMBC(0x151) CASEMBC(0x1a1)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1073 CASEMBC(0x1d2) CASEMBC(0x1eb) CASEMBC(0x1ed) CASEMBC(0x1ecf)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1074 regmbc('o'); regmbc(0xf2); regmbc(0xf3);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1075 regmbc(0xf4); regmbc(0xf5); regmbc(0xf6);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1076 regmbc(0xf8);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1077 REGMBC(0x14d) REGMBC(0x14f) REGMBC(0x151)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1078 REGMBC(0x1a1) REGMBC(0x1d2) REGMBC(0x1eb)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1079 REGMBC(0x1ed) REGMBC(0x1ecf)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1080 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1081 case 'p': CASEMBC(0x1e55) CASEMBC(0x1e57)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1082 regmbc('p'); REGMBC(0x1e55) REGMBC(0x1e57)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1083 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1084 case 'r': CASEMBC(0x155) CASEMBC(0x157) CASEMBC(0x159)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1085 CASEMBC(0x1e59) CASEMBC(0x1e5f)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1086 regmbc('r'); REGMBC(0x155) REGMBC(0x157) REGMBC(0x159)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1087 REGMBC(0x1e59) REGMBC(0x1e5f)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1088 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1089 case 's': CASEMBC(0x15b) CASEMBC(0x15d) CASEMBC(0x15f)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1090 CASEMBC(0x161) CASEMBC(0x1e61)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1091 regmbc('s'); REGMBC(0x15b) REGMBC(0x15d)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1092 REGMBC(0x15f) REGMBC(0x161) REGMBC(0x1e61)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1093 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1094 case 't': CASEMBC(0x163) CASEMBC(0x165) CASEMBC(0x167)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1095 CASEMBC(0x1e6b) CASEMBC(0x1e6f) CASEMBC(0x1e97)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1096 regmbc('t'); REGMBC(0x163) REGMBC(0x165) REGMBC(0x167)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1097 REGMBC(0x1e6b) REGMBC(0x1e6f) REGMBC(0x1e97)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1098 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1099 case 'u': case 0xf9: case 0xfa: case 0xfb: case 0xfc:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1100 CASEMBC(0x169) CASEMBC(0x16b) CASEMBC(0x16d) CASEMBC(0x16f)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1101 CASEMBC(0x171) CASEMBC(0x173) CASEMBC(0x1b0) CASEMBC(0x1d4)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1102 CASEMBC(0x1ee7)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1103 regmbc('u'); regmbc(0xf9); regmbc(0xfa);
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1104 regmbc(0xfb); regmbc(0xfc);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1105 REGMBC(0x169) REGMBC(0x16b) REGMBC(0x16d)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1106 REGMBC(0x16f) REGMBC(0x171) REGMBC(0x173)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1107 REGMBC(0x1b0) REGMBC(0x1d4) REGMBC(0x1ee7)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1108 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1109 case 'v': CASEMBC(0x1e7d)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1110 regmbc('v'); REGMBC(0x1e7d)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1111 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1112 case 'w': CASEMBC(0x175) CASEMBC(0x1e81) CASEMBC(0x1e83)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1113 CASEMBC(0x1e85) CASEMBC(0x1e87) CASEMBC(0x1e98)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1114 regmbc('w'); REGMBC(0x175) REGMBC(0x1e81)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1115 REGMBC(0x1e83) REGMBC(0x1e85) REGMBC(0x1e87)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1116 REGMBC(0x1e98)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1117 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1118 case 'x': CASEMBC(0x1e8b) CASEMBC(0x1e8d)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1119 regmbc('x'); REGMBC(0x1e8b) REGMBC(0x1e8d)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1120 return;
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1121 case 'y': case 0xfd: case 0xff:
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1122 CASEMBC(0x177) CASEMBC(0x1e8f) CASEMBC(0x1e99)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1123 CASEMBC(0x1ef3) CASEMBC(0x1ef7) CASEMBC(0x1ef9)
6765
ec46a5ca1b51 patch 7.4.704
Bram Moolenaar <bram@vim.org>
parents: 6723
diff changeset
1124 regmbc('y'); regmbc(0xfd); regmbc(0xff);
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1125 REGMBC(0x177) REGMBC(0x1e8f) REGMBC(0x1e99)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1126 REGMBC(0x1ef3) REGMBC(0x1ef7) REGMBC(0x1ef9)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1127 return;
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1128 case 'z': CASEMBC(0x17a) CASEMBC(0x17c) CASEMBC(0x17e)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1129 CASEMBC(0x1b6) CASEMBC(0x1e91) CASEMBC(0x1e95)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1130 regmbc('z'); REGMBC(0x17a) REGMBC(0x17c)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1131 REGMBC(0x17e) REGMBC(0x1b6) REGMBC(0x1e91)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
1132 REGMBC(0x1e95)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1133 return;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1134 }
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2173
diff changeset
1135 #endif
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1136 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1137 regmbc(c);
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1138 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1139
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1140 /*
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1141 * Check for a collating element "[.a.]". "pp" points to the '['.
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1142 * Returns a character. Zero means that no item was recognized. Otherwise
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1143 * "pp" is advanced to after the item.
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1144 * Currently only single characters are recognized!
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1145 */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1146 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1147 get_coll_element(char_u **pp)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1148 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1149 int c;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1150 int l = 1;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1151 char_u *p = *pp;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1152
6830
70fdcdaf96a6 patch 7.4.736
Bram Moolenaar <bram@vim.org>
parents: 6785
diff changeset
1153 if (p[0] != NUL && p[1] == '.')
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1154 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1155 #ifdef FEAT_MBYTE
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1156 if (has_mbyte)
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
1157 l = (*mb_ptr2len)(p + 2);
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1158 #endif
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1159 if (p[l + 2] == '.' && p[l + 3] == ']')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1160 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1161 #ifdef FEAT_MBYTE
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1162 if (has_mbyte)
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1163 c = mb_ptr2char(p + 2);
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1164 else
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1165 #endif
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1166 c = p[2];
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1167 *pp += l + 4;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1168 return c;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1169 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1170 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1171 return 0;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1172 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1173
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1174 static void get_cpo_flags(void);
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1175 static int reg_cpo_lit; /* 'cpoptions' contains 'l' flag */
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1176 static int reg_cpo_bsl; /* 'cpoptions' contains '\' flag */
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1177
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1178 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1179 get_cpo_flags(void)
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1180 {
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1181 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
1182 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
1183 }
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1184
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1185 /*
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1186 * Skip over a "[]" range.
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1187 * "p" must point to the character after the '['.
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1188 * The returned pointer is on the matching ']', or the terminating NUL.
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1189 */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1190 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1191 skip_anyof(char_u *p)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1192 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1193 #ifdef FEAT_MBYTE
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1194 int l;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1195 #endif
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1196
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1197 if (*p == '^') /* Complement of range. */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1198 ++p;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1199 if (*p == ']' || *p == '-')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1200 ++p;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1201 while (*p != NUL && *p != ']')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1202 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1203 #ifdef FEAT_MBYTE
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
1204 if (has_mbyte && (l = (*mb_ptr2len)(p)) > 1)
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1205 p += l;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1206 else
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1207 #endif
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1208 if (*p == '-')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1209 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1210 ++p;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1211 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
1212 MB_PTR_ADV(p);
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1213 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1214 else if (*p == '\\'
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1215 && !reg_cpo_bsl
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1216 && (vim_strchr(REGEXP_INRANGE, p[1]) != NULL
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1217 || (!reg_cpo_lit && vim_strchr(REGEXP_ABBR, p[1]) != NULL)))
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1218 p += 2;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1219 else if (*p == '[')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1220 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1221 if (get_char_class(&p) == CLASS_NONE
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1222 && get_equi_class(&p) == 0
6830
70fdcdaf96a6 patch 7.4.736
Bram Moolenaar <bram@vim.org>
parents: 6785
diff changeset
1223 && get_coll_element(&p) == 0
70fdcdaf96a6 patch 7.4.736
Bram Moolenaar <bram@vim.org>
parents: 6785
diff changeset
1224 && *p != NUL)
70fdcdaf96a6 patch 7.4.736
Bram Moolenaar <bram@vim.org>
parents: 6785
diff changeset
1225 ++p; /* it is not a class name and not NUL */
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1226 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1227 else
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1228 ++p;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1229 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1230
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1231 return p;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1232 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1233
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
1234 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1235 * Skip past regular expression.
153
19670b05ee32 updated for version 7.0047
vimboss
parents: 41
diff changeset
1236 * Stop at end of "startp" or where "dirc" is found ('/', '?', etc).
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1237 * Take care of characters with a backslash in front of it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1238 * Skip strings inside [ and ].
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1239 * When "newp" is not NULL and "dirc" is '?', make an allocated copy of the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1240 * expression and change "\?" to "?". If "*newp" is not NULL the expression
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1241 * is changed in-place.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1242 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1243 char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1244 skip_regexp(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1245 char_u *startp,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1246 int dirc,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1247 int magic,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1248 char_u **newp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1249 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1250 int mymagic;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1251 char_u *p = startp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1252
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1253 if (magic)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1254 mymagic = MAGIC_ON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1255 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1256 mymagic = MAGIC_OFF;
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1257 get_cpo_flags();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1258
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
1259 for (; p[0] != NUL; MB_PTR_ADV(p))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1260 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1261 if (p[0] == dirc) /* found end of regexp */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1262 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1263 if ((p[0] == '[' && mymagic >= MAGIC_ON)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1264 || (p[0] == '\\' && p[1] == '[' && mymagic <= MAGIC_OFF))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1265 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1266 p = skip_anyof(p + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1267 if (p[0] == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1268 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1269 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1270 else if (p[0] == '\\' && p[1] != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1271 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1272 if (dirc == '?' && newp != NULL && p[1] == '?')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1273 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1274 /* change "\?" to "?", make a copy first. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1275 if (*newp == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1276 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1277 *newp = vim_strsave(startp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1278 if (*newp != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1279 p = *newp + (p - startp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1280 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1281 if (*newp != NULL)
1621
82b5078be2dd updated for version 7.2a
vimboss
parents: 1602
diff changeset
1282 STRMOVE(p, p + 1);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1283 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1284 ++p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1285 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1286 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1287 ++p; /* skip next character */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1288 if (*p == 'v')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1289 mymagic = MAGIC_ALL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1290 else if (*p == 'V')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1291 mymagic = MAGIC_NONE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1292 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1293 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1294 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1295 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1296
11525
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1297 /*
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1298 * Return TRUE if the back reference is legal. We must have seen the close
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1299 * brace.
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1300 * TODO: Should also check that we don't refer to something that is repeated
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1301 * (+*=): what instance of the repetition should we match?
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1302 */
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1303 static int
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1304 seen_endbrace(int refnum)
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1305 {
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1306 if (!had_endbrace[refnum])
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1307 {
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1308 char_u *p;
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1309
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1310 /* Trick: check if "@<=" or "@<!" follows, in which case
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1311 * the \1 can appear before the referenced match. */
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1312 for (p = regparse; *p != NUL; ++p)
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1313 if (p[0] == '@' && p[1] == '<' && (p[2] == '!' || p[2] == '='))
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1314 break;
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1315 if (*p == NUL)
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1316 {
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1317 EMSG(_("E65: Illegal back reference"));
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1318 rc_did_emsg = TRUE;
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1319 return FALSE;
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1320 }
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1321 }
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1322 return TRUE;
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1323 }
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
1324
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1325 static regprog_T *bt_regcomp(char_u *expr, int re_flags);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1326 static void bt_regfree(regprog_T *prog);
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1327
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1328 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1329 * bt_regcomp() - compile a regular expression into internal code for the
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1330 * traditional back track matcher.
41
f529edb9bab3 updated for version 7.0025
vimboss
parents: 39
diff changeset
1331 * Returns the program in allocated space. Returns NULL for an error.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1332 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1333 * We can't allocate space until we know how big the compiled form will be,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1334 * but we can't compile it (and thus know how big it is) until we've got a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1335 * place to put the code. So we cheat: we compile it twice, once with code
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1336 * generation turned off and size counting turned on, and once "for real".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1337 * This also means that we don't allocate space until we are sure that the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1338 * thing really will compile successfully, and we never have to move the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1339 * code and thus invalidate pointers into it. (Note that it has to be in
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1340 * one piece because vim_free() must be able to free it all.)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1341 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1342 * Whether upper/lower case is to be ignored is decided when executing the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1343 * program, it does not matter here.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1344 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1345 * Beware that the optimization-preparation code in here knows about some
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1346 * of the structure of the compiled regexp.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1347 * "re_flags": RE_MAGIC and/or RE_STRING.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1348 */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1349 static regprog_T *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1350 bt_regcomp(char_u *expr, int re_flags)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1351 {
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1352 bt_regprog_T *r;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1353 char_u *scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1354 char_u *longest;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1355 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1356 int flags;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1357
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1358 if (expr == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1359 EMSG_RET_NULL(_(e_null));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1360
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1361 init_class_tab();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1362
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1363 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1364 * First pass: determine size, legality.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1365 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1366 regcomp_start(expr, re_flags);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1367 regcode = JUST_CALC_SIZE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1368 regc(REGMAGIC);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1369 if (reg(REG_NOPAREN, &flags) == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1370 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1371
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1372 /* Allocate space. */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1373 r = (bt_regprog_T *)lalloc(sizeof(bt_regprog_T) + regsize, TRUE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1374 if (r == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1375 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1376
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1377 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1378 * Second pass: emit code.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1379 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1380 regcomp_start(expr, re_flags);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1381 regcode = r->program;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1382 regc(REGMAGIC);
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
1383 if (reg(REG_NOPAREN, &flags) == NULL || reg_toolong)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1384 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1385 vim_free(r);
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
1386 if (reg_toolong)
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
1387 EMSG_RET_NULL(_("E339: Pattern too long"));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1388 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1389 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1390
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1391 /* Dig out information for optimizations. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1392 r->regstart = NUL; /* Worst-case defaults. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1393 r->reganch = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1394 r->regmust = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1395 r->regmlen = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1396 r->regflags = regflags;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1397 if (flags & HASNL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1398 r->regflags |= RF_HASNL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1399 if (flags & HASLOOKBH)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1400 r->regflags |= RF_LOOKBH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1401 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1402 /* Remember whether this pattern has any \z specials in it. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1403 r->reghasz = re_has_z;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1404 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1405 scan = r->program + 1; /* First BRANCH. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1406 if (OP(regnext(scan)) == END) /* Only one top-level choice. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1407 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1408 scan = OPERAND(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1409
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1410 /* Starting-point info. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1411 if (OP(scan) == BOL || OP(scan) == RE_BOF)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1412 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1413 r->reganch++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1414 scan = regnext(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1415 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1416
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1417 if (OP(scan) == EXACTLY)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1418 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1419 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1420 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1421 r->regstart = (*mb_ptr2char)(OPERAND(scan));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1422 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1423 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1424 r->regstart = *OPERAND(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1425 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1426 else if ((OP(scan) == BOW
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1427 || OP(scan) == EOW
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1428 || OP(scan) == NOTHING
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1429 || OP(scan) == MOPEN + 0 || OP(scan) == NOPEN
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1430 || OP(scan) == MCLOSE + 0 || OP(scan) == NCLOSE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1431 && OP(regnext(scan)) == EXACTLY)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1432 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1433 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1434 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1435 r->regstart = (*mb_ptr2char)(OPERAND(regnext(scan)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1436 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1437 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1438 r->regstart = *OPERAND(regnext(scan));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1439 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1440
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1441 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1442 * If there's something expensive in the r.e., find the longest
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1443 * literal string that must appear and make it the regmust. Resolve
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1444 * ties in favor of later strings, since the regstart check works
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1445 * with the beginning of the r.e. and avoiding duplication
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1446 * strengthens checking. Not a strong reason, but sufficient in the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1447 * absence of others.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1448 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1449 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1450 * When the r.e. starts with BOW, it is faster to look for a regmust
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1451 * first. Used a lot for "#" and "*" commands. (Added by mool).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1452 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1453 if ((flags & SPSTART || OP(scan) == BOW || OP(scan) == EOW)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1454 && !(flags & HASNL))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1455 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1456 longest = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1457 len = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1458 for (; scan != NULL; scan = regnext(scan))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1459 if (OP(scan) == EXACTLY && STRLEN(OPERAND(scan)) >= (size_t)len)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1460 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1461 longest = OPERAND(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1462 len = (int)STRLEN(OPERAND(scan));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1463 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1464 r->regmust = longest;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1465 r->regmlen = len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1466 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1467 }
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1468 #ifdef BT_REGEXP_DUMP
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1469 regdump(expr, r);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1470 #endif
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1471 r->engine = &bt_regengine;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1472 return (regprog_T *)r;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1473 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1474
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1475 /*
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
1476 * Free a compiled regexp program, returned by bt_regcomp().
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
1477 */
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
1478 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1479 bt_regfree(regprog_T *prog)
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
1480 {
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
1481 vim_free(prog);
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
1482 }
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
1483
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
1484 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1485 * Setup to parse the regexp. Used once to get the length and once to do it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1486 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1487 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1488 regcomp_start(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1489 char_u *expr,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1490 int re_flags) /* see vim_regcomp() */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1491 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1492 initchr(expr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1493 if (re_flags & RE_MAGIC)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1494 reg_magic = MAGIC_ON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1495 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1496 reg_magic = MAGIC_OFF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1497 reg_string = (re_flags & RE_STRING);
481
66080ac5dab7 updated for version 7.0130
vimboss
parents: 474
diff changeset
1498 reg_strict = (re_flags & RE_STRICT);
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
1499 get_cpo_flags();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1500
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1501 num_complex_braces = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1502 regnpar = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1503 vim_memset(had_endbrace, 0, sizeof(had_endbrace));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1504 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1505 regnzpar = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1506 re_has_z = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1507 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1508 regsize = 0L;
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
1509 reg_toolong = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1510 regflags = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1511 #if defined(FEAT_SYN_HL) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1512 had_eol = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1513 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1514 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1515
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1516 #if defined(FEAT_SYN_HL) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1517 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1518 * Check if during the previous call to vim_regcomp the EOL item "$" has been
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1519 * found. This is messy, but it works fine.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1520 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1521 int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1522 vim_regcomp_had_eol(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1523 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1524 return had_eol;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1525 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1526 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1527
8021
b6b4f354df23 commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents: 7833
diff changeset
1528 /* variables for parsing reginput */
b6b4f354df23 commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents: 7833
diff changeset
1529 static int at_start; /* True when on the first character */
b6b4f354df23 commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents: 7833
diff changeset
1530 static int prev_at_start; /* True when on the second character */
b6b4f354df23 commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents: 7833
diff changeset
1531
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1532 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1533 * Parse regular expression, i.e. main body or parenthesized thing.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1534 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1535 * Caller must absorb opening parenthesis.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1536 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1537 * Combining parenthesis handling with the base level of regular expression
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1538 * is a trifle forced, but the need to tie the tails of the branches to what
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1539 * follows makes it hard to avoid.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1540 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1541 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1542 reg(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1543 int paren, /* REG_NOPAREN, REG_PAREN, REG_NPAREN or REG_ZPAREN */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1544 int *flagp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1545 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1546 char_u *ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1547 char_u *br;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1548 char_u *ender;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1549 int parno = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1550 int flags;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1551
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1552 *flagp = HASWIDTH; /* Tentatively. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1553
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1554 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1555 if (paren == REG_ZPAREN)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1556 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1557 /* Make a ZOPEN node. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1558 if (regnzpar >= NSUBEXP)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1559 EMSG_RET_NULL(_("E50: Too many \\z("));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1560 parno = regnzpar;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1561 regnzpar++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1562 ret = regnode(ZOPEN + parno);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1563 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1564 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1565 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1566 if (paren == REG_PAREN)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1567 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1568 /* Make a MOPEN node. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1569 if (regnpar >= NSUBEXP)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1570 EMSG2_RET_NULL(_("E51: Too many %s("), reg_magic == MAGIC_ALL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1571 parno = regnpar;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1572 ++regnpar;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1573 ret = regnode(MOPEN + parno);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1574 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1575 else if (paren == REG_NPAREN)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1576 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1577 /* Make a NOPEN node. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1578 ret = regnode(NOPEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1579 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1580 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1581 ret = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1582
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1583 /* Pick up the branches, linking them together. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1584 br = regbranch(&flags);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1585 if (br == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1586 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1587 if (ret != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1588 regtail(ret, br); /* [MZ]OPEN -> first. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1589 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1590 ret = br;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1591 /* If one of the branches can be zero-width, the whole thing can.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1592 * If one of the branches has * at start or matches a line-break, the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1593 * whole thing can. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1594 if (!(flags & HASWIDTH))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1595 *flagp &= ~HASWIDTH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1596 *flagp |= flags & (SPSTART | HASNL | HASLOOKBH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1597 while (peekchr() == Magic('|'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1598 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1599 skipchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1600 br = regbranch(&flags);
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
1601 if (br == NULL || reg_toolong)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1602 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1603 regtail(ret, br); /* BRANCH -> BRANCH. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1604 if (!(flags & HASWIDTH))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1605 *flagp &= ~HASWIDTH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1606 *flagp |= flags & (SPSTART | HASNL | HASLOOKBH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1607 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1608
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1609 /* Make a closing node, and hook it on the end. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1610 ender = regnode(
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1611 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1612 paren == REG_ZPAREN ? ZCLOSE + parno :
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1613 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1614 paren == REG_PAREN ? MCLOSE + parno :
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1615 paren == REG_NPAREN ? NCLOSE : END);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1616 regtail(ret, ender);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1617
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1618 /* Hook the tails of the branches to the closing node. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1619 for (br = ret; br != NULL; br = regnext(br))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1620 regoptail(br, ender);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1621
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1622 /* Check for proper termination. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1623 if (paren != REG_NOPAREN && getchr() != Magic(')'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1624 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1625 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1626 if (paren == REG_ZPAREN)
308
74e9d19831c2 updated for version 7.0081
vimboss
parents: 297
diff changeset
1627 EMSG_RET_NULL(_("E52: Unmatched \\z("));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1628 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1629 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1630 if (paren == REG_NPAREN)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1631 EMSG2_RET_NULL(_(e_unmatchedpp), reg_magic == MAGIC_ALL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1632 else
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1633 EMSG2_RET_NULL(_(e_unmatchedp), reg_magic == MAGIC_ALL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1634 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1635 else if (paren == REG_NOPAREN && peekchr() != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1636 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1637 if (curchr == Magic(')'))
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1638 EMSG2_RET_NULL(_(e_unmatchedpar), reg_magic == MAGIC_ALL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1639 else
308
74e9d19831c2 updated for version 7.0081
vimboss
parents: 297
diff changeset
1640 EMSG_RET_NULL(_(e_trailing)); /* "Can't happen". */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1641 /* NOTREACHED */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1642 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1643 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1644 * Here we set the flag allowing back references to this set of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1645 * parentheses.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1646 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1647 if (paren == REG_PAREN)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1648 had_endbrace[parno] = TRUE; /* have seen the close paren */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1649 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1650 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1651
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1652 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1653 * Parse one alternative of an | operator.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1654 * Implements the & operator.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1655 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1656 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1657 regbranch(int *flagp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1658 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1659 char_u *ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1660 char_u *chain = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1661 char_u *latest;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1662 int flags;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1663
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1664 *flagp = WORST | HASNL; /* Tentatively. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1665
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1666 ret = regnode(BRANCH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1667 for (;;)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1668 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1669 latest = regconcat(&flags);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1670 if (latest == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1671 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1672 /* If one of the branches has width, the whole thing has. If one of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1673 * the branches anchors at start-of-line, the whole thing does.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1674 * If one of the branches uses look-behind, the whole thing does. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1675 *flagp |= flags & (HASWIDTH | SPSTART | HASLOOKBH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1676 /* If one of the branches doesn't match a line-break, the whole thing
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1677 * doesn't. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1678 *flagp &= ~HASNL | (flags & HASNL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1679 if (chain != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1680 regtail(chain, latest);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1681 if (peekchr() != Magic('&'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1682 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1683 skipchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1684 regtail(latest, regnode(END)); /* operand ends */
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
1685 if (reg_toolong)
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
1686 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1687 reginsert(MATCH, latest);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1688 chain = latest;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1689 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1690
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1691 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1692 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1693
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1694 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1695 * Parse one alternative of an | or & operator.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1696 * Implements the concatenation operator.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1697 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1698 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1699 regconcat(int *flagp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1700 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1701 char_u *first = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1702 char_u *chain = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1703 char_u *latest;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1704 int flags;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1705 int cont = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1706
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1707 *flagp = WORST; /* Tentatively. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1708
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1709 while (cont)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1710 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1711 switch (peekchr())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1712 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1713 case NUL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1714 case Magic('|'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1715 case Magic('&'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1716 case Magic(')'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1717 cont = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1718 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1719 case Magic('Z'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1720 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1721 regflags |= RF_ICOMBINE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1722 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1723 skipchr_keepstart();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1724 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1725 case Magic('c'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1726 regflags |= RF_ICASE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1727 skipchr_keepstart();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1728 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1729 case Magic('C'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1730 regflags |= RF_NOICASE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1731 skipchr_keepstart();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1732 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1733 case Magic('v'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1734 reg_magic = MAGIC_ALL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1735 skipchr_keepstart();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1736 curchr = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1737 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1738 case Magic('m'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1739 reg_magic = MAGIC_ON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1740 skipchr_keepstart();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1741 curchr = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1742 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1743 case Magic('M'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1744 reg_magic = MAGIC_OFF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1745 skipchr_keepstart();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1746 curchr = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1747 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1748 case Magic('V'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1749 reg_magic = MAGIC_NONE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1750 skipchr_keepstart();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1751 curchr = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1752 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1753 default:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1754 latest = regpiece(&flags);
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
1755 if (latest == NULL || reg_toolong)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1756 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1757 *flagp |= flags & (HASWIDTH | HASNL | HASLOOKBH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1758 if (chain == NULL) /* First piece. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1759 *flagp |= flags & SPSTART;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1760 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1761 regtail(chain, latest);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1762 chain = latest;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1763 if (first == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1764 first = latest;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1765 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1766 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1767 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1768 if (first == NULL) /* Loop ran zero times. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1769 first = regnode(NOTHING);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1770 return first;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1771 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1772
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1773 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1774 * Parse something followed by possible [*+=].
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1775 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1776 * Note that the branching code sequences used for = and the general cases
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1777 * of * and + are somewhat optimized: they use the same NOTHING node as
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1778 * both the endmarker for their branch list and the body of the last branch.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1779 * It might seem that this node could be dispensed with entirely, but the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1780 * endmarker role is not redundant.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1781 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1782 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1783 regpiece(int *flagp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1784 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1785 char_u *ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1786 int op;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1787 char_u *next;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1788 int flags;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1789 long minval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1790 long maxval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1791
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1792 ret = regatom(&flags);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1793 if (ret == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1794 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1795
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1796 op = peekchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1797 if (re_multi_type(op) == NOT_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1798 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1799 *flagp = flags;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1800 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1801 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1802 /* default flags */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1803 *flagp = (WORST | SPSTART | (flags & (HASNL | HASLOOKBH)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1804
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1805 skipchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1806 switch (op)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1807 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1808 case Magic('*'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1809 if (flags & SIMPLE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1810 reginsert(STAR, ret);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1811 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1812 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1813 /* Emit x* as (x&|), where & means "self". */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1814 reginsert(BRANCH, ret); /* Either x */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1815 regoptail(ret, regnode(BACK)); /* and loop */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1816 regoptail(ret, ret); /* back */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1817 regtail(ret, regnode(BRANCH)); /* or */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1818 regtail(ret, regnode(NOTHING)); /* null. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1819 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1820 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1821
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1822 case Magic('+'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1823 if (flags & SIMPLE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1824 reginsert(PLUS, ret);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1825 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1826 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1827 /* Emit x+ as x(&|), where & means "self". */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1828 next = regnode(BRANCH); /* Either */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1829 regtail(ret, next);
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
1830 regtail(regnode(BACK), ret); /* loop back */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1831 regtail(next, regnode(BRANCH)); /* or */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1832 regtail(ret, regnode(NOTHING)); /* null. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1833 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1834 *flagp = (WORST | HASWIDTH | (flags & (HASNL | HASLOOKBH)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1835 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1836
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1837 case Magic('@'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1838 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1839 int lop = END;
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
1840 long nr;
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1841
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1842 nr = getdecchrs();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1843 switch (no_Magic(getchr()))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1844 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1845 case '=': lop = MATCH; break; /* \@= */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1846 case '!': lop = NOMATCH; break; /* \@! */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1847 case '>': lop = SUBPAT; break; /* \@> */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1848 case '<': switch (no_Magic(getchr()))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1849 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1850 case '=': lop = BEHIND; break; /* \@<= */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1851 case '!': lop = NOBEHIND; break; /* \@<! */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1852 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1853 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1854 if (lop == END)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1855 EMSG2_RET_NULL(_("E59: invalid character after %s@"),
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1856 reg_magic == MAGIC_ALL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1857 /* Look behind must match with behind_pos. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1858 if (lop == BEHIND || lop == NOBEHIND)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1859 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1860 regtail(ret, regnode(BHPOS));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1861 *flagp |= HASLOOKBH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1862 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1863 regtail(ret, regnode(END)); /* operand ends */
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1864 if (lop == BEHIND || lop == NOBEHIND)
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1865 {
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1866 if (nr < 0)
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1867 nr = 0; /* no limit is same as zero limit */
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1868 reginsert_nr(lop, nr, ret);
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1869 }
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1870 else
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
1871 reginsert(lop, ret);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1872 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1873 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1874
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1875 case Magic('?'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1876 case Magic('='):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1877 /* Emit x= as (x|) */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1878 reginsert(BRANCH, ret); /* Either x */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1879 regtail(ret, regnode(BRANCH)); /* or */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1880 next = regnode(NOTHING); /* null. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1881 regtail(ret, next);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1882 regoptail(ret, next);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1883 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1884
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1885 case Magic('{'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1886 if (!read_limits(&minval, &maxval))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1887 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1888 if (flags & SIMPLE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1889 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1890 reginsert(BRACE_SIMPLE, ret);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1891 reginsert_limits(BRACE_LIMITS, minval, maxval, ret);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1892 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1893 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1894 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1895 if (num_complex_braces >= 10)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1896 EMSG2_RET_NULL(_("E60: Too many complex %s{...}s"),
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1897 reg_magic == MAGIC_ALL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1898 reginsert(BRACE_COMPLEX + num_complex_braces, ret);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1899 regoptail(ret, regnode(BACK));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1900 regoptail(ret, ret);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1901 reginsert_limits(BRACE_LIMITS, minval, maxval, ret);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1902 ++num_complex_braces;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1903 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1904 if (minval > 0 && maxval > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1905 *flagp = (HASWIDTH | (flags & (HASNL | HASLOOKBH)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1906 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1907 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1908 if (re_multi_type(peekchr()) != NOT_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1909 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1910 /* Can't have a multi follow a multi. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1911 if (peekchr() == Magic('*'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1912 sprintf((char *)IObuff, _("E61: Nested %s*"),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1913 reg_magic >= MAGIC_ON ? "" : "\\");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1914 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1915 sprintf((char *)IObuff, _("E62: Nested %s%c"),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1916 reg_magic == MAGIC_ALL ? "" : "\\", no_Magic(peekchr()));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1917 EMSG_RET_NULL(IObuff);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1918 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1919
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1920 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1921 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1922
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1923 /* When making changes to classchars also change nfa_classcodes. */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1924 static char_u *classchars = (char_u *)".iIkKfFpPsSdDxXoOwWhHaAlLuU";
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1925 static int classcodes[] = {
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1926 ANY, IDENT, SIDENT, KWORD, SKWORD,
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1927 FNAME, SFNAME, PRINT, SPRINT,
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1928 WHITE, NWHITE, DIGIT, NDIGIT,
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1929 HEX, NHEX, OCTAL, NOCTAL,
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1930 WORD, NWORD, HEAD, NHEAD,
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1931 ALPHA, NALPHA, LOWER, NLOWER,
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1932 UPPER, NUPPER
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1933 };
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1934
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1935 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
1936 * Parse the lowest level.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1937 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1938 * Optimization: gobbles an entire sequence of ordinary characters so that
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1939 * it can turn them into a single node, which is smaller to store and
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1940 * faster to run. Don't do this when one_exactly is set.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1941 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1942 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1943 regatom(int *flagp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1944 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1945 char_u *ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1946 int flags;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1947 int c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1948 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1949 int extra = 0;
8021
b6b4f354df23 commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents: 7833
diff changeset
1950 int save_prev_at_start = prev_at_start;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1951
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1952 *flagp = WORST; /* Tentatively. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1953
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1954 c = getchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1955 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1956 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1957 case Magic('^'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1958 ret = regnode(BOL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1959 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1960
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1961 case Magic('$'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1962 ret = regnode(EOL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1963 #if defined(FEAT_SYN_HL) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1964 had_eol = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1965 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1966 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1967
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1968 case Magic('<'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1969 ret = regnode(BOW);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1970 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1971
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1972 case Magic('>'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1973 ret = regnode(EOW);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1974 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1975
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1976 case Magic('_'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1977 c = no_Magic(getchr());
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1978 if (c == '^') /* "\_^" is start-of-line */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1979 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1980 ret = regnode(BOL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1981 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1982 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1983 if (c == '$') /* "\_$" is end-of-line */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1984 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1985 ret = regnode(EOL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1986 #if defined(FEAT_SYN_HL) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1987 had_eol = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1988 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1989 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1990 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1991
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1992 extra = ADD_NL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1993 *flagp |= HASNL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1994
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1995 /* "\_[" is character range plus newline */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1996 if (c == '[')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1997 goto collection;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1998
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1999 /* "\_x" is character class plus newline */
12674
e769c912fcd9 patch 8.0.1215: newer gcc warns for implicit fallthrough
Christian Brabandt <cb@256bit.org>
parents: 11529
diff changeset
2000 /* FALLTHROUGH */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2001
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2002 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2003 * Character classes.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2004 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2005 case Magic('.'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2006 case Magic('i'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2007 case Magic('I'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2008 case Magic('k'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2009 case Magic('K'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2010 case Magic('f'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2011 case Magic('F'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2012 case Magic('p'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2013 case Magic('P'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2014 case Magic('s'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2015 case Magic('S'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2016 case Magic('d'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2017 case Magic('D'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2018 case Magic('x'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2019 case Magic('X'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2020 case Magic('o'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2021 case Magic('O'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2022 case Magic('w'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2023 case Magic('W'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2024 case Magic('h'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2025 case Magic('H'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2026 case Magic('a'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2027 case Magic('A'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2028 case Magic('l'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2029 case Magic('L'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2030 case Magic('u'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2031 case Magic('U'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2032 p = vim_strchr(classchars, no_Magic(c));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2033 if (p == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2034 EMSG_RET_NULL(_("E63: invalid use of \\_"));
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2035 #ifdef FEAT_MBYTE
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2036 /* When '.' is followed by a composing char ignore the dot, so that
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2037 * the composing char is matched here. */
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2038 if (enc_utf8 && c == Magic('.') && utf_iscomposing(peekchr()))
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2039 {
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2040 c = getchr();
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2041 goto do_multibyte;
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2042 }
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2043 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2044 ret = regnode(classcodes[p - classchars] + extra);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2045 *flagp |= HASWIDTH | SIMPLE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2046 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2047
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2048 case Magic('n'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2049 if (reg_string)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2050 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2051 /* In a string "\n" matches a newline character. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2052 ret = regnode(EXACTLY);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2053 regc(NL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2054 regc(NUL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2055 *flagp |= HASWIDTH | SIMPLE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2056 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2057 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2058 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2059 /* In buffer text "\n" matches the end of a line. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2060 ret = regnode(NEWL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2061 *flagp |= HASWIDTH | HASNL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2062 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2063 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2064
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2065 case Magic('('):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2066 if (one_exactly)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2067 EMSG_ONE_RET_NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2068 ret = reg(REG_PAREN, &flags);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2069 if (ret == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2070 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2071 *flagp |= flags & (HASWIDTH | SPSTART | HASNL | HASLOOKBH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2072 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2073
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2074 case NUL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2075 case Magic('|'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2076 case Magic('&'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2077 case Magic(')'):
1468
200b706675a5 updated for version 7.1-183
vimboss
parents: 1458
diff changeset
2078 if (one_exactly)
200b706675a5 updated for version 7.1-183
vimboss
parents: 1458
diff changeset
2079 EMSG_ONE_RET_NULL;
10359
66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f
Christian Brabandt <cb@256bit.org>
parents: 10245
diff changeset
2080 IEMSG_RET_NULL(_(e_internal)); /* Supposed to be caught earlier. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2081 /* NOTREACHED */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2082
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2083 case Magic('='):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2084 case Magic('?'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2085 case Magic('+'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2086 case Magic('@'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2087 case Magic('{'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2088 case Magic('*'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2089 c = no_Magic(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2090 sprintf((char *)IObuff, _("E64: %s%c follows nothing"),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2091 (c == '*' ? reg_magic >= MAGIC_ON : reg_magic == MAGIC_ALL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2092 ? "" : "\\", c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2093 EMSG_RET_NULL(IObuff);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2094 /* NOTREACHED */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2095
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2096 case Magic('~'): /* previous substitute pattern */
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 308
diff changeset
2097 if (reg_prev_sub != NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2098 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2099 char_u *lp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2100
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2101 ret = regnode(EXACTLY);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2102 lp = reg_prev_sub;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2103 while (*lp != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2104 regc(*lp++);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2105 regc(NUL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2106 if (*reg_prev_sub != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2107 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2108 *flagp |= HASWIDTH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2109 if ((lp - reg_prev_sub) == 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2110 *flagp |= SIMPLE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2111 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2112 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2113 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2114 EMSG_RET_NULL(_(e_nopresub));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2115 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2116
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2117 case Magic('1'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2118 case Magic('2'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2119 case Magic('3'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2120 case Magic('4'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2121 case Magic('5'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2122 case Magic('6'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2123 case Magic('7'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2124 case Magic('8'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2125 case Magic('9'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2126 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2127 int refnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2128
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2129 refnum = c - Magic('0');
11525
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
2130 if (!seen_endbrace(refnum))
14b6b79d685b patch 8.0.0645: no error for illegal back reference in NFA engine
Christian Brabandt <cb@256bit.org>
parents: 11521
diff changeset
2131 return NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2132 ret = regnode(BACKREF + refnum);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2133 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2134 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2135
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2136 case Magic('z'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2137 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2138 c = no_Magic(getchr());
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2139 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2140 {
741
ac1f1e69c50d updated for version 7.0222
vimboss
parents: 714
diff changeset
2141 #ifdef FEAT_SYN_HL
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2142 case '(': if (reg_do_extmatch != REX_SET)
4688
371cc0c44097 updated for version 7.3.1091
Bram Moolenaar <bram@vim.org>
parents: 4682
diff changeset
2143 EMSG_RET_NULL(_(e_z_not_allowed));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2144 if (one_exactly)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2145 EMSG_ONE_RET_NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2146 ret = reg(REG_ZPAREN, &flags);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2147 if (ret == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2148 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2149 *flagp |= flags & (HASWIDTH|SPSTART|HASNL|HASLOOKBH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2150 re_has_z = REX_SET;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2151 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2152
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2153 case '1':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2154 case '2':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2155 case '3':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2156 case '4':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2157 case '5':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2158 case '6':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2159 case '7':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2160 case '8':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2161 case '9': if (reg_do_extmatch != REX_USE)
4688
371cc0c44097 updated for version 7.3.1091
Bram Moolenaar <bram@vim.org>
parents: 4682
diff changeset
2162 EMSG_RET_NULL(_(e_z1_not_allowed));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2163 ret = regnode(ZREF + c - '0');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2164 re_has_z = REX_USE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2165 break;
741
ac1f1e69c50d updated for version 7.0222
vimboss
parents: 714
diff changeset
2166 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2167
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2168 case 's': ret = regnode(MOPEN + 0);
6203
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
2169 if (re_mult_next("\\zs") == FAIL)
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
2170 return NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2171 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2172
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2173 case 'e': ret = regnode(MCLOSE + 0);
6203
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
2174 if (re_mult_next("\\ze") == FAIL)
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
2175 return NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2176 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2177
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2178 default: EMSG_RET_NULL(_("E68: Invalid character after \\z"));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2179 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2180 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2181 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2182
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2183 case Magic('%'):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2184 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2185 c = no_Magic(getchr());
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2186 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2187 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2188 /* () without a back reference */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2189 case '(':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2190 if (one_exactly)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2191 EMSG_ONE_RET_NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2192 ret = reg(REG_NPAREN, &flags);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2193 if (ret == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2194 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2195 *flagp |= flags & (HASWIDTH | SPSTART | HASNL | HASLOOKBH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2196 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2197
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2198 /* Catch \%^ and \%$ regardless of where they appear in the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2199 * pattern -- regardless of whether or not it makes sense. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2200 case '^':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2201 ret = regnode(RE_BOF);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2202 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2203
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2204 case '$':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2205 ret = regnode(RE_EOF);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2206 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2207
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2208 case '#':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2209 ret = regnode(CURSOR);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2210 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2211
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2212 case 'V':
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2213 ret = regnode(RE_VISUAL);
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2214 break;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2215
5901
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
2216 case 'C':
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
2217 ret = regnode(RE_COMPOSING);
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
2218 break;
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
2219
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2220 /* \%[abc]: Emit as a list of branches, all ending at the last
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2221 * branch which matches nothing. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2222 case '[':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2223 if (one_exactly) /* doesn't nest */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2224 EMSG_ONE_RET_NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2225 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2226 char_u *lastbranch;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2227 char_u *lastnode = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2228 char_u *br;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2229
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2230 ret = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2231 while ((c = getchr()) != ']')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2232 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2233 if (c == NUL)
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
2234 EMSG2_RET_NULL(_(e_missing_sb),
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2235 reg_magic == MAGIC_ALL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2236 br = regnode(BRANCH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2237 if (ret == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2238 ret = br;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2239 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2240 regtail(lastnode, br);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2241
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2242 ungetchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2243 one_exactly = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2244 lastnode = regatom(flagp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2245 one_exactly = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2246 if (lastnode == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2247 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2248 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2249 if (ret == NULL)
4760
532a9855bd30 updated for version 7.3.1127
Bram Moolenaar <bram@vim.org>
parents: 4746
diff changeset
2250 EMSG2_RET_NULL(_(e_empty_sb),
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2251 reg_magic == MAGIC_ALL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2252 lastbranch = regnode(BRANCH);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2253 br = regnode(NOTHING);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2254 if (ret != JUST_CALC_SIZE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2255 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2256 regtail(lastnode, br);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2257 regtail(lastbranch, br);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2258 /* connect all branches to the NOTHING
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2259 * branch at the end */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2260 for (br = ret; br != lastnode; )
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2261 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2262 if (OP(br) == BRANCH)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2263 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2264 regtail(br, lastbranch);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2265 br = OPERAND(br);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2266 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2267 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2268 br = regnext(br);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2269 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2270 }
1701
4577899b8ff1 updated for version 7.2c-003
vimboss
parents: 1621
diff changeset
2271 *flagp &= ~(HASWIDTH | SIMPLE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2272 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2273 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2274
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2275 case 'd': /* %d123 decimal */
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2276 case 'o': /* %o123 octal */
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2277 case 'x': /* %xab hex 2 */
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2278 case 'u': /* %uabcd hex 4 */
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2279 case 'U': /* %U1234abcd hex 8 */
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2280 {
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
2281 long i;
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2282
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2283 switch (c)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2284 {
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2285 case 'd': i = getdecchrs(); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2286 case 'o': i = getoctchrs(); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2287 case 'x': i = gethexchrs(2); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2288 case 'u': i = gethexchrs(4); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2289 case 'U': i = gethexchrs(8); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2290 default: i = -1; break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2291 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2292
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2293 if (i < 0)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2294 EMSG2_RET_NULL(
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2295 _("E678: Invalid character after %s%%[dxouU]"),
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2296 reg_magic == MAGIC_ALL);
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2297 #ifdef FEAT_MBYTE
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2298 if (use_multibytecode(i))
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2299 ret = regnode(MULTIBYTECODE);
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2300 else
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2301 #endif
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2302 ret = regnode(EXACTLY);
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2303 if (i == 0)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2304 regc(0x0a);
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2305 else
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2306 #ifdef FEAT_MBYTE
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2307 regmbc(i);
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2308 #else
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2309 regc(i);
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2310 #endif
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2311 regc(NUL);
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2312 *flagp |= HASWIDTH;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2313 break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2314 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2315
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2316 default:
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2317 if (VIM_ISDIGIT(c) || c == '<' || c == '>'
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2318 || c == '\'')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2319 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2320 long_u n = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2321 int cmp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2322
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2323 cmp = c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2324 if (cmp == '<' || cmp == '>')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2325 c = getchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2326 while (VIM_ISDIGIT(c))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2327 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2328 n = n * 10 + (c - '0');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2329 c = getchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2330 }
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2331 if (c == '\'' && n == 0)
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2332 {
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2333 /* "\%'m", "\%<'m" and "\%>'m": Mark */
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2334 c = getchr();
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2335 ret = regnode(RE_MARK);
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2336 if (ret == JUST_CALC_SIZE)
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2337 regsize += 2;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2338 else
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2339 {
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2340 *regcode++ = c;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2341 *regcode++ = cmp;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2342 }
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2343 break;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2344 }
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
2345 else if (c == 'l' || c == 'c' || c == 'v')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2346 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2347 if (c == 'l')
8021
b6b4f354df23 commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents: 7833
diff changeset
2348 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2349 ret = regnode(RE_LNUM);
8021
b6b4f354df23 commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents: 7833
diff changeset
2350 if (save_prev_at_start)
b6b4f354df23 commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents: 7833
diff changeset
2351 at_start = TRUE;
b6b4f354df23 commit https://github.com/vim/vim/commit/7c29f387819b5817b003d2ba73e2b5cf3cb3d0dd
Christian Brabandt <cb@256bit.org>
parents: 7833
diff changeset
2352 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2353 else if (c == 'c')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2354 ret = regnode(RE_COL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2355 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2356 ret = regnode(RE_VCOL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2357 if (ret == JUST_CALC_SIZE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2358 regsize += 5;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2359 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2360 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2361 /* put the number and the optional
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2362 * comparator after the opcode */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2363 regcode = re_put_long(regcode, n);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2364 *regcode++ = cmp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2365 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2366 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2367 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2368 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2369
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2370 EMSG2_RET_NULL(_("E71: Invalid character after %s%%"),
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2371 reg_magic == MAGIC_ALL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2372 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2373 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2374 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2375
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2376 case Magic('['):
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2377 collection:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2378 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2379 char_u *lp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2380
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2381 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2382 * If there is no matching ']', we assume the '[' is a normal
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2383 * character. This makes 'incsearch' and ":help [" work.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2384 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2385 lp = skip_anyof(regparse);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2386 if (*lp == ']') /* there is a matching ']' */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2387 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2388 int startc = -1; /* > 0 when next '-' is a range */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2389 int endc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2390
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2391 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2392 * In a character class, different parsing rules apply.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2393 * Not even \ is special anymore, nothing is.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2394 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2395 if (*regparse == '^') /* Complement of range. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2396 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2397 ret = regnode(ANYBUT + extra);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2398 regparse++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2399 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2400 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2401 ret = regnode(ANYOF + extra);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2402
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2403 /* At the start ']' and '-' mean the literal character. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2404 if (*regparse == ']' || *regparse == '-')
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2405 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2406 startc = *regparse;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2407 regc(*regparse++);
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2408 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2409
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2410 while (*regparse != NUL && *regparse != ']')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2411 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2412 if (*regparse == '-')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2413 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2414 ++regparse;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2415 /* The '-' is not used for a range at the end and
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2416 * after or before a '\n'. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2417 if (*regparse == ']' || *regparse == NUL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2418 || startc == -1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2419 || (regparse[0] == '\\' && regparse[1] == 'n'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2420 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2421 regc('-');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2422 startc = '-'; /* [--x] is a range */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2423 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2424 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2425 {
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2426 /* Also accept "a-[.z.]" */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2427 endc = 0;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2428 if (*regparse == '[')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2429 endc = get_coll_element(&regparse);
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2430 if (endc == 0)
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2431 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2432 #ifdef FEAT_MBYTE
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2433 if (has_mbyte)
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2434 endc = mb_ptr2char_adv(&regparse);
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2435 else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2436 #endif
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2437 endc = *regparse++;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2438 }
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2439
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2440 /* Handle \o40, \x20 and \u20AC style sequences */
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
2441 if (endc == '\\' && !reg_cpo_lit && !reg_cpo_bsl)
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2442 endc = coll_get_char();
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2443
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2444 if (startc > endc)
11480
99ce30ac4226 patch 8.0.0623: error for invalid regexp is not very informative
Christian Brabandt <cb@256bit.org>
parents: 11269
diff changeset
2445 EMSG_RET_NULL(_(e_reverse_range));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2446 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2447 if (has_mbyte && ((*mb_char2len)(startc) > 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2448 || (*mb_char2len)(endc) > 1))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2449 {
11480
99ce30ac4226 patch 8.0.0623: error for invalid regexp is not very informative
Christian Brabandt <cb@256bit.org>
parents: 11269
diff changeset
2450 /* Limit to a range of 256 chars. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2451 if (endc > startc + 256)
11480
99ce30ac4226 patch 8.0.0623: error for invalid regexp is not very informative
Christian Brabandt <cb@256bit.org>
parents: 11269
diff changeset
2452 EMSG_RET_NULL(_(e_large_class));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2453 while (++startc <= endc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2454 regmbc(startc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2455 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2456 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2457 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2458 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2459 #ifdef EBCDIC
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2460 int alpha_only = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2461
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2462 /* for alphabetical range skip the gaps
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2463 * 'i'-'j', 'r'-'s', 'I'-'J' and 'R'-'S'. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2464 if (isalpha(startc) && isalpha(endc))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2465 alpha_only = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2466 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2467 while (++startc <= endc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2468 #ifdef EBCDIC
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2469 if (!alpha_only || isalpha(startc))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2470 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2471 regc(startc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2472 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2473 startc = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2474 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2475 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2476 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2477 * Only "\]", "\^", "\]" and "\\" are special in Vi. Vim
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2478 * accepts "\t", "\e", etc., but only when the 'l' flag in
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2479 * 'cpoptions' is not included.
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2480 * Posix doesn't recognize backslash at all.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2481 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2482 else if (*regparse == '\\'
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
2483 && !reg_cpo_bsl
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2484 && (vim_strchr(REGEXP_INRANGE, regparse[1]) != NULL
4744
a62695305e03 updated for version 7.3.1119
Bram Moolenaar <bram@vim.org>
parents: 4732
diff changeset
2485 || (!reg_cpo_lit
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2486 && vim_strchr(REGEXP_ABBR,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2487 regparse[1]) != NULL)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2488 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2489 regparse++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2490 if (*regparse == 'n')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2491 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2492 /* '\n' in range: also match NL */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2493 if (ret != JUST_CALC_SIZE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2494 {
4084
2c12c4e2fae8 updated for version 7.3.796
Bram Moolenaar <bram@vim.org>
parents: 4069
diff changeset
2495 /* Using \n inside [^] does not change what
2c12c4e2fae8 updated for version 7.3.796
Bram Moolenaar <bram@vim.org>
parents: 4069
diff changeset
2496 * matches. "[^\n]" is the same as ".". */
2c12c4e2fae8 updated for version 7.3.796
Bram Moolenaar <bram@vim.org>
parents: 4069
diff changeset
2497 if (*ret == ANYOF)
2c12c4e2fae8 updated for version 7.3.796
Bram Moolenaar <bram@vim.org>
parents: 4069
diff changeset
2498 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2499 *ret = ANYOF + ADD_NL;
4084
2c12c4e2fae8 updated for version 7.3.796
Bram Moolenaar <bram@vim.org>
parents: 4069
diff changeset
2500 *flagp |= HASNL;
2c12c4e2fae8 updated for version 7.3.796
Bram Moolenaar <bram@vim.org>
parents: 4069
diff changeset
2501 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2502 /* else: must have had a \n already */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2503 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2504 regparse++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2505 startc = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2506 }
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2507 else if (*regparse == 'd'
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2508 || *regparse == 'o'
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2509 || *regparse == 'x'
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2510 || *regparse == 'u'
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2511 || *regparse == 'U')
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2512 {
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2513 startc = coll_get_char();
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2514 if (startc == 0)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2515 regc(0x0a);
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2516 else
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2517 #ifdef FEAT_MBYTE
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2518 regmbc(startc);
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2519 #else
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2520 regc(startc);
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2521 #endif
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
2522 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2523 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2524 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2525 startc = backslash_trans(*regparse++);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2526 regc(startc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2527 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2528 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2529 else if (*regparse == '[')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2530 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2531 int c_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2532 int cu;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2533
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2534 c_class = get_char_class(&regparse);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2535 startc = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2536 /* Characters assumed to be 8 bits! */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2537 switch (c_class)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2538 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2539 case CLASS_NONE:
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2540 c_class = get_equi_class(&regparse);
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2541 if (c_class != 0)
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2542 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2543 /* produce equivalence class */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2544 reg_equi_class(c_class);
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2545 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2546 else if ((c_class =
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2547 get_coll_element(&regparse)) != 0)
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2548 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2549 /* produce a collating element */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2550 regmbc(c_class);
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2551 }
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2552 else
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2553 {
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2554 /* literal '[', allow [[-x] as a range */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2555 startc = *regparse++;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2556 regc(startc);
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
2557 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2558 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2559 case CLASS_ALNUM:
9015
42b228c8701b commit https://github.com/vim/vim/commit/e8aee7dcf9b12becff86e8ce1783a86801c5f9f6
Christian Brabandt <cb@256bit.org>
parents: 8995
diff changeset
2560 for (cu = 1; cu < 128; cu++)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2561 if (isalnum(cu))
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2562 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2563 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2564 case CLASS_ALPHA:
9015
42b228c8701b commit https://github.com/vim/vim/commit/e8aee7dcf9b12becff86e8ce1783a86801c5f9f6
Christian Brabandt <cb@256bit.org>
parents: 8995
diff changeset
2565 for (cu = 1; cu < 128; cu++)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2566 if (isalpha(cu))
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2567 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2568 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2569 case CLASS_BLANK:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2570 regc(' ');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2571 regc('\t');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2572 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2573 case CLASS_CNTRL:
11267
588de97b40e7 patch 8.0.0519: character classes are not well tested
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
2574 for (cu = 1; cu <= 127; cu++)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2575 if (iscntrl(cu))
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2576 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2577 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2578 case CLASS_DIGIT:
11267
588de97b40e7 patch 8.0.0519: character classes are not well tested
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
2579 for (cu = 1; cu <= 127; cu++)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2580 if (VIM_ISDIGIT(cu))
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2581 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2582 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2583 case CLASS_GRAPH:
11267
588de97b40e7 patch 8.0.0519: character classes are not well tested
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
2584 for (cu = 1; cu <= 127; cu++)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2585 if (isgraph(cu))
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2586 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2587 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2588 case CLASS_LOWER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2589 for (cu = 1; cu <= 255; cu++)
9015
42b228c8701b commit https://github.com/vim/vim/commit/e8aee7dcf9b12becff86e8ce1783a86801c5f9f6
Christian Brabandt <cb@256bit.org>
parents: 8995
diff changeset
2590 if (MB_ISLOWER(cu) && cu != 170
42b228c8701b commit https://github.com/vim/vim/commit/e8aee7dcf9b12becff86e8ce1783a86801c5f9f6
Christian Brabandt <cb@256bit.org>
parents: 8995
diff changeset
2591 && cu != 186)
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2592 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2593 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2594 case CLASS_PRINT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2595 for (cu = 1; cu <= 255; cu++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2596 if (vim_isprintc(cu))
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2597 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2598 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2599 case CLASS_PUNCT:
9015
42b228c8701b commit https://github.com/vim/vim/commit/e8aee7dcf9b12becff86e8ce1783a86801c5f9f6
Christian Brabandt <cb@256bit.org>
parents: 8995
diff changeset
2600 for (cu = 1; cu < 128; cu++)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2601 if (ispunct(cu))
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2602 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2603 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2604 case CLASS_SPACE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2605 for (cu = 9; cu <= 13; cu++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2606 regc(cu);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2607 regc(' ');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2608 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2609 case CLASS_UPPER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2610 for (cu = 1; cu <= 255; cu++)
1347
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
2611 if (MB_ISUPPER(cu))
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2612 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2613 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2614 case CLASS_XDIGIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2615 for (cu = 1; cu <= 255; cu++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2616 if (vim_isxdigit(cu))
8995
3cf6704d6efc commit https://github.com/vim/vim/commit/af98a49dd0ef1661b4998f118151fddbf6e4df75
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
2617 regmbc(cu);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2618 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2619 case CLASS_TAB:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2620 regc('\t');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2621 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2622 case CLASS_RETURN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2623 regc('\r');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2624 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2625 case CLASS_BACKSPACE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2626 regc('\b');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2627 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2628 case CLASS_ESCAPE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2629 regc('\033');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2630 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2631 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2632 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2633 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2634 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2635 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2636 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2637 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2638 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2639
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2640 /* produce a multibyte character, including any
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2641 * following composing characters */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2642 startc = mb_ptr2char(regparse);
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
2643 len = (*mb_ptr2len)(regparse);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2644 if (enc_utf8 && utf_char2len(startc) != len)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2645 startc = -1; /* composing chars */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2646 while (--len >= 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2647 regc(*regparse++);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2648 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2649 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2650 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2651 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2652 startc = *regparse++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2653 regc(startc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2654 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2655 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2656 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2657 regc(NUL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2658 prevchr_len = 1; /* last char was the ']' */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2659 if (*regparse != ']')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2660 EMSG_RET_NULL(_(e_toomsbra)); /* Cannot happen? */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2661 skipchr(); /* let's be friends with the lexer again */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2662 *flagp |= HASWIDTH | SIMPLE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2663 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2664 }
481
66080ac5dab7 updated for version 7.0130
vimboss
parents: 474
diff changeset
2665 else if (reg_strict)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2666 EMSG2_RET_NULL(_(e_missingbracket), reg_magic > MAGIC_OFF);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2667 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2668 /* FALLTHROUGH */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2669
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2670 default:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2671 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2672 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2673
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2674 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2675 /* A multi-byte character is handled as a separate atom if it's
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2676 * before a multi and when it's a composing char. */
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2677 if (use_multibytecode(c))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2678 {
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2679 do_multibyte:
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2680 ret = regnode(MULTIBYTECODE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2681 regmbc(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2682 *flagp |= HASWIDTH | SIMPLE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2683 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2684 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2685 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2686
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2687 ret = regnode(EXACTLY);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2688
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2689 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2690 * Append characters as long as:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2691 * - there is no following multi, we then need the character in
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2692 * front of it as a single character operand
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2693 * - not running into a Magic character
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2694 * - "one_exactly" is not set
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2695 * But always emit at least one character. Might be a Multi,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2696 * e.g., a "[" without matching "]".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2697 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2698 for (len = 0; c != NUL && (len == 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2699 || (re_multi_type(peekchr()) == NOT_MULTI
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2700 && !one_exactly
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2701 && !is_Magic(c))); ++len)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2702 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2703 c = no_Magic(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2704 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2705 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2706 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2707 regmbc(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2708 if (enc_utf8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2709 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2710 int l;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2711
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2712 /* Need to get composing character too. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2713 for (;;)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2714 {
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2715 l = utf_ptr2len(regparse);
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2716 if (!UTF_COMPOSINGLIKE(regparse, regparse + l))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2717 break;
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2718 regmbc(utf_ptr2char(regparse));
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2719 skipchr();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2720 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2721 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2722 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2723 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2724 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2725 regc(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2726 c = getchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2727 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2728 ungetchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2729
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2730 regc(NUL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2731 *flagp |= HASWIDTH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2732 if (len == 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2733 *flagp |= SIMPLE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2734 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2735 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2736 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2737
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2738 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2739 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2740
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2741 #ifdef FEAT_MBYTE
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2742 /*
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2743 * Return TRUE if MULTIBYTECODE should be used instead of EXACTLY for
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2744 * character "c".
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2745 */
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2746 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2747 use_multibytecode(int c)
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2748 {
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2749 return has_mbyte && (*mb_char2len)(c) > 1
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2750 && (re_multi_type(peekchr()) != NOT_MULTI
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2751 || (enc_utf8 && utf_iscomposing(c)));
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2752 }
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2753 #endif
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
2754
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2755 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2756 * Emit a node.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2757 * Return pointer to generated code.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2758 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2759 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2760 regnode(int op)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2761 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2762 char_u *ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2763
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2764 ret = regcode;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2765 if (ret == JUST_CALC_SIZE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2766 regsize += 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2767 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2768 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2769 *regcode++ = op;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2770 *regcode++ = NUL; /* Null "next" pointer. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2771 *regcode++ = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2772 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2773 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2774 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2775
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2776 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2777 * Emit (if appropriate) a byte of code
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2778 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2779 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2780 regc(int b)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2781 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2782 if (regcode == JUST_CALC_SIZE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2783 regsize++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2784 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2785 *regcode++ = b;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2786 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2787
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2788 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2789 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2790 * Emit (if appropriate) a multi-byte character of code
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2791 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2792 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2793 regmbc(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2794 {
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
2795 if (!has_mbyte && c > 0xff)
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
2796 return;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2797 if (regcode == JUST_CALC_SIZE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2798 regsize += (*mb_char2len)(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2799 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2800 regcode += (*mb_char2bytes)(c, regcode);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2801 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2802 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2803
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2804 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2805 * Insert an operator in front of already-emitted operand
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2806 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2807 * Means relocating the operand.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2808 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2809 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2810 reginsert(int op, char_u *opnd)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2811 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2812 char_u *src;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2813 char_u *dst;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2814 char_u *place;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2815
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2816 if (regcode == JUST_CALC_SIZE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2817 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2818 regsize += 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2819 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2820 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2821 src = regcode;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2822 regcode += 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2823 dst = regcode;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2824 while (src > opnd)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2825 *--dst = *--src;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2826
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2827 place = opnd; /* Op node, where operand used to be. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2828 *place++ = op;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2829 *place++ = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2830 *place = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2831 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2832
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2833 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2834 * Insert an operator in front of already-emitted operand.
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2835 * Add a number to the operator.
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2836 */
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2837 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2838 reginsert_nr(int op, long val, char_u *opnd)
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2839 {
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2840 char_u *src;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2841 char_u *dst;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2842 char_u *place;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2843
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2844 if (regcode == JUST_CALC_SIZE)
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2845 {
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2846 regsize += 7;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2847 return;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2848 }
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2849 src = regcode;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2850 regcode += 7;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2851 dst = regcode;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2852 while (src > opnd)
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2853 *--dst = *--src;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2854
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2855 place = opnd; /* Op node, where operand used to be. */
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2856 *place++ = op;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2857 *place++ = NUL;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2858 *place++ = NUL;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2859 place = re_put_long(place, (long_u)val);
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2860 }
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2861
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2862 /*
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
2863 * Insert an operator in front of already-emitted operand.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2864 * The operator has the given limit values as operands. Also set next pointer.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2865 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2866 * Means relocating the operand.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2867 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2868 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2869 reginsert_limits(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2870 int op,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2871 long minval,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2872 long maxval,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2873 char_u *opnd)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2874 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2875 char_u *src;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2876 char_u *dst;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2877 char_u *place;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2878
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2879 if (regcode == JUST_CALC_SIZE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2880 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2881 regsize += 11;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2882 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2883 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2884 src = regcode;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2885 regcode += 11;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2886 dst = regcode;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2887 while (src > opnd)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2888 *--dst = *--src;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2889
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2890 place = opnd; /* Op node, where operand used to be. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2891 *place++ = op;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2892 *place++ = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2893 *place++ = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2894 place = re_put_long(place, (long_u)minval);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2895 place = re_put_long(place, (long_u)maxval);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2896 regtail(opnd, place);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2897 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2898
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2899 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2900 * Write a long as four bytes at "p" and return pointer to the next char.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2901 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2902 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2903 re_put_long(char_u *p, long_u val)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2904 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2905 *p++ = (char_u) ((val >> 24) & 0377);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2906 *p++ = (char_u) ((val >> 16) & 0377);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2907 *p++ = (char_u) ((val >> 8) & 0377);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2908 *p++ = (char_u) (val & 0377);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2909 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2910 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2911
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2912 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2913 * Set the next-pointer at the end of a node chain.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2914 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2915 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2916 regtail(char_u *p, char_u *val)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2917 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2918 char_u *scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2919 char_u *temp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2920 int offset;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2921
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2922 if (p == JUST_CALC_SIZE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2923 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2924
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2925 /* Find last node. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2926 scan = p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2927 for (;;)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2928 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2929 temp = regnext(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2930 if (temp == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2931 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2932 scan = temp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2933 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2934
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
2935 if (OP(scan) == BACK)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2936 offset = (int)(scan - val);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2937 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2938 offset = (int)(val - scan);
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
2939 /* When the offset uses more than 16 bits it can no longer fit in the two
2974
59130cd78dfc updated for version 7.3.259
Bram Moolenaar <bram@vim.org>
parents: 2904
diff changeset
2940 * bytes available. Use a global flag to avoid having to check return
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
2941 * values in too many places. */
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
2942 if (offset > 0xffff)
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
2943 reg_toolong = TRUE;
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
2944 else
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
2945 {
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
2946 *(scan + 1) = (char_u) (((unsigned)offset >> 8) & 0377);
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
2947 *(scan + 2) = (char_u) (offset & 0377);
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
2948 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2949 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2950
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2951 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2952 * Like regtail, on item after a BRANCH; nop if none.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2953 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2954 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2955 regoptail(char_u *p, char_u *val)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2956 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2957 /* When op is neither BRANCH nor BRACE_COMPLEX0-9, it is "operandless" */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2958 if (p == NULL || p == JUST_CALC_SIZE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2959 || (OP(p) != BRANCH
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2960 && (OP(p) < BRACE_COMPLEX || OP(p) > BRACE_COMPLEX + 9)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2961 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2962 regtail(OPERAND(p), val);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2963 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2964
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2965 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2966 * Functions for getting characters from the regexp input.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2967 */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2968 /*
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2969 * Start parsing at "str".
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2970 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2971 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2972 initchr(char_u *str)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2973 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2974 regparse = str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2975 prevchr_len = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2976 curchr = prevprevchr = prevchr = nextchr = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2977 at_start = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2978 prev_at_start = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2979 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2980
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
2981 /*
4679
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2982 * 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
2983 * starts in the same state again.
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2984 */
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2985 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2986 save_parse_state(parse_state_T *ps)
4679
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2987 {
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2988 ps->regparse = regparse;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2989 ps->prevchr_len = prevchr_len;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2990 ps->curchr = curchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2991 ps->prevchr = prevchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2992 ps->prevprevchr = prevprevchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2993 ps->nextchr = nextchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2994 ps->at_start = at_start;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2995 ps->prev_at_start = prev_at_start;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2996 ps->regnpar = regnpar;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2997 }
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2998
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
2999 /*
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3000 * Restore a previously saved parse state.
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3001 */
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3002 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3003 restore_parse_state(parse_state_T *ps)
4679
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3004 {
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3005 regparse = ps->regparse;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3006 prevchr_len = ps->prevchr_len;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3007 curchr = ps->curchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3008 prevchr = ps->prevchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3009 prevprevchr = ps->prevprevchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3010 nextchr = ps->nextchr;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3011 at_start = ps->at_start;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3012 prev_at_start = ps->prev_at_start;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3013 regnpar = ps->regnpar;
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3014 }
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3015
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3016
4d92b873acef updated for version 7.3.1087
Bram Moolenaar <bram@vim.org>
parents: 4579
diff changeset
3017 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3018 * Get the next character without advancing.
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3019 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3020 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3021 peekchr(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3022 {
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3023 static int after_slash = FALSE;
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3024
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3025 if (curchr == -1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3026 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3027 switch (curchr = regparse[0])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3028 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3029 case '.':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3030 case '[':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3031 case '~':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3032 /* magic when 'magic' is on */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3033 if (reg_magic >= MAGIC_ON)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3034 curchr = Magic(curchr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3035 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3036 case '(':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3037 case ')':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3038 case '{':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3039 case '%':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3040 case '+':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3041 case '=':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3042 case '?':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3043 case '@':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3044 case '!':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3045 case '&':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3046 case '|':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3047 case '<':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3048 case '>':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3049 case '#': /* future ext. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3050 case '"': /* future ext. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3051 case '\'': /* future ext. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3052 case ',': /* future ext. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3053 case '-': /* future ext. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3054 case ':': /* future ext. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3055 case ';': /* future ext. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3056 case '`': /* future ext. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3057 case '/': /* Can't be used in / command */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3058 /* magic only after "\v" */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3059 if (reg_magic == MAGIC_ALL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3060 curchr = Magic(curchr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3061 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3062 case '*':
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3063 /* * is not magic as the very first character, eg "?*ptr", when
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3064 * after '^', eg "/^*ptr" and when after "\(", "\|", "\&". But
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3065 * "\(\*" is not magic, thus must be magic if "after_slash" */
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3066 if (reg_magic >= MAGIC_ON
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3067 && !at_start
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3068 && !(prev_at_start && prevchr == Magic('^'))
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3069 && (after_slash
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3070 || (prevchr != Magic('(')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3071 && prevchr != Magic('&')
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3072 && prevchr != Magic('|'))))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3073 curchr = Magic('*');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3074 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3075 case '^':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3076 /* '^' is only magic as the very first character and if it's after
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3077 * "\(", "\|", "\&' or "\n" */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3078 if (reg_magic >= MAGIC_OFF
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3079 && (at_start
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3080 || reg_magic == MAGIC_ALL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3081 || prevchr == Magic('(')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3082 || prevchr == Magic('|')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3083 || prevchr == Magic('&')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3084 || prevchr == Magic('n')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3085 || (no_Magic(prevchr) == '('
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3086 && prevprevchr == Magic('%'))))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3087 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3088 curchr = Magic('^');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3089 at_start = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3090 prev_at_start = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3091 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3092 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3093 case '$':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3094 /* '$' is only magic as the very last char and if it's in front of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3095 * either "\|", "\)", "\&", or "\n" */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3096 if (reg_magic >= MAGIC_OFF)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3097 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3098 char_u *p = regparse + 1;
6041
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3099 int is_magic_all = (reg_magic == MAGIC_ALL);
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3100
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3101 /* ignore \c \C \m \M \v \V and \Z after '$' */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3102 while (p[0] == '\\' && (p[1] == 'c' || p[1] == 'C'
6041
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3103 || p[1] == 'm' || p[1] == 'M'
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3104 || p[1] == 'v' || p[1] == 'V' || p[1] == 'Z'))
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3105 {
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3106 if (p[1] == 'v')
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3107 is_magic_all = TRUE;
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3108 else if (p[1] == 'm' || p[1] == 'M' || p[1] == 'V')
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3109 is_magic_all = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3110 p += 2;
6041
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3111 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3112 if (p[0] == NUL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3113 || (p[0] == '\\'
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3114 && (p[1] == '|' || p[1] == '&' || p[1] == ')'
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3115 || p[1] == 'n'))
6041
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3116 || (is_magic_all
761687c6808f updated for version 7.4.360
Bram Moolenaar <bram@vim.org>
parents: 5901
diff changeset
3117 && (p[0] == '|' || p[0] == '&' || p[0] == ')'))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3118 || reg_magic == MAGIC_ALL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3119 curchr = Magic('$');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3120 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3121 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3122 case '\\':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3123 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3124 int c = regparse[1];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3125
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3126 if (c == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3127 curchr = '\\'; /* trailing '\' */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3128 else if (
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3129 #ifdef EBCDIC
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3130 vim_strchr(META, c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3131 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3132 c <= '~' && META_flags[c]
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3133 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3134 )
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3135 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3136 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3137 * META contains everything that may be magic sometimes,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3138 * except ^ and $ ("\^" and "\$" are only magic after
6830
70fdcdaf96a6 patch 7.4.736
Bram Moolenaar <bram@vim.org>
parents: 6785
diff changeset
3139 * "\V"). We now fetch the next character and toggle its
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3140 * magicness. Therefore, \ is so meta-magic that it is
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3141 * not in META.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3142 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3143 curchr = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3144 prev_at_start = at_start;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3145 at_start = FALSE; /* be able to say "/\*ptr" */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3146 ++regparse;
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3147 ++after_slash;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3148 peekchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3149 --regparse;
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3150 --after_slash;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3151 curchr = toggle_Magic(curchr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3152 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3153 else if (vim_strchr(REGEXP_ABBR, c))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3154 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3155 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3156 * Handle abbreviations, like "\t" for TAB -- webb
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3157 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3158 curchr = backslash_trans(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3159 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3160 else if (reg_magic == MAGIC_NONE && (c == '$' || c == '^'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3161 curchr = toggle_Magic(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3162 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3163 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3164 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3165 * Next character can never be (made) magic?
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3166 * Then backslashing it won't do anything.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3167 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3168 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3169 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3170 curchr = (*mb_ptr2char)(regparse + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3171 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3172 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3173 curchr = c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3174 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3175 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3176 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3177
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3178 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3179 default:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3180 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3181 curchr = (*mb_ptr2char)(regparse);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3182 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3183 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3184 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3185
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3186 return curchr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3187 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3188
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3189 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3190 * Eat one lexed character. Do this in a way that we can undo it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3191 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3192 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3193 skipchr(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3194 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3195 /* peekchr() eats a backslash, do the same here */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3196 if (*regparse == '\\')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3197 prevchr_len = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3198 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3199 prevchr_len = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3200 if (regparse[prevchr_len] != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3201 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3202 #ifdef FEAT_MBYTE
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
3203 if (enc_utf8)
1449
799c1db62b42 updated for version 7.1-164
vimboss
parents: 1347
diff changeset
3204 /* exclude composing chars that mb_ptr2len does include */
799c1db62b42 updated for version 7.1-164
vimboss
parents: 1347
diff changeset
3205 prevchr_len += utf_ptr2len(regparse + prevchr_len);
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
3206 else if (has_mbyte)
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
3207 prevchr_len += (*mb_ptr2len)(regparse + prevchr_len);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3208 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3209 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3210 ++prevchr_len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3211 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3212 regparse += prevchr_len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3213 prev_at_start = at_start;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3214 at_start = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3215 prevprevchr = prevchr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3216 prevchr = curchr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3217 curchr = nextchr; /* use previously unget char, or -1 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3218 nextchr = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3219 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3220
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3221 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3222 * Skip a character while keeping the value of prev_at_start for at_start.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3223 * prevchr and prevprevchr are also kept.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3224 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3225 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3226 skipchr_keepstart(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3227 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3228 int as = prev_at_start;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3229 int pr = prevchr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3230 int prpr = prevprevchr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3231
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3232 skipchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3233 at_start = as;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3234 prevchr = pr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3235 prevprevchr = prpr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3236 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3237
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3238 /*
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3239 * Get the next character from the pattern. We know about magic and such, so
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3240 * therefore we need a lexical analyzer.
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3241 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3242 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3243 getchr(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3244 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3245 int chr = peekchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3246
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3247 skipchr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3248 return chr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3249 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3250
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3251 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3252 * put character back. Works only once!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3253 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3254 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3255 ungetchr(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3256 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3257 nextchr = curchr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3258 curchr = prevchr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3259 prevchr = prevprevchr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3260 at_start = prev_at_start;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3261 prev_at_start = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3262
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3263 /* Backup regparse, so that it's at the same position as before the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3264 * getchr(). */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3265 regparse -= prevchr_len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3266 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3267
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3268 /*
29
ac33b7c03fac updated for version 7.0018
vimboss
parents: 24
diff changeset
3269 * Get and return the value of the hex string at the current position.
ac33b7c03fac updated for version 7.0018
vimboss
parents: 24
diff changeset
3270 * Return -1 if there is no valid hex number.
ac33b7c03fac updated for version 7.0018
vimboss
parents: 24
diff changeset
3271 * The position is updated:
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3272 * blahblah\%x20asdf
856
8cd729851562 updated for version 7.0g
vimboss
parents: 840
diff changeset
3273 * before-^ ^-after
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3274 * The parameter controls the maximum number of input characters. This will be
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3275 * 2 when reading a \%x20 sequence and 4 when reading a \%u20AC sequence.
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3276 */
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3277 static long
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3278 gethexchrs(int maxinputlen)
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3279 {
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3280 long_u nr = 0;
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3281 int c;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3282 int i;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3283
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3284 for (i = 0; i < maxinputlen; ++i)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3285 {
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3286 c = regparse[0];
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3287 if (!vim_isxdigit(c))
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3288 break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3289 nr <<= 4;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3290 nr |= hex2nr(c);
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3291 ++regparse;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3292 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3293
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3294 if (i == 0)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3295 return -1;
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3296 return (long)nr;
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3297 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3298
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3299 /*
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
3300 * Get and return the value of the decimal string immediately after the
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3301 * current position. Return -1 for invalid. Consumes all digits.
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3302 */
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3303 static long
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3304 getdecchrs(void)
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3305 {
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3306 long_u nr = 0;
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3307 int c;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3308 int i;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3309
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3310 for (i = 0; ; ++i)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3311 {
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3312 c = regparse[0];
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3313 if (c < '0' || c > '9')
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3314 break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3315 nr *= 10;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3316 nr += c - '0';
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3317 ++regparse;
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
3318 curchr = -1; /* no longer valid */
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3319 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3320
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3321 if (i == 0)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3322 return -1;
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3323 return (long)nr;
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3324 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3325
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3326 /*
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3327 * get and return the value of the octal string immediately after the current
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3328 * position. Return -1 for invalid, or 0-255 for valid. Smart enough to handle
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3329 * numbers > 377 correctly (for example, 400 is treated as 40) and doesn't
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3330 * treat 8 or 9 as recognised characters. Position is updated:
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3331 * blahblah\%o210asdf
856
8cd729851562 updated for version 7.0g
vimboss
parents: 840
diff changeset
3332 * before-^ ^-after
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3333 */
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3334 static long
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3335 getoctchrs(void)
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3336 {
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3337 long_u nr = 0;
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3338 int c;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3339 int i;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3340
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3341 for (i = 0; i < 3 && nr < 040; ++i)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3342 {
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3343 c = regparse[0];
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3344 if (c < '0' || c > '7')
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3345 break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3346 nr <<= 3;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3347 nr |= hex2nr(c);
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3348 ++regparse;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3349 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3350
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3351 if (i == 0)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3352 return -1;
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3353 return (long)nr;
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3354 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3355
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3356 /*
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3357 * Get a number after a backslash that is inside [].
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3358 * When nothing is recognized return a backslash.
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3359 */
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3360 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3361 coll_get_char(void)
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3362 {
12752
09c856605191 patch 8.0.1254: undefined left shift in gethexchrs()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
3363 long nr = -1;
24
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3364
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3365 switch (*regparse++)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3366 {
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3367 case 'd': nr = getdecchrs(); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3368 case 'o': nr = getoctchrs(); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3369 case 'x': nr = gethexchrs(2); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3370 case 'u': nr = gethexchrs(4); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3371 case 'U': nr = gethexchrs(8); break;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3372 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3373 if (nr < 0)
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3374 {
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3375 /* If getting the number fails be backwards compatible: the character
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3376 * is a backslash. */
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3377 --regparse;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3378 nr = '\\';
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3379 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3380 return nr;
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3381 }
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3382
8ff7fd162d3c updated for version 7.0016
vimboss
parents: 7
diff changeset
3383 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3384 * read_limits - Read two integers to be taken as a minimum and maximum.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3385 * If the first character is '-', then the range is reversed.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3386 * Should end with 'end'. If minval is missing, zero is default, if maxval is
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3387 * missing, a very big number is the default.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3388 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3389 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3390 read_limits(long *minval, long *maxval)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3391 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3392 int reverse = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3393 char_u *first_char;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3394 long tmp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3395
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3396 if (*regparse == '-')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3397 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3398 /* Starts with '-', so reverse the range later */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3399 regparse++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3400 reverse = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3401 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3402 first_char = regparse;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3403 *minval = getdigits(&regparse);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3404 if (*regparse == ',') /* There is a comma */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3405 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3406 if (vim_isdigit(*++regparse))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3407 *maxval = getdigits(&regparse);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3408 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3409 *maxval = MAX_LIMIT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3410 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3411 else if (VIM_ISDIGIT(*first_char))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3412 *maxval = *minval; /* It was \{n} or \{-n} */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3413 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3414 *maxval = MAX_LIMIT; /* It was \{} or \{-} */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3415 if (*regparse == '\\')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3416 regparse++; /* Allow either \{...} or \{...\} */
167
c93c9cad9618 updated for version 7.0051
vimboss
parents: 153
diff changeset
3417 if (*regparse != '}')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3418 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3419 sprintf((char *)IObuff, _("E554: Syntax error in %s{...}"),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3420 reg_magic == MAGIC_ALL ? "" : "\\");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3421 EMSG_RET_FAIL(IObuff);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3422 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3423
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3424 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3425 * Reverse the range if there was a '-', or make sure it is in the right
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3426 * order otherwise.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3427 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3428 if ((!reverse && *minval > *maxval) || (reverse && *minval < *maxval))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3429 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3430 tmp = *minval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3431 *minval = *maxval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3432 *maxval = tmp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3433 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3434 skipchr(); /* let's be friends with the lexer again */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3435 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3436 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3437
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3438 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3439 * vim_regexec and friends
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3440 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3441
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3442 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3443 * Global work variables for vim_regexec().
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3444 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3445
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3446 /* The current match-position is remembered with these variables: */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3447 static linenr_T reglnum; /* line number, relative to first line */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3448 static char_u *regline; /* start of current line */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3449 static char_u *reginput; /* current input, points into "regline" */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3450
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3451 static int need_clear_subexpr; /* subexpressions still need to be
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3452 * cleared */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3453 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3454 static int need_clear_zsubexpr = FALSE; /* extmatch subexpressions
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3455 * still need to be cleared */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3456 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3457
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3458 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3459 * Structure used to save the current input state, when it needs to be
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3460 * restored after trying a match. Used by reg_save() and reg_restore().
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
3461 * Also stores the length of "backpos".
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3462 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3463 typedef struct
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3464 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3465 union
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3466 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3467 char_u *ptr; /* reginput pointer, for single-line regexp */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3468 lpos_T pos; /* reginput pos, for multi-line regexp */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3469 } rs_u;
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
3470 int rs_len;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3471 } regsave_T;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3472
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3473 /* struct to save start/end pointer/position in for \(\) */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3474 typedef struct
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3475 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3476 union
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3477 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3478 char_u *ptr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3479 lpos_T pos;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3480 } se_u;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3481 } save_se_T;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3482
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3483 /* used for BEHIND and NOBEHIND matching */
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3484 typedef struct regbehind_S
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3485 {
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3486 regsave_T save_after;
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3487 regsave_T save_behind;
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
3488 int save_need_clear_subexpr;
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3489 save_se_T save_start[NSUBEXP];
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3490 save_se_T save_end[NSUBEXP];
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3491 } regbehind_T;
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3492
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3493 static char_u *reg_getline(linenr_T lnum);
11521
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
3494 static long bt_regexec_both(char_u *line, colnr_T col, proftime_T *tm, int *timed_out);
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
3495 static long regtry(bt_regprog_T *prog, colnr_T col, proftime_T *tm, int *timed_out);
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3496 static void cleanup_subexpr(void);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3497 #ifdef FEAT_SYN_HL
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3498 static void cleanup_zsubexpr(void);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3499 #endif
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3500 static void save_subexpr(regbehind_T *bp);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3501 static void restore_subexpr(regbehind_T *bp);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3502 static void reg_nextline(void);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3503 static void reg_save(regsave_T *save, garray_T *gap);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3504 static void reg_restore(regsave_T *save, garray_T *gap);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3505 static int reg_save_equal(regsave_T *save);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3506 static void save_se_multi(save_se_T *savep, lpos_T *posp);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3507 static void save_se_one(save_se_T *savep, char_u **pp);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3508
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3509 /* Save the sub-expressions before attempting a match. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3510 #define save_se(savep, posp, pp) \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3511 REG_MULTI ? save_se_multi((savep), (posp)) : save_se_one((savep), (pp))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3512
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3513 /* After a failed match restore the sub-expressions. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3514 #define restore_se(savep, posp, pp) { \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3515 if (REG_MULTI) \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3516 *(posp) = (savep)->se_u.pos; \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3517 else \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3518 *(pp) = (savep)->se_u.ptr; }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3519
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3520 static int re_num_cmp(long_u val, char_u *scan);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3521 static int match_with_backref(linenr_T start_lnum, colnr_T start_col, linenr_T end_lnum, colnr_T end_col, int *bytelen);
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
3522 static int regmatch(char_u *prog, proftime_T *tm, int *timed_out);
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3523 static int regrepeat(char_u *p, long maxcount);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3524
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3525 #ifdef DEBUG
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3526 int regnarrate = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3527 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3528
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3529 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3530 * Sometimes need to save a copy of a line. Since alloc()/free() is very
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3531 * slow, we keep one allocated piece of memory and only re-allocate it when
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3532 * it's too small. It's freed in bt_regexec_both() when finished.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3533 */
1468
200b706675a5 updated for version 7.1-183
vimboss
parents: 1458
diff changeset
3534 static char_u *reg_tofree = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3535 static unsigned reg_tofreelen;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3536
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3537 /*
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3538 * Structure used to store the execution state of the regex engine.
1209
070f2ac50cf8 updated for version 7.1b
vimboss
parents: 1148
diff changeset
3539 * Which ones are set depends on whether a single-line or multi-line match is
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3540 * done:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3541 * single-line multi-line
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3542 * reg_match &regmatch_T NULL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3543 * reg_mmatch NULL &regmmatch_T
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3544 * reg_startp reg_match->startp <invalid>
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3545 * reg_endp reg_match->endp <invalid>
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3546 * reg_startpos <invalid> reg_mmatch->startpos
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3547 * reg_endpos <invalid> reg_mmatch->endpos
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3548 * reg_win NULL window in which to search
4061
be4baed0c933 updated for version 7.3.785
Bram Moolenaar <bram@vim.org>
parents: 4043
diff changeset
3549 * reg_buf curbuf buffer in which to search
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3550 * reg_firstlnum <invalid> first line in which to search
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3551 * reg_maxline 0 last line nr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3552 * reg_line_lbr FALSE or TRUE FALSE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3553 */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3554 typedef struct {
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3555 regmatch_T *reg_match;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3556 regmmatch_T *reg_mmatch;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3557 char_u **reg_startp;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3558 char_u **reg_endp;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3559 lpos_T *reg_startpos;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3560 lpos_T *reg_endpos;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3561 win_T *reg_win;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3562 buf_T *reg_buf;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3563 linenr_T reg_firstlnum;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3564 linenr_T reg_maxline;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3565 int reg_line_lbr; /* "\n" in string is line break */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3566
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3567 /* Internal copy of 'ignorecase'. It is set at each call to vim_regexec().
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3568 * Normally it gets the value of "rm_ic" or "rmm_ic", but when the pattern
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3569 * contains '\c' or '\C' the value is overruled. */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3570 int reg_ic;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3571
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3572 #ifdef FEAT_MBYTE
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3573 /* Similar to rex.reg_ic, but only for 'combining' characters. Set with \Z
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3574 * flag in the regexp. Defaults to false, always. */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3575 int reg_icombine;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3576 #endif
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3577
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3578 /* Copy of "rmm_maxcol": maximum column to search for a match. Zero when
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3579 * there is no maximum. */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3580 colnr_T reg_maxcol;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3581 } regexec_T;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3582
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3583 static regexec_T rex;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3584 static int rex_in_use = FALSE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3585
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3586
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3587 /* Values for rs_state in regitem_T. */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3588 typedef enum regstate_E
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3589 {
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3590 RS_NOPEN = 0 /* NOPEN and NCLOSE */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3591 , RS_MOPEN /* MOPEN + [0-9] */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3592 , RS_MCLOSE /* MCLOSE + [0-9] */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3593 #ifdef FEAT_SYN_HL
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3594 , RS_ZOPEN /* ZOPEN + [0-9] */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3595 , RS_ZCLOSE /* ZCLOSE + [0-9] */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3596 #endif
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3597 , RS_BRANCH /* BRANCH */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3598 , RS_BRCPLX_MORE /* BRACE_COMPLEX and trying one more match */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3599 , RS_BRCPLX_LONG /* BRACE_COMPLEX and trying longest match */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3600 , RS_BRCPLX_SHORT /* BRACE_COMPLEX and trying shortest match */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3601 , RS_NOMATCH /* NOMATCH */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3602 , RS_BEHIND1 /* BEHIND / NOBEHIND matching rest */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3603 , RS_BEHIND2 /* BEHIND / NOBEHIND matching behind part */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3604 , RS_STAR_LONG /* STAR/PLUS/BRACE_SIMPLE longest match */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3605 , RS_STAR_SHORT /* STAR/PLUS/BRACE_SIMPLE shortest match */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3606 } regstate_T;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3607
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3608 /*
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3609 * When there are alternatives a regstate_T is put on the regstack to remember
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3610 * what we are doing.
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3611 * Before it may be another type of item, depending on rs_state, to remember
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3612 * more things.
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3613 */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3614 typedef struct regitem_S
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3615 {
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3616 regstate_T rs_state; /* what we are doing, one of RS_ above */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3617 char_u *rs_scan; /* current node in program */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3618 union
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3619 {
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3620 save_se_T sesave;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3621 regsave_T regsave;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3622 } rs_un; /* room for saving reginput */
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
3623 short rs_no; /* submatch nr or BEHIND/NOBEHIND */
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3624 } regitem_T;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3625
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3626 static regitem_T *regstack_push(regstate_T state, char_u *scan);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
3627 static void regstack_pop(char_u **scan);
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3628
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3629 /* used for STAR, PLUS and BRACE_SIMPLE matching */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3630 typedef struct regstar_S
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3631 {
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3632 int nextb; /* next byte */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3633 int nextb_ic; /* next byte reverse case */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3634 long count;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3635 long minval;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3636 long maxval;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3637 } regstar_T;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3638
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3639 /* used to store input position when a BACK was encountered, so that we now if
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3640 * we made any progress since the last time. */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3641 typedef struct backpos_S
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3642 {
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3643 char_u *bp_scan; /* "scan" where BACK was encountered */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3644 regsave_T bp_pos; /* last input position */
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3645 } backpos_T;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3646
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3647 /*
1520
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3648 * "regstack" and "backpos" are used by regmatch(). They are kept over calls
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3649 * to avoid invoking malloc() and free() often.
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3650 * "regstack" is a stack with regitem_T items, sometimes preceded by regstar_T
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3651 * or regbehind_T.
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3652 * "backpos_T" is a table with backpos_T for BACK
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3653 */
1520
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3654 static garray_T regstack = {0, 0, 0, 0, NULL};
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3655 static garray_T backpos = {0, 0, 0, 0, NULL};
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3656
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3657 /*
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3658 * Both for regstack and backpos tables we use the following strategy of
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3659 * allocation (to reduce malloc/free calls):
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3660 * - Initial size is fairly small.
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3661 * - When needed, the tables are grown bigger (8 times at first, double after
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3662 * that).
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3663 * - After executing the match we free the memory only if the array has grown.
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3664 * Thus the memory is kept allocated when it's at the initial size.
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3665 * This makes it fast while not keeping a lot of memory allocated.
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3666 * A three times speed increase was observed when using many simple patterns.
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3667 */
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3668 #define REGSTACK_INITIAL 2048
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3669 #define BACKPOS_INITIAL 64
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3670
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3671 #if defined(EXITFREE) || defined(PROTO)
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3672 void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3673 free_regexp_stuff(void)
1520
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3674 {
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3675 ga_clear(&regstack);
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3676 ga_clear(&backpos);
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3677 vim_free(reg_tofree);
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3678 vim_free(reg_prev_sub);
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3679 }
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3680 #endif
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3681
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3682 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3683 * Get pointer to the line "lnum", which is relative to "reg_firstlnum".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3684 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3685 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3686 reg_getline(linenr_T lnum)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3687 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3688 /* when looking behind for a match/no-match lnum is negative. But we
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3689 * 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
3690 if (rex.reg_firstlnum + lnum < 1)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3691 return NULL;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3692 if (lnum > rex.reg_maxline)
481
66080ac5dab7 updated for version 7.0130
vimboss
parents: 474
diff changeset
3693 /* Must have matched the "\n" in the last line. */
66080ac5dab7 updated for version 7.0130
vimboss
parents: 474
diff changeset
3694 return (char_u *)"";
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3695 return ml_get_buf(rex.reg_buf, rex.reg_firstlnum + lnum, FALSE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3696 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3697
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3698 static regsave_T behind_pos;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3699
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3700 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3701 static char_u *reg_startzp[NSUBEXP]; /* Workspace to mark beginning */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3702 static char_u *reg_endzp[NSUBEXP]; /* and end of \z(...\) matches */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3703 static lpos_T reg_startzpos[NSUBEXP]; /* idem, beginning pos */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3704 static lpos_T reg_endzpos[NSUBEXP]; /* idem, end pos */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3705 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3706
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3707 /* 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
3708 #define REG_MULTI (rex.reg_match == NULL)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3709
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3710 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3711 * Match a regexp against a string.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3712 * "rmp->regprog" is a compiled regexp as returned by vim_regcomp().
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3713 * Uses curbuf for line count and 'iskeyword'.
5838
0ea551fa607d updated for version 7.4.262
Bram Moolenaar <bram@vim.org>
parents: 5836
diff changeset
3714 * if "line_lbr" is TRUE consider a "\n" in "line" to be a line break.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3715 *
6390
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
3716 * Returns 0 for failure, number of lines contained in the match otherwise.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3717 */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3718 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3719 bt_regexec_nl(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3720 regmatch_T *rmp,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3721 char_u *line, /* string to match against */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3722 colnr_T col, /* column to start looking for match */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3723 int line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3724 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3725 rex.reg_match = rmp;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3726 rex.reg_mmatch = NULL;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3727 rex.reg_maxline = 0;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3728 rex.reg_line_lbr = line_lbr;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3729 rex.reg_buf = curbuf;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3730 rex.reg_win = NULL;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3731 rex.reg_ic = rmp->rm_ic;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3732 #ifdef FEAT_MBYTE
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3733 rex.reg_icombine = FALSE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3734 #endif
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3735 rex.reg_maxcol = 0;
6390
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
3736
11521
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
3737 return bt_regexec_both(line, col, NULL, NULL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3738 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3739
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3740 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3741 * Match a regexp against multiple lines.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3742 * "rmp->regprog" is a compiled regexp as returned by vim_regcomp().
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3743 * Uses curbuf for line count and 'iskeyword'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3744 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3745 * Return zero if there is no match. Return number of lines contained in the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3746 * match otherwise.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3747 */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
3748 static long
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3749 bt_regexec_multi(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3750 regmmatch_T *rmp,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3751 win_T *win, /* window in which to search or NULL */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3752 buf_T *buf, /* buffer in which to search */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3753 linenr_T lnum, /* nr of line to start looking for match */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3754 colnr_T col, /* column to start looking for match */
11521
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
3755 proftime_T *tm, /* timeout limit or NULL */
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
3756 int *timed_out) /* flag set on timeout or NULL */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3757 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3758 rex.reg_match = NULL;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3759 rex.reg_mmatch = rmp;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3760 rex.reg_buf = buf;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3761 rex.reg_win = win;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3762 rex.reg_firstlnum = lnum;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3763 rex.reg_maxline = rex.reg_buf->b_ml.ml_line_count - lnum;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3764 rex.reg_line_lbr = FALSE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3765 rex.reg_ic = rmp->rmm_ic;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3766 #ifdef FEAT_MBYTE
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3767 rex.reg_icombine = FALSE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3768 #endif
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3769 rex.reg_maxcol = rmp->rmm_maxcol;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3770
11521
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
3771 return bt_regexec_both(NULL, col, tm, timed_out);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3772 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3773
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3774 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3775 * Match a regexp against a string ("line" points to the string) or multiple
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3776 * lines ("line" is NULL, use reg_getline()).
6390
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
3777 * Returns 0 for failure, number of lines contained in the match otherwise.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3778 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3779 static long
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3780 bt_regexec_both(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3781 char_u *line,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3782 colnr_T col, /* column to start looking for match */
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
3783 proftime_T *tm, /* timeout limit or NULL */
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
3784 int *timed_out) /* flag set on timeout or NULL */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3785 {
6390
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
3786 bt_regprog_T *prog;
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
3787 char_u *s;
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
3788 long retval = 0L;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3789
1520
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3790 /* Create "regstack" and "backpos" if they are not allocated yet.
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3791 * We allocate *_INITIAL amount of bytes first and then set the grow size
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3792 * to much bigger value to avoid many malloc calls in case of deep regular
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3793 * expressions. */
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3794 if (regstack.ga_data == NULL)
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3795 {
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3796 /* Use an item size of 1 byte, since we push different things
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3797 * onto the regstack. */
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3798 ga_init2(&regstack, 1, REGSTACK_INITIAL);
7009
286fd54c7ae3 patch 7.4.822
Bram Moolenaar <bram@vim.org>
parents: 6914
diff changeset
3799 (void)ga_grow(&regstack, REGSTACK_INITIAL);
1520
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3800 regstack.ga_growsize = REGSTACK_INITIAL * 8;
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3801 }
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3802
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3803 if (backpos.ga_data == NULL)
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3804 {
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3805 ga_init2(&backpos, sizeof(backpos_T), BACKPOS_INITIAL);
7009
286fd54c7ae3 patch 7.4.822
Bram Moolenaar <bram@vim.org>
parents: 6914
diff changeset
3806 (void)ga_grow(&backpos, BACKPOS_INITIAL);
1520
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3807 backpos.ga_growsize = BACKPOS_INITIAL * 8;
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3808 }
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
3809
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3810 if (REG_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3811 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3812 prog = (bt_regprog_T *)rex.reg_mmatch->regprog;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3813 line = reg_getline((linenr_T)0);
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3814 rex.reg_startpos = rex.reg_mmatch->startpos;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3815 rex.reg_endpos = rex.reg_mmatch->endpos;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3816 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3817 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3818 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3819 prog = (bt_regprog_T *)rex.reg_match->regprog;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3820 rex.reg_startp = rex.reg_match->startp;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3821 rex.reg_endp = rex.reg_match->endp;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3822 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3823
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3824 /* Be paranoid... */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3825 if (prog == NULL || line == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3826 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3827 EMSG(_(e_null));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3828 goto theend;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3829 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3830
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3831 /* Check validity of program. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3832 if (prog_magic_wrong())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3833 goto theend;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3834
410
c60ba877860b updated for version 7.0107
vimboss
parents: 359
diff changeset
3835 /* If the start column is past the maximum column: no need to try. */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3836 if (rex.reg_maxcol > 0 && col >= rex.reg_maxcol)
410
c60ba877860b updated for version 7.0107
vimboss
parents: 359
diff changeset
3837 goto theend;
c60ba877860b updated for version 7.0107
vimboss
parents: 359
diff changeset
3838
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3839 /* If pattern contains "\c" or "\C": overrule value of rex.reg_ic */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3840 if (prog->regflags & RF_ICASE)
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3841 rex.reg_ic = TRUE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3842 else if (prog->regflags & RF_NOICASE)
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3843 rex.reg_ic = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3844
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3845 #ifdef FEAT_MBYTE
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3846 /* If pattern contains "\Z" overrule value of rex.reg_icombine */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3847 if (prog->regflags & RF_ICOMBINE)
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3848 rex.reg_icombine = TRUE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3849 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3850
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3851 /* If there is a "must appear" string, look for it. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3852 if (prog->regmust != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3853 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3854 int c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3855
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3856 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3857 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3858 c = (*mb_ptr2char)(prog->regmust);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3859 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3860 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3861 c = *prog->regmust;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3862 s = line + col;
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3863
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3864 /*
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3865 * This is used very often, esp. for ":global". Use three versions of
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3866 * the loop to avoid overhead of conditions.
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3867 */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3868 if (!rex.reg_ic
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3869 #ifdef FEAT_MBYTE
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3870 && !has_mbyte
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3871 #endif
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3872 )
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3873 while ((s = vim_strbyte(s, c)) != NULL)
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3874 {
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3875 if (cstrncmp(s, prog->regmust, &prog->regmlen) == 0)
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3876 break; /* Found it. */
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3877 ++s;
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3878 }
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3879 #ifdef FEAT_MBYTE
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3880 else if (!rex.reg_ic || (!enc_utf8 && mb_char2len(c) > 1))
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3881 while ((s = vim_strchr(s, c)) != NULL)
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3882 {
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3883 if (cstrncmp(s, prog->regmust, &prog->regmlen) == 0)
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3884 break; /* Found it. */
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
3885 MB_PTR_ADV(s);
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3886 }
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3887 #endif
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3888 else
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3889 while ((s = cstrchr(s, c)) != NULL)
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3890 {
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3891 if (cstrncmp(s, prog->regmust, &prog->regmlen) == 0)
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3892 break; /* Found it. */
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
3893 MB_PTR_ADV(s);
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3894 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3895 if (s == NULL) /* Not present. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3896 goto theend;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3897 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3898
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3899 regline = line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3900 reglnum = 0;
2578
766918de9e3a updated for version 7.3.004
Bram Moolenaar <bram@vim.org>
parents: 2307
diff changeset
3901 reg_toolong = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3902
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3903 /* Simplest case: Anchored match need be tried only once. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3904 if (prog->reganch)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3905 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3906 int c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3907
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3908 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3909 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3910 c = (*mb_ptr2char)(regline + col);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3911 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3912 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3913 c = regline[col];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3914 if (prog->regstart == NUL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3915 || prog->regstart == c
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3916 || (rex.reg_ic && ((
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3917 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3918 (enc_utf8 && utf_fold(prog->regstart) == utf_fold(c)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3919 || (c < 255 && prog->regstart < 255 &&
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3920 #endif
1347
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
3921 MB_TOLOWER(prog->regstart) == MB_TOLOWER(c)))))
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
3922 retval = regtry(prog, col, tm, timed_out);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3923 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3924 retval = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3925 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3926 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3927 {
1521
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3928 #ifdef FEAT_RELTIME
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3929 int tm_count = 0;
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3930 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3931 /* Messy cases: unanchored match. */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
3932 while (!got_int)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3933 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3934 if (prog->regstart != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3935 {
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3936 /* Skip until the char we know it must start with.
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3937 * Used often, do some work to avoid call overhead. */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3938 if (!rex.reg_ic
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3939 #ifdef FEAT_MBYTE
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3940 && !has_mbyte
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3941 #endif
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3942 )
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3943 s = vim_strbyte(regline + col, prog->regstart);
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3944 else
8c60f65311fa updated for version 7.0052
vimboss
parents: 167
diff changeset
3945 s = cstrchr(regline + col, prog->regstart);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3946 if (s == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3947 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3948 retval = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3949 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3950 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3951 col = (int)(s - regline);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3952 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3953
410
c60ba877860b updated for version 7.0107
vimboss
parents: 359
diff changeset
3954 /* Check for maximum column to try. */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
3955 if (rex.reg_maxcol > 0 && col >= rex.reg_maxcol)
410
c60ba877860b updated for version 7.0107
vimboss
parents: 359
diff changeset
3956 {
c60ba877860b updated for version 7.0107
vimboss
parents: 359
diff changeset
3957 retval = 0;
c60ba877860b updated for version 7.0107
vimboss
parents: 359
diff changeset
3958 break;
c60ba877860b updated for version 7.0107
vimboss
parents: 359
diff changeset
3959 }
c60ba877860b updated for version 7.0107
vimboss
parents: 359
diff changeset
3960
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
3961 retval = regtry(prog, col, tm, timed_out);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3962 if (retval > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3963 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3964
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3965 /* if not currently on the first line, get it again */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3966 if (reglnum != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3967 {
481
66080ac5dab7 updated for version 7.0130
vimboss
parents: 474
diff changeset
3968 reglnum = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3969 regline = reg_getline((linenr_T)0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3970 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3971 if (regline[col] == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3972 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3973 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3974 if (has_mbyte)
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
3975 col += (*mb_ptr2len)(regline + col);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3976 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3977 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3978 ++col;
1521
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3979 #ifdef FEAT_RELTIME
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3980 /* Check for timeout once in a twenty times to avoid overhead. */
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3981 if (tm != NULL && ++tm_count == 20)
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3982 {
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3983 tm_count = 0;
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3984 if (profile_passed_limit(tm))
11521
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
3985 {
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
3986 if (timed_out != NULL)
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
3987 *timed_out = TRUE;
1521
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3988 break;
11521
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
3989 }
1521
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3990 }
cc4fe241baa3 updated for version 7.1-236
vimboss
parents: 1520
diff changeset
3991 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3992 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3993 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3994
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3995 theend:
1520
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3996 /* Free "reg_tofree" when it's a bit big.
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3997 * Free regstack and backpos if they are bigger than their initial size. */
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3998 if (reg_tofreelen > 400)
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
3999 {
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
4000 vim_free(reg_tofree);
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
4001 reg_tofree = NULL;
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
4002 }
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
4003 if (regstack.ga_maxlen > REGSTACK_INITIAL)
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
4004 ga_clear(&regstack);
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
4005 if (backpos.ga_maxlen > BACKPOS_INITIAL)
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
4006 ga_clear(&backpos);
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
4007
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4008 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4009 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4010
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4011 #ifdef FEAT_SYN_HL
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
4012 static reg_extmatch_T *make_extmatch(void);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4013
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4014 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4015 * Create a new extmatch and mark it as referenced once.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4016 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4017 static reg_extmatch_T *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
4018 make_extmatch(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4019 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4020 reg_extmatch_T *em;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4021
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4022 em = (reg_extmatch_T *)alloc_clear((unsigned)sizeof(reg_extmatch_T));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4023 if (em != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4024 em->refcnt = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4025 return em;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4026 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4027
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4028 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4029 * Add a reference to an extmatch.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4030 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4031 reg_extmatch_T *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
4032 ref_extmatch(reg_extmatch_T *em)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4033 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4034 if (em != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4035 em->refcnt++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4036 return em;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4037 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4038
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4039 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4040 * Remove a reference to an extmatch. If there are no references left, free
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4041 * the info.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4042 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4043 void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
4044 unref_extmatch(reg_extmatch_T *em)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4045 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4046 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4047
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4048 if (em != NULL && --em->refcnt <= 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4049 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4050 for (i = 0; i < NSUBEXP; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4051 vim_free(em->matches[i]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4052 vim_free(em);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4053 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4054 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4055 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4056
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4057 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4058 * regtry - try match of "prog" with at regline["col"].
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4059 * Returns 0 for failure, number of lines contained in the match otherwise.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4060 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4061 static long
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4062 regtry(
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4063 bt_regprog_T *prog,
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4064 colnr_T col,
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4065 proftime_T *tm, /* timeout limit or NULL */
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4066 int *timed_out) /* flag set on timeout or NULL */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4067 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4068 reginput = regline + col;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4069 need_clear_subexpr = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4070 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4071 /* Clear the external match subpointers if necessary. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4072 if (prog->reghasz == REX_SET)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4073 need_clear_zsubexpr = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4074 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4075
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4076 if (regmatch(prog->program + 1, tm, timed_out) == 0)
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4077 return 0;
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4078
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4079 cleanup_subexpr();
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4080 if (REG_MULTI)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4081 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4082 if (rex.reg_startpos[0].lnum < 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4083 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4084 rex.reg_startpos[0].lnum = 0;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4085 rex.reg_startpos[0].col = col;
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4086 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4087 if (rex.reg_endpos[0].lnum < 0)
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4088 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4089 rex.reg_endpos[0].lnum = reglnum;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4090 rex.reg_endpos[0].col = (int)(reginput - regline);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4091 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4092 else
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4093 /* Use line number of "\ze". */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4094 reglnum = rex.reg_endpos[0].lnum;
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4095 }
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4096 else
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4097 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4098 if (rex.reg_startp[0] == NULL)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4099 rex.reg_startp[0] = regline + col;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4100 if (rex.reg_endp[0] == NULL)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4101 rex.reg_endp[0] = reginput;
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4102 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4103 #ifdef FEAT_SYN_HL
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4104 /* Package any found \z(...\) matches for export. Default is none. */
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4105 unref_extmatch(re_extmatch_out);
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4106 re_extmatch_out = NULL;
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4107
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4108 if (prog->reghasz == REX_SET)
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4109 {
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4110 int i;
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4111
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4112 cleanup_zsubexpr();
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4113 re_extmatch_out = make_extmatch();
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4114 for (i = 0; i < NSUBEXP; i++)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4115 {
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4116 if (REG_MULTI)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4117 {
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4118 /* Only accept single line matches. */
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4119 if (reg_startzpos[i].lnum >= 0
5820
4901a36479f2 updated for version 7.4.253
Bram Moolenaar <bram@vim.org>
parents: 5794
diff changeset
4120 && reg_endzpos[i].lnum == reg_startzpos[i].lnum
4901a36479f2 updated for version 7.4.253
Bram Moolenaar <bram@vim.org>
parents: 5794
diff changeset
4121 && reg_endzpos[i].col >= reg_startzpos[i].col)
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4122 re_extmatch_out->matches[i] =
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4123 vim_strnsave(reg_getline(reg_startzpos[i].lnum)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4124 + reg_startzpos[i].col,
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4125 reg_endzpos[i].col - reg_startzpos[i].col);
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4126 }
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4127 else
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4128 {
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4129 if (reg_startzp[i] != NULL && reg_endzp[i] != NULL)
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4130 re_extmatch_out->matches[i] =
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4131 vim_strnsave(reg_startzp[i],
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4132 (int)(reg_endzp[i] - reg_startzp[i]));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4133 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4134 }
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4135 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4136 #endif
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
4137 return 1 + reglnum;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4138 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4139
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4140 #ifdef FEAT_MBYTE
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
4141 static int reg_prev_class(void);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4142
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4143 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4144 * Get class of previous character.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4145 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4146 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
4147 reg_prev_class(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4148 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4149 if (reginput > regline)
4069
43c15135926f updated for version 7.3.789
Bram Moolenaar <bram@vim.org>
parents: 4061
diff changeset
4150 return mb_get_class_buf(reginput - 1
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4151 - (*mb_head_off)(regline, reginput - 1), rex.reg_buf);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4152 return -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4153 }
5735
50dbef5e774a updated for version 7.4.212
Bram Moolenaar <bram@vim.org>
parents: 5504
diff changeset
4154 #endif
50dbef5e774a updated for version 7.4.212
Bram Moolenaar <bram@vim.org>
parents: 5504
diff changeset
4155
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
4156 static int reg_match_visual(void);
4730
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4157
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4158 /*
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4159 * Return TRUE if the current reginput position matches the Visual area.
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4160 */
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4161 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
4162 reg_match_visual(void)
4730
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4163 {
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4164 pos_T top, bot;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4165 linenr_T lnum;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4166 colnr_T col;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4167 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
4168 int mode;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4169 colnr_T start, end;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4170 colnr_T start2, end2;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4171 colnr_T cols;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4172
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4173 /* Check if the buffer is the current buffer. */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4174 if (rex.reg_buf != curbuf || VIsual.lnum == 0)
4730
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4175 return FALSE;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4176
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4177 if (VIsual_active)
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4178 {
11121
778c10516955 patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10359
diff changeset
4179 if (LT_POS(VIsual, wp->w_cursor))
4730
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4180 {
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4181 top = VIsual;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4182 bot = wp->w_cursor;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4183 }
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4184 else
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4185 {
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4186 top = wp->w_cursor;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4187 bot = VIsual;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4188 }
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4189 mode = VIsual_mode;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4190 }
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4191 else
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4192 {
11121
778c10516955 patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10359
diff changeset
4193 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
4194 {
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4195 top = curbuf->b_visual.vi_start;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4196 bot = curbuf->b_visual.vi_end;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4197 }
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4198 else
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4199 {
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4200 top = curbuf->b_visual.vi_end;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4201 bot = curbuf->b_visual.vi_start;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4202 }
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4203 mode = curbuf->b_visual.vi_mode;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4204 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4205 lnum = reglnum + rex.reg_firstlnum;
4730
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4206 if (lnum < top.lnum || lnum > bot.lnum)
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4207 return FALSE;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4208
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4209 if (mode == 'v')
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4210 {
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4211 col = (colnr_T)(reginput - regline);
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4212 if ((lnum == top.lnum && col < top.col)
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4213 || (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
4214 return FALSE;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4215 }
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4216 else if (mode == Ctrl_V)
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4217 {
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4218 getvvcol(wp, &top, &start, NULL, &end);
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4219 getvvcol(wp, &bot, &start2, NULL, &end2);
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4220 if (start2 < start)
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4221 start = start2;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4222 if (end2 > end)
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4223 end = end2;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4224 if (top.col == MAXCOL || bot.col == MAXCOL)
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4225 end = MAXCOL;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4226 cols = win_linetabsize(wp, regline, (colnr_T)(reginput - regline));
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4227 if (cols < start || cols > end - (*p_sel == 'e'))
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4228 return FALSE;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4229 }
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4230 return TRUE;
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4231 }
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4232
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
4233 #define ADVANCE_REGINPUT() MB_PTR_ADV(reginput)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4234
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4235 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4236 * The arguments from BRACE_LIMITS are stored here. They are actually local
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4237 * to regmatch(), but they are here to reduce the amount of stack space used
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4238 * (it can be called recursively many times).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4239 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4240 static long bl_minval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4241 static long bl_maxval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4242
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4243 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4244 * regmatch - main matching routine
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4245 *
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4246 * Conceptually the strategy is simple: Check to see whether the current node
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4247 * matches, push an item onto the regstack and loop to see whether the rest
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4248 * matches, and then act accordingly. In practice we make some effort to
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4249 * avoid using the regstack, in particular by going through "ordinary" nodes
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4250 * (that don't need to know whether the rest of the match failed) by a nested
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4251 * loop.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4252 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4253 * Returns TRUE when there is a match. Leaves reginput and reglnum just after
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4254 * the last matched character.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4255 * Returns FALSE when there is no match. Leaves reginput and reglnum in an
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4256 * undefined state!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4257 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4258 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
4259 regmatch(
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4260 char_u *scan, /* Current node. */
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4261 proftime_T *tm UNUSED, /* timeout limit or NULL */
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4262 int *timed_out UNUSED) /* flag set on timeout or NULL */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4263 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4264 char_u *next; /* Next node. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4265 int op;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4266 int c;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4267 regitem_T *rp;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4268 int no;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4269 int status; /* one of the RA_ values: */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4270 #define RA_FAIL 1 /* something failed, abort */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4271 #define RA_CONT 2 /* continue in inner loop */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4272 #define RA_BREAK 3 /* break inner loop */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4273 #define RA_MATCH 4 /* successful match */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4274 #define RA_NOMATCH 5 /* didn't match */
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4275 #ifdef FEAT_RELTIME
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4276 int tm_count = 0;
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4277 #endif
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
4278
1520
cd6175cc27d9 updated for version 7.1-235
vimboss
parents: 1468
diff changeset
4279 /* Make "regstack" and "backpos" empty. They are allocated and freed in
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
4280 * bt_regexec_both() to reduce malloc()/free() calls. */
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
4281 regstack.ga_len = 0;
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
4282 backpos.ga_len = 0;
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4283
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4284 /*
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4285 * Repeat until "regstack" is empty.
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4286 */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4287 for (;;)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4288 {
5310
b04bdb2c5fce updated for version 7.4.008
Bram Moolenaar <bram@vim.org>
parents: 5221
diff changeset
4289 /* Some patterns may take a long time to match, e.g., "\([a-z]\+\)\+Q".
b04bdb2c5fce updated for version 7.4.008
Bram Moolenaar <bram@vim.org>
parents: 5221
diff changeset
4290 * Allow interrupting them with CTRL-C. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4291 fast_breakcheck();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4292
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4293 #ifdef DEBUG
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4294 if (scan != NULL && regnarrate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4295 {
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
4296 mch_errmsg((char *)regprop(scan));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4297 mch_errmsg("(\n");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4298 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4299 #endif
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4300
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4301 /*
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4302 * Repeat for items that can be matched sequentially, without using the
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4303 * regstack.
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4304 */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4305 for (;;)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4306 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4307 if (got_int || scan == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4308 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4309 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4310 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4311 }
11527
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4312 #ifdef FEAT_RELTIME
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4313 /* Check for timeout once in a 100 times to avoid overhead. */
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4314 if (tm != NULL && ++tm_count == 100)
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4315 {
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4316 tm_count = 0;
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4317 if (profile_passed_limit(tm))
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4318 {
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4319 if (timed_out != NULL)
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4320 *timed_out = TRUE;
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4321 status = RA_FAIL;
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4322 break;
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4323 }
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4324 }
ac20f71e8aa4 patch 8.0.0646: the hlsearch test fails on fast systems
Christian Brabandt <cb@256bit.org>
parents: 11525
diff changeset
4325 #endif
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4326 status = RA_CONT;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4327
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4328 #ifdef DEBUG
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4329 if (regnarrate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4330 {
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
4331 mch_errmsg((char *)regprop(scan));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4332 mch_errmsg("...\n");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4333 # ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4334 if (re_extmatch_in != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4335 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4336 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4337
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4338 mch_errmsg(_("External submatches:\n"));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4339 for (i = 0; i < NSUBEXP; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4340 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4341 mch_errmsg(" \"");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4342 if (re_extmatch_in->matches[i] != NULL)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
4343 mch_errmsg((char *)re_extmatch_in->matches[i]);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4344 mch_errmsg("\"\n");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4345 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4346 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4347 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4348 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4349 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4350 next = regnext(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4351
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4352 op = OP(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4353 /* Check for character class with NL added. */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4354 if (!rex.reg_line_lbr && WITH_NL(op) && REG_MULTI
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4355 && *reginput == NUL && reglnum <= rex.reg_maxline)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4356 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4357 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4358 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4359 else if (rex.reg_line_lbr && WITH_NL(op) && *reginput == '\n')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4360 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4361 ADVANCE_REGINPUT();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4362 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4363 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4364 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4365 if (WITH_NL(op))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4366 op -= ADD_NL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4367 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4368 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4369 c = (*mb_ptr2char)(reginput);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4370 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4371 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4372 c = *reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4373 switch (op)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4374 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4375 case BOL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4376 if (reginput != regline)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4377 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4378 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4379
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4380 case EOL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4381 if (c != NUL)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4382 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4383 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4384
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4385 case RE_BOF:
1458
8a6c67218fcc updated for version 7.1-173
vimboss
parents: 1449
diff changeset
4386 /* We're not at the beginning of the file when below the first
8a6c67218fcc updated for version 7.1-173
vimboss
parents: 1449
diff changeset
4387 * line where we started, not at the start of the line or we
8a6c67218fcc updated for version 7.1-173
vimboss
parents: 1449
diff changeset
4388 * didn't start at the first line of the buffer. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4389 if (reglnum != 0 || reginput != regline
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4390 || (REG_MULTI && rex.reg_firstlnum > 1))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4391 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4392 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4393
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4394 case RE_EOF:
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4395 if (reglnum != rex.reg_maxline || c != NUL)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4396 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4397 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4398
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4399 case CURSOR:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4400 /* Check if the buffer is in a window and compare the
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4401 * rex.reg_win->w_cursor position to the match position. */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4402 if (rex.reg_win == NULL
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4403 || (reglnum + rex.reg_firstlnum
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4404 != rex.reg_win->w_cursor.lnum)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4405 || ((colnr_T)(reginput - regline)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4406 != rex.reg_win->w_cursor.col))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4407 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4408 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4409
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4410 case RE_MARK:
4732
0798b096bab3 updated for version 7.3.1113
Bram Moolenaar <bram@vim.org>
parents: 4730
diff changeset
4411 /* Compare the mark position to the match position. */
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4412 {
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4413 int mark = OPERAND(scan)[0];
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4414 int cmp = OPERAND(scan)[1];
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4415 pos_T *pos;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4416
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4417 pos = getmark_buf(rex.reg_buf, mark, FALSE);
1148
e1dc2698121c updated for version 7.1a
vimboss
parents: 1018
diff changeset
4418 if (pos == NULL /* mark doesn't exist */
4732
0798b096bab3 updated for version 7.3.1113
Bram Moolenaar <bram@vim.org>
parents: 4730
diff changeset
4419 || pos->lnum <= 0 /* mark isn't set in reg_buf */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4420 || (pos->lnum == reglnum + rex.reg_firstlnum
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4421 ? (pos->col == (colnr_T)(reginput - regline)
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4422 ? (cmp == '<' || cmp == '>')
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4423 : (pos->col < (colnr_T)(reginput - regline)
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4424 ? cmp != '>'
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4425 : cmp != '<'))
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4426 : (pos->lnum < reglnum + rex.reg_firstlnum
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4427 ? cmp != '>'
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4428 : cmp != '<')))
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4429 status = RA_NOMATCH;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4430 }
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4431 break;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4432
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4433 case RE_VISUAL:
4730
749e2b2755d5 updated for version 7.3.1112
Bram Moolenaar <bram@vim.org>
parents: 4720
diff changeset
4434 if (!reg_match_visual())
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4435 status = RA_NOMATCH;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4436 break;
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
4437
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4438 case RE_LNUM:
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4439 if (!REG_MULTI || !re_num_cmp((long_u)(reglnum + rex.reg_firstlnum),
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4440 scan))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4441 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4442 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4443
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4444 case RE_COL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4445 if (!re_num_cmp((long_u)(reginput - regline) + 1, scan))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4446 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4447 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4448
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4449 case RE_VCOL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4450 if (!re_num_cmp((long_u)win_linetabsize(
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4451 rex.reg_win == NULL ? curwin : rex.reg_win,
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4452 regline, (colnr_T)(reginput - regline)) + 1, scan))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4453 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4454 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4455
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4456 case BOW: /* \<word; reginput points to w */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4457 if (c == NUL) /* Can't match at end of line */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4458 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4459 #ifdef FEAT_MBYTE
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4460 else if (has_mbyte)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4461 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4462 int this_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4463
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4464 /* Get class of current and previous char (if it exists). */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4465 this_class = mb_get_class_buf(reginput, rex.reg_buf);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4466 if (this_class <= 1)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4467 status = RA_NOMATCH; /* not on a word at all */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4468 else if (reg_prev_class() == this_class)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4469 status = RA_NOMATCH; /* previous char is in same word */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4470 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4471 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4472 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4473 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4474 if (!vim_iswordc_buf(c, rex.reg_buf) || (reginput > regline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4475 && vim_iswordc_buf(reginput[-1], rex.reg_buf)))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4476 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4477 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4478 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4479
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4480 case EOW: /* word\>; reginput points after d */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4481 if (reginput == regline) /* Can't match at start of line */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4482 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4483 #ifdef FEAT_MBYTE
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4484 else if (has_mbyte)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4485 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4486 int this_class, prev_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4487
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4488 /* Get class of current and previous char (if it exists). */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4489 this_class = mb_get_class_buf(reginput, rex.reg_buf);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4490 prev_class = reg_prev_class();
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4491 if (this_class == prev_class
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4492 || prev_class == 0 || prev_class == 1)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4493 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4494 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4495 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4496 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4497 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4498 if (!vim_iswordc_buf(reginput[-1], rex.reg_buf)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4499 || (reginput[0] != NUL
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4500 && vim_iswordc_buf(c, rex.reg_buf)))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4501 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4502 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4503 break; /* Matched with EOW */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4504
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4505 case ANY:
4084
2c12c4e2fae8 updated for version 7.3.796
Bram Moolenaar <bram@vim.org>
parents: 4069
diff changeset
4506 /* ANY does not match new lines. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4507 if (c == NUL)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4508 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4509 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4510 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4511 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4512
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4513 case IDENT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4514 if (!vim_isIDc(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4515 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4516 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4517 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4518 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4519
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4520 case SIDENT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4521 if (VIM_ISDIGIT(*reginput) || !vim_isIDc(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4522 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4523 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4524 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4525 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4526
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4527 case KWORD:
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4528 if (!vim_iswordp_buf(reginput, rex.reg_buf))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4529 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4530 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4531 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4532 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4533
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4534 case SKWORD:
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4535 if (VIM_ISDIGIT(*reginput)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4536 || !vim_iswordp_buf(reginput, rex.reg_buf))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4537 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4538 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4539 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4540 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4541
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4542 case FNAME:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4543 if (!vim_isfilec(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4544 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4545 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4546 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4547 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4548
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4549 case SFNAME:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4550 if (VIM_ISDIGIT(*reginput) || !vim_isfilec(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4551 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4552 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4553 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4554 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4555
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4556 case PRINT:
5221
9982ec574beb updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents: 4901
diff changeset
4557 if (!vim_isprintc(PTR2CHAR(reginput)))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4558 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4559 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4560 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4561 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4562
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4563 case SPRINT:
5221
9982ec574beb updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents: 4901
diff changeset
4564 if (VIM_ISDIGIT(*reginput) || !vim_isprintc(PTR2CHAR(reginput)))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4565 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4566 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4567 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4568 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4569
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4570 case WHITE:
11129
f4ea50924c6d patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11127
diff changeset
4571 if (!VIM_ISWHITE(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4572 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4573 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4574 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4575 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4576
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4577 case NWHITE:
11129
f4ea50924c6d patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11127
diff changeset
4578 if (c == NUL || VIM_ISWHITE(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4579 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4580 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4581 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4582 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4583
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4584 case DIGIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4585 if (!ri_digit(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4586 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4587 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4588 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4589 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4590
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4591 case NDIGIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4592 if (c == NUL || ri_digit(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4593 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4594 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4595 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4596 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4597
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4598 case HEX:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4599 if (!ri_hex(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4600 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4601 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4602 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4603 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4604
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4605 case NHEX:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4606 if (c == NUL || ri_hex(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4607 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4608 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4609 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4610 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4611
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4612 case OCTAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4613 if (!ri_octal(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4614 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4615 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4616 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4617 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4618
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4619 case NOCTAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4620 if (c == NUL || ri_octal(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4621 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4622 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4623 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4624 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4625
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4626 case WORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4627 if (!ri_word(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4628 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4629 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4630 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4631 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4632
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4633 case NWORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4634 if (c == NUL || ri_word(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4635 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4636 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4637 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4638 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4639
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4640 case HEAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4641 if (!ri_head(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4642 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4643 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4644 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4645 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4646
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4647 case NHEAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4648 if (c == NUL || ri_head(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4649 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4650 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4651 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4652 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4653
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4654 case ALPHA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4655 if (!ri_alpha(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4656 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4657 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4658 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4659 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4660
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4661 case NALPHA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4662 if (c == NUL || ri_alpha(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4663 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4664 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4665 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4666 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4667
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4668 case LOWER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4669 if (!ri_lower(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4670 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4671 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4672 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4673 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4674
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4675 case NLOWER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4676 if (c == NUL || ri_lower(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4677 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4678 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4679 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4680 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4681
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4682 case UPPER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4683 if (!ri_upper(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4684 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4685 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4686 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4687 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4688
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4689 case NUPPER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4690 if (c == NUL || ri_upper(c))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4691 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4692 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4693 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4694 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4695
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4696 case EXACTLY:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4697 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4698 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4699 char_u *opnd;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4700
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4701 opnd = OPERAND(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4702 /* Inline the first byte, for speed. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4703 if (*opnd != *reginput
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4704 && (!rex.reg_ic || (
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4705 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4706 !enc_utf8 &&
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4707 #endif
1347
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
4708 MB_TOLOWER(*opnd) != MB_TOLOWER(*reginput))))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4709 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4710 else if (*opnd == NUL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4711 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4712 /* match empty string always works; happens when "~" is
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4713 * empty. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4714 }
5899
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4715 else
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4716 {
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4717 if (opnd[1] == NUL
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4718 #ifdef FEAT_MBYTE
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4719 && !(enc_utf8 && rex.reg_ic)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4720 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4721 )
5899
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4722 {
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4723 len = 1; /* matched a single byte above */
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4724 }
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4725 else
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4726 {
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4727 /* Need to match first byte again for multi-byte. */
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4728 len = (int)STRLEN(opnd);
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4729 if (cstrncmp(opnd, reginput, &len) != 0)
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4730 status = RA_NOMATCH;
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4731 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4732 #ifdef FEAT_MBYTE
5901
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4733 /* Check for following composing character, unless %C
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4734 * follows (skips over all composing chars). */
5899
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4735 if (status != RA_NOMATCH
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4736 && enc_utf8
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4737 && UTF_COMPOSINGLIKE(reginput, reginput + len)
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4738 && !rex.reg_icombine
5901
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4739 && OP(next) != RE_COMPOSING)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4740 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4741 /* raaron: This code makes a composing character get
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4742 * ignored, which is the correct behavior (sometimes)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4743 * for voweled Hebrew texts. */
5899
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4744 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4745 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4746 #endif
5899
60cdaa05a6ad updated for version 7.4.292
Bram Moolenaar <bram@vim.org>
parents: 5897
diff changeset
4747 if (status != RA_NOMATCH)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4748 reginput += len;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4749 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4750 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4751 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4752
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4753 case ANYOF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4754 case ANYBUT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4755 if (c == NUL)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4756 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4757 else if ((cstrchr(OPERAND(scan), c) == NULL) == (op == ANYOF))
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4758 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4759 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4760 ADVANCE_REGINPUT();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4761 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4762
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4763 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4764 case MULTIBYTECODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4765 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4766 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4767 int i, len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4768 char_u *opnd;
944
b2dcb8457067 updated for version 7.0-070
vimboss
parents: 856
diff changeset
4769 int opndc = 0, inpc;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4770
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4771 opnd = OPERAND(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4772 /* Safety check (just in case 'encoding' was changed since
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4773 * compiling the program). */
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
4774 if ((len = (*mb_ptr2len)(opnd)) < 2)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4775 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4776 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4777 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4778 }
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4779 if (enc_utf8)
11269
121d29004998 patch 8.0.0520: using a function pointer while the function is known
Christian Brabandt <cb@256bit.org>
parents: 11267
diff changeset
4780 opndc = utf_ptr2char(opnd);
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4781 if (enc_utf8 && utf_iscomposing(opndc))
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4782 {
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4783 /* When only a composing char is given match at any
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4784 * position where that composing char appears. */
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4785 status = RA_NOMATCH;
6723
eefee03a37fe updated for version 7.4.685
Bram Moolenaar <bram@vim.org>
parents: 6533
diff changeset
4786 for (i = 0; reginput[i] != NUL;
eefee03a37fe updated for version 7.4.685
Bram Moolenaar <bram@vim.org>
parents: 6533
diff changeset
4787 i += utf_ptr2len(reginput + i))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4788 {
11269
121d29004998 patch 8.0.0520: using a function pointer while the function is known
Christian Brabandt <cb@256bit.org>
parents: 11267
diff changeset
4789 inpc = utf_ptr2char(reginput + i);
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4790 if (!utf_iscomposing(inpc))
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4791 {
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4792 if (i > 0)
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4793 break;
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4794 }
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4795 else if (opndc == inpc)
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4796 {
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4797 /* Include all following composing chars. */
11269
121d29004998 patch 8.0.0520: using a function pointer while the function is known
Christian Brabandt <cb@256bit.org>
parents: 11267
diff changeset
4798 len = i + utfc_ptr2len(reginput + i);
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4799 status = RA_MATCH;
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4800 break;
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4801 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4802 }
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4803 }
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4804 else
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4805 for (i = 0; i < len; ++i)
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4806 if (opnd[i] != reginput[i])
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4807 {
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4808 status = RA_NOMATCH;
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4809 break;
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 692
diff changeset
4810 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4811 reginput += len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4812 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4813 else
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4814 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4815 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4816 #endif
5901
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4817 case RE_COMPOSING:
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4818 #ifdef FEAT_MBYTE
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4819 if (enc_utf8)
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4820 {
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4821 /* Skip composing characters. */
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4822 while (utf_iscomposing(utf_ptr2char(reginput)))
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
4823 MB_CPTR_ADV(reginput);
5901
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4824 }
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4825 #endif
10fc95f48546 updated for version 7.4.293
Bram Moolenaar <bram@vim.org>
parents: 5899
diff changeset
4826 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4827
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4828 case NOTHING:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4829 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4830
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4831 case BACK:
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4832 {
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4833 int i;
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4834 backpos_T *bp;
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4835
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4836 /*
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4837 * When we run into BACK we need to check if we don't keep
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4838 * looping without matching any input. The second and later
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4839 * times a BACK is encountered it fails if the input is still
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4840 * at the same position as the previous time.
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4841 * The positions are stored in "backpos" and found by the
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4842 * current value of "scan", the position in the RE program.
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4843 */
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4844 bp = (backpos_T *)backpos.ga_data;
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4845 for (i = 0; i < backpos.ga_len; ++i)
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4846 if (bp[i].bp_scan == scan)
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4847 break;
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4848 if (i == backpos.ga_len)
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4849 {
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4850 /* First time at this BACK, make room to store the pos. */
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4851 if (ga_grow(&backpos, 1) == FAIL)
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4852 status = RA_FAIL;
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4853 else
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4854 {
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4855 /* get "ga_data" again, it may have changed */
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4856 bp = (backpos_T *)backpos.ga_data;
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4857 bp[i].bp_scan = scan;
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4858 ++backpos.ga_len;
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4859 }
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4860 }
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4861 else if (reg_save_equal(&bp[i].bp_pos))
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4862 /* Still at same position as last time, fail. */
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4863 status = RA_NOMATCH;
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4864
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4865 if (status != RA_FAIL && status != RA_NOMATCH)
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4866 reg_save(&bp[i].bp_pos, &backpos);
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
4867 }
179
7fd70926e2e1 updated for version 7.0055
vimboss
parents: 177
diff changeset
4868 break;
7fd70926e2e1 updated for version 7.0055
vimboss
parents: 177
diff changeset
4869
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4870 case MOPEN + 0: /* Match start: \zs */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4871 case MOPEN + 1: /* \( */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4872 case MOPEN + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4873 case MOPEN + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4874 case MOPEN + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4875 case MOPEN + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4876 case MOPEN + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4877 case MOPEN + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4878 case MOPEN + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4879 case MOPEN + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4880 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4881 no = op - MOPEN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4882 cleanup_subexpr();
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
4883 rp = regstack_push(RS_MOPEN, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4884 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4885 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4886 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4887 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4888 rp->rs_no = no;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4889 save_se(&rp->rs_un.sesave, &rex.reg_startpos[no],
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4890 &rex.reg_startp[no]);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4891 /* We simply continue and handle the result when done. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4892 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4893 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4894 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4895
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4896 case NOPEN: /* \%( */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4897 case NCLOSE: /* \) after \%( */
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
4898 if (regstack_push(RS_NOPEN, scan) == NULL)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4899 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4900 /* We simply continue and handle the result when done. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4901 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4902
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4903 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4904 case ZOPEN + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4905 case ZOPEN + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4906 case ZOPEN + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4907 case ZOPEN + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4908 case ZOPEN + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4909 case ZOPEN + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4910 case ZOPEN + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4911 case ZOPEN + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4912 case ZOPEN + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4913 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4914 no = op - ZOPEN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4915 cleanup_zsubexpr();
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
4916 rp = regstack_push(RS_ZOPEN, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4917 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4918 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4919 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4920 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4921 rp->rs_no = no;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4922 save_se(&rp->rs_un.sesave, &reg_startzpos[no],
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4923 &reg_startzp[no]);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4924 /* We simply continue and handle the result when done. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4925 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4926 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4927 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4928 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4929
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4930 case MCLOSE + 0: /* Match end: \ze */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4931 case MCLOSE + 1: /* \) */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4932 case MCLOSE + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4933 case MCLOSE + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4934 case MCLOSE + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4935 case MCLOSE + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4936 case MCLOSE + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4937 case MCLOSE + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4938 case MCLOSE + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4939 case MCLOSE + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4940 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4941 no = op - MCLOSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4942 cleanup_subexpr();
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
4943 rp = regstack_push(RS_MCLOSE, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4944 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4945 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4946 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4947 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4948 rp->rs_no = no;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4949 save_se(&rp->rs_un.sesave, &rex.reg_endpos[no],
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4950 &rex.reg_endp[no]);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4951 /* We simply continue and handle the result when done. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4952 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4953 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4954 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4955
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4956 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4957 case ZCLOSE + 1: /* \) after \z( */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4958 case ZCLOSE + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4959 case ZCLOSE + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4960 case ZCLOSE + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4961 case ZCLOSE + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4962 case ZCLOSE + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4963 case ZCLOSE + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4964 case ZCLOSE + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4965 case ZCLOSE + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4966 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4967 no = op - ZCLOSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4968 cleanup_zsubexpr();
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
4969 rp = regstack_push(RS_ZCLOSE, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4970 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4971 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4972 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4973 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4974 rp->rs_no = no;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4975 save_se(&rp->rs_un.sesave, &reg_endzpos[no],
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4976 &reg_endzp[no]);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4977 /* We simply continue and handle the result when done. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4978 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4979 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
4980 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4981 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4982
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4983 case BACKREF + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4984 case BACKREF + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4985 case BACKREF + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4986 case BACKREF + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4987 case BACKREF + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4988 case BACKREF + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4989 case BACKREF + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4990 case BACKREF + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4991 case BACKREF + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4992 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4993 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4994
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4995 no = op - BACKREF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4996 cleanup_subexpr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4997 if (!REG_MULTI) /* Single-line regexp */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4998 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
4999 if (rex.reg_startp[no] == NULL || rex.reg_endp[no] == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5000 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5001 /* Backref was not set: Match an empty string. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5002 len = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5003 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5004 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5005 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5006 /* Compare current input with back-ref in the same
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5007 * line. */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5008 len = (int)(rex.reg_endp[no] - rex.reg_startp[no]);
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5009 if (cstrncmp(rex.reg_startp[no], reginput, &len) != 0)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5010 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5011 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5012 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5013 else /* Multi-line regexp */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5014 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5015 if (rex.reg_startpos[no].lnum < 0
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5016 || rex.reg_endpos[no].lnum < 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5017 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5018 /* Backref was not set: Match an empty string. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5019 len = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5020 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5021 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5022 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5023 if (rex.reg_startpos[no].lnum == reglnum
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5024 && rex.reg_endpos[no].lnum == reglnum)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5025 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5026 /* Compare back-ref within the current line. */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5027 len = rex.reg_endpos[no].col
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5028 - rex.reg_startpos[no].col;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5029 if (cstrncmp(regline + rex.reg_startpos[no].col,
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5030 reginput, &len) != 0)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5031 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5032 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5033 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5034 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5035 /* Messy situation: Need to compare between two
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5036 * lines. */
4901
56fbf60e9476 updated for version 7.3.1196
Bram Moolenaar <bram@vim.org>
parents: 4899
diff changeset
5037 int r = match_with_backref(
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5038 rex.reg_startpos[no].lnum,
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5039 rex.reg_startpos[no].col,
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5040 rex.reg_endpos[no].lnum,
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5041 rex.reg_endpos[no].col,
4899
4837fd61be52 updated for version 7.3.1195
Bram Moolenaar <bram@vim.org>
parents: 4891
diff changeset
5042 &len);
4901
56fbf60e9476 updated for version 7.3.1196
Bram Moolenaar <bram@vim.org>
parents: 4899
diff changeset
5043
56fbf60e9476 updated for version 7.3.1196
Bram Moolenaar <bram@vim.org>
parents: 4899
diff changeset
5044 if (r != RA_MATCH)
56fbf60e9476 updated for version 7.3.1196
Bram Moolenaar <bram@vim.org>
parents: 4899
diff changeset
5045 status = r;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5046 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5047 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5048 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5049
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5050 /* Matched the backref, skip over it. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5051 reginput += len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5052 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5053 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5054
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5055 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5056 case ZREF + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5057 case ZREF + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5058 case ZREF + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5059 case ZREF + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5060 case ZREF + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5061 case ZREF + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5062 case ZREF + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5063 case ZREF + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5064 case ZREF + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5065 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5066 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5067
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5068 cleanup_zsubexpr();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5069 no = op - ZREF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5070 if (re_extmatch_in != NULL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5071 && re_extmatch_in->matches[no] != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5072 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5073 len = (int)STRLEN(re_extmatch_in->matches[no]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5074 if (cstrncmp(re_extmatch_in->matches[no],
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5075 reginput, &len) != 0)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5076 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5077 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5078 reginput += len;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5079 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5080 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5081 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5082 /* Backref was not set: Match an empty string. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5083 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5084 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5085 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5086 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5087
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5088 case BRANCH:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5089 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5090 if (OP(next) != BRANCH) /* No choice. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5091 next = OPERAND(scan); /* Avoid recursion. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5092 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5093 {
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5094 rp = regstack_push(RS_BRANCH, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5095 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5096 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5097 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5098 status = RA_BREAK; /* rest is below */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5099 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5100 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5101 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5102
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5103 case BRACE_LIMITS:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5104 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5105 if (OP(next) == BRACE_SIMPLE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5106 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5107 bl_minval = OPERAND_MIN(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5108 bl_maxval = OPERAND_MAX(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5109 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5110 else if (OP(next) >= BRACE_COMPLEX
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5111 && OP(next) < BRACE_COMPLEX + 10)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5112 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5113 no = OP(next) - BRACE_COMPLEX;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5114 brace_min[no] = OPERAND_MIN(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5115 brace_max[no] = OPERAND_MAX(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5116 brace_count[no] = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5117 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5118 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5119 {
10359
66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f
Christian Brabandt <cb@256bit.org>
parents: 10245
diff changeset
5120 internal_error("BRACE_LIMITS");
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5121 status = RA_FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5122 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5123 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5124 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5125
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5126 case BRACE_COMPLEX + 0:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5127 case BRACE_COMPLEX + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5128 case BRACE_COMPLEX + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5129 case BRACE_COMPLEX + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5130 case BRACE_COMPLEX + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5131 case BRACE_COMPLEX + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5132 case BRACE_COMPLEX + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5133 case BRACE_COMPLEX + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5134 case BRACE_COMPLEX + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5135 case BRACE_COMPLEX + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5136 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5137 no = op - BRACE_COMPLEX;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5138 ++brace_count[no];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5139
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5140 /* If not matched enough times yet, try one more */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5141 if (brace_count[no] <= (brace_min[no] <= brace_max[no]
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5142 ? brace_min[no] : brace_max[no]))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5143 {
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5144 rp = regstack_push(RS_BRCPLX_MORE, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5145 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5146 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5147 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5148 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5149 rp->rs_no = no;
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5150 reg_save(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5151 next = OPERAND(scan);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5152 /* We continue and handle the result when done. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5153 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5154 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5155 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5156
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5157 /* If matched enough times, may try matching some more */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5158 if (brace_min[no] <= brace_max[no])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5159 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5160 /* Range is the normal way around, use longest match */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5161 if (brace_count[no] <= brace_max[no])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5162 {
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5163 rp = regstack_push(RS_BRCPLX_LONG, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5164 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5165 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5166 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5167 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5168 rp->rs_no = no;
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5169 reg_save(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5170 next = OPERAND(scan);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5171 /* We continue and handle the result when done. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5172 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5173 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5174 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5175 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5176 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5177 /* Range is backwards, use shortest match first */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5178 if (brace_count[no] <= brace_min[no])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5179 {
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5180 rp = regstack_push(RS_BRCPLX_SHORT, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5181 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5182 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5183 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5184 {
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5185 reg_save(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5186 /* We continue and handle the result when done. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5187 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5188 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5189 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5190 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5191 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5192
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5193 case BRACE_SIMPLE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5194 case STAR:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5195 case PLUS:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5196 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5197 regstar_T rst;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5198
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5199 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5200 * Lookahead to avoid useless match attempts when we know
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5201 * what character comes next.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5202 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5203 if (OP(next) == EXACTLY)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5204 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5205 rst.nextb = *OPERAND(next);
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5206 if (rex.reg_ic)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5207 {
1347
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
5208 if (MB_ISUPPER(rst.nextb))
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
5209 rst.nextb_ic = MB_TOLOWER(rst.nextb);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5210 else
1347
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
5211 rst.nextb_ic = MB_TOUPPER(rst.nextb);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5212 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5213 else
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5214 rst.nextb_ic = rst.nextb;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5215 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5216 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5217 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5218 rst.nextb = NUL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5219 rst.nextb_ic = NUL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5220 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5221 if (op != BRACE_SIMPLE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5222 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5223 rst.minval = (op == STAR) ? 0 : 1;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5224 rst.maxval = MAX_LIMIT;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5225 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5226 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5227 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5228 rst.minval = bl_minval;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5229 rst.maxval = bl_maxval;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5230 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5231
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5232 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5233 * When maxval > minval, try matching as much as possible, up
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5234 * to maxval. When maxval < minval, try matching at least the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5235 * minimal number (since the range is backwards, that's also
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5236 * maxval!).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5237 */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5238 rst.count = regrepeat(OPERAND(scan), rst.maxval);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5239 if (got_int)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5240 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5241 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5242 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5243 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5244 if (rst.minval <= rst.maxval
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5245 ? rst.count >= rst.minval : rst.count >= rst.maxval)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5246 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5247 /* It could match. Prepare for trying to match what
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5248 * follows. The code is below. Parameters are stored in
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5249 * a regstar_T on the regstack. */
212
e39657bbbb98 updated for version 7.0060
vimboss
parents: 195
diff changeset
5250 if ((long)((unsigned)regstack.ga_len >> 10) >= p_mmp)
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5251 {
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5252 EMSG(_(e_maxmempat));
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5253 status = RA_FAIL;
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5254 }
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5255 else if (ga_grow(&regstack, sizeof(regstar_T)) == FAIL)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5256 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5257 else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5258 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5259 regstack.ga_len += sizeof(regstar_T);
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5260 rp = regstack_push(rst.minval <= rst.maxval
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5261 ? RS_STAR_LONG : RS_STAR_SHORT, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5262 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5263 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5264 else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5265 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5266 *(((regstar_T *)rp) - 1) = rst;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5267 status = RA_BREAK; /* skip the restore bits */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5268 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5269 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5270 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5271 else
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5272 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5273
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5274 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5275 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5276
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5277 case NOMATCH:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5278 case MATCH:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5279 case SUBPAT:
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5280 rp = regstack_push(RS_NOMATCH, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5281 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5282 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5283 else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5284 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5285 rp->rs_no = op;
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5286 reg_save(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5287 next = OPERAND(scan);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5288 /* We continue and handle the result when done. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5289 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5290 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5291
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5292 case BEHIND:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5293 case NOBEHIND:
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5294 /* Need a bit of room to store extra positions. */
212
e39657bbbb98 updated for version 7.0060
vimboss
parents: 195
diff changeset
5295 if ((long)((unsigned)regstack.ga_len >> 10) >= p_mmp)
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5296 {
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5297 EMSG(_(e_maxmempat));
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5298 status = RA_FAIL;
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5299 }
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5300 else if (ga_grow(&regstack, sizeof(regbehind_T)) == FAIL)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5301 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5302 else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5303 {
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5304 regstack.ga_len += sizeof(regbehind_T);
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5305 rp = regstack_push(RS_BEHIND1, scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5306 if (rp == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5307 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5308 else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5309 {
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5310 /* Need to save the subexpr to be able to restore them
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5311 * when there is a match but we don't use it. */
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5312 save_subexpr(((regbehind_T *)rp) - 1);
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5313
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5314 rp->rs_no = op;
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5315 reg_save(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5316 /* First try if what follows matches. If it does then we
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5317 * check the behind match by looping. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5318 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5319 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5320 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5321
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5322 case BHPOS:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5323 if (REG_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5324 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5325 if (behind_pos.rs_u.pos.col != (colnr_T)(reginput - regline)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5326 || behind_pos.rs_u.pos.lnum != reglnum)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5327 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5328 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5329 else if (behind_pos.rs_u.ptr != reginput)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5330 status = RA_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5331 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5332
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5333 case NEWL:
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5334 if ((c != NUL || !REG_MULTI || reglnum > rex.reg_maxline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5335 || rex.reg_line_lbr)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5336 && (c != '\n' || !rex.reg_line_lbr))
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5337 status = RA_NOMATCH;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5338 else if (rex.reg_line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5339 ADVANCE_REGINPUT();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5340 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5341 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5342 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5343
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5344 case END:
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5345 status = RA_MATCH; /* Success! */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5346 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5347
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5348 default:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5349 EMSG(_(e_re_corr));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5350 #ifdef DEBUG
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5351 printf("Illegal op code %d\n", op);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5352 #endif
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5353 status = RA_FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5354 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5355 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5356 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5357
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5358 /* If we can't continue sequentially, break the inner loop. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5359 if (status != RA_CONT)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5360 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5361
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5362 /* Continue in inner loop, advance to next item. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5363 scan = next;
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5364
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5365 } /* end of inner loop */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5366
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5367 /*
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5368 * If there is something on the regstack execute the code for the state.
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5369 * If the state is popped then loop and use the older state.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5370 */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5371 while (regstack.ga_len > 0 && status != RA_FAIL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5372 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5373 rp = (regitem_T *)((char *)regstack.ga_data + regstack.ga_len) - 1;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5374 switch (rp->rs_state)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5375 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5376 case RS_NOPEN:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5377 /* Result is passed on as-is, simply pop the state. */
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5378 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5379 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5380
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5381 case RS_MOPEN:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5382 /* Pop the state. Restore pointers when there is no match. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5383 if (status == RA_NOMATCH)
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5384 restore_se(&rp->rs_un.sesave, &rex.reg_startpos[rp->rs_no],
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5385 &rex.reg_startp[rp->rs_no]);
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5386 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5387 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5388
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5389 #ifdef FEAT_SYN_HL
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5390 case RS_ZOPEN:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5391 /* Pop the state. Restore pointers when there is no match. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5392 if (status == RA_NOMATCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5393 restore_se(&rp->rs_un.sesave, &reg_startzpos[rp->rs_no],
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5394 &reg_startzp[rp->rs_no]);
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5395 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5396 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5397 #endif
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5398
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5399 case RS_MCLOSE:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5400 /* Pop the state. Restore pointers when there is no match. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5401 if (status == RA_NOMATCH)
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5402 restore_se(&rp->rs_un.sesave, &rex.reg_endpos[rp->rs_no],
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5403 &rex.reg_endp[rp->rs_no]);
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5404 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5405 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5406
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5407 #ifdef FEAT_SYN_HL
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5408 case RS_ZCLOSE:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5409 /* Pop the state. Restore pointers when there is no match. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5410 if (status == RA_NOMATCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5411 restore_se(&rp->rs_un.sesave, &reg_endzpos[rp->rs_no],
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5412 &reg_endzp[rp->rs_no]);
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5413 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5414 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5415 #endif
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5416
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5417 case RS_BRANCH:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5418 if (status == RA_MATCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5419 /* this branch matched, use it */
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5420 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5421 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5422 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5423 if (status != RA_BREAK)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5424 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5425 /* After a non-matching branch: try next one. */
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5426 reg_restore(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5427 scan = rp->rs_scan;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5428 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5429 if (scan == NULL || OP(scan) != BRANCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5430 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5431 /* no more branches, didn't find a match */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5432 status = RA_NOMATCH;
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5433 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5434 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5435 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5436 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5437 /* Prepare to try a branch. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5438 rp->rs_scan = regnext(scan);
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5439 reg_save(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5440 scan = OPERAND(scan);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5441 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5442 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5443 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5444
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5445 case RS_BRCPLX_MORE:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5446 /* Pop the state. Restore pointers when there is no match. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5447 if (status == RA_NOMATCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5448 {
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5449 reg_restore(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5450 --brace_count[rp->rs_no]; /* decrement match count */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5451 }
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5452 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5453 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5454
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5455 case RS_BRCPLX_LONG:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5456 /* Pop the state. Restore pointers when there is no match. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5457 if (status == RA_NOMATCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5458 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5459 /* There was no match, but we did find enough matches. */
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5460 reg_restore(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5461 --brace_count[rp->rs_no];
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5462 /* continue with the items after "\{}" */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5463 status = RA_CONT;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5464 }
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5465 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5466 if (status == RA_CONT)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5467 scan = regnext(scan);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5468 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5469
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5470 case RS_BRCPLX_SHORT:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5471 /* Pop the state. Restore pointers when there is no match. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5472 if (status == RA_NOMATCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5473 /* There was no match, try to match one more item. */
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5474 reg_restore(&rp->rs_un.regsave, &backpos);
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5475 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5476 if (status == RA_NOMATCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5477 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5478 scan = OPERAND(scan);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5479 status = RA_CONT;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5480 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5481 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5482
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5483 case RS_NOMATCH:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5484 /* Pop the state. If the operand matches for NOMATCH or
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5485 * doesn't match for MATCH/SUBPAT, we fail. Otherwise backup,
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5486 * except for SUBPAT, and continue with the next item. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5487 if (status == (rp->rs_no == NOMATCH ? RA_MATCH : RA_NOMATCH))
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5488 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5489 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5490 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5491 status = RA_CONT;
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5492 if (rp->rs_no != SUBPAT) /* zero-width */
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5493 reg_restore(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5494 }
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5495 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5496 if (status == RA_CONT)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5497 scan = regnext(scan);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5498 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5499
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5500 case RS_BEHIND1:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5501 if (status == RA_NOMATCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5502 {
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5503 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5504 regstack.ga_len -= sizeof(regbehind_T);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5505 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5506 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5507 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5508 /* The stuff after BEHIND/NOBEHIND matches. Now try if
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5509 * the behind part does (not) match before the current
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5510 * position in the input. This must be done at every
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5511 * position in the input and checking if the match ends at
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5512 * the current position. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5513
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5514 /* save the position after the found match for next */
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5515 reg_save(&(((regbehind_T *)rp) - 1)->save_after, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5516
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5517 /* Start looking for a match with operand at the current
1209
070f2ac50cf8 updated for version 7.1b
vimboss
parents: 1148
diff changeset
5518 * position. Go back one character until we find the
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5519 * result, hitting the start of the line or the previous
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5520 * line (for multi-line matching).
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5521 * Set behind_pos to where the match should end, BHPOS
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5522 * will match it. Save the current value. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5523 (((regbehind_T *)rp) - 1)->save_behind = behind_pos;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5524 behind_pos = rp->rs_un.regsave;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5525
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5526 rp->rs_state = RS_BEHIND2;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5527
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5528 reg_restore(&rp->rs_un.regsave, &backpos);
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5529 scan = OPERAND(rp->rs_scan) + 4;
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5530 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5531 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5532
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5533 case RS_BEHIND2:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5534 /*
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5535 * Looping for BEHIND / NOBEHIND match.
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5536 */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5537 if (status == RA_MATCH && reg_save_equal(&behind_pos))
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5538 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5539 /* found a match that ends where "next" started */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5540 behind_pos = (((regbehind_T *)rp) - 1)->save_behind;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5541 if (rp->rs_no == BEHIND)
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5542 reg_restore(&(((regbehind_T *)rp) - 1)->save_after,
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5543 &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5544 else
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5545 {
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5546 /* But we didn't want a match. Need to restore the
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5547 * subexpr, because what follows matched, so they have
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5548 * been set. */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5549 status = RA_NOMATCH;
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5550 restore_subexpr(((regbehind_T *)rp) - 1);
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5551 }
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5552 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5553 regstack.ga_len -= sizeof(regbehind_T);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5554 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5555 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5556 {
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5557 long limit;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5558
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5559 /* No match or a match that doesn't end where we want it: Go
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5560 * back one character. May go to previous line once. */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5561 no = OK;
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5562 limit = OPERAND_MIN(rp->rs_scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5563 if (REG_MULTI)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5564 {
4682
2f51ee8825db updated for version 7.3.1088
Bram Moolenaar <bram@vim.org>
parents: 4679
diff changeset
5565 if (limit > 0
2f51ee8825db updated for version 7.3.1088
Bram Moolenaar <bram@vim.org>
parents: 4679
diff changeset
5566 && ((rp->rs_un.regsave.rs_u.pos.lnum
2f51ee8825db updated for version 7.3.1088
Bram Moolenaar <bram@vim.org>
parents: 4679
diff changeset
5567 < behind_pos.rs_u.pos.lnum
2f51ee8825db updated for version 7.3.1088
Bram Moolenaar <bram@vim.org>
parents: 4679
diff changeset
5568 ? (colnr_T)STRLEN(regline)
2f51ee8825db updated for version 7.3.1088
Bram Moolenaar <bram@vim.org>
parents: 4679
diff changeset
5569 : behind_pos.rs_u.pos.col)
2f51ee8825db updated for version 7.3.1088
Bram Moolenaar <bram@vim.org>
parents: 4679
diff changeset
5570 - rp->rs_un.regsave.rs_u.pos.col >= limit))
2f51ee8825db updated for version 7.3.1088
Bram Moolenaar <bram@vim.org>
parents: 4679
diff changeset
5571 no = FAIL;
2f51ee8825db updated for version 7.3.1088
Bram Moolenaar <bram@vim.org>
parents: 4679
diff changeset
5572 else if (rp->rs_un.regsave.rs_u.pos.col == 0)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5573 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5574 if (rp->rs_un.regsave.rs_u.pos.lnum
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5575 < behind_pos.rs_u.pos.lnum
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5576 || reg_getline(
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5577 --rp->rs_un.regsave.rs_u.pos.lnum)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5578 == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5579 no = FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5580 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5581 {
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5582 reg_restore(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5583 rp->rs_un.regsave.rs_u.pos.col =
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5584 (colnr_T)STRLEN(regline);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5585 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5586 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5587 else
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5588 {
4176
1778d51fcbc3 updated for version 7.3.840
Bram Moolenaar <bram@vim.org>
parents: 4084
diff changeset
5589 #ifdef FEAT_MBYTE
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5590 if (has_mbyte)
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5591 rp->rs_un.regsave.rs_u.pos.col -=
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5592 (*mb_head_off)(regline, regline
4176
1778d51fcbc3 updated for version 7.3.840
Bram Moolenaar <bram@vim.org>
parents: 4084
diff changeset
5593 + rp->rs_un.regsave.rs_u.pos.col - 1) + 1;
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5594 else
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5595 #endif
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5596 --rp->rs_un.regsave.rs_u.pos.col;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5597 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5598 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5599 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5600 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5601 if (rp->rs_un.regsave.rs_u.ptr == regline)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5602 no = FAIL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5603 else
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5604 {
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
5605 MB_PTR_BACK(regline, rp->rs_un.regsave.rs_u.ptr);
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5606 if (limit > 0 && (long)(behind_pos.rs_u.ptr
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5607 - rp->rs_un.regsave.rs_u.ptr) > limit)
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5608 no = FAIL;
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5609 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5610 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5611 if (no == OK)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5612 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5613 /* Advanced, prepare for finding match again. */
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5614 reg_restore(&rp->rs_un.regsave, &backpos);
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
5615 scan = OPERAND(rp->rs_scan) + 4;
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5616 if (status == RA_MATCH)
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5617 {
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5618 /* We did match, so subexpr may have been changed,
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5619 * need to restore them for the next try. */
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5620 status = RA_NOMATCH;
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5621 restore_subexpr(((regbehind_T *)rp) - 1);
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5622 }
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5623 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5624 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5625 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5626 /* Can't advance. For NOBEHIND that's a match. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5627 behind_pos = (((regbehind_T *)rp) - 1)->save_behind;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5628 if (rp->rs_no == NOBEHIND)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5629 {
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5630 reg_restore(&(((regbehind_T *)rp) - 1)->save_after,
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5631 &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5632 status = RA_MATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5633 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5634 else
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5635 {
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5636 /* We do want a proper match. Need to restore the
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5637 * subexpr if we had a match, because they may have
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5638 * been set. */
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5639 if (status == RA_MATCH)
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5640 {
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5641 status = RA_NOMATCH;
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5642 restore_subexpr(((regbehind_T *)rp) - 1);
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5643 }
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
5644 }
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5645 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5646 regstack.ga_len -= sizeof(regbehind_T);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5647 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5648 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5649 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5650
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5651 case RS_STAR_LONG:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5652 case RS_STAR_SHORT:
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5653 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5654 regstar_T *rst = ((regstar_T *)rp) - 1;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5655
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5656 if (status == RA_MATCH)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5657 {
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5658 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5659 regstack.ga_len -= sizeof(regstar_T);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5660 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5661 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5662
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5663 /* Tried once already, restore input pointers. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5664 if (status != RA_BREAK)
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5665 reg_restore(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5666
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5667 /* Repeat until we found a position where it could match. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5668 for (;;)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5669 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5670 if (status != RA_BREAK)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5671 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5672 /* Tried first position already, advance. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5673 if (rp->rs_state == RS_STAR_LONG)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5674 {
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 653
diff changeset
5675 /* Trying for longest match, but couldn't or
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 653
diff changeset
5676 * didn't match -- back up one char. */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5677 if (--rst->count < rst->minval)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5678 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5679 if (reginput == regline)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5680 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5681 /* backup to last char of previous line */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5682 --reglnum;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5683 regline = reg_getline(reglnum);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5684 /* Just in case regrepeat() didn't count
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5685 * right. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5686 if (regline == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5687 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5688 reginput = regline + STRLEN(regline);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5689 fast_breakcheck();
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5690 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5691 else
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
5692 MB_PTR_BACK(regline, reginput);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5693 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5694 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5695 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5696 /* Range is backwards, use shortest match first.
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5697 * Careful: maxval and minval are exchanged!
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5698 * Couldn't or didn't match: try advancing one
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5699 * char. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5700 if (rst->count == rst->minval
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5701 || regrepeat(OPERAND(rp->rs_scan), 1L) == 0)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5702 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5703 ++rst->count;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5704 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5705 if (got_int)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5706 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5707 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5708 else
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5709 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5710
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5711 /* If it could match, try it. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5712 if (rst->nextb == NUL || *reginput == rst->nextb
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5713 || *reginput == rst->nextb_ic)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5714 {
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
5715 reg_save(&rp->rs_un.regsave, &backpos);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5716 scan = regnext(rp->rs_scan);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5717 status = RA_CONT;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5718 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5719 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5720 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5721 if (status != RA_CONT)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5722 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5723 /* Failed. */
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5724 regstack_pop(&scan);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5725 regstack.ga_len -= sizeof(regstar_T);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5726 status = RA_NOMATCH;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5727 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5728 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5729 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5730 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5731
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 653
diff changeset
5732 /* If we want to continue the inner loop or didn't pop a state
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 653
diff changeset
5733 * continue matching loop */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5734 if (status == RA_CONT || rp == (regitem_T *)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5735 ((char *)regstack.ga_data + regstack.ga_len) - 1)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5736 break;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5737 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5738
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5739 /* May need to continue with the inner loop, starting at "scan". */
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5740 if (status == RA_CONT)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5741 continue;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5742
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5743 /*
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5744 * If the regstack is empty or something failed we are done.
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5745 */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5746 if (regstack.ga_len == 0 || status == RA_FAIL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5747 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5748 if (scan == NULL)
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5749 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5750 /*
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5751 * We get here only if there's trouble -- normally "case END" is
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5752 * the terminating point.
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5753 */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5754 EMSG(_(e_re_corr));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5755 #ifdef DEBUG
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5756 printf("Premature EOL\n");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5757 #endif
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5758 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5759 return (status == RA_MATCH);
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5760 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5761
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5762 } /* End of loop until the regstack is empty. */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5763
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5764 /* NOTREACHED */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5765 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5766
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5767 /*
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5768 * Push an item onto the regstack.
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5769 * Returns pointer to new item. Returns NULL when out of memory.
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5770 */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5771 static regitem_T *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
5772 regstack_push(regstate_T state, char_u *scan)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5773 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5774 regitem_T *rp;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5775
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5776 if ((long)((unsigned)regstack.ga_len >> 10) >= p_mmp)
189
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5777 {
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5778 EMSG(_(e_maxmempat));
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5779 return NULL;
504c627f7474 updated for version 7.0057
vimboss
parents: 180
diff changeset
5780 }
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5781 if (ga_grow(&regstack, sizeof(regitem_T)) == FAIL)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5782 return NULL;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5783
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5784 rp = (regitem_T *)((char *)regstack.ga_data + regstack.ga_len);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5785 rp->rs_state = state;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5786 rp->rs_scan = scan;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5787
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5788 regstack.ga_len += sizeof(regitem_T);
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5789 return rp;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5790 }
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5791
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5792 /*
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5793 * Pop an item from the regstack.
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5794 */
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5795 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
5796 regstack_pop(char_u **scan)
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5797 {
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5798 regitem_T *rp;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5799
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5800 rp = (regitem_T *)((char *)regstack.ga_data + regstack.ga_len) - 1;
180
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5801 *scan = rp->rs_scan;
7e70fc748752 updated for version 7.0056
vimboss
parents: 179
diff changeset
5802
270
a20218704019 updated for version 7.0072
vimboss
parents: 236
diff changeset
5803 regstack.ga_len -= sizeof(regitem_T);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5804 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5805
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5806 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5807 * regrepeat - repeatedly match something simple, return how many.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5808 * Advances reginput (and reglnum) to just after the matched chars.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5809 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5810 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
5811 regrepeat(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
5812 char_u *p,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
5813 long maxcount) /* maximum number of matches allowed */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5814 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5815 long count = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5816 char_u *scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5817 char_u *opnd;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5818 int mask;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5819 int testval = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5820
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5821 scan = reginput; /* Make local copy of reginput for speed. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5822 opnd = OPERAND(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5823 switch (OP(p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5824 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5825 case ANY:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5826 case ANY + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5827 while (count < maxcount)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5828 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5829 /* Matching anything means we continue until end-of-line (or
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5830 * end-of-file for ANY + ADD_NL), only limited by maxcount. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5831 while (*scan != NUL && count < maxcount)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5832 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5833 ++count;
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
5834 MB_PTR_ADV(scan);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5835 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5836 if (!REG_MULTI || !WITH_NL(OP(p)) || reglnum > rex.reg_maxline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5837 || rex.reg_line_lbr || count == maxcount)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5838 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5839 ++count; /* count the line-break */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5840 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5841 scan = reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5842 if (got_int)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5843 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5844 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5845 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5846
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5847 case IDENT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5848 case IDENT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5849 testval = TRUE;
12674
e769c912fcd9 patch 8.0.1215: newer gcc warns for implicit fallthrough
Christian Brabandt <cb@256bit.org>
parents: 11529
diff changeset
5850 /* FALLTHROUGH */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5851 case SIDENT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5852 case SIDENT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5853 while (count < maxcount)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5854 {
4466
4ff8fa416a0d updated for version 7.3.981
Bram Moolenaar <bram@vim.org>
parents: 4460
diff changeset
5855 if (vim_isIDc(PTR2CHAR(scan)) && (testval || !VIM_ISDIGIT(*scan)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5856 {
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
5857 MB_PTR_ADV(scan);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5858 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5859 else if (*scan == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5860 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5861 if (!REG_MULTI || !WITH_NL(OP(p)) || reglnum > rex.reg_maxline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5862 || rex.reg_line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5863 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5864 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5865 scan = reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5866 if (got_int)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5867 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5868 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5869 else if (rex.reg_line_lbr && *scan == '\n' && WITH_NL(OP(p)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5870 ++scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5871 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5872 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5873 ++count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5874 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5875 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5876
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5877 case KWORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5878 case KWORD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5879 testval = TRUE;
12674
e769c912fcd9 patch 8.0.1215: newer gcc warns for implicit fallthrough
Christian Brabandt <cb@256bit.org>
parents: 11529
diff changeset
5880 /* FALLTHROUGH */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5881 case SKWORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5882 case SKWORD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5883 while (count < maxcount)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5884 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5885 if (vim_iswordp_buf(scan, rex.reg_buf)
4069
43c15135926f updated for version 7.3.789
Bram Moolenaar <bram@vim.org>
parents: 4061
diff changeset
5886 && (testval || !VIM_ISDIGIT(*scan)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5887 {
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
5888 MB_PTR_ADV(scan);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5889 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5890 else if (*scan == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5891 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5892 if (!REG_MULTI || !WITH_NL(OP(p)) || reglnum > rex.reg_maxline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5893 || rex.reg_line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5894 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5895 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5896 scan = reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5897 if (got_int)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5898 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5899 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5900 else if (rex.reg_line_lbr && *scan == '\n' && WITH_NL(OP(p)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5901 ++scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5902 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5903 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5904 ++count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5905 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5906 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5907
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5908 case FNAME:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5909 case FNAME + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5910 testval = TRUE;
12674
e769c912fcd9 patch 8.0.1215: newer gcc warns for implicit fallthrough
Christian Brabandt <cb@256bit.org>
parents: 11529
diff changeset
5911 /* FALLTHROUGH */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5912 case SFNAME:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5913 case SFNAME + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5914 while (count < maxcount)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5915 {
4466
4ff8fa416a0d updated for version 7.3.981
Bram Moolenaar <bram@vim.org>
parents: 4460
diff changeset
5916 if (vim_isfilec(PTR2CHAR(scan)) && (testval || !VIM_ISDIGIT(*scan)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5917 {
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
5918 MB_PTR_ADV(scan);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5919 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5920 else if (*scan == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5921 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5922 if (!REG_MULTI || !WITH_NL(OP(p)) || reglnum > rex.reg_maxline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5923 || rex.reg_line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5924 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5925 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5926 scan = reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5927 if (got_int)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5928 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5929 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5930 else if (rex.reg_line_lbr && *scan == '\n' && WITH_NL(OP(p)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5931 ++scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5932 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5933 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5934 ++count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5935 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5936 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5937
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5938 case PRINT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5939 case PRINT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5940 testval = TRUE;
12674
e769c912fcd9 patch 8.0.1215: newer gcc warns for implicit fallthrough
Christian Brabandt <cb@256bit.org>
parents: 11529
diff changeset
5941 /* FALLTHROUGH */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5942 case SPRINT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5943 case SPRINT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5944 while (count < maxcount)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5945 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5946 if (*scan == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5947 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5948 if (!REG_MULTI || !WITH_NL(OP(p)) || reglnum > rex.reg_maxline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5949 || rex.reg_line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5950 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5951 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5952 scan = reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5953 if (got_int)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5954 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5955 }
5221
9982ec574beb updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents: 4901
diff changeset
5956 else if (vim_isprintc(PTR2CHAR(scan)) == 1
9982ec574beb updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents: 4901
diff changeset
5957 && (testval || !VIM_ISDIGIT(*scan)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5958 {
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
5959 MB_PTR_ADV(scan);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5960 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5961 else if (rex.reg_line_lbr && *scan == '\n' && WITH_NL(OP(p)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5962 ++scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5963 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5964 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5965 ++count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5966 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5967 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5968
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5969 case WHITE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5970 case WHITE + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5971 testval = mask = RI_WHITE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5972 do_class:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5973 while (count < maxcount)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5974 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5975 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5976 int l;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5977 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5978 if (*scan == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5979 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5980 if (!REG_MULTI || !WITH_NL(OP(p)) || reglnum > rex.reg_maxline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5981 || rex.reg_line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5982 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5983 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5984 scan = reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5985 if (got_int)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5986 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5987 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5988 #ifdef FEAT_MBYTE
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
5989 else if (has_mbyte && (l = (*mb_ptr2len)(scan)) > 1)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5990 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5991 if (testval != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5992 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5993 scan += l;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5994 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5995 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5996 else if ((class_tab[*scan] & mask) == testval)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5997 ++scan;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
5998 else if (rex.reg_line_lbr && *scan == '\n' && WITH_NL(OP(p)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5999 ++scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6000 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6001 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6002 ++count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6003 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6004 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6005
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6006 case NWHITE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6007 case NWHITE + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6008 mask = RI_WHITE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6009 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6010 case DIGIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6011 case DIGIT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6012 testval = mask = RI_DIGIT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6013 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6014 case NDIGIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6015 case NDIGIT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6016 mask = RI_DIGIT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6017 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6018 case HEX:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6019 case HEX + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6020 testval = mask = RI_HEX;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6021 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6022 case NHEX:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6023 case NHEX + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6024 mask = RI_HEX;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6025 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6026 case OCTAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6027 case OCTAL + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6028 testval = mask = RI_OCTAL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6029 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6030 case NOCTAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6031 case NOCTAL + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6032 mask = RI_OCTAL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6033 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6034 case WORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6035 case WORD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6036 testval = mask = RI_WORD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6037 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6038 case NWORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6039 case NWORD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6040 mask = RI_WORD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6041 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6042 case HEAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6043 case HEAD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6044 testval = mask = RI_HEAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6045 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6046 case NHEAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6047 case NHEAD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6048 mask = RI_HEAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6049 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6050 case ALPHA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6051 case ALPHA + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6052 testval = mask = RI_ALPHA;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6053 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6054 case NALPHA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6055 case NALPHA + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6056 mask = RI_ALPHA;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6057 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6058 case LOWER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6059 case LOWER + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6060 testval = mask = RI_LOWER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6061 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6062 case NLOWER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6063 case NLOWER + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6064 mask = RI_LOWER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6065 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6066 case UPPER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6067 case UPPER + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6068 testval = mask = RI_UPPER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6069 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6070 case NUPPER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6071 case NUPPER + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6072 mask = RI_UPPER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6073 goto do_class;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6074
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6075 case EXACTLY:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6076 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6077 int cu, cl;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6078
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6079 /* This doesn't do a multi-byte character, because a MULTIBYTECODE
1347
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
6080 * would have been used for it. It does handle single-byte
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
6081 * characters, such as latin1. */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6082 if (rex.reg_ic)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6083 {
1347
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
6084 cu = MB_TOUPPER(*opnd);
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
6085 cl = MB_TOLOWER(*opnd);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6086 while (count < maxcount && (*scan == cu || *scan == cl))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6087 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6088 count++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6089 scan++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6090 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6091 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6092 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6093 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6094 cu = *opnd;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6095 while (count < maxcount && *scan == cu)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6096 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6097 count++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6098 scan++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6099 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6100 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6101 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6102 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6103
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6104 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6105 case MULTIBYTECODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6106 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6107 int i, len, cf = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6108
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6109 /* Safety check (just in case 'encoding' was changed since
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6110 * compiling the program). */
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
6111 if ((len = (*mb_ptr2len)(opnd)) > 1)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6112 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6113 if (rex.reg_ic && enc_utf8)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6114 cf = utf_fold(utf_ptr2char(opnd));
6785
de90405940be patch 7.4.714
Bram Moolenaar <bram@vim.org>
parents: 6765
diff changeset
6115 while (count < maxcount && (*mb_ptr2len)(scan) >= len)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6116 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6117 for (i = 0; i < len; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6118 if (opnd[i] != scan[i])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6119 break;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6120 if (i < len && (!rex.reg_ic || !enc_utf8
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6121 || utf_fold(utf_ptr2char(scan)) != cf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6122 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6123 scan += len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6124 ++count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6125 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6126 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6127 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6128 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6129 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6130
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6131 case ANYOF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6132 case ANYOF + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6133 testval = TRUE;
12674
e769c912fcd9 patch 8.0.1215: newer gcc warns for implicit fallthrough
Christian Brabandt <cb@256bit.org>
parents: 11529
diff changeset
6134 /* FALLTHROUGH */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6135
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6136 case ANYBUT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6137 case ANYBUT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6138 while (count < maxcount)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6139 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6140 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6141 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6142 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6143 if (*scan == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6144 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6145 if (!REG_MULTI || !WITH_NL(OP(p)) || reglnum > rex.reg_maxline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6146 || rex.reg_line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6147 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6148 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6149 scan = reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6150 if (got_int)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6151 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6152 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6153 else if (rex.reg_line_lbr && *scan == '\n' && WITH_NL(OP(p)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6154 ++scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6155 #ifdef FEAT_MBYTE
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
6156 else if (has_mbyte && (len = (*mb_ptr2len)(scan)) > 1)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6157 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6158 if ((cstrchr(opnd, (*mb_ptr2char)(scan)) == NULL) == testval)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6159 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6160 scan += len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6161 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6162 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6163 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6164 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6165 if ((cstrchr(opnd, *scan) == NULL) == testval)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6166 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6167 ++scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6168 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6169 ++count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6170 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6171 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6172
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6173 case NEWL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6174 while (count < maxcount
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6175 && ((*scan == NUL && reglnum <= rex.reg_maxline
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6176 && !rex.reg_line_lbr && REG_MULTI)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6177 || (*scan == '\n' && rex.reg_line_lbr)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6178 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6179 count++;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6180 if (rex.reg_line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6181 ADVANCE_REGINPUT();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6182 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6183 reg_nextline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6184 scan = reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6185 if (got_int)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6186 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6187 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6188 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6189
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6190 default: /* Oh dear. Called inappropriately. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6191 EMSG(_(e_re_corr));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6192 #ifdef DEBUG
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6193 printf("Called regrepeat with op code %d\n", OP(p));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6194 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6195 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6196 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6197
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6198 reginput = scan;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6199
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6200 return (int)count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6201 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6202
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6203 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6204 * regnext - dig the "next" pointer out of a node
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
6205 * Returns NULL when calculating size, when there is no next item and when
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
6206 * there is an error.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6207 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6208 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6209 regnext(char_u *p)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6210 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6211 int offset;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6212
2010
bec979a53f47 updated for version 7.2-307
vimboss
parents: 1877
diff changeset
6213 if (p == JUST_CALC_SIZE || reg_toolong)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6214 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6215
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6216 offset = NEXT(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6217 if (offset == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6218 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6219
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
6220 if (OP(p) == BACK)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6221 return p - offset;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6222 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6223 return p + offset;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6224 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6225
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6226 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6227 * Check the regexp program for its magic number.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6228 * Return TRUE if it's wrong.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6229 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6230 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6231 prog_magic_wrong(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6232 {
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6233 regprog_T *prog;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6234
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6235 prog = REG_MULTI ? rex.reg_mmatch->regprog : rex.reg_match->regprog;
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6236 if (prog->engine == &nfa_regengine)
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6237 /* For NFA matcher we don't check the magic */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6238 return FALSE;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6239
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6240 if (UCHARAT(((bt_regprog_T *)prog)->program) != REGMAGIC)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6241 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6242 EMSG(_(e_re_corr));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6243 return TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6244 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6245 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6246 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6247
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6248 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6249 * Cleanup the subexpressions, if this wasn't done yet.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6250 * This construction is used to clear the subexpressions only when they are
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6251 * used (to increase speed).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6252 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6253 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6254 cleanup_subexpr(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6255 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6256 if (need_clear_subexpr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6257 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6258 if (REG_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6259 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6260 /* 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
6261 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
6262 vim_memset(rex.reg_endpos, 0xff, sizeof(lpos_T) * NSUBEXP);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6263 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6264 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6265 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6266 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
6267 vim_memset(rex.reg_endp, 0, sizeof(char_u *) * NSUBEXP);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6268 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6269 need_clear_subexpr = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6270 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6271 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6272
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6273 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6274 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6275 cleanup_zsubexpr(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6276 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6277 if (need_clear_zsubexpr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6278 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6279 if (REG_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6280 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6281 /* Use 0xff to set lnum to -1 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6282 vim_memset(reg_startzpos, 0xff, sizeof(lpos_T) * NSUBEXP);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6283 vim_memset(reg_endzpos, 0xff, sizeof(lpos_T) * NSUBEXP);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6284 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6285 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6286 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6287 vim_memset(reg_startzp, 0, sizeof(char_u *) * NSUBEXP);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6288 vim_memset(reg_endzp, 0, sizeof(char_u *) * NSUBEXP);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6289 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6290 need_clear_zsubexpr = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6291 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6292 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6293 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6294
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6295 /*
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6296 * Save the current subexpr to "bp", so that they can be restored
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6297 * later by restore_subexpr().
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6298 */
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6299 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6300 save_subexpr(regbehind_T *bp)
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6301 {
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6302 int i;
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6303
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6304 /* When "need_clear_subexpr" is set we don't need to save the values, only
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6305 * remember that this flag needs to be set again when restoring. */
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6306 bp->save_need_clear_subexpr = need_clear_subexpr;
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6307 if (!need_clear_subexpr)
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6308 {
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6309 for (i = 0; i < NSUBEXP; ++i)
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6310 {
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6311 if (REG_MULTI)
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6312 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6313 bp->save_start[i].se_u.pos = rex.reg_startpos[i];
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6314 bp->save_end[i].se_u.pos = rex.reg_endpos[i];
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6315 }
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6316 else
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6317 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6318 bp->save_start[i].se_u.ptr = rex.reg_startp[i];
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6319 bp->save_end[i].se_u.ptr = rex.reg_endp[i];
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6320 }
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6321 }
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6322 }
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6323 }
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6324
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6325 /*
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6326 * Restore the subexpr from "bp".
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6327 */
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6328 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6329 restore_subexpr(regbehind_T *bp)
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6330 {
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6331 int i;
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6332
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6333 /* Only need to restore saved values when they are not to be cleared. */
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6334 need_clear_subexpr = bp->save_need_clear_subexpr;
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6335 if (!need_clear_subexpr)
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6336 {
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6337 for (i = 0; i < NSUBEXP; ++i)
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6338 {
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6339 if (REG_MULTI)
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6340 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6341 rex.reg_startpos[i] = bp->save_start[i].se_u.pos;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6342 rex.reg_endpos[i] = bp->save_end[i].se_u.pos;
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6343 }
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6344 else
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6345 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6346 rex.reg_startp[i] = bp->save_start[i].se_u.ptr;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6347 rex.reg_endp[i] = bp->save_end[i].se_u.ptr;
1602
0358abf2b5d4 updated for version 7.1-315
vimboss
parents: 1579
diff changeset
6348 }
1579
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6349 }
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6350 }
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6351 }
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6352
25bc02d83cf4 updated for version 7.1-292
vimboss
parents: 1521
diff changeset
6353 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6354 * Advance reglnum, regline and reginput to the next line.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6355 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6356 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6357 reg_nextline(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6358 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6359 regline = reg_getline(++reglnum);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6360 reginput = regline;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6361 fast_breakcheck();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6362 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6363
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6364 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6365 * Save the input line and position in a regsave_T.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6366 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6367 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6368 reg_save(regsave_T *save, garray_T *gap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6369 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6370 if (REG_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6371 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6372 save->rs_u.pos.col = (colnr_T)(reginput - regline);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6373 save->rs_u.pos.lnum = reglnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6374 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6375 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6376 save->rs_u.ptr = reginput;
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
6377 save->rs_len = gap->ga_len;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6378 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6379
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6380 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6381 * Restore the input line and position from a regsave_T.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6382 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6383 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6384 reg_restore(regsave_T *save, garray_T *gap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6385 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6386 if (REG_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6387 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6388 if (reglnum != save->rs_u.pos.lnum)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6389 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6390 /* only call reg_getline() when the line number changed to save
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6391 * a bit of time */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6392 reglnum = save->rs_u.pos.lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6393 regline = reg_getline(reglnum);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6394 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6395 reginput = regline + save->rs_u.pos.col;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6396 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6397 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6398 reginput = save->rs_u.ptr;
233
fca8a9b65afa updated for version 7.0065
vimboss
parents: 212
diff changeset
6399 gap->ga_len = save->rs_len;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6400 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6401
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6402 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6403 * Return TRUE if current position is equal to saved position.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6404 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6405 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6406 reg_save_equal(regsave_T *save)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6407 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6408 if (REG_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6409 return reglnum == save->rs_u.pos.lnum
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6410 && reginput == regline + save->rs_u.pos.col;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6411 return reginput == save->rs_u.ptr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6412 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6413
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6414 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6415 * Tentatively set the sub-expression start to the current position (after
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6416 * calling regmatch() they will have changed). Need to save the existing
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6417 * values for when there is no match.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6418 * Use se_save() to use pointer (save_se_multi()) or position (save_se_one()),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6419 * depending on REG_MULTI.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6420 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6421 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6422 save_se_multi(save_se_T *savep, lpos_T *posp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6423 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6424 savep->se_u.pos = *posp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6425 posp->lnum = reglnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6426 posp->col = (colnr_T)(reginput - regline);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6427 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6428
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6429 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6430 save_se_one(save_se_T *savep, char_u **pp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6431 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6432 savep->se_u.ptr = *pp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6433 *pp = reginput;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6434 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6435
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6436 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6437 * Compare a number with the operand of RE_LNUM, RE_COL or RE_VCOL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6438 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6439 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6440 re_num_cmp(long_u val, char_u *scan)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6441 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6442 long_u n = OPERAND_MIN(scan);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6443
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6444 if (OPERAND_CMP(scan) == '>')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6445 return val > n;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6446 if (OPERAND_CMP(scan) == '<')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6447 return val < n;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6448 return val == n;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6449 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6450
4891
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6451 /*
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6452 * Check whether a backreference matches.
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6453 * Returns RA_FAIL, RA_NOMATCH or RA_MATCH.
5504
ec5d11403c19 updated for version 7.4.101
Bram Moolenaar <bram@vim.org>
parents: 5353
diff changeset
6454 * If "bytelen" is not NULL, it is set to the byte length of the match in the
ec5d11403c19 updated for version 7.4.101
Bram Moolenaar <bram@vim.org>
parents: 5353
diff changeset
6455 * last line.
4891
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6456 */
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6457 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6458 match_with_backref(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6459 linenr_T start_lnum,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6460 colnr_T start_col,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6461 linenr_T end_lnum,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6462 colnr_T end_col,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6463 int *bytelen)
4891
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6464 {
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6465 linenr_T clnum = start_lnum;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6466 colnr_T ccol = start_col;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6467 int len;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6468 char_u *p;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6469
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6470 if (bytelen != NULL)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6471 *bytelen = 0;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6472 for (;;)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6473 {
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6474 /* Since getting one line may invalidate the other, need to make copy.
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6475 * Slow! */
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6476 if (regline != reg_tofree)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6477 {
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6478 len = (int)STRLEN(regline);
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6479 if (reg_tofree == NULL || len >= (int)reg_tofreelen)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6480 {
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6481 len += 50; /* get some extra */
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6482 vim_free(reg_tofree);
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6483 reg_tofree = alloc(len);
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6484 if (reg_tofree == NULL)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6485 return RA_FAIL; /* out of memory!*/
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6486 reg_tofreelen = len;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6487 }
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6488 STRCPY(reg_tofree, regline);
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6489 reginput = reg_tofree + (reginput - regline);
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6490 regline = reg_tofree;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6491 }
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6492
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6493 /* Get the line to compare with. */
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6494 p = reg_getline(clnum);
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6495 if (clnum == end_lnum)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6496 len = end_col - ccol;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6497 else
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6498 len = (int)STRLEN(p + ccol);
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6499
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6500 if (cstrncmp(p + ccol, reginput, &len) != 0)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6501 return RA_NOMATCH; /* doesn't match */
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6502 if (bytelen != NULL)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6503 *bytelen += len;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6504 if (clnum == end_lnum)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6505 break; /* match and at end! */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
6506 if (reglnum >= rex.reg_maxline)
4891
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6507 return RA_NOMATCH; /* text too short */
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6508
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6509 /* Advance to next line. */
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6510 reg_nextline();
5504
ec5d11403c19 updated for version 7.4.101
Bram Moolenaar <bram@vim.org>
parents: 5353
diff changeset
6511 if (bytelen != NULL)
ec5d11403c19 updated for version 7.4.101
Bram Moolenaar <bram@vim.org>
parents: 5353
diff changeset
6512 *bytelen = 0;
4891
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6513 ++clnum;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6514 ccol = 0;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6515 if (got_int)
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6516 return RA_FAIL;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6517 }
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6518
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6519 /* found a match! Note that regline may now point to a copy of the line,
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6520 * that should not matter. */
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6521 return RA_MATCH;
4c42efb4c098 updated for version 7.3.1191
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
6522 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6523
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6524 #ifdef BT_REGEXP_DUMP
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6525
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6526 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6527 * regdump - dump a regexp onto stdout in vaguely comprehensible form
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6528 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6529 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6530 regdump(char_u *pattern, bt_regprog_T *r)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6531 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6532 char_u *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6533 int op = EXACTLY; /* Arbitrary non-END op. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6534 char_u *next;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6535 char_u *end = NULL;
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6536 FILE *f;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6537
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6538 #ifdef BT_REGEXP_LOG
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6539 f = fopen("bt_regexp_log.log", "a");
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6540 #else
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6541 f = stdout;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6542 #endif
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6543 if (f == NULL)
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6544 return;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6545 fprintf(f, "-------------------------------------\n\r\nregcomp(%s):\r\n", pattern);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6546
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6547 s = r->program + 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6548 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6549 * Loop until we find the END that isn't before a referred next (an END
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6550 * can also appear in a NOMATCH operand).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6551 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6552 while (op != END || s <= end)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6553 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6554 op = OP(s);
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6555 fprintf(f, "%2d%s", (int)(s - r->program), regprop(s)); /* Where, what. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6556 next = regnext(s);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6557 if (next == NULL) /* Next ptr. */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6558 fprintf(f, "(0)");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6559 else
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6560 fprintf(f, "(%d)", (int)((s - r->program) + (next - s)));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6561 if (end < next)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6562 end = next;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6563 if (op == BRACE_LIMITS)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6564 {
4746
d1376091d18b updated for version 7.3.1120
Bram Moolenaar <bram@vim.org>
parents: 4744
diff changeset
6565 /* Two ints */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6566 fprintf(f, " minval %ld, maxval %ld", OPERAND_MIN(s), OPERAND_MAX(s));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6567 s += 8;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6568 }
4746
d1376091d18b updated for version 7.3.1120
Bram Moolenaar <bram@vim.org>
parents: 4744
diff changeset
6569 else if (op == BEHIND || op == NOBEHIND)
d1376091d18b updated for version 7.3.1120
Bram Moolenaar <bram@vim.org>
parents: 4744
diff changeset
6570 {
d1376091d18b updated for version 7.3.1120
Bram Moolenaar <bram@vim.org>
parents: 4744
diff changeset
6571 /* one int */
d1376091d18b updated for version 7.3.1120
Bram Moolenaar <bram@vim.org>
parents: 4744
diff changeset
6572 fprintf(f, " count %ld", OPERAND_MIN(s));
d1376091d18b updated for version 7.3.1120
Bram Moolenaar <bram@vim.org>
parents: 4744
diff changeset
6573 s += 4;
d1376091d18b updated for version 7.3.1120
Bram Moolenaar <bram@vim.org>
parents: 4744
diff changeset
6574 }
4770
b20dbf3a5370 updated for version 7.3.1132
Bram Moolenaar <bram@vim.org>
parents: 4762
diff changeset
6575 else if (op == RE_LNUM || op == RE_COL || op == RE_VCOL)
b20dbf3a5370 updated for version 7.3.1132
Bram Moolenaar <bram@vim.org>
parents: 4762
diff changeset
6576 {
b20dbf3a5370 updated for version 7.3.1132
Bram Moolenaar <bram@vim.org>
parents: 4762
diff changeset
6577 /* one int plus comperator */
b20dbf3a5370 updated for version 7.3.1132
Bram Moolenaar <bram@vim.org>
parents: 4762
diff changeset
6578 fprintf(f, " count %ld", OPERAND_MIN(s));
b20dbf3a5370 updated for version 7.3.1132
Bram Moolenaar <bram@vim.org>
parents: 4762
diff changeset
6579 s += 5;
b20dbf3a5370 updated for version 7.3.1132
Bram Moolenaar <bram@vim.org>
parents: 4762
diff changeset
6580 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6581 s += 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6582 if (op == ANYOF || op == ANYOF + ADD_NL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6583 || op == ANYBUT || op == ANYBUT + ADD_NL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6584 || op == EXACTLY)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6585 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6586 /* Literal string, where present. */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6587 fprintf(f, "\nxxxxxxxxx\n");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6588 while (*s != NUL)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6589 fprintf(f, "%c", *s++);
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6590 fprintf(f, "\nxxxxxxxxx\n");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6591 s++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6592 }
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6593 fprintf(f, "\r\n");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6594 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6595
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6596 /* Header fields of interest. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6597 if (r->regstart != NUL)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6598 fprintf(f, "start `%s' 0x%x; ", r->regstart < 256
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6599 ? (char *)transchar(r->regstart)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6600 : "multibyte", r->regstart);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6601 if (r->reganch)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6602 fprintf(f, "anchored; ");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6603 if (r->regmust != NULL)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6604 fprintf(f, "must have \"%s\"", r->regmust);
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6605 fprintf(f, "\r\n");
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6606
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6607 #ifdef BT_REGEXP_LOG
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6608 fclose(f);
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6609 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6610 }
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6611 #endif /* BT_REGEXP_DUMP */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6612
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6613 #ifdef DEBUG
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6614 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6615 * regprop - printable representation of opcode
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6616 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6617 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
6618 regprop(char_u *op)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6619 {
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6620 char *p;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6621 static char buf[50];
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6622
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6623 STRCPY(buf, ":");
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6624
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6625 switch ((int) OP(op))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6626 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6627 case BOL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6628 p = "BOL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6629 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6630 case EOL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6631 p = "EOL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6632 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6633 case RE_BOF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6634 p = "BOF";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6635 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6636 case RE_EOF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6637 p = "EOF";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6638 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6639 case CURSOR:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6640 p = "CURSOR";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6641 break;
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
6642 case RE_VISUAL:
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
6643 p = "RE_VISUAL";
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
6644 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6645 case RE_LNUM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6646 p = "RE_LNUM";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6647 break;
639
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
6648 case RE_MARK:
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
6649 p = "RE_MARK";
c79d4df4686e updated for version 7.0185
vimboss
parents: 507
diff changeset
6650 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6651 case RE_COL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6652 p = "RE_COL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6653 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6654 case RE_VCOL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6655 p = "RE_VCOL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6656 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6657 case BOW:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6658 p = "BOW";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6659 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6660 case EOW:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6661 p = "EOW";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6662 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6663 case ANY:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6664 p = "ANY";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6665 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6666 case ANY + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6667 p = "ANY+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6668 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6669 case ANYOF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6670 p = "ANYOF";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6671 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6672 case ANYOF + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6673 p = "ANYOF+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6674 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6675 case ANYBUT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6676 p = "ANYBUT";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6677 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6678 case ANYBUT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6679 p = "ANYBUT+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6680 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6681 case IDENT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6682 p = "IDENT";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6683 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6684 case IDENT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6685 p = "IDENT+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6686 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6687 case SIDENT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6688 p = "SIDENT";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6689 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6690 case SIDENT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6691 p = "SIDENT+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6692 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6693 case KWORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6694 p = "KWORD";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6695 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6696 case KWORD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6697 p = "KWORD+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6698 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6699 case SKWORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6700 p = "SKWORD";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6701 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6702 case SKWORD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6703 p = "SKWORD+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6704 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6705 case FNAME:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6706 p = "FNAME";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6707 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6708 case FNAME + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6709 p = "FNAME+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6710 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6711 case SFNAME:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6712 p = "SFNAME";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6713 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6714 case SFNAME + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6715 p = "SFNAME+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6716 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6717 case PRINT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6718 p = "PRINT";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6719 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6720 case PRINT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6721 p = "PRINT+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6722 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6723 case SPRINT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6724 p = "SPRINT";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6725 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6726 case SPRINT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6727 p = "SPRINT+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6728 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6729 case WHITE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6730 p = "WHITE";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6731 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6732 case WHITE + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6733 p = "WHITE+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6734 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6735 case NWHITE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6736 p = "NWHITE";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6737 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6738 case NWHITE + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6739 p = "NWHITE+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6740 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6741 case DIGIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6742 p = "DIGIT";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6743 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6744 case DIGIT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6745 p = "DIGIT+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6746 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6747 case NDIGIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6748 p = "NDIGIT";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6749 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6750 case NDIGIT + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6751 p = "NDIGIT+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6752 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6753 case HEX:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6754 p = "HEX";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6755 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6756 case HEX + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6757 p = "HEX+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6758 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6759 case NHEX:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6760 p = "NHEX";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6761 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6762 case NHEX + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6763 p = "NHEX+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6764 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6765 case OCTAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6766 p = "OCTAL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6767 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6768 case OCTAL + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6769 p = "OCTAL+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6770 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6771 case NOCTAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6772 p = "NOCTAL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6773 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6774 case NOCTAL + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6775 p = "NOCTAL+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6776 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6777 case WORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6778 p = "WORD";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6779 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6780 case WORD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6781 p = "WORD+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6782 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6783 case NWORD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6784 p = "NWORD";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6785 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6786 case NWORD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6787 p = "NWORD+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6788 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6789 case HEAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6790 p = "HEAD";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6791 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6792 case HEAD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6793 p = "HEAD+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6794 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6795 case NHEAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6796 p = "NHEAD";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6797 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6798 case NHEAD + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6799 p = "NHEAD+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6800 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6801 case ALPHA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6802 p = "ALPHA";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6803 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6804 case ALPHA + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6805 p = "ALPHA+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6806 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6807 case NALPHA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6808 p = "NALPHA";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6809 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6810 case NALPHA + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6811 p = "NALPHA+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6812 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6813 case LOWER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6814 p = "LOWER";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6815 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6816 case LOWER + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6817 p = "LOWER+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6818 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6819 case NLOWER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6820 p = "NLOWER";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6821 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6822 case NLOWER + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6823 p = "NLOWER+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6824 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6825 case UPPER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6826 p = "UPPER";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6827 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6828 case UPPER + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6829 p = "UPPER+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6830 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6831 case NUPPER:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6832 p = "NUPPER";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6833 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6834 case NUPPER + ADD_NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6835 p = "NUPPER+NL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6836 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6837 case BRANCH:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6838 p = "BRANCH";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6839 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6840 case EXACTLY:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6841 p = "EXACTLY";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6842 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6843 case NOTHING:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6844 p = "NOTHING";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6845 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6846 case BACK:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6847 p = "BACK";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6848 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6849 case END:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6850 p = "END";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6851 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6852 case MOPEN + 0:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6853 p = "MATCH START";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6854 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6855 case MOPEN + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6856 case MOPEN + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6857 case MOPEN + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6858 case MOPEN + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6859 case MOPEN + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6860 case MOPEN + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6861 case MOPEN + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6862 case MOPEN + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6863 case MOPEN + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6864 sprintf(buf + STRLEN(buf), "MOPEN%d", OP(op) - MOPEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6865 p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6866 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6867 case MCLOSE + 0:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6868 p = "MATCH END";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6869 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6870 case MCLOSE + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6871 case MCLOSE + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6872 case MCLOSE + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6873 case MCLOSE + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6874 case MCLOSE + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6875 case MCLOSE + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6876 case MCLOSE + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6877 case MCLOSE + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6878 case MCLOSE + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6879 sprintf(buf + STRLEN(buf), "MCLOSE%d", OP(op) - MCLOSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6880 p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6881 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6882 case BACKREF + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6883 case BACKREF + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6884 case BACKREF + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6885 case BACKREF + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6886 case BACKREF + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6887 case BACKREF + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6888 case BACKREF + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6889 case BACKREF + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6890 case BACKREF + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6891 sprintf(buf + STRLEN(buf), "BACKREF%d", OP(op) - BACKREF);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6892 p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6893 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6894 case NOPEN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6895 p = "NOPEN";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6896 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6897 case NCLOSE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6898 p = "NCLOSE";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6899 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6900 #ifdef FEAT_SYN_HL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6901 case ZOPEN + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6902 case ZOPEN + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6903 case ZOPEN + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6904 case ZOPEN + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6905 case ZOPEN + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6906 case ZOPEN + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6907 case ZOPEN + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6908 case ZOPEN + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6909 case ZOPEN + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6910 sprintf(buf + STRLEN(buf), "ZOPEN%d", OP(op) - ZOPEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6911 p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6912 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6913 case ZCLOSE + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6914 case ZCLOSE + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6915 case ZCLOSE + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6916 case ZCLOSE + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6917 case ZCLOSE + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6918 case ZCLOSE + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6919 case ZCLOSE + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6920 case ZCLOSE + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6921 case ZCLOSE + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6922 sprintf(buf + STRLEN(buf), "ZCLOSE%d", OP(op) - ZCLOSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6923 p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6924 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6925 case ZREF + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6926 case ZREF + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6927 case ZREF + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6928 case ZREF + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6929 case ZREF + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6930 case ZREF + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6931 case ZREF + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6932 case ZREF + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6933 case ZREF + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6934 sprintf(buf + STRLEN(buf), "ZREF%d", OP(op) - ZREF);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6935 p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6936 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6937 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6938 case STAR:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6939 p = "STAR";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6940 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6941 case PLUS:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6942 p = "PLUS";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6943 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6944 case NOMATCH:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6945 p = "NOMATCH";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6946 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6947 case MATCH:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6948 p = "MATCH";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6949 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6950 case BEHIND:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6951 p = "BEHIND";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6952 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6953 case NOBEHIND:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6954 p = "NOBEHIND";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6955 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6956 case SUBPAT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6957 p = "SUBPAT";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6958 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6959 case BRACE_LIMITS:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6960 p = "BRACE_LIMITS";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6961 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6962 case BRACE_SIMPLE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6963 p = "BRACE_SIMPLE";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6964 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6965 case BRACE_COMPLEX + 0:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6966 case BRACE_COMPLEX + 1:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6967 case BRACE_COMPLEX + 2:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6968 case BRACE_COMPLEX + 3:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6969 case BRACE_COMPLEX + 4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6970 case BRACE_COMPLEX + 5:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6971 case BRACE_COMPLEX + 6:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6972 case BRACE_COMPLEX + 7:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6973 case BRACE_COMPLEX + 8:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6974 case BRACE_COMPLEX + 9:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6975 sprintf(buf + STRLEN(buf), "BRACE_COMPLEX%d", OP(op) - BRACE_COMPLEX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6976 p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6977 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6978 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6979 case MULTIBYTECODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6980 p = "MULTIBYTECODE";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6981 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6982 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6983 case NEWL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6984 p = "NEWL";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6985 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6986 default:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6987 sprintf(buf + STRLEN(buf), "corrupt %d", OP(op));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6988 p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6989 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6990 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6991 if (p != NULL)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6992 STRCAT(buf, p);
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6993 return (char_u *)buf;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6994 }
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
6995 #endif /* DEBUG */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6996
6203
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
6997 /*
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
6998 * Used in a place where no * or \+ can follow.
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
6999 */
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
7000 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7001 re_mult_next(char *what)
6203
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
7002 {
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
7003 if (re_multi_type(peekchr()) == MULTI_MULT)
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
7004 EMSG2_RET_FAIL(_("E888: (NFA regexp) cannot repeat %s"), what);
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
7005 return OK;
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
7006 }
8515b42f939c updated for version 7.4.437
Bram Moolenaar <bram@vim.org>
parents: 6041
diff changeset
7007
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7008 #ifdef FEAT_MBYTE
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
7009 static void mb_decompose(int c, int *c1, int *c2, int *c3);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7010
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7011 typedef struct
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7012 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7013 int a, b, c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7014 } decomp_T;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7015
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7016
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7017 /* 0xfb20 - 0xfb4f */
297
9a1c2a8186b7 updated for version 7.0078
vimboss
parents: 270
diff changeset
7018 static decomp_T decomp_table[0xfb4f-0xfb20+1] =
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7019 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7020 {0x5e2,0,0}, /* 0xfb20 alt ayin */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7021 {0x5d0,0,0}, /* 0xfb21 alt alef */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7022 {0x5d3,0,0}, /* 0xfb22 alt dalet */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7023 {0x5d4,0,0}, /* 0xfb23 alt he */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7024 {0x5db,0,0}, /* 0xfb24 alt kaf */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7025 {0x5dc,0,0}, /* 0xfb25 alt lamed */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7026 {0x5dd,0,0}, /* 0xfb26 alt mem-sofit */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7027 {0x5e8,0,0}, /* 0xfb27 alt resh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7028 {0x5ea,0,0}, /* 0xfb28 alt tav */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7029 {'+', 0, 0}, /* 0xfb29 alt plus */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7030 {0x5e9, 0x5c1, 0}, /* 0xfb2a shin+shin-dot */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7031 {0x5e9, 0x5c2, 0}, /* 0xfb2b shin+sin-dot */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7032 {0x5e9, 0x5c1, 0x5bc}, /* 0xfb2c shin+shin-dot+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7033 {0x5e9, 0x5c2, 0x5bc}, /* 0xfb2d shin+sin-dot+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7034 {0x5d0, 0x5b7, 0}, /* 0xfb2e alef+patah */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7035 {0x5d0, 0x5b8, 0}, /* 0xfb2f alef+qamats */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7036 {0x5d0, 0x5b4, 0}, /* 0xfb30 alef+hiriq */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7037 {0x5d1, 0x5bc, 0}, /* 0xfb31 bet+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7038 {0x5d2, 0x5bc, 0}, /* 0xfb32 gimel+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7039 {0x5d3, 0x5bc, 0}, /* 0xfb33 dalet+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7040 {0x5d4, 0x5bc, 0}, /* 0xfb34 he+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7041 {0x5d5, 0x5bc, 0}, /* 0xfb35 vav+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7042 {0x5d6, 0x5bc, 0}, /* 0xfb36 zayin+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7043 {0xfb37, 0, 0}, /* 0xfb37 -- UNUSED */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7044 {0x5d8, 0x5bc, 0}, /* 0xfb38 tet+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7045 {0x5d9, 0x5bc, 0}, /* 0xfb39 yud+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7046 {0x5da, 0x5bc, 0}, /* 0xfb3a kaf sofit+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7047 {0x5db, 0x5bc, 0}, /* 0xfb3b kaf+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7048 {0x5dc, 0x5bc, 0}, /* 0xfb3c lamed+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7049 {0xfb3d, 0, 0}, /* 0xfb3d -- UNUSED */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7050 {0x5de, 0x5bc, 0}, /* 0xfb3e mem+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7051 {0xfb3f, 0, 0}, /* 0xfb3f -- UNUSED */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7052 {0x5e0, 0x5bc, 0}, /* 0xfb40 nun+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7053 {0x5e1, 0x5bc, 0}, /* 0xfb41 samech+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7054 {0xfb42, 0, 0}, /* 0xfb42 -- UNUSED */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7055 {0x5e3, 0x5bc, 0}, /* 0xfb43 pe sofit+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7056 {0x5e4, 0x5bc,0}, /* 0xfb44 pe+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7057 {0xfb45, 0, 0}, /* 0xfb45 -- UNUSED */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7058 {0x5e6, 0x5bc, 0}, /* 0xfb46 tsadi+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7059 {0x5e7, 0x5bc, 0}, /* 0xfb47 qof+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7060 {0x5e8, 0x5bc, 0}, /* 0xfb48 resh+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7061 {0x5e9, 0x5bc, 0}, /* 0xfb49 shin+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7062 {0x5ea, 0x5bc, 0}, /* 0xfb4a tav+dagesh */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7063 {0x5d5, 0x5b9, 0}, /* 0xfb4b vav+holam */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7064 {0x5d1, 0x5bf, 0}, /* 0xfb4c bet+rafe */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7065 {0x5db, 0x5bf, 0}, /* 0xfb4d kaf+rafe */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7066 {0x5e4, 0x5bf, 0}, /* 0xfb4e pe+rafe */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7067 {0x5d0, 0x5dc, 0} /* 0xfb4f alef-lamed */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7068 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7069
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7070 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7071 mb_decompose(int c, int *c1, int *c2, int *c3)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7072 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7073 decomp_T d;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7074
4505
d037b9cbdaaa updated for version 7.3.1000
Bram Moolenaar <bram@vim.org>
parents: 4466
diff changeset
7075 if (c >= 0xfb20 && c <= 0xfb4f)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7076 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7077 d = decomp_table[c - 0xfb20];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7078 *c1 = d.a;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7079 *c2 = d.b;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7080 *c3 = d.c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7081 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7082 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7083 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7084 *c1 = c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7085 *c2 = *c3 = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7086 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7087 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7088 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7089
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7090 /*
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7091 * Compare two strings, ignore case if rex.reg_ic set.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7092 * Return 0 if strings match, non-zero otherwise.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7093 * Correct the length "*n" when composing characters are ignored.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7094 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7095 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7096 cstrncmp(char_u *s1, char_u *s2, int *n)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7097 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7098 int result;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7099
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7100 if (!rex.reg_ic)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7101 result = STRNCMP(s1, s2, *n);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7102 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7103 result = MB_STRNICMP(s1, s2, *n);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7104
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7105 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7106 /* 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
7107 if (result != 0 && enc_utf8 && rex.reg_icombine)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7108 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7109 char_u *str1, *str2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7110 int c1, c2, c11, c12;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7111 int junk;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7112
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7113 /* we have to handle the strcmp ourselves, since it is necessary to
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7114 * deal with the composing characters by ignoring them: */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7115 str1 = s1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7116 str2 = s2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7117 c1 = c2 = 0;
507
a1059cda45f2 updated for version 7.0142
vimboss
parents: 492
diff changeset
7118 while ((int)(str1 - s1) < *n)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7119 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7120 c1 = mb_ptr2char_adv(&str1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7121 c2 = mb_ptr2char_adv(&str2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7122
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7123 /* decompose the character if necessary, into 'base' characters
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7124 * because I don't care about Arabic, I will hard-code the Hebrew
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7125 * which I *do* care about! So sue me... */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7126 if (c1 != c2 && (!rex.reg_ic || utf_fold(c1) != utf_fold(c2)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7127 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7128 /* decomposition necessary? */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7129 mb_decompose(c1, &c11, &junk, &junk);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7130 mb_decompose(c2, &c12, &junk, &junk);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7131 c1 = c11;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7132 c2 = c12;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7133 if (c11 != c12
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7134 && (!rex.reg_ic || utf_fold(c11) != utf_fold(c12)))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7135 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7136 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7137 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7138 result = c2 - c1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7139 if (result == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7140 *n = (int)(str2 - s2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7141 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7142 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7143
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7144 return result;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7145 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7146
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7147 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7148 * cstrchr: This function is used a lot for simple searches, keep it fast!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7149 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7150 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7151 cstrchr(char_u *s, int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7152 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7153 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7154 int cc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7155
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7156 if (!rex.reg_ic
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7157 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7158 || (!enc_utf8 && mb_char2len(c) > 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7159 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7160 )
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7161 return vim_strchr(s, c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7162
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7163 /* tolower() and toupper() can be slow, comparing twice should be a lot
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7164 * faster (esp. when using MS Visual C++!).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7165 * For UTF-8 need to use folded case. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7166 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7167 if (enc_utf8 && c > 0x80)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7168 cc = utf_fold(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7169 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7170 #endif
1347
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
7171 if (MB_ISUPPER(c))
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
7172 cc = MB_TOLOWER(c);
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
7173 else if (MB_ISLOWER(c))
302a6aa7aca2 updated for version 7.1-061
vimboss
parents: 1341
diff changeset
7174 cc = MB_TOUPPER(c);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7175 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7176 return vim_strchr(s, c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7177
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7178 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7179 if (has_mbyte)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7180 {
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
7181 for (p = s; *p != NUL; p += (*mb_ptr2len)(p))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7182 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7183 if (enc_utf8 && c > 0x80)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7184 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7185 if (utf_fold(utf_ptr2char(p)) == cc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7186 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7187 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7188 else if (*p == c || *p == cc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7189 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7190 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7191 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7192 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7193 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7194 /* Faster version for when there are no multi-byte characters. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7195 for (p = s; *p != NUL; ++p)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7196 if (*p == c || *p == cc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7197 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7198
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7199 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7200 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7201
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7202 /***************************************************************
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7203 * regsub stuff *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7204 ***************************************************************/
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7205
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7206 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7207 * We should define ftpr as a pointer to a function returning a pointer to
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7208 * a function returning a pointer to a function ...
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7209 * This is impossible, so we declare a pointer to a function returning a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7210 * pointer to a function returning void. This should work for all compilers.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7211 */
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
7212 typedef void (*(*fptr_T)(int *, int))();
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
7213
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
7214 static fptr_T do_upper(int *, int);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
7215 static fptr_T do_Upper(int *, int);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
7216 static fptr_T do_lower(int *, int);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
7217 static fptr_T do_Lower(int *, int);
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
7218
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7219 static int vim_regsub_both(char_u *source, typval_T *expr, char_u *dest, int copy, int magic, int backslash);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7220
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7221 static fptr_T
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7222 do_upper(int *d, int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7223 {
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7224 *d = MB_TOUPPER(c);
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7225
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7226 return (fptr_T)NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7227 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7228
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7229 static fptr_T
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7230 do_Upper(int *d, int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7231 {
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7232 *d = MB_TOUPPER(c);
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7233
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7234 return (fptr_T)do_Upper;
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7235 }
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7236
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7237 static fptr_T
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7238 do_lower(int *d, int c)
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7239 {
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7240 *d = MB_TOLOWER(c);
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7241
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7242 return (fptr_T)NULL;
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7243 }
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7244
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7245 static fptr_T
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7246 do_Lower(int *d, int c)
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7247 {
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7248 *d = MB_TOLOWER(c);
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7249
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7250 return (fptr_T)do_Lower;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7251 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7252
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7253 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7254 * regtilde(): Replace tildes in the pattern by the old pattern.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7255 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7256 * Short explanation of the tilde: It stands for the previous replacement
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7257 * pattern. If that previous pattern also contains a ~ we should go back a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7258 * step further... But we insert the previous pattern into the current one
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7259 * and remember that.
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7260 * This still does not handle the case where "magic" changes. So require the
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7261 * user to keep his hands off of "magic".
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7262 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7263 * The tildes are parsed once before the first call to vim_regsub().
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7264 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7265 char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7266 regtilde(char_u *source, int magic)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7267 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7268 char_u *newsub = source;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7269 char_u *tmpsub;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7270 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7271 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7272 int prevlen;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7273
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7274 for (p = newsub; *p; ++p)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7275 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7276 if ((*p == '~' && magic) || (*p == '\\' && *(p + 1) == '~' && !magic))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7277 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7278 if (reg_prev_sub != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7279 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7280 /* length = len(newsub) - 1 + len(prev_sub) + 1 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7281 prevlen = (int)STRLEN(reg_prev_sub);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7282 tmpsub = alloc((unsigned)(STRLEN(newsub) + prevlen));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7283 if (tmpsub != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7284 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7285 /* copy prefix */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7286 len = (int)(p - newsub); /* not including ~ */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7287 mch_memmove(tmpsub, newsub, (size_t)len);
1209
070f2ac50cf8 updated for version 7.1b
vimboss
parents: 1148
diff changeset
7288 /* interpret tilde */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7289 mch_memmove(tmpsub + len, reg_prev_sub, (size_t)prevlen);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7290 /* copy postfix */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7291 if (!magic)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7292 ++p; /* back off \ */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7293 STRCPY(tmpsub + len + prevlen, p + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7294
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7295 if (newsub != source) /* already allocated newsub */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7296 vim_free(newsub);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7297 newsub = tmpsub;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7298 p = newsub + len + prevlen;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7299 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7300 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7301 else if (magic)
1621
82b5078be2dd updated for version 7.2a
vimboss
parents: 1602
diff changeset
7302 STRMOVE(p, p + 1); /* remove '~' */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7303 else
1621
82b5078be2dd updated for version 7.2a
vimboss
parents: 1602
diff changeset
7304 STRMOVE(p, p + 2); /* remove '\~' */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7305 --p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7306 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7307 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7308 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7309 if (*p == '\\' && p[1]) /* skip escaped characters */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7310 ++p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7311 #ifdef FEAT_MBYTE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7312 if (has_mbyte)
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 418
diff changeset
7313 p += (*mb_ptr2len)(p) - 1;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7314 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7315 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7316 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7317
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7318 vim_free(reg_prev_sub);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7319 if (newsub != source) /* newsub was allocated, just keep it */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7320 reg_prev_sub = newsub;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7321 else /* no ~ found, need to save newsub */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7322 reg_prev_sub = vim_strsave(newsub);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7323 return newsub;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7324 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7325
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7326 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7327 static int can_f_submatch = FALSE; /* TRUE when submatch() can be used */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7328
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7329 /* These pointers are used for reg_submatch(). Needed for when the
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7330 * substitution string is an expression that contains a call to substitute()
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7331 * and submatch(). */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7332 typedef struct {
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7333 regmatch_T *sm_match;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7334 regmmatch_T *sm_mmatch;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7335 linenr_T sm_firstlnum;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7336 linenr_T sm_maxline;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7337 int sm_line_lbr;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7338 } regsubmatch_T;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7339
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7340 static regsubmatch_T rsm; /* can only be used when can_f_submatch is TRUE */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7341 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7342
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7343 #if defined(FEAT_MODIFY_FNAME) || defined(FEAT_EVAL) || defined(PROTO)
9626
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7344
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7345 /*
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7346 * Put the submatches in "argv[0]" which is a list passed into call_func() by
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7347 * vim_regsub_both().
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7348 */
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7349 static int
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7350 fill_submatch_list(int argc UNUSED, typval_T *argv, int argcount)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7351 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7352 listitem_T *li;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7353 int i;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7354 char_u *s;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7355
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7356 if (argcount == 0)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7357 /* called function doesn't take an argument */
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7358 return 0;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7359
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7360 /* Relies on sl_list to be the first item in staticList10_T. */
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7361 init_static_list((staticList10_T *)(argv->vval.v_list));
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7362
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7363 /* There are always 10 list items in staticList10_T. */
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7364 li = argv->vval.v_list->lv_first;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7365 for (i = 0; i < 10; ++i)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7366 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7367 s = rsm.sm_match->startp[i];
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7368 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
7369 s = NULL;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7370 else
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7371 s = vim_strnsave(s, (int)(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
7372 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
7373 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
7374 li = li->li_next;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7375 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7376 return 1;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7377 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7378
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7379 static void
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7380 clear_submatch_list(staticList10_T *sl)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7381 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7382 int i;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7383
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7384 for (i = 0; i < 10; ++i)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7385 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
7386 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7387
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7388 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7389 * vim_regsub() - perform substitutions after a vim_regexec() or
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7390 * vim_regexec_multi() match.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7391 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7392 * If "copy" is TRUE really copy into "dest".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7393 * If "copy" is FALSE nothing is copied, this is just to find out the length
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7394 * of the result.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7395 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7396 * If "backslash" is TRUE, a backslash will be removed later, need to double
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7397 * them to keep them, and insert a backslash before a CR to avoid it being
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7398 * replaced with a line break later.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7399 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7400 * Note: The matched text must not change between the call of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7401 * vim_regexec()/vim_regexec_multi() and vim_regsub()! It would make the back
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7402 * references invalid!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7403 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7404 * Returns the size of the replacement, including terminating NUL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7405 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7406 int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7407 vim_regsub(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7408 regmatch_T *rmp,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7409 char_u *source,
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7410 typval_T *expr,
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7411 char_u *dest,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7412 int copy,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7413 int magic,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7414 int backslash)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7415 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7416 int result;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7417 regexec_T rex_save;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7418 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
7419
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7420 if (rex_in_use)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7421 /* Being called recursively, save the state. */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7422 rex_save = rex;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7423 rex_in_use = TRUE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7424
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7425 rex.reg_match = rmp;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7426 rex.reg_mmatch = NULL;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7427 rex.reg_maxline = 0;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7428 rex.reg_buf = curbuf;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7429 rex.reg_line_lbr = TRUE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7430 result = vim_regsub_both(source, expr, dest, copy, magic, backslash);
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7431
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7432 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
7433 if (rex_in_use)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7434 rex = rex_save;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7435
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7436 return result;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7437 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7438 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7439
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7440 int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7441 vim_regsub_multi(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7442 regmmatch_T *rmp,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7443 linenr_T lnum,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7444 char_u *source,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7445 char_u *dest,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7446 int copy,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7447 int magic,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7448 int backslash)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7449 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7450 int result;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7451 regexec_T rex_save;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7452 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
7453
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7454 if (rex_in_use)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7455 /* Being called recursively, save the state. */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7456 rex_save = rex;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7457 rex_in_use = TRUE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7458
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7459 rex.reg_match = NULL;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7460 rex.reg_mmatch = rmp;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7461 rex.reg_buf = curbuf; /* always works on the current buffer! */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7462 rex.reg_firstlnum = lnum;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7463 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
7464 rex.reg_line_lbr = FALSE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7465 result = vim_regsub_both(source, NULL, dest, copy, magic, backslash);
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7466
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7467 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
7468 if (rex_in_use)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7469 rex = rex_save;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7470
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7471 return result;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7472 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7473
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7474 static int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7475 vim_regsub_both(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7476 char_u *source,
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7477 typval_T *expr,
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7478 char_u *dest,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7479 int copy,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7480 int magic,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7481 int backslash)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7482 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7483 char_u *src;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7484 char_u *dst;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7485 char_u *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7486 int c;
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7487 int cc;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7488 int no = -1;
4244
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7489 fptr_T func_all = (fptr_T)NULL;
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7490 fptr_T func_one = (fptr_T)NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7491 linenr_T clnum = 0; /* init for GCC */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7492 int len = 0; /* init for GCC */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7493 #ifdef FEAT_EVAL
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7494 static char_u *eval_result = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7495 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7496
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7497 /* Be paranoid... */
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7498 if ((source == NULL && expr == NULL) || dest == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7499 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7500 EMSG(_(e_null));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7501 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7502 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7503 if (prog_magic_wrong())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7504 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7505 src = source;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7506 dst = dest;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7507
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7508 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7509 * When the substitute part starts with "\=" evaluate it as an expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7510 */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7511 if (expr != NULL || (source[0] == '\\' && source[1] == '='))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7512 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7513 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7514 /* To make sure that the length doesn't change between checking the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7515 * length and copying the string, and to speed up things, the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7516 * resulting string is saved from the call with "copy" == FALSE to the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7517 * call with "copy" == TRUE. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7518 if (copy)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7519 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7520 if (eval_result != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7521 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7522 STRCPY(dest, eval_result);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7523 dst += STRLEN(eval_result);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7524 vim_free(eval_result);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7525 eval_result = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7526 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7527 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7528 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7529 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7530 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
7531 regsubmatch_T rsm_save;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7532
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7533 vim_free(eval_result);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7534
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7535 /* The expression may contain substitute(), which calls us
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7536 * recursively. Make sure submatch() gets the text from the first
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7537 * level. */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7538 if (can_f_submatch)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7539 rsm_save = rsm;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7540 can_f_submatch = TRUE;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7541 rsm.sm_match = rex.reg_match;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7542 rsm.sm_mmatch = rex.reg_mmatch;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7543 rsm.sm_firstlnum = rex.reg_firstlnum;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7544 rsm.sm_maxline = rex.reg_maxline;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7545 rsm.sm_line_lbr = rex.reg_line_lbr;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7546
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7547 if (expr != NULL)
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7548 {
9626
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7549 typval_T argv[2];
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7550 int dummy;
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7551 char_u buf[NUMBUFLEN];
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7552 typval_T rettv;
9626
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7553 staticList10_T matchList;
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7554
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7555 rettv.v_type = VAR_STRING;
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7556 rettv.vval.v_string = NULL;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7557 argv[0].v_type = VAR_LIST;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7558 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
7559 matchList.sl_list.lv_len = 0;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7560 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
7561 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7562 s = expr->vval.v_string;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7563 call_func(s, (int)STRLEN(s), &rettv,
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7564 1, argv, fill_submatch_list,
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7565 0L, 0L, &dummy, TRUE, NULL, NULL);
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7566 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7567 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
7568 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7569 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
7570
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7571 s = partial_name(partial);
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7572 call_func(s, (int)STRLEN(s), &rettv,
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7573 1, argv, fill_submatch_list,
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7574 0L, 0L, &dummy, TRUE, partial, NULL);
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7575 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7576 if (matchList.sl_list.lv_len > 0)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7577 /* fill_submatch_list() was called */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7578 clear_submatch_list(&matchList);
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7579
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7580 eval_result = get_tv_string_buf_chk(&rettv, buf);
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7581 if (eval_result != NULL)
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7582 eval_result = vim_strsave(eval_result);
9626
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9589
diff changeset
7583 clear_tv(&rettv);
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7584 }
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7585 else
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7586 eval_result = eval_to_string(source + 2, NULL, TRUE);
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9015
diff changeset
7587
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7588 if (eval_result != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7589 {
2125
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7590 int had_backslash = FALSE;
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7591
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
7592 for (s = eval_result; *s != NUL; MB_PTR_ADV(s))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7593 {
2904
c249d9aa60f7 updated for version 7.3.225
Bram Moolenaar <bram@vim.org>
parents: 2578
diff changeset
7594 /* Change NL to CR, so that it becomes a line break,
c249d9aa60f7 updated for version 7.3.225
Bram Moolenaar <bram@vim.org>
parents: 2578
diff changeset
7595 * unless called from vim_regexec_nl().
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7596 * Skip over a backslashed character. */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7597 if (*s == NL && !rsm.sm_line_lbr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7598 *s = CAR;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7599 else if (*s == '\\' && s[1] != NUL)
2125
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7600 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7601 ++s;
2173
ecb9c2b70b0f updated for version 7.2.437
Bram Moolenaar <bram@vim.org>
parents: 2125
diff changeset
7602 /* Change NL to CR here too, so that this works:
ecb9c2b70b0f updated for version 7.2.437
Bram Moolenaar <bram@vim.org>
parents: 2125
diff changeset
7603 * :s/abc\\\ndef/\="aaa\\\nbbb"/ on text:
ecb9c2b70b0f updated for version 7.2.437
Bram Moolenaar <bram@vim.org>
parents: 2125
diff changeset
7604 * abc\
ecb9c2b70b0f updated for version 7.2.437
Bram Moolenaar <bram@vim.org>
parents: 2125
diff changeset
7605 * def
2904
c249d9aa60f7 updated for version 7.3.225
Bram Moolenaar <bram@vim.org>
parents: 2578
diff changeset
7606 * Not when called from vim_regexec_nl().
2173
ecb9c2b70b0f updated for version 7.2.437
Bram Moolenaar <bram@vim.org>
parents: 2125
diff changeset
7607 */
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7608 if (*s == NL && !rsm.sm_line_lbr)
2173
ecb9c2b70b0f updated for version 7.2.437
Bram Moolenaar <bram@vim.org>
parents: 2125
diff changeset
7609 *s = CAR;
2125
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7610 had_backslash = TRUE;
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7611 }
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7612 }
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7613 if (had_backslash && backslash)
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7614 {
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7615 /* Backslashes will be consumed, need to double them. */
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7616 s = vim_strsave_escaped(eval_result, (char_u *)"\\");
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7617 if (s != NULL)
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7618 {
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7619 vim_free(eval_result);
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7620 eval_result = s;
b8744d1982d1 updated for version 7.2.407
Bram Moolenaar <bram@zimbu.org>
parents: 2012
diff changeset
7621 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7622 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7623
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7624 dst += STRLEN(eval_result);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7625 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7626
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7627 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
7628 if (can_f_submatch)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7629 rsm = rsm_save;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7630 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7631 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7632 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7633 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7634 while ((c = *src++) != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7635 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7636 if (c == '&' && magic)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7637 no = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7638 else if (c == '\\' && *src != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7639 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7640 if (*src == '&' && !magic)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7641 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7642 ++src;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7643 no = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7644 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7645 else if ('0' <= *src && *src <= '9')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7646 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7647 no = *src++ - '0';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7648 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7649 else if (vim_strchr((char_u *)"uUlLeE", *src))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7650 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7651 switch (*src++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7652 {
4244
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7653 case 'u': func_one = (fptr_T)do_upper;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7654 continue;
4244
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7655 case 'U': func_all = (fptr_T)do_Upper;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7656 continue;
4244
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7657 case 'l': func_one = (fptr_T)do_lower;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7658 continue;
4244
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7659 case 'L': func_all = (fptr_T)do_Lower;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7660 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7661 case 'e':
4244
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7662 case 'E': func_one = func_all = (fptr_T)NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7663 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7664 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7665 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7666 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7667 if (no < 0) /* Ordinary character. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7668 {
798
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7669 if (c == K_SPECIAL && src[0] != NUL && src[1] != NUL)
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7670 {
1209
070f2ac50cf8 updated for version 7.1b
vimboss
parents: 1148
diff changeset
7671 /* Copy a special key as-is. */
798
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7672 if (copy)
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7673 {
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7674 *dst++ = c;
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7675 *dst++ = *src++;
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7676 *dst++ = *src++;
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7677 }
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7678 else
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7679 {
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7680 dst += 3;
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7681 src += 2;
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7682 }
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7683 continue;
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7684 }
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7685
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7686 if (c == '\\' && *src != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7687 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7688 /* Check for abbreviations -- webb */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7689 switch (*src)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7690 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7691 case 'r': c = CAR; ++src; break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7692 case 'n': c = NL; ++src; break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7693 case 't': c = TAB; ++src; break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7694 /* Oh no! \e already has meaning in subst pat :-( */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7695 /* case 'e': c = ESC; ++src; break; */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7696 case 'b': c = Ctrl_H; ++src; break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7697
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7698 /* If "backslash" is TRUE the backslash will be removed
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7699 * later. Used to insert a literal CR. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7700 default: if (backslash)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7701 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7702 if (copy)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7703 *dst = '\\';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7704 ++dst;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7705 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7706 c = *src++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7707 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7708 }
798
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7709 #ifdef FEAT_MBYTE
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7710 else if (has_mbyte)
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7711 c = mb_ptr2char(src - 1);
95dac6af3b3a updated for version 7.0232
vimboss
parents: 772
diff changeset
7712 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7713
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7714 /* Write to buffer, if copy is set. */
4244
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7715 if (func_one != (fptr_T)NULL)
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7716 /* Turbo C complains without the typecast */
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7717 func_one = (fptr_T)(func_one(&cc, c));
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7718 else if (func_all != (fptr_T)NULL)
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7719 /* Turbo C complains without the typecast */
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7720 func_all = (fptr_T)(func_all(&cc, c));
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7721 else /* just copy */
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7722 cc = c;
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7723
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7724 #ifdef FEAT_MBYTE
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7725 if (has_mbyte)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7726 {
2307
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7727 int totlen = mb_ptr2len(src - 1);
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7728
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7729 if (copy)
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7730 mb_char2bytes(cc, dst);
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7731 dst += mb_char2len(cc) - 1;
2307
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7732 if (enc_utf8)
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7733 {
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7734 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
7735
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7736 /* If the character length is shorter than "totlen", there
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7737 * are composing characters; copy them as-is. */
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7738 if (clen < totlen)
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7739 {
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7740 if (copy)
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7741 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
7742 (size_t)(totlen - clen));
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7743 dst += totlen - clen;
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7744 }
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7745 }
81527f127fb1 Fix: Composing characters in :s substitute text were dropped.
Bram Moolenaar <bram@vim.org>
parents: 2247
diff changeset
7746 src += totlen - 1;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7747 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7748 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7749 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7750 if (copy)
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7751 *dst = cc;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7752 dst++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7753 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7754 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7755 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7756 if (REG_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7757 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7758 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
7759 if (clnum < 0 || rex.reg_mmatch->endpos[no].lnum < 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7760 s = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7761 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7762 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7763 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
7764 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
7765 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
7766 - rex.reg_mmatch->startpos[no].col;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7767 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7768 len = (int)STRLEN(s);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7769 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7770 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7771 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7772 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7773 s = rex.reg_match->startp[no];
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7774 if (rex.reg_match->endp[no] == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7775 s = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7776 else
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7777 len = (int)(rex.reg_match->endp[no] - s);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7778 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7779 if (s != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7780 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7781 for (;;)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7782 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7783 if (len == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7784 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7785 if (REG_MULTI)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7786 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7787 if (rex.reg_mmatch->endpos[no].lnum == clnum)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7788 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7789 if (copy)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7790 *dst = CAR;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7791 ++dst;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7792 s = reg_getline(++clnum);
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7793 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
7794 len = rex.reg_mmatch->endpos[no].col;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7795 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7796 len = (int)STRLEN(s);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7797 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7798 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7799 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7800 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7801 else if (*s == NUL) /* we hit NUL. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7802 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7803 if (copy)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7804 EMSG(_(e_re_damg));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7805 goto exit;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7806 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7807 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7808 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7809 if (backslash && (*s == CAR || *s == '\\'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7810 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7811 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7812 * Insert a backslash in front of a CR, otherwise
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7813 * it will be replaced by a line break.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7814 * Number of backslashes will be halved later,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7815 * double them here.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7816 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7817 if (copy)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7818 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7819 dst[0] = '\\';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7820 dst[1] = *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7821 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7822 dst += 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7823 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7824 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7825 {
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7826 #ifdef FEAT_MBYTE
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7827 if (has_mbyte)
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7828 c = mb_ptr2char(s);
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7829 else
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7830 #endif
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7831 c = *s;
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7832
4244
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7833 if (func_one != (fptr_T)NULL)
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7834 /* Turbo C complains without the typecast */
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7835 func_one = (fptr_T)(func_one(&cc, c));
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7836 else if (func_all != (fptr_T)NULL)
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7837 /* Turbo C complains without the typecast */
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7838 func_all = (fptr_T)(func_all(&cc, c));
7faeece39228 updated for version 7.3.873
Bram Moolenaar <bram@vim.org>
parents: 4176
diff changeset
7839 else /* just copy */
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7840 cc = c;
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7841
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7842 #ifdef FEAT_MBYTE
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7843 if (has_mbyte)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7844 {
1332
6d421b3c485b updated for version 7.1-046
vimboss
parents: 1209
diff changeset
7845 int l;
6d421b3c485b updated for version 7.1-046
vimboss
parents: 1209
diff changeset
7846
6d421b3c485b updated for version 7.1-046
vimboss
parents: 1209
diff changeset
7847 /* Copy composing characters separately, one
6d421b3c485b updated for version 7.1-046
vimboss
parents: 1209
diff changeset
7848 * at a time. */
6d421b3c485b updated for version 7.1-046
vimboss
parents: 1209
diff changeset
7849 if (enc_utf8)
6d421b3c485b updated for version 7.1-046
vimboss
parents: 1209
diff changeset
7850 l = utf_ptr2len(s) - 1;
6d421b3c485b updated for version 7.1-046
vimboss
parents: 1209
diff changeset
7851 else
6d421b3c485b updated for version 7.1-046
vimboss
parents: 1209
diff changeset
7852 l = mb_ptr2len(s) - 1;
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7853
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7854 s += l;
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7855 len -= l;
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7856 if (copy)
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7857 mb_char2bytes(cc, dst);
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7858 dst += mb_char2len(cc) - 1;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7859 }
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7860 else
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7861 #endif
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7862 if (copy)
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7863 *dst = cc;
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7864 dst++;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7865 }
772
aaaca5077255 updated for version 7.0226
vimboss
parents: 741
diff changeset
7866
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7867 ++s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7868 --len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7869 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7870 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7871 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7872 no = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7873 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7874 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7875 if (copy)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7876 *dst = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7877
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7878 exit:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7879 return (int)((dst - dest) + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7880 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7881
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7882 #ifdef FEAT_EVAL
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
7883 static char_u *reg_getline_submatch(linenr_T lnum);
2012
b99303b1483f updated for version 7.2-309
vimboss
parents: 2011
diff changeset
7884
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7885 /*
2011
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7886 * Call reg_getline() with the line numbers from the submatch. If a
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7887 * substitute() was used the reg_maxline and other values have been
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7888 * overwritten.
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7889 */
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7890 static char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7891 reg_getline_submatch(linenr_T lnum)
2011
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7892 {
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7893 char_u *s;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7894 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
7895 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
7896
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7897 rex.reg_firstlnum = rsm.sm_firstlnum;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7898 rex.reg_maxline = rsm.sm_maxline;
2011
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7899
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7900 s = reg_getline(lnum);
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7901
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7902 rex.reg_firstlnum = save_first;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7903 rex.reg_maxline = save_max;
2011
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7904 return s;
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7905 }
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7906
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7907 /*
1209
070f2ac50cf8 updated for version 7.1b
vimboss
parents: 1148
diff changeset
7908 * Used for the submatch() function: get the string from the n'th submatch in
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7909 * allocated memory.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7910 * Returns NULL when not in a ":s" command and for a non-existing submatch.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7911 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7912 char_u *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
7913 reg_submatch(int no)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7914 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7915 char_u *retval = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7916 char_u *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7917 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7918 int round;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7919 linenr_T lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7920
840
2c885fab04e3 updated for version 7.0e06
vimboss
parents: 798
diff changeset
7921 if (!can_f_submatch || no < 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7922 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7923
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7924 if (rsm.sm_match == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7925 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7926 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7927 * First round: compute the length and allocate memory.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7928 * Second round: copy the text.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7929 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7930 for (round = 1; round <= 2; ++round)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7931 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7932 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
7933 if (lnum < 0 || rsm.sm_mmatch->endpos[no].lnum < 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7934 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7935
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7936 s = reg_getline_submatch(lnum) + rsm.sm_mmatch->startpos[no].col;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7937 if (s == NULL) /* anti-crash check, cannot happen? */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7938 break;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7939 if (rsm.sm_mmatch->endpos[no].lnum == lnum)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7940 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7941 /* 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
7942 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
7943 - rsm.sm_mmatch->startpos[no].col;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7944 if (round == 2)
418
84825cc6f049 updated for version 7.0109
vimboss
parents: 410
diff changeset
7945 vim_strncpy(retval, s, len);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7946 ++len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7947 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7948 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7949 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7950 /* Multiple lines: take start line from start col, middle
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7951 * lines completely and end line up to end col. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7952 len = (int)STRLEN(s);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7953 if (round == 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7954 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7955 STRCPY(retval, s);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7956 retval[len] = '\n';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7957 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7958 ++len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7959 ++lnum;
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7960 while (lnum < rsm.sm_mmatch->endpos[no].lnum)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7961 {
2011
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7962 s = reg_getline_submatch(lnum++);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7963 if (round == 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7964 STRCPY(retval + len, s);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7965 len += (int)STRLEN(s);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7966 if (round == 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7967 retval[len] = '\n';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7968 ++len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7969 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7970 if (round == 2)
2011
a3a4be6bdcdd updated for version 7.2-308
vimboss
parents: 2010
diff changeset
7971 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
7972 rsm.sm_mmatch->endpos[no].col);
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7973 len += rsm.sm_mmatch->endpos[no].col;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7974 if (round == 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7975 retval[len] = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7976 ++len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7977 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7978
840
2c885fab04e3 updated for version 7.0e06
vimboss
parents: 798
diff changeset
7979 if (retval == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7980 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7981 retval = lalloc((long_u)len, TRUE);
840
2c885fab04e3 updated for version 7.0e06
vimboss
parents: 798
diff changeset
7982 if (retval == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7983 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7984 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7985 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7986 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7987 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7988 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7989 s = rsm.sm_match->startp[no];
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7990 if (s == NULL || rsm.sm_match->endp[no] == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7991 retval = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7992 else
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
7993 retval = vim_strnsave(s, (int)(rsm.sm_match->endp[no] - s));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7994 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7995
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7996 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7997 }
5794
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
7998
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
7999 /*
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8000 * Used for the submatch() function with the optional non-zero argument: get
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8001 * the list of strings from the n'th submatch in allocated memory with NULs
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8002 * represented in NLs.
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8003 * Returns a list of allocated strings. Returns NULL when not in a ":s"
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8004 * command, for a non-existing submatch and for any error.
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8005 */
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8006 list_T *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8007 reg_submatch_list(int no)
5794
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8008 {
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8009 char_u *s;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8010 linenr_T slnum;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8011 linenr_T elnum;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8012 colnr_T scol;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8013 colnr_T ecol;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8014 int i;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8015 list_T *list;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8016 int error = FALSE;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8017
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8018 if (!can_f_submatch || no < 0)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8019 return NULL;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8020
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8021 if (rsm.sm_match == NULL)
5794
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8022 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8023 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
8024 elnum = rsm.sm_mmatch->endpos[no].lnum;
5794
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8025 if (slnum < 0 || elnum < 0)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8026 return NULL;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8027
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8028 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
8029 ecol = rsm.sm_mmatch->endpos[no].col;
5794
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8030
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8031 list = list_alloc();
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8032 if (list == NULL)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8033 return NULL;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8034
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8035 s = reg_getline_submatch(slnum) + scol;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8036 if (slnum == elnum)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8037 {
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8038 if (list_append_string(list, s, ecol - scol) == FAIL)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8039 error = TRUE;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8040 }
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8041 else
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8042 {
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8043 if (list_append_string(list, s, -1) == FAIL)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8044 error = TRUE;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8045 for (i = 1; i < elnum - slnum; i++)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8046 {
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8047 s = reg_getline_submatch(slnum + i);
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8048 if (list_append_string(list, s, -1) == FAIL)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8049 error = TRUE;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8050 }
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8051 s = reg_getline_submatch(elnum);
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8052 if (list_append_string(list, s, ecol) == FAIL)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8053 error = TRUE;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8054 }
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8055 }
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8056 else
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8057 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8058 s = rsm.sm_match->startp[no];
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8059 if (s == NULL || rsm.sm_match->endp[no] == NULL)
5794
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8060 return NULL;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8061 list = list_alloc();
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8062 if (list == NULL)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8063 return NULL;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8064 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
8065 (int)(rsm.sm_match->endp[no] - s)) == FAIL)
5794
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8066 error = TRUE;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8067 }
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8068
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8069 if (error)
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8070 {
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8825
diff changeset
8071 list_free(list);
5794
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8072 return NULL;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8073 }
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8074 return list;
a63d0cd691dc updated for version 7.4.241
Bram Moolenaar <bram@vim.org>
parents: 5735
diff changeset
8075 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
8076 #endif
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8077
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8078 static regengine_T bt_regengine =
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8079 {
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8080 bt_regcomp,
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8081 bt_regfree,
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8082 bt_regexec_nl,
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8083 bt_regexec_multi,
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8084 (char_u *)""
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8085 };
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8086
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8087 #include "regexp_nfa.c"
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8088
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8089 static regengine_T nfa_regengine =
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8090 {
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8091 nfa_regcomp,
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8092 nfa_regfree,
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8093 nfa_regexec_nl,
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8094 nfa_regexec_multi,
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8095 (char_u *)""
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8096 };
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8097
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8098 /* Which regexp engine to use? Needed for vim_regcomp().
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8099 * Must match with 'regexpengine'. */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8100 static int regexp_engine = 0;
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8101
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8102 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8103 static char_u regname[][30] = {
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8104 "AUTOMATIC Regexp Engine",
4579
7a2be4a39423 updated for version 7.3.1037
Bram Moolenaar <bram@vim.org>
parents: 4505
diff changeset
8105 "BACKTRACKING Regexp Engine",
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8106 "NFA Regexp Engine"
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8107 };
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8108 #endif
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8109
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8110 /*
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8111 * Compile a regular expression into internal code.
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8112 * Returns the program in allocated memory.
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8113 * Use vim_regfree() to free the memory.
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8114 * Returns NULL for an error.
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8115 */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8116 regprog_T *
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8117 vim_regcomp(char_u *expr_arg, int re_flags)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8118 {
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8119 regprog_T *prog = NULL;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8120 char_u *expr = expr_arg;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8121
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8122 regexp_engine = p_re;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8123
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8124 /* Check for prefix "\%#=", that sets the regexp engine */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8125 if (STRNCMP(expr, "\\%#=", 4) == 0)
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8126 {
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8127 int newengine = expr[4] - '0';
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8128
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8129 if (newengine == AUTOMATIC_ENGINE
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8130 || newengine == BACKTRACKING_ENGINE
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8131 || newengine == NFA_ENGINE)
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8132 {
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8133 regexp_engine = expr[4] - '0';
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8134 expr += 5;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8135 #ifdef DEBUG
5897
b5972833add9 updated for version 7.4.291
Bram Moolenaar <bram@vim.org>
parents: 5838
diff changeset
8136 smsg((char_u *)"New regexp mode selected (%d): %s",
b5972833add9 updated for version 7.4.291
Bram Moolenaar <bram@vim.org>
parents: 5838
diff changeset
8137 regexp_engine, regname[newengine]);
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8138 #endif
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8139 }
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8140 else
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8141 {
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8142 EMSG(_("E864: \\%#= can only be followed by 0, 1, or 2. The automatic engine will be used "));
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8143 regexp_engine = AUTOMATIC_ENGINE;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8144 }
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8145 }
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8146 bt_regengine.expr = expr;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8147 nfa_regengine.expr = expr;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8148
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8149 /*
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8150 * First try the NFA engine, unless backtracking was requested.
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8151 */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8152 if (regexp_engine != BACKTRACKING_ENGINE)
6533
bdc8e71633e4 updated for version 7.4.593
Bram Moolenaar <bram@vim.org>
parents: 6390
diff changeset
8153 prog = nfa_regengine.regcomp(expr,
bdc8e71633e4 updated for version 7.4.593
Bram Moolenaar <bram@vim.org>
parents: 6390
diff changeset
8154 re_flags + (regexp_engine == AUTOMATIC_ENGINE ? RE_AUTO : 0));
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8155 else
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8156 prog = bt_regengine.regcomp(expr, re_flags);
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8157
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8158 /* Check for error compiling regexp with initial engine. */
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8159 if (prog == NULL)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8160 {
4460
fe8a0a6a1c2a updated for version 7.3.978
Bram Moolenaar <bram@vim.org>
parents: 4444
diff changeset
8161 #ifdef BT_REGEXP_DEBUG_LOG
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8162 if (regexp_engine != BACKTRACKING_ENGINE) /* debugging log for NFA */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8163 {
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8164 FILE *f;
4460
fe8a0a6a1c2a updated for version 7.3.978
Bram Moolenaar <bram@vim.org>
parents: 4444
diff changeset
8165 f = fopen(BT_REGEXP_DEBUG_LOG_NAME, "a");
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8166 if (f)
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8167 {
4762
47906f888725 updated for version 7.3.1128
Bram Moolenaar <bram@vim.org>
parents: 4760
diff changeset
8168 fprintf(f, "Syntax error in \"%s\"\n", expr);
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8169 fclose(f);
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8170 }
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8171 else
4460
fe8a0a6a1c2a updated for version 7.3.978
Bram Moolenaar <bram@vim.org>
parents: 4444
diff changeset
8172 EMSG2("(NFA) Could not open \"%s\" to write !!!",
fe8a0a6a1c2a updated for version 7.3.978
Bram Moolenaar <bram@vim.org>
parents: 4444
diff changeset
8173 BT_REGEXP_DEBUG_LOG_NAME);
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8174 }
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8175 #endif
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8176 /*
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8177 * If the NFA engine failed, try the backtracking engine.
6533
bdc8e71633e4 updated for version 7.4.593
Bram Moolenaar <bram@vim.org>
parents: 6390
diff changeset
8178 * The NFA engine also fails for patterns that it can't handle well
bdc8e71633e4 updated for version 7.4.593
Bram Moolenaar <bram@vim.org>
parents: 6390
diff changeset
8179 * but are still valid patterns, thus a retry should work.
bdc8e71633e4 updated for version 7.4.593
Bram Moolenaar <bram@vim.org>
parents: 6390
diff changeset
8180 */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8181 if (regexp_engine == AUTOMATIC_ENGINE)
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8182 {
6533
bdc8e71633e4 updated for version 7.4.593
Bram Moolenaar <bram@vim.org>
parents: 6390
diff changeset
8183 regexp_engine = BACKTRACKING_ENGINE;
4762
47906f888725 updated for version 7.3.1128
Bram Moolenaar <bram@vim.org>
parents: 4760
diff changeset
8184 prog = bt_regengine.regcomp(expr, re_flags);
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8185 }
4762
47906f888725 updated for version 7.3.1128
Bram Moolenaar <bram@vim.org>
parents: 4760
diff changeset
8186 }
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8187
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8188 if (prog != NULL)
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8189 {
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8190 /* Store the info needed to call regcomp() again when the engine turns
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8191 * out to be very slow when executing it. */
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8192 prog->re_engine = regexp_engine;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8193 prog->re_flags = re_flags;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8194 }
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8195
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8196 return prog;
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8197 }
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8198
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8199 /*
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8200 * 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
8201 */
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8202 void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8203 vim_regfree(regprog_T *prog)
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8204 {
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8205 if (prog != NULL)
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8206 prog->engine->regfree(prog);
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8207 }
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8208
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8209 #ifdef FEAT_EVAL
7805
0b6c37dd858d commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
8210 static void report_re_switch(char_u *pat);
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8211
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8212 static void
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8213 report_re_switch(char_u *pat)
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8214 {
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8215 if (p_verbose > 0)
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8216 {
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8217 verbose_enter();
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8218 MSG_PUTS(_("Switching to backtracking RE engine for pattern: "));
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8219 MSG_PUTS(pat);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8220 verbose_leave();
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8221 }
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8222 }
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8223 #endif
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8224
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4770
diff changeset
8225 /*
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8226 * Match a regexp against a string.
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8227 * "rmp->regprog" is a compiled regexp as returned by vim_regcomp().
6375
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8228 * Note: "rmp->regprog" may be freed and changed.
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8229 * Uses curbuf for line count and 'iskeyword'.
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8230 * When "nl" is TRUE consider a "\n" in "line" to be a line break.
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8231 *
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8232 * Return TRUE if there is a match, FALSE if not.
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8233 */
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8234 static int
11529
998d2cf59caa patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents: 11527
diff changeset
8235 vim_regexec_string(
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8236 regmatch_T *rmp,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8237 char_u *line, /* string to match against */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8238 colnr_T col, /* column to start looking for match */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8239 int nl)
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8240 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8241 int result;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8242 regexec_T rex_save;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8243 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
8244
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8245 if (rex_in_use)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8246 /* Being called recursively, save the state. */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8247 rex_save = rex;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8248 rex_in_use = TRUE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8249 rex.reg_startp = NULL;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8250 rex.reg_endp = NULL;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8251 rex.reg_startpos = NULL;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8252 rex.reg_endpos = NULL;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8253
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8254 result = rmp->regprog->engine->regexec_nl(rmp, line, col, nl);
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8255
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8256 /* NFA engine aborted because it's very slow. */
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8257 if (rmp->regprog->re_engine == AUTOMATIC_ENGINE
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8258 && result == NFA_TOO_EXPENSIVE)
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8259 {
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8260 int save_p_re = p_re;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8261 int re_flags = rmp->regprog->re_flags;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8262 char_u *pat = vim_strsave(((nfa_regprog_T *)rmp->regprog)->pattern);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8263
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8264 p_re = BACKTRACKING_ENGINE;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8265 vim_regfree(rmp->regprog);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8266 if (pat != NULL)
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8267 {
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8268 #ifdef FEAT_EVAL
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8269 report_re_switch(pat);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8270 #endif
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8271 rmp->regprog = vim_regcomp(pat, re_flags);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8272 if (rmp->regprog != NULL)
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8273 result = rmp->regprog->engine->regexec_nl(rmp, line, col, nl);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8274 vim_free(pat);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8275 }
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8276
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8277 p_re = save_p_re;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8278 }
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8279
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8280 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
8281 if (rex_in_use)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8282 rex = rex_save;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8283
6390
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
8284 return result > 0;
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8285 }
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8286
6375
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8287 /*
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8288 * Note: "*prog" may be freed and changed.
6390
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
8289 * Return TRUE if there is a match, FALSE if not.
6375
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8290 */
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8291 int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8292 vim_regexec_prog(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8293 regprog_T **prog,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8294 int ignore_case,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8295 char_u *line,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8296 colnr_T col)
6375
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8297 {
11529
998d2cf59caa patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents: 11527
diff changeset
8298 int r;
998d2cf59caa patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents: 11527
diff changeset
8299 regmatch_T regmatch;
6375
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8300
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8301 regmatch.regprog = *prog;
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8302 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
8303 r = vim_regexec_string(&regmatch, line, col, FALSE);
6375
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8304 *prog = regmatch.regprog;
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8305 return r;
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8306 }
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8307
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8308 /*
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8309 * Note: "rmp->regprog" may be freed and changed.
6390
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
8310 * Return TRUE if there is a match, FALSE if not.
6375
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8311 */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8312 int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8313 vim_regexec(regmatch_T *rmp, char_u *line, colnr_T col)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8314 {
11529
998d2cf59caa patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents: 11527
diff changeset
8315 return vim_regexec_string(rmp, line, col, FALSE);
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8316 }
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8317
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8318 #if defined(FEAT_MODIFY_FNAME) || defined(FEAT_EVAL) \
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8319 || defined(FIND_REPLACE_DIALOG) || defined(PROTO)
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8320 /*
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8321 * Like vim_regexec(), but consider a "\n" in "line" to be a line break.
6375
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8322 * Note: "rmp->regprog" may be freed and changed.
6390
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
8323 * Return TRUE if there is a match, FALSE if not.
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8324 */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8325 int
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8326 vim_regexec_nl(regmatch_T *rmp, char_u *line, colnr_T col)
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8327 {
11529
998d2cf59caa patch 8.0.0647: syntax highlighting can make cause a freeze
Christian Brabandt <cb@256bit.org>
parents: 11527
diff changeset
8328 return vim_regexec_string(rmp, line, col, TRUE);
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8329 }
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8330 #endif
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8331
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8332 /*
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8333 * Match a regexp against multiple lines.
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8334 * "rmp->regprog" is a compiled regexp as returned by vim_regcomp().
6375
27a36d1013a6 updated for version 7.4.519
Bram Moolenaar <bram@vim.org>
parents: 6328
diff changeset
8335 * Note: "rmp->regprog" may be freed and changed.
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8336 * Uses curbuf for line count and 'iskeyword'.
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8337 *
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8338 * Return zero if there is no match. Return number of lines contained in the
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8339 * match otherwise.
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8340 */
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8341 long
7833
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8342 vim_regexec_multi(
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8343 regmmatch_T *rmp,
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8344 win_T *win, /* window in which to search or NULL */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8345 buf_T *buf, /* buffer in which to search */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8346 linenr_T lnum, /* nr of line to start looking for match */
c079097365f3 commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
8347 colnr_T col, /* column to start looking for match */
11521
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
8348 proftime_T *tm, /* timeout limit or NULL */
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
8349 int *timed_out) /* flag is set when timeout limit reached */
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8350 {
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8351 int result;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8352 regexec_T rex_save;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8353 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
8354
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8355 if (rex_in_use)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8356 /* Being called recursively, save the state. */
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8357 rex_save = rex;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8358 rex_in_use = TRUE;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8359
11521
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
8360 result = rmp->regprog->engine->regexec_multi(
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
8361 rmp, win, buf, lnum, col, tm, timed_out);
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8362
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8363 /* NFA engine aborted because it's very slow. */
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8364 if (rmp->regprog->re_engine == AUTOMATIC_ENGINE
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8365 && result == NFA_TOO_EXPENSIVE)
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8366 {
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8367 int save_p_re = p_re;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8368 int re_flags = rmp->regprog->re_flags;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8369 char_u *pat = vim_strsave(((nfa_regprog_T *)rmp->regprog)->pattern);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8370
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8371 p_re = BACKTRACKING_ENGINE;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8372 vim_regfree(rmp->regprog);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8373 if (pat != NULL)
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8374 {
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8375 #ifdef FEAT_EVAL
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8376 report_re_switch(pat);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8377 #endif
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8378 rmp->regprog = vim_regcomp(pat, re_flags);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8379 if (rmp->regprog != NULL)
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8380 result = rmp->regprog->engine->regexec_multi(
11521
578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents: 11482
diff changeset
8381 rmp, win, buf, lnum, col, tm, timed_out);
6328
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8382 vim_free(pat);
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8383 }
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8384 p_re = save_p_re;
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8385 }
adfbffe1e642 updated for version 7.4.497
Bram Moolenaar <bram@vim.org>
parents: 6203
diff changeset
8386
10245
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8387 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
8388 if (rex_in_use)
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8389 rex = rex_save;
d76ccdacb41e commit https://github.com/vim/vim/commit/6100d02aab7c8294b581cb299250eea164b50e9d
Christian Brabandt <cb@256bit.org>
parents: 10187
diff changeset
8390
6390
230b52b9d35e updated for version 7.4.526
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
8391 return result <= 0 ? 0 : result;
4444
ccecb03e5e8b updated for version 7.3.970
Bram Moolenaar <bram@vim.org>
parents: 4244
diff changeset
8392 }