source: trunk/src/libctests/glibc/posix/tst-fnmatch.c@ 2196

/* Tests for fnmatch function.
   Copyright (C) 2000, 2001 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

   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., 59 Temple Place, Suite 330, Boston, MA
   02111-1307 USA.  */

#include <errno.h>
#include <error.h>
#include <fnmatch.h>
#include <locale.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>


static char *next_input (char **line, int first, int last);
static int convert_flags (const char *str);
static char *flag_output (int flags);
static char *escape (const char *str, size_t *reslenp, char **resbuf);


int
main (void)
{
  char *linebuf = NULL;
  size_t linebuflen = 0;
  int ntests = 0;
  int nfailed = 0;
  char *escinput = NULL;
  size_t escinputlen = 0;
  char *escpattern = NULL;
  size_t escpatternlen = 0;
  int nr = 0;

  /* Read lines from stdin with the following format:

       locale  input-string  match-string  flags  result

     where `result' is either 0 or 1.  If the first character of a
     string is '"' we read until the next '"' and handled escaped '"'.  */
  while (! feof (stdin))
    {
      ssize_t n = getline (&linebuf, &linebuflen, stdin);
      char *cp;
      const char *locale;
      const char *input;
      const char *pattern;
      const char *result_str;
      int result;
      const char *flags;
      int flags_val;
      int fnmres;
      char numbuf[24];

      if (n == -1)
        break;

      if (n == 0)
        /* Maybe an empty line.  */
        continue;

      /* Skip over all leading white spaces.  */
      cp = linebuf;

      locale = next_input (&cp, 1, 0);
      if (locale == NULL)
        continue;

      input = next_input (&cp, 0, 0);
      if (input == NULL)
        continue;

      pattern = next_input (&cp, 0, 0);
      if (pattern == NULL)
        continue;

      result_str = next_input (&cp, 0, 0);
      if (result_str == NULL)
        continue;

      if (strcmp (result_str, "0") == 0)
        result = 0;
      else if  (strcasecmp (result_str, "NOMATCH") == 0)
        result = FNM_NOMATCH;
      else
        {
          char *endp;
          result = strtol (result_str, &endp, 0);
          if (*endp != '\0')
            continue;
        }

      flags = next_input (&cp, 0, 1);
      if (flags == NULL)
        /* We allow the flags missing.  */
        flags = "";

      /* Convert the text describing the flags in a numeric value.  */
      flags_val = convert_flags (flags);
      if (flags_val == -1)
        /* Something went wrong.  */
        continue;

      /* Now run the actual test.  */
      ++ntests;

      if (setlocale (LC_COLLATE, locale) == NULL
          || setlocale (LC_CTYPE, locale) == NULL)
        {
          puts ("*** Cannot set locale");
          ++nfailed;
          continue;
        }

      fnmres = fnmatch (pattern, input, flags_val);

      printf ("%3d: fnmatch (\"%s\", \"%s\", %s) = %s%c",
              ++nr,
              escape (pattern, &escpatternlen, &escpattern),
              escape (input, &escinputlen, &escinput),
              flag_output (flags_val),
              (fnmres == 0
               ? "0" : (fnmres == FNM_NOMATCH
                        ? "FNM_NOMATCH"
                        : (sprintf (numbuf, "%d", fnmres), numbuf))),
              (fnmres != 0) != (result != 0) ? ' ' : '\n');

      if ((fnmres != 0) != (result != 0))
        {
          printf ("(FAIL, expected %s) ***\n",
                  result == 0
                  ? "0" : (result == FNM_NOMATCH
                           ? "FNM_NOMATCH"
                           : (sprintf (numbuf, "%d", result), numbuf)));
          ++nfailed;
        }
    }

  printf ("=====================\n%3d tests, %3d failed\n", ntests, nfailed);

  free (escpattern);
  free (escinput);
  free (linebuf);

  return nfailed != 0;
}


static char *
next_input (char **line, int first, int last)
{
  char *cp = *line;
  char *result;

  while (*cp == ' ' || *cp == '\t')
    ++cp;

  /* We allow comment lines starting with '#'.  */
  if (first && *cp == '#')
    return NULL;

  if (*cp == '"')
    {
      char *wp;

      result = ++cp;
      wp = cp;

      while (*cp != '"' && *cp != '\0' && *cp != '\n')
        if (*cp == '\\')
          {
            if (cp[1] == '\n' || cp[1] == '\0')
              return NULL;

            ++cp;
            if (*cp == 't')
              *wp++ = '\t';
            else if (*cp == 'n')
              *wp++ = '\n';
            else
              *wp++ = *cp;

            ++cp;
          }
        else
          *wp++ = *cp++;

      if (*cp != '"')
        return NULL;

      if (wp != cp)
        *wp = '\0';
    }
  else
    {
      result = cp;
      while (*cp != '\0' && *cp != '\n' && *cp != ' ' && *cp != '\t')
        ++cp;

      if (cp == result && ! last)
        /* Premature end of line.  */
        return NULL;
    }

  /* Terminate and skip over the next white spaces.  */
  *cp++ = '\0';

  *line = cp;
  return result;
}


static int
convert_flags (const char *str)
{
  int result = 0;

  while (*str != '\0')
    {
      int len;

      if (strncasecmp (str, "PATHNAME", 8) == 0
          && (str[8] == '|' || str[8] == '\0'))
        {
          result |= FNM_PATHNAME;
          len = 8;
        }
      else if (strncasecmp (str, "NOESCAPE", 8) == 0
               && (str[8] == '|' || str[8] == '\0'))
        {
          result |= FNM_NOESCAPE;
          len = 8;
        }
      else if (strncasecmp (str, "PERIOD", 6) == 0
               && (str[6] == '|' || str[6] == '\0'))
        {
          result |= FNM_PERIOD;
          len = 6;
        }
      else if (strncasecmp (str, "LEADING_DIR", 11) == 0
               && (str[11] == '|' || str[11] == '\0'))
        {
          result |= FNM_LEADING_DIR;
          len = 11;
        }
      else if (strncasecmp (str, "CASEFOLD", 8) == 0
               && (str[8] == '|' || str[8] == '\0'))
        {
          result |= FNM_CASEFOLD;
          len = 8;
        }
#ifdef FNM_EXTMATCH
      else if (strncasecmp (str, "EXTMATCH", 8) == 0
               && (str[8] == '|' || str[8] == '\0'))
        {
          result |= FNM_EXTMATCH;
          len = 8;
        }
#else
#warning "FNM_EXTMATCH isn't defined!"
#endif
      else
        return -1;

      str += len;
      if (*str != '\0')
        ++str;
    }

  return result;
}


static char *
flag_output (int flags)
{
  static char buf[100];
  int first = 1;
  char *cp = buf;

  if (flags & FNM_PATHNAME)
    {
      cp = stpcpy (cp, "FNM_PATHNAME");
      first = 0;
    }
  if (flags & FNM_NOESCAPE)
    {
      if (! first)
        *cp++ = '|';
      cp = stpcpy (cp, "FNM_NOESCAPE");
      first = 0;
    }
  if (flags & FNM_PERIOD)
    {
      if (! first)
        *cp++ = '|';
      cp = stpcpy (cp, "FNM_PERIOD");
      first = 0;
    }
  if (flags & FNM_LEADING_DIR)
    {
      if (! first)
        *cp++ = '|';
      cp = stpcpy (cp, "FNM_LEADING_DIR");
      first = 0;
    }
  if (flags & FNM_CASEFOLD)
    {
      if (! first)
        *cp++ = '|';
      cp = stpcpy (cp, "FNM_CASEFOLD");
      first = 0;
    }
#ifdef FNM_EXTMATCH
  if (flags & FNM_EXTMATCH)
    {
      if (! first)
        *cp++ = '|';
      cp = stpcpy (cp, "FNM_EXTMATCH");
      first = 0;
    }
#else
#warning "FNM_EXTMATCH isn't defined!"
#endif
  if (cp == buf)
    *cp++ = '0';
  *cp = '\0';

  return buf;
}


static char *
escape (const char *str, size_t *reslenp, char **resbufp)
{
  size_t reslen = *reslenp;
  char *resbuf = *resbufp;
  size_t len = strlen (str);
  char *wp;

  if (2 * len + 1 > reslen)
    {
      resbuf = (char *) realloc (resbuf, 2 * len + 1);
      if (resbuf == NULL)
        error (EXIT_FAILURE, errno, "while allocating buffer for printing");
      *reslenp = 2 * len + 1;
      *resbufp = resbuf;
    }

  wp = resbuf;
  while (*str != '\0')
    if (*str == '\t')
      {
        *wp++ = '\\';
        *wp++ = 't';
        ++str;
      }
    else if (*str == '\n')
      {
        *wp++ = '\\';
        *wp++ = 'n';
        ++str;
      }
    else if (*str == '"')
      {
        *wp++ = '\\';
        *wp++ = '"';
        ++str;
      }
    else if (*str == '\\')
      {
        *wp++ = '\\';
        *wp++ = '\\';
        ++str;
      }
    else
      *wp++ = *str++;

  *wp = '\0';

  return resbuf;
}