/src/php-src/ext/pcre/pcre2lib/pcre2_maketables.c
Line | Count | Source (jump to first uncovered line) |
1 | | /************************************************* |
2 | | * Perl-Compatible Regular Expressions * |
3 | | *************************************************/ |
4 | | |
5 | | /* PCRE is a library of functions to support regular expressions whose syntax |
6 | | and semantics are as close as possible to those of the Perl 5 language. |
7 | | |
8 | | Written by Philip Hazel |
9 | | Original API code Copyright (c) 1997-2012 University of Cambridge |
10 | | New API code Copyright (c) 2016-2024 University of Cambridge |
11 | | |
12 | | ----------------------------------------------------------------------------- |
13 | | Redistribution and use in source and binary forms, with or without |
14 | | modification, are permitted provided that the following conditions are met: |
15 | | |
16 | | * Redistributions of source code must retain the above copyright notice, |
17 | | this list of conditions and the following disclaimer. |
18 | | |
19 | | * Redistributions in binary form must reproduce the above copyright |
20 | | notice, this list of conditions and the following disclaimer in the |
21 | | documentation and/or other materials provided with the distribution. |
22 | | |
23 | | * Neither the name of the University of Cambridge nor the names of its |
24 | | contributors may be used to endorse or promote products derived from |
25 | | this software without specific prior written permission. |
26 | | |
27 | | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" |
28 | | AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
29 | | IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
30 | | ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE |
31 | | LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR |
32 | | CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |
33 | | SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS |
34 | | INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN |
35 | | CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) |
36 | | ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
37 | | POSSIBILITY OF SUCH DAMAGE. |
38 | | ----------------------------------------------------------------------------- |
39 | | */ |
40 | | |
41 | | |
42 | | /* This module contains the external function pcre2_maketables(), which builds |
43 | | character tables for PCRE2 in the current locale. The file is compiled on its |
44 | | own as part of the PCRE2 library. It is also included in the compilation of |
45 | | pcre2_dftables.c as a freestanding program, in which case the macro |
46 | | PCRE2_DFTABLES is defined. */ |
47 | | |
48 | | #ifndef PCRE2_DFTABLES /* Compiling the library */ |
49 | | # ifdef HAVE_CONFIG_H |
50 | | # include "config.h" |
51 | | # endif |
52 | | # include "pcre2_internal.h" |
53 | | #endif |
54 | | |
55 | | /************************************************* |
56 | | * Create PCRE2 character tables * |
57 | | *************************************************/ |
58 | | |
59 | | /* This function builds a set of character tables for use by PCRE2 and returns |
60 | | a pointer to them. They are build using the ctype functions, and consequently |
61 | | their contents will depend upon the current locale setting. When compiled as |
62 | | part of the library, the store is obtained via a general context malloc, if |
63 | | supplied, but when PCRE2_DFTABLES is defined (when compiling the pcre2_dftables |
64 | | freestanding auxiliary program) malloc() is used, and the function has a |
65 | | different name so as not to clash with the prototype in pcre2.h. |
66 | | |
67 | | Arguments: none when PCRE2_DFTABLES is defined |
68 | | else a PCRE2 general context or NULL |
69 | | Returns: pointer to the contiguous block of data |
70 | | else NULL if memory allocation failed |
71 | | */ |
72 | | |
73 | | #ifdef PCRE2_DFTABLES /* Included in freestanding pcre2_dftables program */ |
74 | | static const uint8_t *maketables(void) |
75 | | { |
76 | | uint8_t *yield = (uint8_t *)malloc(TABLES_LENGTH); |
77 | | |
78 | | #else /* Not PCRE2_DFTABLES, that is, compiling the library */ |
79 | | PCRE2_EXP_DEFN const uint8_t * PCRE2_CALL_CONVENTION |
80 | | pcre2_maketables(pcre2_general_context *gcontext) |
81 | 0 | { |
82 | 0 | uint8_t *yield = (uint8_t *)((gcontext != NULL)? |
83 | 0 | gcontext->memctl.malloc(TABLES_LENGTH, gcontext->memctl.memory_data) : |
84 | 0 | malloc(TABLES_LENGTH)); |
85 | 0 | #endif /* PCRE2_DFTABLES */ |
86 | |
|
87 | 0 | int i; |
88 | 0 | uint8_t *p; |
89 | |
|
90 | 0 | if (yield == NULL) return NULL; |
91 | 0 | p = yield; |
92 | | |
93 | | /* First comes the lower casing table */ |
94 | |
|
95 | 0 | for (i = 0; i < 256; i++) *p++ = tolower(i); |
96 | | |
97 | | /* Next the case-flipping table */ |
98 | |
|
99 | 0 | for (i = 0; i < 256; i++) |
100 | 0 | { |
101 | 0 | int c = islower(i)? toupper(i) : tolower(i); |
102 | 0 | *p++ = (c < 256)? c : i; |
103 | 0 | } |
104 | | |
105 | | /* Then the character class tables. Don't try to be clever and save effort on |
106 | | exclusive ones - in some locales things may be different. |
107 | | |
108 | | Note that the table for "space" includes everything "isspace" gives, including |
109 | | VT in the default locale. This makes it work for the POSIX class [:space:]. |
110 | | From PCRE1 release 8.34 and for all PCRE2 releases it is also correct for Perl |
111 | | space, because Perl added VT at release 5.18. |
112 | | |
113 | | Note also that it is possible for a character to be alnum or alpha without |
114 | | being lower or upper, such as "male and female ordinals" (\xAA and \xBA) in the |
115 | | fr_FR locale (at least under Debian Linux's locales as of 12/2005). So we must |
116 | | test for alnum specially. */ |
117 | |
|
118 | 0 | memset(p, 0, cbit_length); |
119 | 0 | for (i = 0; i < 256; i++) |
120 | 0 | { |
121 | 0 | if (isdigit(i)) p[cbit_digit + i/8] |= 1u << (i&7); |
122 | 0 | if (isupper(i)) p[cbit_upper + i/8] |= 1u << (i&7); |
123 | 0 | if (islower(i)) p[cbit_lower + i/8] |= 1u << (i&7); |
124 | 0 | if (isalnum(i)) p[cbit_word + i/8] |= 1u << (i&7); |
125 | 0 | if (i == '_') p[cbit_word + i/8] |= 1u << (i&7); |
126 | 0 | if (isspace(i)) p[cbit_space + i/8] |= 1u << (i&7); |
127 | 0 | if (isxdigit(i)) p[cbit_xdigit + i/8] |= 1u << (i&7); |
128 | 0 | if (isgraph(i)) p[cbit_graph + i/8] |= 1u << (i&7); |
129 | 0 | if (isprint(i)) p[cbit_print + i/8] |= 1u << (i&7); |
130 | 0 | if (ispunct(i)) p[cbit_punct + i/8] |= 1u << (i&7); |
131 | 0 | if (iscntrl(i)) p[cbit_cntrl + i/8] |= 1u << (i&7); |
132 | 0 | } |
133 | 0 | p += cbit_length; |
134 | | |
135 | | /* Finally, the character type table. In this, we used to exclude VT from the |
136 | | white space chars, because Perl didn't recognize it as such for \s and for |
137 | | comments within regexes. However, Perl changed at release 5.18, so PCRE1 |
138 | | changed at release 8.34 and it's always been this way for PCRE2. */ |
139 | |
|
140 | 0 | for (i = 0; i < 256; i++) |
141 | 0 | { |
142 | 0 | int x = 0; |
143 | 0 | if (isspace(i)) x += ctype_space; |
144 | 0 | if (isalpha(i)) x += ctype_letter; |
145 | 0 | if (islower(i)) x += ctype_lcletter; |
146 | 0 | if (isdigit(i)) x += ctype_digit; |
147 | 0 | if (isalnum(i) || i == '_') x += ctype_word; |
148 | 0 | *p++ = x; |
149 | 0 | } |
150 | |
|
151 | 0 | return yield; |
152 | 0 | } |
153 | | |
154 | | #ifndef PCRE2_DFTABLES /* Compiling the library */ |
155 | | PCRE2_EXP_DEFN void PCRE2_CALL_CONVENTION |
156 | | pcre2_maketables_free(pcre2_general_context *gcontext, const uint8_t *tables) |
157 | 0 | { |
158 | 0 | if (gcontext != NULL) |
159 | 0 | gcontext->memctl.free((void *)tables, gcontext->memctl.memory_data); |
160 | 0 | else |
161 | 0 | free((void *)tables); |
162 | 0 | } |
163 | | #endif |
164 | | |
165 | | /* End of pcre2_maketables.c */ |