blob: 07aeb840d9aea9b2a9b0f6fb285719c5adb40df7 [file] [log] [blame]
Guido van Rossum51b3aa31997-10-06 14:43:11 +00001/*************************************************
2* Perl-Compatible Regular Expressions *
3*************************************************/
4
5
Guido van Rossum042ff9e1998-04-03 21:13:31 +00006#define PCRE_VERSION "1.07 16-Feb-1998"
Guido van Rossum51b3aa31997-10-06 14:43:11 +00007
8
9/* This is a library of functions to support regular expressions whose syntax
10and semantics are as close as possible to those of the Perl 5 language. See
11the file Tech.Notes for some information on the internals.
12
13Written by: Philip Hazel <ph10@cam.ac.uk>
14
Guido van Rossum042ff9e1998-04-03 21:13:31 +000015 Copyright (c) 1998 University of Cambridge
Guido van Rossum51b3aa31997-10-06 14:43:11 +000016
17-----------------------------------------------------------------------------
18Permission is granted to anyone to use this software for any purpose on any
19computer system, and to redistribute it freely, subject to the following
20restrictions:
21
221. This software is distributed in the hope that it will be useful,
23 but WITHOUT ANY WARRANTY; without even the implied warranty of
24 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
25
262. The origin of this software must not be misrepresented, either by
27 explicit claim or by omission.
28
293. Altered versions must be plainly marked as such, and must not be
30 misrepresented as being the original software.
31-----------------------------------------------------------------------------
32*/
33
34/* This header contains definitions that are shared between the different
35modules, but which are not relevant to the outside. */
36
Guido van Rossum50700601997-12-08 17:15:20 +000037
38/* To cope with SunOS4 and other systems that lack memmove() but have bcopy(),
39define a macro for memmove() if USE_BCOPY is defined. */
40
41#ifdef USE_BCOPY
Guido van Rossum557dea11997-12-22 22:46:52 +000042#undef memmove /* some systems may have a macro */
Guido van Rossum50700601997-12-08 17:15:20 +000043#define memmove(a, b, c) bcopy(b, a, c)
44#endif
45
Guido van Rossum51b3aa31997-10-06 14:43:11 +000046/* Standard C headers plus the external interface definition */
47
48#include <ctype.h>
49#include <limits.h>
Guido van Rossum50700601997-12-08 17:15:20 +000050#include <setjmp.h>
51#include <stddef.h>
Guido van Rossum51b3aa31997-10-06 14:43:11 +000052#include <stdio.h>
53#include <stdlib.h>
54#include <string.h>
55#include "pcre.h"
56
Guido van Rossum557dea11997-12-22 22:46:52 +000057/* In case there is no definition of offsetof() provided - though any proper
58Standard C system should have one. */
59
60#ifndef offsetof
61#define offsetof(p_type,field) ((size_t)&(((p_type *)0)->field))
62#endif
63
Guido van Rossum50700601997-12-08 17:15:20 +000064/* Private options flags start at the most significant end of the two bytes.
65The public options defined in pcre.h start at the least significant end. Make
66sure they don't overlap! */
Guido van Rossum51b3aa31997-10-06 14:43:11 +000067
Guido van Rossum50700601997-12-08 17:15:20 +000068#define PCRE_FIRSTSET 0x8000 /* first_char is set */
69#define PCRE_STARTLINE 0x4000 /* start after \n for multiline */
70#define PCRE_COMPILED_CASELESS 0x2000 /* like it says */
Guido van Rossum51b3aa31997-10-06 14:43:11 +000071
72/* Options for the "extra" block produced by pcre_study(). */
73
74#define PCRE_STUDY_CASELESS 0x01 /* study was caseless */
Guido van Rossum50700601997-12-08 17:15:20 +000075#define PCRE_STUDY_MAPPED 0x02 /* a map of starting chars exists */
Guido van Rossum51b3aa31997-10-06 14:43:11 +000076
77/* Masks for identifying the public options: all permitted at compile time,
78only some permitted at run or study time. */
79
80#ifdef FOR_PYTHON
81#define PUBLIC_OPTIONS \
Guido van Rossum50700601997-12-08 17:15:20 +000082 (PCRE_CASELESS|PCRE_EXTENDED|PCRE_ANCHORED|PCRE_MULTILINE| \
83 PCRE_DOTALL|PCRE_DOLLAR_ENDONLY|PCRE_EXTRA|PCRE_LOCALE)
Guido van Rossum51b3aa31997-10-06 14:43:11 +000084#else
85#define PUBLIC_OPTIONS \
Guido van Rossum50700601997-12-08 17:15:20 +000086 (PCRE_CASELESS|PCRE_EXTENDED|PCRE_ANCHORED|PCRE_MULTILINE| \
87 PCRE_DOTALL|PCRE_DOLLAR_ENDONLY|PCRE_EXTRA)
Guido van Rossum51b3aa31997-10-06 14:43:11 +000088#endif
Guido van Rossum50700601997-12-08 17:15:20 +000089#define PUBLIC_EXEC_OPTIONS \
90 (PCRE_CASELESS|PCRE_ANCHORED|PCRE_MULTILINE|PCRE_NOTBOL|PCRE_NOTEOL| \
91 PCRE_DOTALL|PCRE_DOLLAR_ENDONLY)
92
Guido van Rossum51b3aa31997-10-06 14:43:11 +000093#define PUBLIC_STUDY_OPTIONS (PCRE_CASELESS)
94
95/* Magic number to provide a small check against being handed junk. */
96
97#define MAGIC_NUMBER 0x50435245 /* 'PCRE' */
98
99/* Miscellaneous definitions */
100
101typedef int BOOL;
102
103#define FALSE 0
104#define TRUE 1
105
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000106/* These are escaped items that aren't just an encoding of a particular data
107value such as \n. They must have non-zero values, as check_escape() returns
108their negation. Also, they must appear in the same order as in the opcode
109definitions below, up to ESC_Z. The final one must be ESC_REF as subsequent
110values are used for \1, \2, \3, etc. There is a test in the code for an escape
Guido van Rossum50700601997-12-08 17:15:20 +0000111greater than ESC_b and less than ESC_X to detect the types that may be
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000112repeated. If any new escapes are put in-between that don't consume a character,
113that code will have to change. */
114
115enum { ESC_A = 1, ESC_B, ESC_b, ESC_D, ESC_d, ESC_S, ESC_s, ESC_W, ESC_w,
Guido van Rossum50700601997-12-08 17:15:20 +0000116
117 /* These are not Perl escapes, so can't appear in the */
118 ESC_X, /* simple table-lookup because they must be conditional */
119 /* on PCRE_EXTRA. */
120 ESC_Z,
121 ESC_REF };
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000122
123/* Opcode table: OP_BRA must be last, as all values >= it are used for brackets
124that extract substrings. Starting from 1 (i.e. after OP_END), the values up to
Guido van Rossum58132c61997-12-17 00:24:13 +0000125OP_EOD must correspond in order to the list of escapes immediately above. */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000126
127enum {
128 OP_END, /* End of pattern */
129
130 /* Values corresponding to backslashed metacharacters */
131
132 OP_SOD, /* Start of data: \A */
Guido van Rossum50700601997-12-08 17:15:20 +0000133 OP_NOT_WORD_BOUNDARY, /* \B */
134 OP_WORD_BOUNDARY, /* \b */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000135 OP_NOT_DIGIT, /* \D */
136 OP_DIGIT, /* \d */
137 OP_NOT_WHITESPACE, /* \S */
138 OP_WHITESPACE, /* \s */
139 OP_NOT_WORDCHAR, /* \W */
140 OP_WORDCHAR, /* \w */
Guido van Rossum50700601997-12-08 17:15:20 +0000141 OP_CUT, /* The analogue of Prolog's "cut" operation (extension) */
Guido van Rossum58132c61997-12-17 00:24:13 +0000142 OP_EOD, /* End of data: \Z. */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000143
Guido van Rossum50700601997-12-08 17:15:20 +0000144 OP_NOT_WORD_BOUNDARY_L, /* localized \B */
145 OP_WORD_BOUNDARY_L, /* localized \b */
146 OP_NOT_WORDCHAR_L, /* localized \W */
147 OP_WORDCHAR_L, /* localized \w */
148
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000149 OP_CIRC, /* Start of line - varies with multiline switch */
150 OP_DOLL, /* End of line - varies with multiline switch */
151 OP_ANY, /* Match any character */
152 OP_CHARS, /* Match string of characters */
Guido van Rossum50700601997-12-08 17:15:20 +0000153 OP_NOT, /* Match anything but the following char */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000154
155 OP_STAR, /* The maximizing and minimizing versions of */
156 OP_MINSTAR, /* all these opcodes must come in pairs, with */
157 OP_PLUS, /* the minimizing one second. */
158 OP_MINPLUS, /* This first set applies to single characters */
159 OP_QUERY,
160 OP_MINQUERY,
Guido van Rossum50700601997-12-08 17:15:20 +0000161 OP_UPTO, /* From 0 to n matches */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000162 OP_MINUPTO,
Guido van Rossum50700601997-12-08 17:15:20 +0000163 OP_EXACT, /* Exactly n matches */
164
165 OP_NOTSTAR, /* The maximizing and minimizing versions of */
166 OP_NOTMINSTAR, /* all these opcodes must come in pairs, with */
167 OP_NOTPLUS, /* the minimizing one second. */
168 OP_NOTMINPLUS, /* This first set applies to "not" single characters */
169 OP_NOTQUERY,
170 OP_NOTMINQUERY,
171 OP_NOTUPTO, /* From 0 to n matches */
172 OP_NOTMINUPTO,
173 OP_NOTEXACT, /* Exactly n matches */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000174
175 OP_TYPESTAR, /* The maximizing and minimizing versions of */
176 OP_TYPEMINSTAR, /* all these opcodes must come in pairs, with */
177 OP_TYPEPLUS, /* the minimizing one second. These codes must */
178 OP_TYPEMINPLUS, /* be in exactly the same order as those above. */
179 OP_TYPEQUERY, /* This set applies to character types such as \d */
180 OP_TYPEMINQUERY,
Guido van Rossum50700601997-12-08 17:15:20 +0000181 OP_TYPEUPTO, /* From 0 to n matches */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000182 OP_TYPEMINUPTO,
Guido van Rossum50700601997-12-08 17:15:20 +0000183 OP_TYPEEXACT, /* Exactly n matches */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000184
185 OP_CRSTAR, /* The maximizing and minimizing versions of */
186 OP_CRMINSTAR, /* all these opcodes must come in pairs, with */
187 OP_CRPLUS, /* the minimizing one second. These codes must */
188 OP_CRMINPLUS, /* be in exactly the same order as those above. */
189 OP_CRQUERY, /* These are for character classes and back refs */
190 OP_CRMINQUERY,
Guido van Rossum50700601997-12-08 17:15:20 +0000191 OP_CRRANGE, /* These are different to the three seta above. */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000192 OP_CRMINRANGE,
193
194 OP_CLASS, /* Match a character class */
Guido van Rossum042ff9e1998-04-03 21:13:31 +0000195 OP_NEGCLASS, /* Match a character class, specified negatively */
Guido van Rossum50700601997-12-08 17:15:20 +0000196 OP_CLASS_L, /* Match a character class */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000197 OP_REF, /* Match a back reference */
198
199 OP_ALT, /* Start of alternation */
200 OP_KET, /* End of group that doesn't have an unbounded repeat */
201 OP_KETRMAX, /* These two must remain together and in this */
202 OP_KETRMIN, /* order. They are for groups the repeat for ever. */
203
204 OP_ASSERT,
205 OP_ASSERT_NOT,
Guido van Rossum50700601997-12-08 17:15:20 +0000206 OP_ONCE, /* Once matched, don't back up into the subpattern */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000207
208 OP_BRAZERO, /* These two must remain together and in this */
209 OP_BRAMINZERO, /* order. */
210
211 OP_BRA /* This and greater values are used for brackets that
212 extract substrings. */
213};
214
215/* The highest extraction number. This is limited by the number of opcodes
216left after OP_BRA, i.e. 255 - OP_BRA. We actually set it somewhat lower. */
217
218#define EXTRACT_MAX 99
219
Guido van Rossum50700601997-12-08 17:15:20 +0000220/* The texts of compile-time error messages are defined as macros here so that
221they can be accessed by the POSIX wrapper and converted into error codes. Yes,
222I could have used error codes in the first place, but didn't feel like changing
223just to accommodate the POSIX wrapper. */
224
225#define ERR1 "\\ at end of pattern"
226#define ERR2 "\\c at end of pattern"
227#define ERR3 "unrecognized character follows \\"
228#define ERR4 "numbers out of order in {} quantifier"
229#define ERR5 "number too big in {} quantifier"
230#define ERR6 "missing terminating ] for character class"
231#define ERR7 "invalid escape sequence in character class"
232#define ERR8 "range out of order in character class"
233#define ERR9 "nothing to repeat"
234#define ERR10 "operand of unlimited repeat could match the empty string"
235#define ERR11 "internal error: unexpected repeat"
236#define ERR12 "unrecognized character after (?"
237#define ERR13 "too many capturing parenthesized sub-patterns"
238#define ERR14 "missing )"
239#define ERR15 "back reference to non-existent subpattern"
240#define ERR16 "erroffset passed as NULL"
241#define ERR17 "unknown option bit(s) set"
242#define ERR18 "missing ) after comment"
243#define ERR19 "too many sets of parentheses"
244#define ERR20 "regular expression too large"
245#define ERR21 "failed to get memory"
246#define ERR22 "unmatched brackets"
247#define ERR23 "internal error: code overflow"
248
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000249/* All character handling must be done as unsigned characters. Otherwise there
250are problems with top-bit-set characters and functions such as isspace().
251However, we leave the interface to the outside world as char *, because that
252should make things easier for callers. We define a short type for unsigned char
253to save lots of typing. I tried "uchar", but it causes problems on Digital
254Unix, where it is defined in sys/types, so use "uschar" instead. */
255
256typedef unsigned char uschar;
257
258/* The real format of the start of the pcre block; the actual code vector
259runs on as long as necessary after the end. */
260
261typedef struct real_pcre {
262 unsigned int magic_number;
Guido van Rossum50700601997-12-08 17:15:20 +0000263 unsigned short int options;
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000264 unsigned char top_bracket;
Guido van Rossum50700601997-12-08 17:15:20 +0000265 unsigned char top_backref;
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000266 unsigned char first_char;
267 unsigned char code[1];
268} real_pcre;
269
270/* The real format of the extra block returned by pcre_study(). */
271
272typedef struct real_pcre_extra {
273 unsigned char options;
274 unsigned char start_bits[32];
275} real_pcre_extra;
276
Guido van Rossum50700601997-12-08 17:15:20 +0000277/* Global tables from chartables.c */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000278
279extern uschar pcre_lcc[];
Guido van Rossum50700601997-12-08 17:15:20 +0000280extern uschar pcre_fcc[];
281extern uschar pcre_cbits[];
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000282extern uschar pcre_ctypes[];
283
284/* Bit definitions for entries in pcre_ctypes[]. */
285
286#define ctype_space 0x01
Guido van Rossum50700601997-12-08 17:15:20 +0000287#define ctype_letter 0x02
288#define ctype_digit 0x04
289#define ctype_xdigit 0x08
290#define ctype_word 0x10 /* alphameric or '_' */
291#define ctype_odigit 0x20 /* octal digit */
Guido van Rossum51b3aa31997-10-06 14:43:11 +0000292#define ctype_meta 0x80 /* regexp meta char or zero (end pattern) */
293
Guido van Rossum50700601997-12-08 17:15:20 +0000294/* Offsets for the bitmap tables */
295
296#define cbit_digit 0
297#define cbit_letter 32
298#define cbit_word 64
299#define cbit_space 96
300#define cbit_length 128 /* Length of the cbits table */
301
302/* End of internal.h */