vim: src/regexp_nfa.c annotate

annotate src/regexp_nfa.c @ 4799:e3f9e33fb28c v7.3.1146

updated for version 7.3.1146 Problem: New regexp engine: look-behind match not checked when followed by zero-width match. Solution: Do the look-behind match before adding the zero-width state.

author	Bram Moolenaar <bram@vim.org>
date	Sat, 08 Jun 2013 13:33:37 +0200
parents	a30e3762957d
children	3cd3cc1e9119

rev	line source
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3 * NFA regular expression implementation.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5 * This file is included in "regexp.c".
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	6 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	7
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	8 /*
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	9 * Logging of NFA engine.
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	10 *
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	11 * The NFA engine can write four log files:
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	12 * - Error log: Contains NFA engine's fatal errors.
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	13 * - Dump log: Contains compiled NFA state machine's information.
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	14 * - Run log: Contains information of matching procedure.
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	15 * - Debug log: Contains detailed information of matching procedure. Can be
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	16 * disabled by undefining NFA_REGEXP_DEBUG_LOG.
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	17 * The first one can also be used without debug mode.
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	18 * The last three are enabled when compiled as debug mode and individually
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	19 * disabled by commenting them out.
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	20 * The log files can get quite big!
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	21 * Do disable all of this when compiling Vim for debugging, undefine DEBUG in
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	22 * regexp.c
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	23 */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	24 #ifdef DEBUG
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	25 # define NFA_REGEXP_ERROR_LOG "nfa_regexp_error.log"
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	26 # define ENABLE_LOG
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	27 # define NFA_REGEXP_DUMP_LOG "nfa_regexp_dump.log"
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	28 # define NFA_REGEXP_RUN_LOG "nfa_regexp_run.log"
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	29 # define NFA_REGEXP_DEBUG_LOG "nfa_regexp_debug.log"
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	30 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	31
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	32 enum
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	33 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	34 NFA_SPLIT = -1024,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	35 NFA_MATCH,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	36 NFA_SKIP_CHAR, /* matches a 0-length char */
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	37
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	38 NFA_START_COLL, /* [abc] start */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	39 NFA_END_COLL, /* [abc] end */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	40 NFA_START_NEG_COLL, /* [^abc] start */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	41 NFA_END_NEG_COLL, /* [^abc] end (only used in postfix) */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	42 NFA_RANGE, /* range of the two previous items (only
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	43 * used in postfix) */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	44 NFA_RANGE_MIN, /* low end of a range */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	45 NFA_RANGE_MAX, /* high end of a range */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	46
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	47 NFA_CONCAT, /* concatenate two previous items (only
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	48 * used in postfix) */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	49 NFA_OR,
4675 811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	50 NFA_STAR, /* greedy * */
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	51 NFA_STAR_NONGREEDY, /* non-greedy * */
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	52 NFA_QUEST, /* greedy \? */
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	53 NFA_QUEST_NONGREEDY, /* non-greedy \? */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	54
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	55 NFA_BOL, /* ^ Begin line */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	56 NFA_EOL, /* $ End line */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	57 NFA_BOW, /* \< Begin word */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	58 NFA_EOW, /* \> End word */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	59 NFA_BOF, /* \%^ Begin file */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	60 NFA_EOF, /* \%$ End file */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	61 NFA_NEWL,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	62 NFA_ZSTART, /* Used for \zs */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	63 NFA_ZEND, /* Used for \ze */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	64 NFA_NOPEN, /* Start of subexpression marked with \%( */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	65 NFA_NCLOSE, /* End of subexpr. marked with \%( ... \) */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	66 NFA_START_INVISIBLE,
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	67 NFA_START_INVISIBLE_NEG,
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	68 NFA_START_INVISIBLE_BEFORE,
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	69 NFA_START_INVISIBLE_BEFORE_NEG,
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	70 NFA_START_PATTERN,
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	71 NFA_END_INVISIBLE,
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	72 NFA_END_INVISIBLE_NEG,
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	73 NFA_END_PATTERN,
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	74 NFA_COMPOSING, /* Next nodes in NFA are part of the
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	75 composing multibyte char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	76 NFA_END_COMPOSING, /* End of a composing char in the NFA */
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	77 NFA_OPT_CHARS, /* \%[abc] */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	78
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	79 /* The following are used only in the postfix form, not in the NFA */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	80 NFA_PREV_ATOM_NO_WIDTH, /* Used for \@= */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	81 NFA_PREV_ATOM_NO_WIDTH_NEG, /* Used for \@! */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	82 NFA_PREV_ATOM_JUST_BEFORE, /* Used for \@<= */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	83 NFA_PREV_ATOM_JUST_BEFORE_NEG, /* Used for \@<! */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	84 NFA_PREV_ATOM_LIKE_PATTERN, /* Used for \@> */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	85
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	86 NFA_BACKREF1, /* \1 */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	87 NFA_BACKREF2, /* \2 */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	88 NFA_BACKREF3, /* \3 */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	89 NFA_BACKREF4, /* \4 */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	90 NFA_BACKREF5, /* \5 */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	91 NFA_BACKREF6, /* \6 */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	92 NFA_BACKREF7, /* \7 */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	93 NFA_BACKREF8, /* \8 */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	94 NFA_BACKREF9, /* \9 */
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	95 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	96 NFA_ZREF1, /* \z1 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	97 NFA_ZREF2, /* \z2 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	98 NFA_ZREF3, /* \z3 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	99 NFA_ZREF4, /* \z4 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	100 NFA_ZREF5, /* \z5 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	101 NFA_ZREF6, /* \z6 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	102 NFA_ZREF7, /* \z7 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	103 NFA_ZREF8, /* \z8 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	104 NFA_ZREF9, /* \z9 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	105 #endif
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	106 NFA_SKIP, /* Skip characters */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	107
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	108 NFA_MOPEN,
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	109 NFA_MOPEN1,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	110 NFA_MOPEN2,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	111 NFA_MOPEN3,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	112 NFA_MOPEN4,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	113 NFA_MOPEN5,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	114 NFA_MOPEN6,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	115 NFA_MOPEN7,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	116 NFA_MOPEN8,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	117 NFA_MOPEN9,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	118
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	119 NFA_MCLOSE,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	120 NFA_MCLOSE1,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	121 NFA_MCLOSE2,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	122 NFA_MCLOSE3,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	123 NFA_MCLOSE4,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	124 NFA_MCLOSE5,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	125 NFA_MCLOSE6,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	126 NFA_MCLOSE7,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	127 NFA_MCLOSE8,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	128 NFA_MCLOSE9,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	129
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	130 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	131 NFA_ZOPEN,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	132 NFA_ZOPEN1,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	133 NFA_ZOPEN2,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	134 NFA_ZOPEN3,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	135 NFA_ZOPEN4,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	136 NFA_ZOPEN5,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	137 NFA_ZOPEN6,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	138 NFA_ZOPEN7,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	139 NFA_ZOPEN8,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	140 NFA_ZOPEN9,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	141
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	142 NFA_ZCLOSE,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	143 NFA_ZCLOSE1,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	144 NFA_ZCLOSE2,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	145 NFA_ZCLOSE3,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	146 NFA_ZCLOSE4,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	147 NFA_ZCLOSE5,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	148 NFA_ZCLOSE6,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	149 NFA_ZCLOSE7,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	150 NFA_ZCLOSE8,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	151 NFA_ZCLOSE9,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	152 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	153
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	154 /* NFA_FIRST_NL */
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	155 NFA_ANY, /* Match any one character. */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	156 NFA_ANYOF, /* Match any character in this string. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	157 NFA_ANYBUT, /* Match any character not in this string. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	158 NFA_IDENT, /* Match identifier char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	159 NFA_SIDENT, /* Match identifier char but no digit */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	160 NFA_KWORD, /* Match keyword char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	161 NFA_SKWORD, /* Match word char but no digit */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	162 NFA_FNAME, /* Match file name char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	163 NFA_SFNAME, /* Match file name char but no digit */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	164 NFA_PRINT, /* Match printable char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	165 NFA_SPRINT, /* Match printable char but no digit */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	166 NFA_WHITE, /* Match whitespace char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	167 NFA_NWHITE, /* Match non-whitespace char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	168 NFA_DIGIT, /* Match digit char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	169 NFA_NDIGIT, /* Match non-digit char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	170 NFA_HEX, /* Match hex char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	171 NFA_NHEX, /* Match non-hex char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	172 NFA_OCTAL, /* Match octal char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	173 NFA_NOCTAL, /* Match non-octal char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	174 NFA_WORD, /* Match word char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	175 NFA_NWORD, /* Match non-word char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	176 NFA_HEAD, /* Match head char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	177 NFA_NHEAD, /* Match non-head char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	178 NFA_ALPHA, /* Match alpha char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	179 NFA_NALPHA, /* Match non-alpha char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	180 NFA_LOWER, /* Match lowercase char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	181 NFA_NLOWER, /* Match non-lowercase char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	182 NFA_UPPER, /* Match uppercase char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	183 NFA_NUPPER, /* Match non-uppercase char */
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	184
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	185 NFA_CURSOR, /* Match cursor pos */
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	186 NFA_LNUM, /* Match line number */
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	187 NFA_LNUM_GT, /* Match > line number */
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	188 NFA_LNUM_LT, /* Match < line number */
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	189 NFA_COL, /* Match cursor column */
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	190 NFA_COL_GT, /* Match > cursor column */
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	191 NFA_COL_LT, /* Match < cursor column */
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	192 NFA_VCOL, /* Match cursor virtual column */
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	193 NFA_VCOL_GT, /* Match > cursor virtual column */
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	194 NFA_VCOL_LT, /* Match < cursor virtual column */
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	195 NFA_MARK, /* Match mark */
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	196 NFA_MARK_GT, /* Match > mark */
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	197 NFA_MARK_LT, /* Match < mark */
4730 749e2b2755d5 updated for version 7.3.1112 Bram Moolenaar <bram@vim.org> parents: 4728 diff changeset	198 NFA_VISUAL, /* Match Visual area */
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	199
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	200 NFA_FIRST_NL = NFA_ANY + ADD_NL,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	201 NFA_LAST_NL = NFA_NUPPER + ADD_NL,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	202
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	203 /* Character classes [:alnum:] etc */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	204 NFA_CLASS_ALNUM,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	205 NFA_CLASS_ALPHA,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	206 NFA_CLASS_BLANK,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	207 NFA_CLASS_CNTRL,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	208 NFA_CLASS_DIGIT,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	209 NFA_CLASS_GRAPH,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	210 NFA_CLASS_LOWER,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	211 NFA_CLASS_PRINT,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	212 NFA_CLASS_PUNCT,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	213 NFA_CLASS_SPACE,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	214 NFA_CLASS_UPPER,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	215 NFA_CLASS_XDIGIT,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	216 NFA_CLASS_TAB,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	217 NFA_CLASS_RETURN,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	218 NFA_CLASS_BACKSPACE,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	219 NFA_CLASS_ESCAPE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	220 };
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	221
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	222 /* Keep in sync with classchars. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	223 static int nfa_classcodes[] = {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	224 NFA_ANY, NFA_IDENT, NFA_SIDENT, NFA_KWORD,NFA_SKWORD,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	225 NFA_FNAME, NFA_SFNAME, NFA_PRINT, NFA_SPRINT,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	226 NFA_WHITE, NFA_NWHITE, NFA_DIGIT, NFA_NDIGIT,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	227 NFA_HEX, NFA_NHEX, NFA_OCTAL, NFA_NOCTAL,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	228 NFA_WORD, NFA_NWORD, NFA_HEAD, NFA_NHEAD,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	229 NFA_ALPHA, NFA_NALPHA, NFA_LOWER, NFA_NLOWER,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	230 NFA_UPPER, NFA_NUPPER
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	231 };
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	232
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	233 static char_u e_misplaced[] = N_("E866: (NFA regexp) Misplaced %c");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	234
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	235 /* NFA regexp \ze operator encountered. */
4569 f262fb02889d updated for version 7.3.1032 Bram Moolenaar <bram@vim.org> parents: 4567 diff changeset	236 static int nfa_has_zend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	237
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	238 /* NFA regexp \1 .. \9 encountered. */
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	239 static int nfa_has_backref;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	240
4720 bd6bef0bd0fb updated for version 7.3.1107 Bram Moolenaar <bram@vim.org> parents: 4718 diff changeset	241 #ifdef FEAT_SYN_HL
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	242 /* NFA regexp has \z( ), set zsubexpr. */
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	243 static int nfa_has_zsubexpr;
4720 bd6bef0bd0fb updated for version 7.3.1107 Bram Moolenaar <bram@vim.org> parents: 4718 diff changeset	244 #endif
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	245
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	246 /* Number of sub expressions actually being used during execution. 1 if only
4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	247 * the whole match (subexpr 0) is used. */
4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	248 static int nfa_nsubexpr;
4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	249
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	250 static int post_start; / holds the postfix form of r.e. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	251 static int *post_end;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	252 static int *post_ptr;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	253
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	254 static int nstate; /* Number of states in the NFA. Also used when
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	255 * executing. */
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	256 static int istate; /* Index in the state vector, used in alloc_state() */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	257
4694 efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	258 /* If not NULL match must end at this position */
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	259 static save_se_T *nfa_endp = NULL;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	260
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	261 /* listid is global, so that it increases on recursive calls to
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	262 * nfa_regmatch(), which means we don't have to clear the lastlist field of
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	263 * all the states. */
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	264 static int nfa_listid;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	265 static int nfa_alt_listid;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	266
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	267 /* 0 for first call to nfa_regmatch(), 1 for recursive call. */
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	268 static int nfa_ll_index = 0;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	269
4770 b20dbf3a5370 updated for version 7.3.1132 Bram Moolenaar <bram@vim.org> parents: 4768 diff changeset	270 static int nfa_regcomp_start __ARGS((char_u *expr, int re_flags));
4772 03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	271 static int nfa_get_reganch __ARGS((nfa_state_T *start, int depth));
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	272 static int nfa_get_regstart __ARGS((nfa_state_T *start, int depth));
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	273 static int nfa_recognize_char_class __ARGS((char_u start, char_u end, int extra_newl));
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	274 static int nfa_emit_equi_class __ARGS((int c));
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	275 static int nfa_regatom __ARGS((void));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	276 static int nfa_regpiece __ARGS((void));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	277 static int nfa_regconcat __ARGS((void));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	278 static int nfa_regbranch __ARGS((void));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	279 static int nfa_reg __ARGS((int paren));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	280 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	281 static void nfa_set_code __ARGS((int c));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	282 static void nfa_postfix_dump __ARGS((char_u *expr, int retval));
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	283 static void nfa_print_state __ARGS((FILE debugf, nfa_state_T state));
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	284 static void nfa_print_state2 __ARGS((FILE debugf, nfa_state_T state, garray_T *indent));
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	285 static void nfa_dump __ARGS((nfa_regprog_T *prog));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	286 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	287 static int *re2post __ARGS((void));
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	288 static nfa_state_T alloc_state __ARGS((int c, nfa_state_T out, nfa_state_T *out1));
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	289 static nfa_state_T post2nfa __ARGS((int postfix, int *end, int nfa_calc_size));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	290 static int check_char_class __ARGS((int class, int c));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	291 static void st_error __ARGS((int postfix, int end, int *p));
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	292 static void nfa_save_listids __ARGS((nfa_regprog_T prog, int list));
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	293 static void nfa_restore_listids __ARGS((nfa_regprog_T prog, int list));
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	294 static int nfa_re_num_cmp __ARGS((long_u val, int op, long_u pos));
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	295 static long nfa_regtry __ARGS((nfa_regprog_T *prog, colnr_T col));
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	296 static long nfa_regexec_both __ARGS((char_u *line, colnr_T col));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	297 static regprog_T nfa_regcomp __ARGS((char_u expr, int re_flags));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	298 static int nfa_regexec __ARGS((regmatch_T rmp, char_u line, colnr_T col));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	299 static long nfa_regexec_multi __ARGS((regmmatch_T rmp, win_T win, buf_T buf, linenr_T lnum, colnr_T col, proftime_T tm));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	300
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	301 /* helper functions used when doing re2post() ... regatom() parsing */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	302 #define EMIT(c) do { \
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	303 if (post_ptr >= post_end && realloc_post_list() == FAIL) \
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	304 return FAIL; \
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	305 *post_ptr++ = c; \
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	306 } while (0)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	307
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	308 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	309 * Initialize internal variables before NFA compilation.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	310 * Return OK on success, FAIL otherwise.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	311 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	312 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	313 nfa_regcomp_start(expr, re_flags)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	314 char_u *expr;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	315 int re_flags; /* see vim_regcomp() */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	316 {
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	317 size_t postfix_size;
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	318 int nstate_max;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	319
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	320 nstate = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	321 istate = 0;
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	322 /* A reasonable estimation for maximum size */
4673 05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	323 nstate_max = (int)(STRLEN(expr) + 1) * 25;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	324
4454 44b89b025cdf updated for version 7.3.975 Bram Moolenaar <bram@vim.org> parents: 4450 diff changeset	325 /* Some items blow up in size, such as [A-z]. Add more space for that.
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	326 * When it is still not enough realloc_post_list() will be used. */
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	327 nstate_max += 1000;
4454 44b89b025cdf updated for version 7.3.975 Bram Moolenaar <bram@vim.org> parents: 4450 diff changeset	328
44b89b025cdf updated for version 7.3.975 Bram Moolenaar <bram@vim.org> parents: 4450 diff changeset	329 /* Size for postfix representation of expr. */
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	330 postfix_size = sizeof(int) * nstate_max;
4454 44b89b025cdf updated for version 7.3.975 Bram Moolenaar <bram@vim.org> parents: 4450 diff changeset	331
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	332 post_start = (int *)lalloc(postfix_size, TRUE);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	333 if (post_start == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	334 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	335 post_ptr = post_start;
4454 44b89b025cdf updated for version 7.3.975 Bram Moolenaar <bram@vim.org> parents: 4450 diff changeset	336 post_end = post_start + nstate_max;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	337 nfa_has_zend = FALSE;
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	338 nfa_has_backref = FALSE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	339
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	340 /* shared with BT engine */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	341 regcomp_start(expr, re_flags);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	342
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	343 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	344 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	345
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	346 /*
4772 03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	347 * Figure out if the NFA state list starts with an anchor, must match at start
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	348 * of the line.
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	349 */
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	350 static int
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	351 nfa_get_reganch(start, depth)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	352 nfa_state_T *start;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	353 int depth;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	354 {
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	355 nfa_state_T *p = start;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	356
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	357 if (depth > 4)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	358 return 0;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	359
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	360 while (p != NULL)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	361 {
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	362 switch (p->c)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	363 {
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	364 case NFA_BOL:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	365 case NFA_BOF:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	366 return 1; /* yes! */
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	367
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	368 case NFA_ZSTART:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	369 case NFA_ZEND:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	370 case NFA_CURSOR:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	371 case NFA_VISUAL:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	372
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	373 case NFA_MOPEN:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	374 case NFA_MOPEN1:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	375 case NFA_MOPEN2:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	376 case NFA_MOPEN3:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	377 case NFA_MOPEN4:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	378 case NFA_MOPEN5:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	379 case NFA_MOPEN6:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	380 case NFA_MOPEN7:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	381 case NFA_MOPEN8:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	382 case NFA_MOPEN9:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	383 case NFA_NOPEN:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	384 #ifdef FEAT_SYN_HL
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	385 case NFA_ZOPEN:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	386 case NFA_ZOPEN1:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	387 case NFA_ZOPEN2:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	388 case NFA_ZOPEN3:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	389 case NFA_ZOPEN4:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	390 case NFA_ZOPEN5:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	391 case NFA_ZOPEN6:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	392 case NFA_ZOPEN7:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	393 case NFA_ZOPEN8:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	394 case NFA_ZOPEN9:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	395 #endif
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	396 p = p->out;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	397 break;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	398
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	399 case NFA_SPLIT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	400 return nfa_get_reganch(p->out, depth + 1)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	401 && nfa_get_reganch(p->out1, depth + 1);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	402
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	403 default:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	404 return 0; /* noooo */
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	405 }
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	406 }
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	407 return 0;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	408 }
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	409
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	410 /*
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	411 * Figure out if the NFA state list starts with a character which must match
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	412 * at start of the match.
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	413 */
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	414 static int
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	415 nfa_get_regstart(start, depth)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	416 nfa_state_T *start;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	417 int depth;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	418 {
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	419 nfa_state_T *p = start;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	420
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	421 if (depth > 4)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	422 return 0;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	423
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	424 while (p != NULL)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	425 {
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	426 switch (p->c)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	427 {
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	428 /* all kinds of zero-width matches */
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	429 case NFA_BOL:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	430 case NFA_BOF:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	431 case NFA_BOW:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	432 case NFA_EOW:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	433 case NFA_ZSTART:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	434 case NFA_ZEND:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	435 case NFA_CURSOR:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	436 case NFA_VISUAL:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	437 case NFA_LNUM:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	438 case NFA_LNUM_GT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	439 case NFA_LNUM_LT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	440 case NFA_COL:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	441 case NFA_COL_GT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	442 case NFA_COL_LT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	443 case NFA_VCOL:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	444 case NFA_VCOL_GT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	445 case NFA_VCOL_LT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	446 case NFA_MARK:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	447 case NFA_MARK_GT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	448 case NFA_MARK_LT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	449
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	450 case NFA_MOPEN:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	451 case NFA_MOPEN1:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	452 case NFA_MOPEN2:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	453 case NFA_MOPEN3:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	454 case NFA_MOPEN4:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	455 case NFA_MOPEN5:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	456 case NFA_MOPEN6:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	457 case NFA_MOPEN7:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	458 case NFA_MOPEN8:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	459 case NFA_MOPEN9:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	460 case NFA_NOPEN:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	461 #ifdef FEAT_SYN_HL
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	462 case NFA_ZOPEN:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	463 case NFA_ZOPEN1:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	464 case NFA_ZOPEN2:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	465 case NFA_ZOPEN3:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	466 case NFA_ZOPEN4:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	467 case NFA_ZOPEN5:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	468 case NFA_ZOPEN6:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	469 case NFA_ZOPEN7:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	470 case NFA_ZOPEN8:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	471 case NFA_ZOPEN9:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	472 #endif
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	473 p = p->out;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	474 break;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	475
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	476 case NFA_SPLIT:
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	477 {
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	478 int c1 = nfa_get_regstart(p->out, depth + 1);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	479 int c2 = nfa_get_regstart(p->out1, depth + 1);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	480
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	481 if (c1 == c2)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	482 return c1; /* yes! */
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	483 return 0;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	484 }
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	485
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	486 default:
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	487 if (p->c > 0)
4772 03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	488 return p->c; /* yes! */
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	489 return 0;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	490 }
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	491 }
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	492 return 0;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	493 }
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	494
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	495 /*
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	496 * Allocate more space for post_start. Called when
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	497 * running above the estimated number of states.
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	498 */
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	499 static int
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	500 realloc_post_list()
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	501 {
4667 9e7ef781d494 updated for version 7.3.1081 Bram Moolenaar <bram@vim.org> parents: 4661 diff changeset	502 int nstate_max = (int)(post_end - post_start);
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	503 int new_max = nstate_max + 1000;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	504 int *new_start;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	505 int *old_start;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	506
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	507 new_start = (int )lalloc(new_max sizeof(int), TRUE);
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	508 if (new_start == NULL)
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	509 return FAIL;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	510 mch_memmove(new_start, post_start, nstate_max * sizeof(int));
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	511 old_start = post_start;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	512 post_start = new_start;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	513 post_ptr = new_start + (post_ptr - old_start);
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	514 post_end = post_start + new_max;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	515 vim_free(old_start);
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	516 return OK;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	517 }
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	518
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	519 /*
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	520 * Search between "start" and "end" and try to recognize a
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	521 * character class in expanded form. For example [0-9].
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	522 * On success, return the id the character class to be emitted.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	523 * On failure, return 0 (=FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	524 * Start points to the first char of the range, while end should point
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	525 * to the closing brace.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	526 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	527 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	528 nfa_recognize_char_class(start, end, extra_newl)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	529 char_u *start;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	530 char_u *end;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	531 int extra_newl;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	532 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	533 # define CLASS_not 0x80
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	534 # define CLASS_af 0x40
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	535 # define CLASS_AF 0x20
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	536 # define CLASS_az 0x10
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	537 # define CLASS_AZ 0x08
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	538 # define CLASS_o7 0x04
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	539 # define CLASS_o9 0x02
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	540 # define CLASS_underscore 0x01
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	541
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	542 int newl = FALSE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	543 char_u *p;
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	544 int config = 0;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	545
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	546 if (extra_newl == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	547 newl = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	548
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	549 if (*end != ']')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	550 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	551 p = start;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	552 if (*p == '^')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	553 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	554 config \|= CLASS_not;
4720 bd6bef0bd0fb updated for version 7.3.1107 Bram Moolenaar <bram@vim.org> parents: 4718 diff changeset	555 p++;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	556 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	557
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	558 while (p < end)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	559 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	560 if (p + 2 < end && *(p + 1) == '-')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	561 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	562 switch (*p)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	563 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	564 case '0':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	565 if (*(p + 2) == '9')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	566 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	567 config \|= CLASS_o9;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	568 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	569 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	570 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	571 if (*(p + 2) == '7')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	572 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	573 config \|= CLASS_o7;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	574 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	575 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	576 case 'a':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	577 if (*(p + 2) == 'z')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	578 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	579 config \|= CLASS_az;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	580 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	581 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	582 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	583 if (*(p + 2) == 'f')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	584 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	585 config \|= CLASS_af;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	586 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	587 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	588 case 'A':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	589 if (*(p + 2) == 'Z')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	590 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	591 config \|= CLASS_AZ;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	592 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	593 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	594 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	595 if (*(p + 2) == 'F')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	596 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	597 config \|= CLASS_AF;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	598 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	599 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	600 /* FALLTHROUGH */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	601 default:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	602 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	603 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	604 p += 3;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	605 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	606 else if (p + 1 < end && p == '\\' && (p + 1) == 'n')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	607 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	608 newl = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	609 p += 2;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	610 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	611 else if (*p == '_')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	612 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	613 config \|= CLASS_underscore;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	614 p ++;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	615 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	616 else if (*p == '\n')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	617 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	618 newl = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	619 p ++;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	620 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	621 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	622 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	623 } /* while (p < end) */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	624
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	625 if (p != end)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	626 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	627
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	628 if (newl == TRUE)
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	629 extra_newl = ADD_NL;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	630
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	631 switch (config)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	632 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	633 case CLASS_o9:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	634 return extra_newl + NFA_DIGIT;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	635 case CLASS_not \| CLASS_o9:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	636 return extra_newl + NFA_NDIGIT;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	637 case CLASS_af \| CLASS_AF \| CLASS_o9:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	638 return extra_newl + NFA_HEX;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	639 case CLASS_not \| CLASS_af \| CLASS_AF \| CLASS_o9:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	640 return extra_newl + NFA_NHEX;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	641 case CLASS_o7:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	642 return extra_newl + NFA_OCTAL;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	643 case CLASS_not \| CLASS_o7:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	644 return extra_newl + NFA_NOCTAL;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	645 case CLASS_az \| CLASS_AZ \| CLASS_o9 \| CLASS_underscore:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	646 return extra_newl + NFA_WORD;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	647 case CLASS_not \| CLASS_az \| CLASS_AZ \| CLASS_o9 \| CLASS_underscore:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	648 return extra_newl + NFA_NWORD;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	649 case CLASS_az \| CLASS_AZ \| CLASS_underscore:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	650 return extra_newl + NFA_HEAD;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	651 case CLASS_not \| CLASS_az \| CLASS_AZ \| CLASS_underscore:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	652 return extra_newl + NFA_NHEAD;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	653 case CLASS_az \| CLASS_AZ:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	654 return extra_newl + NFA_ALPHA;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	655 case CLASS_not \| CLASS_az \| CLASS_AZ:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	656 return extra_newl + NFA_NALPHA;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	657 case CLASS_az:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	658 return extra_newl + NFA_LOWER;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	659 case CLASS_not \| CLASS_az:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	660 return extra_newl + NFA_NLOWER;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	661 case CLASS_AZ:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	662 return extra_newl + NFA_UPPER;
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	663 case CLASS_not \| CLASS_AZ:
43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	664 return extra_newl + NFA_NUPPER;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	665 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	666 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	667 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	668
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	669 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	670 * Produce the bytes for equivalence class "c".
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	671 * Currently only handles latin1, latin9 and utf-8.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	672 * Emits bytes in postfix notation: 'a,b,NFA_OR,c,NFA_OR' is
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	673 * equivalent to 'a OR b OR c'
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	674 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	675 * NOTE! When changing this function, also update reg_equi_class()
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	676 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	677 static int
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	678 nfa_emit_equi_class(c)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	679 int c;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	680 {
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	681 #define EMIT2(c) EMIT(c); EMIT(NFA_CONCAT);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	682
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	683 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	684 if (enc_utf8 \|\| STRCMP(p_enc, "latin1") == 0
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	685 \|\| STRCMP(p_enc, "iso-8859-15") == 0)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	686 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	687 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	688 switch (c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	689 {
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	690 case 'A': case 0300: case 0301: case 0302:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	691 case 0303: case 0304: case 0305:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	692 EMIT2('A'); EMIT2(0300); EMIT2(0301);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	693 EMIT2(0302); EMIT2(0303); EMIT2(0304);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	694 EMIT2(0305);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	695 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	696
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	697 case 'C': case 0307:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	698 EMIT2('C'); EMIT2(0307);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	699 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	700
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	701 case 'E': case 0310: case 0311: case 0312: case 0313:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	702 EMIT2('E'); EMIT2(0310); EMIT2(0311);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	703 EMIT2(0312); EMIT2(0313);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	704 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	705
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	706 case 'I': case 0314: case 0315: case 0316: case 0317:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	707 EMIT2('I'); EMIT2(0314); EMIT2(0315);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	708 EMIT2(0316); EMIT2(0317);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	709 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	710
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	711 case 'N': case 0321:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	712 EMIT2('N'); EMIT2(0321);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	713 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	714
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	715 case 'O': case 0322: case 0323: case 0324: case 0325:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	716 case 0326:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	717 EMIT2('O'); EMIT2(0322); EMIT2(0323);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	718 EMIT2(0324); EMIT2(0325); EMIT2(0326);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	719 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	720
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	721 case 'U': case 0331: case 0332: case 0333: case 0334:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	722 EMIT2('U'); EMIT2(0331); EMIT2(0332);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	723 EMIT2(0333); EMIT2(0334);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	724 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	725
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	726 case 'Y': case 0335:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	727 EMIT2('Y'); EMIT2(0335);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	728 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	729
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	730 case 'a': case 0340: case 0341: case 0342:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	731 case 0343: case 0344: case 0345:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	732 EMIT2('a'); EMIT2(0340); EMIT2(0341);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	733 EMIT2(0342); EMIT2(0343); EMIT2(0344);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	734 EMIT2(0345);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	735 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	736
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	737 case 'c': case 0347:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	738 EMIT2('c'); EMIT2(0347);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	739 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	740
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	741 case 'e': case 0350: case 0351: case 0352: case 0353:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	742 EMIT2('e'); EMIT2(0350); EMIT2(0351);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	743 EMIT2(0352); EMIT2(0353);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	744 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	745
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	746 case 'i': case 0354: case 0355: case 0356: case 0357:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	747 EMIT2('i'); EMIT2(0354); EMIT2(0355);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	748 EMIT2(0356); EMIT2(0357);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	749 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	750
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	751 case 'n': case 0361:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	752 EMIT2('n'); EMIT2(0361);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	753 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	754
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	755 case 'o': case 0362: case 0363: case 0364: case 0365:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	756 case 0366:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	757 EMIT2('o'); EMIT2(0362); EMIT2(0363);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	758 EMIT2(0364); EMIT2(0365); EMIT2(0366);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	759 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	760
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	761 case 'u': case 0371: case 0372: case 0373: case 0374:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	762 EMIT2('u'); EMIT2(0371); EMIT2(0372);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	763 EMIT2(0373); EMIT2(0374);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	764 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	765
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	766 case 'y': case 0375: case 0377:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	767 EMIT2('y'); EMIT2(0375); EMIT2(0377);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	768 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	769
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	770 default:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	771 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	772 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	773 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	774
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	775 EMIT(c);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	776 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	777 #undef EMIT2
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	778 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	779
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	780 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	781 * Code to parse regular expression.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	782 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	783 * We try to reuse parsing functions in regexp.c to
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	784 * minimize surprise and keep the syntax consistent.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	785 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	786
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	787 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	788 * Parse the lowest level.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	789 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	790 * An atom can be one of a long list of items. Many atoms match one character
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	791 * in the text. It is often an ordinary character or a character class.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	792 * Braces can be used to make a pattern into an atom. The "\z(\)" construct
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	793 * is only for syntax highlighting.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	794 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	795 * atom ::= ordinary-atom
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	796 * or $ pattern $
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	797 * or \%( pattern \)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	798 * or \z( pattern \)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	799 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	800 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	801 nfa_regatom()
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	802 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	803 int c;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	804 int charclass;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	805 int equiclass;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	806 int collclass;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	807 int got_coll_char;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	808 char_u *p;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	809 char_u *endp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	810 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	811 char_u *old_regparse = regparse;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	812 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	813 int extra = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	814 int emit_range;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	815 int negated;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	816 int result;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	817 int startc = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	818 int endc = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	819 int oldstartc = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	820
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	821 c = getchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	822 switch (c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	823 {
4543 08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	824 case NUL:
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	825 EMSG_RET_FAIL(_("E865: (NFA) Regexp end encountered prematurely"));
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	826
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	827 case Magic('^'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	828 EMIT(NFA_BOL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	829 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	830
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	831 case Magic('$'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	832 EMIT(NFA_EOL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	833 #if defined(FEAT_SYN_HL) \|\| defined(PROTO)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	834 had_eol = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	835 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	836 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	837
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	838 case Magic('<'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	839 EMIT(NFA_BOW);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	840 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	841
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	842 case Magic('>'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	843 EMIT(NFA_EOW);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	844 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	845
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	846 case Magic('_'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	847 c = no_Magic(getchr());
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	848 if (c == '^') /* "\_^" is start-of-line */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	849 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	850 EMIT(NFA_BOL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	851 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	852 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	853 if (c == '$') /* "\_$" is end-of-line */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	854 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	855 EMIT(NFA_EOL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	856 #if defined(FEAT_SYN_HL) \|\| defined(PROTO)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	857 had_eol = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	858 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	859 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	860 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	861
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	862 extra = ADD_NL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	863
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	864 /* "\_[" is collection plus newline */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	865 if (c == '[')
4517 9a2183bd8295 updated for version 7.3.1006 Bram Moolenaar <bram@vim.org> parents: 4515 diff changeset	866 goto collection;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	867
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	868 /* "\_x" is character class plus newline */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	869 /FALLTHROUGH/
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	870
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	871 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	872 * Character classes.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	873 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	874 case Magic('.'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	875 case Magic('i'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	876 case Magic('I'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	877 case Magic('k'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	878 case Magic('K'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	879 case Magic('f'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	880 case Magic('F'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	881 case Magic('p'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	882 case Magic('P'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	883 case Magic('s'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	884 case Magic('S'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	885 case Magic('d'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	886 case Magic('D'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	887 case Magic('x'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	888 case Magic('X'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	889 case Magic('o'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	890 case Magic('O'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	891 case Magic('w'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	892 case Magic('W'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	893 case Magic('h'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	894 case Magic('H'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	895 case Magic('a'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	896 case Magic('A'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	897 case Magic('l'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	898 case Magic('L'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	899 case Magic('u'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	900 case Magic('U'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	901 p = vim_strchr(classchars, no_Magic(c));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	902 if (p == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	903 {
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	904 EMSGN("INTERNAL: Unknown character class char: %ld", c);
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	905 return FAIL;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	906 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	907 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	908 /* When '.' is followed by a composing char ignore the dot, so that
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	909 * the composing char is matched here. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	910 if (enc_utf8 && c == Magic('.') && utf_iscomposing(peekchr()))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	911 {
4535 45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	912 old_regparse = regparse;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	913 c = getchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	914 goto nfa_do_multibyte;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	915 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	916 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	917 EMIT(nfa_classcodes[p - classchars]);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	918 if (extra == ADD_NL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	919 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	920 EMIT(NFA_NEWL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	921 EMIT(NFA_OR);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	922 regflags \|= RF_HASNL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	923 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	924 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	925
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	926 case Magic('n'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	927 if (reg_string)
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	928 /* In a string "\n" matches a newline character. */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	929 EMIT(NL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	930 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	931 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	932 /* In buffer text "\n" matches the end of a line. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	933 EMIT(NFA_NEWL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	934 regflags \|= RF_HASNL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	935 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	936 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	937
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	938 case Magic('('):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	939 if (nfa_reg(REG_PAREN) == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	940 return FAIL; /* cascaded error */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	941 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	942
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	943 case Magic('\|'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	944 case Magic('&'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	945 case Magic(')'):
4450 09e1e574a52d updated for version 7.3.973 Bram Moolenaar <bram@vim.org> parents: 4444 diff changeset	946 EMSGN(_(e_misplaced), no_Magic(c));
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	947 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	948
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	949 case Magic('='):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	950 case Magic('?'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	951 case Magic('+'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	952 case Magic('@'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	953 case Magic('*'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	954 case Magic('{'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	955 /* these should follow an atom, not form an atom */
4450 09e1e574a52d updated for version 7.3.973 Bram Moolenaar <bram@vim.org> parents: 4444 diff changeset	956 EMSGN(_(e_misplaced), no_Magic(c));
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	957 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	958
4714 fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	959 case Magic('~'):
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	960 {
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	961 char_u *lp;
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	962
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	963 /* Previous substitute pattern.
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	964 * Generated as "\%(pattern\)". */
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	965 if (reg_prev_sub == NULL)
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	966 {
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	967 EMSG(_(e_nopresub));
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	968 return FAIL;
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	969 }
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	970 for (lp = reg_prev_sub; *lp != NUL; mb_cptr_adv(lp))
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	971 {
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	972 EMIT(PTR2CHAR(lp));
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	973 if (lp != reg_prev_sub)
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	974 EMIT(NFA_CONCAT);
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	975 }
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	976 EMIT(NFA_NOPEN);
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	977 break;
fc4d7f02ea3a updated for version 7.3.1104 Bram Moolenaar <bram@vim.org> parents: 4712 diff changeset	978 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	979
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	980 case Magic('1'):
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	981 case Magic('2'):
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	982 case Magic('3'):
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	983 case Magic('4'):
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	984 case Magic('5'):
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	985 case Magic('6'):
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	986 case Magic('7'):
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	987 case Magic('8'):
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	988 case Magic('9'):
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	989 EMIT(NFA_BACKREF1 + (no_Magic(c) - '1'));
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	990 nfa_has_backref = TRUE;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	991 break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	992
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	993 case Magic('z'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	994 c = no_Magic(getchr());
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	995 switch (c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	996 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	997 case 's':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	998 EMIT(NFA_ZSTART);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	999 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1000 case 'e':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1001 EMIT(NFA_ZEND);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1002 nfa_has_zend = TRUE;
4569 f262fb02889d updated for version 7.3.1032 Bram Moolenaar <bram@vim.org> parents: 4567 diff changeset	1003 break;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1004 #ifdef FEAT_SYN_HL
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1005 case '1':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1006 case '2':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1007 case '3':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1008 case '4':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1009 case '5':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1010 case '6':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1011 case '7':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1012 case '8':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1013 case '9':
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1014 /* \z1...\z9 */
4688 371cc0c44097 updated for version 7.3.1091 Bram Moolenaar <bram@vim.org> parents: 4686 diff changeset	1015 if (reg_do_extmatch != REX_USE)
371cc0c44097 updated for version 7.3.1091 Bram Moolenaar <bram@vim.org> parents: 4686 diff changeset	1016 EMSG_RET_FAIL(_(e_z1_not_allowed));
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1017 EMIT(NFA_ZREF1 + (no_Magic(c) - '1'));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1018 /* No need to set nfa_has_backref, the sub-matches don't
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	1019 * change when \z1 .. \z9 matches or not. */
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1020 re_has_z = REX_USE;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1021 break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1022 case '(':
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1023 /* \z( */
4688 371cc0c44097 updated for version 7.3.1091 Bram Moolenaar <bram@vim.org> parents: 4686 diff changeset	1024 if (reg_do_extmatch != REX_SET)
371cc0c44097 updated for version 7.3.1091 Bram Moolenaar <bram@vim.org> parents: 4686 diff changeset	1025 EMSG_RET_FAIL(_(e_z_not_allowed));
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1026 if (nfa_reg(REG_ZPAREN) == FAIL)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1027 return FAIL; /* cascaded error */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1028 re_has_z = REX_SET;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1029 break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1030 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1031 default:
4450 09e1e574a52d updated for version 7.3.973 Bram Moolenaar <bram@vim.org> parents: 4444 diff changeset	1032 EMSGN(_("E867: (NFA) Unknown operator '\\z%c'"),
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1033 no_Magic(c));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1034 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1035 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1036 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1037
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1038 case Magic('%'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1039 c = no_Magic(getchr());
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1040 switch (c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1041 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1042 /* () without a back reference */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1043 case '(':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1044 if (nfa_reg(REG_NPAREN) == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1045 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1046 EMIT(NFA_NOPEN);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1047 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1048
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1049 case 'd': /* %d123 decimal */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1050 case 'o': /* %o123 octal */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1051 case 'x': /* %xab hex 2 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1052 case 'u': /* %uabcd hex 4 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1053 case 'U': /* %U1234abcd hex 8 */
4543 08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1054 {
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1055 int nr;
4543 08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1056
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1057 switch (c)
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1058 {
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1059 case 'd': nr = getdecchrs(); break;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1060 case 'o': nr = getoctchrs(); break;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1061 case 'x': nr = gethexchrs(2); break;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1062 case 'u': nr = gethexchrs(4); break;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1063 case 'U': nr = gethexchrs(8); break;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1064 default: nr = -1; break;
4543 08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1065 }
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1066
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1067 if (nr < 0)
4543 08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1068 EMSG2_RET_FAIL(
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1069 _("E678: Invalid character after %s%%[dxouU]"),
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1070 reg_magic == MAGIC_ALL);
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1071 /* TODO: what if a composing character follows? */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1072 EMIT(nr);
4543 08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1073 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1074 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1075
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1076 /* Catch \%^ and \%$ regardless of where they appear in the
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1077 * pattern -- regardless of whether or not it makes sense. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1078 case '^':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1079 EMIT(NFA_BOF);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1080 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1081
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1082 case '$':
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1083 EMIT(NFA_EOF);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1084 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1085
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1086 case '#':
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1087 EMIT(NFA_CURSOR);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1088 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1089
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1090 case 'V':
4730 749e2b2755d5 updated for version 7.3.1112 Bram Moolenaar <bram@vim.org> parents: 4728 diff changeset	1091 EMIT(NFA_VISUAL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1092 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1093
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1094 case '[':
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1095 {
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1096 int n;
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1097
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1098 /* \%[abc] */
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1099 for (n = 0; (c = getchr()) != ']'; ++n)
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1100 {
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1101 if (c == NUL)
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1102 EMSG2_RET_FAIL(_(e_missing_sb),
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1103 reg_magic == MAGIC_ALL);
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1104 EMIT(c);
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1105 }
4760 532a9855bd30 updated for version 7.3.1127 Bram Moolenaar <bram@vim.org> parents: 4758 diff changeset	1106 if (n == 0)
532a9855bd30 updated for version 7.3.1127 Bram Moolenaar <bram@vim.org> parents: 4758 diff changeset	1107 EMSG2_RET_FAIL(_(e_empty_sb),
532a9855bd30 updated for version 7.3.1127 Bram Moolenaar <bram@vim.org> parents: 4758 diff changeset	1108 reg_magic == MAGIC_ALL);
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1109 EMIT(NFA_OPT_CHARS);
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1110 EMIT(n);
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1111 break;
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1112 }
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1113
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1114 default:
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1115 {
4655 779ca415f8e1 updated for version 7.3.1075 Bram Moolenaar <bram@vim.org> parents: 4651 diff changeset	1116 int n = 0;
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1117 int cmp = c;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1118
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1119 if (c == '<' \|\| c == '>')
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1120 c = getchr();
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1121 while (VIM_ISDIGIT(c))
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1122 {
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1123 n = n * 10 + (c - '0');
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1124 c = getchr();
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1125 }
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1126 if (c == 'l' \|\| c == 'c' \|\| c == 'v')
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1127 {
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1128 if (c == 'l')
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1129 /* \%{n}l \%{n}<l \%{n}>l */
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1130 EMIT(cmp == '<' ? NFA_LNUM_LT :
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1131 cmp == '>' ? NFA_LNUM_GT : NFA_LNUM);
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1132 else if (c == 'c')
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1133 /* \%{n}c \%{n}<c \%{n}>c */
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1134 EMIT(cmp == '<' ? NFA_COL_LT :
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1135 cmp == '>' ? NFA_COL_GT : NFA_COL);
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1136 else
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1137 /* \%{n}v \%{n}<v \%{n}>v */
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1138 EMIT(cmp == '<' ? NFA_VCOL_LT :
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1139 cmp == '>' ? NFA_VCOL_GT : NFA_VCOL);
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1140 EMIT(n);
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1141 break;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1142 }
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1143 else if (c == '\'' && n == 0)
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1144 {
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1145 /* \%'m \%<'m \%>'m */
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1146 EMIT(cmp == '<' ? NFA_MARK_LT :
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1147 cmp == '>' ? NFA_MARK_GT : NFA_MARK);
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	1148 EMIT(getchr());
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1149 break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	1150 }
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1151 }
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1152 EMSGN(_("E867: (NFA) Unknown operator '\\%%%c'"),
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1153 no_Magic(c));
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1154 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1155 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1156 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1157
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1158 case Magic('['):
4517 9a2183bd8295 updated for version 7.3.1006 Bram Moolenaar <bram@vim.org> parents: 4515 diff changeset	1159 collection:
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1160 /*
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1161 * [abc] uses NFA_START_COLL - NFA_END_COLL
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1162 * [^abc] uses NFA_START_NEG_COLL - NFA_END_NEG_COLL
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1163 * Each character is produced as a regular state, using
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1164 * NFA_CONCAT to bind them together.
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1165 * Besides normal characters there can be:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1166 * - character classes NFA_CLASS_*
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1167 * - ranges, two characters followed by NFA_RANGE.
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1168 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1169
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1170 p = regparse;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1171 endp = skip_anyof(p);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1172 if (*endp == ']')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1173 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1174 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1175 * Try to reverse engineer character classes. For example,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1176 * recognize that [0-9] stands for \d and [A-Za-z_] with \h,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1177 * and perform the necessary substitutions in the NFA.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1178 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1179 result = nfa_recognize_char_class(regparse, endp,
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1180 extra == ADD_NL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1181 if (result != FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1182 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1183 if (result >= NFA_DIGIT && result <= NFA_NUPPER)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1184 EMIT(result);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1185 else /* must be char class + newline */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1186 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1187 EMIT(result - ADD_NL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1188 EMIT(NFA_NEWL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1189 EMIT(NFA_OR);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1190 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1191 regparse = endp;
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1192 mb_ptr_adv(regparse);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1193 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1194 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1195 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1196 * Failed to recognize a character class. Use the simple
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1197 * version that turns [abc] into 'a' OR 'b' OR 'c'
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1198 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1199 startc = endc = oldstartc = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1200 negated = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1201 if (regparse == '^') / negated range */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1202 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1203 negated = TRUE;
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1204 mb_ptr_adv(regparse);
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1205 EMIT(NFA_START_NEG_COLL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1206 }
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1207 else
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1208 EMIT(NFA_START_COLL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1209 if (*regparse == '-')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1210 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1211 startc = '-';
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1212 EMIT(startc);
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1213 EMIT(NFA_CONCAT);
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1214 mb_ptr_adv(regparse);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1215 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1216 /* Emit the OR branches for each character in the [] */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1217 emit_range = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1218 while (regparse < endp)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1219 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1220 oldstartc = startc;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1221 startc = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1222 got_coll_char = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1223 if (*regparse == '[')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1224 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1225 /* Check for [: :], [= =], [. .] */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1226 equiclass = collclass = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1227 charclass = get_char_class(&regparse);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1228 if (charclass == CLASS_NONE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1229 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1230 equiclass = get_equi_class(&regparse);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1231 if (equiclass == 0)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1232 collclass = get_coll_element(&regparse);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1233 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1234
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1235 /* Character class like [:alpha:] */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1236 if (charclass != CLASS_NONE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1237 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1238 switch (charclass)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1239 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1240 case CLASS_ALNUM:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1241 EMIT(NFA_CLASS_ALNUM);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1242 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1243 case CLASS_ALPHA:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1244 EMIT(NFA_CLASS_ALPHA);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1245 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1246 case CLASS_BLANK:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1247 EMIT(NFA_CLASS_BLANK);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1248 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1249 case CLASS_CNTRL:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1250 EMIT(NFA_CLASS_CNTRL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1251 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1252 case CLASS_DIGIT:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1253 EMIT(NFA_CLASS_DIGIT);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1254 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1255 case CLASS_GRAPH:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1256 EMIT(NFA_CLASS_GRAPH);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1257 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1258 case CLASS_LOWER:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1259 EMIT(NFA_CLASS_LOWER);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1260 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1261 case CLASS_PRINT:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1262 EMIT(NFA_CLASS_PRINT);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1263 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1264 case CLASS_PUNCT:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1265 EMIT(NFA_CLASS_PUNCT);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1266 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1267 case CLASS_SPACE:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1268 EMIT(NFA_CLASS_SPACE);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1269 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1270 case CLASS_UPPER:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1271 EMIT(NFA_CLASS_UPPER);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1272 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1273 case CLASS_XDIGIT:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1274 EMIT(NFA_CLASS_XDIGIT);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1275 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1276 case CLASS_TAB:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1277 EMIT(NFA_CLASS_TAB);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1278 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1279 case CLASS_RETURN:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1280 EMIT(NFA_CLASS_RETURN);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1281 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1282 case CLASS_BACKSPACE:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1283 EMIT(NFA_CLASS_BACKSPACE);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1284 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1285 case CLASS_ESCAPE:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1286 EMIT(NFA_CLASS_ESCAPE);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1287 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1288 }
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1289 EMIT(NFA_CONCAT);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1290 continue;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1291 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1292 /* Try equivalence class [=a=] and the like */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1293 if (equiclass != 0)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1294 {
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1295 result = nfa_emit_equi_class(equiclass);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1296 if (result == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1297 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1298 /* should never happen */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1299 EMSG_RET_FAIL(_("E868: Error building NFA with equivalence class!"));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1300 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1301 continue;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1302 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1303 /* Try collating class like [. .] */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1304 if (collclass != 0)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1305 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1306 startc = collclass; /* allow [.a.]-x as a range */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1307 /* Will emit the proper atom at the end of the
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1308 * while loop. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1309 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1310 }
4677 c1622ff9ed8d updated for version 7.3.1086 Bram Moolenaar <bram@vim.org> parents: 4675 diff changeset	1311 /* Try a range like 'a-x' or '\t-z'. Also allows '-' as a
c1622ff9ed8d updated for version 7.3.1086 Bram Moolenaar <bram@vim.org> parents: 4675 diff changeset	1312 * start character. */
c1622ff9ed8d updated for version 7.3.1086 Bram Moolenaar <bram@vim.org> parents: 4675 diff changeset	1313 if (*regparse == '-' && oldstartc != -1)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1314 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1315 emit_range = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1316 startc = oldstartc;
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1317 mb_ptr_adv(regparse);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1318 continue; /* reading the end of the range */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1319 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1320
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1321 /* Now handle simple and escaped characters.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1322 * Only "\]", "\^", "\]" and "\\" are special in Vi. Vim
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1323 * accepts "\t", "\e", etc., but only when the 'l' flag in
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1324 * 'cpoptions' is not included.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1325 * Posix doesn't recognize backslash at all.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1326 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1327 if (*regparse == '\\'
4744 a62695305e03 updated for version 7.3.1119 Bram Moolenaar <bram@vim.org> parents: 4742 diff changeset	1328 && !reg_cpo_bsl
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1329 && regparse + 1 <= endp
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1330 && (vim_strchr(REGEXP_INRANGE, regparse[1]) != NULL
4744 a62695305e03 updated for version 7.3.1119 Bram Moolenaar <bram@vim.org> parents: 4742 diff changeset	1331 \|\| (!reg_cpo_lit
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1332 && vim_strchr(REGEXP_ABBR, regparse[1])
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1333 != NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1334 )
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1335 )
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1336 {
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1337 mb_ptr_adv(regparse);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1338
4507 9dbbddb2ed10 updated for version 7.3.1001 Bram Moolenaar <bram@vim.org> parents: 4503 diff changeset	1339 if (*regparse == 'n')
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1340 startc = reg_string ? NL : NFA_NEWL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1341 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1342 if (*regparse == 'd'
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1343 \|\| *regparse == 'o'
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1344 \|\| *regparse == 'x'
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1345 \|\| *regparse == 'u'
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1346 \|\| *regparse == 'U'
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1347 )
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1348 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1349 /* TODO(RE) This needs more testing */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1350 startc = coll_get_char();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1351 got_coll_char = TRUE;
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1352 mb_ptr_back(old_regparse, regparse);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1353 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1354 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1355 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1356 /* \r,\t,\e,\b */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1357 startc = backslash_trans(*regparse);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1358 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1359 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1360
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1361 /* Normal printable char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1362 if (startc == -1)
4677 c1622ff9ed8d updated for version 7.3.1086 Bram Moolenaar <bram@vim.org> parents: 4675 diff changeset	1363 startc = PTR2CHAR(regparse);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1364
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1365 /* Previous char was '-', so this char is end of range. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1366 if (emit_range)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1367 {
4677 c1622ff9ed8d updated for version 7.3.1086 Bram Moolenaar <bram@vim.org> parents: 4675 diff changeset	1368 endc = startc;
c1622ff9ed8d updated for version 7.3.1086 Bram Moolenaar <bram@vim.org> parents: 4675 diff changeset	1369 startc = oldstartc;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1370 if (startc > endc)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1371 EMSG_RET_FAIL(_(e_invrange));
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1372
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1373 if (endc > startc + 2)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1374 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1375 /* Emit a range instead of the sequence of
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1376 * individual characters. */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1377 if (startc == 0)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1378 /* \x00 is translated to \x0a, start at \x01. */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1379 EMIT(1);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1380 else
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1381 --post_ptr; /* remove NFA_CONCAT */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1382 EMIT(endc);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1383 EMIT(NFA_RANGE);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1384 EMIT(NFA_CONCAT);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1385 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1386 else
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1387 #ifdef FEAT_MBYTE
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1388 if (has_mbyte && ((*mb_char2len)(startc) > 1
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1389 \|\| (*mb_char2len)(endc) > 1))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1390 {
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1391 /* Emit the characters in the range.
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1392 * "startc" was already emitted, so skip it.
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1393 * */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1394 for (c = startc + 1; c <= endc; c++)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1395 {
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1396 EMIT(c);
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1397 EMIT(NFA_CONCAT);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1398 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1399 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1400 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1401 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1402 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1403 #ifdef EBCDIC
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1404 int alpha_only = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1405
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1406 /* for alphabetical range skip the gaps
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1407 * 'i'-'j', 'r'-'s', 'I'-'J' and 'R'-'S'. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1408 if (isalpha(startc) && isalpha(endc))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1409 alpha_only = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1410 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1411 /* Emit the range. "startc" was already emitted, so
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1412 * skip it. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1413 for (c = startc + 1; c <= endc; c++)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1414 #ifdef EBCDIC
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1415 if (!alpha_only \|\| isalpha(startc))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1416 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1417 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1418 EMIT(c);
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1419 EMIT(NFA_CONCAT);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1420 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1421 }
4677 c1622ff9ed8d updated for version 7.3.1086 Bram Moolenaar <bram@vim.org> parents: 4675 diff changeset	1422 emit_range = FALSE;
c1622ff9ed8d updated for version 7.3.1086 Bram Moolenaar <bram@vim.org> parents: 4675 diff changeset	1423 startc = -1;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1424 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1425 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1426 {
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1427 /* This char (startc) is not part of a range. Just
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1428 * emit it.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1429 * Normally, simply emit startc. But if we get char
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1430 * code=0 from a collating char, then replace it with
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1431 * 0x0a.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1432 * This is needed to completely mimic the behaviour of
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1433 * the backtracking engine. */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1434 if (startc == NFA_NEWL)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1435 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1436 /* Line break can't be matched as part of the
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1437 * collection, add an OR below. But not for negated
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1438 * range. */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1439 if (!negated)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1440 extra = ADD_NL;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1441 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1442 else
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1443 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1444 if (got_coll_char == TRUE && startc == 0)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1445 EMIT(0x0a);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1446 else
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1447 EMIT(startc);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1448 EMIT(NFA_CONCAT);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1449 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1450 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1451
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1452 mb_ptr_adv(regparse);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1453 } /* while (p < endp) */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1454
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1455 mb_ptr_back(old_regparse, regparse);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1456 if (regparse == '-') / if last, '-' is just a char */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1457 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1458 EMIT('-');
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1459 EMIT(NFA_CONCAT);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1460 }
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1461 mb_ptr_adv(regparse);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1462
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1463 /* skip the trailing ] */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1464 regparse = endp;
4573 37e444aeb33b updated for version 7.3.1034 Bram Moolenaar <bram@vim.org> parents: 4571 diff changeset	1465 mb_ptr_adv(regparse);
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1466
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1467 /* Mark end of the collection. */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1468 if (negated == TRUE)
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1469 EMIT(NFA_END_NEG_COLL);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1470 else
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	1471 EMIT(NFA_END_COLL);
4615 5679b8ddd8cc updated for version 7.3.1055 Bram Moolenaar <bram@vim.org> parents: 4583 diff changeset	1472
5679b8ddd8cc updated for version 7.3.1055 Bram Moolenaar <bram@vim.org> parents: 4583 diff changeset	1473 /* \_[] also matches \n but it's not negated */
5679b8ddd8cc updated for version 7.3.1055 Bram Moolenaar <bram@vim.org> parents: 4583 diff changeset	1474 if (extra == ADD_NL)
5679b8ddd8cc updated for version 7.3.1055 Bram Moolenaar <bram@vim.org> parents: 4583 diff changeset	1475 {
5679b8ddd8cc updated for version 7.3.1055 Bram Moolenaar <bram@vim.org> parents: 4583 diff changeset	1476 EMIT(reg_string ? NL : NFA_NEWL);
5679b8ddd8cc updated for version 7.3.1055 Bram Moolenaar <bram@vim.org> parents: 4583 diff changeset	1477 EMIT(NFA_OR);
5679b8ddd8cc updated for version 7.3.1055 Bram Moolenaar <bram@vim.org> parents: 4583 diff changeset	1478 }
5679b8ddd8cc updated for version 7.3.1055 Bram Moolenaar <bram@vim.org> parents: 4583 diff changeset	1479
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1480 return OK;
4529 432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	1481 } /* if exists closing ] */
432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	1482
432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	1483 if (reg_strict)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1484 EMSG_RET_FAIL(_(e_missingbracket));
4529 432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	1485 /* FALLTHROUGH */
432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	1486
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1487 default:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1488 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1489 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1490 int plen;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1491
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1492 nfa_do_multibyte:
4543 08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1493 /* plen is length of current char with composing chars */
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1494 if (enc_utf8 && ((*mb_char2len)(c)
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1495 != (plen = (*mb_ptr2len)(old_regparse))
08ac46980953 updated for version 7.3.1019 Bram Moolenaar <bram@vim.org> parents: 4541 diff changeset	1496 \|\| utf_iscomposing(c)))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1497 {
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1498 int i = 0;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	1499
4535 45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	1500 /* A base character plus composing characters, or just one
45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	1501 * or more composing characters.
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1502 * This requires creating a separate atom as if enclosing
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1503 * the characters in (), where NFA_COMPOSING is the ( and
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1504 * NFA_END_COMPOSING is the ). Note that right now we are
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1505 * building the postfix form, not the NFA itself;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1506 * a composing char could be: a, b, c, NFA_COMPOSING
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1507 * where 'b' and 'c' are chars with codes > 256. */
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1508 for (;;)
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1509 {
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1510 EMIT(c);
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1511 if (i > 0)
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1512 EMIT(NFA_CONCAT);
4529 432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	1513 if ((i += utf_char2len(c)) >= plen)
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1514 break;
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1515 c = utf_ptr2char(old_regparse + i);
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1516 }
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	1517 EMIT(NFA_COMPOSING);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1518 regparse = old_regparse + plen;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1519 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1520 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1521 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1522 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1523 c = no_Magic(c);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1524 EMIT(c);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1525 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1526 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1527 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1528 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1529
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1530 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1531 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1532
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1533 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1534 * Parse something followed by possible [*+=].
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1535 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1536 * A piece is an atom, possibly followed by a multi, an indication of how many
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1537 * times the atom can be matched. Example: "a*" matches any sequence of "a"
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1538 * characters: "", "a", "aa", etc.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1539 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1540 * piece ::= atom
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1541 * or atom multi
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1542 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1543 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1544 nfa_regpiece()
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1545 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1546 int i;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1547 int op;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1548 int ret;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1549 long minval, maxval;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1550 int greedy = TRUE; /* Braces are prefixed with '-' ? */
4679 4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1551 parse_state_T old_state;
4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1552 parse_state_T new_state;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1553 int c2;
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1554 int old_post_pos;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1555 int my_post_start;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1556 int quest;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1557
4679 4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1558 /* Save the current parse state, so that we can use it if <atom>{m,n} is
4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1559 * next. */
4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1560 save_parse_state(&old_state);
4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1561
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1562 /* store current pos in the postfix form, for \{m,n} involving 0s */
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1563 my_post_start = (int)(post_ptr - post_start);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1564
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1565 ret = nfa_regatom();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1566 if (ret == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1567 return FAIL; /* cascaded error */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1568
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1569 op = peekchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1570 if (re_multi_type(op) == NOT_MULTI)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1571 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1572
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1573 skipchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1574 switch (op)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1575 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1576 case Magic('*'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1577 EMIT(NFA_STAR);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1578 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1579
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1580 case Magic('+'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1581 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1582 * Trick: Normally, (a*)\+ would match the whole input "aaa". The
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1583 * first and only submatch would be "aaa". But the backtracking
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1584 * engine interprets the plus as "try matching one more time", and
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1585 * a* matches a second time at the end of the input, the empty
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1586 * string.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1587 * The submatch will the empty string.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1588 *
4673 05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	1589 * In order to be consistent with the old engine, we replace
05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	1590 * <atom>+ with <atom><atom>*
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1591 */
4679 4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1592 restore_parse_state(&old_state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1593 curchr = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1594 if (nfa_regatom() == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1595 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1596 EMIT(NFA_STAR);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1597 EMIT(NFA_CONCAT);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1598 skipchr(); /* skip the \+ */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1599 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1600
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1601 case Magic('@'):
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1602 c2 = getdecchrs();
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1603 op = no_Magic(getchr());
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1604 i = 0;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1605 switch(op)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1606 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1607 case '=':
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1608 /* \@= */
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1609 i = NFA_PREV_ATOM_NO_WIDTH;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1610 break;
4661 0dce3d812e7a updated for version 7.3.1078 Bram Moolenaar <bram@vim.org> parents: 4657 diff changeset	1611 case '!':
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1612 /* \@! */
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1613 i = NFA_PREV_ATOM_NO_WIDTH_NEG;
4661 0dce3d812e7a updated for version 7.3.1078 Bram Moolenaar <bram@vim.org> parents: 4657 diff changeset	1614 break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1615 case '<':
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1616 op = no_Magic(getchr());
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1617 if (op == '=')
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1618 /* \@<= */
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1619 i = NFA_PREV_ATOM_JUST_BEFORE;
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1620 else if (op == '!')
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1621 /* \@<! */
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1622 i = NFA_PREV_ATOM_JUST_BEFORE_NEG;
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1623 break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1624 case '>':
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	1625 /* \@> */
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	1626 i = NFA_PREV_ATOM_LIKE_PATTERN;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	1627 break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1628 }
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1629 if (i == 0)
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1630 {
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1631 EMSGN(_("E869: (NFA) Unknown operator '\\@%c'"), op);
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1632 return FAIL;
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1633 }
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1634 EMIT(i);
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1635 if (i == NFA_PREV_ATOM_JUST_BEFORE
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1636 \|\| i == NFA_PREV_ATOM_JUST_BEFORE_NEG)
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1637 EMIT(c2);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1638 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1639
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1640 case Magic('?'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1641 case Magic('='):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1642 EMIT(NFA_QUEST);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1643 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1644
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1645 case Magic('{'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1646 /* a{2,5} will expand to 'aaa?a?a?'
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1647 * a{-1,3} will expand to 'aa??a??', where ?? is the nongreedy
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1648 * version of '?'
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1649 * \v(ab){2,3} will expand to '(ab)(ab)(ab)?', where all the
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1650 * parenthesis have the same id
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1651 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1652
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1653 greedy = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1654 c2 = peekchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1655 if (c2 == '-' \|\| c2 == Magic('-'))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1656 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1657 skipchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1658 greedy = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1659 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1660 if (!read_limits(&minval, &maxval))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1661 EMSG_RET_FAIL(_("E870: (NFA regexp) Error reading repetition limits"));
4762 47906f888725 updated for version 7.3.1128 Bram Moolenaar <bram@vim.org> parents: 4760 diff changeset	1662
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1663 /* <atom>{0,inf}, <atom>{0,} and <atom>{} are equivalent to
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1664 * <atom>* */
4675 811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1665 if (minval == 0 && maxval == MAX_LIMIT)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1666 {
4675 811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1667 if (greedy)
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1668 /* \{}, \{0,} */
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1669 EMIT(NFA_STAR);
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1670 else
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1671 /* \{-}, \{-0,} */
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1672 EMIT(NFA_STAR_NONGREEDY);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1673 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1674 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1675
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1676 /* Special case: x{0} or x{-0} */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1677 if (maxval == 0)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1678 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1679 /* Ignore result of previous call to nfa_regatom() */
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1680 post_ptr = post_start + my_post_start;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1681 /* NFA_SKIP_CHAR has 0-length and works everywhere */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1682 EMIT(NFA_SKIP_CHAR);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1683 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1684 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1685
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1686 /* Ignore previous call to nfa_regatom() */
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1687 post_ptr = post_start + my_post_start;
4679 4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1688 /* Save parse state after the repeated atom and the \{} */
4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1689 save_parse_state(&new_state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1690
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1691 quest = (greedy == TRUE? NFA_QUEST : NFA_QUEST_NONGREEDY);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1692 for (i = 0; i < maxval; i++)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1693 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1694 /* Goto beginning of the repeated atom */
4679 4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1695 restore_parse_state(&old_state);
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1696 old_post_pos = (int)(post_ptr - post_start);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1697 if (nfa_regatom() == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1698 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1699 /* after "minval" times, atoms are optional */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1700 if (i + 1 > minval)
4673 05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	1701 {
05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	1702 if (maxval == MAX_LIMIT)
4675 811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1703 {
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1704 if (greedy)
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1705 EMIT(NFA_STAR);
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1706 else
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1707 EMIT(NFA_STAR_NONGREEDY);
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	1708 }
4673 05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	1709 else
05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	1710 EMIT(quest);
05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	1711 }
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1712 if (old_post_pos != my_post_start)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1713 EMIT(NFA_CONCAT);
4673 05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	1714 if (i + 1 > minval && maxval == MAX_LIMIT)
05d57d7c2d55 updated for version 7.3.1084 Bram Moolenaar <bram@vim.org> parents: 4671 diff changeset	1715 break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1716 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1717
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1718 /* Go to just after the repeated atom and the \{} */
4679 4d92b873acef updated for version 7.3.1087 Bram Moolenaar <bram@vim.org> parents: 4677 diff changeset	1719 restore_parse_state(&new_state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1720 curchr = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1721
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1722 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1723
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1724
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1725 default:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1726 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1727 } /* end switch */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1728
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1729 if (re_multi_type(peekchr()) != NOT_MULTI)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1730 /* Can't have a multi follow a multi. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1731 EMSG_RET_FAIL(_("E871: (NFA regexp) Can't have a multi follow a multi !"));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1732
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1733 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1734 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1735
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1736 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1737 * Parse one or more pieces, concatenated. It matches a match for the
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1738 * first piece, followed by a match for the second piece, etc. Example:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1739 * "f[0-9]b", first matches "f", then a digit and then "b".
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1740 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1741 * concat ::= piece
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1742 * or piece piece
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1743 * or piece piece piece
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1744 * etc.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1745 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1746 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1747 nfa_regconcat()
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1748 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1749 int cont = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1750 int first = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1751
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1752 while (cont)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1753 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1754 switch (peekchr())
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1755 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1756 case NUL:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1757 case Magic('\|'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1758 case Magic('&'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1759 case Magic(')'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1760 cont = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1761 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1762
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1763 case Magic('Z'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1764 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1765 regflags \|= RF_ICOMBINE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1766 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1767 skipchr_keepstart();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1768 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1769 case Magic('c'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1770 regflags \|= RF_ICASE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1771 skipchr_keepstart();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1772 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1773 case Magic('C'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1774 regflags \|= RF_NOICASE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1775 skipchr_keepstart();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1776 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1777 case Magic('v'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1778 reg_magic = MAGIC_ALL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1779 skipchr_keepstart();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1780 curchr = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1781 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1782 case Magic('m'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1783 reg_magic = MAGIC_ON;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1784 skipchr_keepstart();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1785 curchr = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1786 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1787 case Magic('M'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1788 reg_magic = MAGIC_OFF;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1789 skipchr_keepstart();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1790 curchr = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1791 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1792 case Magic('V'):
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1793 reg_magic = MAGIC_NONE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1794 skipchr_keepstart();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1795 curchr = -1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1796 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1797
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1798 default:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1799 if (nfa_regpiece() == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1800 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1801 if (first == FALSE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1802 EMIT(NFA_CONCAT);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1803 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1804 first = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1805 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1806 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1807 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1808
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1809 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1810 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1811
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1812 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1813 * Parse a branch, one or more concats, separated by "\&". It matches the
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1814 * last concat, but only if all the preceding concats also match at the same
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1815 * position. Examples:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1816 * "foobeep\&..." matches "foo" in "foobeep".
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1817 * ".Peter\&.Bob" matches in a line containing both "Peter" and "Bob"
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1818 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1819 * branch ::= concat
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1820 * or concat \& concat
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1821 * or concat \& concat \& concat
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1822 * etc.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1823 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1824 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1825 nfa_regbranch()
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1826 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1827 int ch;
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1828 int old_post_pos;
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1829
f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1830 old_post_pos = (int)(post_ptr - post_start);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1831
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1832 /* First branch, possibly the only one */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1833 if (nfa_regconcat() == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1834 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1835
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1836 ch = peekchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1837 /* Try next concats */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1838 while (ch == Magic('&'))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1839 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1840 skipchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1841 EMIT(NFA_NOPEN);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1842 EMIT(NFA_PREV_ATOM_NO_WIDTH);
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1843 old_post_pos = (int)(post_ptr - post_start);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1844 if (nfa_regconcat() == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1845 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1846 /* if concat is empty, skip a input char. But do emit a node */
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1847 if (old_post_pos == (int)(post_ptr - post_start))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1848 EMIT(NFA_SKIP_CHAR);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1849 EMIT(NFA_CONCAT);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1850 ch = peekchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1851 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1852
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1853 /* Even if a branch is empty, emit one node for it */
4651 f10f63aaec5c updated for version 7.3.1073 Bram Moolenaar <bram@vim.org> parents: 4649 diff changeset	1854 if (old_post_pos == (int)(post_ptr - post_start))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1855 EMIT(NFA_SKIP_CHAR);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1856
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1857 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1858 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1859
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1860 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1861 * Parse a pattern, one or more branches, separated by "\\|". It matches
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1862 * anything that matches one of the branches. Example: "foo\\|beep" matches
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1863 * "foo" and matches "beep". If more than one branch matches, the first one
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1864 * is used.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1865 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1866 * pattern ::= branch
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1867 * or branch \\| branch
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1868 * or branch \\| branch \\| branch
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1869 * etc.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1870 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1871 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1872 nfa_reg(paren)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1873 int paren; /* REG_NOPAREN, REG_PAREN, REG_NPAREN or REG_ZPAREN */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1874 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1875 int parno = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1876
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1877 if (paren == REG_PAREN)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1878 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1879 if (regnpar >= NSUBEXP) /* Too many `(' */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1880 EMSG_RET_FAIL(_("E872: (NFA regexp) Too many '('"));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1881 parno = regnpar++;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1882 }
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1883 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1884 else if (paren == REG_ZPAREN)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1885 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1886 /* Make a ZOPEN node. */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1887 if (regnzpar >= NSUBEXP)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1888 EMSG_RET_FAIL(_("E879: (NFA regexp) Too many \\z("));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1889 parno = regnzpar++;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1890 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1891 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1892
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1893 if (nfa_regbranch() == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1894 return FAIL; /* cascaded error */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1895
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1896 while (peekchr() == Magic('\|'))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1897 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1898 skipchr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1899 if (nfa_regbranch() == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1900 return FAIL; /* cascaded error */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1901 EMIT(NFA_OR);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1902 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1903
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1904 /* Check for proper termination. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1905 if (paren != REG_NOPAREN && getchr() != Magic(')'))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1906 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1907 if (paren == REG_NPAREN)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1908 EMSG2_RET_FAIL(_(e_unmatchedpp), reg_magic == MAGIC_ALL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1909 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1910 EMSG2_RET_FAIL(_(e_unmatchedp), reg_magic == MAGIC_ALL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1911 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1912 else if (paren == REG_NOPAREN && peekchr() != NUL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1913 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1914 if (peekchr() == Magic(')'))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1915 EMSG2_RET_FAIL(_(e_unmatchedpar), reg_magic == MAGIC_ALL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1916 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1917 EMSG_RET_FAIL(_("E873: (NFA regexp) proper termination error"));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1918 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1919 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1920 * Here we set the flag allowing back references to this set of
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1921 * parentheses.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1922 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1923 if (paren == REG_PAREN)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1924 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1925 had_endbrace[parno] = TRUE; /* have seen the close paren */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1926 EMIT(NFA_MOPEN + parno);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1927 }
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1928 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1929 else if (paren == REG_ZPAREN)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1930 EMIT(NFA_ZOPEN + parno);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1931 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1932
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1933 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1934 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1935
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1936 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1937 static char_u code[50];
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1938
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1939 static void
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1940 nfa_set_code(c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1941 int c;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1942 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1943 int addnl = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1944
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1945 if (c >= NFA_FIRST_NL && c <= NFA_LAST_NL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1946 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1947 addnl = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1948 c -= ADD_NL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1949 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1950
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1951 STRCPY(code, "");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1952 switch (c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1953 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1954 case NFA_MATCH: STRCPY(code, "NFA_MATCH "); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1955 case NFA_SPLIT: STRCPY(code, "NFA_SPLIT "); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1956 case NFA_CONCAT: STRCPY(code, "NFA_CONCAT "); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1957 case NFA_NEWL: STRCPY(code, "NFA_NEWL "); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1958 case NFA_ZSTART: STRCPY(code, "NFA_ZSTART"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1959 case NFA_ZEND: STRCPY(code, "NFA_ZEND"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1960
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1961 case NFA_BACKREF1: STRCPY(code, "NFA_BACKREF1"); break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1962 case NFA_BACKREF2: STRCPY(code, "NFA_BACKREF2"); break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1963 case NFA_BACKREF3: STRCPY(code, "NFA_BACKREF3"); break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1964 case NFA_BACKREF4: STRCPY(code, "NFA_BACKREF4"); break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1965 case NFA_BACKREF5: STRCPY(code, "NFA_BACKREF5"); break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1966 case NFA_BACKREF6: STRCPY(code, "NFA_BACKREF6"); break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1967 case NFA_BACKREF7: STRCPY(code, "NFA_BACKREF7"); break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1968 case NFA_BACKREF8: STRCPY(code, "NFA_BACKREF8"); break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1969 case NFA_BACKREF9: STRCPY(code, "NFA_BACKREF9"); break;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1970 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1971 case NFA_ZREF1: STRCPY(code, "NFA_ZREF1"); break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1972 case NFA_ZREF2: STRCPY(code, "NFA_ZREF2"); break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1973 case NFA_ZREF3: STRCPY(code, "NFA_ZREF3"); break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1974 case NFA_ZREF4: STRCPY(code, "NFA_ZREF4"); break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1975 case NFA_ZREF5: STRCPY(code, "NFA_ZREF5"); break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1976 case NFA_ZREF6: STRCPY(code, "NFA_ZREF6"); break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1977 case NFA_ZREF7: STRCPY(code, "NFA_ZREF7"); break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1978 case NFA_ZREF8: STRCPY(code, "NFA_ZREF8"); break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1979 case NFA_ZREF9: STRCPY(code, "NFA_ZREF9"); break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	1980 #endif
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1981 case NFA_SKIP: STRCPY(code, "NFA_SKIP"); break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	1982
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1983 case NFA_PREV_ATOM_NO_WIDTH:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1984 STRCPY(code, "NFA_PREV_ATOM_NO_WIDTH"); break;
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1985 case NFA_PREV_ATOM_NO_WIDTH_NEG:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	1986 STRCPY(code, "NFA_PREV_ATOM_NO_WIDTH_NEG"); break;
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1987 case NFA_PREV_ATOM_JUST_BEFORE:
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1988 STRCPY(code, "NFA_PREV_ATOM_JUST_BEFORE"); break;
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1989 case NFA_PREV_ATOM_JUST_BEFORE_NEG:
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1990 STRCPY(code, "NFA_PREV_ATOM_JUST_BEFORE_NEG"); break;
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	1991 case NFA_PREV_ATOM_LIKE_PATTERN:
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	1992 STRCPY(code, "NFA_PREV_ATOM_LIKE_PATTERN"); break;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	1993
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	1994 case NFA_NOPEN: STRCPY(code, "NFA_NOPEN"); break;
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	1995 case NFA_NCLOSE: STRCPY(code, "NFA_NCLOSE"); break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	1996 case NFA_START_INVISIBLE: STRCPY(code, "NFA_START_INVISIBLE"); break;
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	1997 case NFA_START_INVISIBLE_NEG:
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	1998 STRCPY(code, "NFA_START_INVISIBLE_NEG"); break;
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	1999 case NFA_START_INVISIBLE_BEFORE:
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	2000 STRCPY(code, "NFA_START_INVISIBLE_BEFORE"); break;
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2001 case NFA_START_INVISIBLE_BEFORE_NEG:
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2002 STRCPY(code, "NFA_START_INVISIBLE_BEFORE_NEG"); break;
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2003 case NFA_START_PATTERN: STRCPY(code, "NFA_START_PATTERN"); break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2004 case NFA_END_INVISIBLE: STRCPY(code, "NFA_END_INVISIBLE"); break;
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2005 case NFA_END_INVISIBLE_NEG: STRCPY(code, "NFA_END_INVISIBLE_NEG"); break;
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2006 case NFA_END_PATTERN: STRCPY(code, "NFA_END_PATTERN"); break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2007
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2008 case NFA_COMPOSING: STRCPY(code, "NFA_COMPOSING"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2009 case NFA_END_COMPOSING: STRCPY(code, "NFA_END_COMPOSING"); break;
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2010 case NFA_OPT_CHARS: STRCPY(code, "NFA_OPT_CHARS"); break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2011
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2012 case NFA_MOPEN:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2013 case NFA_MOPEN1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2014 case NFA_MOPEN2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2015 case NFA_MOPEN3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2016 case NFA_MOPEN4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2017 case NFA_MOPEN5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2018 case NFA_MOPEN6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2019 case NFA_MOPEN7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2020 case NFA_MOPEN8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2021 case NFA_MOPEN9:
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2022 STRCPY(code, "NFA_MOPEN(x)");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2023 code[10] = c - NFA_MOPEN + '0';
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2024 break;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2025 case NFA_MCLOSE:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2026 case NFA_MCLOSE1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2027 case NFA_MCLOSE2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2028 case NFA_MCLOSE3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2029 case NFA_MCLOSE4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2030 case NFA_MCLOSE5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2031 case NFA_MCLOSE6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2032 case NFA_MCLOSE7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2033 case NFA_MCLOSE8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2034 case NFA_MCLOSE9:
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2035 STRCPY(code, "NFA_MCLOSE(x)");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2036 code[11] = c - NFA_MCLOSE + '0';
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2037 break;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2038 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2039 case NFA_ZOPEN:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2040 case NFA_ZOPEN1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2041 case NFA_ZOPEN2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2042 case NFA_ZOPEN3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2043 case NFA_ZOPEN4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2044 case NFA_ZOPEN5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2045 case NFA_ZOPEN6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2046 case NFA_ZOPEN7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2047 case NFA_ZOPEN8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2048 case NFA_ZOPEN9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2049 STRCPY(code, "NFA_ZOPEN(x)");
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2050 code[10] = c - NFA_ZOPEN + '0';
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2051 break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2052 case NFA_ZCLOSE:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2053 case NFA_ZCLOSE1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2054 case NFA_ZCLOSE2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2055 case NFA_ZCLOSE3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2056 case NFA_ZCLOSE4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2057 case NFA_ZCLOSE5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2058 case NFA_ZCLOSE6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2059 case NFA_ZCLOSE7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2060 case NFA_ZCLOSE8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2061 case NFA_ZCLOSE9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2062 STRCPY(code, "NFA_ZCLOSE(x)");
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2063 code[11] = c - NFA_ZCLOSE + '0';
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2064 break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2065 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2066 case NFA_EOL: STRCPY(code, "NFA_EOL "); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2067 case NFA_BOL: STRCPY(code, "NFA_BOL "); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2068 case NFA_EOW: STRCPY(code, "NFA_EOW "); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2069 case NFA_BOW: STRCPY(code, "NFA_BOW "); break;
4671 b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	2070 case NFA_EOF: STRCPY(code, "NFA_EOF "); break;
b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	2071 case NFA_BOF: STRCPY(code, "NFA_BOF "); break;
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2072 case NFA_LNUM: STRCPY(code, "NFA_LNUM "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2073 case NFA_LNUM_GT: STRCPY(code, "NFA_LNUM_GT "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2074 case NFA_LNUM_LT: STRCPY(code, "NFA_LNUM_LT "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2075 case NFA_COL: STRCPY(code, "NFA_COL "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2076 case NFA_COL_GT: STRCPY(code, "NFA_COL_GT "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2077 case NFA_COL_LT: STRCPY(code, "NFA_COL_LT "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2078 case NFA_VCOL: STRCPY(code, "NFA_VCOL "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2079 case NFA_VCOL_GT: STRCPY(code, "NFA_VCOL_GT "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2080 case NFA_VCOL_LT: STRCPY(code, "NFA_VCOL_LT "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2081 case NFA_MARK: STRCPY(code, "NFA_MARK "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2082 case NFA_MARK_GT: STRCPY(code, "NFA_MARK_GT "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2083 case NFA_MARK_LT: STRCPY(code, "NFA_MARK_LT "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2084 case NFA_CURSOR: STRCPY(code, "NFA_CURSOR "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2085 case NFA_VISUAL: STRCPY(code, "NFA_VISUAL "); break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2086
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2087 case NFA_STAR: STRCPY(code, "NFA_STAR "); break;
4675 811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2088 case NFA_STAR_NONGREEDY: STRCPY(code, "NFA_STAR_NONGREEDY "); break;
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2089 case NFA_QUEST: STRCPY(code, "NFA_QUEST"); break;
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2090 case NFA_QUEST_NONGREEDY: STRCPY(code, "NFA_QUEST_NON_GREEDY"); break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2091 case NFA_SKIP_CHAR: STRCPY(code, "NFA_SKIP_CHAR"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2092 case NFA_OR: STRCPY(code, "NFA_OR"); break;
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2093
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2094 case NFA_START_COLL: STRCPY(code, "NFA_START_COLL"); break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2095 case NFA_END_COLL: STRCPY(code, "NFA_END_COLL"); break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2096 case NFA_START_NEG_COLL: STRCPY(code, "NFA_START_NEG_COLL"); break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2097 case NFA_END_NEG_COLL: STRCPY(code, "NFA_END_NEG_COLL"); break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2098 case NFA_RANGE: STRCPY(code, "NFA_RANGE"); break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2099 case NFA_RANGE_MIN: STRCPY(code, "NFA_RANGE_MIN"); break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2100 case NFA_RANGE_MAX: STRCPY(code, "NFA_RANGE_MAX"); break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2101
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2102 case NFA_CLASS_ALNUM: STRCPY(code, "NFA_CLASS_ALNUM"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2103 case NFA_CLASS_ALPHA: STRCPY(code, "NFA_CLASS_ALPHA"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2104 case NFA_CLASS_BLANK: STRCPY(code, "NFA_CLASS_BLANK"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2105 case NFA_CLASS_CNTRL: STRCPY(code, "NFA_CLASS_CNTRL"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2106 case NFA_CLASS_DIGIT: STRCPY(code, "NFA_CLASS_DIGIT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2107 case NFA_CLASS_GRAPH: STRCPY(code, "NFA_CLASS_GRAPH"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2108 case NFA_CLASS_LOWER: STRCPY(code, "NFA_CLASS_LOWER"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2109 case NFA_CLASS_PRINT: STRCPY(code, "NFA_CLASS_PRINT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2110 case NFA_CLASS_PUNCT: STRCPY(code, "NFA_CLASS_PUNCT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2111 case NFA_CLASS_SPACE: STRCPY(code, "NFA_CLASS_SPACE"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2112 case NFA_CLASS_UPPER: STRCPY(code, "NFA_CLASS_UPPER"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2113 case NFA_CLASS_XDIGIT: STRCPY(code, "NFA_CLASS_XDIGIT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2114 case NFA_CLASS_TAB: STRCPY(code, "NFA_CLASS_TAB"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2115 case NFA_CLASS_RETURN: STRCPY(code, "NFA_CLASS_RETURN"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2116 case NFA_CLASS_BACKSPACE: STRCPY(code, "NFA_CLASS_BACKSPACE"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2117 case NFA_CLASS_ESCAPE: STRCPY(code, "NFA_CLASS_ESCAPE"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2118
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2119 case NFA_ANY: STRCPY(code, "NFA_ANY"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2120 case NFA_IDENT: STRCPY(code, "NFA_IDENT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2121 case NFA_SIDENT:STRCPY(code, "NFA_SIDENT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2122 case NFA_KWORD: STRCPY(code, "NFA_KWORD"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2123 case NFA_SKWORD:STRCPY(code, "NFA_SKWORD"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2124 case NFA_FNAME: STRCPY(code, "NFA_FNAME"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2125 case NFA_SFNAME:STRCPY(code, "NFA_SFNAME"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2126 case NFA_PRINT: STRCPY(code, "NFA_PRINT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2127 case NFA_SPRINT:STRCPY(code, "NFA_SPRINT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2128 case NFA_WHITE: STRCPY(code, "NFA_WHITE"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2129 case NFA_NWHITE:STRCPY(code, "NFA_NWHITE"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2130 case NFA_DIGIT: STRCPY(code, "NFA_DIGIT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2131 case NFA_NDIGIT:STRCPY(code, "NFA_NDIGIT"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2132 case NFA_HEX: STRCPY(code, "NFA_HEX"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2133 case NFA_NHEX: STRCPY(code, "NFA_NHEX"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2134 case NFA_OCTAL: STRCPY(code, "NFA_OCTAL"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2135 case NFA_NOCTAL:STRCPY(code, "NFA_NOCTAL"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2136 case NFA_WORD: STRCPY(code, "NFA_WORD"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2137 case NFA_NWORD: STRCPY(code, "NFA_NWORD"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2138 case NFA_HEAD: STRCPY(code, "NFA_HEAD"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2139 case NFA_NHEAD: STRCPY(code, "NFA_NHEAD"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2140 case NFA_ALPHA: STRCPY(code, "NFA_ALPHA"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2141 case NFA_NALPHA:STRCPY(code, "NFA_NALPHA"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2142 case NFA_LOWER: STRCPY(code, "NFA_LOWER"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2143 case NFA_NLOWER:STRCPY(code, "NFA_NLOWER"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2144 case NFA_UPPER: STRCPY(code, "NFA_UPPER"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2145 case NFA_NUPPER:STRCPY(code, "NFA_NUPPER"); break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2146
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2147 default:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2148 STRCPY(code, "CHAR(x)");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2149 code[5] = c;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2150 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2151
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2152 if (addnl == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2153 STRCAT(code, " + NEWLINE ");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2154
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2155 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2156
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2157 #ifdef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2158 static FILE *log_fd;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2159
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2160 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2161 * Print the postfix notation of the current regexp.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2162 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2163 static void
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2164 nfa_postfix_dump(expr, retval)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2165 char_u *expr;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2166 int retval;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2167 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2168 int *p;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2169 FILE *f;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2170
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2171 f = fopen(NFA_REGEXP_DUMP_LOG, "a");
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2172 if (f != NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2173 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2174 fprintf(f, "\n-------------------------\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2175 if (retval == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2176 fprintf(f, ">>> NFA engine failed ... \n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2177 else if (retval == OK)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2178 fprintf(f, ">>> NFA engine succeeded !\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2179 fprintf(f, "Regexp: \"%s\"\nPostfix notation (char): \"", expr);
4464 c83656c9745a updated for version 7.3.980 Bram Moolenaar <bram@vim.org> parents: 4462 diff changeset	2180 for (p = post_start; *p && p < post_end; p++)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2181 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2182 nfa_set_code(*p);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2183 fprintf(f, "%s, ", code);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2184 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2185 fprintf(f, "\"\nPostfix notation (int): ");
4464 c83656c9745a updated for version 7.3.980 Bram Moolenaar <bram@vim.org> parents: 4462 diff changeset	2186 for (p = post_start; *p && p < post_end; p++)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2187 fprintf(f, "%d ", *p);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2188 fprintf(f, "\n\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2189 fclose(f);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2190 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2191 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2192
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2193 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2194 * Print the NFA starting with a root node "state".
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2195 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2196 static void
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2197 nfa_print_state(debugf, state)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2198 FILE *debugf;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2199 nfa_state_T *state;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2200 {
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2201 garray_T indent;
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2202
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2203 ga_init2(&indent, 1, 64);
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2204 ga_append(&indent, '\0');
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2205 nfa_print_state2(debugf, state, &indent);
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2206 ga_clear(&indent);
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2207 }
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2208
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2209 static void
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2210 nfa_print_state2(debugf, state, indent)
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2211 FILE *debugf;
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2212 nfa_state_T *state;
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2213 garray_T *indent;
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2214 {
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2215 char_u *p;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2216
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2217 if (state == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2218 return;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2219
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2220 fprintf(debugf, "(%2d)", abs(state->id));
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2221
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2222 /* Output indent */
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2223 p = (char_u *)indent->ga_data;
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2224 if (indent->ga_len >= 3)
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2225 {
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2226 int last = indent->ga_len - 3;
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2227 char_u save[2];
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2228
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2229 STRNCPY(save, &p[last], 2);
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2230 STRNCPY(&p[last], "+-", 2);
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2231 fprintf(debugf, " %s", p);
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2232 STRNCPY(&p[last], save, 2);
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2233 }
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2234 else
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2235 fprintf(debugf, " %s", p);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2236
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2237 nfa_set_code(state->c);
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2238 fprintf(debugf, "%s (%d) (id=%d) val=%d\n",
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2239 code,
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2240 state->c,
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2241 abs(state->id),
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2242 state->val);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2243 if (state->id < 0)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2244 return;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2245
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2246 state->id = abs(state->id) * -1;
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2247
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2248 /* grow indent for state->out */
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2249 indent->ga_len -= 1;
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2250 if (state->out1)
4537 5cc98a5898cf updated for version 7.3.1016 Bram Moolenaar <bram@vim.org> parents: 4535 diff changeset	2251 ga_concat(indent, (char_u *)"\| ");
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2252 else
4537 5cc98a5898cf updated for version 7.3.1016 Bram Moolenaar <bram@vim.org> parents: 4535 diff changeset	2253 ga_concat(indent, (char_u *)" ");
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2254 ga_append(indent, '\0');
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2255
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2256 nfa_print_state2(debugf, state->out, indent);
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2257
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2258 /* replace last part of indent for state->out1 */
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2259 indent->ga_len -= 3;
4537 5cc98a5898cf updated for version 7.3.1016 Bram Moolenaar <bram@vim.org> parents: 4535 diff changeset	2260 ga_concat(indent, (char_u *)" ");
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2261 ga_append(indent, '\0');
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2262
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2263 nfa_print_state2(debugf, state->out1, indent);
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2264
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2265 /* shrink indent */
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2266 indent->ga_len -= 3;
6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2267 ga_append(indent, '\0');
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2268 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2269
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2270 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2271 * Print the NFA state machine.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2272 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2273 static void
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2274 nfa_dump(prog)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2275 nfa_regprog_T *prog;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2276 {
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2277 FILE *debugf = fopen(NFA_REGEXP_DUMP_LOG, "a");
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2278
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2279 if (debugf != NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2280 {
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	2281 nfa_print_state(debugf, prog->start);
4772 03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	2282
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	2283 fprintf(debugf, "reganch: %d\n", prog->reganch);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	2284 fprintf(debugf, "regstart: %d\n", prog->regstart);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	2285
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2286 fclose(debugf);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2287 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2288 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2289 #endif /* ENABLE_LOG */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2290 #endif /* DEBUG */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2291
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2292 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2293 * Parse r.e. @expr and convert it into postfix form.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2294 * Return the postfix string on success, NULL otherwise.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2295 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2296 static int *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2297 re2post()
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2298 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2299 if (nfa_reg(REG_NOPAREN) == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2300 return NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2301 EMIT(NFA_MOPEN);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2302 return post_start;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2303 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2304
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2305 /* NB. Some of the code below is inspired by Russ's. */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2306
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2307 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2308 * Represents an NFA state plus zero or one or two arrows exiting.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2309 * if c == MATCH, no arrows out; matching state.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2310 * If c == SPLIT, unlabeled arrows to out and out1 (if != NULL).
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2311 * If c < 256, labeled arrow with character c to out.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2312 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2313
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2314 static nfa_state_T state_ptr; / points to nfa_prog->state */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2315
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2316 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2317 * Allocate and initialize nfa_state_T.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2318 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2319 static nfa_state_T *
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2320 alloc_state(c, out, out1)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2321 int c;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2322 nfa_state_T *out;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2323 nfa_state_T *out1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2324 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2325 nfa_state_T *s;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2326
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2327 if (istate >= nstate)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2328 return NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2329
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2330 s = &state_ptr[istate++];
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2331
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2332 s->c = c;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2333 s->out = out;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2334 s->out1 = out1;
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2335 s->val = 0;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2336
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2337 s->id = istate;
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	2338 s->lastlist[0] = 0;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	2339 s->lastlist[1] = 0;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2340
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2341 return s;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2342 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2343
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2344 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2345 * A partially built NFA without the matching state filled in.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2346 * Frag_T.start points at the start state.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2347 * Frag_T.out is a list of places that need to be set to the
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2348 * next state for this fragment.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2349 */
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2350
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2351 /* Since the out pointers in the list are always
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2352 * uninitialized, we use the pointers themselves
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2353 * as storage for the Ptrlists. */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2354 typedef union Ptrlist Ptrlist;
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2355 union Ptrlist
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2356 {
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2357 Ptrlist *next;
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2358 nfa_state_T *s;
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2359 };
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2360
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2361 struct Frag
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2362 {
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	2363 nfa_state_T *start;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2364 Ptrlist *out;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2365 };
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2366 typedef struct Frag Frag_T;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2367
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2368 static Frag_T frag __ARGS((nfa_state_T start, Ptrlist out));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2369 static Ptrlist list1 __ARGS((nfa_state_T *outp));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2370 static void patch __ARGS((Ptrlist l, nfa_state_T s));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2371 static Ptrlist append __ARGS((Ptrlist l1, Ptrlist *l2));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2372 static void st_push __ARGS((Frag_T s, Frag_T *p, Frag_T stack_end));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2373 static Frag_T st_pop __ARGS((Frag_T *p, Frag_T stack));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2374
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2375 /*
4456 015a8fabf900 updated for version 7.3.976 Bram Moolenaar <bram@vim.org> parents: 4454 diff changeset	2376 * Initialize a Frag_T struct and return it.
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2377 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2378 static Frag_T
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2379 frag(start, out)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2380 nfa_state_T *start;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2381 Ptrlist *out;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2382 {
4456 015a8fabf900 updated for version 7.3.976 Bram Moolenaar <bram@vim.org> parents: 4454 diff changeset	2383 Frag_T n;
015a8fabf900 updated for version 7.3.976 Bram Moolenaar <bram@vim.org> parents: 4454 diff changeset	2384
015a8fabf900 updated for version 7.3.976 Bram Moolenaar <bram@vim.org> parents: 4454 diff changeset	2385 n.start = start;
015a8fabf900 updated for version 7.3.976 Bram Moolenaar <bram@vim.org> parents: 4454 diff changeset	2386 n.out = out;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2387 return n;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2388 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2389
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2390 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2391 * Create singleton list containing just outp.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2392 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2393 static Ptrlist *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2394 list1(outp)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2395 nfa_state_T **outp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2396 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2397 Ptrlist *l;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2398
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2399 l = (Ptrlist *)outp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2400 l->next = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2401 return l;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2402 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2403
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2404 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2405 * Patch the list of states at out to point to start.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2406 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2407 static void
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2408 patch(l, s)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2409 Ptrlist *l;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2410 nfa_state_T *s;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2411 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2412 Ptrlist *next;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2413
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2414 for (; l; l = next)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2415 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2416 next = l->next;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2417 l->s = s;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2418 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2419 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2420
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2421
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2422 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2423 * Join the two lists l1 and l2, returning the combination.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2424 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2425 static Ptrlist *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2426 append(l1, l2)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2427 Ptrlist *l1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2428 Ptrlist *l2;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2429 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2430 Ptrlist *oldl1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2431
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2432 oldl1 = l1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2433 while (l1->next)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2434 l1 = l1->next;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2435 l1->next = l2;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2436 return oldl1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2437 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2438
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2439 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2440 * Stack used for transforming postfix form into NFA.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2441 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2442 static Frag_T empty;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2443
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2444 static void
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2445 st_error(postfix, end, p)
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2446 int *postfix UNUSED;
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2447 int *end UNUSED;
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2448 int *p UNUSED;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2449 {
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2450 #ifdef NFA_REGEXP_ERROR_LOG
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2451 FILE *df;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2452 int *p2;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2453
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2454 df = fopen(NFA_REGEXP_ERROR_LOG, "a");
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2455 if (df)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2456 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2457 fprintf(df, "Error popping the stack!\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2458 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2459 fprintf(df, "Current regexp is \"%s\"\n", nfa_regengine.expr);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2460 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2461 fprintf(df, "Postfix form is: ");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2462 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2463 for (p2 = postfix; p2 < end; p2++)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2464 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2465 nfa_set_code(*p2);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2466 fprintf(df, "%s, ", code);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2467 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2468 nfa_set_code(*p);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2469 fprintf(df, "\nCurrent position is: ");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2470 for (p2 = postfix; p2 <= p; p2 ++)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2471 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2472 nfa_set_code(*p2);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2473 fprintf(df, "%s, ", code);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2474 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2475 #else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2476 for (p2 = postfix; p2 < end; p2++)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2477 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2478 fprintf(df, "%d, ", *p2);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2479 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2480 fprintf(df, "\nCurrent position is: ");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2481 for (p2 = postfix; p2 <= p; p2 ++)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2482 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2483 fprintf(df, "%d, ", *p2);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2484 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2485 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2486 fprintf(df, "\n--------------------------\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2487 fclose(df);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2488 }
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2489 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2490 EMSG(_("E874: (NFA) Could not pop the stack !"));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2491 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2492
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2493 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2494 * Push an item onto the stack.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2495 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2496 static void
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2497 st_push(s, p, stack_end)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2498 Frag_T s;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2499 Frag_T **p;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2500 Frag_T *stack_end;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2501 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2502 Frag_T stackp = p;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2503
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2504 if (stackp >= stack_end)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2505 return;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2506 *stackp = s;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2507 p = p + 1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2508 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2509
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2510 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2511 * Pop an item from the stack.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2512 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2513 static Frag_T
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2514 st_pop(p, stack)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2515 Frag_T **p;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2516 Frag_T *stack;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2517 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2518 Frag_T *stackp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2519
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2520 p = p - 1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2521 stackp = *p;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2522 if (stackp < stack)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2523 return empty;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2524 return **p;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2525 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2526
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2527 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2528 * Convert a postfix form into its equivalent NFA.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2529 * Return the NFA start state on success, NULL otherwise.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2530 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2531 static nfa_state_T *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2532 post2nfa(postfix, end, nfa_calc_size)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2533 int *postfix;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2534 int *end;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2535 int nfa_calc_size;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2536 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2537 int *p;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2538 int mopen;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2539 int mclose;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2540 Frag_T *stack = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2541 Frag_T *stackp = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2542 Frag_T *stack_end = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2543 Frag_T e1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2544 Frag_T e2;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2545 Frag_T e;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2546 nfa_state_T *s;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2547 nfa_state_T *s1;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2548 nfa_state_T *matchstate;
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2549 nfa_state_T *ret = NULL;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2550
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2551 if (postfix == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2552 return NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2553
4456 015a8fabf900 updated for version 7.3.976 Bram Moolenaar <bram@vim.org> parents: 4454 diff changeset	2554 #define PUSH(s) st_push((s), &stackp, stack_end)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2555 #define POP() st_pop(&stackp, stack); \
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2556 if (stackp < stack) \
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2557 { \
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2558 st_error(postfix, end, p); \
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2559 return NULL; \
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2560 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2561
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2562 if (nfa_calc_size == FALSE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2563 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2564 /* Allocate space for the stack. Max states on the stack : nstate */
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	2565 stack = (Frag_T )lalloc((nstate + 1) sizeof(Frag_T), TRUE);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2566 stackp = stack;
4462 a63361b90979 updated for version 7.3.979 Bram Moolenaar <bram@vim.org> parents: 4460 diff changeset	2567 stack_end = stack + (nstate + 1);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2568 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2569
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2570 for (p = postfix; p < end; ++p)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2571 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2572 switch (*p)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2573 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2574 case NFA_CONCAT:
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2575 /* Concatenation.
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2576 * Pay attention: this operator does not exist in the r.e. itself
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2577 * (it is implicit, really). It is added when r.e. is translated
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2578 * to postfix form in re2post(). */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2579 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2580 {
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	2581 /* nstate += 0; */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2582 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2583 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2584 e2 = POP();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2585 e1 = POP();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2586 patch(e1.out, e2.start);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2587 PUSH(frag(e1.start, e2.out));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2588 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2589
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2590 case NFA_OR:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2591 /* Alternation */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2592 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2593 {
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	2594 nstate++;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2595 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2596 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2597 e2 = POP();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2598 e1 = POP();
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2599 s = alloc_state(NFA_SPLIT, e1.start, e2.start);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2600 if (s == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2601 goto theend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2602 PUSH(frag(s, append(e1.out, e2.out)));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2603 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2604
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2605 case NFA_STAR:
4675 811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2606 /* Zero or more, prefer more */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2607 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2608 {
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	2609 nstate++;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2610 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2611 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2612 e = POP();
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2613 s = alloc_state(NFA_SPLIT, e.start, NULL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2614 if (s == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2615 goto theend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2616 patch(e.out, s);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2617 PUSH(frag(s, list1(&s->out1)));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2618 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2619
4675 811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2620 case NFA_STAR_NONGREEDY:
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2621 /* Zero or more, prefer zero */
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2622 if (nfa_calc_size == TRUE)
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2623 {
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2624 nstate++;
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2625 break;
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2626 }
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2627 e = POP();
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2628 s = alloc_state(NFA_SPLIT, NULL, e.start);
4675 811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2629 if (s == NULL)
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2630 goto theend;
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2631 patch(e.out, s);
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2632 PUSH(frag(s, list1(&s->out)));
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2633 break;
811a4c9b51d8 updated for version 7.3.1085 Bram Moolenaar <bram@vim.org> parents: 4673 diff changeset	2634
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2635 case NFA_QUEST:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2636 /* one or zero atoms=> greedy match */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2637 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2638 {
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	2639 nstate++;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2640 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2641 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2642 e = POP();
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2643 s = alloc_state(NFA_SPLIT, e.start, NULL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2644 if (s == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2645 goto theend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2646 PUSH(frag(s, append(e.out, list1(&s->out1))));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2647 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2648
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2649 case NFA_QUEST_NONGREEDY:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2650 /* zero or one atoms => non-greedy match */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2651 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2652 {
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	2653 nstate++;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2654 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2655 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2656 e = POP();
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2657 s = alloc_state(NFA_SPLIT, NULL, e.start);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2658 if (s == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2659 goto theend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2660 PUSH(frag(s, append(e.out, list1(&s->out))));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2661 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2662
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2663 case NFA_END_COLL:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2664 case NFA_END_NEG_COLL:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2665 /* On the stack is the sequence starting with NFA_START_COLL or
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2666 * NFA_START_NEG_COLL and all possible characters. Patch it to
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2667 * add the output to the start. */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2668 if (nfa_calc_size == TRUE)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2669 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2670 nstate++;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2671 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2672 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2673 e = POP();
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2674 s = alloc_state(NFA_END_COLL, NULL, NULL);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2675 if (s == NULL)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2676 goto theend;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2677 patch(e.out, s);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2678 e.start->out1 = s;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2679 PUSH(frag(e.start, list1(&s->out)));
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2680 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2681
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2682 case NFA_RANGE:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2683 /* Before this are two characters, the low and high end of a
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2684 * range. Turn them into two states with MIN and MAX. */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2685 if (nfa_calc_size == TRUE)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2686 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2687 /* nstate += 0; */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2688 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2689 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2690 e2 = POP();
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2691 e1 = POP();
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2692 e2.start->val = e2.start->c;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2693 e2.start->c = NFA_RANGE_MAX;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2694 e1.start->val = e1.start->c;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2695 e1.start->c = NFA_RANGE_MIN;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2696 patch(e1.out, e2.start);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2697 PUSH(frag(e1.start, e2.out));
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2698 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	2699
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2700 case NFA_SKIP_CHAR:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2701 /* Symbol of 0-length, Used in a repetition
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2702 * with max/min count of 0 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2703 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2704 {
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	2705 nstate++;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2706 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2707 }
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2708 s = alloc_state(NFA_SKIP_CHAR, NULL, NULL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2709 if (s == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2710 goto theend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2711 PUSH(frag(s, list1(&s->out)));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2712 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2713
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2714 case NFA_OPT_CHARS:
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2715 {
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2716 int n;
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2717
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2718 /* \%[abc] */
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2719 n = ++p; / get number of characters */
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2720 if (nfa_calc_size == TRUE)
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2721 {
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2722 nstate += n;
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2723 break;
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2724 }
4758 b25a1b2e3175 updated for version 7.3.1126 Bram Moolenaar <bram@vim.org> parents: 4756 diff changeset	2725 s = NULL; /* avoid compiler warning */
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2726 e1.out = NULL; /* stores list with out1's */
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2727 s1 = NULL; /* previous NFA_SPLIT to connect to */
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2728 while (n-- > 0)
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2729 {
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2730 e = POP(); /* get character */
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2731 s = alloc_state(NFA_SPLIT, e.start, NULL);
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2732 if (s == NULL)
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2733 goto theend;
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2734 if (e1.out == NULL)
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2735 e1 = e;
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2736 patch(e.out, s1);
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2737 append(e1.out, list1(&s->out1));
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2738 s1 = s;
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2739 }
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2740 PUSH(frag(s, e1.out));
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2741 break;
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2742 }
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2743
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2744 case NFA_PREV_ATOM_NO_WIDTH:
4661 0dce3d812e7a updated for version 7.3.1078 Bram Moolenaar <bram@vim.org> parents: 4657 diff changeset	2745 case NFA_PREV_ATOM_NO_WIDTH_NEG:
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	2746 case NFA_PREV_ATOM_JUST_BEFORE:
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	2747 case NFA_PREV_ATOM_JUST_BEFORE_NEG:
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2748 case NFA_PREV_ATOM_LIKE_PATTERN:
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2749 {
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2750 int before = (*p == NFA_PREV_ATOM_JUST_BEFORE
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2751 \|\| *p == NFA_PREV_ATOM_JUST_BEFORE_NEG);
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2752 int pattern = (*p == NFA_PREV_ATOM_LIKE_PATTERN);
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2753 int start_state;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2754 int end_state;
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2755 int n = 0;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2756 nfa_state_T *zend;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2757 nfa_state_T *skip;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2758
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2759 switch (*p)
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2760 {
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2761 case NFA_PREV_ATOM_NO_WIDTH:
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2762 start_state = NFA_START_INVISIBLE;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2763 end_state = NFA_END_INVISIBLE;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2764 break;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2765 case NFA_PREV_ATOM_NO_WIDTH_NEG:
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2766 start_state = NFA_START_INVISIBLE_NEG;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2767 end_state = NFA_END_INVISIBLE_NEG;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2768 break;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2769 case NFA_PREV_ATOM_JUST_BEFORE:
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2770 start_state = NFA_START_INVISIBLE_BEFORE;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2771 end_state = NFA_END_INVISIBLE;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2772 break;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2773 case NFA_PREV_ATOM_JUST_BEFORE_NEG:
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2774 start_state = NFA_START_INVISIBLE_BEFORE_NEG;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2775 end_state = NFA_END_INVISIBLE_NEG;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2776 break;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2777 case NFA_PREV_ATOM_LIKE_PATTERN:
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2778 start_state = NFA_START_PATTERN;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2779 end_state = NFA_END_PATTERN;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	2780 break;
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2781 }
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2782
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2783 if (before)
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2784 n = ++p; / get the count */
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2785
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	2786 /* The \@= operator: match the preceding atom with zero width.
4661 0dce3d812e7a updated for version 7.3.1078 Bram Moolenaar <bram@vim.org> parents: 4657 diff changeset	2787 * The \@! operator: no match for the preceding atom.
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	2788 * The \@<= operator: match for the preceding atom.
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	2789 * The \@<! operator: no match for the preceding atom.
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2790 * Surrounds the preceding atom with START_INVISIBLE and
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	2791 * END_INVISIBLE, similarly to MOPEN. */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2792
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2793 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2794 {
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2795 nstate += pattern ? 4 : 2;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2796 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2797 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2798 e = POP();
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2799 s1 = alloc_state(end_state, NULL, NULL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2800 if (s1 == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2801 goto theend;
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2802
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2803 s = alloc_state(start_state, e.start, s1);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2804 if (s == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2805 goto theend;
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2806 if (before)
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2807 s->val = n; /* store the count */
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2808 if (pattern)
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	2809 {
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2810 /* NFA_ZEND -> NFA_END_PATTERN -> NFA_SKIP -> what follows. */
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2811 skip = alloc_state(NFA_SKIP, NULL, NULL);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2812 zend = alloc_state(NFA_ZEND, s1, NULL);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2813 s1->out= skip;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2814 patch(e.out, zend);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2815 PUSH(frag(s, list1(&skip->out)));
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	2816 }
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2817 else
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2818 {
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2819 patch(e.out, s1);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2820 PUSH(frag(s, list1(&s1->out)));
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	2821 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2822 break;
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2823 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2824
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2825 #ifdef FEAT_MBYTE
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2826 case NFA_COMPOSING: /* char with composing char */
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2827 #if 0
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2828 /* TODO */
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2829 if (regflags & RF_ICOMBINE)
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2830 {
4529 432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	2831 /* use the base character only */
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2832 }
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2833 #endif
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2834 /* FALLTHROUGH */
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2835 #endif
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2836
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2837 case NFA_MOPEN: /* Submatch */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2838 case NFA_MOPEN1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2839 case NFA_MOPEN2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2840 case NFA_MOPEN3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2841 case NFA_MOPEN4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2842 case NFA_MOPEN5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2843 case NFA_MOPEN6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2844 case NFA_MOPEN7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2845 case NFA_MOPEN8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2846 case NFA_MOPEN9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2847 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2848 case NFA_ZOPEN: /* \z( \) Submatch */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2849 case NFA_ZOPEN1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2850 case NFA_ZOPEN2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2851 case NFA_ZOPEN3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2852 case NFA_ZOPEN4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2853 case NFA_ZOPEN5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2854 case NFA_ZOPEN6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2855 case NFA_ZOPEN7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2856 case NFA_ZOPEN8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2857 case NFA_ZOPEN9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2858 #endif
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2859 case NFA_NOPEN: /* \%( \) "Invisible Submatch" */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2860 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2861 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2862 nstate += 2;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2863 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2864 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2865
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2866 mopen = *p;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2867 switch (*p)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2868 {
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2869 case NFA_NOPEN: mclose = NFA_NCLOSE; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2870 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2871 case NFA_ZOPEN: mclose = NFA_ZCLOSE; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2872 case NFA_ZOPEN1: mclose = NFA_ZCLOSE1; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2873 case NFA_ZOPEN2: mclose = NFA_ZCLOSE2; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2874 case NFA_ZOPEN3: mclose = NFA_ZCLOSE3; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2875 case NFA_ZOPEN4: mclose = NFA_ZCLOSE4; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2876 case NFA_ZOPEN5: mclose = NFA_ZCLOSE5; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2877 case NFA_ZOPEN6: mclose = NFA_ZCLOSE6; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2878 case NFA_ZOPEN7: mclose = NFA_ZCLOSE7; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2879 case NFA_ZOPEN8: mclose = NFA_ZCLOSE8; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2880 case NFA_ZOPEN9: mclose = NFA_ZCLOSE9; break;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2881 #endif
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2882 #ifdef FEAT_MBYTE
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2883 case NFA_COMPOSING: mclose = NFA_END_COMPOSING; break;
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2884 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2885 default:
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2886 /* NFA_MOPEN, NFA_MOPEN1 .. NFA_MOPEN9 */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2887 mclose = *p + NSUBEXP;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2888 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2889 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2890
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2891 /* Allow "NFA_MOPEN" as a valid postfix representation for
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2892 * the empty regexp "". In this case, the NFA will be
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2893 * NFA_MOPEN -> NFA_MCLOSE. Note that this also allows
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2894 * empty groups of parenthesis, and empty mbyte chars */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2895 if (stackp == stack)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2896 {
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2897 s = alloc_state(mopen, NULL, NULL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2898 if (s == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2899 goto theend;
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2900 s1 = alloc_state(mclose, NULL, NULL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2901 if (s1 == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2902 goto theend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2903 patch(list1(&s->out), s1);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2904 PUSH(frag(s, list1(&s1->out)));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2905 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2906 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2907
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2908 /* At least one node was emitted before NFA_MOPEN, so
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2909 * at least one node will be between NFA_MOPEN and NFA_MCLOSE */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2910 e = POP();
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2911 s = alloc_state(mopen, e.start, NULL); /* `(' */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2912 if (s == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2913 goto theend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2914
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2915 s1 = alloc_state(mclose, NULL, NULL); /* `)' */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2916 if (s1 == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	2917 goto theend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2918 patch(e.out, s1);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2919
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2920 #ifdef FEAT_MBYTE
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2921 if (mopen == NFA_COMPOSING)
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	2922 /* COMPOSING->out1 = END_COMPOSING */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2923 patch(list1(&s->out1), s1);
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	2924 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2925
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2926 PUSH(frag(s, list1(&s1->out)));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2927 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2928
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2929 case NFA_BACKREF1:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2930 case NFA_BACKREF2:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2931 case NFA_BACKREF3:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2932 case NFA_BACKREF4:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2933 case NFA_BACKREF5:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2934 case NFA_BACKREF6:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2935 case NFA_BACKREF7:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2936 case NFA_BACKREF8:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2937 case NFA_BACKREF9:
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2938 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2939 case NFA_ZREF1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2940 case NFA_ZREF2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2941 case NFA_ZREF3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2942 case NFA_ZREF4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2943 case NFA_ZREF5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2944 case NFA_ZREF6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2945 case NFA_ZREF7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2946 case NFA_ZREF8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2947 case NFA_ZREF9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	2948 #endif
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2949 if (nfa_calc_size == TRUE)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2950 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2951 nstate += 2;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2952 break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2953 }
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2954 s = alloc_state(*p, NULL, NULL);
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2955 if (s == NULL)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2956 goto theend;
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	2957 s1 = alloc_state(NFA_SKIP, NULL, NULL);
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2958 if (s1 == NULL)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2959 goto theend;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2960 patch(list1(&s->out), s1);
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2961 PUSH(frag(s, list1(&s1->out)));
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2962 break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	2963
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2964 case NFA_LNUM:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2965 case NFA_LNUM_GT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2966 case NFA_LNUM_LT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2967 case NFA_VCOL:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2968 case NFA_VCOL_GT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2969 case NFA_VCOL_LT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2970 case NFA_COL:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2971 case NFA_COL_GT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2972 case NFA_COL_LT:
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2973 case NFA_MARK:
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2974 case NFA_MARK_GT:
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	2975 case NFA_MARK_LT:
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2976 {
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2977 int n = ++p; / lnum, col or mark name */
97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2978
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2979 if (nfa_calc_size == TRUE)
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2980 {
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2981 nstate += 1;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2982 break;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2983 }
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2984 s = alloc_state(p[-1], NULL, NULL);
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2985 if (s == NULL)
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2986 goto theend;
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2987 s->val = n;
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2988 PUSH(frag(s, list1(&s->out)));
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2989 break;
4740 97560c16ca99 updated for version 7.3.1117 Bram Moolenaar <bram@vim.org> parents: 4738 diff changeset	2990 }
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	2991
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2992 case NFA_ZSTART:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2993 case NFA_ZEND:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2994 default:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2995 /* Operands */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2996 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2997 {
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	2998 nstate++;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	2999 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3000 }
4696 ed4e689bbea1 updated for version 7.3.1095 Bram Moolenaar <bram@vim.org> parents: 4694 diff changeset	3001 s = alloc_state(*p, NULL, NULL);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3002 if (s == NULL)
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	3003 goto theend;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3004 PUSH(frag(s, list1(&s->out)));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3005 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3006
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3007 } /* switch(p) /
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3008
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3009 } /* for(p = postfix; p; ++p) /
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3010
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3011 if (nfa_calc_size == TRUE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3012 {
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	3013 nstate++;
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	3014 goto theend; /* Return value when counting size is ignored anyway */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3015 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3016
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3017 e = POP();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3018 if (stackp != stack)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3019 EMSG_RET_NULL(_("E875: (NFA regexp) (While converting from postfix to NFA), too many states left on stack"));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3020
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3021 if (istate >= nstate)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3022 EMSG_RET_NULL(_("E876: (NFA regexp) Not enough space to store the whole NFA "));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3023
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3024 matchstate = &state_ptr[istate++]; /* the match state */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3025 matchstate->c = NFA_MATCH;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3026 matchstate->out = matchstate->out1 = NULL;
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	3027 matchstate->id = 0;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3028
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3029 patch(e.out, matchstate);
4484 9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	3030 ret = e.start;
9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	3031
9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	3032 theend:
9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	3033 vim_free(stack);
9a1d78f82826 updated for version 7.3.990 Bram Moolenaar <bram@vim.org> parents: 4482 diff changeset	3034 return ret;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3035
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3036 #undef POP1
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3037 #undef PUSH1
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3038 #undef POP2
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3039 #undef PUSH2
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3040 #undef POP
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3041 #undef PUSH
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3042 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3043
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3044 /****************************************************************
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3045 * NFA execution code.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3046 ****************************************************************/
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3047
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3048 typedef struct
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3049 {
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3050 int in_use; /* number of subexpr with useful info */
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3051
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3052 /* When REG_MULTI is TRUE list.multi is used, otherwise list.line. */
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3053 union
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3054 {
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3055 struct multipos
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3056 {
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3057 lpos_T start;
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3058 lpos_T end;
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3059 } multi[NSUBEXP];
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3060 struct linepos
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3061 {
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3062 char_u *start;
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3063 char_u *end;
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3064 } line[NSUBEXP];
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3065 } list;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3066 } regsub_T;
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3067
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3068 typedef struct
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3069 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3070 regsub_T norm; /* $ .. $ matches */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3071 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3072 regsub_T synt; /* \z( .. \) matches */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3073 #endif
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3074 } regsubs_T;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3075
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3076 /* nfa_pim_T stores a Postponed Invisible Match. */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3077 typedef struct nfa_pim_S nfa_pim_T;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3078 struct nfa_pim_S
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3079 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3080 nfa_state_T *state;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3081 int result; /* NFA_PIM_TODO, NFA_PIM_[NO]MATCH */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3082 nfa_pim_T pim; / another PIM at the same position */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3083 regsubs_T subs; /* submatch info, only party used */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3084 };
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3085
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3086 /* Values for done in nfa_pim_T. */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3087 #define NFA_PIM_TODO 0
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3088 #define NFA_PIM_MATCH 1
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3089 #define NFA_PIM_NOMATCH -1
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3090
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3091
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3092 /* nfa_thread_T contains execution information of a NFA state */
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3093 typedef struct
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3094 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3095 nfa_state_T *state;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3096 int count;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3097 nfa_pim_T pim; / if not NULL: postponed invisible match */
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3098 regsubs_T subs; /* submatch info, only party used */
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3099 } nfa_thread_T;
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3100
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3101 /* nfa_list_T contains the alternative NFA execution states. */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3102 typedef struct
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3103 {
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3104 nfa_thread_T t; / allocated array of states */
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3105 int n; /* nr of states currently in "t" */
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3106 int len; /* max nr of states in "t" */
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3107 int id; /* ID of the list */
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3108 } nfa_list_T;
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3109
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3110 #ifdef ENABLE_LOG
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3111 static void log_subsexpr __ARGS((regsubs_T *subs));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3112 static void log_subexpr __ARGS((regsub_T *sub));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3113
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3114 static void
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3115 log_subsexpr(subs)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3116 regsubs_T *subs;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3117 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3118 log_subexpr(&subs->norm);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3119 # ifdef FEAT_SYN_HL
4770 b20dbf3a5370 updated for version 7.3.1132 Bram Moolenaar <bram@vim.org> parents: 4768 diff changeset	3120 if (nfa_has_zsubexpr)
b20dbf3a5370 updated for version 7.3.1132 Bram Moolenaar <bram@vim.org> parents: 4768 diff changeset	3121 log_subexpr(&subs->synt);
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3122 # endif
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3123 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3124
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3125 static void
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3126 log_subexpr(sub)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3127 regsub_T *sub;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3128 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3129 int j;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3130
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3131 for (j = 0; j < sub->in_use; j++)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3132 if (REG_MULTI)
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	3133 fprintf(log_fd, "*** group %d, start: c=%d, l=%d, end: c=%d, l=%d\n",
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3134 j,
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3135 sub->list.multi[j].start.col,
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3136 (int)sub->list.multi[j].start.lnum,
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3137 sub->list.multi[j].end.col,
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3138 (int)sub->list.multi[j].end.lnum);
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3139 else
4746 d1376091d18b updated for version 7.3.1120 Bram Moolenaar <bram@vim.org> parents: 4744 diff changeset	3140 {
d1376091d18b updated for version 7.3.1120 Bram Moolenaar <bram@vim.org> parents: 4744 diff changeset	3141 char s = (char )sub->list.line[j].start;
d1376091d18b updated for version 7.3.1120 Bram Moolenaar <bram@vim.org> parents: 4744 diff changeset	3142 char e = (char )sub->list.line[j].end;
d1376091d18b updated for version 7.3.1120 Bram Moolenaar <bram@vim.org> parents: 4744 diff changeset	3143
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	3144 fprintf(log_fd, "*** group %d, start: \"%s\", end: \"%s\"\n",
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3145 j,
4746 d1376091d18b updated for version 7.3.1120 Bram Moolenaar <bram@vim.org> parents: 4744 diff changeset	3146 s == NULL ? "NULL" : s,
d1376091d18b updated for version 7.3.1120 Bram Moolenaar <bram@vim.org> parents: 4744 diff changeset	3147 e == NULL ? "NULL" : e);
d1376091d18b updated for version 7.3.1120 Bram Moolenaar <bram@vim.org> parents: 4744 diff changeset	3148 }
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3149 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3150 #endif
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3151
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3152 /* Used during execution: whether a match has been found. */
4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3153 static int nfa_match;
4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3154
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3155 static void clear_sub __ARGS((regsub_T *sub));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3156 static void copy_sub __ARGS((regsub_T to, regsub_T from));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3157 static void copy_sub_off __ARGS((regsub_T to, regsub_T from));
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3158 static int sub_equal __ARGS((regsub_T sub1, regsub_T sub2));
4787 7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3159 static int has_state_with_pos __ARGS((nfa_list_T l, nfa_state_T state, regsubs_T *subs));
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3160 static int state_in_list __ARGS((nfa_list_T l, nfa_state_T state, regsubs_T *subs));
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3161 static void addstate __ARGS((nfa_list_T l, nfa_state_T state, regsubs_T *subs, int off));
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3162 static void addstate_here __ARGS((nfa_list_T l, nfa_state_T state, regsubs_T subs, nfa_pim_T pim, int *ip));
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3163
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3164 static void
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3165 clear_sub(sub)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3166 regsub_T *sub;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3167 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3168 if (REG_MULTI)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3169 /* Use 0xff to set lnum to -1 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3170 vim_memset(sub->list.multi, 0xff,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3171 sizeof(struct multipos) * nfa_nsubexpr);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3172 else
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3173 vim_memset(sub->list.line, 0, sizeof(struct linepos) * nfa_nsubexpr);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3174 sub->in_use = 0;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3175 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3176
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3177 /*
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3178 * Copy the submatches from "from" to "to".
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3179 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3180 static void
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3181 copy_sub(to, from)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3182 regsub_T *to;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3183 regsub_T *from;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3184 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3185 to->in_use = from->in_use;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3186 if (from->in_use > 0)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3187 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3188 /* Copy the match start and end positions. */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3189 if (REG_MULTI)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3190 mch_memmove(&to->list.multi[0],
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3191 &from->list.multi[0],
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3192 sizeof(struct multipos) * from->in_use);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3193 else
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3194 mch_memmove(&to->list.line[0],
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3195 &from->list.line[0],
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3196 sizeof(struct linepos) * from->in_use);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3197 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3198 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3199
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3200 /*
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3201 * Like copy_sub() but exclude the main match.
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3202 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3203 static void
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3204 copy_sub_off(to, from)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3205 regsub_T *to;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3206 regsub_T *from;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3207 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3208 if (to->in_use < from->in_use)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3209 to->in_use = from->in_use;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3210 if (from->in_use > 1)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3211 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3212 /* Copy the match start and end positions. */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3213 if (REG_MULTI)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3214 mch_memmove(&to->list.multi[1],
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3215 &from->list.multi[1],
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3216 sizeof(struct multipos) * (from->in_use - 1));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3217 else
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3218 mch_memmove(&to->list.line[1],
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3219 &from->list.line[1],
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3220 sizeof(struct linepos) * (from->in_use - 1));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3221 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3222 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3223
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3224 /*
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3225 * Return TRUE if "sub1" and "sub2" have the same positions.
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3226 */
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3227 static int
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3228 sub_equal(sub1, sub2)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3229 regsub_T *sub1;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3230 regsub_T *sub2;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3231 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3232 int i;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3233 int todo;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3234 linenr_T s1, e1;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3235 linenr_T s2, e2;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3236 char_u sp1, ep1;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3237 char_u sp2, ep2;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3238
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3239 todo = sub1->in_use > sub2->in_use ? sub1->in_use : sub2->in_use;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3240 if (REG_MULTI)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3241 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3242 for (i = 0; i < todo; ++i)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3243 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3244 if (i < sub1->in_use)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3245 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3246 s1 = sub1->list.multi[i].start.lnum;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3247 e1 = sub1->list.multi[i].end.lnum;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3248 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3249 else
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3250 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3251 s1 = 0;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3252 e1 = 0;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3253 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3254 if (i < sub2->in_use)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3255 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3256 s2 = sub2->list.multi[i].start.lnum;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3257 e2 = sub2->list.multi[i].end.lnum;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3258 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3259 else
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3260 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3261 s2 = 0;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3262 e2 = 0;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3263 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3264 if (s1 != s2 \|\| e1 != e2)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3265 return FALSE;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3266 if (s1 != 0 && sub1->list.multi[i].start.col
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3267 != sub2->list.multi[i].start.col)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3268 return FALSE;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3269 if (e1 != 0 && sub1->list.multi[i].end.col
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3270 != sub2->list.multi[i].end.col)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3271 return FALSE;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3272 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3273 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3274 else
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3275 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3276 for (i = 0; i < todo; ++i)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3277 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3278 if (i < sub1->in_use)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3279 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3280 sp1 = sub1->list.line[i].start;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3281 ep1 = sub1->list.line[i].end;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3282 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3283 else
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3284 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3285 sp1 = NULL;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3286 ep1 = NULL;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3287 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3288 if (i < sub2->in_use)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3289 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3290 sp2 = sub2->list.line[i].start;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3291 ep2 = sub2->list.line[i].end;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3292 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3293 else
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3294 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3295 sp2 = NULL;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3296 ep2 = NULL;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3297 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3298 if (sp1 != sp2 \|\| ep1 != ep2)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3299 return FALSE;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3300 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3301 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3302
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3303 return TRUE;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3304 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3305
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3306 #ifdef ENABLE_LOG
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3307 static void
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3308 report_state(char action, regsub_T sub, nfa_state_T *state, int lid)
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3309 {
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3310 int col;
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3311
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3312 if (sub->in_use <= 0)
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3313 col = -1;
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3314 else if (REG_MULTI)
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3315 col = sub->list.multi[0].start.col;
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3316 else
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3317 col = (int)(sub->list.line[0].start - regline);
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3318 nfa_set_code(state->c);
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3319 fprintf(log_fd, "> %s state %d to list %d. char %d: %s (start col %d)\n",
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3320 action, abs(state->id), lid, state->c, code, col);
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3321 }
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3322 #endif
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3323
4787 7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3324 /*
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3325 * Return TRUE if the same state is already in list "l" with the same
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3326 * positions as "subs".
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3327 */
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3328 static int
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3329 has_state_with_pos(l, state, subs)
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3330 nfa_list_T l; / runtime state list */
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3331 nfa_state_T state; / state to update */
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3332 regsubs_T subs; / pointers to subexpressions */
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3333 {
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3334 nfa_thread_T *thread;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3335 int i;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3336
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3337 for (i = 0; i < l->n; ++i)
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3338 {
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3339 thread = &l->t[i];
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3340 if (thread->state->id == state->id
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3341 && sub_equal(&thread->subs.norm, &subs->norm)
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3342 #ifdef FEAT_SYN_HL
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3343 && (!nfa_has_zsubexpr \|\|
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3344 sub_equal(&thread->subs.synt, &subs->synt))
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3345 #endif
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3346 )
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3347 return TRUE;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3348 }
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3349 return FALSE;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3350 }
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3351
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3352 /*
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3353 * Return TRUE if "state" is already in list "l".
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3354 */
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3355 static int
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3356 state_in_list(l, state, subs)
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3357 nfa_list_T l; / runtime state list */
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3358 nfa_state_T state; / state to update */
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3359 regsubs_T subs; / pointers to subexpressions */
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3360 {
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3361 if (state->lastlist[nfa_ll_index] == l->id)
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3362 {
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3363 if (!nfa_has_backref \|\| has_state_with_pos(l, state, subs))
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3364 return TRUE;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3365 }
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3366 return FALSE;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3367 }
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3368
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3369 static void
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3370 addstate(l, state, subs, off)
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3371 nfa_list_T l; / runtime state list */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3372 nfa_state_T state; / state to update */
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3373 regsubs_T subs; / pointers to subexpressions */
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3374 int off; /* byte offset, when -1 go to next line */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3375 {
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3376 int subidx;
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3377 nfa_thread_T *thread;
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3378 lpos_T save_lpos;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3379 int save_in_use;
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3380 char_u *save_ptr;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3381 int i;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3382 regsub_T *sub;
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3383 #ifdef ENABLE_LOG
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3384 int did_print = FALSE;
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3385 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3386
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3387 if (l == NULL \|\| state == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3388 return;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3389
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3390 switch (state->c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3391 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3392 case NFA_SPLIT:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3393 case NFA_NOPEN:
4748 4b9503f0c7d3 updated for version 7.3.1121 Bram Moolenaar <bram@vim.org> parents: 4746 diff changeset	3394 case NFA_SKIP_CHAR:
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3395 case NFA_NCLOSE:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3396 case NFA_MCLOSE:
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3397 case NFA_MCLOSE1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3398 case NFA_MCLOSE2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3399 case NFA_MCLOSE3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3400 case NFA_MCLOSE4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3401 case NFA_MCLOSE5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3402 case NFA_MCLOSE6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3403 case NFA_MCLOSE7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3404 case NFA_MCLOSE8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3405 case NFA_MCLOSE9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3406 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3407 case NFA_ZCLOSE:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3408 case NFA_ZCLOSE1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3409 case NFA_ZCLOSE2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3410 case NFA_ZCLOSE3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3411 case NFA_ZCLOSE4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3412 case NFA_ZCLOSE5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3413 case NFA_ZCLOSE6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3414 case NFA_ZCLOSE7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3415 case NFA_ZCLOSE8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3416 case NFA_ZCLOSE9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3417 #endif
4748 4b9503f0c7d3 updated for version 7.3.1121 Bram Moolenaar <bram@vim.org> parents: 4746 diff changeset	3418 case NFA_ZEND:
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3419 /* These nodes are not added themselves but their "out" and/or
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3420 * "out1" may be added below. */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3421 break;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3422
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3423 case NFA_MOPEN:
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3424 case NFA_MOPEN1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3425 case NFA_MOPEN2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3426 case NFA_MOPEN3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3427 case NFA_MOPEN4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3428 case NFA_MOPEN5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3429 case NFA_MOPEN6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3430 case NFA_MOPEN7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3431 case NFA_MOPEN8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3432 case NFA_MOPEN9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3433 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3434 case NFA_ZOPEN:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3435 case NFA_ZOPEN1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3436 case NFA_ZOPEN2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3437 case NFA_ZOPEN3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3438 case NFA_ZOPEN4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3439 case NFA_ZOPEN5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3440 case NFA_ZOPEN6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3441 case NFA_ZOPEN7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3442 case NFA_ZOPEN8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3443 case NFA_ZOPEN9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3444 #endif
4748 4b9503f0c7d3 updated for version 7.3.1121 Bram Moolenaar <bram@vim.org> parents: 4746 diff changeset	3445 case NFA_ZSTART:
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3446 /* These nodes do not need to be added, but we need to bail out
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3447 * when it was tried to be added to this list before. */
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	3448 if (state->lastlist[nfa_ll_index] == l->id)
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3449 goto skip_add;
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	3450 state->lastlist[nfa_ll_index] = l->id;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3451 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3452
4694 efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3453 case NFA_BOL:
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3454 case NFA_BOF:
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3455 /* "^" won't match past end-of-line, don't bother trying.
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3456 * Except when we are going to the next line for a look-behind
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3457 * match. */
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3458 if (reginput > regline
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3459 && (nfa_endp == NULL
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3460 \|\| !REG_MULTI
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3461 \|\| reglnum == nfa_endp->se_u.pos.lnum))
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3462 goto skip_add;
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3463 /* FALLTHROUGH */
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	3464
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3465 default:
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	3466 if (state->lastlist[nfa_ll_index] == l->id)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3467 {
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3468 /* This state is already in the list, don't add it again,
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3469 * unless it is an MOPEN that is used for a backreference. */
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3470 if (!nfa_has_backref)
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3471 {
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3472 skip_add:
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3473 #ifdef ENABLE_LOG
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3474 nfa_set_code(state->c);
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3475 fprintf(log_fd, "> Not adding state %d to list %d. char %d: %s\n",
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3476 abs(state->id), l->id, state->c, code);
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3477 #endif
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3478 return;
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3479 }
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3480
4787 7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3481 if (has_state_with_pos(l, state, subs))
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	3482 goto skip_add;
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3483 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3484
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3485 /* when there are backreferences or look-behind matches the number
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3486 * of states may be (a lot) bigger */
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3487 if (nfa_has_backref && l->n == l->len)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3488 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3489 int newlen = l->len * 3 / 2 + 50;
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3490
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3491 l->t = vim_realloc(l->t, newlen * sizeof(nfa_thread_T));
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3492 l->len = newlen;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3493 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3494
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3495 /* add the state to the list */
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	3496 state->lastlist[nfa_ll_index] = l->id;
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3497 thread = &l->t[l->n++];
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3498 thread->state = state;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3499 thread->pim = NULL;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3500 copy_sub(&thread->subs.norm, &subs->norm);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3501 #ifdef FEAT_SYN_HL
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3502 if (nfa_has_zsubexpr)
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3503 copy_sub(&thread->subs.synt, &subs->synt);
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3504 #endif
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3505 #ifdef ENABLE_LOG
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3506 report_state("Adding", &thread->subs.norm, state, l->id);
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3507 did_print = TRUE;
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3508 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3509 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3510
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3511 #ifdef ENABLE_LOG
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	3512 if (!did_print)
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3513 report_state("Processing", &subs->norm, state, l->id);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3514 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3515 switch (state->c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3516 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3517 case NFA_MATCH:
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3518 nfa_match = TRUE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3519 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3520
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3521 case NFA_SPLIT:
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3522 /* order matters here */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3523 addstate(l, state->out, subs, off);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3524 addstate(l, state->out1, subs, off);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3525 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3526
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3527 case NFA_SKIP_CHAR:
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3528 case NFA_NOPEN:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3529 case NFA_NCLOSE:
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3530 addstate(l, state->out, subs, off);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3531 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3532
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3533 case NFA_MOPEN:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3534 case NFA_MOPEN1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3535 case NFA_MOPEN2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3536 case NFA_MOPEN3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3537 case NFA_MOPEN4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3538 case NFA_MOPEN5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3539 case NFA_MOPEN6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3540 case NFA_MOPEN7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3541 case NFA_MOPEN8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3542 case NFA_MOPEN9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3543 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3544 case NFA_ZOPEN:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3545 case NFA_ZOPEN1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3546 case NFA_ZOPEN2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3547 case NFA_ZOPEN3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3548 case NFA_ZOPEN4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3549 case NFA_ZOPEN5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3550 case NFA_ZOPEN6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3551 case NFA_ZOPEN7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3552 case NFA_ZOPEN8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3553 case NFA_ZOPEN9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3554 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3555 case NFA_ZSTART:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3556 if (state->c == NFA_ZSTART)
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3557 {
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3558 subidx = 0;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3559 sub = &subs->norm;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3560 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3561 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3562 else if (state->c >= NFA_ZOPEN)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3563 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3564 subidx = state->c - NFA_ZOPEN;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3565 sub = &subs->synt;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3566 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3567 #endif
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3568 else
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3569 {
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3570 subidx = state->c - NFA_MOPEN;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3571 sub = &subs->norm;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3572 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3573
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3574 /* Set the position (with "off") in the subexpression. Save and
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3575 * restore it when it was in use. Otherwise fill any gap. */
4649 9f502d8d5165 updated for version 7.3.1072 Bram Moolenaar <bram@vim.org> parents: 4647 diff changeset	3576 save_ptr = NULL;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3577 if (REG_MULTI)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3578 {
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3579 if (subidx < sub->in_use)
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3580 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3581 save_lpos = sub->list.multi[subidx].start;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3582 save_in_use = -1;
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3583 }
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3584 else
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3585 {
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3586 save_in_use = sub->in_use;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3587 for (i = sub->in_use; i < subidx; ++i)
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3588 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3589 sub->list.multi[i].start.lnum = -1;
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3590 sub->list.multi[i].end.lnum = -1;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3591 }
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3592 sub->in_use = subidx + 1;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3593 }
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3594 if (off == -1)
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3595 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3596 sub->list.multi[subidx].start.lnum = reglnum + 1;
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3597 sub->list.multi[subidx].start.col = 0;
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3598 }
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3599 else
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3600 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3601 sub->list.multi[subidx].start.lnum = reglnum;
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3602 sub->list.multi[subidx].start.col =
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3603 (colnr_T)(reginput - regline + off);
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3604 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3605 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3606 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3607 {
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3608 if (subidx < sub->in_use)
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3609 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3610 save_ptr = sub->list.line[subidx].start;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3611 save_in_use = -1;
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3612 }
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3613 else
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3614 {
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3615 save_in_use = sub->in_use;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3616 for (i = sub->in_use; i < subidx; ++i)
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3617 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3618 sub->list.line[i].start = NULL;
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3619 sub->list.line[i].end = NULL;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3620 }
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3621 sub->in_use = subidx + 1;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3622 }
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3623 sub->list.line[subidx].start = reginput + off;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3624 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3625
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3626 addstate(l, state->out, subs, off);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3627
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3628 if (save_in_use == -1)
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3629 {
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3630 if (REG_MULTI)
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3631 sub->list.multi[subidx].start = save_lpos;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3632 else
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3633 sub->list.line[subidx].start = save_ptr;
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3634 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3635 else
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3636 sub->in_use = save_in_use;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3637 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3638
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3639 case NFA_MCLOSE:
4553 7b835b2969af updated for version 7.3.1024 Bram Moolenaar <bram@vim.org> parents: 4551 diff changeset	3640 if (nfa_has_zend)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3641 {
4569 f262fb02889d updated for version 7.3.1032 Bram Moolenaar <bram@vim.org> parents: 4567 diff changeset	3642 /* Do not overwrite the position set by \ze. If no \ze
f262fb02889d updated for version 7.3.1032 Bram Moolenaar <bram@vim.org> parents: 4567 diff changeset	3643 * encountered end will be set in nfa_regtry(). */
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3644 addstate(l, state->out, subs, off);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3645 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3646 }
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3647 case NFA_MCLOSE1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3648 case NFA_MCLOSE2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3649 case NFA_MCLOSE3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3650 case NFA_MCLOSE4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3651 case NFA_MCLOSE5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3652 case NFA_MCLOSE6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3653 case NFA_MCLOSE7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3654 case NFA_MCLOSE8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3655 case NFA_MCLOSE9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3656 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3657 case NFA_ZCLOSE:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3658 case NFA_ZCLOSE1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3659 case NFA_ZCLOSE2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3660 case NFA_ZCLOSE3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3661 case NFA_ZCLOSE4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3662 case NFA_ZCLOSE5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3663 case NFA_ZCLOSE6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3664 case NFA_ZCLOSE7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3665 case NFA_ZCLOSE8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3666 case NFA_ZCLOSE9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3667 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3668 case NFA_ZEND:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3669 if (state->c == NFA_ZEND)
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3670 {
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3671 subidx = 0;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3672 sub = &subs->norm;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3673 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3674 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3675 else if (state->c >= NFA_ZCLOSE)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3676 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3677 subidx = state->c - NFA_ZCLOSE;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3678 sub = &subs->synt;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3679 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3680 #endif
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3681 else
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3682 {
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3683 subidx = state->c - NFA_MCLOSE;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3684 sub = &subs->norm;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3685 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3686
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3687 /* We don't fill in gaps here, there must have been an MOPEN that
e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	3688 * has done that. */
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3689 save_in_use = sub->in_use;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3690 if (sub->in_use <= subidx)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3691 sub->in_use = subidx + 1;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3692 if (REG_MULTI)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3693 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3694 save_lpos = sub->list.multi[subidx].end;
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3695 if (off == -1)
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3696 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3697 sub->list.multi[subidx].end.lnum = reglnum + 1;
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3698 sub->list.multi[subidx].end.col = 0;
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3699 }
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3700 else
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3701 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3702 sub->list.multi[subidx].end.lnum = reglnum;
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3703 sub->list.multi[subidx].end.col =
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	3704 (colnr_T)(reginput - regline + off);
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	3705 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3706 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3707 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3708 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3709 save_ptr = sub->list.line[subidx].end;
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3710 sub->list.line[subidx].end = reginput + off;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3711 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3712
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3713 addstate(l, state->out, subs, off);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3714
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3715 if (REG_MULTI)
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3716 sub->list.multi[subidx].end = save_lpos;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3717 else
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3718 sub->list.line[subidx].end = save_ptr;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3719 sub->in_use = save_in_use;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3720 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3721 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3722 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3723
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3724 /*
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3725 * Like addstate(), but the new state(s) are put at position "*ip".
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3726 * Used for zero-width matches, next state to use is the added one.
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3727 * This makes sure the order of states to be tried does not change, which
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3728 * matters for alternatives.
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3729 */
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3730 static void
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3731 addstate_here(l, state, subs, pim, ip)
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3732 nfa_list_T l; / runtime state list */
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3733 nfa_state_T state; / state to update */
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3734 regsubs_T subs; / pointers to subexpressions */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3735 nfa_pim_T pim; / postponed look-behind match */
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3736 int *ip;
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3737 {
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3738 int tlen = l->n;
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3739 int count;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3740 int listidx = *ip;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3741 int i;
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3742
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3743 /* first add the state(s) at the end, so that we know how many there are */
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3744 addstate(l, state, subs, 0);
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3745
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3746 /* fill in the "pim" field in the new states */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3747 if (pim != NULL)
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3748 for (i = tlen; i < l->n; ++i)
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3749 l->t[i].pim = pim;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3750
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3751 /* when "ip" was at the end of the list, nothing to do /
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3752 if (listidx + 1 == tlen)
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3753 return;
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3754
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3755 /* re-order to put the new state at the current position */
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3756 count = l->n - tlen;
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3757 if (count == 1)
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3758 {
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3759 /* overwrite the current state */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3760 l->t[listidx] = l->t[l->n - 1];
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3761 }
857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	3762 else if (count > 1)
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3763 {
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3764 /* make space for new states, then move them from the
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3765 * end to the current position */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3766 mch_memmove(&(l->t[listidx + count]),
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3767 &(l->t[listidx + 1]),
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3768 sizeof(nfa_thread_T) * (l->n - listidx - 1));
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3769 mch_memmove(&(l->t[listidx]),
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3770 &(l->t[l->n - 1]),
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3771 sizeof(nfa_thread_T) * count);
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3772 }
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3773 --l->n;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	3774 *ip = listidx - 1;
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3775 }
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3776
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	3777 /*
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3778 * Check character class "class" against current character c.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3779 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3780 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3781 check_char_class(class, c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3782 int class;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3783 int c;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3784 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3785 switch (class)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3786 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3787 case NFA_CLASS_ALNUM:
4464 c83656c9745a updated for version 7.3.980 Bram Moolenaar <bram@vim.org> parents: 4462 diff changeset	3788 if (c >= 1 && c <= 255 && isalnum(c))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3789 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3790 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3791 case NFA_CLASS_ALPHA:
4464 c83656c9745a updated for version 7.3.980 Bram Moolenaar <bram@vim.org> parents: 4462 diff changeset	3792 if (c >= 1 && c <= 255 && isalpha(c))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3793 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3794 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3795 case NFA_CLASS_BLANK:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3796 if (c == ' ' \|\| c == '\t')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3797 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3798 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3799 case NFA_CLASS_CNTRL:
4464 c83656c9745a updated for version 7.3.980 Bram Moolenaar <bram@vim.org> parents: 4462 diff changeset	3800 if (c >= 1 && c <= 255 && iscntrl(c))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3801 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3802 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3803 case NFA_CLASS_DIGIT:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3804 if (VIM_ISDIGIT(c))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3805 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3806 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3807 case NFA_CLASS_GRAPH:
4464 c83656c9745a updated for version 7.3.980 Bram Moolenaar <bram@vim.org> parents: 4462 diff changeset	3808 if (c >= 1 && c <= 255 && isgraph(c))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3809 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3810 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3811 case NFA_CLASS_LOWER:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3812 if (MB_ISLOWER(c))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3813 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3814 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3815 case NFA_CLASS_PRINT:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3816 if (vim_isprintc(c))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3817 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3818 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3819 case NFA_CLASS_PUNCT:
4464 c83656c9745a updated for version 7.3.980 Bram Moolenaar <bram@vim.org> parents: 4462 diff changeset	3820 if (c >= 1 && c <= 255 && ispunct(c))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3821 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3822 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3823 case NFA_CLASS_SPACE:
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	3824 if ((c >= 9 && c <= 13) \|\| (c == ' '))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3825 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3826 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3827 case NFA_CLASS_UPPER:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3828 if (MB_ISUPPER(c))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3829 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3830 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3831 case NFA_CLASS_XDIGIT:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3832 if (vim_isxdigit(c))
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3833 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3834 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3835 case NFA_CLASS_TAB:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3836 if (c == '\t')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3837 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3838 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3839 case NFA_CLASS_RETURN:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3840 if (c == '\r')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3841 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3842 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3843 case NFA_CLASS_BACKSPACE:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3844 if (c == '\b')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3845 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3846 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3847 case NFA_CLASS_ESCAPE:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3848 if (c == '\033')
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3849 return OK;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3850 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3851
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3852 default:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3853 /* should not be here :P */
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	3854 EMSGN("E877: (NFA regexp) Invalid character class: %ld", class);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	3855 return FAIL;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3856 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3857 return FAIL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3858 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3859
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3860 static int match_backref __ARGS((regsub_T sub, int subidx, int bytelen));
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3861
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3862 /*
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3863 * Check for a match with subexpression "subidx".
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3864 * Return TRUE if it matches.
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3865 */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3866 static int
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3867 match_backref(sub, subidx, bytelen)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3868 regsub_T sub; / pointers to subexpressions */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3869 int subidx;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3870 int bytelen; / out: length of match in bytes */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3871 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3872 int len;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3873
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3874 if (sub->in_use <= subidx)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3875 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3876 retempty:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3877 /* backref was not set, match an empty string */
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3878 *bytelen = 0;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3879 return TRUE;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3880 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3881
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3882 if (REG_MULTI)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3883 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3884 if (sub->list.multi[subidx].start.lnum < 0
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3885 \|\| sub->list.multi[subidx].end.lnum < 0)
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3886 goto retempty;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3887 /* TODO: line breaks */
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3888 len = sub->list.multi[subidx].end.col
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3889 - sub->list.multi[subidx].start.col;
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3890 if (cstrncmp(regline + sub->list.multi[subidx].start.col,
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3891 reginput, &len) == 0)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3892 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3893 *bytelen = len;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3894 return TRUE;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3895 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3896 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3897 else
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3898 {
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3899 if (sub->list.line[subidx].start == NULL
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3900 \|\| sub->list.line[subidx].end == NULL)
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3901 goto retempty;
4577 b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3902 len = (int)(sub->list.line[subidx].end - sub->list.line[subidx].start);
b22bff1a6af8 updated for version 7.3.1036 Bram Moolenaar <bram@vim.org> parents: 4573 diff changeset	3903 if (cstrncmp(sub->list.line[subidx].start, reginput, &len) == 0)
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3904 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3905 *bytelen = len;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3906 return TRUE;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3907 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3908 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3909 return FALSE;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3910 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	3911
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3912 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3913
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3914 static int match_zref __ARGS((int subidx, int *bytelen));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3915
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3916 /*
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3917 * Check for a match with \z subexpression "subidx".
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3918 * Return TRUE if it matches.
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3919 */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3920 static int
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3921 match_zref(subidx, bytelen)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3922 int subidx;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3923 int bytelen; / out: length of match in bytes */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3924 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3925 int len;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3926
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3927 cleanup_zsubexpr();
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3928 if (re_extmatch_in == NULL \|\| re_extmatch_in->matches[subidx] == NULL)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3929 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3930 /* backref was not set, match an empty string */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3931 *bytelen = 0;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3932 return TRUE;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3933 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3934
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3935 len = (int)STRLEN(re_extmatch_in->matches[subidx]);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3936 if (cstrncmp(re_extmatch_in->matches[subidx], reginput, &len) == 0)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3937 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3938 *bytelen = len;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3939 return TRUE;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3940 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3941 return FALSE;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3942 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3943 #endif
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	3944
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3945 /*
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3946 * Save list IDs for all NFA states of "prog" into "list".
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3947 * Also reset the IDs to zero.
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	3948 * Only used for the recursive value lastlist[1].
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3949 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3950 static void
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3951 nfa_save_listids(prog, list)
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3952 nfa_regprog_T *prog;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3953 int *list;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3954 {
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3955 int i;
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3956 nfa_state_T *p;
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3957
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3958 /* Order in the list is reverse, it's a bit faster that way. */
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3959 p = &prog->state[0];
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3960 for (i = prog->nstate; --i >= 0; )
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3961 {
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	3962 list[i] = p->lastlist[1];
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	3963 p->lastlist[1] = 0;
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3964 ++p;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3965 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3966 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3967
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3968 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3969 * Restore list IDs from "list" to all NFA states.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3970 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3971 static void
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3972 nfa_restore_listids(prog, list)
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3973 nfa_regprog_T *prog;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3974 int *list;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3975 {
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3976 int i;
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3977 nfa_state_T *p;
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3978
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3979 p = &prog->state[0];
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3980 for (i = prog->nstate; --i >= 0; )
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3981 {
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	3982 p->lastlist[1] = list[i];
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3983 ++p;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3984 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3985 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	3986
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3987 static int
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3988 nfa_re_num_cmp(val, op, pos)
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3989 long_u val;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3990 int op;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3991 long_u pos;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3992 {
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3993 if (op == 1) return pos > val;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3994 if (op == 2) return pos < val;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3995 return val == pos;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3996 }
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	3997
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	3998 static int recursive_regmatch __ARGS((nfa_state_T state, nfa_regprog_T prog, regsubs_T submatch, regsubs_T m, int **listids));
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	3999 static int nfa_regmatch __ARGS((nfa_regprog_T prog, nfa_state_T start, regsubs_T submatch, regsubs_T m));
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	4000
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4001 /*
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4002 * Recursively call nfa_regmatch()
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4003 */
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4004 static int
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4005 recursive_regmatch(state, prog, submatch, m, listids)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4006 nfa_state_T *state;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4007 nfa_regprog_T *prog;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4008 regsubs_T *submatch;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4009 regsubs_T *m;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4010 int **listids;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4011 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4012 char_u *save_reginput = reginput;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4013 char_u *save_regline = regline;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4014 int save_reglnum = reglnum;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4015 int save_nfa_match = nfa_match;
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4016 int save_nfa_listid = nfa_listid;
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4017 save_se_T *save_nfa_endp = nfa_endp;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4018 save_se_T endpos;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4019 save_se_T *endposp = NULL;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4020 int result;
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4021 int need_restore = FALSE;
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4022
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4023 if (state->c == NFA_START_INVISIBLE_BEFORE
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4024 \|\| state->c == NFA_START_INVISIBLE_BEFORE_NEG)
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4025 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4026 /* The recursive match must end at the current position. */
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4027 endposp = &endpos;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4028 if (REG_MULTI)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4029 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4030 endpos.se_u.pos.col = (int)(reginput - regline);
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4031 endpos.se_u.pos.lnum = reglnum;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4032 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4033 else
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4034 endpos.se_u.ptr = reginput;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4035
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4036 /* Go back the specified number of bytes, or as far as the
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4037 * start of the previous line, to try matching "\@<=" or
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4038 * not matching "\@<!".
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4039 * TODO: This is very inefficient! Would be better to
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4040 * first check for a match with what follows. */
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4041 if (state->val <= 0)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4042 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4043 if (REG_MULTI)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4044 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4045 regline = reg_getline(--reglnum);
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4046 if (regline == NULL)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4047 /* can't go before the first line */
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4048 regline = reg_getline(++reglnum);
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4049 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4050 reginput = regline;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4051 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4052 else
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4053 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4054 if (REG_MULTI && (int)(reginput - regline) < state->val)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4055 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4056 /* Not enough bytes in this line, go to end of
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4057 * previous line. */
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4058 regline = reg_getline(--reglnum);
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4059 if (regline == NULL)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4060 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4061 /* can't go before the first line */
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4062 regline = reg_getline(++reglnum);
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4063 reginput = regline;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4064 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4065 else
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4066 reginput = regline + STRLEN(regline);
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4067 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4068 if ((int)(reginput - regline) >= state->val)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4069 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4070 reginput -= state->val;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4071 #ifdef FEAT_MBYTE
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4072 if (has_mbyte)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4073 reginput -= mb_head_off(regline, reginput);
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4074 #endif
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4075 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4076 else
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4077 reginput = regline;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4078 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4079 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4080
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4081 #ifdef ENABLE_LOG
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4082 if (log_fd != stderr)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4083 fclose(log_fd);
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4084 log_fd = NULL;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4085 #endif
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4086 /* Have to clear the lastlist field of the NFA nodes, so that
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4087 * nfa_regmatch() and addstate() can run properly after recursion. */
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4088 if (nfa_ll_index == 1)
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4089 {
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4090 /* Already calling nfa_regmatch() recursively. Save the lastlist[1]
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4091 * values and clear them. */
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4092 if (*listids == NULL)
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4093 {
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4094 listids = (int )lalloc(sizeof(int) * nstate, TRUE);
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4095 if (*listids == NULL)
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4096 {
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4097 EMSG(_("E878: (NFA) Could not allocate memory for branch traversal!"));
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4098 return 0;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4099 }
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4100 }
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4101 nfa_save_listids(prog, *listids);
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4102 need_restore = TRUE;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4103 /* any value of nfa_listid will do */
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4104 }
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4105 else
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4106 {
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4107 /* First recursive nfa_regmatch() call, switch to the second lastlist
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4108 * entry. Make sure nfa_listid is different from a previous recursive
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4109 * call, because some states may still have this ID. */
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4110 ++nfa_ll_index;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4111 if (nfa_listid <= nfa_alt_listid)
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4112 nfa_listid = nfa_alt_listid;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4113 }
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4114
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4115 /* Call nfa_regmatch() to check if the current concat matches at this
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4116 * position. The concat ends with the node NFA_END_INVISIBLE */
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4117 nfa_endp = endposp;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4118 result = nfa_regmatch(prog, state->out, submatch, m);
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4119
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4120 if (need_restore)
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4121 nfa_restore_listids(prog, *listids);
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4122 else
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4123 {
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4124 --nfa_ll_index;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4125 nfa_alt_listid = nfa_listid;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4126 }
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4127
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4128 /* restore position in input text */
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4129 reginput = save_reginput;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4130 regline = save_regline;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4131 reglnum = save_reglnum;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4132 nfa_match = save_nfa_match;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4133 nfa_endp = save_nfa_endp;
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4134 nfa_listid = save_nfa_listid;
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4135
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4136 #ifdef ENABLE_LOG
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4137 log_fd = fopen(NFA_REGEXP_RUN_LOG, "a");
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4138 if (log_fd != NULL)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4139 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4140 fprintf(log_fd, "****************************\n");
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4141 fprintf(log_fd, "FINISHED RUNNING nfa_regmatch() recursively\n");
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4142 fprintf(log_fd, "MATCH = %s\n", result == TRUE ? "OK" : "FALSE");
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4143 fprintf(log_fd, "****************************\n");
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4144 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4145 else
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4146 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4147 EMSG(_("Could not open temporary log file for writing, displaying on stderr ... "));
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4148 log_fd = stderr;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4149 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4150 #endif
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4151
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4152 return result;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4153 }
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4154
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4155 static int failure_chance __ARGS((nfa_state_T *state, int depth));
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4156
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4157 /*
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4158 * Estimate the chance of a match with "state" failing.
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4159 * NFA_ANY: 1
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4160 * specific character: 99
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4161 */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4162 static int
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4163 failure_chance(state, depth)
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4164 nfa_state_T *state;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4165 int depth;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4166 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4167 int c = state->c;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4168 int l, r;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4169
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4170 /* detect looping */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4171 if (depth > 4)
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4172 return 1;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4173
4742 6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4174 switch (c)
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4175 {
4742 6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4176 case NFA_SPLIT:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4177 if (state->out->c == NFA_SPLIT \|\| state->out1->c == NFA_SPLIT)
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4178 /* avoid recursive stuff */
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4179 return 1;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4180 /* two alternatives, use the lowest failure chance */
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4181 l = failure_chance(state->out, depth + 1);
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4182 r = failure_chance(state->out1, depth + 1);
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4183 return l < r ? l : r;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4184
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4185 case NFA_ANY:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4186 /* matches anything, unlikely to fail */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4187 return 1;
4742 6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4188 case NFA_MATCH:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4189 /* empty match works always */
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4190 return 0;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4191
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4192 case NFA_BOL:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4193 case NFA_EOL:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4194 case NFA_BOF:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4195 case NFA_EOF:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4196 case NFA_NEWL:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4197 return 99;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4198
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4199 case NFA_BOW:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4200 case NFA_EOW:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4201 return 90;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4202
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4203 case NFA_MOPEN:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4204 case NFA_MOPEN1:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4205 case NFA_MOPEN2:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4206 case NFA_MOPEN3:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4207 case NFA_MOPEN4:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4208 case NFA_MOPEN5:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4209 case NFA_MOPEN6:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4210 case NFA_MOPEN7:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4211 case NFA_MOPEN8:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4212 case NFA_MOPEN9:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4213 #ifdef FEAT_SYN_HL
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4214 case NFA_ZOPEN:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4215 case NFA_ZOPEN1:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4216 case NFA_ZOPEN2:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4217 case NFA_ZOPEN3:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4218 case NFA_ZOPEN4:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4219 case NFA_ZOPEN5:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4220 case NFA_ZOPEN6:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4221 case NFA_ZOPEN7:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4222 case NFA_ZOPEN8:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4223 case NFA_ZOPEN9:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4224 case NFA_ZCLOSE:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4225 case NFA_ZCLOSE1:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4226 case NFA_ZCLOSE2:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4227 case NFA_ZCLOSE3:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4228 case NFA_ZCLOSE4:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4229 case NFA_ZCLOSE5:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4230 case NFA_ZCLOSE6:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4231 case NFA_ZCLOSE7:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4232 case NFA_ZCLOSE8:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4233 case NFA_ZCLOSE9:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4234 #endif
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4235 case NFA_NOPEN:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4236 case NFA_MCLOSE:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4237 case NFA_MCLOSE1:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4238 case NFA_MCLOSE2:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4239 case NFA_MCLOSE3:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4240 case NFA_MCLOSE4:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4241 case NFA_MCLOSE5:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4242 case NFA_MCLOSE6:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4243 case NFA_MCLOSE7:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4244 case NFA_MCLOSE8:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4245 case NFA_MCLOSE9:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4246 case NFA_NCLOSE:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4247 return failure_chance(state->out, depth + 1);
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4248
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4249 case NFA_BACKREF1:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4250 case NFA_BACKREF2:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4251 case NFA_BACKREF3:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4252 case NFA_BACKREF4:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4253 case NFA_BACKREF5:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4254 case NFA_BACKREF6:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4255 case NFA_BACKREF7:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4256 case NFA_BACKREF8:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4257 case NFA_BACKREF9:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4258 #ifdef FEAT_SYN_HL
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4259 case NFA_ZREF1:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4260 case NFA_ZREF2:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4261 case NFA_ZREF3:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4262 case NFA_ZREF4:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4263 case NFA_ZREF5:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4264 case NFA_ZREF6:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4265 case NFA_ZREF7:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4266 case NFA_ZREF8:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4267 case NFA_ZREF9:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4268 #endif
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4269 /* backreferences don't match in many places */
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4270 return 94;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4271
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4272 case NFA_LNUM_GT:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4273 case NFA_LNUM_LT:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4274 case NFA_COL_GT:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4275 case NFA_COL_LT:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4276 case NFA_VCOL_GT:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4277 case NFA_VCOL_LT:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4278 case NFA_MARK_GT:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4279 case NFA_MARK_LT:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4280 case NFA_VISUAL:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4281 /* before/after positions don't match very often */
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4282 return 85;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4283
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4284 case NFA_LNUM:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4285 return 90;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4286
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4287 case NFA_CURSOR:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4288 case NFA_COL:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4289 case NFA_VCOL:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4290 case NFA_MARK:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4291 /* specific positions rarely match */
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4292 return 98;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4293
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4294 case NFA_COMPOSING:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4295 return 95;
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4296
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4297 default:
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4298 if (c > 0)
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4299 /* character match fails often */
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4300 return 95;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4301 }
4742 6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4302
6a706ca7a889 updated for version 7.3.1118 Bram Moolenaar <bram@vim.org> parents: 4740 diff changeset	4303 /* something else, includes character classes */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4304 return 50;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4305 }
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4306
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4307 /*
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4308 * Main matching routine.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4309 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4310 * Run NFA to determine whether it matches reginput.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4311 *
4694 efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	4312 * When "nfa_endp" is not NULL it is a required end-of-match position.
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	4313 *
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4314 * Return TRUE if there is a match, FALSE otherwise.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4315 * Note: Caller must ensure that: start != NULL.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4316 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4317 static int
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	4318 nfa_regmatch(prog, start, submatch, m)
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	4319 nfa_regprog_T *prog;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4320 nfa_state_T *start;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4321 regsubs_T *submatch;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4322 regsubs_T *m;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4323 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4324 int result;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4325 int size = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4326 int flag = 0;
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	4327 int go_to_nextline = FALSE;
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	4328 nfa_thread_T *t;
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	4329 nfa_list_T list[2];
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4330 int listidx;
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	4331 nfa_list_T *thislist;
532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	4332 nfa_list_T *nextlist;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4333 int *listids = NULL;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4334 nfa_state_T *add_state;
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4335 int add_here;
4797 a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4336 int add_count;
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4337 int add_off;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4338 garray_T pimlist;
4797 a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4339 int toplevel = start->c == NFA_MOPEN;
4460 fe8a0a6a1c2a updated for version 7.3.978 Bram Moolenaar <bram@vim.org> parents: 4458 diff changeset	4340 #ifdef NFA_REGEXP_DEBUG_LOG
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	4341 FILE *debug = fopen(NFA_REGEXP_DEBUG_LOG, "a");
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4342
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4343 if (debug == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4344 {
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	4345 EMSG2(_("(NFA) COULD NOT OPEN %s !"), NFA_REGEXP_DEBUG_LOG);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4346 return FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4347 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4348 #endif
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	4349 nfa_match = FALSE;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4350 ga_init2(&pimlist, sizeof(nfa_pim_T), 5);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4351
4563 e7016af0cbf9 updated for version 7.3.1029 Bram Moolenaar <bram@vim.org> parents: 4561 diff changeset	4352 /* Allocate memory for the lists of nodes. */
4539 532c2e850256 updated for version 7.3.1017 Bram Moolenaar <bram@vim.org> parents: 4537 diff changeset	4353 size = (nstate + 1) * sizeof(nfa_thread_T);
4768 82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	4354 list[0].t = (nfa_thread_T *)lalloc(size, TRUE);
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	4355 list[0].len = nstate + 1;
4768 82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	4356 list[1].t = (nfa_thread_T *)lalloc(size, TRUE);
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	4357 list[1].len = nstate + 1;
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	4358 if (list[0].t == NULL \|\| list[1].t == NULL)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4359 goto theend;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4360
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4361 #ifdef ENABLE_LOG
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	4362 log_fd = fopen(NFA_REGEXP_RUN_LOG, "a");
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4363 if (log_fd != NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4364 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4365 fprintf(log_fd, "**********************************\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4366 nfa_set_code(start->c);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4367 fprintf(log_fd, " RUNNING nfa_regmatch() starting with state %d, code %s\n",
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4368 abs(start->id), code);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4369 fprintf(log_fd, "**********************************\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4370 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4371 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4372 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4373 EMSG(_("Could not open temporary log file for writing, displaying on stderr ... "));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4374 log_fd = stderr;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4375 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4376 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4377
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4378 thislist = &list[0];
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4379 thislist->n = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4380 nextlist = &list[1];
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4381 nextlist->n = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4382 #ifdef ENABLE_LOG
4797 a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4383 fprintf(log_fd, "(---) STARTSTATE first\n");
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4384 #endif
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4385 thislist->id = nfa_listid + 1;
4797 a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4386
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4387 /* Inline optimized code for addstate(thislist, start, m, 0) if we know
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4388 * it's the first MOPEN. */
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4389 if (toplevel)
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4390 {
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4391 if (REG_MULTI)
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4392 {
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4393 m->norm.list.multi[0].start.lnum = reglnum;
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4394 m->norm.list.multi[0].start.col = (colnr_T)(reginput - regline);
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4395 }
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4396 else
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4397 m->norm.list.line[0].start = reginput;
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4398 m->norm.in_use = 1;
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4399 addstate(thislist, start->out, m, 0);
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4400 }
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4401 else
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	4402 addstate(thislist, start, m, 0);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4403
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	4404 #define ADD_STATE_IF_MATCH(state) \
47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	4405 if (result) { \
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4406 add_state = state->out; \
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4407 add_off = clen; \
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4408 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4409
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4410 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4411 * Run for each character.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4412 */
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4413 for (;;)
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4414 {
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4415 int curc;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4416 int clen;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4417
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4418 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4419 if (has_mbyte)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4420 {
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4421 curc = (*mb_ptr2char)(reginput);
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4422 clen = (*mb_ptr2len)(reginput);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4423 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4424 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4425 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4426 {
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4427 curc = *reginput;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4428 clen = 1;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4429 }
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4430 if (curc == NUL)
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4431 {
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4432 clen = 0;
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4433 go_to_nextline = FALSE;
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4434 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4435
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4436 /* swap lists */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4437 thislist = &list[flag];
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4438 nextlist = &list[flag ^= 1];
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	4439 nextlist->n = 0; /* clear nextlist */
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4440 ++nfa_listid;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4441 thislist->id = nfa_listid;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	4442 nextlist->id = nfa_listid + 1;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4443
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4444 pimlist.ga_len = 0;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4445
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4446 #ifdef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4447 fprintf(log_fd, "------------------------------------------\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4448 fprintf(log_fd, ">>> Reginput is \"%s\"\n", reginput);
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4449 fprintf(log_fd, ">>> Advanced one character ... Current char is %c (code %d) \n", curc, (int)curc);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4450 fprintf(log_fd, ">>> Thislist has %d states available: ", thislist->n);
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4451 {
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4452 int i;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4453
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4454 for (i = 0; i < thislist->n; i++)
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4455 fprintf(log_fd, "%d ", abs(thislist->t[i].state->id));
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4456 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4457 fprintf(log_fd, "\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4458 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4459
4460 fe8a0a6a1c2a updated for version 7.3.978 Bram Moolenaar <bram@vim.org> parents: 4458 diff changeset	4460 #ifdef NFA_REGEXP_DEBUG_LOG
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4461 fprintf(debug, "\n-------------------\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4462 #endif
4480 035fb0d5e7ce updated for version 7.3.988 Bram Moolenaar <bram@vim.org> parents: 4470 diff changeset	4463 /*
035fb0d5e7ce updated for version 7.3.988 Bram Moolenaar <bram@vim.org> parents: 4470 diff changeset	4464 * If the state lists are empty we can stop.
035fb0d5e7ce updated for version 7.3.988 Bram Moolenaar <bram@vim.org> parents: 4470 diff changeset	4465 */
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	4466 if (thislist->n == 0)
4480 035fb0d5e7ce updated for version 7.3.988 Bram Moolenaar <bram@vim.org> parents: 4470 diff changeset	4467 break;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4468
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4469 /* compute nextlist */
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	4470 for (listidx = 0; listidx < thislist->n; ++listidx)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4471 {
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	4472 t = &thislist->t[listidx];
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4473
4460 fe8a0a6a1c2a updated for version 7.3.978 Bram Moolenaar <bram@vim.org> parents: 4458 diff changeset	4474 #ifdef NFA_REGEXP_DEBUG_LOG
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4475 nfa_set_code(t->state->c);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4476 fprintf(debug, "%s, ", code);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4477 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4478 #ifdef ENABLE_LOG
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4479 {
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4480 int col;
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4481
4690 9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	4482 if (t->subs.norm.in_use <= 0)
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4483 col = -1;
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4484 else if (REG_MULTI)
4690 9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	4485 col = t->subs.norm.list.multi[0].start.col;
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4486 else
4690 9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	4487 col = (int)(t->subs.norm.list.line[0].start - regline);
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4488 nfa_set_code(t->state->c);
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4489 fprintf(log_fd, "(%d) char %d %s (start col %d) ... \n",
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4490 abs(t->state->id), (int)t->state->c, code, col);
93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4491 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4492 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4493
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4494 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4495 * Handle the possible codes of the current state.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4496 * The most important is NFA_MATCH.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4497 */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4498 add_state = NULL;
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4499 add_here = FALSE;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4500 add_count = 0;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4501 switch (t->state->c)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4502 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4503 case NFA_MATCH:
4567 96c1a7850097 updated for version 7.3.1031 Bram Moolenaar <bram@vim.org> parents: 4565 diff changeset	4504 {
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	4505 nfa_match = TRUE;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4506 copy_sub(&submatch->norm, &t->subs.norm);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4507 #ifdef FEAT_SYN_HL
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	4508 if (nfa_has_zsubexpr)
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	4509 copy_sub(&submatch->synt, &t->subs.synt);
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4510 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4511 #ifdef ENABLE_LOG
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4512 log_subsexpr(&t->subs);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4513 #endif
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4514 /* Found the left-most longest match, do not look at any other
4553 7b835b2969af updated for version 7.3.1024 Bram Moolenaar <bram@vim.org> parents: 4551 diff changeset	4515 * states at this position. When the list of states is going
7b835b2969af updated for version 7.3.1024 Bram Moolenaar <bram@vim.org> parents: 4551 diff changeset	4516 * to be empty quit without advancing, so that "reginput" is
7b835b2969af updated for version 7.3.1024 Bram Moolenaar <bram@vim.org> parents: 4551 diff changeset	4517 * correct. */
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	4518 if (nextlist->n == 0)
4553 7b835b2969af updated for version 7.3.1024 Bram Moolenaar <bram@vim.org> parents: 4551 diff changeset	4519 clen = 0;
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4520 goto nextchar;
4567 96c1a7850097 updated for version 7.3.1031 Bram Moolenaar <bram@vim.org> parents: 4565 diff changeset	4521 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4522
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4523 case NFA_END_INVISIBLE:
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4524 case NFA_END_INVISIBLE_NEG:
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4525 case NFA_END_PATTERN:
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4526 /*
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4527 * This is only encountered after a NFA_START_INVISIBLE or
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	4528 * NFA_START_INVISIBLE_BEFORE node.
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	4529 * They surround a zero-width group, used with "\@=", "\&",
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	4530 * "\@!", "\@<=" and "\@<!".
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4531 * If we got here, it means that the current "invisible" group
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4532 * finished successfully, so return control to the parent
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4533 * nfa_regmatch(). For a look-behind match only when it ends
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4534 * in the position in "nfa_endp".
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4535 * Submatches are stored in *m, and used in the parent call.
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4536 */
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	4537 #ifdef ENABLE_LOG
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4538 if (nfa_endp != NULL)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4539 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4540 if (REG_MULTI)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4541 fprintf(log_fd, "Current lnum: %d, endp lnum: %d; current col: %d, endp col: %d\n",
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4542 (int)reglnum,
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4543 (int)nfa_endp->se_u.pos.lnum,
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4544 (int)(reginput - regline),
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4545 nfa_endp->se_u.pos.col);
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4546 else
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4547 fprintf(log_fd, "Current col: %d, endp col: %d\n",
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4548 (int)(reginput - regline),
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4549 (int)(nfa_endp->se_u.ptr - reginput));
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4550 }
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	4551 #endif
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4552 /* If "nfa_endp" is set it's only a match if it ends at
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4553 * "nfa_endp" */
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4554 if (nfa_endp != NULL && (REG_MULTI
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4555 ? (reglnum != nfa_endp->se_u.pos.lnum
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4556 \|\| (int)(reginput - regline)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4557 != nfa_endp->se_u.pos.col)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4558 : reginput != nfa_endp->se_u.ptr))
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4559 break;
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4560
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4561 /* do not set submatches for \@! */
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4562 if (t->state->c != NFA_END_INVISIBLE_NEG)
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4563 {
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4564 copy_sub(&m->norm, &t->subs.norm);
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4565 #ifdef FEAT_SYN_HL
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4566 if (nfa_has_zsubexpr)
a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4567 copy_sub(&m->synt, &t->subs.synt);
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4568 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4569 }
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4570 #ifdef ENABLE_LOG
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4571 fprintf(log_fd, "Match found:\n");
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4572 log_subsexpr(m);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4573 #endif
4716 a804309e7327 updated for version 7.3.1105 Bram Moolenaar <bram@vim.org> parents: 4714 diff changeset	4574 nfa_match = TRUE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4575 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4576
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4577 case NFA_START_INVISIBLE:
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4578 case NFA_START_INVISIBLE_NEG:
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	4579 case NFA_START_INVISIBLE_BEFORE:
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4580 case NFA_START_INVISIBLE_BEFORE_NEG:
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4581 {
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4582 nfa_pim_T *pim;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4583 int cout = t->state->out1->out->c;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4584
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4585 /* Do it directly when what follows is possibly end of
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4586 * match (closing paren).
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4587 * Postpone when it is \@<= or \@<!, these are expensive.
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4588 * TODO: remove the check for t->pim and check multiple
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4589 * where it's used?
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4590 * Otherwise first do the one that has the highest chance
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4591 * of failing. */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4592 if ((cout >= NFA_MCLOSE && cout <= NFA_MCLOSE9)
4734 532c31f9e92f updated for version 7.3.1114 Bram Moolenaar <bram@vim.org> parents: 4732 diff changeset	4593 #ifdef FEAT_SYN_HL
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4594 \|\| (cout >= NFA_ZCLOSE && cout <= NFA_ZCLOSE9)
4734 532c31f9e92f updated for version 7.3.1114 Bram Moolenaar <bram@vim.org> parents: 4732 diff changeset	4595 #endif
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4596 \|\| cout == NFA_NCLOSE
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4597 \|\| t->pim != NULL
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4598 \|\| (t->state->c != NFA_START_INVISIBLE_BEFORE
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4599 && t->state->c != NFA_START_INVISIBLE_BEFORE_NEG
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4600 && failure_chance(t->state->out1->out, 0)
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4601 < failure_chance(t->state->out, 0)))
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4602 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4603 /*
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4604 * First try matching the invisible match, then what
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4605 * follows.
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4606 */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4607 result = recursive_regmatch(t->state, prog,
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4608 submatch, m, &listids);
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4609
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4610 /* for \@! and \@<! it is a match when the result is
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4611 * FALSE */
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4612 if (result != (t->state->c == NFA_START_INVISIBLE_NEG
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4613 \|\| t->state->c
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4614 == NFA_START_INVISIBLE_BEFORE_NEG))
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4615 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4616 /* Copy submatch info from the recursive call */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4617 copy_sub_off(&t->subs.norm, &m->norm);
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4618 #ifdef FEAT_SYN_HL
4768 82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	4619 if (nfa_has_zsubexpr)
82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	4620 copy_sub_off(&t->subs.synt, &m->synt);
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	4621 #endif
4657 93b7ed814bec updated for version 7.3.1076 Bram Moolenaar <bram@vim.org> parents: 4655 diff changeset	4622
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4623 /* t->state->out1 is the corresponding
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4624 * END_INVISIBLE node; Add its out to the current
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4625 * list (zero-width match). */
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4626 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4627 add_state = t->state->out1->out;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4628 }
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4629 }
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4630 else
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4631 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4632 /*
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4633 * First try matching what follows at the current
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4634 * position. Only if a match is found, before
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4635 * addstate() is called, then verify the invisible
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4636 * match matches. Add a nfa_pim_T to the following
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4637 * states, it contains info about the invisible match.
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4638 */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4639 if (ga_grow(&pimlist, 1) == FAIL)
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4640 goto theend;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4641 pim = (nfa_pim_T *)pimlist.ga_data + pimlist.ga_len;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4642 ++pimlist.ga_len;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4643 pim->state = t->state;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4644 pim->pim = NULL;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4645 pim->result = NFA_PIM_TODO;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4646
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4647 /* t->state->out1 is the corresponding END_INVISIBLE
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4648 * node; Add its out to the current list (zero-width
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4649 * match). */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4650 addstate_here(thislist, t->state->out1->out, &t->subs,
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4651 pim, &listidx);
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4652 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4653 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4654 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4655
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4656 case NFA_START_PATTERN:
4787 7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4657 {
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4658 nfa_state_T *skip = NULL;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4659 #ifdef ENABLE_LOG
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4660 int skip_lid = 0;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4661 #endif
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4662
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4663 /* There is no point in trying to match the pattern if the
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4664 * output state is not going to be added to the list. */
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4665 if (state_in_list(nextlist, t->state->out1->out, &t->subs))
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4666 {
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4667 skip = t->state->out1->out;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4668 #ifdef ENABLE_LOG
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4669 skip_lid = nextlist->id;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4670 #endif
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4671 }
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4672 else if (state_in_list(nextlist,
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4673 t->state->out1->out->out, &t->subs))
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4674 {
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4675 skip = t->state->out1->out->out;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4676 #ifdef ENABLE_LOG
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4677 skip_lid = nextlist->id;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4678 #endif
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4679 }
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4680 else if(state_in_list(thislist,
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4681 t->state->out1->out->out, &t->subs))
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4682 {
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4683 skip = t->state->out1->out->out;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4684 #ifdef ENABLE_LOG
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4685 skip_lid = thislist->id;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4686 #endif
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4687 }
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4688 if (skip != NULL)
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4689 {
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4690 #ifdef ENABLE_LOG
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4691 nfa_set_code(skip->c);
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4692 fprintf(log_fd, "> Not trying to match pattern, output state %d is already in list %d. char %d: %s\n",
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4693 abs(skip->id), skip_lid, skip->c, code);
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4694 #endif
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4695 break;
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4696 }
7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4697
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4698 /* First try matching the pattern. */
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4699 result = recursive_regmatch(t->state, prog,
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4700 submatch, m, &listids);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4701 if (result)
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4702 {
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4703 int bytelen;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4704
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4705 #ifdef ENABLE_LOG
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4706 fprintf(log_fd, "NFA_START_PATTERN matches:\n");
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4707 log_subsexpr(m);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4708 #endif
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4709 /* Copy submatch info from the recursive call */
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4710 copy_sub_off(&t->subs.norm, &m->norm);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4711 #ifdef FEAT_SYN_HL
4768 82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	4712 if (nfa_has_zsubexpr)
82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	4713 copy_sub_off(&t->subs.synt, &m->synt);
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4714 #endif
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4715 /* Now we need to skip over the matched text and then
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4716 * continue with what follows. */
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4717 if (REG_MULTI)
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4718 /* TODO: multi-line match */
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4719 bytelen = m->norm.list.multi[0].end.col
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4720 - (int)(reginput - regline);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4721 else
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4722 bytelen = (int)(m->norm.list.line[0].end - reginput);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4723
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4724 #ifdef ENABLE_LOG
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4725 fprintf(log_fd, "NFA_START_PATTERN length: %d\n", bytelen);
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4726 #endif
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4727 if (bytelen == 0)
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4728 {
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4729 /* empty match, output of corresponding
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4730 * NFA_END_PATTERN/NFA_SKIP to be used at current
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4731 * position */
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4732 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4733 add_state = t->state->out1->out->out;
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4734 }
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4735 else if (bytelen <= clen)
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4736 {
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4737 /* match current character, output of corresponding
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4738 * NFA_END_PATTERN to be used at next position. */
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4739 add_state = t->state->out1->out->out;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4740 add_off = clen;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4741 }
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4742 else
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4743 {
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4744 /* skip over the matched characters, set character
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4745 * count in NFA_SKIP */
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4746 add_state = t->state->out1->out;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4747 add_off = bytelen;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4748 add_count = bytelen - clen;
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4749 }
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4750 }
7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4751 break;
4787 7fde662e1db2 updated for version 7.3.1140 Bram Moolenaar <bram@vim.org> parents: 4785 diff changeset	4752 }
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	4753
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4754 case NFA_BOL:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4755 if (reginput == regline)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4756 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4757 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4758 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4759 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4760 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4761
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4762 case NFA_EOL:
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4763 if (curc == NUL)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4764 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4765 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4766 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4767 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4768 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4769
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4770 case NFA_BOW:
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4771 result = TRUE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4772
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4773 if (curc == NUL)
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4774 result = FALSE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4775 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4776 else if (has_mbyte)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4777 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4778 int this_class;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4779
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4780 /* Get class of current and previous char (if it exists). */
4503 e6e60d9da892 updated for version 7.3.999 Bram Moolenaar <bram@vim.org> parents: 4484 diff changeset	4781 this_class = mb_get_class_buf(reginput, reg_buf);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4782 if (this_class <= 1)
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4783 result = FALSE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4784 else if (reg_prev_class() == this_class)
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4785 result = FALSE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4786 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4787 #endif
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4788 else if (!vim_iswordc_buf(curc, reg_buf)
4503 e6e60d9da892 updated for version 7.3.999 Bram Moolenaar <bram@vim.org> parents: 4484 diff changeset	4789 \|\| (reginput > regline
e6e60d9da892 updated for version 7.3.999 Bram Moolenaar <bram@vim.org> parents: 4484 diff changeset	4790 && vim_iswordc_buf(reginput[-1], reg_buf)))
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4791 result = FALSE;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4792 if (result)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4793 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4794 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4795 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4796 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4797 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4798
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4799 case NFA_EOW:
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4800 result = TRUE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4801 if (reginput == regline)
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4802 result = FALSE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4803 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4804 else if (has_mbyte)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4805 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4806 int this_class, prev_class;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4807
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4808 /* Get class of current and previous char (if it exists). */
4503 e6e60d9da892 updated for version 7.3.999 Bram Moolenaar <bram@vim.org> parents: 4484 diff changeset	4809 this_class = mb_get_class_buf(reginput, reg_buf);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4810 prev_class = reg_prev_class();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4811 if (this_class == prev_class
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4812 \|\| prev_class == 0 \|\| prev_class == 1)
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4813 result = FALSE;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4814 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4815 #endif
4503 e6e60d9da892 updated for version 7.3.999 Bram Moolenaar <bram@vim.org> parents: 4484 diff changeset	4816 else if (!vim_iswordc_buf(reginput[-1], reg_buf)
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4817 \|\| (reginput[0] != NUL
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4818 && vim_iswordc_buf(curc, reg_buf)))
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4819 result = FALSE;
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	4820 if (result)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4821 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4822 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4823 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4824 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4825 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4826
4671 b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	4827 case NFA_BOF:
b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	4828 if (reglnum == 0 && reginput == regline
b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	4829 && (!REG_MULTI \|\| reg_firstlnum == 1))
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4830 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4831 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4832 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4833 }
4671 b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	4834 break;
b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	4835
b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	4836 case NFA_EOF:
b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	4837 if (reglnum == reg_maxline && curc == NUL)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4838 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4839 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4840 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	4841 }
4671 b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	4842 break;
b3c59716e700 updated for version 7.3.1083 Bram Moolenaar <bram@vim.org> parents: 4669 diff changeset	4843
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	4844 #ifdef FEAT_MBYTE
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4845 case NFA_COMPOSING:
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	4846 {
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4847 int mc = curc;
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	4848 int len = 0;
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	4849 nfa_state_T *end;
1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	4850 nfa_state_T *sta;
4547 fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4851 int cchars[MAX_MCO];
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4852 int ccount = 0;
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4853 int j;
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4854
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4855 sta = t->state->out;
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	4856 len = 0;
4535 45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	4857 if (utf_iscomposing(sta->c))
45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	4858 {
45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	4859 /* Only match composing character(s), ignore base
45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	4860 * character. Used for ".{composing}" and "{composing}"
45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	4861 * (no preceding character). */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4862 len += mb_char2len(mc);
4535 45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	4863 }
4551 f0c37f5cf4ea updated for version 7.3.1023 Bram Moolenaar <bram@vim.org> parents: 4549 diff changeset	4864 if (ireg_icombine && len == 0)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4865 {
4535 45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	4866 /* If \Z was present, then ignore composing characters.
45f97c349537 updated for version 7.3.1015 Bram Moolenaar <bram@vim.org> parents: 4533 diff changeset	4867 * When ignoring the base character this always matches. */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4868 if (len == 0 && sta->c != curc)
4529 432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	4869 result = FAIL;
4547 fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4870 else
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4871 result = OK;
4529 432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	4872 while (sta->c != NFA_END_COMPOSING)
432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	4873 sta = sta->out;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4874 }
4547 fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4875
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4876 /* Check base character matches first, unless ignored. */
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4877 else if (len > 0 \|\| mc == sta->c)
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4878 {
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4879 if (len == 0)
4529 432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	4880 {
432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	4881 len += mb_char2len(mc);
432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	4882 sta = sta->out;
432a6b8c7d93 updated for version 7.3.1012 Bram Moolenaar <bram@vim.org> parents: 4527 diff changeset	4883 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4884
4547 fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4885 /* We don't care about the order of composing characters.
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4886 * Get them into cchars[] first. */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	4887 while (len < clen)
4547 fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4888 {
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4889 mc = mb_ptr2char(reginput + len);
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4890 cchars[ccount++] = mc;
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4891 len += mb_char2len(mc);
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4892 if (ccount == MAX_MCO)
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4893 break;
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4894 }
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4895
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4896 /* Check that each composing char in the pattern matches a
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4897 * composing char in the text. We do not check if all
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4898 * composing chars are matched. */
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4899 result = OK;
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4900 while (sta->c != NFA_END_COMPOSING)
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4901 {
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4902 for (j = 0; j < ccount; ++j)
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4903 if (cchars[j] == sta->c)
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4904 break;
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4905 if (j == ccount)
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4906 {
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4907 result = FAIL;
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4908 break;
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4909 }
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4910 sta = sta->out;
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4911 }
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4912 }
fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4913 else
4525 36ddcf4cecbc updated for version 7.3.1010 Bram Moolenaar <bram@vim.org> parents: 4517 diff changeset	4914 result = FAIL;
4547 fc997f05cbc7 updated for version 7.3.1021 Bram Moolenaar <bram@vim.org> parents: 4543 diff changeset	4915
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	4916 end = t->state->out1; /* NFA_END_COMPOSING */
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	4917 ADD_STATE_IF_MATCH(end);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4918 break;
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	4919 }
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	4920 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4921
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4922 case NFA_NEWL:
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	4923 if (curc == NUL && !reg_line_lbr && REG_MULTI
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	4924 && reglnum <= reg_maxline)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4925 {
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4926 go_to_nextline = TRUE;
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4927 /* Pass -1 for the offset, which means taking the position
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	4928 * at the start of the next line. */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4929 add_state = t->state->out;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4930 add_off = -1;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4931 }
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	4932 else if (curc == '\n' && reg_line_lbr)
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	4933 {
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	4934 /* match \n as if it is an ordinary character */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4935 add_state = t->state->out;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4936 add_off = 1;
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	4937 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4938 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	4939
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4940 case NFA_START_COLL:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4941 case NFA_START_NEG_COLL:
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4942 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4943 /* What follows is a list of characters, until NFA_END_COLL.
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4944 * One of them must match or none of them must match. */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4945 nfa_state_T *state;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4946 int result_if_matched;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4947 int c1, c2;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4948
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4949 /* Never match EOL. If it's part of the collection it is added
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4950 * as a separate state with an OR. */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4951 if (curc == NUL)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4952 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4953
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4954 state = t->state->out;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4955 result_if_matched = (t->state->c == NFA_START_COLL);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4956 for (;;)
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	4957 {
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4958 if (state->c == NFA_END_COLL)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4959 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4960 result = !result_if_matched;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4961 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4962 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4963 if (state->c == NFA_RANGE_MIN)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4964 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4965 c1 = state->val;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4966 state = state->out; /* advance to NFA_RANGE_MAX */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4967 c2 = state->val;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4968 #ifdef ENABLE_LOG
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4969 fprintf(log_fd, "NFA_RANGE_MIN curc=%d c1=%d c2=%d\n",
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4970 curc, c1, c2);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4971 #endif
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4972 if (curc >= c1 && curc <= c2)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4973 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4974 result = result_if_matched;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4975 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4976 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4977 if (ireg_ic)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4978 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4979 int curc_low = MB_TOLOWER(curc);
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4980 int done = FALSE;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4981
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4982 for ( ; c1 <= c2; ++c1)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4983 if (MB_TOLOWER(c1) == curc_low)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4984 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4985 result = result_if_matched;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4986 done = TRUE;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4987 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4988 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4989 if (done)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4990 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4991 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4992 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4993 else if (state->c < 0 ? check_char_class(state->c, curc)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4994 : (curc == state->c
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4995 \|\| (ireg_ic && MB_TOLOWER(curc)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4996 == MB_TOLOWER(state->c))))
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4997 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4998 result = result_if_matched;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	4999 break;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	5000 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	5001 state = state->out;
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	5002 }
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	5003 if (result)
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	5004 {
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	5005 /* next state is in out of the NFA_END_COLL, out1 of
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	5006 * START points to the END state */
c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	5007 add_state = t->state->out1->out;
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5008 add_off = clen;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5009 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5010 break;
4781 c02c7df9bdc9 updated for version 7.3.1137 Bram Moolenaar <bram@vim.org> parents: 4772 diff changeset	5011 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5012
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5013 case NFA_ANY:
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	5014 /* Any char except '\0', (end of input) does not match. */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5015 if (curc > 0)
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5016 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5017 add_state = t->state->out;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5018 add_off = clen;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5019 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5020 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5021
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5022 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5023 * Character classes like \a for alpha, \d for digit etc.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5024 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5025 case NFA_IDENT: /* \i */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5026 result = vim_isIDc(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5027 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5028 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5029
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5030 case NFA_SIDENT: /* \I */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5031 result = !VIM_ISDIGIT(curc) && vim_isIDc(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5032 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5033 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5034
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5035 case NFA_KWORD: /* \k */
4503 e6e60d9da892 updated for version 7.3.999 Bram Moolenaar <bram@vim.org> parents: 4484 diff changeset	5036 result = vim_iswordp_buf(reginput, reg_buf);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5037 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5038 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5039
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5040 case NFA_SKWORD: /* \K */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5041 result = !VIM_ISDIGIT(curc)
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5042 && vim_iswordp_buf(reginput, reg_buf);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5043 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5044 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5045
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5046 case NFA_FNAME: /* \f */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5047 result = vim_isfilec(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5048 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5049 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5050
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5051 case NFA_SFNAME: /* \F */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5052 result = !VIM_ISDIGIT(curc) && vim_isfilec(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5053 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5054 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5055
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5056 case NFA_PRINT: /* \p */
4470 ab5154170c3d updated for version 7.3.983 Bram Moolenaar <bram@vim.org> parents: 4468 diff changeset	5057 result = ptr2cells(reginput) == 1;
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5058 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5059 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5060
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5061 case NFA_SPRINT: /* \P */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5062 result = !VIM_ISDIGIT(curc) && ptr2cells(reginput) == 1;
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5063 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5064 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5065
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5066 case NFA_WHITE: /* \s */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5067 result = vim_iswhite(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5068 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5069 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5070
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5071 case NFA_NWHITE: /* \S */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5072 result = curc != NUL && !vim_iswhite(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5073 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5074 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5075
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5076 case NFA_DIGIT: /* \d */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5077 result = ri_digit(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5078 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5079 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5080
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5081 case NFA_NDIGIT: /* \D */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5082 result = curc != NUL && !ri_digit(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5083 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5084 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5085
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5086 case NFA_HEX: /* \x */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5087 result = ri_hex(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5088 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5089 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5090
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5091 case NFA_NHEX: /* \X */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5092 result = curc != NUL && !ri_hex(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5093 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5094 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5095
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5096 case NFA_OCTAL: /* \o */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5097 result = ri_octal(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5098 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5099 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5100
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5101 case NFA_NOCTAL: /* \O */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5102 result = curc != NUL && !ri_octal(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5103 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5104 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5105
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5106 case NFA_WORD: /* \w */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5107 result = ri_word(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5108 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5109 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5110
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5111 case NFA_NWORD: /* \W */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5112 result = curc != NUL && !ri_word(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5113 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5114 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5115
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5116 case NFA_HEAD: /* \h */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5117 result = ri_head(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5118 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5119 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5120
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5121 case NFA_NHEAD: /* \H */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5122 result = curc != NUL && !ri_head(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5123 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5124 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5125
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5126 case NFA_ALPHA: /* \a */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5127 result = ri_alpha(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5128 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5129 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5130
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5131 case NFA_NALPHA: /* \A */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5132 result = curc != NUL && !ri_alpha(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5133 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5134 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5135
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5136 case NFA_LOWER: /* \l */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5137 result = ri_lower(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5138 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5139 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5140
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5141 case NFA_NLOWER: /* \L */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5142 result = curc != NUL && !ri_lower(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5143 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5144 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5145
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5146 case NFA_UPPER: /* \u */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5147 result = ri_upper(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5148 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5149 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5150
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5151 case NFA_NUPPER: /* \U */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5152 result = curc != NUL && !ri_upper(curc);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5153 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5154 break;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5155
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5156 case NFA_BACKREF1:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5157 case NFA_BACKREF2:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5158 case NFA_BACKREF3:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5159 case NFA_BACKREF4:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5160 case NFA_BACKREF5:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5161 case NFA_BACKREF6:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5162 case NFA_BACKREF7:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5163 case NFA_BACKREF8:
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5164 case NFA_BACKREF9:
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5165 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5166 case NFA_ZREF1:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5167 case NFA_ZREF2:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5168 case NFA_ZREF3:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5169 case NFA_ZREF4:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5170 case NFA_ZREF5:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5171 case NFA_ZREF6:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5172 case NFA_ZREF7:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5173 case NFA_ZREF8:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5174 case NFA_ZREF9:
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5175 #endif
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5176 /* \1 .. \9 \z1 .. \z9 */
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5177 {
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5178 int subidx;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5179 int bytelen;
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5180
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5181 if (t->state->c <= NFA_BACKREF9)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5182 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5183 subidx = t->state->c - NFA_BACKREF1 + 1;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5184 result = match_backref(&t->subs.norm, subidx, &bytelen);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5185 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5186 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5187 else
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5188 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5189 subidx = t->state->c - NFA_ZREF1 + 1;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5190 result = match_zref(subidx, &bytelen);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5191 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5192 #endif
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5193
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5194 if (result)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5195 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5196 if (bytelen == 0)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5197 {
4692 08fbb1ce1bc5 updated for version 7.3.1093 Bram Moolenaar <bram@vim.org> parents: 4690 diff changeset	5198 /* empty match always works, output of NFA_SKIP to be
08fbb1ce1bc5 updated for version 7.3.1093 Bram Moolenaar <bram@vim.org> parents: 4690 diff changeset	5199 * used next */
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5200 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5201 add_state = t->state->out->out;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5202 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5203 else if (bytelen <= clen)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5204 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5205 /* match current character, jump ahead to out of
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5206 * NFA_SKIP */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5207 add_state = t->state->out->out;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5208 add_off = clen;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5209 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5210 else
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5211 {
4728 43de4ebbe7ad updated for version 7.3.1111 Bram Moolenaar <bram@vim.org> parents: 4726 diff changeset	5212 /* skip over the matched characters, set character
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5213 * count in NFA_SKIP */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5214 add_state = t->state->out;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5215 add_off = bytelen;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5216 add_count = bytelen - clen;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5217 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5218 }
4482 cd005ab15ef3 updated for version 7.3.989 Bram Moolenaar <bram@vim.org> parents: 4480 diff changeset	5219 break;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5220 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5221 case NFA_SKIP:
4748 4b9503f0c7d3 updated for version 7.3.1121 Bram Moolenaar <bram@vim.org> parents: 4746 diff changeset	5222 /* character of previous matching \1 .. \9 or \@> */
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5223 if (t->count - clen <= 0)
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5224 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5225 /* end of match, go to what follows */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5226 add_state = t->state->out;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5227 add_off = clen;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5228 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5229 else
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5230 {
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5231 /* add state again with decremented count */
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5232 add_state = t->state;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5233 add_off = 0;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5234 add_count = t->count - clen;
4571 b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5235 }
b2a8e3a66f8c updated for version 7.3.1033 Bram Moolenaar <bram@vim.org> parents: 4569 diff changeset	5236 break;
4482 cd005ab15ef3 updated for version 7.3.989 Bram Moolenaar <bram@vim.org> parents: 4480 diff changeset	5237
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5238 case NFA_LNUM:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5239 case NFA_LNUM_GT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5240 case NFA_LNUM_LT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5241 result = (REG_MULTI &&
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5242 nfa_re_num_cmp(t->state->val, t->state->c - NFA_LNUM,
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5243 (long_u)(reglnum + reg_firstlnum)));
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5244 if (result)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5245 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5246 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5247 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5248 }
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5249 break;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5250
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5251 case NFA_COL:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5252 case NFA_COL_GT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5253 case NFA_COL_LT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5254 result = nfa_re_num_cmp(t->state->val, t->state->c - NFA_COL,
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5255 (long_u)(reginput - regline) + 1);
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5256 if (result)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5257 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5258 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5259 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5260 }
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5261 break;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5262
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5263 case NFA_VCOL:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5264 case NFA_VCOL_GT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5265 case NFA_VCOL_LT:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5266 result = nfa_re_num_cmp(t->state->val, t->state->c - NFA_VCOL,
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5267 (long_u)win_linetabsize(
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5268 reg_win == NULL ? curwin : reg_win,
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5269 regline, (colnr_T)(reginput - regline)) + 1);
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5270 if (result)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5271 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5272 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5273 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5274 }
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5275 break;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5276
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5277 case NFA_MARK:
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5278 case NFA_MARK_GT:
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5279 case NFA_MARK_LT:
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5280 {
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5281 pos_T *pos = getmark_buf(reg_buf, t->state->val, FALSE);
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5282
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5283 /* Compare the mark position to the match position. */
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5284 result = (pos != NULL /* mark doesn't exist */
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5285 && pos->lnum > 0 /* mark isn't set in reg_buf */
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5286 && (pos->lnum == reglnum + reg_firstlnum
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5287 ? (pos->col == (colnr_T)(reginput - regline)
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5288 ? t->state->c == NFA_MARK
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5289 : (pos->col < (colnr_T)(reginput - regline)
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5290 ? t->state->c == NFA_MARK_GT
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5291 : t->state->c == NFA_MARK_LT))
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5292 : (pos->lnum < reglnum + reg_firstlnum
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5293 ? t->state->c == NFA_MARK_GT
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5294 : t->state->c == NFA_MARK_LT)));
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5295 if (result)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5296 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5297 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5298 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5299 }
4732 0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5300 break;
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5301 }
0798b096bab3 updated for version 7.3.1113 Bram Moolenaar <bram@vim.org> parents: 4730 diff changeset	5302
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5303 case NFA_CURSOR:
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5304 result = (reg_win != NULL
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5305 && (reglnum + reg_firstlnum == reg_win->w_cursor.lnum)
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5306 && ((colnr_T)(reginput - regline)
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5307 == reg_win->w_cursor.col));
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5308 if (result)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5309 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5310 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5311 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5312 }
4583 321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5313 break;
321cfbef9431 updated for version 7.3.1039 Bram Moolenaar <bram@vim.org> parents: 4579 diff changeset	5314
4756 96f3348f9f11 updated for version 7.3.1125 Bram Moolenaar <bram@vim.org> parents: 4750 diff changeset	5315 case NFA_VISUAL:
4738 66a9e8fa6f45 updated for version 7.3.1116 Bram Moolenaar <bram@vim.org> parents: 4734 diff changeset	5316 #ifdef FEAT_VISUAL
4730 749e2b2755d5 updated for version 7.3.1112 Bram Moolenaar <bram@vim.org> parents: 4728 diff changeset	5317 result = reg_match_visual();
749e2b2755d5 updated for version 7.3.1112 Bram Moolenaar <bram@vim.org> parents: 4728 diff changeset	5318 if (result)
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5319 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5320 add_here = TRUE;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5321 add_state = t->state->out;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5322 }
4756 96f3348f9f11 updated for version 7.3.1125 Bram Moolenaar <bram@vim.org> parents: 4750 diff changeset	5323 #endif
4730 749e2b2755d5 updated for version 7.3.1112 Bram Moolenaar <bram@vim.org> parents: 4728 diff changeset	5324 break;
749e2b2755d5 updated for version 7.3.1112 Bram Moolenaar <bram@vim.org> parents: 4728 diff changeset	5325
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5326 default: /* regular character */
4559 04086e297563 updated for version 7.3.1027 Bram Moolenaar <bram@vim.org> parents: 4557 diff changeset	5327 {
04086e297563 updated for version 7.3.1027 Bram Moolenaar <bram@vim.org> parents: 4557 diff changeset	5328 int c = t->state->c;
04086e297563 updated for version 7.3.1027 Bram Moolenaar <bram@vim.org> parents: 4557 diff changeset	5329
4482 cd005ab15ef3 updated for version 7.3.989 Bram Moolenaar <bram@vim.org> parents: 4480 diff changeset	5330 /* TODO: put this in #ifdef later */
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5331 if (c < 0)
4559 04086e297563 updated for version 7.3.1027 Bram Moolenaar <bram@vim.org> parents: 4557 diff changeset	5332 EMSGN("INTERNAL: Negative state char: %ld", c);
04086e297563 updated for version 7.3.1027 Bram Moolenaar <bram@vim.org> parents: 4557 diff changeset	5333 result = (c == curc);
04086e297563 updated for version 7.3.1027 Bram Moolenaar <bram@vim.org> parents: 4557 diff changeset	5334
04086e297563 updated for version 7.3.1027 Bram Moolenaar <bram@vim.org> parents: 4557 diff changeset	5335 if (!result && ireg_ic)
04086e297563 updated for version 7.3.1027 Bram Moolenaar <bram@vim.org> parents: 4557 diff changeset	5336 result = MB_TOLOWER(c) == MB_TOLOWER(curc);
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	5337 #ifdef FEAT_MBYTE
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	5338 /* If there is a composing character which is not being
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	5339 * ignored there can be no match. Match with composing
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	5340 * character uses NFA_COMPOSING above. */
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	5341 if (result && enc_utf8 && !ireg_icombine
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5342 && clen != utf_char2len(curc))
4527 55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	5343 result = FALSE;
55bcaa1d2749 updated for version 7.3.1011 Bram Moolenaar <bram@vim.org> parents: 4525 diff changeset	5344 #endif
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5345 ADD_STATE_IF_MATCH(t->state);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5346 break;
4559 04086e297563 updated for version 7.3.1027 Bram Moolenaar <bram@vim.org> parents: 4557 diff changeset	5347 }
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5348
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5349 } /* switch (t->state->c) */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5350
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5351 if (add_state != NULL)
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5352 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5353 if (t->pim != NULL)
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5354 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5355 /* postponed invisible match */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5356 if (t->pim->result == NFA_PIM_TODO)
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5357 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5358 #ifdef ENABLE_LOG
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5359 fprintf(log_fd, "\n");
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5360 fprintf(log_fd, "==================================\n");
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5361 fprintf(log_fd, "Postponed recursive nfa_regmatch()\n");
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5362 fprintf(log_fd, "\n");
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5363 #endif
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5364 result = recursive_regmatch(t->pim->state,
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5365 prog, submatch, m, &listids);
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5366 t->pim->result = result ? NFA_PIM_MATCH
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5367 : NFA_PIM_NOMATCH;
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5368 /* for \@! and \@<! it is a match when the result is
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5369 * FALSE */
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5370 if (result != (t->pim->state->c
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5371 == NFA_START_INVISIBLE_NEG
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5372 \|\| t->pim->state->c
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5373 == NFA_START_INVISIBLE_BEFORE_NEG))
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5374 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5375 /* Copy submatch info from the recursive call */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5376 copy_sub_off(&t->pim->subs.norm, &m->norm);
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5377 #ifdef FEAT_SYN_HL
4768 82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	5378 if (nfa_has_zsubexpr)
82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	5379 copy_sub_off(&t->pim->subs.synt, &m->synt);
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5380 #endif
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5381 }
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5382 }
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5383 else
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5384 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5385 result = (t->pim->result == NFA_PIM_MATCH);
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5386 #ifdef ENABLE_LOG
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5387 fprintf(log_fd, "\n");
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5388 fprintf(log_fd, "Using previous recursive nfa_regmatch() result, result == %d\n", t->pim->result);
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5389 fprintf(log_fd, "MATCH = %s\n", result == TRUE ? "OK" : "FALSE");
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5390 fprintf(log_fd, "\n");
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5391 #endif
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5392 }
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5393
4785 3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5394 /* for \@! and \@<! it is a match when result is FALSE */
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5395 if (result != (t->pim->state->c == NFA_START_INVISIBLE_NEG
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5396 \|\| t->pim->state->c
3b5a023a4543 updated for version 7.3.1139 Bram Moolenaar <bram@vim.org> parents: 4783 diff changeset	5397 == NFA_START_INVISIBLE_BEFORE_NEG))
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5398 {
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5399 /* Copy submatch info from the recursive call */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5400 copy_sub_off(&t->subs.norm, &t->pim->subs.norm);
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5401 #ifdef FEAT_SYN_HL
4768 82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	5402 if (nfa_has_zsubexpr)
82e6588762e4 updated for version 7.3.1131 Bram Moolenaar <bram@vim.org> parents: 4762 diff changeset	5403 copy_sub_off(&t->subs.synt, &t->pim->subs.synt);
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5404 #endif
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5405 }
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5406 else
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5407 /* look-behind match failed, don't add the state */
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5408 continue;
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5409 }
3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5410
4799 e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5411 if (add_here)
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5412 addstate_here(thislist, add_state, &t->subs, NULL, &listidx);
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5413 else
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5414 {
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5415 addstate(nextlist, add_state, &t->subs, add_off);
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5416 if (add_count > 0)
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5417 nextlist->t[nextlist->n - 1].count = add_count;
e3f9e33fb28c updated for version 7.3.1146 Bram Moolenaar <bram@vim.org> parents: 4797 diff changeset	5418 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5419 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5420
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5421 } /* for (thislist = thislist; thislist->state; thislist++) */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5422
4557 888c12c899e5 updated for version 7.3.1026 Bram Moolenaar <bram@vim.org> parents: 4555 diff changeset	5423 /* Look for the start of a match in the current position by adding the
888c12c899e5 updated for version 7.3.1026 Bram Moolenaar <bram@vim.org> parents: 4555 diff changeset	5424 * start state to the list of states.
888c12c899e5 updated for version 7.3.1026 Bram Moolenaar <bram@vim.org> parents: 4555 diff changeset	5425 * The first found match is the leftmost one, thus the order of states
888c12c899e5 updated for version 7.3.1026 Bram Moolenaar <bram@vim.org> parents: 4555 diff changeset	5426 * matters!
888c12c899e5 updated for version 7.3.1026 Bram Moolenaar <bram@vim.org> parents: 4555 diff changeset	5427 * Do not add the start state in recursive calls of nfa_regmatch(),
888c12c899e5 updated for version 7.3.1026 Bram Moolenaar <bram@vim.org> parents: 4555 diff changeset	5428 * because recursive calls should only start in the first position.
4694 efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	5429 * Unless "nfa_endp" is not NULL, then we match the end position.
4557 888c12c899e5 updated for version 7.3.1026 Bram Moolenaar <bram@vim.org> parents: 4555 diff changeset	5430 * Also don't start a match past the first line. */
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	5431 if (nfa_match == FALSE
4797 a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5432 && ((toplevel
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	5433 && reglnum == 0
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	5434 && clen != 0
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	5435 && (ireg_maxcol == 0
2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	5436 \|\| (colnr_T)(reginput - regline) < ireg_maxcol))
4694 efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	5437 \|\| (nfa_endp != NULL
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	5438 && (REG_MULTI
4694 efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	5439 ? (reglnum < nfa_endp->se_u.pos.lnum
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	5440 \|\| (reglnum == nfa_endp->se_u.pos.lnum
4682 2f51ee8825db updated for version 7.3.1088 Bram Moolenaar <bram@vim.org> parents: 4679 diff changeset	5441 && (int)(reginput - regline)
4694 efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	5442 < nfa_endp->se_u.pos.col))
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	5443 : reginput < nfa_endp->se_u.ptr))))
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5444 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5445 #ifdef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5446 fprintf(log_fd, "(---) STARTSTATE\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5447 #endif
4797 a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5448 /* Inline optimized code for addstate() if we know the state is
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5449 * the first MOPEN. */
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5450 if (toplevel)
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5451 {
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5452 if (REG_MULTI)
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5453 m->norm.list.multi[0].start.col =
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5454 (colnr_T)(reginput - regline) + clen;
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5455 else
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5456 m->norm.list.line[0].start = reginput + clen;
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5457 addstate(nextlist, start->out, m, clen);
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5458 }
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5459 else
a30e3762957d updated for version 7.3.1145 Bram Moolenaar <bram@vim.org> parents: 4787 diff changeset	5460 addstate(nextlist, start, m, clen);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5461 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5462
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5463 #ifdef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5464 fprintf(log_fd, ">>> Thislist had %d states available: ", thislist->n);
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5465 {
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5466 int i;
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5467
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5468 for (i = 0; i < thislist->n; i++)
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5469 fprintf(log_fd, "%d ", abs(thislist->t[i].state->id));
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5470 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5471 fprintf(log_fd, "\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5472 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5473
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5474 nextchar:
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	5475 /* Advance to the next character, or advance to the next line, or
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	5476 * finish. */
4549 849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5477 if (clen != 0)
849180347ac3 updated for version 7.3.1022 Bram Moolenaar <bram@vim.org> parents: 4547 diff changeset	5478 reginput += clen;
4694 efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	5479 else if (go_to_nextline \|\| (nfa_endp != NULL && REG_MULTI
efc4fb311d5d updated for version 7.3.1094 Bram Moolenaar <bram@vim.org> parents: 4692 diff changeset	5480 && reglnum < nfa_endp->se_u.pos.lnum))
4515 90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	5481 reg_nextline();
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	5482 else
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	5483 break;
90e9917d4114 updated for version 7.3.1005 Bram Moolenaar <bram@vim.org> parents: 4507 diff changeset	5484 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5485
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5486 #ifdef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5487 if (log_fd != stderr)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5488 fclose(log_fd);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5489 log_fd = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5490 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5491
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5492 theend:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5493 /* Free memory */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5494 vim_free(list[0].t);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5495 vim_free(list[1].t);
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	5496 vim_free(listids);
4726 3849c811cc0b updated for version 7.3.1110 Bram Moolenaar <bram@vim.org> parents: 4720 diff changeset	5497 ga_clear(&pimlist);
4783 47222d8b1e94 updated for version 7.3.1138 Bram Moolenaar <bram@vim.org> parents: 4781 diff changeset	5498 #undef ADD_STATE_IF_MATCH
4460 fe8a0a6a1c2a updated for version 7.3.978 Bram Moolenaar <bram@vim.org> parents: 4458 diff changeset	5499 #ifdef NFA_REGEXP_DEBUG_LOG
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5500 fclose(debug);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5501 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5502
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	5503 return nfa_match;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5504 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5505
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5506 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5507 * Try match of "prog" with at regline["col"].
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5508 * Returns 0 for failure, number of lines contained in the match otherwise.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5509 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5510 static long
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5511 nfa_regtry(prog, col)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5512 nfa_regprog_T *prog;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5513 colnr_T col;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5514 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5515 int i;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5516 regsubs_T subs, m;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5517 nfa_state_T *start = prog->start;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5518 #ifdef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5519 FILE *f;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5520 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5521
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5522 reginput = regline + col;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5523 need_clear_subexpr = TRUE;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5524 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5525 /* Clear the external match subpointers if necessary. */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5526 if (prog->reghasz == REX_SET)
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	5527 {
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	5528 nfa_has_zsubexpr = TRUE;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5529 need_clear_zsubexpr = TRUE;
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	5530 }
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	5531 else
832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	5532 nfa_has_zsubexpr = FALSE;
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5533 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5534
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5535 #ifdef ENABLE_LOG
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	5536 f = fopen(NFA_REGEXP_RUN_LOG, "a");
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5537 if (f != NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5538 {
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	5539 fprintf(f, "\n\n\t=======================================================\n");
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5540 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5541 fprintf(f, "\tRegexp is \"%s\"\n", nfa_regengine.expr);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5542 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5543 fprintf(f, "\tInput text is \"%s\" \n", reginput);
4750 7793e737ec87 updated for version 7.3.1122 Bram Moolenaar <bram@vim.org> parents: 4748 diff changeset	5544 fprintf(f, "\t=======================================================\n\n");
4533 6a2005efa02b updated for version 7.3.1014 Bram Moolenaar <bram@vim.org> parents: 4531 diff changeset	5545 nfa_print_state(f, start);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5546 fprintf(f, "\n\n");
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5547 fclose(f);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5548 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5549 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5550 EMSG(_("Could not open temporary log file for writing "));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5551 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5552
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5553 clear_sub(&subs.norm);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5554 clear_sub(&m.norm);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5555 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5556 clear_sub(&subs.synt);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5557 clear_sub(&m.synt);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5558 #endif
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5559
4712 832bf8136d86 updated for version 7.3.1103 Bram Moolenaar <bram@vim.org> parents: 4696 diff changeset	5560 if (nfa_regmatch(prog, start, &subs, &m) == FALSE)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5561 return 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5562
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5563 cleanup_subexpr();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5564 if (REG_MULTI)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5565 {
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5566 for (i = 0; i < subs.norm.in_use; i++)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5567 {
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5568 reg_startpos[i] = subs.norm.list.multi[i].start;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5569 reg_endpos[i] = subs.norm.list.multi[i].end;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5570 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5571
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5572 if (reg_startpos[0].lnum < 0)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5573 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5574 reg_startpos[0].lnum = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5575 reg_startpos[0].col = col;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5576 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5577 if (reg_endpos[0].lnum < 0)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5578 {
4569 f262fb02889d updated for version 7.3.1032 Bram Moolenaar <bram@vim.org> parents: 4567 diff changeset	5579 /* pattern has a \ze but it didn't match, use current end */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5580 reg_endpos[0].lnum = reglnum;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5581 reg_endpos[0].col = (int)(reginput - regline);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5582 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5583 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5584 /* Use line number of "\ze". */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5585 reglnum = reg_endpos[0].lnum;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5586 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5587 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5588 {
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5589 for (i = 0; i < subs.norm.in_use; i++)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5590 {
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5591 reg_startp[i] = subs.norm.list.line[i].start;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5592 reg_endp[i] = subs.norm.list.line[i].end;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5593 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5594
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5595 if (reg_startp[0] == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5596 reg_startp[0] = regline + col;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5597 if (reg_endp[0] == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5598 reg_endp[0] = reginput;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5599 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5600
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5601 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5602 /* Package any found \z(...\) matches for export. Default is none. */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5603 unref_extmatch(re_extmatch_out);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5604 re_extmatch_out = NULL;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5605
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5606 if (prog->reghasz == REX_SET)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5607 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5608 cleanup_zsubexpr();
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5609 re_extmatch_out = make_extmatch();
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5610 for (i = 0; i < subs.synt.in_use; i++)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5611 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5612 if (REG_MULTI)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5613 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5614 struct multipos *mpos = &subs.synt.list.multi[i];
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5615
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5616 /* Only accept single line matches. */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5617 if (mpos->start.lnum >= 0 && mpos->start.lnum == mpos->end.lnum)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5618 re_extmatch_out->matches[i] =
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5619 vim_strnsave(reg_getline(mpos->start.lnum)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5620 + mpos->start.col,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5621 mpos->end.col - mpos->start.col);
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5622 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5623 else
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5624 {
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5625 struct linepos *lpos = &subs.synt.list.line[i];
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5626
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5627 if (lpos->start != NULL && lpos->end != NULL)
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5628 re_extmatch_out->matches[i] =
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5629 vim_strnsave(lpos->start,
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5630 (int)(lpos->end - lpos->start));
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5631 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5632 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5633 }
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5634 #endif
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5635
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5636 return 1 + reglnum;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5637 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5638
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5639 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5640 * Match a regexp against a string ("line" points to the string) or multiple
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5641 * lines ("line" is NULL, use reg_getline()).
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5642 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5643 * Returns 0 for failure, number of lines contained in the match otherwise.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5644 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5645 static long
4772 03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5646 nfa_regexec_both(line, startcol)
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5647 char_u *line;
4772 03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5648 colnr_T startcol; /* column to start looking for match */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5649 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5650 nfa_regprog_T *prog;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5651 long retval = 0L;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5652 int i;
4772 03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5653 colnr_T col = startcol;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5654
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5655 if (REG_MULTI)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5656 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5657 prog = (nfa_regprog_T *)reg_mmatch->regprog;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5658 line = reg_getline((linenr_T)0); /* relative to the cursor */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5659 reg_startpos = reg_mmatch->startpos;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5660 reg_endpos = reg_mmatch->endpos;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5661 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5662 else
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5663 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5664 prog = (nfa_regprog_T *)reg_match->regprog;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5665 reg_startp = reg_match->startp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5666 reg_endp = reg_match->endp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5667 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5668
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5669 /* Be paranoid... */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5670 if (prog == NULL \|\| line == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5671 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5672 EMSG(_(e_null));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5673 goto theend;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5674 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5675
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5676 /* If pattern contains "\c" or "\C": overrule value of ireg_ic */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5677 if (prog->regflags & RF_ICASE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5678 ireg_ic = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5679 else if (prog->regflags & RF_NOICASE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5680 ireg_ic = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5681
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5682 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5683 /* If pattern contains "\Z" overrule value of ireg_icombine */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5684 if (prog->regflags & RF_ICOMBINE)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5685 ireg_icombine = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5686 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5687
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5688 regline = line;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5689 reglnum = 0; /* relative to line */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5690
4553 7b835b2969af updated for version 7.3.1024 Bram Moolenaar <bram@vim.org> parents: 4551 diff changeset	5691 nfa_has_zend = prog->has_zend;
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	5692 nfa_has_backref = prog->has_backref;
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	5693 nfa_nsubexpr = prog->nsubexp;
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	5694 nfa_listid = 1;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	5695 nfa_alt_listid = 2;
4690 9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5696 #ifdef DEBUG
9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5697 nfa_regengine.expr = prog->pattern;
9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5698 #endif
4553 7b835b2969af updated for version 7.3.1024 Bram Moolenaar <bram@vim.org> parents: 4551 diff changeset	5699
4772 03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5700 if (prog->reganch && col > 0)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5701 return 0L;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5702
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5703 if (prog->regstart != NUL)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5704 {
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5705 char_u *s;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5706
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5707 /* Skip until the char we know it must start with.
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5708 * Used often, do some work to avoid call overhead. */
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5709 if (!ireg_ic
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5710 #ifdef FEAT_MBYTE
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5711 && !has_mbyte
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5712 #endif
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5713 )
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5714 s = vim_strbyte(regline + col, prog->regstart);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5715 else
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5716 s = cstrchr(regline + col, prog->regstart);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5717 if (s == NULL)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5718 return 0L;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5719 col = (int)(s - regline);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5720 }
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5721
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5722 /* If the start column is past the maximum column: no need to try. */
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5723 if (ireg_maxcol > 0 && col >= ireg_maxcol)
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5724 goto theend;
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5725
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5726 nstate = prog->nstate;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5727 for (i = 0; i < nstate; ++i)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5728 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5729 prog->state[i].id = i;
4718 ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	5730 prog->state[i].lastlist[0] = 0;
ec72bb4a0fc2 updated for version 7.3.1106 Bram Moolenaar <bram@vim.org> parents: 4716 diff changeset	5731 prog->state[i].lastlist[1] = 0;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5732 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5733
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5734 retval = nfa_regtry(prog, col);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5735
4690 9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5736 #ifdef DEBUG
9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5737 nfa_regengine.expr = NULL;
9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5738 #endif
9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5739
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5740 theend:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5741 return retval;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5742 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5743
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5744 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5745 * Compile a regular expression into internal code for the NFA matcher.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5746 * Returns the program in allocated space. Returns NULL for an error.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5747 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5748 static regprog_T *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5749 nfa_regcomp(expr, re_flags)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5750 char_u *expr;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5751 int re_flags;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5752 {
4541 80170d61a85c updated for version 7.3.1018 Bram Moolenaar <bram@vim.org> parents: 4539 diff changeset	5753 nfa_regprog_T *prog = NULL;
4458 21e13403140a updated for version 7.3.977 Bram Moolenaar <bram@vim.org> parents: 4456 diff changeset	5754 size_t prog_size;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5755 int *postfix;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5756
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5757 if (expr == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5758 return NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5759
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5760 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5761 nfa_regengine.expr = expr;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5762 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5763
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5764 init_class_tab();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5765
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5766 if (nfa_regcomp_start(expr, re_flags) == FAIL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5767 return NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5768
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5769 /* Build postfix form of the regexp. Needed to build the NFA
4541 80170d61a85c updated for version 7.3.1018 Bram Moolenaar <bram@vim.org> parents: 4539 diff changeset	5770 * (and count its size). */
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5771 postfix = re2post();
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5772 if (postfix == NULL)
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	5773 {
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	5774 /* TODO: only give this error for debugging? */
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	5775 if (post_ptr >= post_end)
b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	5776 EMSGN("Internal error: estimated max number of states insufficient: %ld", post_end - post_start);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5777 goto fail; /* Cascaded (syntax?) error */
4555 b2946c06d1b6 updated for version 7.3.1025 Bram Moolenaar <bram@vim.org> parents: 4553 diff changeset	5778 }
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5779
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5780 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5781 * In order to build the NFA, we parse the input regexp twice:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5782 * 1. first pass to count size (so we can allocate space)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5783 * 2. second to emit code
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5784 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5785 #ifdef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5786 {
4531 1be43c095aff updated for version 7.3.1013 Bram Moolenaar <bram@vim.org> parents: 4529 diff changeset	5787 FILE *f = fopen(NFA_REGEXP_RUN_LOG, "a");
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5788
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5789 if (f != NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5790 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5791 fprintf(f, "\n*****************************\n\n\n\n\tCompiling regexp \"%s\" ... hold on !\n", expr);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5792 fclose(f);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5793 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5794 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5795 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5796
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5797 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5798 * PASS 1
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5799 * Count number of NFA states in "nstate". Do not build the NFA.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5800 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5801 post2nfa(postfix, post_ptr, TRUE);
4541 80170d61a85c updated for version 7.3.1018 Bram Moolenaar <bram@vim.org> parents: 4539 diff changeset	5802
80170d61a85c updated for version 7.3.1018 Bram Moolenaar <bram@vim.org> parents: 4539 diff changeset	5803 /* Space for compiled regexp */
80170d61a85c updated for version 7.3.1018 Bram Moolenaar <bram@vim.org> parents: 4539 diff changeset	5804 prog_size = sizeof(nfa_regprog_T) + sizeof(nfa_state_T) * nstate;
80170d61a85c updated for version 7.3.1018 Bram Moolenaar <bram@vim.org> parents: 4539 diff changeset	5805 prog = (nfa_regprog_T *)lalloc(prog_size, TRUE);
80170d61a85c updated for version 7.3.1018 Bram Moolenaar <bram@vim.org> parents: 4539 diff changeset	5806 if (prog == NULL)
80170d61a85c updated for version 7.3.1018 Bram Moolenaar <bram@vim.org> parents: 4539 diff changeset	5807 goto fail;
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5808 state_ptr = prog->state;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5809
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5810 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5811 * PASS 2
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5812 * Build the NFA
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5813 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5814 prog->start = post2nfa(postfix, post_ptr, FALSE);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5815 if (prog->start == NULL)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5816 goto fail;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5817
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5818 prog->regflags = regflags;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5819 prog->engine = &nfa_regengine;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5820 prog->nstate = nstate;
4553 7b835b2969af updated for version 7.3.1024 Bram Moolenaar <bram@vim.org> parents: 4551 diff changeset	5821 prog->has_zend = nfa_has_zend;
4647 857f6c53f117 updated for version 7.3.1071 Bram Moolenaar <bram@vim.org> parents: 4615 diff changeset	5822 prog->has_backref = nfa_has_backref;
4561 4d81fdda8f35 updated for version 7.3.1028 Bram Moolenaar <bram@vim.org> parents: 4559 diff changeset	5823 prog->nsubexp = regnpar;
4772 03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5824
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5825 prog->reganch = nfa_get_reganch(prog->start, 0);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5826 prog->regstart = nfa_get_regstart(prog->start, 0);
03375ccf28a2 updated for version 7.3.1133 Bram Moolenaar <bram@vim.org> parents: 4770 diff changeset	5827
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5828 #ifdef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5829 nfa_postfix_dump(expr, OK);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5830 nfa_dump(prog);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5831 #endif
4686 8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5832 #ifdef FEAT_SYN_HL
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5833 /* Remember whether this pattern has any \z specials in it. */
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5834 prog->reghasz = re_has_z;
8db697ae406a updated for version 7.3.1090 Bram Moolenaar <bram@vim.org> parents: 4682 diff changeset	5835 #endif
4690 9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5836 #ifdef DEBUG
9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5837 prog->pattern = vim_strsave(expr); /* memory will leak */
9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5838 nfa_regengine.expr = NULL;
9d97a0c045ef updated for version 7.3.1092 Bram Moolenaar <bram@vim.org> parents: 4688 diff changeset	5839 #endif
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5840
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5841 out:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5842 vim_free(post_start);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5843 post_start = post_ptr = post_end = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5844 state_ptr = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5845 return (regprog_T *)prog;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5846
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5847 fail:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5848 vim_free(prog);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5849 prog = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5850 #ifdef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5851 nfa_postfix_dump(expr, FAIL);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5852 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5853 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5854 nfa_regengine.expr = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5855 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5856 goto out;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5857 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5858
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5859
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5860 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5861 * Match a regexp against a string.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5862 * "rmp->regprog" is a compiled regexp as returned by nfa_regcomp().
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5863 * Uses curbuf for line count and 'iskeyword'.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5864 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5865 * Return TRUE if there is a match, FALSE if not.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5866 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5867 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5868 nfa_regexec(rmp, line, col)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5869 regmatch_T *rmp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5870 char_u line; / string to match against */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5871 colnr_T col; /* column to start looking for match */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5872 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5873 reg_match = rmp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5874 reg_mmatch = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5875 reg_maxline = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5876 reg_line_lbr = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5877 reg_buf = curbuf;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5878 reg_win = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5879 ireg_ic = rmp->rm_ic;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5880 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5881 ireg_icombine = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5882 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5883 ireg_maxcol = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5884 return (nfa_regexec_both(line, col) != 0);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5885 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5886
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5887 #if defined(FEAT_MODIFY_FNAME) \|\| defined(FEAT_EVAL) \
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5888 \|\| defined(FIND_REPLACE_DIALOG) \|\| defined(PROTO)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5889
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5890 static int nfa_regexec_nl __ARGS((regmatch_T rmp, char_u line, colnr_T col));
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5891
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5892 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5893 * Like nfa_regexec(), but consider a "\n" in "line" to be a line break.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5894 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5895 static int
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5896 nfa_regexec_nl(rmp, line, col)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5897 regmatch_T *rmp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5898 char_u line; / string to match against */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5899 colnr_T col; /* column to start looking for match */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5900 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5901 reg_match = rmp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5902 reg_mmatch = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5903 reg_maxline = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5904 reg_line_lbr = TRUE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5905 reg_buf = curbuf;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5906 reg_win = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5907 ireg_ic = rmp->rm_ic;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5908 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5909 ireg_icombine = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5910 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5911 ireg_maxcol = 0;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5912 return (nfa_regexec_both(line, col) != 0);
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5913 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5914 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5915
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5916
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5917 /*
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5918 * Match a regexp against multiple lines.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5919 * "rmp->regprog" is a compiled regexp as returned by vim_regcomp().
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5920 * Uses curbuf for line count and 'iskeyword'.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5921 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5922 * 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: diff changeset	5923 * match otherwise.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5924 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5925 * Note: the body is the same as bt_regexec() except for nfa_regexec_both()
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5926 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5927 * ! Also NOTE : match may actually be in another line. e.g.:
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5928 * when r.e. is \nc, cursor is at 'a' and the text buffer looks like
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5929 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5930 * +-------------------------+
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5931 * \|a \|
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5932 * \|b \|
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5933 * \|c \|
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5934 * \| \|
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5935 * +-------------------------+
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5936 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5937 * then nfa_regexec_multi() returns 3. while the original
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5938 * vim_regexec_multi() returns 0 and a second call at line 2 will return 2.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5939 *
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5940 * FIXME if this behavior is not compatible.
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5941 */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5942 static long
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5943 nfa_regexec_multi(rmp, win, buf, lnum, col, tm)
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5944 regmmatch_T *rmp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5945 win_T win; / window in which to search or NULL */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5946 buf_T buf; / buffer in which to search */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5947 linenr_T lnum; /* nr of line to start looking for match */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5948 colnr_T col; /* column to start looking for match */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5949 proftime_T tm UNUSED; / timeout limit or NULL */
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5950 {
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5951 reg_match = NULL;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5952 reg_mmatch = rmp;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5953 reg_buf = buf;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5954 reg_win = win;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5955 reg_firstlnum = lnum;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5956 reg_maxline = reg_buf->b_ml.ml_line_count - lnum;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5957 reg_line_lbr = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5958 ireg_ic = rmp->rmm_ic;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5959 #ifdef FEAT_MBYTE
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5960 ireg_icombine = FALSE;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5961 #endif
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5962 ireg_maxcol = rmp->rmm_maxcol;
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5963
4503 e6e60d9da892 updated for version 7.3.999 Bram Moolenaar <bram@vim.org> parents: 4484 diff changeset	5964 return nfa_regexec_both(NULL, col);
4444 ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5965 }
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5966
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5967 #ifdef DEBUG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5968 # undef ENABLE_LOG
ccecb03e5e8b updated for version 7.3.970 Bram Moolenaar <bram@vim.org> parents: diff changeset	5969 #endif

Mercurial > vim

annotate src/regexp_nfa.c @ 4799:e3f9e33fb28c v7.3.1146