annotate src/regex.h @ 1296:87084e8445a7

[xemacs-hg @ 2003-02-14 09:50:15 by ben] syntax-table fixes 1. the updating of mirror tables every time a syntax table was modified was taking up huge amounts of time so i added a dirty flag and made the updating "just-in-time". 2. no-longer-used char-table-entries were not getting "freed", generating tons of garbage. 3. syntax_match() was being incorrectly called on mirror tables in the cache, not the original syntax table. buffer.c, syntax.c: Move syntax table description from buffer.c to syntax.c. chartab.c, chartab.h: Free extra char table entries to avoid excessive garbage. Add flags for dirty and mirror_table_p to char tables. Add a back pointer from mirror tables to the original syntax table. When modifying a syntax table, don't update the mirror table right away, just mark as dirty. Add various asserts to make sure we are dealing with the right type of table (mirror or non-mirror). font-lock.c, syntax.c, syntax.h: Add entry to syntax caches for the non-mirror table. Set it appropriately when initializing the syntax table. Use it, not the mirror table, for calls to syntax_match(). Don't create a bogus float each time, just once at startup. Add some asserts, as in chartab.c. syntax.h: When retrieving the syntax code, check the dirty flag and update the mirror tables as appropriate. Add some asserts, as above.
author ben
date Fri, 14 Feb 2003 09:50:17 +0000
parents 6728e641994e
children 0f42689481f0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Definitions for data structures and routines for the regular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 expression library, version 0.12.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 Copyright (C) 1985, 89, 90, 91, 92, 93, 95 Free Software Foundation, Inc.
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
5 Copyright (C) 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 This program is free software; you can redistribute it and/or modify
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 This program is distributed in the hope that it will be useful,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 GNU General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 along with this program; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 /* Synched up with: FSF 19.29. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
24 #ifndef INCLUDED_regex_h_
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
25 #define INCLUDED_regex_h_
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
27 #ifdef emacs
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
28 #define RE_TRANSLATE_TYPE Lisp_Object
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
29 #define RE_LISP_SHORT_CONTEXT_ARGS_DECL , Lisp_Object lispobj, struct buffer *lispbuf
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
30 #define RE_LISP_SHORT_CONTEXT_ARGS , lispobj, lispbuf
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
31 #define RE_LISP_CONTEXT_ARGS_DECL , Lisp_Object lispobj, struct buffer *lispbuf, struct syntax_cache *scache
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
32 #define RE_LISP_CONTEXT_ARGS , lispobj, lispbuf, scache
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
33 #else
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
34 #define RE_TRANSLATE_TYPE char *
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
35 #define RE_LISP_SHORT_CONTEXT_ARGS_DECL
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
36 #define RE_LISP_SHORT_CONTEXT_ARGS
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
37 #define RE_LISP_CONTEXT_ARGS_DECL
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
38 #define RE_LISP_CONTEXT_ARGS
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
39 #define Elemcount ssize_t
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
40 #define Bytecount ssize_t
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
41 #endif /* emacs */
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
42
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 /* POSIX says that <sys/types.h> must be included (by the caller) before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 <regex.h>. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 /* The following bits are used to determine the regexp syntax we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 recognize. The not-set meaning typically corresponds to the syntax
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 used by Emacs (the exception is RE_INTERVAL, made for historical
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 reasons). The bits are given in alphabetical order, and the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 definitions shifted by one from the previous bit; thus, when we add or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 remove a bit, only one other definition need change. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 typedef unsigned reg_syntax_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 /* If this bit is not set, then \ inside a bracket expression is literal.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 If set, then such a \ quotes the following character. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 #define RE_BACKSLASH_ESCAPE_IN_LISTS (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 /* If this bit is not set, then + and ? are operators, and \+ and \? are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 literals.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 If set, then \+ and \? are operators and + and ? are literals. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 #define RE_BK_PLUS_QM (RE_BACKSLASH_ESCAPE_IN_LISTS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 /* If this bit is set, then character classes are supported. They are:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 [:alpha:], [:upper:], [:lower:], [:digit:], [:alnum:], [:xdigit:],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 [:space:], [:print:], [:punct:], [:graph:], and [:cntrl:].
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 If not set, then character classes are not supported. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 #define RE_CHAR_CLASSES (RE_BK_PLUS_QM << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 /* If this bit is set, then ^ and $ are always anchors (outside bracket
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 expressions, of course).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 If this bit is not set, then it depends:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 ^ is an anchor if it is at the beginning of a regular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 expression or after an open-group or an alternation operator;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 $ is an anchor if it is at the end of a regular expression, or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 before a close-group or an alternation operator.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 This bit could be (re)combined with RE_CONTEXT_INDEP_OPS, because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 POSIX draft 11.2 says that * etc. in leading positions is undefined.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 We already implemented a previous draft which made those constructs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 invalid, though, so we haven't changed the code back. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 #define RE_CONTEXT_INDEP_ANCHORS (RE_CHAR_CLASSES << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 /* If this bit is set, then special characters are always special
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 regardless of where they are in the pattern.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 If this bit is not set, then special characters are special only in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 some contexts; otherwise they are ordinary. Specifically,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 * + ? and intervals are only special when not after the beginning,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 open-group, or alternation operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 #define RE_CONTEXT_INDEP_OPS (RE_CONTEXT_INDEP_ANCHORS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 /* If this bit is set, then *, +, ?, and { cannot be first in an re or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 immediately after an alternation or begin-group operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 #define RE_CONTEXT_INVALID_OPS (RE_CONTEXT_INDEP_OPS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 /* If this bit is set, then . matches newline.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 If not set, then it doesn't. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 #define RE_DOT_NEWLINE (RE_CONTEXT_INVALID_OPS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 /* If this bit is set, then . doesn't match NUL.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 If not set, then it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 #define RE_DOT_NOT_NULL (RE_DOT_NEWLINE << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 /* If this bit is set, nonmatching lists [^...] do not match newline.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 If not set, they do. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 #define RE_HAT_LISTS_NOT_NEWLINE (RE_DOT_NOT_NULL << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 /* If this bit is set, either \{...\} or {...} defines an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 interval, depending on RE_NO_BK_BRACES.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 If not set, \{, \}, {, and } are literals. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 #define RE_INTERVALS (RE_HAT_LISTS_NOT_NEWLINE << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 /* If this bit is set, +, ? and | aren't recognized as operators.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 If not set, they are. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 #define RE_LIMITED_OPS (RE_INTERVALS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 /* If this bit is set, newline is an alternation operator.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 If not set, newline is literal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 #define RE_NEWLINE_ALT (RE_LIMITED_OPS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 /* If this bit is set, then `{...}' defines an interval, and \{ and \}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 are literals.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 If not set, then `\{...\}' defines an interval. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 #define RE_NO_BK_BRACES (RE_NEWLINE_ALT << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 /* If this bit is set, (...) defines a group, and \( and \) are literals.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 If not set, \(...\) defines a group, and ( and ) are literals. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 #define RE_NO_BK_PARENS (RE_NO_BK_BRACES << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 /* If this bit is set, then \<digit> matches <digit>.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 If not set, then \<digit> is a back-reference. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 #define RE_NO_BK_REFS (RE_NO_BK_PARENS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 /* If this bit is set, then | is an alternation operator, and \| is literal.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 If not set, then \| is an alternation operator, and | is literal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 #define RE_NO_BK_VBAR (RE_NO_BK_REFS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 /* If this bit is set, then an ending range point collating higher
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 than the starting range point, as in [z-a], is invalid.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 If not set, then when ending range point collates higher than the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 starting range point, the range is ignored. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 #define RE_NO_EMPTY_RANGES (RE_NO_BK_VBAR << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 /* If this bit is not set, allow minimal matching:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 - a*? and a+? and a?? perform shortest-possible matching (compare with a*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 and a+ and a?, respectively, which perform longest-possible matching)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 - other juxtaposing of * + and ? is rejected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 If this bit is set, consecutive * + and ?'s are collapsed in a logical
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 manner:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 - a*? and a+? are the same as a*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 - a?? is the same as a?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 #define RE_NO_MINIMAL_MATCHING (RE_NO_EMPTY_RANGES << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 /* If this bit is set, succeed as soon as we match the whole pattern,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 without further backtracking. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 #define RE_NO_POSIX_BACKTRACKING (RE_NO_MINIMAL_MATCHING << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 /* If this bit is not set, (?:re) behaves like (re) (or \(?:re\) behaves like
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 \(re\)) except that the matched string is not registered. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 #define RE_NO_SHY_GROUPS (RE_NO_POSIX_BACKTRACKING << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 /* If this bit is set, then an unmatched ) is ordinary.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 If not set, then an unmatched ) is invalid. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 #define RE_UNMATCHED_RIGHT_PAREN_ORD (RE_NO_SHY_GROUPS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
167 /* If this bit is set, then \22 will read as a back reference,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
168 provided at least 22 non-shy groups have been seen so far. In all
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
169 other cases (bit not set, not 22 non-shy groups seen so far), it
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
170 reads as a back reference \2 followed by a digit 2. */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
171 #define RE_NO_MULTI_DIGIT_BK_REFS (RE_UNMATCHED_RIGHT_PAREN_ORD << 1)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
172
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 /* This global variable defines the particular regexp syntax to use (for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 some interfaces). When a regexp is compiled, the syntax used is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 stored in the pattern buffer, so changing this does not affect
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 already-compiled regexps. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 extern reg_syntax_t re_syntax_options;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 /* Define combinations of the above bits for the standard possibilities.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 (The [[[ comments delimit what gets put into the Texinfo file, so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 don't delete them!) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 /* [[[begin syntaxes]]] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 #define RE_SYNTAX_EMACS RE_INTERVALS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 #define RE_SYNTAX_AWK \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 (RE_BACKSLASH_ESCAPE_IN_LISTS | RE_DOT_NOT_NULL \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 | RE_NO_BK_PARENS | RE_NO_BK_REFS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 | RE_NO_BK_VBAR | RE_NO_EMPTY_RANGES \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 | RE_UNMATCHED_RIGHT_PAREN_ORD | RE_NO_SHY_GROUPS \
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
190 | RE_NO_MINIMAL_MATCHING | RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 #define RE_SYNTAX_POSIX_AWK \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 (RE_SYNTAX_POSIX_EXTENDED | RE_BACKSLASH_ESCAPE_IN_LISTS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 #define RE_SYNTAX_GREP \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 (RE_BK_PLUS_QM | RE_CHAR_CLASSES \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 | RE_HAT_LISTS_NOT_NEWLINE | RE_INTERVALS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 | RE_NEWLINE_ALT | RE_NO_SHY_GROUPS \
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
199 | RE_NO_MINIMAL_MATCHING | RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 #define RE_SYNTAX_EGREP \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 (RE_CHAR_CLASSES | RE_CONTEXT_INDEP_ANCHORS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 | RE_CONTEXT_INDEP_OPS | RE_HAT_LISTS_NOT_NEWLINE \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 | RE_NEWLINE_ALT | RE_NO_BK_PARENS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 | RE_NO_BK_VBAR | RE_NO_SHY_GROUPS \
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
206 | RE_NO_MINIMAL_MATCHING | RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 #define RE_SYNTAX_POSIX_EGREP \
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
209 (RE_SYNTAX_EGREP | RE_INTERVALS | RE_NO_BK_BRACES | \
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
210 RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 /* P1003.2/D11.2, section 4.20.7.1, lines 5078ff. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 #define RE_SYNTAX_ED RE_SYNTAX_POSIX_BASIC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 #define RE_SYNTAX_SED RE_SYNTAX_POSIX_BASIC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 /* Syntax bits common to both basic and extended POSIX regex syntax. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 #define _RE_SYNTAX_POSIX_COMMON \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 (RE_CHAR_CLASSES | RE_DOT_NEWLINE | RE_DOT_NOT_NULL \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 | RE_INTERVALS | RE_NO_EMPTY_RANGES | RE_NO_SHY_GROUPS \
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
221 | RE_NO_MINIMAL_MATCHING | RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 #define RE_SYNTAX_POSIX_BASIC \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 (_RE_SYNTAX_POSIX_COMMON | RE_BK_PLUS_QM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 /* Differs from ..._POSIX_BASIC only in that RE_BK_PLUS_QM becomes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 RE_LIMITED_OPS, i.e., \? \+ \| are not recognized. Actually, this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 isn't minimal, since other operators, such as \`, aren't disabled. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 #define RE_SYNTAX_POSIX_MINIMAL_BASIC \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 (_RE_SYNTAX_POSIX_COMMON | RE_LIMITED_OPS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 #define RE_SYNTAX_POSIX_EXTENDED \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 (_RE_SYNTAX_POSIX_COMMON | RE_CONTEXT_INDEP_ANCHORS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 | RE_CONTEXT_INDEP_OPS | RE_NO_BK_BRACES \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 | RE_NO_BK_PARENS | RE_NO_BK_VBAR \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 | RE_UNMATCHED_RIGHT_PAREN_ORD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 /* Differs from ..._POSIX_EXTENDED in that RE_CONTEXT_INVALID_OPS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 replaces RE_CONTEXT_INDEP_OPS and RE_NO_BK_REFS is added. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 #define RE_SYNTAX_POSIX_MINIMAL_EXTENDED \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 (_RE_SYNTAX_POSIX_COMMON | RE_CONTEXT_INDEP_ANCHORS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 | RE_CONTEXT_INVALID_OPS | RE_NO_BK_BRACES \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 | RE_NO_BK_PARENS | RE_NO_BK_REFS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 | RE_NO_BK_VBAR | RE_UNMATCHED_RIGHT_PAREN_ORD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 /* [[[end syntaxes]]] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 /* Maximum number of duplicates an interval can allow. Some systems
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 (erroneously) define this in other header files, but we want our
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 value, so remove any previous define. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 #ifdef RE_DUP_MAX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 #undef RE_DUP_MAX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 #define RE_DUP_MAX ((1 << 15) - 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 /* POSIX `cflags' bits (i.e., information for `regcomp'). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 /* If this bit is set, then use extended regular expression syntax.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 If not set, then use basic regular expression syntax. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 #define REG_EXTENDED 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 /* If this bit is set, then ignore case when matching.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 If not set, then case is significant. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 #define REG_ICASE (REG_EXTENDED << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 /* If this bit is set, then anchors do not match at newline
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 characters in the string.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 If not set, then anchors do match at newlines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 #define REG_NEWLINE (REG_ICASE << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 /* If this bit is set, then report only success or fail in regexec.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 If not set, then returns differ between not matching and errors. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 #define REG_NOSUB (REG_NEWLINE << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 /* POSIX `eflags' bits (i.e., information for regexec). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 /* If this bit is set, then the beginning-of-line operator doesn't match
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 the beginning of the string (presumably because it's not the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 beginning of a line).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 If not set, then the beginning-of-line operator does match the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 beginning of the string. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 #define REG_NOTBOL 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 /* Like REG_NOTBOL, except for the end-of-line. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 #define REG_NOTEOL (1 << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 /* If any error codes are removed, changed, or added, update the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 `re_error_msg' table in regex.c. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 typedef enum
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 REG_NOERROR = 0, /* Success. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 REG_NOMATCH, /* Didn't find a match (for regexec). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 /* POSIX regcomp return error codes. (In the order listed in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 standard.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 REG_BADPAT, /* Invalid pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 REG_ECOLLATE, /* Not implemented. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 REG_ECTYPE, /* Invalid character class name. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 REG_EESCAPE, /* Trailing backslash. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 REG_ESUBREG, /* Invalid back reference. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 REG_EBRACK, /* Unmatched left bracket. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 REG_EPAREN, /* Parenthesis imbalance. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 REG_EBRACE, /* Unmatched \{. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 REG_BADBR, /* Invalid contents of \{\}. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 REG_ERANGE, /* Invalid range end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 REG_ESPACE, /* Ran out of memory. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 REG_BADRPT, /* No preceding re for repetition op. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 /* Error codes we've added. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 REG_EEND, /* Premature end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 REG_ESIZE, /* Compiled pattern bigger than 2^16 bytes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 REG_ERPAREN /* Unmatched ) or \); not returned from regcomp. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 ,REG_ESYNTAX /* Invalid syntax designator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 ,REG_ERANGESPAN /* Ranges may not span charsets. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 ,REG_ECATEGORY /* Invalid category designator */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 } reg_errcode_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 /* This data structure represents a compiled pattern. Before calling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 the pattern compiler, the fields `buffer', `allocated', `fastmap',
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 `translate', and `no_sub' can be set. After the pattern has been
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 compiled, the `re_nsub' field is available. All other fields are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 private to the regex routines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 struct re_pattern_buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 /* [[[begin pattern_buffer]]] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 /* Space that holds the compiled pattern. It is declared as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 `unsigned char *' because its elements are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 sometimes used as array indexes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 unsigned char *buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 /* Number of bytes to which `buffer' points. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
339 long allocated;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 /* Number of bytes actually used in `buffer'. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
342 long used;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 /* Syntax setting with which the pattern was compiled. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 reg_syntax_t syntax;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 /* Pointer to a fastmap, if any, otherwise zero. re_search uses
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 the fastmap, if there is one, to skip over impossible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 starting points for matches. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 char *fastmap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 /* Either a translate table to apply to all characters before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 comparing them, or zero for no translation. The translation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 is applied to a pattern when it is compiled and to a string
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 when it is matched. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
356 RE_TRANSLATE_TYPE translate;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
358 /* Number of returnable groups found by the compiler. (This does
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
359 not count shy groups.) */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
360 int re_nsub;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
362 /* Total number of groups found by the compiler. (Including
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
363 shy ones.) */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
364 int re_ngroups;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
365
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 /* Zero if this pattern cannot match the empty string, one else.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 Well, in truth it's used only in `re_search_2', to see
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 whether or not we should use the fastmap, so we don't set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 this absolutely perfectly; see `re_compile_fastmap' (the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 `duplicate' case). */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
371 unsigned int can_be_null : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 /* If REGS_UNALLOCATED, allocate space in the `regs' structure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 for `max (RE_NREGS, re_nsub + 1)' groups.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 If REGS_REALLOCATE, reallocate space if necessary.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 If REGS_FIXED, use what's there. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 #define REGS_UNALLOCATED 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 #define REGS_REALLOCATE 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 #define REGS_FIXED 2
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
380 unsigned int regs_allocated : 2;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 /* Set to zero when `regex_compile' compiles a pattern; set to one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 by `re_compile_fastmap' if it updates the fastmap. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
384 unsigned int fastmap_accurate : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 /* If set, `re_match_2' does not return information about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 subexpressions. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
388 unsigned int no_sub : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 /* If set, a beginning-of-line anchor doesn't match at the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 beginning of the string. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
392 unsigned int not_bol : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 /* Similarly for an end-of-line anchor. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
395 unsigned int not_eol : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 /* If true, an anchor at a newline matches. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
398 unsigned int newline_anchor : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
400 unsigned int warned_about_incompatible_back_references : 1;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
401
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
402 /* Mapping between back references and groups (may not be
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
403 equivalent with shy groups). */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
404 int *external_to_internal_register;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
405
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
406 int external_to_internal_register_size;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
407
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 /* [[[end pattern_buffer]]] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 typedef struct re_pattern_buffer regex_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 /* Type for byte offsets within the string. POSIX mandates this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 typedef int regoff_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 /* This is the structure we store register match data in. See
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 regex.texinfo for a full description of what registers match. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 struct re_registers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
421 int num_regs;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 regoff_t *start;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 regoff_t *end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 /* If `regs_allocated' is REGS_UNALLOCATED in the pattern buffer,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 `re_match_2' returns information about at least this many registers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 the first time a `regs' structure is passed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 #ifndef RE_NREGS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 #define RE_NREGS 30
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 /* POSIX specification for registers. Aside from the different names than
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 `re_registers', POSIX uses an array of structures, instead of a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 structure of arrays. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 regoff_t rm_so; /* Byte offset from string's start to substring's start. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 regoff_t rm_eo; /* Byte offset from string's start to substring's end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 } regmatch_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 /* Declarations for routines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 /* Sets the current default syntax to SYNTAX, and return the old syntax.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 You can also simply assign to the `re_syntax_options' variable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 reg_syntax_t re_set_syntax (reg_syntax_t syntax);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 /* Compile the regular expression PATTERN, with length LENGTH
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 and syntax given by the global `re_syntax_options', into the buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 BUFFER. Return NULL if successful, and an error string if not. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
453 const char *re_compile_pattern (const char *pattern, int length,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 struct re_pattern_buffer *buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 /* Compile a fastmap for the compiled pattern in BUFFER; used to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 accelerate searches. Return 0 if successful and -2 if was an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 internal error. */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
460 int re_compile_fastmap (struct re_pattern_buffer *buffer
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
461 RE_LISP_SHORT_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 /* Search in the string STRING (with length LENGTH) for the pattern
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 compiled into BUFFER. Start searching at position START, for RANGE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 characters. Return the starting position of the match, -1 for no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 match, or -2 for an internal error. Also return register
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 information in REGS (if REGS and BUFFER->no_sub are nonzero). */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
469 int re_search (struct re_pattern_buffer *buffer, const char *string,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 int length, int start, int range,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
471 struct re_registers *regs RE_LISP_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 /* Like `re_search', but search in the concatenation of STRING1 and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 STRING2. Also, stop searching at index START + STOP. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
476 int re_search_2 (struct re_pattern_buffer *buffer, const char *string1,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
477 int length1, const char *string2, int length2, int start,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
478 int range, struct re_registers *regs, int stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
479 RE_LISP_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
481 #ifndef emacs /* never used by XEmacs */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 /* Like `re_search', but return how many characters in STRING the regexp
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 in BUFFER matched, starting at position START. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
485 int re_match (struct re_pattern_buffer *buffer, const char *string,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
486 int length, int start, struct re_registers *regs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
487 RE_LISP_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
489 #endif /* not emacs */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 /* Relates to `re_match' as `re_search_2' relates to `re_search'. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
492 int re_match_2 (struct re_pattern_buffer *buffer, const char *string1,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
493 int length1, const char *string2, int length2,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
494 int start, struct re_registers *regs, int stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
495 RE_LISP_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 /* Set REGS to hold NUM_REGS registers, storing them in STARTS and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 ENDS. Subsequent matches using BUFFER and REGS will use this memory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 for recording register information. STARTS and ENDS must be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 allocated with malloc, and must each be at least `NUM_REGS * sizeof
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 (regoff_t)' bytes long.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 If NUM_REGS == 0, then subsequent matches should allocate their own
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 register data.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 Unless this function is called, the first search or match using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 PATTERN_BUFFER will allocate its own register data, without
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 freeing the old data. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 void re_set_registers (struct re_pattern_buffer *buffer,
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
510 struct re_registers *regs, int num_regs,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 regoff_t *starts, regoff_t *ends);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 #ifdef _REGEX_RE_COMP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 /* 4.2 bsd compatibility. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
515 char *re_comp (const char *);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
516 int re_exec (const char *);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 /* POSIX compatibility. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
520 int regcomp (regex_t *preg, const char *pattern, int cflags);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
521 int regexec (const regex_t *preg, const char *string, size_t nmatch,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 regmatch_t pmatch[], int eflags);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
523 size_t regerror (int errcode, const regex_t *preg, char *errbuf,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 size_t errbuf_size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 void regfree (regex_t *preg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
527 #endif /* INCLUDED_regex_h_ */