1 #ifdef HAVE_CONFIG_H
2 #include "config.h"
3 #endif
4
5 #include <errno.h>
6 #include <fcntl.h>
7 #include <regex.h>
8 #include <stdio.h>
9 #include <stdlib.h>
10 #include <string.h>
11 #include <sys/stat.h>
12 #include <unistd.h>
13
14 int
main(int argc,char * argv[])15 main (int argc, char *argv[])
16 {
17 struct stat st;
18 static const char *pat[] = {
19 ".?.?.?.?.?.?.?argc",
20 "(.?)(.?)(.?)(.?)(.?)(.?)(.?)argc",
21 "((((((((((.?))))))))))((((((((((.?))))))))))((((((((((.?))))))))))"
22 "((((((((((.?))))))))))((((((((((.?))))))))))((((((((((.?))))))))))"
23 "((((((((((.?))))))))))argc" };
24
25 size_t len;
26 int fd;
27 int testno, i, j, k, l;
28 char *string;
29 char *buf;
30
31 if (argc < 2)
32 abort ();
33
34 fd = open (argv[1], O_RDONLY);
35 if (fd < 0)
36 {
37 printf ("Couldn't open %s: %s\n", argv[1], strerror (errno));
38 abort ();
39 }
40
41 if (fstat (fd, &st) < 0)
42 {
43 printf ("Couldn't fstat %s: %s\n", argv[1], strerror (errno));
44 abort ();
45 }
46
47 buf = malloc (st.st_size + 1);
48 if (buf == NULL)
49 {
50 printf ("Couldn't allocate buffer: %s\n", strerror (errno));
51 abort ();
52 }
53
54 if (read (fd, buf, st.st_size) != (ssize_t) st.st_size)
55 {
56 printf ("Couldn't read %s", argv[1]);
57 abort ();
58 }
59
60 close (fd);
61 buf[st.st_size] = '\0';
62
63 string = buf;
64 len = st.st_size;
65
66 for (testno = 0; testno < 4; ++testno)
67 for (i = 0; i < sizeof (pat) / sizeof (pat[0]); ++i)
68 {
69 regex_t rbuf;
70 struct re_pattern_buffer rpbuf;
71 int err;
72
73 printf ("test %d pattern %d", testno, i);
74 if (testno < 2)
75 {
76 err = regcomp (&rbuf, pat[i],
77 REG_EXTENDED | (testno ? REG_NOSUB : 0));
78 if (err != 0)
79 {
80 char errstr[300];
81 putchar ('\n');
82 regerror (err, &rbuf, errstr, sizeof (errstr));
83 puts (errstr);
84 return err;
85 }
86 }
87 else
88 {
89 const char *s;
90 re_set_syntax (RE_SYNTAX_POSIX_EGREP
91 | (testno == 3 ? RE_NO_SUB : 0));
92
93 memset (&rpbuf, 0, sizeof (rpbuf));
94 s = re_compile_pattern (pat[i], strlen (pat[i]), &rpbuf);
95 if (s != NULL)
96 {
97 printf ("\n%s\n", s);
98 abort ();
99 }
100
101 /* Just so that this can be tested with earlier glibc as well. */
102 if (testno == 3)
103 rpbuf.no_sub = 1;
104 }
105
106 if (testno < 2)
107 {
108 regmatch_t pmatch[71];
109 err = regexec (&rbuf, string, 71, pmatch, 0);
110 if (err == REG_NOMATCH)
111 {
112 puts ("\nregexec failed");
113 abort ();
114 }
115
116 if (testno == 0)
117 {
118 if (pmatch[0].rm_eo != pmatch[0].rm_so + 11
119 || pmatch[0].rm_eo > len
120 || string + pmatch[0].rm_so >= strchr (string, 'R')
121 || strncmp (string + pmatch[0].rm_so,
122 "n (int argc",
123 sizeof "n (int argc" - 1)
124 != 0)
125 {
126 puts ("\nregexec without REG_NOSUB did not find the correct match");
127 abort ();
128 }
129
130 if (i > 0)
131 for (j = 0, l = 1; j < 7; ++j)
132 for (k = 0; k < (i == 1 ? 1 : 10); ++k, ++l)
133 if (pmatch[l].rm_so != pmatch[0].rm_so + j
134 || pmatch[l].rm_eo != pmatch[l].rm_so + 1)
135 {
136 printf ("\npmatch[%d] incorrect\n", l);
137 abort ();
138 }
139 }
140 }
141 else
142 {
143 struct re_registers regs;
144 int match;
145
146 memset (®s, 0, sizeof (regs));
147 match = re_search (&rpbuf, string, len, 0, len,
148 ®s);
149 if (match < 0)
150 {
151 puts ("\nre_search failed");
152 abort ();
153 }
154
155 if (match + 11 > len
156 || string + match >= strchr (string, 'R')
157 || strncmp (string + match,
158 "n (int argc",
159 sizeof "n (int argc" - 1)
160 != 0)
161 {
162 puts ("\nre_search did not find the correct match");
163 abort ();
164 }
165
166 if (testno == 2)
167 {
168 if (regs.num_regs != 2 + (i == 0 ? 0 : i == 1 ? 7 : 70))
169 {
170 printf ("\nincorrect num_regs %d\n", regs.num_regs);
171 abort ();
172 }
173
174 if (regs.start[0] != match || regs.end[0] != match + 11)
175 {
176 printf ("\nincorrect regs.{start,end}[0] = { %d, %d}\n",
177 regs.start[0], regs.end[0]);
178 abort ();
179 }
180
181 if (regs.start[regs.num_regs - 1] != -1
182 || regs.end[regs.num_regs - 1] != -1)
183 {
184 puts ("\nincorrect regs.{start,end}[num_regs - 1]");
185 abort ();
186 }
187
188 if (i > 0)
189 for (j = 0, l = 1; j < 7; ++j)
190 for (k = 0; k < (i == 1 ? 1 : 10); ++k, ++l)
191 if (regs.start[l] != match + j
192 || regs.end[l] != regs.start[l] + 1)
193 {
194 printf ("\nregs.{start,end}[%d] incorrect\n", l);
195 abort ();
196 }
197 }
198 }
199
200 putchar ('\n');
201
202 if (testno < 2)
203 regfree (&rbuf);
204 else
205 regfree (&rpbuf);
206 }
207
208 exit (0);
209 }
210