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 14 char *progname; 15 int debug = 0; 16 int line = 0; 17 int status = 0; 18 19 int copts = REG_EXTENDED; 20 int eopts = 0; 21 regoff_t startoff = 0; 22 regoff_t endoff = 0; 23 24 25 extern int split(char *, char *[], int, char *); 26 extern void regprint(regex_t *, FILE *); 27 28 /* 29 - main - do the simple case, hand off to regress() for regression 30 */ 31 int 32 main(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®_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®_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 */ 130 void 131 regress(in) 132 FILE *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 */ 207 void 208 try(f0, f1, f2, f3, f4, opts) 209 char *f0; 210 char *f1; 211 char *f2; 212 char *f3; 213 char *f4; 214 int 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®_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)®_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®_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 */ 321 int 322 options(type, s) 323 int type; /* 'c' compile, 'e' exec */ 324 char *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 */ 378 int /* predicate */ 379 opt(c, s) 380 int c; 381 char *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 */ 390 void 391 fixstr(p) 392 register 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 */ 412 char * /* NULL or complaint */ 413 check(str, sub, should) 414 char *str; 415 regmatch_t sub; 416 char *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 */ 491 static char * 492 eprint(err) 493 int 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 */ 507 static int 508 efind(name) 509 char *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 } 520