| /* Regular expression tests. |
| Copyright (C) 2003 Free Software Foundation, Inc. |
| This file is part of the GNU C Library. |
| Contributed by Jakub Jelinek <jakub@redhat.com>, 2003. |
| |
| The GNU C Library is free software; you can redistribute it and/or |
| modify it under the terms of the GNU Lesser General Public |
| License as published by the Free Software Foundation; either |
| version 2.1 of the License, or (at your option) any later version. |
| |
| The GNU C Library is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| Lesser General Public License for more details. |
| |
| You should have received a copy of the GNU Lesser General Public |
| License along with the GNU C Library; if not, write to the Free |
| Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
| 02110-1301 USA. */ |
| |
| #ifdef HAVE_CONFIG_H |
| #include "config.h" |
| #endif |
| |
| #include <sys/types.h> |
| #ifdef HAVE_MCHECK_H |
| #include <mcheck.h> |
| #endif |
| #include <regex.h> |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <string.h> |
| |
| int |
| main (int argc, char **argv) |
| { |
| int ret = 0; |
| char *line = NULL; |
| size_t line_len = 0; |
| ssize_t len; |
| FILE *f; |
| char *pattern = NULL, *string = NULL; |
| regmatch_t rm[20]; |
| size_t pattern_alloced = 0, string_alloced = 0; |
| int ignorecase = 0; |
| int pattern_valid = 0, rm_valid = 0; |
| size_t linenum; |
| |
| #ifdef HAVE_MCHECK_H |
| mtrace (); |
| #endif |
| |
| if (argc < 2) |
| { |
| fprintf (stderr, "Missing test filename\n"); |
| return 1; |
| } |
| |
| f = fopen (argv[1], "r"); |
| if (f == NULL) |
| { |
| fprintf (stderr, "Couldn't open %s\n", argv[1]); |
| return 1; |
| } |
| |
| if ((len = getline (&line, &line_len, f)) <= 0 |
| || strncmp (line, "# PCRE", 6) != 0) |
| { |
| fprintf (stderr, "Not a PCRE test file\n"); |
| fclose (f); |
| free (line); |
| return 1; |
| } |
| |
| linenum = 1; |
| |
| while ((len = getline (&line, &line_len, f)) > 0) |
| { |
| char *p; |
| unsigned long num; |
| |
| ++linenum; |
| |
| if (line[len - 1] == '\n') |
| line[--len] = '\0'; |
| |
| if (line[0] == '#') |
| continue; |
| |
| if (line[0] == '\0') |
| { |
| /* End of test. */ |
| ignorecase = 0; |
| pattern_valid = 0; |
| rm_valid = 0; |
| continue; |
| } |
| |
| if (line[0] == '/') |
| { |
| /* Pattern. */ |
| p = strrchr (line + 1, '/'); |
| |
| pattern_valid = 0; |
| rm_valid = 0; |
| if (p == NULL) |
| { |
| printf ("%lu: Invalid pattern line: %s\n", linenum, line); |
| ret = 1; |
| continue; |
| } |
| |
| if (p[1] == 'i' && p[2] == '\0') |
| ignorecase = 1; |
| else if (p[1] != '\0') |
| { |
| printf ("%lu: Invalid pattern line: %s\n", linenum, line); |
| ret = 1; |
| continue; |
| } |
| |
| if (pattern_alloced < (size_t) (p - line)) |
| { |
| pattern = realloc (pattern, p - line); |
| if (pattern == NULL) |
| { |
| printf ("%lu: Cannot record pattern: %m\n", linenum); |
| ret = 1; |
| break; |
| } |
| pattern_alloced = p - line; |
| } |
| |
| memcpy (pattern, line + 1, p - line - 1); |
| pattern[p - line - 1] = '\0'; |
| pattern_valid = 1; |
| continue; |
| } |
| |
| if (strncmp (line, " ", 4) == 0) |
| { |
| regex_t re; |
| int n; |
| |
| if (!pattern_valid) |
| { |
| printf ("%lu: No previous valid pattern %s\n", linenum, line); |
| continue; |
| } |
| |
| if (string_alloced < (size_t) (len - 3)) |
| { |
| string = realloc (string, len - 3); |
| if (string == NULL) |
| { |
| printf ("%lu: Cannot record search string: %m\n", linenum); |
| ret = 1; |
| break; |
| } |
| string_alloced = len - 3; |
| } |
| |
| memcpy (string, line + 4, len - 3); |
| |
| n = regcomp (&re, pattern, |
| REG_EXTENDED | (ignorecase ? REG_ICASE : 0)); |
| if (n != 0) |
| { |
| char buf[500]; |
| regerror (n, &re, buf, sizeof (buf)); |
| printf ("%lu: regcomp failed for %s: %s\n", |
| linenum, pattern, buf); |
| ret = 1; |
| continue; |
| } |
| |
| if (regexec (&re, string, 20, rm, 0)) |
| { |
| rm[0].rm_so = -1; |
| rm[0].rm_eo = -1; |
| } |
| |
| regfree (&re); |
| rm_valid = 1; |
| continue; |
| } |
| |
| if (!rm_valid) |
| { |
| printf ("%lu: No preceeding pattern or search string\n", linenum); |
| ret = 1; |
| continue; |
| } |
| |
| if (strcmp (line, "No match") == 0) |
| { |
| if (rm[0].rm_so != -1 || rm[0].rm_eo != -1) |
| { |
| printf ("%lu: /%s/ on %s unexpectedly matched %d..%d\n", |
| linenum, pattern, string, rm[0].rm_so, rm[0].rm_eo); |
| ret = 1; |
| } |
| |
| continue; |
| } |
| |
| p = line; |
| if (*p == ' ') |
| ++p; |
| |
| num = strtoul (p, &p, 10); |
| if (num >= 20 || *p != ':' || p[1] != ' ') |
| { |
| printf ("%lu: Invalid line %s\n", linenum, line); |
| ret = 1; |
| continue; |
| } |
| |
| if (rm[num].rm_so == -1 || rm[num].rm_eo == -1) |
| { |
| if (strcmp (p + 2, "<unset>") != 0) |
| { |
| printf ("%lu: /%s/ on %s unexpectedly failed to match register %ld %d..%d\n", |
| linenum, pattern, string, num, |
| rm[num].rm_so, rm[num].rm_eo); |
| ret = 1; |
| } |
| continue; |
| } |
| |
| if (rm[num].rm_eo < rm[num].rm_so |
| || rm[num].rm_eo - rm[num].rm_so != len - (p + 2 - line) |
| || strncmp (p + 2, string + rm[num].rm_so, |
| rm[num].rm_eo - rm[num].rm_so) != 0) |
| { |
| printf ("%lu: /%s/ on %s unexpectedly failed to match %s for register %ld %d..%d\n", |
| linenum, pattern, string, p + 2, num, |
| rm[num].rm_so, rm[num].rm_eo); |
| ret = 1; |
| continue; |
| } |
| } |
| |
| free (pattern); |
| free (string); |
| free (line); |
| fclose (f); |
| return ret; |
| } |