summaryrefslogtreecommitdiff
path: root/src/regress/lib/libc/regex/main.c
diff options
context:
space:
mode:
authorcvs2svn <admin@example.com>2019-11-19 19:57:05 +0000
committercvs2svn <admin@example.com>2019-11-19 19:57:05 +0000
commite9f9eb6198f1757b7c0dfef043fadf1fa8243022 (patch)
treeb5a648f6ccaf6c1cd9915ddb45503d1fccfeba0e /src/regress/lib/libc/regex/main.c
parentab72e3a6f7e8d5c71bbba034410468781d5923b6 (diff)
downloadopenbsd-bluhm_20191119.tar.gz
openbsd-bluhm_20191119.tar.bz2
openbsd-bluhm_20191119.zip
This commit was manufactured by cvs2git to create tag 'bluhm_20191119'.bluhm_20191119
Diffstat (limited to 'src/regress/lib/libc/regex/main.c')
-rw-r--r--src/regress/lib/libc/regex/main.c519
1 files changed, 0 insertions, 519 deletions
diff --git a/src/regress/lib/libc/regex/main.c b/src/regress/lib/libc/regex/main.c
deleted file mode 100644
index d6787d88fc..0000000000
--- a/src/regress/lib/libc/regex/main.c
+++ /dev/null
@@ -1,519 +0,0 @@
1/* $OpenBSD: main.c,v 1.10 2016/07/13 06:17:11 guenther Exp $ */
2/* $NetBSD: main.c,v 1.2 1995/04/20 22:39:51 cgd Exp $ */
3
4#include <stdio.h>
5#include <stdlib.h>
6#include <string.h>
7#include <sys/types.h>
8#include <regex.h>
9#include <assert.h>
10#include <unistd.h>
11
12#include "main.ih"
13
14char *progname;
15int debug = 0;
16int line = 0;
17int status = 0;
18
19int copts = REG_EXTENDED;
20int eopts = 0;
21regoff_t startoff = 0;
22regoff_t endoff = 0;
23
24
25extern int split(char *, char *[], int, char *);
26extern void regprint(regex_t *, FILE *);
27
28/*
29 - main - do the simple case, hand off to regress() for regression
30 */
31int
32main(int argc, char *argv[])
33
34{
35 regex_t re;
36# define NS 10
37 regmatch_t subs[NS];
38 char erbuf[100];
39 int err;
40 size_t len;
41 int c;
42 int errflg = 0;
43 register int i;
44 extern int optind;
45 extern char *optarg;
46
47 progname = argv[0];
48
49 while ((c = getopt(argc, argv, "c:E:e:S:x")) != -1)
50 switch (c) {
51 case 'c': /* compile options */
52 copts = options('c', optarg);
53 break;
54 case 'E': /* end offset */
55 endoff = (regoff_t)atoi(optarg);
56 break;
57 case 'e': /* execute options */
58 eopts = options('e', optarg);
59 break;
60 case 'S': /* start offset */
61 startoff = (regoff_t)atoi(optarg);
62 break;
63 case 'x': /* Debugging. */
64 debug++;
65 break;
66 case '?':
67 default:
68 errflg++;
69 break;
70 }
71 if (errflg) {
72 fprintf(stderr, "usage: %s ", progname);
73 fprintf(stderr, "[-x] [-c copt] [-E endoff] [-e eopt] [-S startoff] [re]\n");
74 exit(2);
75 }
76
77 if (optind >= argc) {
78 regress(stdin);
79 exit(status);
80 }
81
82 err = regcomp(&re, argv[optind++], copts);
83 if (err) {
84 len = regerror(err, &re, erbuf, sizeof(erbuf));
85 fprintf(stderr, "error %s, %zu/%zu `%s'\n",
86 eprint(err), len, sizeof(erbuf), erbuf);
87 exit(status);
88 }
89 regprint(&re, stdout);
90
91 if (optind >= argc) {
92 regfree(&re);
93 exit(status);
94 }
95
96 if (eopts&REG_STARTEND) {
97 subs[0].rm_so = startoff;
98 subs[0].rm_eo = strlen(argv[optind]) - endoff;
99 }
100 err = regexec(&re, argv[optind], (size_t)NS, subs, eopts);
101 if (err) {
102 len = regerror(err, &re, erbuf, sizeof(erbuf));
103 fprintf(stderr, "error %s, %zu/%zu `%s'\n",
104 eprint(err), len, sizeof(erbuf), erbuf);
105 exit(status);
106 }
107 if (!(copts&REG_NOSUB)) {
108 len = (size_t)(subs[0].rm_eo - subs[0].rm_so);
109 if (subs[0].rm_so != -1) {
110 if (len != 0)
111 printf("match `%.*s'\n", (int)len,
112 argv[optind] + subs[0].rm_so);
113 else
114 printf("match `'@%.1s\n",
115 argv[optind] + subs[0].rm_so);
116 }
117 for (i = 1; i < NS; i++)
118 if (subs[i].rm_so != -1)
119 printf("(%d) `%.*s'\n", i,
120 (int)(subs[i].rm_eo - subs[i].rm_so),
121 argv[optind] + subs[i].rm_so);
122 }
123 exit(status);
124}
125
126/*
127 - regress - main loop of regression test
128 == void regress(FILE *in);
129 */
130void
131regress(in)
132FILE *in;
133{
134 char inbuf[1000];
135# define MAXF 10
136 char *f[MAXF];
137 int nf;
138 int i;
139 char erbuf[100];
140 size_t ne;
141 char *badpat = "invalid regular expression";
142# define SHORT 10
143 char *bpname = "REG_BADPAT";
144 regex_t re;
145
146 while (fgets(inbuf, sizeof(inbuf), in) != NULL) {
147 line++;
148 if (inbuf[0] == '#' || inbuf[0] == '\n')
149 continue; /* NOTE CONTINUE */
150 inbuf[strcspn(inbuf, "\n")] = '\0'; /* get rid of stupid \n */
151 if (debug)
152 fprintf(stdout, "%d:\n", line);
153 nf = split(inbuf, f, MAXF, "\t\t");
154 if (nf < 3) {
155 fprintf(stderr, "bad input, line %d\n", line);
156 exit(1);
157 }
158 for (i = 0; i < nf; i++)
159 if (strcmp(f[i], "\"\"") == 0)
160 f[i] = "";
161 if (nf <= 3)
162 f[3] = NULL;
163 if (nf <= 4)
164 f[4] = NULL;
165 try(f[0], f[1], f[2], f[3], f[4], options('c', f[1]));
166 if (opt('&', f[1])) /* try with either type of RE */
167 try(f[0], f[1], f[2], f[3], f[4],
168 options('c', f[1]) &~ REG_EXTENDED);
169 }
170
171 ne = regerror(REG_BADPAT, (regex_t *)NULL, erbuf, sizeof(erbuf));
172 if (strcmp(erbuf, badpat) != 0 || ne != strlen(badpat)+1) {
173 fprintf(stderr, "end: regerror() test gave `%s' not `%s'\n",
174 erbuf, badpat);
175 status = 1;
176 }
177 ne = regerror(REG_BADPAT, (regex_t *)NULL, erbuf, (size_t)SHORT);
178 if (strncmp(erbuf, badpat, SHORT-1) != 0 || erbuf[SHORT-1] != '\0' ||
179 ne != strlen(badpat)+1) {
180 fprintf(stderr, "end: regerror() short test gave `%s' not `%.*s'\n",
181 erbuf, SHORT-1, badpat);
182 status = 1;
183 }
184 ne = regerror(REG_ITOA|REG_BADPAT, (regex_t *)NULL, erbuf, sizeof(erbuf));
185 if (strcmp(erbuf, bpname) != 0 || ne != strlen(bpname)+1) {
186 fprintf(stderr, "end: regerror() ITOA test gave `%s' not `%s'\n",
187 erbuf, bpname);
188 status = 1;
189 }
190 re.re_endp = bpname;
191 ne = regerror(REG_ATOI, &re, erbuf, sizeof(erbuf));
192 if (atoi(erbuf) != (int)REG_BADPAT) {
193 fprintf(stderr, "end: regerror() ATOI test gave `%s' not `%ld'\n",
194 erbuf, (long)REG_BADPAT);
195 status = 1;
196 } else if (ne != strlen(erbuf)+1) {
197 fprintf(stderr, "end: regerror() ATOI test len(`%s') = %ld\n",
198 erbuf, (long)REG_BADPAT);
199 status = 1;
200 }
201}
202
203/*
204 - try - try it, and report on problems
205 == void try(char *f0, char *f1, char *f2, char *f3, char *f4, int opts);
206 */
207void
208try(f0, f1, f2, f3, f4, opts)
209char *f0;
210char *f1;
211char *f2;
212char *f3;
213char *f4;
214int opts; /* may not match f1 */
215{
216 regex_t re;
217# define NSUBS 10
218 regmatch_t subs[NSUBS];
219# define NSHOULD 15
220 char *should[NSHOULD];
221 int nshould;
222 char erbuf[100];
223 int err;
224 int len;
225 char *type = (opts & REG_EXTENDED) ? "ERE" : "BRE";
226 register int i;
227 char *grump;
228 char f0copy[1000];
229 char f2copy[1000];
230
231 strlcpy(f0copy, f0, sizeof f0copy);
232 re.re_endp = (opts&REG_PEND) ? f0copy + strlen(f0copy) : NULL;
233 fixstr(f0copy);
234 err = regcomp(&re, f0copy, opts);
235 if (err != 0 && (!opt('C', f1) || err != efind(f2))) {
236 /* unexpected error or wrong error */
237 len = regerror(err, &re, erbuf, sizeof(erbuf));
238 fprintf(stderr, "%d: %s error %s, %d/%zu `%s'\n",
239 line, type, eprint(err), len,
240 sizeof(erbuf), erbuf);
241 status = 1;
242 } else if (err == 0 && opt('C', f1)) {
243 /* unexpected success */
244 fprintf(stderr, "%d: %s should have given REG_%s\n",
245 line, type, f2);
246 status = 1;
247 err = 1; /* so we won't try regexec */
248 }
249
250 if (err != 0) {
251 regfree(&re);
252 return;
253 }
254
255 strlcpy(f2copy, f2, sizeof f2copy);
256 fixstr(f2copy);
257
258 if (options('e', f1)&REG_STARTEND) {
259 if (strchr(f2, '(') == NULL || strchr(f2, ')') == NULL)
260 fprintf(stderr, "%d: bad STARTEND syntax\n", line);
261 subs[0].rm_so = strchr(f2, '(') - f2 + 1;
262 subs[0].rm_eo = strchr(f2, ')') - f2;
263 /* the preceding character is relevant with REG_NOTBOL */
264 f2copy[subs[0].rm_so - 1] = subs[0].rm_so > 1 ?
265 f2copy[subs[0].rm_so - 2] : 'X';
266 }
267 err = regexec(&re, f2copy, NSUBS, subs, options('e', f1));
268
269 if (err != 0 && (f3 != NULL || err != REG_NOMATCH)) {
270 /* unexpected error or wrong error */
271 len = regerror(err, &re, erbuf, sizeof(erbuf));
272 fprintf(stderr, "%d: %s exec error %s, %d/%zu `%s'\n",
273 line, type, eprint(err), len,
274 sizeof(erbuf), erbuf);
275 status = 1;
276 } else if (err != 0) {
277 /* nothing more to check */
278 } else if (f3 == NULL) {
279 /* unexpected success */
280 fprintf(stderr, "%d: %s exec should have failed\n",
281 line, type);
282 status = 1;
283 err = 1; /* just on principle */
284 } else if (opts&REG_NOSUB) {
285 /* nothing more to check */
286 } else if ((grump = check(f2, subs[0], f3)) != NULL) {
287 fprintf(stderr, "%d: %s %s\n", line, type, grump);
288 status = 1;
289 err = 1;
290 }
291
292 if (err != 0 || f4 == NULL) {
293 regfree(&re);
294 return;
295 }
296
297 for (i = 1; i < NSHOULD; i++)
298 should[i] = NULL;
299 nshould = split(f4, should+1, NSHOULD-1, ",");
300 if (nshould == 0) {
301 nshould = 1;
302 should[1] = "";
303 }
304 for (i = 1; i < NSUBS; i++) {
305 grump = check(f2, subs[i], should[i]);
306 if (grump != NULL) {
307 fprintf(stderr, "%d: %s $%d %s\n", line,
308 type, i, grump);
309 status = 1;
310 err = 1;
311 }
312 }
313
314 regfree(&re);
315}
316
317/*
318 - options - pick options out of a regression-test string
319 == int options(int type, char *s);
320 */
321int
322options(type, s)
323int type; /* 'c' compile, 'e' exec */
324char *s;
325{
326 register char *p;
327 register int o = (type == 'c') ? copts : eopts;
328 register char *legal = (type == 'c') ? "bisnmp" : "^$#tl";
329
330 for (p = s; *p != '\0'; p++)
331 if (strchr(legal, *p) != NULL)
332 switch (*p) {
333 case 'b':
334 o &= ~REG_EXTENDED;
335 break;
336 case 'i':
337 o |= REG_ICASE;
338 break;
339 case 's':
340 o |= REG_NOSUB;
341 break;
342 case 'n':
343 o |= REG_NEWLINE;
344 break;
345 case 'm':
346 o &= ~REG_EXTENDED;
347 o |= REG_NOSPEC;
348 break;
349 case 'p':
350 o |= REG_PEND;
351 break;
352 case '^':
353 o |= REG_NOTBOL;
354 break;
355 case '$':
356 o |= REG_NOTEOL;
357 break;
358 case '#':
359 o |= REG_STARTEND;
360 break;
361 case 't': /* trace */
362 o |= REG_TRACE;
363 break;
364 case 'l': /* force long representation */
365 o |= REG_LARGE;
366 break;
367 case 'r': /* force backref use */
368 o |= REG_BACKR;
369 break;
370 }
371 return(o);
372}
373
374/*
375 - opt - is a particular option in a regression string?
376 == int opt(int c, char *s);
377 */
378int /* predicate */
379opt(c, s)
380int c;
381char *s;
382{
383 return(strchr(s, c) != NULL);
384}
385
386/*
387 - fixstr - transform magic characters in strings
388 == void fixstr(register char *p);
389 */
390void
391fixstr(p)
392register char *p;
393{
394 if (p == NULL)
395 return;
396
397 for (; *p != '\0'; p++)
398 if (*p == 'N')
399 *p = '\n';
400 else if (*p == 'T')
401 *p = '\t';
402 else if (*p == 'S')
403 *p = ' ';
404 else if (*p == 'Z')
405 *p = '\0';
406}
407
408/*
409 - check - check a substring match
410 == char *check(char *str, regmatch_t sub, char *should);
411 */
412char * /* NULL or complaint */
413check(str, sub, should)
414char *str;
415regmatch_t sub;
416char *should;
417{
418 register int len;
419 register int shlen;
420 register char *p;
421 static char grump[500];
422 register char *at = NULL;
423
424 if (should != NULL && strcmp(should, "-") == 0)
425 should = NULL;
426 if (should != NULL && should[0] == '@') {
427 at = should + 1;
428 should = "";
429 }
430
431 /* check rm_so and rm_eo for consistency */
432 if (sub.rm_so > sub.rm_eo || (sub.rm_so == -1 && sub.rm_eo != -1) ||
433 (sub.rm_so != -1 && sub.rm_eo == -1) ||
434 (sub.rm_so != -1 && sub.rm_so < 0) ||
435 (sub.rm_eo != -1 && sub.rm_eo < 0) ) {
436 snprintf(grump, sizeof grump,
437 "start %ld end %ld", (long)sub.rm_so,
438 (long)sub.rm_eo);
439 return(grump);
440 }
441
442 /* check for no match */
443 if (sub.rm_so == -1 && should == NULL)
444 return(NULL);
445 if (sub.rm_so == -1)
446 return("did not match");
447
448 /* check for in range */
449 if (sub.rm_eo > strlen(str)) {
450 snprintf(grump, sizeof grump,
451 "start %ld end %ld, past end of string",
452 (long)sub.rm_so, (long)sub.rm_eo);
453 return(grump);
454 }
455
456 len = (int)(sub.rm_eo - sub.rm_so);
457 p = str + sub.rm_so;
458
459 /* check for not supposed to match */
460 if (should == NULL) {
461 snprintf(grump, sizeof grump, "matched `%.*s'", len, p);
462 return(grump);
463 }
464
465 /* check for wrong match */
466 shlen = (int)strlen(should);
467 if (len != shlen || strncmp(p, should, (size_t)shlen) != 0) {
468 snprintf(grump, sizeof grump, "matched `%.*s' instead", len, p);
469 return(grump);
470 }
471 if (shlen > 0)
472 return(NULL);
473
474 /* check null match in right place */
475 if (at == NULL)
476 return(NULL);
477 shlen = strlen(at);
478 if (shlen == 0)
479 shlen = 1; /* force check for end-of-string */
480 if (strncmp(p, at, shlen) != 0) {
481 snprintf(grump, sizeof grump, "matched null at `%.20s'", p);
482 return(grump);
483 }
484 return(NULL);
485}
486
487/*
488 - eprint - convert error number to name
489 == static char *eprint(int err);
490 */
491static char *
492eprint(err)
493int err;
494{
495 static char epbuf[100];
496 size_t len;
497
498 len = regerror(REG_ITOA|err, (regex_t *)NULL, epbuf, sizeof(epbuf));
499 assert(len <= sizeof(epbuf));
500 return(epbuf);
501}
502
503/*
504 - efind - convert error name to number
505 == static int efind(char *name);
506 */
507static int
508efind(name)
509char *name;
510{
511 static char efbuf[100];
512 regex_t re;
513
514 snprintf(efbuf, sizeof efbuf, "REG_%s", name);
515 assert(strlen(efbuf) < sizeof(efbuf));
516 re.re_endp = efbuf;
517 (void) regerror(REG_ATOI, &re, efbuf, sizeof(efbuf));
518 return(atoi(efbuf));
519}
generated by cgit v1.2.3-55-g6feb (git 2.39.1) at 2025-12-27 21:39:19 +0000