1/* Regular expression tests.
2 Copyright (C) 2003-2024 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
18
19#include <sys/types.h>
20#include <mcheck.h>
21#include <regex.h>
22#include <stdio.h>
23#include <stdlib.h>
24#include <string.h>
25
26int
27main (int argc, char **argv)
28{
29 int ret = 0;
30 char *line = NULL;
31 size_t line_len = 0;
32 ssize_t len;
33 FILE *f;
34 char *pattern = NULL, *string = NULL;
35 regmatch_t rm[20];
36 size_t pattern_alloced = 0, string_alloced = 0;
37 int ignorecase = 0;
38 int pattern_valid = 0, rm_valid = 0;
39 size_t linenum;
40
41 mtrace ();
42
43 if (argc < 2)
44 {
45 fprintf (stderr, "Missing test filename\n");
46 return 1;
47 }
48
49 f = fopen (argv[1], "r");
50 if (f == NULL)
51 {
52 fprintf (stderr, "Couldn't open %s\n", argv[1]);
53 return 1;
54 }
55
56 if ((len = getline (lineptr: &line, n: &line_len, stream: f)) <= 0
57 || strncmp (line, "# PCRE", 6) != 0)
58 {
59 fprintf (stderr, "Not a PCRE test file\n");
60 fclose (f);
61 free (ptr: line);
62 return 1;
63 }
64
65 linenum = 1;
66
67 while ((len = getline (lineptr: &line, n: &line_len, stream: f)) > 0)
68 {
69 char *p;
70 unsigned long num;
71
72 ++linenum;
73
74 if (line[len - 1] == '\n')
75 line[--len] = '\0';
76
77 if (line[0] == '#')
78 continue;
79
80 if (line[0] == '\0')
81 {
82 /* End of test. */
83 ignorecase = 0;
84 pattern_valid = 0;
85 rm_valid = 0;
86 continue;
87 }
88
89 if (line[0] == '/')
90 {
91 /* Pattern. */
92 p = strrchr (line + 1, '/');
93
94 pattern_valid = 0;
95 rm_valid = 0;
96 if (p == NULL)
97 {
98 printf (format: "%zd: Invalid pattern line: %s\n", linenum, line);
99 ret = 1;
100 continue;
101 }
102
103 if (p[1] == 'i' && p[2] == '\0')
104 ignorecase = 1;
105 else if (p[1] != '\0')
106 {
107 printf (format: "%zd: Invalid pattern line: %s\n", linenum, line);
108 ret = 1;
109 continue;
110 }
111
112 if (pattern_alloced < (size_t) (p - line))
113 {
114 pattern = realloc (ptr: pattern, size: p - line);
115 if (pattern == NULL)
116 {
117 printf (format: "%zd: Cannot record pattern: %m\n", linenum);
118 ret = 1;
119 break;
120 }
121 pattern_alloced = p - line;
122 }
123
124 memcpy (pattern, line + 1, p - line - 1);
125 pattern[p - line - 1] = '\0';
126 pattern_valid = 1;
127 continue;
128 }
129
130 if (strncmp (line, " ", 4) == 0)
131 {
132 regex_t re;
133 int n;
134
135 if (!pattern_valid)
136 {
137 printf (format: "%zd: No previous valid pattern %s\n", linenum, line);
138 continue;
139 }
140
141 if (string_alloced < (size_t) (len - 3))
142 {
143 string = realloc (ptr: string, size: len - 3);
144 if (string == NULL)
145 {
146 printf (format: "%zd: Cannot record search string: %m\n", linenum);
147 ret = 1;
148 break;
149 }
150 string_alloced = len - 3;
151 }
152
153 memcpy (string, line + 4, len - 3);
154
155 n = regcomp (preg: &re, pattern: pattern,
156 REG_EXTENDED | (ignorecase ? REG_ICASE : 0));
157 if (n != 0)
158 {
159 char buf[500];
160 regerror (errcode: n, preg: &re, errbuf: buf, errbuf_size: sizeof (buf));
161 printf (format: "%zd: regcomp failed for %s: %s\n",
162 linenum, pattern, buf);
163 ret = 1;
164 continue;
165 }
166
167 if (regexec (preg: &re, String: string, nmatch: 20, pmatch: rm, eflags: 0))
168 {
169 rm[0].rm_so = -1;
170 rm[0].rm_eo = -1;
171 }
172
173 regfree (preg: &re);
174 rm_valid = 1;
175 continue;
176 }
177
178 if (!rm_valid)
179 {
180 printf (format: "%zd: No preceding pattern or search string\n", linenum);
181 ret = 1;
182 continue;
183 }
184
185 if (strcmp (line, "No match") == 0)
186 {
187 if (rm[0].rm_so != -1 || rm[0].rm_eo != -1)
188 {
189 printf (format: "%zd: /%s/ on %s unexpectedly matched %d..%d\n",
190 linenum, pattern, string, rm[0].rm_so, rm[0].rm_eo);
191 ret = 1;
192 }
193
194 continue;
195 }
196
197 p = line;
198 if (*p == ' ')
199 ++p;
200
201 num = strtoul (p, &p, 10);
202 if (num >= 20 || *p != ':' || p[1] != ' ')
203 {
204 printf (format: "%zd: Invalid line %s\n", linenum, line);
205 ret = 1;
206 continue;
207 }
208
209 if (rm[num].rm_so == -1 || rm[num].rm_eo == -1)
210 {
211 if (strcmp (p + 2, "<unset>") != 0)
212 {
213 printf (format: "%zd: /%s/ on %s unexpectedly failed to match register %ld %d..%d\n",
214 linenum, pattern, string, num,
215 rm[num].rm_so, rm[num].rm_eo);
216 ret = 1;
217 }
218 continue;
219 }
220
221 if (rm[num].rm_eo < rm[num].rm_so
222 || rm[num].rm_eo - rm[num].rm_so != len - (p + 2 - line)
223 || strncmp (p + 2, string + rm[num].rm_so,
224 rm[num].rm_eo - rm[num].rm_so) != 0)
225 {
226 printf (format: "%zd: /%s/ on %s unexpectedly failed to match %s for register %ld %d..%d\n",
227 linenum, pattern, string, p + 2, num,
228 rm[num].rm_so, rm[num].rm_eo);
229 ret = 1;
230 continue;
231 }
232 }
233
234 free (ptr: pattern);
235 free (ptr: string);
236 free (ptr: line);
237 fclose (f);
238 return ret;
239}
240

source code of glibc/posix/tst-pcre.c