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