annotate src/regex.h @ 3767:6b2ef948e140

[xemacs-hg @ 2006-12-29 18:09:38 by aidan] etc/ChangeLog addition: 2006-12-21 Aidan Kehoe <kehoea@parhasard.net> * unicode/unicode-consortium/8859-7.TXT: Update the mapping to the 2003 version of ISO 8859-7. lisp/ChangeLog addition: 2006-12-21 Aidan Kehoe <kehoea@parhasard.net> * mule/cyrillic.el: * mule/cyrillic.el (iso-8859-5): * mule/cyrillic.el (cyrillic-koi8-r-encode-table): Add syntax, case support for Cyrillic; make some parentheses more Lispy. * mule/european.el: Content moved to latin.el, file deleted. * mule/general-late.el: If Unicode tables are to be loaded at dump time, do it here, not in loadup.el. * mule/greek.el: Add syntax, case support for Greek. * mule/latin.el: Move the content of european.el here. Change the case table mappings to use hexadecimal codes, to make cross reference to the standards easier. In all cases, take character syntax from similar characters in Latin-1 , rather than deciding separately what syntax they should take. Add (incomplete) support for case with Turkish. Remove description of the character sets used from the language environments' doc strings, since now that we create variant language environments on the fly, such descriptions will often be inaccurate. Set the native-coding-system language info property while setting the other coding-system properties of the language. * mule/misc-lang.el (ipa): Remove the language environment. The International Phonetic _Alphabet_ is not a language, it's inane to have a corresponding language environment in XEmacs. * mule/mule-cmds.el (create-variant-language-environment): Also modify the coding-priority when creating a new language environment; document that. * mule/mule-cmds.el (get-language-environment-from-locale): Recognise that the 'native-coding-system language-info property can be a list, interpret it correctly when it is one. 2006-12-21 Aidan Kehoe <kehoea@parhasard.net> * coding.el (coding-system-category): Use the new 'unicode-type property for finding what sort of Unicode coding system subtype a coding system is, instead of the overshadowed 'type property. * dumped-lisp.el (preloaded-file-list): mule/european.el has been removed. * loadup.el (really-early-error-handler): Unicode tables loaded at dump time are now in mule/general-late.el. * simple.el (count-lines): Add some backslashes to to parentheses in docstrings to help fontification along. * simple.el (what-cursor-position): Wrap a line to fit in 80 characters. * unicode.el: Use the 'unicode-type property, not 'type, for setting the Unicode coding-system subtype. src/ChangeLog addition: 2006-12-21 Aidan Kehoe <kehoea@parhasard.net> * file-coding.c: Update the make-coding-system docstring to reflect unicode-type * general-slots.h: New symbol, unicode-type, since 'type was being overridden when accessing a coding system's Unicode subtype. * intl-win32.c: Backslash a few parentheses, to help fontification along. * intl-win32.c (complex_vars_of_intl_win32): Use the 'unicode-type symbol, not 'type, when creating the Microsoft Unicode coding system. * unicode.c (unicode_putprop): * unicode.c (unicode_getprop): * unicode.c (unicode_print): Using 'type as the property name when working out what Unicode subtype a given coding system is was broken, since there's a general coding system property called 'type. Change the former to use 'unicode-type instead.
author aidan
date Fri, 29 Dec 2006 18:09:51 +0000
parents cd00e5eeb22a
children efaa6cd845e5
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
2333
ba4677f54a05 [xemacs-hg @ 2004-10-14 17:26:18 by james]
james
parents: 1468
diff changeset
29 #define RE_LISP_SHORT_CONTEXT_ARGS_DECL , Lisp_Object UNUSED (lispobj), struct buffer *UNUSED (lispbuf)
826
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
2333
ba4677f54a05 [xemacs-hg @ 2004-10-14 17:26:18 by james]
james
parents: 1468
diff changeset
32 #define RE_LISP_CONTEXT_ARGS_MULE_DECL , Lisp_Object lispobj, struct buffer *USED_IF_MULE (lispbuf), struct syntax_cache *scache
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
33 #define RE_LISP_CONTEXT_ARGS , lispobj, lispbuf, scache
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
34 #else
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
35 #define RE_TRANSLATE_TYPE char *
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
36 #define RE_LISP_SHORT_CONTEXT_ARGS_DECL
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
37 #define RE_LISP_SHORT_CONTEXT_ARGS
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
38 #define RE_LISP_CONTEXT_ARGS_DECL
2333
ba4677f54a05 [xemacs-hg @ 2004-10-14 17:26:18 by james]
james
parents: 1468
diff changeset
39 #define RE_LISP_CONTEXT_ARGS_MULE_DECL
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
40 #define RE_LISP_CONTEXT_ARGS
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
41 #define Elemcount ssize_t
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
42 #define Bytecount ssize_t
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
43 #endif /* emacs */
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
44
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 /* 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
46 <regex.h>. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 /* The following bits are used to determine the regexp syntax we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 recognize. The not-set meaning typically corresponds to the syntax
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 used by Emacs (the exception is RE_INTERVAL, made for historical
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 reasons). The bits are given in alphabetical order, and the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 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
54 remove a bit, only one other definition need change. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 typedef unsigned reg_syntax_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 /* 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
58 If set, then such a \ quotes the following character. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 #define RE_BACKSLASH_ESCAPE_IN_LISTS (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 /* 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
62 literals.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 If set, then \+ and \? are operators and + and ? are literals. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 #define RE_BK_PLUS_QM (RE_BACKSLASH_ESCAPE_IN_LISTS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 /* If this bit is set, then character classes are supported. They are:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 [:alpha:], [:upper:], [:lower:], [:digit:], [:alnum:], [:xdigit:],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 [:space:], [:print:], [:punct:], [:graph:], and [:cntrl:].
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 If not set, then character classes are not supported. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 #define RE_CHAR_CLASSES (RE_BK_PLUS_QM << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 /* If this bit is set, then ^ and $ are always anchors (outside bracket
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 expressions, of course).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 If this bit is not set, then it depends:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 ^ is an anchor if it is at the beginning of a regular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 expression or after an open-group or an alternation operator;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 $ 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
78 before a close-group or an alternation operator.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 This bit could be (re)combined with RE_CONTEXT_INDEP_OPS, because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 POSIX draft 11.2 says that * etc. in leading positions is undefined.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 We already implemented a previous draft which made those constructs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 invalid, though, so we haven't changed the code back. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 #define RE_CONTEXT_INDEP_ANCHORS (RE_CHAR_CLASSES << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 /* If this bit is set, then special characters are always special
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 regardless of where they are in the pattern.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 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
89 some contexts; otherwise they are ordinary. Specifically,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 * + ? and intervals are only special when not after the beginning,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 open-group, or alternation operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 #define RE_CONTEXT_INDEP_OPS (RE_CONTEXT_INDEP_ANCHORS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 /* 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
95 immediately after an alternation or begin-group operator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 #define RE_CONTEXT_INVALID_OPS (RE_CONTEXT_INDEP_OPS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 /* If this bit is set, then . matches newline.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 If not set, then it doesn't. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 #define RE_DOT_NEWLINE (RE_CONTEXT_INVALID_OPS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 /* If this bit is set, then . doesn't match NUL.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 If not set, then it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 #define RE_DOT_NOT_NULL (RE_DOT_NEWLINE << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 /* If this bit is set, nonmatching lists [^...] do not match newline.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 If not set, they do. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 #define RE_HAT_LISTS_NOT_NEWLINE (RE_DOT_NOT_NULL << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 /* If this bit is set, either \{...\} or {...} defines an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 interval, depending on RE_NO_BK_BRACES.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 If not set, \{, \}, {, and } are literals. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 #define RE_INTERVALS (RE_HAT_LISTS_NOT_NEWLINE << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 /* If this bit is set, +, ? and | aren't recognized as operators.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 If not set, they are. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 #define RE_LIMITED_OPS (RE_INTERVALS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 /* If this bit is set, newline is an alternation operator.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 If not set, newline is literal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 #define RE_NEWLINE_ALT (RE_LIMITED_OPS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 /* If this bit is set, then `{...}' defines an interval, and \{ and \}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 are literals.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 If not set, then `\{...\}' defines an interval. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 #define RE_NO_BK_BRACES (RE_NEWLINE_ALT << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 /* If this bit is set, (...) defines a group, and \( and \) are literals.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 If not set, \(...\) defines a group, and ( and ) are literals. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 #define RE_NO_BK_PARENS (RE_NO_BK_BRACES << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 /* If this bit is set, then \<digit> matches <digit>.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 If not set, then \<digit> is a back-reference. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 #define RE_NO_BK_REFS (RE_NO_BK_PARENS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 /* 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
137 If not set, then \| is an alternation operator, and | is literal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 #define RE_NO_BK_VBAR (RE_NO_BK_REFS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 /* If this bit is set, then an ending range point collating higher
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 than the starting range point, as in [z-a], is invalid.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 If not set, then when ending range point collates higher than the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 starting range point, the range is ignored. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 #define RE_NO_EMPTY_RANGES (RE_NO_BK_VBAR << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 /* If this bit is not set, allow minimal matching:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 - a*? and a+? and a?? perform shortest-possible matching (compare with a*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 and a+ and a?, respectively, which perform longest-possible matching)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 - other juxtaposing of * + and ? is rejected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 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
151 manner:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 - a*? and a+? are the same as a*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 - a?? is the same as a?
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 #define RE_NO_MINIMAL_MATCHING (RE_NO_EMPTY_RANGES << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 /* 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
158 without further backtracking. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 #define RE_NO_POSIX_BACKTRACKING (RE_NO_MINIMAL_MATCHING << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 /* 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
162 \(re\)) except that the matched string is not registered. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 #define RE_NO_SHY_GROUPS (RE_NO_POSIX_BACKTRACKING << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 /* If this bit is set, then an unmatched ) is ordinary.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 If not set, then an unmatched ) is invalid. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 #define RE_UNMATCHED_RIGHT_PAREN_ORD (RE_NO_SHY_GROUPS << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
169 /* 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
170 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
171 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
172 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
173 #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
174
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 /* This global variable defines the particular regexp syntax to use (for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 some interfaces). When a regexp is compiled, the syntax used is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 stored in the pattern buffer, so changing this does not affect
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 already-compiled regexps. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 extern reg_syntax_t re_syntax_options;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 /* Define combinations of the above bits for the standard possibilities.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 (The [[[ comments delimit what gets put into the Texinfo file, so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 don't delete them!) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 /* [[[begin syntaxes]]] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 #define RE_SYNTAX_EMACS RE_INTERVALS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 #define RE_SYNTAX_AWK \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 (RE_BACKSLASH_ESCAPE_IN_LISTS | RE_DOT_NOT_NULL \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 | RE_NO_BK_PARENS | RE_NO_BK_REFS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 | RE_NO_BK_VBAR | RE_NO_EMPTY_RANGES \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 | 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
192 | RE_NO_MINIMAL_MATCHING | RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 #define RE_SYNTAX_POSIX_AWK \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 (RE_SYNTAX_POSIX_EXTENDED | RE_BACKSLASH_ESCAPE_IN_LISTS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 #define RE_SYNTAX_GREP \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 (RE_BK_PLUS_QM | RE_CHAR_CLASSES \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 | RE_HAT_LISTS_NOT_NEWLINE | RE_INTERVALS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 | RE_NEWLINE_ALT | RE_NO_SHY_GROUPS \
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
201 | RE_NO_MINIMAL_MATCHING | RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 #define RE_SYNTAX_EGREP \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 (RE_CHAR_CLASSES | RE_CONTEXT_INDEP_ANCHORS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 | RE_CONTEXT_INDEP_OPS | RE_HAT_LISTS_NOT_NEWLINE \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 | RE_NEWLINE_ALT | RE_NO_BK_PARENS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 | 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
208 | RE_NO_MINIMAL_MATCHING | RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 #define RE_SYNTAX_POSIX_EGREP \
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
211 (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
212 RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 /* P1003.2/D11.2, section 4.20.7.1, lines 5078ff. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 #define RE_SYNTAX_ED 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 #define RE_SYNTAX_SED RE_SYNTAX_POSIX_BASIC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 /* Syntax bits common to both basic and extended POSIX regex syntax. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 #define _RE_SYNTAX_POSIX_COMMON \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 (RE_CHAR_CLASSES | RE_DOT_NEWLINE | RE_DOT_NOT_NULL \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 | 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
223 | RE_NO_MINIMAL_MATCHING | RE_NO_MULTI_DIGIT_BK_REFS)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 #define RE_SYNTAX_POSIX_BASIC \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 (_RE_SYNTAX_POSIX_COMMON | RE_BK_PLUS_QM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 /* Differs from ..._POSIX_BASIC only in that RE_BK_PLUS_QM becomes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 RE_LIMITED_OPS, i.e., \? \+ \| are not recognized. Actually, this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 isn't minimal, since other operators, such as \`, aren't disabled. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 #define RE_SYNTAX_POSIX_MINIMAL_BASIC \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 (_RE_SYNTAX_POSIX_COMMON | RE_LIMITED_OPS)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 #define RE_SYNTAX_POSIX_EXTENDED \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 (_RE_SYNTAX_POSIX_COMMON | RE_CONTEXT_INDEP_ANCHORS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 | RE_CONTEXT_INDEP_OPS | RE_NO_BK_BRACES \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 | RE_NO_BK_PARENS | RE_NO_BK_VBAR \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 | RE_UNMATCHED_RIGHT_PAREN_ORD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 /* Differs from ..._POSIX_EXTENDED in that RE_CONTEXT_INVALID_OPS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 replaces RE_CONTEXT_INDEP_OPS and RE_NO_BK_REFS is added. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 #define RE_SYNTAX_POSIX_MINIMAL_EXTENDED \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 (_RE_SYNTAX_POSIX_COMMON | RE_CONTEXT_INDEP_ANCHORS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 | RE_CONTEXT_INVALID_OPS | RE_NO_BK_BRACES \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 | RE_NO_BK_PARENS | RE_NO_BK_REFS \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 | RE_NO_BK_VBAR | RE_UNMATCHED_RIGHT_PAREN_ORD)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 /* [[[end syntaxes]]] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 /* Maximum number of duplicates an interval can allow. Some systems
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 (erroneously) define this in other header files, but we want our
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 value, so remove any previous define. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 #ifdef RE_DUP_MAX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 #undef RE_DUP_MAX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 #define RE_DUP_MAX ((1 << 15) - 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256
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 /* POSIX `cflags' bits (i.e., information for `regcomp'). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 /* If this bit is set, then use extended regular expression syntax.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 If not set, then use basic regular expression syntax. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 #define REG_EXTENDED 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 /* If this bit is set, then ignore case when matching.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 If not set, then case is significant. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 #define REG_ICASE (REG_EXTENDED << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 /* If this bit is set, then anchors do not match at newline
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 characters in the string.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 If not set, then anchors do match at newlines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 #define REG_NEWLINE (REG_ICASE << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 /* 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
274 If not set, then returns differ between not matching and errors. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 #define REG_NOSUB (REG_NEWLINE << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276
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 /* POSIX `eflags' bits (i.e., information for regexec). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 /* 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
281 the beginning of the string (presumably because it's not the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 beginning of a line).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 If not set, then the beginning-of-line operator does match the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 beginning of the string. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 #define REG_NOTBOL 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 /* Like REG_NOTBOL, except for the end-of-line. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 #define REG_NOTEOL (1 << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 /* If any error codes are removed, changed, or added, update the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 `re_error_msg' table in regex.c. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 typedef enum
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 REG_NOERROR = 0, /* Success. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 REG_NOMATCH, /* Didn't find a match (for regexec). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 /* POSIX regcomp return error codes. (In the order listed in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 standard.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 REG_BADPAT, /* Invalid pattern. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 REG_ECOLLATE, /* Not implemented. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 REG_ECTYPE, /* Invalid character class name. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 REG_EESCAPE, /* Trailing backslash. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 REG_ESUBREG, /* Invalid back reference. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 REG_EBRACK, /* Unmatched left bracket. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 REG_EPAREN, /* Parenthesis imbalance. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 REG_EBRACE, /* Unmatched \{. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 REG_BADBR, /* Invalid contents of \{\}. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 REG_ERANGE, /* Invalid range end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 REG_ESPACE, /* Ran out of memory. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 REG_BADRPT, /* No preceding re for repetition op. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 /* Error codes we've added. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 REG_EEND, /* Premature end. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 REG_ESIZE, /* Compiled pattern bigger than 2^16 bytes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 REG_ERPAREN /* Unmatched ) or \); not returned from regcomp. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 #ifdef emacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 ,REG_ESYNTAX /* Invalid syntax designator. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 ,REG_ERANGESPAN /* Ranges may not span charsets. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 ,REG_ECATEGORY /* Invalid category designator */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 } reg_errcode_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 /* This data structure represents a compiled pattern. Before calling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 the pattern compiler, the fields `buffer', `allocated', `fastmap',
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 `translate', and `no_sub' can be set. After the pattern has been
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 compiled, the `re_nsub' field is available. All other fields are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 private to the regex routines. */
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 struct re_pattern_buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 /* [[[begin pattern_buffer]]] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 /* Space that holds the compiled pattern. It is declared as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 `unsigned char *' because its elements are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 sometimes used as array indexes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 unsigned char *buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 /* Number of bytes to which `buffer' points. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
341 long allocated;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 /* Number of bytes actually used in `buffer'. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
344 long used;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346 /* Syntax setting with which the pattern was compiled. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 reg_syntax_t syntax;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 /* Pointer to a fastmap, if any, otherwise zero. re_search uses
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 the fastmap, if there is one, to skip over impossible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 starting points for matches. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 char *fastmap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 /* Either a translate table to apply to all characters before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 comparing them, or zero for no translation. The translation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 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
357 when it is matched. */
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 442
diff changeset
358 RE_TRANSLATE_TYPE translate;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359
2639
cd00e5eeb22a [xemacs-hg @ 2005-03-09 04:59:25 by stephent]
stephent
parents: 2333
diff changeset
360 /* Number of subpatterns (returnable groups) found by the compiler.
cd00e5eeb22a [xemacs-hg @ 2005-03-09 04:59:25 by stephent]
stephent
parents: 2333
diff changeset
361 (This does not count shy groups.) */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
362 int re_nsub;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
364 /* 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
365 shy ones.) */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
366 int re_ngroups;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
367
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 /* Zero if this pattern cannot match the empty string, one else.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 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
370 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
371 this absolutely perfectly; see `re_compile_fastmap' (the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 `duplicate' case). */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
373 unsigned int can_be_null : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 /* If REGS_UNALLOCATED, allocate space in the `regs' structure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 for `max (RE_NREGS, re_nsub + 1)' groups.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 If REGS_REALLOCATE, reallocate space if necessary.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 If REGS_FIXED, use what's there. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 #define REGS_UNALLOCATED 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 #define REGS_REALLOCATE 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 #define REGS_FIXED 2
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
382 unsigned int regs_allocated : 2;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 /* Set to zero when `regex_compile' compiles a pattern; set to one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 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
386 unsigned int fastmap_accurate : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 /* If set, `re_match_2' does not return information about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 subexpressions. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
390 unsigned int no_sub : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 /* If set, a beginning-of-line anchor doesn't match at the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 beginning of the string. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
394 unsigned int not_bol : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 /* Similarly for an end-of-line anchor. */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
397 unsigned int not_eol : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 /* 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
400 unsigned int newline_anchor : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 502
diff changeset
402 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
403
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
404 /* 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
405 equivalent with shy groups). */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
406 int *external_to_internal_register;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
407
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
408 int external_to_internal_register_size;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 446
diff changeset
409
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 /* [[[end pattern_buffer]]] */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 };
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 typedef struct re_pattern_buffer regex_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 /* Type for byte offsets within the string. POSIX mandates this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 typedef int regoff_t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 /* This is the structure we store register match data in. See
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 regex.texinfo for a full description of what registers match. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 struct re_registers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 {
1468
0f42689481f0 [xemacs-hg @ 2003-05-09 14:52:37 by stephent]
stephent
parents: 826
diff changeset
423 int num_regs; /* number of registers allocated */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 regoff_t *start;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 regoff_t *end;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 /* If `regs_allocated' is REGS_UNALLOCATED in the pattern buffer,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 `re_match_2' returns information about at least this many registers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 the first time a `regs' structure is passed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 #ifndef RE_NREGS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 #define RE_NREGS 30
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 /* POSIX specification for registers. Aside from the different names than
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 `re_registers', POSIX uses an array of structures, instead of a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 structure of arrays. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 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
443 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
444 } regmatch_t;
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 /* Declarations for routines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 /* Sets the current default syntax to SYNTAX, and return the old syntax.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 You can also simply assign to the `re_syntax_options' variable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 reg_syntax_t re_set_syntax (reg_syntax_t syntax);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 /* Compile the regular expression PATTERN, with length LENGTH
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 and syntax given by the global `re_syntax_options', into the buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 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
455 const char *re_compile_pattern (const char *pattern, int length,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 struct re_pattern_buffer *buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 /* Compile a fastmap for the compiled pattern in BUFFER; used to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 accelerate searches. Return 0 if successful and -2 if was an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 internal error. */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
462 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
463 RE_LISP_SHORT_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 /* Search in the string STRING (with length LENGTH) for the pattern
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 compiled into BUFFER. Start searching at position START, for RANGE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 characters. Return the starting position of the match, -1 for no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 match, or -2 for an internal error. Also return register
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 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
471 int re_search (struct re_pattern_buffer *buffer, const char *string,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 int length, int start, int range,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
473 struct re_registers *regs RE_LISP_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 /* Like `re_search', but search in the concatenation of STRING1 and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 STRING2. Also, stop searching at index START + STOP. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
478 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
479 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
480 int range, struct re_registers *regs, int stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
481 RE_LISP_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
483 #ifndef emacs /* never used by XEmacs */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 /* Like `re_search', but return how many characters in STRING the regexp
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 in BUFFER matched, starting at position START. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
487 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
488 int length, int start, struct re_registers *regs
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
489 RE_LISP_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
491 #endif /* not emacs */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 /* 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
494 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
495 int length1, const char *string2, int length2,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
496 int start, struct re_registers *regs, int stop
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 665
diff changeset
497 RE_LISP_CONTEXT_ARGS_DECL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 /* Set REGS to hold NUM_REGS registers, storing them in STARTS and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 ENDS. Subsequent matches using BUFFER and REGS will use this memory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 for recording register information. STARTS and ENDS must be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 allocated with malloc, and must each be at least `NUM_REGS * sizeof
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 (regoff_t)' bytes long.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 If NUM_REGS == 0, then subsequent matches should allocate their own
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 register data.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 Unless this function is called, the first search or match using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 PATTERN_BUFFER will allocate its own register data, without
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 freeing the old data. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 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
512 struct re_registers *regs, int num_regs,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 regoff_t *starts, regoff_t *ends);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 #ifdef _REGEX_RE_COMP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 /* 4.2 bsd compatibility. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
517 char *re_comp (const char *);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
518 int re_exec (const char *);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 /* POSIX compatibility. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
522 int regcomp (regex_t *preg, const char *pattern, int cflags);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
523 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
524 regmatch_t pmatch[], int eflags);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
525 size_t regerror (int errcode, const regex_t *preg, char *errbuf,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 size_t errbuf_size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 void regfree (regex_t *preg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
529 #endif /* INCLUDED_regex_h_ */