source: kBuild/vendor/sed/current/testsuite/tst-pcre.c

/* 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.  */

#include "config.h"

#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;
}